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

The dispatch macro from sharp+backslash works also when assigned to other characters.

Browse source
This commit is contained in:
jjgarcia 2005-11-04 11:17:48 +00:00
parent 4c7187dae5
commit ab95aec441
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/c/read.d
View file

@ -677,14 +677,15 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
fix(d) != 0)
FEreader_error("~S is an illegal CHAR-FONT.", in, 1, d);
/* assuming that CHAR-FONT-LIMIT is 1 */
bds_bind(@'*readtable*', cl_core.standard_readtable);
ecl_unread_char('\\', in);
if (read_suppress) {
(void)read_object(in);
@(return Cnil)
}
ECL_SETQ(@'*read-suppress*', Ct);
bds_bind(@'*read-suppress*', Ct);
(void)read_object(in);
ECL_SETQ(@'*read-suppress*', Cnil);
bds_unwind_n(2);
if (read_suppress) {
c = Cnil;
goto OUTPUT;
}
c = cl_env.token;
if (c->string.fillp == 1)
c = CODE_CHAR(c->string.self[0]);
@ -705,6 +706,7 @@ sharp_backslash_reader(cl_object in, cl_object c, cl_object d)
if (Null(nc)) FEreader_error("~S is an illegal character name.", in, 1, copy_simple_string(c));
c = nc;
}
OUTPUT:
@(return c)
}
@ -722,6 +724,7 @@ sharp_single_quote_reader(cl_object in, cl_object c, cl_object d)
} else {
c = cl_list(2, @'function', c);
}
OUTPUT:
@(return c)
}
@ -1597,6 +1600,7 @@ CANNOT_PARSE:
else
FEend_of_file(binary_input_stream);
}
OUTPUT:
@(return c)
@)