[hunchentoot-devel] Small patch for LispWorks 6 beta

[Hans Hübner]

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 at 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 at common-lisp.net
> http://common-lisp.net/mailman/listinfo/tbnl-devel
>