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: (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)
  
negative.code: 
  (defun mods (l) (butlast l))
  (defun kchar (l) (car (last l)))
  (defun compile-shortcut (&rest l)
    "Compile a shortcut into a (state . code) form. For
  example: (compile-shortcut :control #\t) -> (4 . 44). Works also
  for mouse button."
    (let ((k (kchar l))
          (state (apply #'make-state-mask (mods l))))
  