Commit 4713fc823a20f490ff75903132a6c968ef940646

Thomas de Grivel 2018-06-17T17:04:27

state acceptor loop

1
2
3
4
5
6
7
8
9
10
11
12
13
14
diff --git a/thot-threaded.lisp b/thot-threaded.lisp
index 426649d..1efd812 100644
--- a/thot-threaded.lisp
+++ b/thot-threaded.lisp
@@ -43,8 +43,7 @@
 
 (defun main-loop-threaded (fd)
   (declare (type unistd:file-descriptor fd))
-  (when (debug-p :thot)
-    (msg debug " " *acceptor-loop*))
+  (msg info " " *acceptor-loop*)
   (set-nonblocking fd)
   (with-worker-threads (fd (1- (the fixnum *init-threads*)))
     (funcall *acceptor-loop* fd)))