anchor.diff:                    (focus window)))
                  (:destroy-notify
                   (window)
  -                (setf *windows* (remove window *windows* :test #'window-equal)))))
  +                (setf *windows* (remove window *windows* :test #'window-equal))
  +                (when (window-equal window *last*) (setf *last* nil)))))
         (ungrab-button *root* (code move) :modifiers (state move))
         (ungrab-button *root* (code resize) :modifiers (state resize))
         (ungrab-key *root* (code prefix) :modifiers (state prefix))
  
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: (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))
  (defshortcut (#\p) (next #'1-))
  (defshortcut (:control #\t) (flast))
  (defshortcut (#\h) (toggle-hide))
  
  ;;; Modifier keypress avoidance code
  