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

represent base uris as strings, not puri objects

Browse Source
This commit is contained in:
dlichteblau
2008-02-08 21:43:12 +00:00
parent f0bbf4abf0
commit 1cc473b918
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
klacks/klacks-impl.lisp
View File

@ -490,7 +490,10 @@
nil)))
(defmethod klacks:current-xml-base ((source cxml-source))
(car (base-stack (slot-value source 'context))))
(let ((x (car (base-stack (slot-value source 'context)))))
(if (stringp x)
x
(puri:render-uri x nil))))
(defmethod klacks:map-current-namespace-declarations (fn (source cxml-source))
(loop

5
xml/xml-parse.lisp
View File

@ -692,7 +692,10 @@
nil)))
(defmethod sax:xml-base ((parser cxml-parser))
(car (base-stack (slot-value parser 'ctx))))
(let ((uri (car (base-stack (slot-value parser 'ctx)))))
(if (stringp uri)
uri
(puri:render-uri uri nil))))
(defvar *validate* t)
(defvar *external-subset-p* nil)