Permalink
Browse files

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

that doesn't need serve-event.
  • Loading branch information...
Helmut Eller
Helmut Eller committed Jun 19, 2012
1 parent 23e4369 commit 2bd7a41d1f0726dd01a9a919bc60eeb13bc2f803
Showing with 16 additions and 0 deletions.
  1. +5 −0 ChangeLog
  2. +11 −0 swank-ecl.lisp
View
@@ -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
@@ -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.