cl-rw

commit f5793e5d6302c8703a482bfbef70fda7a39a0901
parent 90dd929ab33e8365e4fe191cd6c50e424e3fd45d
Author: Tomas Hlavaty <tom@logand.com>
Date:   Thu, 29 Aug 2013 23:02:57 +0200

comment added

Diffstat:
M
rw.lisp
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/rw.lisp b/rw.lisp
@@ -101,6 +101,7 @@
      while (let ((x (peek reader))) (and x (not (member x items))))
      collect (next reader)))
 
+;;(till (peek-reader (reader '(0 1 2 3 4))) '(3))
 ;;(till (skip (peek-reader (reader '(0 1 2 3 4))) 1) '(3))
 ;;(till (skip (peek-reader (reader #(0 1 2 3 4))) 1) '(3))
 ;;(with-open-file (s "/etc/passwd") (till (peek-reader (char-reader s)) '(#\:)))