Changeset 5183


Ignore:
Timestamp:
Sep 8, 2006, 9:47:22 PM (18 years ago)
Author:
Gary Byers
Message:

CHAR-NAME: use U+xxxx for chars with codes >= #x100.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lib/chars.lisp

    r2325 r5183  
    293293               str)))
    294294          ((and (< code #x100)(graphic-char-p c)) nil)
    295           (t nil))))
     295          (t (format nil "U+~x" code)))))
    296296
    297297
Note: See TracChangeset for help on using the changeset viewer.