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:             *curr* window)
        (display-finish-output *display*))))
  
  (defun next ()
    (let* ((windows (windows))
           (nw (or (position *curr* windows :test #'win=) 0))
           (n (length windows)))
      (unless (zerop n)
        (nth (mod (1+ nw) n) windows))))
  
  (defun minus (window)
    "House keeping when window is unmapped. Returns the window to be
  
negative.code: (defshortcut (:mod-1 #\e) (run-program "envi" nil :wait nil :search t))
  (defshortcut (#\n) (focus (next)))
  (defshortcut (:control #\n) (focus (next)))
  (defshortcut (#\p) (focus (next #'1-)))
  (defshortcut (:control #\p) (focus (next #'1-)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  (defshortcut (#\f) (fullscreen))
  