represent base uris as strings, not puri objects

2008-02-08 21:43:12 +00:00
parent f0bbf4abf0
commit 1cc473b918
2 changed files with 8 additions and 2 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -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)