From 95a09326af54242e1c689ceaf7c74e83da36ce34 Mon Sep 17 00:00:00 2001 From: Mikhail Novikov Date: Thu, 23 May 2013 21:53:07 +0300 Subject: [PATCH] Fixed wrong bitfield options. --- src/zeromq-api.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/zeromq-api.lisp b/src/zeromq-api.lisp index 08e51c2..a7e4903 100644 --- a/src/zeromq-api.lisp +++ b/src/zeromq-api.lisp @@ -198,17 +198,17 @@ (defun send (s data &rest flags) (with-foreign-string ((buf len) data) (%send s buf (1- len) - (foreign-bitfield-value 'send-options flags)))) + (foreign-bitfield-value 'send-recv-options flags)))) (defun recv (s length &rest flags) (with-foreign-string ((buf len) (make-string length)) (%recv s buf (1- len) - (foreign-bitfield-value 'send-options flags)) + (foreign-bitfield-value 'send-recv-options flags)) (foreign-string-to-lisp buf))) (defun msg-send (s msg &rest flags) (%msg-send (msg-raw msg) s - (foreign-bitfield-value 'send-options flags))) + (foreign-bitfield-value 'send-recv-options flags))) (defun msg-recv (s msg &rest flags) (%msg-recv (msg-raw msg) s -- 2.11.4.GIT