anchor.diff:                                     (syntax-table '(fundamental-syntax-table))
                                      mode-hook)
                                &body body)
  -  (let ((command-class-name (make-symbol (string major-mode))))
  +  (let ((command-class-name (make-mode-command-class-name major-mode)))
       `(progn
          ,@(when mode-hook
              `((defvar ,mode-hook '())))
  
positive.code: (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))))
      `(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")
           (cond ((not arg-p)
                  (toggle-minor-mode ',minor-mode))
                 ((eq arg t)
  
negative.code:       (disable-minor-mode minor-mode)
        (enable-minor-mode minor-mode)))
  
  (defun make-mode-command-class-name (mode-name)
    (make-symbol (format nil "~A~A" mode-name '#:-command)))
  
  (defmacro define-major-mode (major-mode
                               parent-mode
                               (&key name
  