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

Vitaly Mayatskikh v.mayatskih at gmail.com
Fri Dec 18 14:29:41 CET 2009


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

-- 
wbr, Vitaly



More information about the zeromq-dev mailing list