anchor.diff:            :disable-hook ,disable-hook))
          (register-mode ',minor-mode (make-instance ',minor-mode)))))
   
  -(defvar *current-global-mode* nil)
  -
  -(defun current-global-mode ()
  -  *current-global-mode*)
  -
  +;;; global-mode
   (defun change-global-mode-keymap (mode keymap)
     (set-mode-keymap keymap (get-mode-object 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: (in-package :lem)
  
  (defvar *active-global-minor-modes* '())
  (defvar *current-global-mode* nil)
  
  (defvar *mode-objects* '())
  
  (defgeneric mode-identifier-name (mode))
  
  (defun get-mode-object (mode-name)
    (get mode-name 'mode-object))
  