From d50c7daf9eafe36ca2df7210ff2e82487e85f842 Mon Sep 17 00:00:00 2001 From: Martin Sustrik Date: Fri, 18 Dec 2009 14:34:57 +0100 Subject: hint parameter (zmq_free_fn) added to Lisp binding --- bindings/cl/zeromq.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'bindings/cl') 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)) -- cgit v1.2.3