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

#\ should not rebind the readtable when reading the character name.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-02-09 21:26:27 +01:00
parent 1424215176
commit bc0c5db519
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/read.d
View file

@ -659,10 +659,8 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
FEreader_error("~S is an illegal CHAR-FONT.", in, 1, d);
}
}
ecl_bds_bind(env, @'*readtable*', cl_core.standard_readtable);
token = ecl_read_object_with_delimiter(in, EOF, ECL_READ_ONLY_TOKEN,
cat_single_escape);
ecl_bds_unwind1(env);
if (token == Cnil) {
c = Cnil;
} else if (TOKEN_STRING_FILLP(token) == 1) {