cl-rw

commit 901ea48d109e9ffe053ae5401cf5271014918b66
parent d5a3cca46b06c4c0d22e805749f7bb43e70bfe20
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 20 Apr 2014 21:01:54 +0200

parse xml from stream too

Diffstat:
M
xml.lisp
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/xml.lisp b/xml.lisp
@@ -144,6 +144,7 @@
                           (car z))))))))
     (etypecase x
       (function (parse x))
+      (stream (parse (rw:peek-reader (rw:char-reader x))))
       ((or list vector) (parse (rw:peek-reader (rw:reader x))))
       (pathname (with-open-file (s x)
                   (parse (rw:peek-reader (rw:char-reader s))))))))