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

relative dateinamen absolutifizieren, damit wir sie in entity urls mergen

Browse Source 
koennen (thanks to Holger Schauer for the report)
This commit is contained in:
dlichteblau
2006-03-20 12:42:26 +00:00
parent 0b361f3908
commit 4368c972a8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
xml/xml-parse.lisp
View File

@ -2978,7 +2978,7 @@
(make-stream-name (make-stream-name
:entity-name "main document" :entity-name "main document"
:entity-kind :main :entity-kind :main
:uri (pathname-to-uri filename))) :uri (pathname-to-uri (merge-pathnames filename))))
(apply #'parse-xstream input handler args))) (apply #'parse-xstream input handler args)))
(defun resolve-synonym-stream (stream) (defun resolve-synonym-stream (stream)
@ -2991,7 +2991,7 @@
;; ignore-errors, because sb-bsd-sockets creates instances of ;; ignore-errors, because sb-bsd-sockets creates instances of
;; FILE-STREAMs that aren't ;; FILE-STREAMs that aren't
(ignore-errors (pathname stream))) (ignore-errors (pathname stream)))
(pathname-to-uri (pathname stream)) (pathname-to-uri (merge-pathnames (pathname stream)))
nil)) nil))
(defun parse-stream (stream handler &rest args) (defun parse-stream (stream handler &rest args)