anchor.diff:  
       (unwind-protect
            (loop do
  -              (event-case 
  +              (event-case
                  (*display* :discard-p t)
                  (:key-press
                   (code state)
  
positive.code: 
      ;; Populate list of windows
      (loop for w in (query-tree *root*) do
           (when (and (eql (window-map-state w) :viewable) 
                      (eql (window-override-redirect w) :off))
             (add-window w)))
  
  
negative.code: (defun state (l) (car l))
  (defun code (l) (cdr l))
  
  (defparameter *shortcuts*
    (list (cons (compile-shortcut '(:shift #\q)) 'quit))
    "Shortcuts alist initialized with the quit command.")
  
  