[hunchentoot-devel] Small patch for LispWorks 6 beta

[Nico de Jager]

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