Commit 56326f5b08258b2837606dccf51cbbf6ce1ce605

Thomas de Grivel 2018-05-31T07:53:25

print warnings

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/thot.lisp b/thot.lisp
index 527b7f7..d4064db 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -436,8 +436,8 @@ The requested url ~S was not found on this server."
                 (result (funcall (request-reader request reply #'request-cont))))
            (unless (eq :keep-alive result)
              (return)))
-       (t (condition)
-         (format t "~A" condition)
+       (warning (w)
+         (format t "WARN ~A" w)
          (continue)))))
 
 (defvar *acceptor-loop*)