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

reader: factor out ecl_read_only_token from ecl_read_token

Browse source 
The end goal is to make ecl_read_token become ecl_parse_token and read tokens
only from ecl_read_only_token, to keep Common Lisp -specific processing out of
the token reader.
This commit is contained in:
Daniel Kochmański 2026-03-02 13:23:56 +01:00
parent 2b36abd0b7
commit 4e7aa4e358
4 changed files with 113 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -213,13 +213,15 @@ static cl_object
sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
{
const cl_env_ptr the_env = ecl_process_env();
cl_object token;
cl_object token, eints;
if (d != ECL_NIL && !read_suppress) {
unlikely_if (!ECL_FIXNUMP(d) || d != ecl_make_fixnum(0)) {
FEreader_error("~S is an illegal CHAR-FONT.", in, 1, d);
}
}
token = ecl_read_token(in, ECL_READ_ONLY_TOKEN, 1);
token = ecl_read_only_token(in, 1);
eints = ecl_nth_value(the_env,1);
ecl_free_stack(eints);
if (token == ECL_NIL) {
c = ECL_NIL;
} else if (TOKEN_STRING_FILLP(token) == 1) {