anchor.diff:  (defshortcut (#\e) (run-program "emacs" 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 *display*))
  -(defshortcut (#\p) (next *display* #'1-))
  +(defshortcut (#\n) (next))
  +(defshortcut (#\p) (next #'1-))
  +(defshortcut (:control #\t) (flast))
   (defshortcut (#\h) (toggle-hide))
   
   ;;; Modifier keypress avoidance code
  
positive.code:     `(let ((,sc (compile-shortcut ',key)))
         (pushnew (cons ,sc #'(lambda () ,@body)) *shortcuts* :test #'equal :key #'car))))
  
  (defun next (display &optional (way #'1+))
    (when *windows*
      (let* ((cw (input-focus display))
             (ncw (or (position-if #'(lambda (w) (window-equal w cw)) *windows*) 0))
             (n (length *windows*))
             (next (mod (funcall way ncw) n)))
        (focus (nth next *windows*)))))
  
  (defun focus (window)
    (setf (window-priority window) :above)
    (set-input-focus *display* window :pointer-root))
  
  (defun toggle-hide ()
    (dolist (w *windows*)
  
negative.code:              (query-tree *root*))
    "List of managed windows")
  
  (defparameter *last* nil "Last focused window")
  
  (defmacro defshortcut (key &body body)
    "Define a new shortcut in *shortcuts* alist. The key in this alist
    is in (state . code) form and the associated value is a lambda
  