[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (wait-for-input): Define only if
#+os-provides-poll or #+win32.


--- /project/slime/cvsroot/slime/ChangeLog	2011/12/02 19:52:14	1.2257
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/02 20:24:03	1.2258
@@ -1,6 +1,7 @@
 2011-12-02  Stas Boukarev  <stassats at gmail.com>
 
-	* swank-sbcl.lisp (wait-for-input): Use poll only on #+os-provides-poll.
+	* swank-sbcl.lisp (wait-for-input): Define only if
+	#+os-provides-poll or #+win32.
 
 2011-12-02  Helmut Eller  <heller at common-lisp.net>
 
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/02 19:52:15	1.296
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/02 20:24:03	1.297
@@ -179,6 +179,7 @@
 
 (defvar *wait-for-input-called*)
 
+#+(or win32 os-provides-poll)
 (defimplementation wait-for-input (streams &optional timeout)
   (assert (member timeout '(nil t)))
   (when (boundp '*wait-for-input-called*)
@@ -257,9 +258,9 @@
                    :interrupt)
                   (t
                    (error "~a" (sb-int:strerror errno)))))))))
-
   )
-#-os-provides-poll
+
+#+win32
 (progn
   (defun input-ready-p (stream)
     (or (not (fd-stream-input-buffer-empty-p stream))