From 0aa44ef1f2e8db90e48df8400b2c7af087471353 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 15 Jun 1990 13:02:34 +0000 Subject: [PATCH] Changed the :INIT-FUNCTION to SAVE-LISP to be the compiled WORLD-LOAD-INIT-FUNCTION, rather than an interpreted lambda. --- tools/worldload.lisp | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index bbf868902..9f04018f9 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -58,7 +58,6 @@ (load "assem:rompconst") (load "assem:disassemble") - (load "c:loadcom.lisp") (setq lisp::original-lisp-environment NIL) @@ -164,6 +163,4 @@ extensions:save-lisp ,lisp::fop-codes compile-file) - :init-function #'(lambda () - (gc-on) - (abort)))) + :init-function #'lisp::world-load-init-function)) -- GitLab