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

[Martin Simmons]

>>>>> On Fri, 18 Jun 2004 15:05:25 -0500, Brian Downing <bdowning at 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