anchor.diff:                     &allow-other-keys)
     ;; TODO: Add option to define-key over the keymaps of all instantiated modes.
     "Bind KEY to COMMAND.
  -The KEY command transforms key chord strings to valid key sequences.
  -
  -Examples:
  +   The KEY command transforms key chord strings to valid key sequences.
  +
  +   Examples:
   
     ;; Only affect the first mode of the current buffer:
     (define-key \"C-c C-c\" 'reload
  
positive.code:   (mapcar (lambda (k) (serialize-key-chord k :normalize normalize))
            key-chord-stack))
  
  ;; TODO: Ideally, we wouldn't need the serialized intermediary representation
  ;; and we could remove this function altogether.
  (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)
                      (format nil "~{~a~^-~}"
  
negative.code:   nil)
  
  (defun serialize-key-chord (key-chord &key normalize)
    "When NORMALIZE is non-nil, remove the shift modifier and upcase the keys."
    (let ((modifiers (copy-list (key-chord-modifiers key-chord))))
      (when (and normalize
  