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:     (ungrab-keyboard *display*)))
  
  ;;; Mouse shorcuts
  (defparameter *move* (compile-shortcut '(:mod-1 1)) "Mouse button to move a window")
  (defparameter *resize* (compile-shortcut '(:mod-1 3)) "Mouse button to resize a window")
  (defparameter *close* (compile-shortcut '(:control :mod-1 2))
    "Mouse button to close a window")
  
  ;;; Key shortcuts
  (defparameter *prefix* (compile-shortcut '(:control #\t)) "Prefix for shortcuts")
  (defshortcut (#\c) (run-program "xterm" nil :wait nil :search t))
  (defshortcut (#\e) (emacs))
  (defshortcut (#\w) (xxxterm))
  
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))))
  