anchor.diff:       (kbd-keys (cons string-or-first-key keys)))))
   
   (defun keymap-find-command (keymap key)
  -  (let ((cmd (gethash (kbd-list key) (keymap-table keymap))))
  +  (let ((cmd (gethash key (keymap-table keymap))))
       (or cmd
           (let ((keymap (keymap-parent keymap)))
             (when keymap
  
positive.code:   ((list :initarg :list
           :reader kbd-list)))
  
  (defun kbd-p (x)
    (typep x 'kbd))
  
  
negative.code:       (list (gethash str *string->key*))))
  
  (defun kbd-string (str)
    (make-kbd
     (mapcan #'(lambda (str)
                 (if (and (< 4 (length str))
                          (string= str "C-M-" :end1 4))
                     (kbd-string-1 (concatenate 'string
                                                "M-C-" (subseq str 4)))
                     (kbd-string-1 str)))
             (split-string str #\space))))
  
  (defun kbd-keys (keys)
    (make-kbd keys))
  
  (defun kbd (string-or-first-key &rest keys)
    (etypecase string-or-first-key
  