From 0f3e11cee9e6685e088d26e94d8dcd0119ad48c2 Mon Sep 17 00:00:00 2001
From: dlichteblau <dlichteblau>
Date: Tue, 19 Feb 2008 18:53:06 +0000
Subject: [PATCH] fixed PARSE for non-file-streams

---
 xml/xml-parse.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp
index 5b30cfa..7e18e43 100644
--- 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)
-- 
2.11.4.GIT