Function: make-form-handler

Source

(defun make-form-handler (form-name fn-list values handler) 
  (let ((k-id (gensym "k-id")))
    ;; is it a good idea to introduce anaphoric for k-id?
    `(fn ,(append (list 'k-id) fn-list)
       ,(with-form-values form-name values handler))))