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