anchor.diff:      (focus (minus window))))
   
   (defun evloop ()
  -  (do () ((eql (handler-bind ((window-error #'skip-window))
  +  (do () ((eql (handler-bind ((window-error #'skip-window)
  +                              (match-error #'skip-window))
                    (process-event *display* :handler *handlers* :discard-p t)) 'quit))))
   
   (defun main ()
  
positive.code:   (send-event window :client-message nil :window window
                       :type type :format 32 :data data))
  
  (defun send-prefix (window)
    (send-event window :key-press (make-event-mask :key-press)
                       :window window
                       :code (code *prefix*)
                       :state (state *prefix*)))
  
  ;;; Apps in path
  (defun execp (pathname)
    "Return T if the pathname describes an executable file."
  
negative.code: (defparameter *resize* (compile-shortcut :mod-1 3) "Mouse button to resize a window")
  (defparameter *close* (compile-shortcut :control :mod-1 2)
    "Mouse button to close a window")
  
  (defun send-prefix (window)
    (send-event window :key-press (make-event-mask :key-press)
                       :window window
                       :code (code *prefix*)
                       :state (state *prefix*)))
  
  (defun grab-all ()
    "Grab prefix and mouse buttons on root."
  