anchor.diff:                             (when entry
                                (let ((fn (cdr entry)))
                                  (cond ((functionp fn) (funcall fn))
  -                                     ((eq fn 'quit) (return-from eventloop))))))
  +                                     ((eq fn 'quit) (loop-finish))))))
                            (ungrab-keyboard *display*)
                            (setf waiting-shortcut nil)))
                         ((and (= state (state prefix)) (= code (code prefix)))
  
positive.code:     (setf (window-event-mask *root*) '(:substructure-notify))
  
      (unwind-protect
           (loop named eventloop do
                (event-case 
                 (*display* :discard-p t)
                 (:key-press
  
negative.code:                                 (t (cons hd (radd item tl pred test)))))))))
        (setf *windows* (radd window *windows* grouper #'win=))
        (find window *windows* :test #'win=))))
  
  (defun rrem (item list &key (test #'eql))
    "Recursive remove."
    (unless (null list)
  