Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

trying to make poll a tiny bit easier to use

  • Loading branch information...
commit 99645b85ae46601510f37dacf6f71c0f5626098a 1 parent 8a5014e
@esessoms esessoms authored
Showing with 2 additions and 3 deletions.
  1. +0 −1  src/packages.lisp
  2. +2 −2 src/zmq.lisp
View
1  src/packages.lisp
@@ -21,7 +21,6 @@
:with-poll-items
:poll-items-aref :do-poll-items :poll-item-event-signaled-p
:poll
- :event-types
:stopwatch-start :stopwatch-stop :with-stopwatch
:sleep
View
4 src/zmq.lisp
@@ -382,11 +382,11 @@ ITEMS."
(let ((,var (poll-items-aref ,items ,i)))
,@body))))
-(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
Please sign in to comment.
Something went wrong with that request. Please try again.