summaryrefslogtreecommitdiff
path: root/bindings
diff options
context:
space:
mode:
authorMartin Sustrik <sustrik@fastmq.commkdir>2009-12-18 14:34:57 +0100
committerMartin Sustrik <sustrik@fastmq.commkdir>2009-12-18 14:34:57 +0100
commitd50c7daf9eafe36ca2df7210ff2e82487e85f842 (patch)
tree98887085cf0d113a1e1bfa9acd9f494d787ca730 /bindings
parent1924cba88985a36cb1422efd2fb287292b41eb44 (diff)
hint parameter (zmq_free_fn) added to Lisp binding
Diffstat (limited to 'bindings')
-rw-r--r--bindings/cl/zeromq.lisp7
1 files changed, 4 insertions, 3 deletions
diff --git a/bindings/cl/zeromq.lisp b/bindings/cl/zeromq.lisp
index a8b9c5c..90b42da 100644
--- a/bindings/cl/zeromq.lisp
+++ b/bindings/cl/zeromq.lisp
@@ -77,15 +77,16 @@
(msg msg)
(size :long))
-(defcallback zmq-free :void ((ptr :pointer))
+(defcallback zmq-free :void ((ptr :pointer) (hint :pointer))
+ (declare (ignorable hint))
(foreign-free ptr))
-;;typedef void (zmq_free_fn) (void *data);
(defcfun ("zmq_msg_init_data" msg-init-data) :int
(msg msg)
(data :pointer)
(size :long)
- (ffn :pointer)) ; zmq_free_fn
+ (ffn :pointer) ; zmq_free_fn
+ (hint :pointer))
(defcfun* ("zmq_msg_close" %msg-close) :int
(msg msg))