anchor.diff:    "Define an `internal-page'."
     `(apply #'make-instance 'internal-page
             :name ',name
  -          :lambda-lits (append '(&rest rest-args) ',form-args)
  +          :lambda-list (append '(&rest rest-args) ',form-args)
             :form (quote (lambda (,@form-args) ,@body))
             ',initargs))
   
  
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)
  