anchor.diff:  
   (defun look-up-key-chord-stack (window key-chord-stack)
     "Return the function bound to key-chord-stack for current window.
  -The resulting function wraprs around the method and its associated mode so that
  +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))
  
positive.code:     ()
    (:interface +core-interface+)
    (:name "push_input_event")
    (let ((key-chord (make-key-chord
                      :key-code key-code
                      :key-string key-string
  
negative.code:                                    active-window
                                     key-chord)
             (setf (key-chord-stack *interface*) nil))
            (t (setf (key-chord-stack *interface*) nil)))))))
  
  (defun define-key (&rest key-command-pairs
                     &key mode (scheme :emacs) keymap
  