anchor.diff:     Examples:
   
     ;; Only affect the first mode of the current buffer:
  -  (define-key \"C-c C-c\" 'reload
  +  (define-key 'C-c C-c' 'reload
                 :keymap (getf (keymap-schemes (first (modes (current-buffer)))) :emacs))"
     ;; SBCL complains if we modify KEY-COMMAND-PAIRS directly, so we work on a copy.
     (let ((key-command-pairs-copy (copy-list key-command-pairs)))
  
positive.code: (defun key (key-sequence-string)
    "Turn KEY-SEQUENCE-STRING into a sequence of serialized key-chords.
     The return value is a list of strings.  The KEY-SEQUENCE-STRING is in the form
     of \"C-x C-s\".
     
     Firstly, we break it apart into chords: \"C-x\" and \"C-s\".  Then, we break
     apart the chords into individual keys.  We use those individual keys to create a
     `key' struct that describes the chord.  We now have two `key's.  We connect
     these two keys in a list in reverse (<key C-s> <key C-x>) to
  
negative.code: (defmethod set-key ((map keymap) key-sequence-string command)
    "Bind KEY-SEQUENCE-STRING to COMMAND in MAP.
  
    A sequence of 'C-x' 'C-s' 'C-a' will be broken up into three
    keys for the mode map, which are
  
    'C-x' 'C-s' 'C-a' - points to COMMAND
    'C-x' 'C-s'         - set to 'prefix'
    'C-x'                 - set to 'prefix'
  
    When a key is set to #'prefix it will not consume the stack, so that
    a sequence of keys longer than one key-chord can be recorded."
  