Changeset 43 for branches/home/psmith/restructure
- Timestamp:
- 01/19/07 00:09:15 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified branches/home/psmith/restructure/src/event/epoll.lisp ¶
r35 r43 77 77 (with-foreign-object (events 'epoll-event +epoll-size+) 78 78 (memzero events (* +epoll-event-size+ +epoll-size+)) 79 (loop for res = (%epoll-wait event-queue events +epoll-size+ 100 0)79 (loop for res = (%epoll-wait event-queue events +epoll-size+ 100) 80 80 81 81 do … … 83 83 #+nio-debug (format t "poll-events - dealing with ~A~%" res) 84 84 (case res 85 (-1 (error 'poll-error)) 85 (-1 86 (let ((errno (get-errno))) 87 (format t "-1 returned from epoll-wait, errno ~A~%" errno) 88 (if (eql errno 4) ;EINTR - interrupted by a system call 89 (return nil) 90 (error 'poll-error)))) 86 91 (return nil) 87 92 (t
Note: See TracChangeset
for help on using the changeset viewer.