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

The name of the character was clobbered and could not be accessed by

Browse source 
the call to FEerror().
This commit is contained in:
jjgarcia 2002-12-04 17:46:15 +00:00
parent bf8a3c21a9
commit acb4f2ef3f
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/read.d
View file

@ -664,8 +664,9 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
n = 8*n + c->string.self[i] - '0';
c = CODE_CHAR(n & 0377);
} else {
c = cl_name_char(c);
if (Null(c)) FEerror("~S is an illegal character name.", 1, c);
cl_object nc = cl_name_char(c);
if (Null(nc)) FEerror("~S is an illegal character name.", 1, c);
c = nc;
}
@(return c)
}