Update of /project/cxml/cvsroot/cxml/xml In directory clnet:/tmp/cvs-serv17325

Modified Files: xml-parse.lisp Log Message: Fixed (parse xstream ...).

* xml/xml-parse.lisp (PARSE): Call parse-xstream, not make-xstream.

--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/10/03 15:21:56 1.73 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/10/14 18:40:26 1.74 @@ -3102,7 +3102,7 @@ unless (eq name :pathname) append (list name value)))) (etypecase input - (xstream (apply #'make-xstream input handler args)) + (xstream (apply #'parse-xstream input handler args)) (pathname (apply #'parse-file input handler args)) (rod (apply #'parse-rod input handler args)) (array (apply #'parse-octets input handler args))