Function: with-form-values

Source

(defun with-form-values (form-name values handler)
  `(let (,@(mapcar (fn (value)
		    `(,value (param '(,form-name ,value))))
		  values))
     ,handler))