fixed PARSE for non-file-streams

2008-02-19 18:53:06 +00:00
parent 1cc473b918
commit 0f3e11cee9
1 changed files with 3 additions and 2 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -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)