From 30a107e06d48ebbc7a635ba4fb21a24e385cf4e4 Mon Sep 17 00:00:00 2001
From: Martin Sustrik <sustrik@fastmq.commkdir>
Date: Wed, 13 Jan 2010 13:35:13 +0100
Subject: timeout parameter for zmq_poll added in cl binding

---
 bindings/cl/zeromq.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'bindings/cl/zeromq.lisp')

diff --git a/bindings/cl/zeromq.lisp b/bindings/cl/zeromq.lisp
index 90b42da..217b97c 100644
--- a/bindings/cl/zeromq.lisp
+++ b/bindings/cl/zeromq.lisp
@@ -231,7 +231,8 @@
 
 (defcfun ("zmq_poll" %poll) :int
   (items	:pointer)
-  (nitems	:int))
+  (nitems	:int)
+  (timeout	:long))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;  Helper functions.
-- 
cgit v1.2.3