[armedbear-cvs] r12158 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Sep 20 16:37:40 2009
New Revision: 12158

Log:
Change the CHAR_MAX value to the true upper limit of a character.

Found by asdf-loading tcr's NAMED-READTABLES package.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Lisp.java

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Sun Sep 20 16:37:40 2009
@@ -2317,7 +2317,7 @@
 
   // ### char-code-limit
   // "The upper exclusive bound on the value returned by the function CHAR-CODE."
-  public static final int CHAR_MAX = 256;
+  public static final int CHAR_MAX = 65535;
   static
   {
     Symbol.CHAR_CODE_LIMIT.initializeConstant(Fixnum.getInstance(CHAR_MAX));