anchor.diff:            :hook-variable ',mode-hook))
          (register-mode ',major-mode (make-instance ',major-mode)))))
   
  +;;; minor mode
   (defun global-minor-mode-p (mode)
     (typep (get-mode-object mode) 'global-minor-mode))
   
  
positive.code: (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
  
negative.code: (defun active-global-minor-modes ()
    *active-global-minor-modes*)
  
  (defun current-global-mode ()
    *current-global-mode*)
  
  (defun mode-active-p (buffer mode)
    (or (eq mode (buffer-major-mode buffer))
        (find mode (buffer-minor-modes buffer))
  