mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-02 10:40:31 -08:00
Code Issues Projects Releases Packages Wiki Activity

When a package is created in a file loaded by a binary file, it must be removed from the list of packages to be created.

Browse source
This commit is contained in:
jjgarcia 2003-11-03 09:41:01 +00:00
parent 158997357b
commit 76d878f4bf
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/c/read.d
View file

@ -1872,14 +1872,16 @@ read_VV(cl_object block, void *entry)
NO_DATA:
/* Execute top-level code */
(*entry_point)(MAKE_FIXNUM(0));
if (ecl_packages_to_be_created != Cnil) {
CEerror("The following packages were referenced in a~"
"compiled file, but they have not been created: ~A",
1, ecl_packages_to_be_created);
}
x = ecl_packages_to_be_created;
loop_for_on(x) {
if (!member(x, old_eptbc)) {
CEerror("The following package was referenced in a~"
"compiled file, but has not been created: ~A",
2, block->cblock.name, CAR(x));
}
} end_loop_for_on;
bds_unwind1;
} CL_UNWIND_PROTECT_EXIT {
ecl_packages_to_be_created = old_eptbc;
if (in != OBJNULL)
close_stream(in, 0);
} CL_UNWIND_PROTECT_END;