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*))