Skip to content
Snippets Groups Projects
Commit ba674f0f authored by ram's avatar ram
Browse files

Added some force-output's and moved run-program to after the initial

load-foreign.
parent 7b267bc7
No related branches found
No related tags found
No related merge requests found
...@@ -33,10 +33,13 @@ ...@@ -33,10 +33,13 @@
;;; Get some data on this core. ;;; Get some data on this core.
;;; ;;;
(write-string "What is the current lisp-implementation-version? ") (write-string "What is the current lisp-implementation-version? ")
(force-output)
(set '*lisp-implementation-version* (read-line)) (set '*lisp-implementation-version* (read-line))
(write-string "What is the compiler version? ") (write-string "What is the compiler version? ")
(force-output)
(set 'compiler-version (read-line)) (set 'compiler-version (read-line))
(write-string "What is the Hemlock version? ") (write-string "What is the Hemlock version? ")
(force-output)
(set '*hemlock-version* (read-line)) (set '*hemlock-version* (read-line))
;;; ;;;
...@@ -45,7 +48,6 @@ ...@@ -45,7 +48,6 @@
(export 'ed) (export 'ed)
(load "code:run-program")
(load "code:lfloatcon") (load "code:lfloatcon")
(load "code:spirrat") (load "code:spirrat")
(load "code:foreign") (load "code:foreign")
...@@ -67,6 +69,10 @@ ...@@ -67,6 +69,10 @@
;;; ;;;
(load-foreign nil) (load-foreign nil)
;;; This has to occur after the call to LOAD-FOREIGN.
;;;
(load "code:run-program")
#| #|
;;; CLX. ;;; CLX.
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment