mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Another take at sharp_dot_reader()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-12-26 09:09:52 +01:00
parent 9277765e4e
commit 517105d159
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/read.d
View file

@ -953,17 +953,16 @@ sharp_dot_reader(cl_object in, cl_object c, cl_object d)
{
if (d != Cnil && !read_suppress)
extra_argument('.', in, d);
/* FIXME! We should do something here to ensure that the #.
* only uses the #n# that have been defined */
c = ecl_read_object(in);
if (!Null(ECL_SYM_VAL(env, @'si::*sharp-eq-context*')))
c = patch_sharp(c);
unlikely_if (c == OBJNULL)
FEend_of_file(in);
if (read_suppress)
@(return Cnil);
unlikely_if (ecl_symbol_value(@'*read-eval*') == Cnil)
FEreader_error("Cannot evaluate the form #.~A", in, 1, c);
/* FIXME! We should do something here to ensure that the #.
* only uses the #n# that have been defined */
c = patch_sharp(c);
c = si_eval_with_env(1, c);
@(return c)
}