From 8e70bfe84f1d1c588e98730daa750fb0584a1018 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 11 Dec 1992 00:56:24 +0000
Subject: [PATCH] Delete #+CLX conditional on HANDLE-QUEUED-CLX-EVENT, since we
 want to be able to load-time conditionalize whether CLX is present.

---
 code/serve-event.lisp | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/code/serve-event.lisp b/code/serve-event.lisp
index e130ac1ef..bf08f694b 100644
--- a/code/serve-event.lisp
+++ b/code/serve-event.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.17 1992/09/09 17:45:14 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/serve-event.lisp,v 1.18 1992/12/11 00:56:24 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -362,7 +362,6 @@
 
 ;;; Check for any X displays with pending events.
 ;;;
-#+clx
 (defun handle-queued-clx-event ()
   (dolist (d/h *display-event-handlers*)
     (let* ((d (car d/h))
@@ -423,8 +422,8 @@
 ;;;    Takes timeout broken into seconds and microseconds.
 ;;;
 (defun sub-serve-event (to-sec to-usec)
-  #+clx
-  (when (handle-queued-clx-event) (return-from sub-serve-event t))
+  (when (handle-queued-clx-event)
+    (return-from sub-serve-event t))
 
   ;; Next, wait for something to happen.
   (multiple-value-bind
-- 
GitLab