anchor.diff:          (apply #'move *curr* *dim*)
           (setf *dim* nil))
         (setf *last* *curr*))
  -    (let* ((grouper (find-if #'(lambda (f) (funcall f window)) *groupers*))
  +    (let* ((grouper (grouper window))
              (group (when (functionp grouper)
                       (loop for w in (windows)
                             when (funcall grouper w) collect w))))
  
positive.code: (defshortcut (:mod-1 #\e) (run-program "envi" nil :wait nil :search t))
  (defshortcut (#\n) (focus (next)))
  (defshortcut (:control #\n) (focus (next)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  (defshortcut (#\f) (fullscreen))
  
negative.code:   (labels ((ok-win-p (window)
               (and (eql (window-map-state window) :viewable)
                    (eql (window-override-redirect window) :off))))
      (sort (loop for w in (query-tree *root*)
                  when (ok-win-p w) collect w) #'< :key #'drawable-id)))
  
  (defun grouper (window)
    "Get the grouper function of a window if there is one."
    (find-if #'(lambda (f) (funcall f window)) *groupers*))
  
  (defun focus (window)
    (unless (null window)
  