[cxml-cvs] CVS cxml/klacks

[dlichteblau]

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

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


--- /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/12/02 20:56:23	1.14
+++ /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2008/02/08 21:43:12	1.15
@@ -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