Commit 7f1e65bf4a2801f7c37489bb895a9131b5b8edd3

Thomas de Grivel 2018-06-10T09:52:33

trace for now

1
2
3
4
5
6
7
8
9
10
11
12
13
diff --git a/thot.lisp b/thot.lisp
index 05c247d..4a615b4 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -577,6 +577,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-cont file-handler directory-handler call-handler-form call-handler)
+;(untrace file-handler c-stat)