anchor.diff:  (defshortcut (#\p) (focus (next #'1-)))
   (defshortcut (:control #\n) (focus (next)))
   (defshortcut (:control #\p) (focus (next #'1-)))
  -(defshortcut (:control #\t) (flast))
  +(defshortcut (:control #\t) (focus *last*))
   
   ;;; Modifier keypress avoidance code
   (defvar *mods-code* (multiple-value-call #'append (modifier-mapping *display*)))
  
positive.code: (defmethod win= ((a window) (b list)) (loop for w in b thereis (window-equal w a)))
  (defmethod win= ((a list) (b list)) (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) 
  
negative.code: (defvar *root* (screen-root (display-default-screen *display*)))
  (defparameter *windows* nil "List of managed windows")
  (defparameter *last* nil "Last focused window")
  (defparameter *curr* nil "Current focused window (used only for group of windows).")
  
  (defun mods (l) (butlast l))
  (defun kchar (l) (car (last l)))
  