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

Use force-output instead of finish-output to appease SBCL, thanks to Andrey Moskvitin for reporting.

U trunk/thirdparty/hunchentoot/acceptor.lisp

Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2011-04-01 17:18:25 UTC (rev 4664) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2011-04-03 13:24:36 UTC (rev 4665) @@ -383,7 +383,7 @@ :method method :uri url-string :server-protocol protocol))))) - (finish-output *hunchentoot-stream*) + (force-output *hunchentoot-stream*) (setq *hunchentoot-stream* (reset-connection-stream *acceptor* *hunchentoot-stream*)) (when *close-hunchentoot-stream* (return))))) @@ -392,7 +392,7 @@ ;; errors that may occur while flushing and/or closing the ;; stream. (ignore-errors* - (finish-output *hunchentoot-stream*)) + (force-output *hunchentoot-stream*)) (ignore-errors* (close *hunchentoot-stream* :abort t))))))