From 62258071215a45a7a94a00f7f463f5b11da32bd2 Mon Sep 17 00:00:00 2001 From: Mikhail Novikov Date: Thu, 7 Feb 2013 23:19:01 +0200 Subject: [PATCH] ... --- src/zeromq-api.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/zeromq-api.lisp b/src/zeromq-api.lisp index 466e2dc..75d74ff 100644 --- a/src/zeromq-api.lisp +++ b/src/zeromq-api.lisp @@ -82,7 +82,7 @@ (len 'size-t)) (setf (mem-aref len 'size-t) (* (foreign-type-size :char) 255)) (%getsockopt socket option-code str len) - (foreign-string-to-lisp str :count (mem-aref len 'size-t))) + (foreign-string-to-lisp str :count (mem-aref len 'size-t))) (with-foreign-objects ((obj return-type) (len 'size-t)) (setf (mem-aref len 'size-t) (foreign-type-size return-type)) -- 2.11.4.GIT