cl-rw

commit 170881fba73c75207c75d0e614da2bc28b206892
parent 5bbf6ece988ed24bbdeca3cd50961f2c1080673e
Author: Tomas Hlavaty <tom@logand.com>
Date:   Tue, 26 May 2015 22:20:51 +0200

fix bug, wrong symbol

Diffstat:
M
wire.lisp
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/wire.lisp b/wire.lisp
@@ -108,7 +108,7 @@
                 ,@(when (integerp size) `((assert (= l ,size))))
                 (dotimes (i l)
                   (vector-push-extend (rw:next-u8 r) b))
-                ,(if (eq 'u8 ty)
+                ,(if (eq 'rw:u8 ty)
                      'b
                      (if size
                          `(let ((r (rw:peek-reader (rw:reader b))))
@@ -118,7 +118,7 @@
                          `(let ((r (rw:reader b)))
                             ,(r1))))))
             (size
-             ;;(assert (eq 'u8 ty)) ;; TODO how?
+             ;;(assert (eq 'rw:u8 ty)) ;; TODO how?
              `(loop for i from 0 below ,size collect ,(r1)))
             (t
              `(let ((v ,(r1)))
@@ -175,7 +175,7 @@
                         (,(wname length) w l))
                       (loop for e across b do (rw:write-u8 w e))))
                   (size
-                   ;;(assert (eq 'u8 ty)) ;; TODO how?
+                   ;;(assert (eq 'rw:u8 ty)) ;; TODO how?
                    `(let ((v (,(aname name na) x)))
                       ,@ (when (or min max (integerp size))
                            `((let ((l (length v)))