From e42b76c2f7613797c2331c9efbeeab45ed4c8e57 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 4 Sep 2010 16:04:41 +0200 Subject: [PATCH] Another iteration in the reader package handling --- src/c/read.d | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/c/read.d b/src/c/read.d index c07f72538..51eb0c5bf 100644 --- a/src/c/read.d +++ b/src/c/read.d @@ -2531,13 +2531,14 @@ read_VV(cl_object block, void (*entry_point)(cl_object)) (*entry_point)(MAKE_FIXNUM(0)); x = cl_core.packages_to_be_created; loop_for_on(x) { + if (ecl_member(x, cl_core.packages)) + continue; if ((old_eptbc == OBJNULL) || !ecl_member(x, old_eptbc)) { CEerror(Ct, "The package named ~A was referenced in " "compiled file~& ~A~&but has not been created", 2, CAR(x), block->cblock.name); } } end_loop_for_on(x); - /* old_eptbc = cl_core.packages_to_be_created; */ if (VVtemp) { block->cblock.temp_data = NULL; block->cblock.temp_data_size = 0;