Skip to content
Snippets Groups Projects
Commit 898d2423 authored by ram's avatar ram
Browse files

Unconditionalized out some CLX stuff in SERVE-EVENT.

parent d75189d8
No related branches found
No related tags found
No related merge requests found
...@@ -282,7 +282,7 @@ ...@@ -282,7 +282,7 @@
seconds) and then return, otherwise it will wait until something happens. seconds) and then return, otherwise it will wait until something happens.
Server returns T if something happened and NIL otherwise." Server returns T if something happened and NIL otherwise."
;; First, check any X displays for any pending events. ;; First, check any X displays for any pending events.
#+nil #+clx
(dolist (d/h *display-event-handlers*) (dolist (d/h *display-event-handlers*)
(let ((d (car d/h))) (let ((d (car d/h)))
(when (xlib::event-listen d) (when (xlib::event-listen d)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment