Permalink
Browse files

fix WITH-MSG-INIT-DATA

  • Loading branch information...
1 parent 0641581 commit 92aff88e4d301e265ea51d2a4b4db56a7156de0f @galdor galdor committed Oct 4, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/zeromq.lisp
View
@@ -270,11 +270,11 @@ size SIZE."
(progn ,@body)
(ignore-errors (call-ffi -1 '%msg-close ,var)))))
-(defmacro with-msg-init-data ((var DATA) &body body)
+(defmacro with-msg-init-data ((var data) &body body)
"Evaluate BODY in an environment where VAR is binded to a new message filled
with DATA."
`(with-foreign-object (,var 'msg)
- (msg-init-fill %message ,data)
+ (msg-init-fill ,var ,data)
(unwind-protect
(progn ,@body)
(ignore-errors (call-ffi -1 '%msg-close ,var)))))

0 comments on commit 92aff88

Please sign in to comment.