Commit 343b9e26b0b256faab92399bc69a2133c6e9ce3c

Thomas de Grivel 2018-06-17T17:05:18

only start flushing do not wait for completion

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/thot.lisp b/thot.lisp
index 404e749..cbd534a 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -538,7 +538,7 @@ The requested url "
                    (force-output))
                  (when handler
                    (call-handler handler)
-                   (stream-flush (reply-stream% reply))
+                   (stream-flush-output (reply-stream% reply))
                    (return)))))
           (if (string-equal "keep-alive" (request-header 'connection))
               :keep-alive