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/runes.asd
+++ b/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*))