Commit 8f1f603373db3456075af825ddd6ef8000b5973d

Thomas de Grivel 2017-06-19T14:33:14

flush after request-cont

1
2
3
4
5
6
7
8
9
10
11
12
diff --git a/thot.lisp b/thot.lisp
index 4919e46..9c2bce5 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -282,6 +282,7 @@ The requested url ~S was not found on this server."
 	   (when (debug-p (or :thot :http))
 	     (format t "~&~S -> ~S~%" handler-func handler))
 	   (funcall handler)
+           (flush (request-stream))
 	   (return))))
     (if (string-equal "keep-alive" (request-header 'connection))
         :keep-alive