anchor.diff:                               &body body)
     (let ((command-class-name (make-symbol (string minor-mode))))
       `(progn
  -       (pushnew ',minor-mode *mode-list*)
          ,(when global
             `(setf (get ',minor-mode 'global-minor-mode-p) t))
          ,@(when keymapp
  
positive.code:                              &body body)
    (let ((command-class-name (make-symbol (string major-mode))))
      `(progn
         (pushnew ',major-mode *mode-list*)
         ,@(when mode-hook
             `((defvar ,mode-hook '())))
         ,@(when keymap
  
negative.code: (in-package :lem)
  
  (defvar *global-minor-mode-list* '())
  (defvar *mode-objects* '())
  
  (defclass mode ()
    ((name :initarg :name :reader mode-name)
  