anchor.diff:                               &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
  
positive.code:   ((enable-hook :initarg :enable-hook :reader mode-enable-hook)
     (disable-hook :initarg :disable-hook :reader mode-disable-hook)))
  
  (defmethod mode-name ((mode symbol))
    (assert (not (null mode)))
    (mode-name (get-mode-object mode)))
  
negative.code: (defmethod mode-hook-variable ((mode symbol))
    (assert (not (null mode)))
    (mode-hook-variable (get-mode-object mode)))
  
  (defun global-minor-mode-p (mode)
    (get mode 'global-minor-mode-p))
  