anchor.diff:      (setf (window-event-mask *root*) '(:substructure-notify))
   
       (unwind-protect
  -         (loop named eventloop do
  +         (loop do
                 (event-case 
                  (*display* :discard-p t)
                  (:key-press
  
positive.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)
  
negative.code:                            (when entry
                               (let ((fn (cdr entry)))
                                 (cond ((functionp fn) (funcall fn))
                                       ((eq fn 'quit) (loop-finish))))))
                           (ungrab-keyboard *display*)
                           (setf waiting-shortcut nil)))
                        ((and (= state (state prefix)) (= code (code prefix)))
  