anchor.diff:  
   (defun stringify (serialized-key-stack)
     "Return string representation of a serialized key-chord stack.
  -   E.g. print ((nil - C) (nil x C)) as \"C-x C--\". This is
  +   E.g. print ((nil - C) (nil x C)) as 'C-x C--'. This is
      effectively the inverse of `serialize-key-chord-stack'."
     (format nil "~{~a~^ ~}"
             (mapcar (lambda (serialized-key-chord)
  
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:    Examples:
  
    ;; Only affect the first mode of the current buffer:
    (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)))
  