1 files changed, 5 insertions(+), 2 deletions(-)

M src/bare.lisp

@@ 1,7 1,5 @@
 (in-package :cl-bare)
 
-(defvar *data-length* 1)
-
 (defun read-uvarint (stream)
   "Read an unsigned varint from STREAM."
   (loop


@@ 126,6 124,11 @@
                      (slot-value size 'value)
                      :external-format :utf-8)))
 
+(defvar *data-length* 1
+  "Length for the arbitrary length DATA type.
+
+Set this dynamically in the function calling the DATA defbinary.")
+
 (defbinary data
     ()
     (size 0 :type (uint))