anchor.diff:      ()
     (:interface +core-interface+)
     (:name "push_input_event")
  +  (%%push-input-event key-code key-string modifiers x y low-level-data sender)
  +  (values))
  +
  +(defun %%push-input-event (key-code key-string modifiers x y low-level-data sender)
     (let ((key-chord (make-key-chord
                       :key-code key-code
                       :key-string key-string
  
positive.code:                                    active-window
                                     key-chord)
             (setf (key-chord-stack *interface*) nil))
            (t (setf (key-chord-stack *interface*) nil))))))
    (values))
  
  (defun define-key (&rest key-command-pairs
                     &key mode (scheme :emacs) keymap
  
negative.code: 
  (defun look-up-key-chord-stack (window key-chord-stack)
    "Return the function bound to key-chord-stack for current window.
  The resulting function wraps around the method and its associated mode so that
  it can be called without argument."
    (let* ((key-sequence (serialize-key-chord-stack key-chord-stack))
           (key-sequence-normal (serialize-key-chord-stack key-chord-stack :normalize t))
  