anchor.diff:  (defshortcut (:mod-1 #\e) (run-program "envi" nil :wait nil :search t))
   (defshortcut (#\w) (run-program "xxxterm" nil :wait nil :search t))
   (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
  -(defshortcut (#\n) (next))
  -(defshortcut (#\p) (next #'1-))
  -(defshortcut (:control #\n) (next))
  -(defshortcut (:control #\p) (next #'1-))
  +(defshortcut (#\n) (focus (next)))
  +(defshortcut (#\p) (focus (next #'1-)))
  +(defshortcut (:control #\n) (focus (next)))
  +(defshortcut (:control #\p) (focus (next #'1-)))
   (defshortcut (:control #\t) (flast))
   
   ;;; Modifier keypress avoidance code
  
positive.code: (defun focus-1 (window)
    (when (eql (window-map-state window) :viewable)
      (setf (window-priority window) :above)
      (set-input-focus *display* window :pointer-root)
      (display-finish-output *display*)))
  
  (defun focus (window)
    (setf *last* (have-focus))
    (if (listp window)
        (dolist (w window) (focus-1 w))
        (focus-1 window)))
  
  (defun win= (a b)
    (cond ((and (window-p a) (window-p b))
  
negative.code:         ((and (listp a) (listp b))
           (loop for w in a thereis (win= w b)))))
  
  (defun next (&optional (way #'1+) (window (has-focus)))
    (when *windows*
      (let* ((nw (or (position window *windows* :test #'win=) 0))
             (n (length *windows*))
             (next (mod (funcall way nw) n)))
        (nth next *windows*))))
  
  (defun flast ()
    (let ((me (has-focus)))
      (when (or (null *last*) (win= *last* me))
        (setf *last* (next #'1- me)))
      (focus *last*)))
  
  (defparameter *groupers* (list 
                            #'(lambda (w) 
  