Commit 102785057a3baed677c607338307b40818e57d93

Thomas de Grivel 2018-06-08T15:19:15

debug threaded

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/thot-threaded.lisp b/thot-threaded.lisp
index 98b2343..f2eaf5c 100644
--- a/thot-threaded.lisp
+++ b/thot-threaded.lisp
@@ -44,6 +44,8 @@
 
 (defun acceptor-loop-threaded (fd)
   (declare (type (unsigned-byte 31) fd))
+  (when (debug-p :thot)
+    (format t " ~A~%" *worker-thread-for-fd*))
   (set-nonblocking fd)
   (with-worker-threads (fd (1- *init-threads*))
     (funcall (funcall *worker-thread-for-fd* fd))))