diff --git a/code/serve-event.lisp b/code/serve-event.lisp index ac036da4bba303984e6533382c4448633b674452..61df51fc43492547edef252c5d5d3464d5b6fa45 100644 --- a/code/serve-event.lisp +++ b/code/serve-event.lisp @@ -282,7 +282,7 @@ seconds) and then return, otherwise it will wait until something happens. Server returns T if something happened and NIL otherwise." ;; First, check any X displays for any pending events. - #+nil + #+clx (dolist (d/h *display-event-handlers*) (let ((d (car d/h))) (when (xlib::event-listen d)