anchor.diff:  (defun state (l) (car l))
   (defun code (l) (cdr l))
   
  -(defparameter *shortcuts* 
  +(defparameter *shortcuts*
     (list (cons (compile-shortcut '(:shift #\q)) 'quit))
     "Shortcuts alist initialized with the quit command.")
   
  
positive.code:            (rtl (rrem item tl :test test)))
        (cond ((listp hd)
               (let ((rhd (rrem item hd :test test)))
                 (if rhd 
                     (cons rhd rtl)
                     rtl)))
              ((funcall test item hd) rtl)
  
negative.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)))
  
  