[slime-cvs] CVS update: slime/swank-sbcl.lisp

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(preferred-communication-style): Choose :fd-handler instead of :sigio
when threads aren't available. A lot of people seem to have had
problems with :sigio on SBCL.

Date: Wed Jun 30 06:45:32 2004
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.93 slime/swank-sbcl.lisp:1.94
--- slime/swank-sbcl.lisp:1.93	Sun Jun 27 08:00:56 2004
+++ slime/swank-sbcl.lisp	Wed Jun 30 06:45:32 2004
@@ -38,13 +38,10 @@
 ;;; TCP Server
 
 (defimplementation preferred-communication-style ()
-  (cond ((and (sb-int:featurep :sb-thread)
-              (sb-int:featurep :sb-futex))
-         :spawn)
-        ((fboundp 'sb-posix::fcntl)
-         :sigio)
-        (t
-         :fd-handler)))
+  (if (and (sb-int:featurep :sb-thread)
+           (sb-int:featurep :sb-futex))
+      :spawn
+      :fd-handler))
         
 (defun resolve-hostname (name)
   (car (sb-bsd-sockets:host-ent-addresses