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

Another iteration in the reader package handling

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-09-04 16:04:41 +02:00
parent c4af381d02
commit e42b76c2f7
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/read.d
View file

@ -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;