anchor.diff:  ;;; keymap.lisp --- lisp subroutines for key binding detection
  -
  -;;; keys are defined with the following syntax:
  -;;;
  -;;; (define-key (key "C-x o") #'function-reference)
  -;;;
  -;;; in the previous example, the sequence of keys:
  -;;; "control+x", "o" would invoke the "function-reference"
   
   (in-package :next)
   
  
positive.code:                (return-from consume-key-sequence t)))))
      (log:debug "Not found in any keymaps")
      (setf (key-chord-stack *interface*) ())))
  
  (defun define-key (&rest key-command-pairs
                     &key mode keymap
  
negative.code:                                   key-chord))))
    (values))
  
  (defun consume-key-sequence-p (sender)
    (let* ((active-window (gethash sender (windows *interface*)))
           (active-buffer (active-buffer active-window))
           (keymaps (current-keymaps active-window active-buffer)))
      (flet ((is-in-maps? (keymaps)
               (dolist (map keymaps)
                 (when (look-up-key-chord-stack (key-chord-stack *interface*) map)
                   (return-from is-in-maps? map)))))
        (cond ((minibuffer-active active-window)
               (log:debug "Minibuffer active")
               t)
              ((is-in-maps? keymaps)
               (log:debug "~a found in map ~a" (mapcar #'serialize-key-chord (key-chord-stack *interface*))
                          (is-in-maps? keymaps))
               t)
              (t (setf (key-chord-stack *interface*) ()))))))
  
  