anchor.diff:                                       ((eq fn 'quit) (loop-finish))))))
                            (ungrab-keyboard *display*)
                            (setf waiting-shortcut nil)))
  -                      ((and (= state (state *prefix*)) (= code (code *prefix*)))
  +                      ((sc= *prefix* state code)
                          (grab-keyboard *root*)
                          (setf waiting-shortcut t))))
                  (:button-press
                   (code state child)
                   (when (and child (eql (window-override-redirect child) :off))
  -                  (cond ((and (= code (code *kill*))
  -                              (= state (state *kill*)))
  +                  (cond ((sc= *kill* state code)
                            (kill-client *display* (window-id child)))
                           (t
                            (setf last-button code)
                            (grab-pointer child '(:pointer-motion :button-release))
  -                         (when (and (= code (code *resize*))
  -                                    (= state (state *resize*)))
  +                         (when (sc= *resize* state code)
                              (warp-pointer child (drawable-width child)
                                            (drawable-height child)))
                            (let ((lst (multiple-value-list (query-pointer *root*))))
  
positive.code:         (cons state k))))
  (defun state (l) (car l))
  (defun code (l) (cdr l))
  
  (defparameter *shortcuts*
    (list (cons (compile-shortcut '(:shift #\q)) 'quit))
  
negative.code: 
  ;;; 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))))
  
  