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