[armedbear-cvs] r13403 - branches/0.26.x/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Jul 14 08:40:07 2011
New Revision: 13403

Log:
Backport r13402: Fix failures of SYNTAX.SHARP-BACKSLASH.6 and SYNTAX.SHARP-BACKSLASH.7.

Modified:
   branches/0.26.x/abcl/src/org/armedbear/lisp/LispCharacter.java

Modified: branches/0.26.x/abcl/src/org/armedbear/lisp/LispCharacter.java
==============================================================================
--- branches/0.26.x/abcl/src/org/armedbear/lisp/LispCharacter.java	Thu Jul 14 08:33:56 2011	(r13402)
+++ branches/0.26.x/abcl/src/org/armedbear/lisp/LispCharacter.java	Thu Jul 14 08:40:07 2011	(r13403)
@@ -627,7 +627,8 @@
       }
 
     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());
     }
         
     if (c<0) return null;