From 9277765e4e1a2a5261fbc063f3d7cf4c6eb77b2f Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 25 Dec 2010 22:49:01 +0100 Subject: [PATCH] Patch-sharp the expression read by #. before executing it. --- src/c/read.d | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/c/read.d b/src/c/read.d index 2db82ce5d..4c5dc80f4 100644 --- a/src/c/read.d +++ b/src/c/read.d @@ -953,7 +953,11 @@ 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)