From b731eea3c0a0cb8fadec8f20f14ee3c04adfb28a Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr.(none)>
Date: Tue, 21 Oct 2008 23:35:33 +0200
Subject: [PATCH] Avoid a full garbage collection on every LOAD.

---
 src/c/load.d | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/src/c/load.d b/src/c/load.d
index 93a81adfc..292cc8d7e 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -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));