anchor.diff:  (defmacro define-minor-mode (minor-mode
                                (&key name description (keymap nil keymapp) global enable-hook disable-hook)
                                &body body)
  -  (let ((command-class-name (make-symbol (string minor-mode))))
  +  (let ((command-class-name (make-mode-command-class-name minor-mode)))
       `(progn
          ,(when global
             `(setf (get ',minor-mode 'global-minor-mode-p) t))
          ,@(when keymapp
              `((defvar ,keymap (make-keymap :name ',keymap))))
  -       (define-command (,minor-mode (:class-name ,command-class-name)) (&optional (arg nil arg-p)) ("p")
  +       (define-command (,minor-mode (:class ,command-class-name)) (&optional (arg nil arg-p)) ("p")
            (cond ((not arg-p)
                   (toggle-minor-mode ',minor-mode))
                  ((eq arg t)
  
positive.code:                                    (syntax-table '(fundamental-syntax-table))
                                     mode-hook)
                               &body body)
    (let ((command-class-name (make-symbol (string major-mode))))
      `(progn
         ,@(when mode-hook
             `((defvar ,mode-hook '())))
  
negative.code:            `((defvar ,keymap (make-keymap :name ',keymap
                                            :parent ,(when parent-mode
                                                       `(mode-keymap ',parent-mode))))))
         (define-command (,major-mode (:class ,command-class-name)) () ()
           (clear-editor-local-variables (current-buffer))
           ,(when parent-mode `(,parent-mode))
           (setf (buffer-major-mode (current-buffer)) ',major-mode)
  