anchor.diff:             (rtl (rrem item tl :test test)))
         (cond ((listp hd)
                (let ((rhd (rrem item hd :test test)))
  -               (if rhd 
  +               (if rhd
                      (cons rhd rtl)
                      rtl)))
               ((funcall test item hd) rtl)
  
positive.code: 
      (unwind-protect
           (loop do
                (event-case 
                 (*display* :discard-p t)
                 (:key-press
                  (code state)
  
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.")
  
  