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

[martin at xanalys.com]

>>>>> On Mon, 20 Dec 2004 19:42:57 -0700, Bill_Clementson at peoplesoft.com said:

  Bill> martin at xanalys.com writes:

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

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

Thanks for checking.  I've commited the changes now.

__Martin