[cxml-cvs] CVS cxml/xml

[dlichteblau]

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))