Fixed build on non-Unicode lisps.

Fixed parsing on non-Unicode lisps.
Fixed Unicode detection on OpenMCL.

GNUmakefile

@@ -4,5 +4,4 @@ all:
 
 .PHONY: clean
 clean:
-	touch dummy.fasl
+	find . \( -name \*.fasl -o -name \*.x86f -o -name \*.lx64fsl \) -print0 | xargs -0 rm -f
-	find . \( -name \*.fasl -o -name \*.x86f \) -print0 | xargs -0 rm

cxml.asd

@@ -2,6 +2,9 @@
   (:use :asdf :cl))
 (in-package :cxml-system)
 
+;; force loading of runes.asd, which installs *features* this file depends on
+(find-system :runes)
+
 (defclass closure-source-file (cl-source-file) ())
 
 #+scl

doc/index.xml

@@ -59,6 +59,10 @@
     <h3>Recent Changes</h3>
     <p class="nomargin"><tt>rel-2007-mm-dd</tt></p>
     <ul class="nomargin">
+      <li>
+	Fixed build on non-Unicode lisps.  Fixed parsing on
+	non-Unicode lisps.  Fixed Unicode detection on OpenMCL.
+      </li>
       <li>Serialization no longer defaults to canonical form.</li>
       <li>Fixed octet array argument to make-source.</li>
       <li>
@@ -74,6 +78,8 @@
 	where normal streams are used instead of xstreams and ystreams
 	(albeit both SCL-specific at this point).
       </li>
+      <li>new convenience serialization function cxml:doctype.  Various
+	DTD serialization fixes.</li>
     </ul>
     <p class="nomargin"><tt>rel-2007-05-26</tt></p>
     <ul class="nomargin">

runes.asd

@@ -26,7 +26,9 @@
                       (progn
                         (format t " ok, characters have at least 16 bits.~%")
                         :rune-is-character))
-             (unless (and (< x char-code-limit) (code-char x))
+             (unless (or (<= #xD800 x #xDFFF)
+			 (and (< x char-code-limit) (code-char x)))
+	       (print (code-char x))
                (format t " no, reverting to octet strings.~%")
                (return :rune-is-integer)))
            *features*))

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)