anchor.diff:                                                       *character-conversion-table*
                                                        (car (last keys)))
                                   :modifiers (sort (butlast keys) #'string-lessp))))
  -	       (push key-chord key-sequence)))
  +	       (push (serialize-key-chord key-chord) key-sequence)))
       key-sequence))
  
positive.code:   key-string
    modifiers)
  
  (defun push-key-event (key-code key-string modifiers sender)
    ;; Adds a new chord to key-sequence
    ;; For example, it may add C-M-s or C-x
  
negative.code:          (key-maps (list *global-map* (keymap (mode active-buffer)))))
      (flet ((is-in-maps? (key-maps)
               (dolist (map key-maps)
                 (when (look-up-key-chord-stack *key-chord-stack* map)
                   (return-from is-in-maps? t)))))
        (cond ((eql active-buffer *minibuffer*) t)
              ((is-in-maps? key-maps) t)
  