anchor.diff:                                                      keyargs))
                                (:style (style (current-buffer))))
                               (:body
  -                             (:raw (funcall (compile nil lambda-expression) args))))
  +                             (:raw (apply (compile nil lambda-expression) args))))
                             "text/html;charset=utf8"))))))))
   
   (defmethod set-internal-page-method ((page internal-page) form)
  
positive.code:                         `(lambda (,@arglist)
                             (declare (ignorable ,@(alex:mappend #'cdar keywords)))
                             ,title))))
             (setf (form #',name) form))))))
  
  (export-always 'define-internal-page-command-global)
  (defmacro define-internal-page-command-global (name (&rest arglist)
  
negative.code:        (sera:lret ((gf (defgeneric ,name (,@(append '(&rest rest-args) (generalize-lambda-list arglist)))
                           (:documentation ,documentation)
                           (:generic-function-class internal-page))))
           (let ((wrapped-body '(lambda (,@arglist)
                                 ,@(when documentation (list documentation))
                                 ,@declarations
                                 (let ((,buffer-var (current-buffer)))
                                   (declare (ignorable ,buffer-var))
                                   ,@stripped-body))))
             (set-internal-page-method gf wrapped-body)
             (setf (slot-value #',name 'visibility) :mode)
             (setf (slot-value #',name 'page-mode) ,mode)
             (setf (slot-value #',name 'dynamic-title)
  