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

Small fix regarding the references to undefined packages in compiled code: it is allow to reference the package by a nickname if it is to be created with that nickname later on.

Browse source
This commit is contained in:
jgarcia 2006-10-27 20:27:41 +00:00
parent adc23a67c2
commit 962eb7ff4d
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/package.d
View file

@ -113,12 +113,15 @@ make_package(cl_object name, cl_object nicknames, cl_object use_list)
if (cl_core.packages_to_be_created != OBJNULL) {
cl_object *p = &cl_core.packages_to_be_created;
for (x = *p; x != Cnil; ) {
if (equal(CAAR(x), name)) {
cl_object other_name = CAAR(x);
if (equal(other_name, name) ||
funcall(5, @'member', other_name, nicknames,
@':test', @'string=') != Cnil)
{
*p = CDR(x);
x = CDAR(x);
goto INTERN;
}
/* FIXME! We should also check the nicknames */
p = &CDR(x);
x = *p;
}