Changeset 12584

Timestamp:

04/08/10 21:49:56 (13 years ago)

Author:

ehuelsmann

Message:

Re #92: Don't return characters for the range #xD800 to #xDFFF.

This doesn't fix the character(s) over #xFFFF though.

File:

• trunk/abcl/src/org/armedbear/lisp/LispCharacter.java (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/LispCharacter.java

@@ -348 +348 @@
       public LispObject execute(LispObject arg)
       {
-          int n = Fixnum.getValue(arg);
-          if (n < CHAR_MAX)
-            return lispChars.get((char)n);
-          else if (n <= Character.MAX_VALUE)
-            return new LispCharacter((char)n);
-              // SBCL signals a type-error here: "not of type (UNSIGNED-BYTE 8)"
+        int n = Fixnum.getValue(arg);
+        if (Character.isValidCodePoint(n)
+          return LispCharacter.getInstance((char)n);
         return NIL;
       }