From f236a45a24597cb168f3d383280aa17c9acdaafc Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 4 Jun 1992 18:20:32 +0000
Subject: [PATCH] Added a -interactive switch which sets *interactive* to true
 when compiling.

---
 tools/compile-all | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/tools/compile-all b/tools/compile-all
index 500bf2ce8..2b08e2b35 100755
--- a/tools/compile-all
+++ b/tools/compile-all
@@ -2,7 +2,7 @@
 #
 #  compile-all -- script to compile everything
 #
-# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.9 1992/03/04 09:55:21 wlott Exp $
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.10 1992/06/04 18:20:32 ram Exp $
 
 set features = ()
 set misfeatures = ()
@@ -11,6 +11,7 @@ set subdir = alpha
 set core = ""
 set clean = 0
 set update = 1
+set interactive = "nil"
 set bootstrap = "target:bootstrap"
 
 set systems = ""
@@ -47,6 +48,9 @@ while ($#argv > 0)
 			        set misfeatures = ($misfeatures $argv[2])
 				shift
 				breaksw
+			case "-interactive":
+				set interactive = "t"
+				breaksw
 
 # Source tree management:
 			case "-clean":
@@ -84,6 +88,9 @@ Try these:
   -bootstrap	[target:bootstrap]
 	File to load into lisp before compiling.
 
+  -interactive <no arg>
+	Print compiler output to terminal instead of log files.
+
   -misfeature <feature>
 	Remove <feature> from the features when compiling.  May be used more
 	than once.
@@ -200,6 +207,7 @@ $lisp -noinit -eval '(eval (read))' << EOF
   (setf (search-list "target:") '("$dest/" $src))
   (setq *compile-verbose* nil *compile-print* nil) 
   (load "target:tools/setup" :if-source-newer :load-source)
+  (setf *interactive* $interactive *gc-verbose* nil)
   (comf "target:tools/setup" :load t)
   (when (probe-file "${bootstrap}.lisp") (comf "$bootstrap"))
   (quit))
@@ -225,10 +233,10 @@ while ($#sysinfo > 0)
   (setf *features*
 	(set-difference (list* $features *features*) '($misfeatures)))
   (setf (search-list "target:") '("$dest/" $src))
-  (setq *compile-verbose* nil *compile-print* nil) 
+  (setq *compile-verbose* nil *compile-print* nil)
   (load "target:tools/setup")
   (load "$bootstrap" :if-does-not-exist nil)
-  (setf *interactive* nil *gc-verbose* nil)
+  (setf *interactive* $interactive *gc-verbose* nil)
   (load "target:tools/$this_comfile")
   (quit))
 EOF
-- 
GitLab