anchor.diff:           (key-maps (list *global-map* (keymap (mode active-buffer)))))
       (flet ((is-in-maps? (key-maps)
                (dolist (map key-maps)
  -               (when (gethash *key-chord-stack* map)
  +               (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)
  
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:   ;; Iterate through all keymaps
    ;; If key recognized, execute function
    (let* ((active-buffer (active-buffer (gethash sender (windows *interface*))))
           (key-maps (list *global-map* (keymap (mode active-buffer))))
           (serialized-key-stack (mapcar #'serialize-key-chord *key-chord-stack*)))
      (dolist (map key-maps)
        (let ((bound (gethash serialized-key-stack map)))
          (cond ((equalp "prefix" bound)
                 (return-from consume-key-sequence t))
                (bound
  