anchor.diff:                          `(lambda (,@arglist)
                              (declare (ignorable ,@(alex:mappend #'cdar keywords)))
                              ,title))))
  -           (setf (form #',name) form))))))
  +           (setf (form gf) wrapped-body))))))
   
   (export-always 'define-internal-page-command-global)
   (defmacro define-internal-page-command-global (name (&rest arglist)
  
positive.code:                                                     keyargs))
                               (:style (style (current-buffer))))
                              (:body
                               (:raw (funcall (compile nil lambda-expression) args))))
                            "text/html;charset=utf8"))))))))
  
  (defmethod set-internal-page-method ((page internal-page) form)
  
negative.code:   "Define an `internal-page'."
    `(apply #'make-instance 'internal-page
            :name ',name
            :lambda-list (append '(&rest rest-args) ',form-args)
            :form (quote (lambda (,@form-args) ,@body))
            ',initargs))
  
  