From ce1dbe3c29abad3d611933aca3ac578e37aa5b9e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 5 Feb 1992 19:01:20 +0000
Subject: [PATCH] Added ``(load "target:bootstrap" :if-does-not-exist nil)'' so
 that special stuff can be done to bootstrap new systems.

---
 tools/compile-all | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/tools/compile-all b/tools/compile-all
index 25ab43957..19b59014f 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.3 1991/12/12 02:35:37 wlott Exp $
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.4 1992/02/05 19:01:20 wlott Exp $
 
 if ($#argv) then
 	set subdir = $argv[1]
@@ -28,6 +28,7 @@ endif
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (comf "target:tools/setup")
 (comf "target:tools/rcs")
@@ -37,6 +38,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/worldcom")
@@ -47,6 +49,7 @@ $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
 (setf (search-list "clx:") '("target:clx/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/clxcom")
@@ -56,6 +59,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/hemcom")
@@ -65,6 +69,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (load "target:tools/setup")
 (setf *interactive* nil *gc-verbose* nil)
 (load "target:tools/comcom")
@@ -74,6 +79,7 @@ EOF
 $lisp -noinit << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:bootstrap" :if-does-not-exist nil)
 (setf *gc-verbose* nil)
 (load "target:tools/pclcom")
 (quit)
-- 
GitLab