mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-25 14:01:07 -08:00
Code Issues Projects Releases Packages Wiki Activity

Graphic characters are their own names.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-01-11 00:49:46 +01:00
parent 63f1b0313e
commit 0293501b95
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/character.d
View file

@ -454,7 +454,9 @@ cl_char_name(cl_object c)
{
cl_index code = ecl_char_code(c);
cl_object output;
if (code > 127) {
if (ecl_graphic_char_p(code)) {
output = cl_string(c);
} else if (code > 127) {
char name[20]; /* cleanup */
sprintf(name, "U%04x", code);
output = make_base_string_copy(name);