anchor.diff:  
   \"C-M-1 x\" on a QWERTY:
   
  -  (define-key foo-map '((:code 10 :modifiers (\"C\" \"M\") (:value \"x\")) 'find-file)"
  +  (define-key foo-map '((:code 10 :modifiers (\"C\" \"M\") (:value \"x\"))) 'find-file)
  +
  +or the shorter:
  +
  +  (define-key foo-map \"C-M-#1\" 'find-file)"
     (let ((keys (if (listp binding)
                     (mapcar (alex:curry #'apply #'make-key) binding)
                     (keyspecs->keys binding))))
  
positive.code:         (when (fset:@ (entries keymap) (first keys))
            ;; TODO: Notify caller properly.
            (warn "Key was bound to ~a" (fset:@ (entries keymap) (first keys))))
          (setf (fset:@  (entries keymap) (first keys)) sym))
        (let ((submap (fset:@ keymap (first keys))))
          (unless (keymap-p submap)
            (setf submap (make-keymap))
  
negative.code: 
  (defun bind-key (keymap keys sym)
    "Recursively bind the KEYS to keymaps starting from KEYMAP.
  The last key is bound to SYM.
  Return KEYMAP."
    (when (< (length keys) 1)
      (error "Empty key specifier."))
    (if (= (length keys) 1)
  