anchor.diff:        (when *dim*
           (apply #'move *curr* *dim*)
           (setf *dim* nil)))
  -    (setf *curr* window)
  -
       (let* ((grouper (find-if #'(lambda (f) (funcall f window)) *groupers*))
              (group (when (functionp grouper)
                       (loop for w in (query-tree *root*)
  
positive.code:       ;;           (format t "Error ~a~%" c))) 'quit))
        ((eql (process-event *display* :handler *handlers* :discard-p t) 'quit))))
  
  
  (defun main ()
    ;; Grab prefix and mouse buttons on root
    (grab-key *root* (code *prefix*) :modifiers (state *prefix*))
  
negative.code:             (t (set-input-focus *display* window :pointer-root)))
        (when (ok-win-p window)
          (setf (window-priority window) :above))
        (setf *curr* window)
        (display-finish-output *display*))))
  
  (defun next ()
  