Author: psmith Date: Tue Apr 17 00:22:56 2007 New Revision: 108

Modified: branches/home/psmith/restructure/src/event/epoll.lisp Log: Print out interruptions

Modified: branches/home/psmith/restructure/src/event/epoll.lisp ============================================================================== --- branches/home/psmith/restructure/src/event/epoll.lisp (original) +++ branches/home/psmith/restructure/src/event/epoll.lisp Tue Apr 17 00:22:56 2007 @@ -89,7 +89,9 @@ (-1 (let ((errno (get-errno))) (if (eql errno 4) ;EINTR - interrupted by a system call - (return nil) + (progn + (format t "epoll-wait interrupted~%") + (return nil)) (progn (format t "-1 returned from epoll-wait, errno:") (perror)