[add-pollitem-sock-accessor] Add and export poll-item-sock to get a…

… sock from a pollitem struct.
sshirokov · Jan 31, 2012 · 045adfe · 045adfe
1 parent ec61518
commit 045adfe
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/src/packages.lisp b/src/packages.lisp
@@ -19,6 +19,7 @@
 
            :send :recv
            :with-poll-items
+           :poll-item-sock
            :poll-items-aref :do-poll-items :poll-item-events-signaled-p
            :poll
 

diff --git a/src/zmq.lisp b/src/zmq.lisp
@@ -388,6 +388,10 @@ ITEMS."
   (/= (logand (foreign-slot-value poll-item 'pollitem 'revents)
               (foreign-bitfield-value 'event-types events)) 0))
 
+(defun poll-item-sock (poll-item)
+  "Return the `socket' of the given `poll-item'"
+  (foreign-slot-value poll-item 'pollitem 'socket))
+
 (defun poll (items nb-items timeout)
   "Poll ITEMS with a timeout of TIMEOUT microseconds, -1 meaning no time
   limit. Return the number of items with signaled events."