anchor.diff:  (defvar *default-translator* #'translate-shift-control-combinations
     "Default key translator to use in `keymap' objects.")
   
  +;; TODO: Enable override of default and translator in lookup?
   (defclass keymap ()
     ((entries :accessor entries
               :initarg :entries
  
positive.code:   (coerce (str:join " " (mapcar #'key->keyspec keys)) 'keyspecs-type))
  
  ;; TODO: Do we need a keymap->list function?
  
negative.code:             down))
        string))
  
  (defun translate-remove-shift-toggle-case (keys)
    "With shift, keys without shift and with their key value case reversed:
  'shift-a shift-B' -> 'A b'."
  