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
On Fri, 18 Jun 2004 15:05:25 -0500, Brian Downing bdowning@lavos.net said:
Brian> I need this patch to make create-swank-server work on Mac OS X LispWorks Brian> Personal (v.4.3.7). It works fine on the same version on Windows without it. Brian> Without it I get a network error condition:
Brian> CL-USER 2 > (swank:create-swank-server)
Brian> Error: BIND failed: (Can't assign requested address) (49) Brian> 1 (abort) Return to level 0. Brian> 2 Return to top loop level 0.
Brian> Type :b for backtrace, :c <option number> to proceed, or :? for other options
Brian> Obviously this is not the solution, but it demonstrates that there's a Brian> problem with the :address keyword argument on Mac OS X, at least on Brian> my machine
Brian> diff -ur slime-pristine/swank-lispworks.lisp slime/swank-lispworks.lisp Brian> --- slime-pristine/swank-lispworks.lisp 2004-06-17 10:59:46.000000000 -0500 Brian> +++ slime/swank-lispworks.lisp 2004-06-18 14:51:37.000000000 -0500 Brian> @@ -37,8 +37,7 @@
Brian> (defimplementation create-socket (host port) Brian> (multiple-value-bind (socket where errno) Brian> - #-lispworks4.1(comm::create-tcp-socket-for-service port :address host) Brian> - #+lispworks4.1(comm::create-tcp-socket-for-service port) Brian> + (comm::create-tcp-socket-for-service port) Brian> (cond (socket socket) Brian> (t (error 'network-error Brian> :format-control "~A failed: ~A (~D)"
The problem is caused by a bug in LispWorks on the Mac, so I don't recommend commiting this change to CVS.
__Martin
-
Brian Downing -
Martin Simmons