anchor.diff:          (setf (fset:@ (entries keymap) (first keys)) sym))
         (let ((submap (fset:@ (entries keymap) (first keys))))
           (unless (keymap-p submap)
  -          (setf submap (make-keymap))
  +          (setf submap (make-keymap :default (default keymap)
  +                                    :translator (translator keymap)))
             (setf (fset:@ (entries keymap) (first keys)) submap))
           (bind-key submap (rest keys) sym)))
     keymap)
  
positive.code:   ((entries :accessor entries
              :initarg :entries
              :initform nil
              :type hash-table
              :documentation
              "Hash table of which the keys are key-chords and the values are a
  symbol or a keymap.")
     (parents :accessor parents
              :initarg :parents
              :initform nil
              :type list
              :documentation "List of parent keymaps.
  Parents are ordered by priority, the first parent has highest priority.")
     (default :accessor default
  
negative.code:       (when hit
          (if (and (keymap-p hit)
                   (rest keys))
              (coerce 'symbol (lookup-key* hit (rest keys) visited))
              hit)))))
  
  (declaim (ftype (function (keymap
  