[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv7755

Modified Files:
	ChangeLog swank-clisp.lisp 
Log Message:
* swank-clisp.lisp (wait-for-input): Disable it for win32.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/02 22:03:27	1.1625
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/03 21:13:00	1.1626
@@ -1,3 +1,7 @@
+2009-01-03  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-clisp.lisp (wait-for-input): Disable it for win32.
+
 2009-01-02  Helmut Eller  <heller at common-lisp.net>
 
 	Experimental implementation of "channels".
--- /project/slime/cvsroot/slime/swank-clisp.lisp	2008/12/30 18:57:54	1.85
+++ /project/slime/cvsroot/slime/swank-clisp.lisp	2009/01/03 21:13:00	1.86
@@ -177,6 +177,7 @@
                         :element-type 'character
                         :external-format external-format))
 
+#-win32
 (defimplementation wait-for-input (streams &optional timeout)
   (assert (member timeout '(nil t)))
   (let ((streams (mapcar (lambda (s) (list* s :input nil)) streams)))