[zeromq-dev] [PATCH] CL: actualize coherency with zmq.h

[Martin Sustrik]

Vitaly,

Thanks for both patches! I've commited them into zeromq2 trunk.

Martin

Vitaly Mayatskikh wrote:
> Hi!
> 
> zmq_free_fn and zmq_msg_init_data have `hint' parameter now. Stay in
> tune with C:
> 
> 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))
>