anchor.diff:    is in (state . code) form and the associated value is a lambda
     without argument."
     (let ((sc (gensym)))
  -    `(let ((,sc (compile-shortcut ',key)))
  +    `(let ((,sc (compile-shortcut ,@key)))
          (pushnew (cons ,sc #'(lambda () ,@body)) *shortcuts* :test #'equal :key #'car))))
   
   (defgeneric focus (window &key))
  
positive.code:   (find keycode *mods-code* :test #'eql))
  
  ;;; App launcher
  (defparameter *abort* (compile-shortcut '(:control #\g)))
  (defparameter *this* (compile-shortcut '(#\Return))
    "Validate THIS app even if it is a prefix of more than one.")
  
  (defun single (list) (and (consp list) (null (cdr list))))
  
negative.code: (defun sc= (sc state code) (and (= (code sc) code) (= (state sc) state)))
  
  (defparameter *shortcuts*
    (list (cons (compile-shortcut :shift #\q) 'quit))
    "Shortcuts alist initialized with the quit command.")
  
  (defmacro defshortcut (key &body body)
  