Commit 65bf517a2b2f65e0a390227d1ab4bbb932cc32f6

Thomas de Grivel 2018-06-16T15:02:33

trace

diff --git a/thot-threaded.lisp b/thot-threaded.lisp
index b460cf0..426649d 100644
--- a/thot-threaded.lisp
+++ b/thot-threaded.lisp
@@ -62,4 +62,4 @@
 (eval-when (:load-toplevel :execute)
   (maybe-configure-threaded))
 
-;(untrace start acceptor-loop-threaded request-loop read write set-nonblocking socket:socket socket:bind socket:listen socket:accept unistd:close unistd:select)
+;(untrace start acceptor-loop-threaded read write set-nonblocking socket:socket socket:bind socket:listen socket:accept unistd:close unistd:select)
diff --git a/thot.lisp b/thot.lisp
index bc111a8..2d7cee4 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -583,7 +583,7 @@ The requested url "
   (let ((flags (the fixnum (fcntl:getfl fd))))
     (fcntl:setfl fd (logior fcntl:+o-nonblock+ flags))))
 
-(trace socket:socket socket:bind socket:bind-inet unistd:close unistd:c-close)
+;(trace socket:socket socket:bind socket:bind-inet unistd:close unistd:c-close)
 ;(trace header content)
 ;(trace request-handler file-handler directory-handler call-handler-form call-handler)
 ;(untrace file-handler c-stat)