[slime-devel] Modification to swank-lispworks.lisp for LW Personal on Mac OS X

[Bill_Clementson at peoplesoft.com]

martin at xanalys.com writes:

> >>>>> On Sun, 19 Dec 2004 20:26:05 -0700, Bill_Clementson at peoplesoft.com
said:
>
>   Bill> I've just posted about setting up Emacs/SLIME with LW Personal on
Mac OS X
>   Bill> on my blog. There was one minor change needed to
"swank-lispworks.lisp" in
>   Bill> order to get it to work with LW Personal on Mac OS X. Here's the
change
>   Bill> (sorry it's not a patch but I'm on a different machine at the
moment):
>
>   Bill>   (defimplementation create-socket (host port)
>   Bill>    (multiple-value-bind (socket where errno)
>   Bill>        #+(and (not lispworks4.1) (not lispworks-personal-edition)
(not
>   Bill> macosx))
>   Bill>          (comm::create-tcp-socket-for-service port :address host)
>   Bill>        #+lispworks4.1(comm::create-tcp-socket-for-service port)
>   Bill>        #+(and macosx
>   Bill> lispworks-personal-edition)(comm::create-tcp-socket-for-service
port)
>
> Hi there,
>
> Is this to fix the "Can't assign requested address" error?  That was
caused by
> a bug in LWM 4.3, so I think the following would be better:
>
> (defimplementation create-socket (host port)
>   (multiple-value-bind (socket where errno)
>       #-(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)

That works for me! Could one of the SLIME maintainers check Martin's
changes into CVS please.

Thanks,
Bill