Function: make-form-html-fn

Source

(defun make-form-html-fn (form-name fn-list values html)
  (let ((form-handler-url (gensym "handler-url")))
    `(fn ,(append (list 'k-id) fn-list)
       ,(with-form-field-names form-name values
			       (make-wisp-form html)))))