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)