Commit 6c0c1cf00e7ada8f121f864098e16b22f0cfd6f5

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

always state main loop

1
2
3
4
5
6
7
8
9
10
11
12
13
14
diff --git a/thot.lisp b/thot.lisp
index 361d327..98eb557 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -571,8 +571,7 @@ The requested url "
                             0)
       (socket:bind-inet fd host port)
       (socket:listen fd 128)
-      (when (debug-p :thot)
-        (msg debug *main-loop*))
+      (msg info *main-loop*)
       (funcall *main-loop* fd))))
 
 (defun set-nonblocking (fd)