mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Avoid a full garbage collection on every LOAD.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-21 23:35:33 +02:00
parent 392ee1f2a6
commit b731eea3c0
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/c/load.d
View file

@ -348,13 +348,6 @@ si_load_binary(cl_object filename, cl_object verbose, cl_object print)
cl_object prefix;
cl_object output;
/* A full garbage collection enables us to detect unused code
and leave space for the library to be loaded. This is only
required when we use the dlopen wrappers. */
if (!ecl_get_option(ECL_OPT_INCREMENTAL_GC)) {
si_gc(Ct);
}
/* We need the full pathname */
filename = cl_namestring(cl_truename(filename));