diff options
| author | Martin Sustrik <sustrik@fastmq.commkdir> | 2009-12-18 14:34:57 +0100 |
|---|---|---|
| committer | Martin Sustrik <sustrik@fastmq.commkdir> | 2009-12-18 14:34:57 +0100 |
| commit | d50c7daf9eafe36ca2df7210ff2e82487e85f842 (patch) | |
| tree | 98887085cf0d113a1e1bfa9acd9f494d787ca730 /bindings/cl | |
| parent | 1924cba88985a36cb1422efd2fb287292b41eb44 (diff) | |
hint parameter (zmq_free_fn) added to Lisp binding
Diffstat (limited to 'bindings/cl')
| -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)) |