Revision: 4641 Author: hans URL: http://bknr.net/trac/changeset/4641
Use FINISH-OUTPUT instead of FORCE-OUTPUT before connection teardown. Thanks to Ilya Perminov for reporting.
U trunk/thirdparty/hunchentoot/acceptor.lisp
Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2011-01-25 11:43:07 UTC (rev 4640) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2011-02-05 07:45:59 UTC (rev 4641) @@ -323,7 +323,7 @@ :method method :uri url-string :server-protocol protocol)))) - (force-output *hunchentoot-stream*) + (finish-output *hunchentoot-stream*) (setq *hunchentoot-stream* (reset-connection-stream *acceptor* *hunchentoot-stream*)) (when *close-hunchentoot-stream* (return))))) @@ -332,7 +332,7 @@ ;; errors that may occur while flushing and/or closing the ;; stream. (ignore-errors* - (force-output *hunchentoot-stream*)) + (finish-output *hunchentoot-stream*)) (ignore-errors* (close *hunchentoot-stream* :abort t))))))