anchor.diff:                 (t
                   (error "Invalid arg: ~S" arg)))
            ,@body)
  -       (defclass ,minor-mode (minor-mode)
  +       (defclass ,minor-mode (,(if global 'global-minor-mode 'minor-mode))
            ()
            (:default-initargs
             :name ,name
  
positive.code:        (register-mode ',major-mode (make-instance ',major-mode)))))
  
  (defun global-minor-mode-p (mode)
    (get mode 'global-minor-mode-p))
  
  (defun enable-minor-mode (minor-mode)
    (if (global-minor-mode-p minor-mode)
  
negative.code: (defclass minor-mode (mode)
    ((enable-hook :initarg :enable-hook :reader mode-enable-hook)
     (disable-hook :initarg :disable-hook :reader mode-disable-hook)))
  
  (defclass global-minor-mode (minor-mode) ())
  
  (defclass global-mode (mode)
    ((enable-hook :initarg :enable-hook :reader mode-enable-hook)
  