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