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 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
     effectively the inverse of `serialize-key-chord-stack'."
    (format nil "~{~a~^ ~}"
            (mapcar (lambda (serialized-key-chord)
  
negative.code:   ;; See INPUT_IS_PRINTABLE in platform port.
    (= -2 (second (key-chord-position key-chord))))
  
  (defun push-input-event (key-code key-string modifiers x y low-level-data sender)
    "Add a new key chord to the interface key-chord-stack."
    (let ((key-chord (make-key-chord
                      :key-code key-code
                      :key-string key-string
  