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