anchor.diff:    ;; 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)))))
  +         (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 *key-chord-stack* map)))
  +      (let ((bound (gethash serialized-key-stack map)))
           (cond ((equalp "prefix" bound)
                  (return-from consume-key-sequence t))
                 (bound
  
positive.code:                                                      *character-conversion-table*
                                                       (car (last keys)))
                                  :modifiers (sort (butlast keys) #'string-lessp))))
  	       (push key-chord key-sequence)))
      key-sequence))
  
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)
  