anchor.diff:    (setf *last* (setf *curr* (first *windows*)))
     (focus *curr*)
   
  -  (unwind-protect (evloop)
  +  (unwind-protect (handler-bind ((window-error #'skip-window)) (evloop))
       (ungrab-all)
       (close-display *display*)))
   
  
positive.code:     (format t "~&configure-request: ~a ~a ~s~%" window value-mask list-mask)
      (when list-mask (apply #'move window list-mask))))
  
  (defun evloop ()
    (do () ((eql (process-event *display* :handler *handlers* :discard-p t) 'quit))))
  
  
negative.code: 
  (defun grouper (window)
    "Get the grouper function of a window if there is one."
    (and window (restart-case (find-if #'(lambda (f) (funcall f window)) *groupers*)
  		(dead-window () nil))))
  
  (defun transient-for-p (transient parent)
    (let ((pid (window-id parent)))
  