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