generic-library/libzmq
1
0
Fork 0
mirror of https://github.com/zeromq/libzmq.git synced 2025-02-21 06:37:44 +01:00
Code Issues Projects Releases Wiki Activity

hint parameter (zmq_free_fn) added to Lisp binding

Browse Source
This commit is contained in:
Martin Sustrik 2009-12-18 14:34:57 +01:00
parent 1924cba889
commit d50c7daf9e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
bindings/cl/zeromq.lisp
View File

@ -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))