[cxml-cvs] CVS cxml/xml

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/xml
In directory clnet:/tmp/cvs-serv22544/xml

Modified Files:
	xml-parse.lisp 
Log Message:
represent base uris as strings, not puri objects


--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp	2007/12/22 15:24:52	1.76
+++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp	2008/02/08 21:43:13	1.77
@@ -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)