Changeset 13402

Timestamp:

07/14/11 15:33:56 (12 years ago)

Author:

Mark Evenson

Message:

Fix failures of SYNTAX.SHARP-BACKSLASH.6 and SYNTAX.SHARP-BACKSLASH.7.

The #\Unnnn syntax only accepts characters with exactly four digits,
so we need to pad our names with leading zeros.

Alternatively, we could loosen the four digit restricion.

File:

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

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

@@ -628 +628 @@
 
     if (c > 255) {
-        return "U" + Integer.toString(c, 16);
+        final String result = "0000" + Integer.toString(c, 16);
+        return "U" + result.substring(result.length() - 4, result.length());
     }