Skip to content

L
libzmq
Commit d50c7daf authored by Martin Sustrik's avatar Martin Sustrik
Browse files
Options

hint parameter (zmq_free_fn) added to Lisp binding

parent 1924cba8
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 3 deletions
bindings/cl/zeromq.lisp
View file @ d50c7daf
...@@ -77,15 +77,16 @@ ...@@ -77,15 +77,16 @@
(msg msg) (msg msg)
(size :long)) (size :long))
(defcallback zmq-free :void ((ptr :pointer)) (defcallback zmq-free :void ((ptr :pointer) (hint :pointer))
(declare (ignorable hint))
(foreign-free ptr)) (foreign-free ptr))
;;typedef void (zmq_free_fn) (void *data);
(defcfun ("zmq_msg_init_data" msg-init-data) :int (defcfun ("zmq_msg_init_data" msg-init-data) :int
(msg msg) (msg msg)
(data :pointer) (data :pointer)
(size :long) (size :long)
(ffn :pointer)) ; zmq_free_fn (ffn :pointer) ; zmq_free_fn
(hint :pointer))
(defcfun* ("zmq_msg_close" %msg-close) :int (defcfun* ("zmq_msg_close" %msg-close) :int
(msg msg)) (msg msg))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment