Changeset 13402 for trunk/abcl/src/org


Ignore:
Timestamp:
07/14/11 15:33:56 (10 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/LispCharacter.java

    r13256 r13402  
    628628
    629629    if (c > 255) {
    630         return "U" + Integer.toString(c, 16);
     630        final String result = "0000" + Integer.toString(c, 16);
     631        return "U" + result.substring(result.length() - 4, result.length());
    631632    }
    632633       
Note: See TracChangeset for help on using the changeset viewer.