[slime-cvs] CVS slime

[CVS User nsiivola]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
sbcl: fix INPUT-READY-P

  What a moronic bug. *blush*


--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/03 15:31:08	1.298
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/03 19:47:45	1.299
@@ -199,7 +199,7 @@
 (defun input-ready-p (stream)
   (or (let ((buffer (sb-impl::fd-stream-ibuf stream)))
         (when buffer
-          (= (sb-impl::buffer-head buffer)
+          (< (sb-impl::buffer-head buffer)
              (sb-impl::buffer-tail buffer))))
       (eq :regular (sb-impl::fd-stream-fd-type stream))
       (not (sb-impl::sysread-may-block-p stream))))