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

[Luke Gorrie]

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

Modified Files:
	swank-sbcl.lisp 
Log Message:
(communication-style): Use `linux_no_threads_p' alien variable to
decide whether to use :SPAWN. From dan_b for compatibility with new
SBCLs.

Date: Wed Apr 20 12:23:29 2005
Author: lgorrie

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.130 slime/swank-sbcl.lisp:1.131
--- slime/swank-sbcl.lisp:1.130	Tue Apr 19 22:17:55 2005
+++ slime/swank-sbcl.lisp	Wed Apr 20 12:23:29 2005
@@ -41,6 +41,12 @@
 
 ;;; TCP Server
 
+(defun 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))