From 898d2423793472b02cbc22f11762cc3dfa93164f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 31 Jan 1991 18:16:29 +0000 Subject: [PATCH] Unconditionalized out some CLX stuff in SERVE-EVENT. --- code/serve-event.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/serve-event.lisp b/code/serve-event.lisp index ac036da4b..61df51fc4 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) -- GitLab