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

Modified Files: xml-parse.lisp Log Message: Fixed build on non-Unicode lisps. Fixed parsing on non-Unicode lisps. Fixed Unicode detection on OpenMCL.

--- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/06/16 11:27:19 1.68 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/07/05 20:58:15 1.69 @@ -2771,7 +2771,7 @@ (write-char c out))))))

(defun compute-base (attrs) - (let ((new (sax:find-attribute "xml:base" attrs)) + (let ((new (sax:find-attribute #"xml:base" attrs)) (current (car (base-stack *ctx*)))) (if new (puri:merge-uris (escape-uri (sax:attribute-value new)) current)