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)