Changeset 5295


Ignore:
Timestamp:
Oct 5, 2006, 5:09:15 AM (18 years ago)
Author:
Gary Byers
Message:

CHAR-NAME: try to use at least 4 hex digits for #\U+xxxx syntax.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lib/chars.lisp

    r5260 r5295  
    289289                   str)))
    290290              ((and (< code #x100)(graphic-char-p c)) nil)
    291               (t (format nil "U+~x" code))))))
     291              (t (format nil "U+~4,'0x" code))))))
    292292
    293293
Note: See TracChangeset for help on using the changeset viewer.