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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
Fixed preferred-communication-style (last fix was broken).

Date: Wed Apr 20 14:43:49 2005
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.131 slime/swank-sbcl.lisp:1.132
--- slime/swank-sbcl.lisp:1.131	Wed Apr 20 12:23:29 2005
+++ slime/swank-sbcl.lisp	Wed Apr 20 14:43:49 2005
@@ -41,14 +41,11 @@
 
 ;;; TCP Server
 
-(defun communication-style ()
+(defimplementation preferred-communication-style ()
   (if (and (member :sb-thread *features*)
            (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))
       :spawn
       :fd-handler))
-
-(defimplementation preferred-communication-style ()
-  (if (sb-int:featurep :sb-thread) :spawn :fd-handler))
         
 (defun resolve-hostname (name)
   (car (sb-bsd-sockets:host-ent-addresses