The patch does not look as if it worked for the Lispworks 4 case. Is LW 4 still in use? It might be sensible to remove support for it instead, but that'd be basically Edi's call.
-Hans
On Wed, Sep 30, 2009 at 10:24, Nico de Jager ndj@bitart.cc wrote:
$ diff -u lispworks.lisp_orig lispworks.lisp_patched --- lispworks.lisp_orig 2009-09-30 11:42:22.000000000 +0200 +++ lispworks.lisp_patched 2009-09-30 19:06:22.118317238 +0200 @@ -90,14 +90,14 @@ (defun make-socket-stream (socket acceptor) "Returns a stream for the socket SOCKET. The ACCEPTOR argument is used to set the timeouts."
- #-:lispworks5
- #+:lispworks4
(when (acceptor-write-timeout acceptor) (parameter-error "You need LispWorks 5 or higher for write timeouts.")) (make-instance 'comm:socket-stream :socket socket :direction :io :read-timeout (acceptor-read-timeout acceptor)
- #+:lispworks5 #+:lispworks5
- #-:lispworks4
:write-timeout (acceptor-write-timeout acceptor) :element-type 'octet))
tbnl-devel site list tbnl-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/tbnl-devel