Commit bc0c5db5 authored by Juan Jose Garcia Ripoll's avatar Juan Jose Garcia Ripoll
Browse files

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

parent 14242151
......@@ -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) {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment