summaryrefslogtreecommitdiff
path: root/bindings
diff options
context:
space:
mode:
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))