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/klacks/klacks-impl.lisp
+++ b/klacks/klacks-impl.lisp
@ -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