Fixed build on non-Unicode lisps.

Fixed parsing on non-Unicode lisps. Fixed Unicode detection on OpenMCL.
2007-07-05 20:58:15 +00:00
parent d9fe9dfd51
commit 190f472657
5 changed files with 14 additions and 4 deletions
--- a/xml/xml-parse.lisp
+++ b/xml/xml-parse.lisp
@ -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)