[nio-cvs] r108 - branches/home/psmith/restructure/src/event

[psmith at common-lisp.net]

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)