[cxml-cvs] CVS cxml

[dlichteblau]

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

Modified Files:
	GNUmakefile cxml.asd runes.asd 
Log Message:
Fixed build on non-Unicode lisps.
Fixed parsing on non-Unicode lisps.
Fixed Unicode detection on OpenMCL.


--- /project/cxml/cvsroot/cxml/GNUmakefile	2005/03/13 18:02:50	1.1.1.1
+++ /project/cxml/cvsroot/cxml/GNUmakefile	2007/07/05 20:58:15	1.2
@@ -4,5 +4,4 @@
 
 .PHONY: clean
 clean:
-	touch dummy.fasl
-	find . \( -name \*.fasl -o -name \*.x86f \) -print0 | xargs -0 rm
+	find . \( -name \*.fasl -o -name \*.x86f -o -name \*.lx64fsl \) -print0 | xargs -0 rm -f
--- /project/cxml/cvsroot/cxml/cxml.asd	2007/06/16 11:27:18	1.19
+++ /project/cxml/cvsroot/cxml/cxml.asd	2007/07/05 20:58:15	1.20
@@ -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
--- /project/cxml/cvsroot/cxml/runes.asd	2007/06/30 21:24:34	1.3
+++ /project/cxml/cvsroot/cxml/runes.asd	2007/07/05 20:58:15	1.4
@@ -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*))