Seems we need to call the garbage collector in order to stabilize loading of binary files

This commit is contained in:
jjgarcia 2008-05-30 21:00:17 +00:00
parent 263c837285
commit d93be391f9
2 changed files with 5 additions and 1 deletions

View file

@ -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));

View file

@ -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: ()