[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
* swank-sbcl.lisp (input-ready-p): Don't use
sb-impl::fd-stream-fd-type if it's not present.


--- /project/slime/cvsroot/slime/ChangeLog	2011/12/12 06:59:26	1.2287
+++ /project/slime/cvsroot/slime/ChangeLog	2011/12/21 16:19:51	1.2288
@@ -1,3 +1,8 @@
+2011-12-21  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-sbcl.lisp (input-ready-p): Don't use
+	sb-impl::fd-stream-fd-type if it's not present.
+
 2011-12-12  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-compile-region): Run slime-flash-region
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/03 19:47:45	1.299
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2011/12/21 16:19:52	1.300
@@ -201,6 +201,7 @@
         (when buffer
           (< (sb-impl::buffer-head buffer)
              (sb-impl::buffer-tail buffer))))
+      #+#.(swank-backend:with-symbol 'fd-stream-fd-type 'sb-impl)
       (eq :regular (sb-impl::fd-stream-fd-type stream))
       (not (sb-impl::sysread-may-block-p stream))))