[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/acceptor.lisp

[BKNR Commits]

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