Commit cfe456c92f58fb758f3adb973f2167367fe54a0a

Thomas de Grivel 2017-06-29T18:15:55

debug

1
2
3
4
5
6
7
8
9
10
11
12
13
14
diff --git a/thot-epoll.lisp b/thot-epoll.lisp
index cbaeb62..96750a8 100644
--- a/thot-epoll.lisp
+++ b/thot-epoll.lisp
@@ -188,7 +188,8 @@
         ((eq *acceptor-loop* 'acceptor-loop-threaded)
          (setq *worker-thread-for-fd* 'acceptor-loop-epoll))))
 
-(trace socket:socket socket:bind socket:listen socket:accept
+(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)