Skip to content
Browse files

* swank-ecl.lisp (wait-for-input): Provide implementation

that doesn't need serve-event.
  • Loading branch information...
1 parent 23e4369 commit 2bd7a41d1f0726dd01a9a919bc60eeb13bc2f803 Helmut Eller committed Jun 19, 2012
Showing with 16 additions and 0 deletions.
  1. +5 −0 ChangeLog
  2. +11 −0 swank-ecl.lisp
View
5 ChangeLog
@@ -1,3 +1,8 @@
+2012-06-19 Helmut Eller <heller@common-lisp.net>
+
+ * swank-ecl.lisp (wait-for-input): Provide implementation
+ that doesn't need serve-event.
+
2012-06-12 Stas Boukarev <stassats@gmail.com>
* slime.el (slime-changelog-date): Use
View
11 swank-ecl.lisp
@@ -203,6 +203,17 @@
) ; #+serve-event (progn ...
+#-serve-event
+(defimplementation wait-for-input (streams &optional timeout)
+ (assert (member timeout '(nil t)))
+ (loop
+ (cond ((check-slime-interrupts) (return :interrupt))
+ (timeout (return (remove-if-not #'listen streams)))
+ (t
+ (let ((ready (remove-if-not #'listen streams)))
+ (if ready (return ready))
+ (sleep 0.1))))))
+
;;;; Compilation

0 comments on commit 2bd7a41

Please sign in to comment.
Something went wrong with that request. Please try again.