anchor.diff:      (push key-chord *key-sequence-stack*)))
   
   (defun consume-key-sequence ()
  -  (print *key-sequence-stack*)
     ;; If key recognized, execute function
     (if (gethash *key-sequence-stack* global-map)
         (progn
  
positive.code: 	    (push key-chord key-sequence)))
      key-sequence))
  
  (defun print-hey ()
    (print "hey"))
  
  (define-key global-map (kbd "a") #'print-hey)
  
  
  
negative.code:     (#.|Qt.Key_Control|
         (setf *control-modifier* t))
      (t ; all other keys
       (progn
         (push-key-chord (|text| event))
         (consume-key-sequence)))))
  
  (defun key-release (obj event)
    (case (|key| event)
  