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