Commit 7424cdb8780c189e5ad33f11d1efcd9f1b8211e5

Thomas de Grivel 2019-02-27T08:43:58

header returns line

1
2
3
4
5
6
7
8
9
10
11
12
13
14
diff --git a/thot.lisp b/thot.lisp
index 5f4a380..c15584b 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -355,7 +355,8 @@
            (when (endp (rest headers))
              (setf (rest headers) (list line))
              (return))
-           (pop headers)))))
+           (pop headers)))
+    line))
 
 (defun end-headers ()
   (unless (reply-headers-sent)