[cxml-cvs] CVS cxml/xml

[dlichteblau]

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)