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

Use escape characters when there are invalid characters in the symbol name

Browse source
This commit is contained in:
jjgarcia 2005-01-11 14:31:55 +00:00
parent 5945a751d3
commit 99a56f75ee
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/print.d
View file

@ -687,7 +687,7 @@ needs_to_be_escaped(cl_object s, cl_object readtable, cl_object print_case)
for (i = 0; i < s->string.fillp; i++) {
int c = s->string.self[i] & 0377;
int syntax = readtable->readtable.table[c].syntax_type;
if (syntax != cat_constituent || (c) == ':')
if (syntax != cat_constituent || ecl_invalid_character_p(c) || (c) == ':')
return 1;
if ((action == ecl_case_downcase) && isupper(c))
return 1;