anchor.diff:      (when (keymap-name object)
         (format stream "~A" (keymap-name object)))))
   
  -(defun make-keymap (&key undef-hook insertion-hook parent name)
  +(defun make-keymap (&key undef-hook parent name)
     (let ((keymap (%make-keymap
                    :undef-hook undef-hook
  -                 :insertion-hook insertion-hook
                    :parent parent
                    :table (make-hash-table :test 'eq)
                    :function-table (make-hash-table :test 'eq)
  
positive.code: 
  (defstruct (keymap (:constructor %make-keymap) (:print-function %print-keymap))
    undef-hook
    insertion-hook
    parent
    table
    function-table
  
negative.code:                    (return)))
                 cmd)))
            (gethash cmd (keymap-function-table keymap))
            (keymap-undef-hook keymap)
            cmd))))
  
  