Macro: deform

Documentation

Deformed form. This is worse than no docs at all.

Source

(defmacro deform (name fn-list values handler &rest html)
  "Deformed form. This is worse than no docs at all."
  ;; use rkr macro? 
  `(setf (gethash ,(^string name) *wisp-forms*)
	 (make-instance 'wisp-form
			:handler-fn ,(make-form-handler name fn-list values handler)
			:html-fn ,(make-form-html-fn name fn-list values html))))