From 101100cf7d6f7d4b8bf27dc733b04b2666d46f3a Mon Sep 17 00:00:00 2001
From: Mikhail Novikov <freiksenet@gmail.com>
Date: Tue, 16 Apr 2013 23:53:29 +0300
Subject: [PATCH] Better disclaimers.

---
 src/zeromq-api.lisp | 1 +
 src/zeromq.lisp     | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/zeromq-api.lisp b/src/zeromq-api.lisp
index 66995ed..bf872c0 100644
--- a/src/zeromq-api.lisp
+++ b/src/zeromq-api.lisp
@@ -215,6 +215,7 @@
              (foreign-bitfield-value 'send-options flags)))
 
 ;; Polls
+;; (xxx)freiksenet: probably broken, don't use it yet.
 
 (defclass pollitem ()
   ((raw         :accessor pollitem-raw :initform nil)
diff --git a/src/zeromq.lisp b/src/zeromq.lisp
index da04fa7..8fcc95f 100644
--- a/src/zeromq.lisp
+++ b/src/zeromq.lisp
@@ -110,9 +110,9 @@
   (msg c-msg)
   (size :long))
 
-;; This currently won't work properly for the reasons defined here
+;; (xxx)freiksenet: This might not work properly. I haven't tested it myself,
+;; but this blog post suggest that it wont.
 ;; http://13-49.blogspot.fi/2010/06/why-zero-copy-is-missing-in-cl-zmq.html
-;; Don't use it unless you know what you are doing.
 (defcallback zmq-free :void ((ptr :pointer) (hint :pointer))
   (declare (ignorable hint))
   (foreign-free ptr))
@@ -126,7 +126,7 @@
 
 (defun %zmq-init-data (msg data size)
   (%%msg-init-data msg data size 'zmq-free))
-;; End of non-functional code
+;; End of potentially broken code
 
 (defcfun ("zmq_msg_close" %msg-close) :int
   (msg c-msg))
-- 
2.11.4.GIT