anchor.diff:    (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'."
  +   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~^-~}"
  
positive.code: (declaim (ftype (function (key-chord) boolean) printable-p))
  (defun printable-p (key-chord)
    "Return non-nil if key-chord is printable.
  Letters are printable, while function keys or backspace are not."
    ;; See INPUT_IS_PRINTABLE in platform port.
    (= -2 (second (key-chord-position key-chord))))
  
  
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."
    (let ((key-sequence (key key-sequence-string)))
      (setf (gethash key-sequence (table map)) command)
      ;; generate prefix representations
  