cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs

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

fix bug, wrong symbol

Diffstat:
Mwire.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)))