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

When dlopen and friends fail, the cblock got inserted in the library list (A Gavrilov)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-10-03 23:22:31 +02:00
parent 91e61db455
commit c96650531c
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/load.d
View file

@ -259,7 +259,14 @@ ecl_library_open(cl_object filename, bool force_reload) {
block = other;
} else {
si_set_finalizer(block, Ct);
#if 0
if (block->cblock.handle != NULL)
cl_core.libraries = CONS(block, cl_core.libraries);
else
ecl_library_close(block);
#else
cl_core.libraries = CONS(block, cl_core.libraries);
#endif
}
}
return block;