diff --git a/src/c/load.d b/src/c/load.d index 00e486dd4..fc64cd0a4 100644 --- a/src/c/load.d +++ b/src/c/load.d @@ -314,6 +314,10 @@ 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. */ + si_gc(Ct); + /* We need the full pathname */ filename = cl_namestring(cl_truename(filename)); diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in index 6e3350100..808289b7e 100644 --- a/src/lsp/config.lsp.in +++ b/src/lsp/config.lsp.in @@ -46,7 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs." (defun lisp-implementation-version () "Args:() Returns the version of your ECL as a string." - "@PACKAGE_VERSION@ (CVS 2008-05-30 19:03)") + "@PACKAGE_VERSION@ (CVS 2008-05-30 23:00)") (defun machine-type () "Args: ()