anchor.diff:  (defvar *display* (open-default-display))
   (defvar *root* (screen-root (display-default-screen *display*)))
   (defparameter *handlers* (make-list (length xlib::*event-key-vector*)
  -                                    :initial-element
  -                                    #'(lambda (&rest slots))))
  +                                    :initial-element #'(lambda (&rest slots))))
   (defparameter *windows* nil "List of managed and mapped windows.")
   (defparameter *hidden* nil "List of hidden windows.")
   (defparameter *last* nil "Last focused window.")
  
positive.code: (defun single (list) (and (consp list) (null (cdr list))))
  
  (defun one-char ()
    (event-case (*display*)
                (:key-press (code state)
                            (cond ((is-modifier code) (one-char))
                                  ((sc= *abort* state code) *abort*)
                                  ((sc= *this* state code) *this*)
                                  (t (keycode->character *display* code state))))))
  
  (defun recdo (pos list fn)
    (cond ((null list))
          ((single list)
           (funcall fn (car list)))
          (t (let ((char (one-char)))
               (etypecase char
                 (character
                  (let ((sublist (remove-if #'(lambda (str)
                                                (or (>= pos (length str))
                                                    (char/= (elt str pos) char))) list)))
                    (recdo (1+ pos) sublist fn)))
                 (cons
                  (cond ((sc= char (state *abort*) (code *abort*)))
                        ((sc= char (state *this*) (code *this*))
                         (let ((sublist (remove-if #'(lambda (str) (/= (length str) pos))
                                                   list)))
                           (recdo (1+ pos) sublist fn))))))))))
  
  (defun app ()
    (grab-keyboard *root*)
    (unwind-protect
         (recdo 0 *apps* #'(lambda (app) (run-program app nil :wait nil :search t)))
      (ungrab-keyboard *display*)))
  
  ;;; Mouse shorcuts
  
negative.code: (defshortcut (:control #\p) (focus (next #'1-)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  (defshortcut (#\f) (finder))
  (defshortcut (#\h) (toggle-hide))
  
  (defun send-prefix ()
  