[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv16818

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* swank-ecl.lisp (wait-for-input): Provide implementation
that doesn't need serve-event.

--- /project/slime/cvsroot/slime/ChangeLog	2012/06/12 09:25:30	1.2343
+++ /project/slime/cvsroot/slime/ChangeLog	2012/06/19 19:46:53	1.2344
@@ -1,3 +1,8 @@
+2012-06-19  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-ecl.lisp (wait-for-input): Provide implementation
+	that doesn't need serve-event.
+
 2012-06-12  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-changelog-date): Use
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2012/04/20 21:58:18	1.75
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2012/06/19 19:46:53	1.76
@@ -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