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

[martin at xanalys.com]

>>>>> 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)

__Martin