anchor.diff:  (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 (first (states *prefix*))))
  +  (xlib:send-event window :key-press (xlib:make-event-mask :key-press)
  +                          :window window
  +                          :code (code *prefix*)
  +                          :state (first (states *prefix*))))
   
   (defun grab-it (shortcut &key inverse-p)
     "Grab a given key or button shortcut in all its
  
positive.code: 	(run program))))
  
  (defun send-message (window type &rest data)
    (send-event window :client-message nil :window window
                       :type type :format 32 :data data))
  
  ;;; Apps in path
  (defun execp (pathname)
  
negative.code:                        when (execp file) collect (file-namestring file)))))
  
  ;;; Modifier keypress avoidance code
  (defvar *mods-code* (multiple-value-call #'append (xlib:modifier-mapping *display*)))
  
  (defun is-modifier (keycode)
    "Return non-nil if keycode is a modifier"
  