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

reader: honor *read-suppress* in #\foo:bar reader

Browse source
This commit is contained in:
Daniel Kochmański 2026-03-04 20:25:29 +01:00
parent 9369946933
commit b6ac33834f
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/reader/rtab_cl.d
View file

@ -214,11 +214,16 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
{
const cl_env_ptr the_env = ecl_process_env();
cl_object token, string;
if (d != ECL_NIL && !read_suppress) {
bool suppress = read_suppress;
if (d != ECL_NIL && !suppress) {
unlikely_if (!ECL_FIXNUMP(d) || d != ecl_make_fixnum(0)) {
FEreader_error("~S is an illegal CHAR-FONT.", in, 1, d);
}
}
if(suppress) {
ecl_read_token(in, 1);
return ECL_NIL;
}
token = ecl_read_token(in, 1);
string = token->token.string;
if (TOKEN_STRING_FILLP(string) == 1) {