anchor.diff:  (defun make-mode-command-class-name (mode-name)
     (make-symbol (format nil "~A~A" mode-name '#:-command)))
   
  +;;; major mode
   (defmacro define-major-mode (major-mode
                                parent-mode
                                (&key name
  
positive.code:           :disable-hook ,disable-hook))
         (register-mode ',minor-mode (make-instance ',minor-mode)))))
  
  (defvar *current-global-mode* nil)
  
  (defun current-global-mode ()
    *current-global-mode*)
  
  (defun change-global-mode-keymap (mode keymap)
    (set-mode-keymap keymap (get-mode-object mode)))
  
  
negative.code:           :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))
  
  