anchor.diff:    "A variable to store the status of the super/cmd key")
   
   (defparameter global-map (make-hash-table :test 'equalp)
  -  "A global key map")
  +  "A global key map, available in every mode/buffer")
   (defparameter *key-sequence-stack* ()
  -  "A buffer that keeps track of the keys a user has inputted")
  +  "A stack that keeps track of the key chords a user has inputted")
   
   (defstruct key
     character
  
positive.code:   (setf (gethash key-sequence mode-map) function))
  
  (defun kbd (key-sequence-string)
    (let ((key-sequence ()))
      ;; Iterate through all key chords (space delimited)
      (loop for key-chord-string in (split key-sequence-string " ")
         ;; Iterate through all keys in chord (hyphen delimited)
         do (let ((key-chord (make-key)))
  	    (loop for key-character-string in (split key-chord-string "-")
  	       do (cond
  		    ((equal "C" key-character-string) (setf (key-control-modifier key-chord) t))
  		    (t (setf (key-character key-chord)
  			     ;; Convert from the actual key to the QT code representation
  			     (gethash key-character-string *character->keycode*)))))
  	    (push key-chord key-sequence)))
      key-sequence))
  
negative.code: ;;; keymap.lisp --- lisp subroutines for key binding detection
  
  (in-package :next)
  (ql:quickload :cl-strings)
  (use-package :cl-strings)
  