Browse files

trying to make poll a tiny bit easier to use

  • Loading branch information...
Eric Sessoms
Eric Sessoms committed Oct 18, 2011
1 parent 8a5014e commit 99645b85ae46601510f37dacf6f71c0f5626098a
Showing with 2 additions and 3 deletions.
  1. +0 −1 src/packages.lisp
  2. +2 −2 src/zmq.lisp
@@ -21,7 +21,6 @@
:poll-items-aref :do-poll-items :poll-item-event-signaled-p
- :event-types
:stopwatch-start :stopwatch-stop :with-stopwatch
@@ -382,11 +382,11 @@ ITEMS."
(let ((,var (poll-items-aref ,items ,i)))
-(defun poll-item-event-signaled-p (poll-item event)
+(defun poll-item-event-signaled-p (poll-item &rest event)
"Return T if POLL-ITEM indicates that an event of type EVENT was detected
for the underlying socket or file descriptor or NIL if no event occurred."
(/= (logand (foreign-slot-value poll-item 'pollitem 'revents)
- (foreign-bitfield-value 'event-types (list event))) 0))
+ (foreign-bitfield-value 'event-types event)) 0))
(defun poll (items nb-items timeout)
"Poll ITEMS with a timeout of TIMEOUT microseconds, -1 meaning no time

0 comments on commit 99645b8

Please sign in to comment.