anchor.diff:      (funcall function)))
   
   (defmacro with-form (form &body body)
  +  "Bind *FORM* to FORM and evaluate BODY in that context."
     `(call-with-form ,form (lambda () ,@body)))
   
   (defmacro defform (form-name args fields)
  
positive.code: (in-package #:cl-forms)
  
  (defvar *form-renderer* nil)
  (defvar *default-form-renderer* :who)
  (defvar *form* nil "The current form")
  (defvar *base64-encode* nil "If T, encode form parameters in base64")
  (defvar *field-required-message* nil)
  
  (defun check-duplicate-fields (fields)
    (when (not (equal
  
negative.code:     (funcall function)))
  
  (defmacro with-form-renderer (renderer &body body)
    "Bind *FORM-RENDERER* to RENDERER and evaluate BODY in that context."
    `(call-with-form-renderer ,renderer (lambda () ,@body)))
  
  (defun call-with-form-theme (form-theme function)
  