[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/

[BKNR Commits]

Revision: 4245
Author: hans
URL: http://bknr.net/trac/changeset/4245

Only try to set timeout if not NIL.
Only try to rewrite when a session has been set up.

U   trunk/thirdparty/hunchentoot/headers.lisp
U   trunk/thirdparty/hunchentoot/set-timeouts.lisp

Modified: trunk/thirdparty/hunchentoot/headers.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/headers.lisp	2009-02-12 09:04:52 UTC (rev 4244)
+++ trunk/thirdparty/hunchentoot/headers.lisp	2009-02-12 17:00:04 UTC (rev 4245)
@@ -177,6 +177,7 @@
       (write-sequence +crlf+ *hunchentoot-stream*)
       (maybe-write-to-header-stream first-line))
     (when (and (stringp content)
+               (session *request*)
                (not content-modified-p)
                (starts-with-one-of-p (or (content-type) "")
                                      *content-types-for-url-rewrite*))

Modified: trunk/thirdparty/hunchentoot/set-timeouts.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/set-timeouts.lisp	2009-02-12 09:04:52 UTC (rev 4244)
+++ trunk/thirdparty/hunchentoot/set-timeouts.lisp	2009-02-12 17:00:04 UTC (rev 4245)
@@ -61,8 +61,9 @@
     (setf (ccl:stream-output-timeout (usocket:socket usocket))
           write-timeout))
   #+:sbcl
-  (setf (sb-impl::fd-stream-timeout (usocket:socket-stream usocket))
-        (coerce read-timeout 'single-float))
+  (when read-timeout
+    (setf (sb-impl::fd-stream-timeout (usocket:socket-stream usocket))
+          (coerce read-timeout 'single-float)))
   #+:cmu
   (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket))
         (coerce read-timeout 'integer))