[cxml-cvs] CVS cxml/xml

[dlichteblau]

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

Modified Files:
	xml-parse.lisp 
Log Message:
fixed PARSE for non-file-streams


--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp	2008/02/08 21:43:13	1.77
+++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp	2008/02/19 18:53:06	1.78
@@ -3113,8 +3113,9 @@
 	       (make-stream-name
 		:entity-name "main document"
 		:entity-kind :main
-		:uri (pathname-to-uri
-		      (merge-pathnames (or pathname (pathname input))))))
+		:uri (if pathname
+			 (pathname-to-uri (merge-pathnames pathname))
+			 (safe-stream-sysid input))))
 	 (apply #'parse-xstream xstream handler args))))))
 
 (defun parse-xstream (xstream handler &rest args)