OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed PARSE for non-file-streams

Browse Source
This commit is contained in:
dlichteblau
2008-02-19 18:53:06 +00:00
parent 1cc473b918
commit 0f3e11cee9
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
xml/xml-parse.lisp
View File

@ -3113,8 +3113,9 @@
(make-stream-name (make-stream-name
:entity-name "main document" :entity-name "main document"
:entity-kind :main :entity-kind :main
:uri (pathname-to-uri :uri (if pathname
(merge-pathnames (or pathname (pathname input)))))) (pathname-to-uri (merge-pathnames pathname))
(safe-stream-sysid input))))
(apply #'parse-xstream xstream handler args)))))) (apply #'parse-xstream xstream handler args))))))
(defun parse-xstream (xstream handler &rest args) (defun parse-xstream (xstream handler &rest args)