(defmethod genetic-funcall
    ((progr program) values &key lambda-list)
  (apply
   (handler-bind (((or style-warning warning) #'muffle-warning))
     (compile 'nil `(lambda ,lambda-list
              ,(sexp progr))))
   values))