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