anchor.diff:  
   (defun app ()
     (grab-keyboard *root*)
  -  (unwind-protect 
  +  (unwind-protect
          (recdo 0 *apps* #'(lambda (app) (run-program app nil :wait nil :search t)))
       (ungrab-keyboard *display*)))
   
  
positive.code: (defshortcut (:control #\p) (focus (next #'1-)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  
  (defun send-prefix ()
    (let ((focus (input-focus *display*)))
  
negative.code: (defvar *display* (open-default-display))
  (defvar *root* (screen-root (display-default-screen *display*)))
  (defparameter *windows* nil "List of managed and mapped windows.")
  (defparameter *hidden* nil "List of hidden windows.")
  (defparameter *last* nil "Last focused window.")
  (defparameter *curr* nil "Current focused window.")
  
  