[slime-devel] LispWorks OS X create-swank-server

[Brian Downing]

I need this patch to make create-swank-server work on Mac OS X LispWorks
Personal (v.4.3.7).  It works fine on the same version on Windows without it.
Without it I get a network error condition:

CL-USER 2 > (swank:create-swank-server)

 Error: BIND failed: (Can't assign requested address) (49)
   1 (abort) Return to level 0.
   2 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other options

Obviously this is not the solution, but it demonstrates that there's a
problem with the :address keyword argument on Mac OS X, at least on
my machine.

diff -ur slime-pristine/swank-lispworks.lisp slime/swank-lispworks.lisp
--- slime-pristine/swank-lispworks.lisp	2004-06-17 10:59:46.000000000 -0500
+++ slime/swank-lispworks.lisp	2004-06-18 14:51:37.000000000 -0500
@@ -37,8 +37,7 @@
 
 (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)
+      (comm::create-tcp-socket-for-service port)
     (cond (socket socket)
           (t (error 'network-error 
               :format-control "~A failed: ~A (~D)"

-bcd