(defun perform-mouse-action (press? button)
  (ignore-errors (progn (xlib/xtest:fake-button-event *display* button press? :delay 0.5)
		       (xlib:display-force-output *display*))))
   ; (xlib:value-error () nil)))

(defun up ()
  (perform-mouse-action nil t))

 
(defun down ()
  (unwind-protect
       (perform-mouse-action t 1)
    (up)))