[slime-cvs] CVS slime

[crhodes]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv9203

Modified Files:
	ChangeLog swank-sbcl.lisp 
Log Message:
Use the NIL communication style for sbcl/win32 (and document it, too)


--- /project/slime/cvsroot/slime/ChangeLog	2006/04/18 07:47:08	1.886
+++ /project/slime/cvsroot/slime/ChangeLog	2006/04/19 09:18:53	1.887
@@ -1,3 +1,10 @@
+2006-04-19  Christophe Rhodes <csr21 at cam.ac.uk>
+
+	* swank-sbcl.lisp (preferred-communication-style): Make it nil
+	under win32, for now.
+
+	* doc/slime.texi: document nil *communication-style*
+
 2006-04-18  Espen Wiborg  <espenhw at grumblesmurf.org>
 
 	* swank-corman.lisp: Define a class file-stream to let swank.lisp
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/04/12 08:43:55	1.154
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2006/04/19 09:18:53	1.155
@@ -32,11 +32,15 @@
 ;;; TCP Server
 
 (defimplementation preferred-communication-style ()
-  (if (and (member :sb-thread *features*)
-           #+linux
-           (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))
-      :spawn
-      :fd-handler))
+  (cond
+    ;; fixme: when SBCL/win32 gains better select() support, remove
+    ;; this.
+    ((member :win32 *features*) nil)
+    ((and (member :sb-thread *features*)
+          #+linux
+          (not (sb-alien:extern-alien "linux_no_threads_p" sb-alien:boolean)))
+      :spawn)
+    (t :fd-handler)))
         
 (defun resolve-hostname (name)
   (car (sb-bsd-sockets:host-ent-addresses