anchor.diff:         (sera:lret ((gf (defgeneric ,name (,@(append '(&rest rest-args) (generalize-lambda-list arglist)))
                            (:documentation ,documentation)
                            (:generic-function-class internal-page))))
  -         (let ((form  '(lambda (,@arglist)
  -                        ,@(when documentation (list documentation))
  -                        ,@declarations
  -                        (let ((,buffer-var (current-buffer)))
  -                          ,@stripped-body))))
  -           (set-internal-page-method gf form)
  +         (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)
  
positive.code:   "Define an `internal-page'."
    `(apply #'make-instance 'internal-page
            :name ',name
            :lambda-lits (append '(&rest rest-args) ',form-args)
            :form (quote (lambda (,@form-args) ,@body))
            ',initargs))
  
  
negative.code:                         `(lambda (,@arglist)
                             (declare (ignorable ,@(alex:mappend #'cdar keywords)))
                             ,title))))
             (setf (form gf) wrapped-body))))))
  
  (export-always 'define-internal-page-command-global)
  (defmacro define-internal-page-command-global (name (&rest arglist)
  