diff options
| -rw-r--r-- | bindings/cl/zeromq.lisp | 7 |
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)) |