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

[Martin Simmons]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(create-socket): Work around bug in comm::create-tcp-socket-for-service on Mac
OS LW 4.3.

Date: Tue Dec 21 14:49:31 2004
Author: msimmons

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.63 slime/swank-lispworks.lisp:1.64
--- slime/swank-lispworks.lisp:1.63	Mon Nov 29 18:33:04 2004
+++ slime/swank-lispworks.lisp	Tue Dec 21 14:49:30 2004
@@ -55,8 +55,10 @@
 
 (defimplementation create-socket (host port)
   (multiple-value-bind (socket where errno)
-      #-lispworks4.1(comm::create-tcp-socket-for-service port :address host)
-      #+lispworks4.1(comm::create-tcp-socket-for-service port)
+      #-(or lispworks4.1 (and macosx lispworks4.3))
+      (comm::create-tcp-socket-for-service port :address host)
+      #+(or lispworks4.1 (and macosx lispworks4.3))
+      (comm::create-tcp-socket-for-service port)
     (cond (socket socket)
           (t (error 'network-error 
               :format-control "~A failed: ~A (~D)"