anchor.diff:  
   (defstruct (keymap (:constructor %make-keymap) (:print-function %print-keymap))
     undef-hook
  -  insertion-hook
     parent
     table
     function-table
  
positive.code:     (when (keymap-name object)
        (format stream "~A" (keymap-name object)))))
  
  (defun make-keymap (&key undef-hook insertion-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)
  
negative.code:                    (return)))
                 cmd)))
            (gethash cmd (keymap-function-table keymap))
            (keymap-undef-hook keymap)
            cmd))))
  
  