kmx.io/cl-thot

diff --git a/thot-epoll.lisp b/thot-epoll.lisp
index 34ef075..6ae4192 100644
--- a/thot-epoll.lisp
+++ b/thot-epoll.lisp
@@ -194,8 +194,4 @@
         ((eq *acceptor-loop* 'acceptor-loop-threaded)
          (setq *worker-thread-for-fd* 'acceptor-loop-epoll))))
 
-(trace socket:socket socket:bind socket:listen socket:accept
-       unistd:close
-       epoll:create
-       epoll-add epoll-del
-       acceptor-loop-epoll make-worker agent-in agent-out)
+;;(untrace socket:socket socket:bind socket:listen socket:accept unistd:close epoll:create epoll-add epoll-del acceptor-loop-epoll make-worker agent-in agent-out)
diff --git a/thot-threaded.lisp b/thot-threaded.lisp
index 1c5dd07..98b2343 100644
--- a/thot-threaded.lisp
+++ b/thot-threaded.lisp
@@ -53,7 +53,4 @@
     (setq *worker-thread-for-fd* *acceptor-loop*))
   (setq *acceptor-loop* 'acceptor-loop-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 request-loop read write set-nonblocking socket:socket socket:bind socket:listen socket:accept unistd:close unistd:select)