From ba674f0f10e501d6d91f5e788f2373f5a53c37d3 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 1 May 1990 13:02:56 +0000
Subject: [PATCH] Added some force-output's and moved run-program to after the
 initial load-foreign.

---
 tools/worldload.lisp | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index 4b782e4cc..bbf868902 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -33,10 +33,13 @@
 ;;; Get some data on this core.
 ;;;
 (write-string "What is the current lisp-implementation-version? ")
+(force-output)
 (set '*lisp-implementation-version* (read-line))
 (write-string "What is the compiler version? ")
+(force-output)
 (set 'compiler-version (read-line))
 (write-string "What is the Hemlock version? ")
+(force-output)
 (set '*hemlock-version* (read-line))
 
 ;;;
@@ -45,7 +48,6 @@
 
 (export 'ed)
 
-(load "code:run-program")
 (load "code:lfloatcon")
 (load "code:spirrat")
 (load "code:foreign")
@@ -67,6 +69,10 @@
 ;;;
 (load-foreign nil)
 
+;;; This has to occur after the call to LOAD-FOREIGN.
+;;;
+(load "code:run-program")
+
 #|
 ;;; CLX.
 ;;;
-- 
GitLab