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: (defun active-global-minor-modes ()
    *active-global-minor-modes*)
  
  (defun mode-active-p (buffer mode)
    (or (eq mode (buffer-major-mode buffer))
        (find mode (buffer-minor-modes buffer))
  
negative.code:           :disable-hook ,disable-hook))
         (register-mode ',minor-mode (make-instance ',minor-mode)))))
  
  ;;; global-mode
  (defun change-global-mode-keymap (mode keymap)
    (set-mode-keymap keymap (get-mode-object mode)))
  
  