[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (wait-for-input): Use poll only on #+os-provides-poll.


--- /project/slime/cvsroot/slime/ChangeLog	2011/12/02 18:17:54	1.2256
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/02 19:52:14	1.2257
@@ -1,3 +1,7 @@
+2011-12-02  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-sbcl.lisp (wait-for-input): Use poll only on #+os-provides-poll.
+
 2011-12-02  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (listener-channel): Moved to contrib/swank-mrepl.lisp
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/01 22:34:41	1.295
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/02 19:52:15	1.296
@@ -189,14 +189,14 @@
        (when ready (return ready)))
      (when (check-slime-interrupts) (return :interrupt))
      (when *wait-for-input-called* (return :interrupt))
-     #-win32
-     (progn
-       (let ((readable (poll streams () (ecase timeout 
-                                          ((nil) nil)
-                                          ((t) 0)))))
-         (when readable (return readable))
-         (when timeout (return nil))))
-     #+win32
+     #+os-provides-poll
+     (let ((readable (poll streams () (ecase timeout 
+                                        ((nil) nil)
+                                        ((t) 0)))))
+       (when readable (return readable))
+       (when timeout (return nil)))
+
+     #-os-provides-poll
      (progn
        (when timeout (return nil))
        (sleep 0.1)))))
@@ -207,7 +207,7 @@
         (= (sb-impl::buffer-head buffer)
            (sb-impl::buffer-tail buffer)))))
 
-#-win32
+#+os-provides-poll
 (progn
   (defun input-ready-p (stream)
     (not (fd-stream-input-buffer-empty-p stream)))
@@ -259,7 +259,7 @@
                    (error "~a" (sb-int:strerror errno)))))))))
 
   )
-#+win32
+#-os-provides-poll
 (progn
   (defun input-ready-p (stream)
     (or (not (fd-stream-input-buffer-empty-p stream))