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

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Feb  9 16:53:09 2010
New Revision: 12437

Log:
CHAR-CODE-LIMIT is the upper *exclusive* limit.

Found by: Paul Griffioen

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	Tue Feb  9 16:53:09 2010
@@ -2392,7 +2392,7 @@
   public static final int CHAR_MAX = Character.MAX_VALUE;
   static
   {
-    Symbol.CHAR_CODE_LIMIT.initializeConstant(Fixnum.getInstance(CHAR_MAX));
+    Symbol.CHAR_CODE_LIMIT.initializeConstant(Fixnum.getInstance(CHAR_MAX + 1));
   }
 
   static