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