Common subdirectories: hunchentoot-1.2.2-old/doc and hunchentoot-1.2.2/doc
diff -u hunchentoot-1.2.2-old/set-timeouts.lisp hunchentoot-1.2.2/set-timeouts.lisp
--- hunchentoot-1.2.2-old/set-timeouts.lisp	2011-11-30 17:04:47.000000000 +0100
+++ hunchentoot-1.2.2/set-timeouts.lisp	2011-12-30 17:27:52.000000000 +0100
@@ -49,6 +49,16 @@
   #+:clisp
   (when write-timeout
     (socket:socket-options (usocket:socket usocket) :SO-SNDTIMEO write-timeout))
+  #+:ecl
+  (when read-timeout
+    (print (list (usocket:socket usocket) read-timeout))
+    (setf (sb-bsd-sockets:sockopt-receive-timeout (usocket:socket usocket))
+	  read-timeout))
+  #+:ecl
+  (when write-timeout
+    (print (list (usocket:socket usocket) write-timeout))
+    (setf (sb-bsd-sockets:sockopt-send-timeout (usocket:socket usocket))
+	  write-timeout))
   #+:openmcl
   (when read-timeout
     (setf (ccl:stream-input-timeout (usocket:socket usocket))
@@ -64,6 +74,6 @@
   #+:cmu
   (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket))
         (coerce read-timeout 'integer))
-  #-(or :clisp :allegro :openmcl :sbcl :lispworks :cmu)
+  #-(or :clisp :allegro :openmcl :sbcl :lispworks :cmu :ecl)
   (not-implemented 'set-timeouts))
 
Common subdirectories: hunchentoot-1.2.2-old/test and hunchentoot-1.2.2/test
Common subdirectories: hunchentoot-1.2.2-old/url-rewrite and hunchentoot-1.2.2/url-rewrite
Common subdirectories: hunchentoot-1.2.2-old/www and hunchentoot-1.2.2/www
