From 346ebd7146f36f3a3be3d8dd5c67d30657997e78 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 15 Oct 1991 15:30:52 +0000
Subject: [PATCH] Initial revision

---
 tools/compile-all | 59 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100755 tools/compile-all

diff --git a/tools/compile-all b/tools/compile-all
new file mode 100755
index 000000000..a93ca2266
--- /dev/null
+++ b/tools/compile-all
@@ -0,0 +1,59 @@
+#!/bin/csh -f
+#
+#  compile-all -- script to compile everything but PCL
+#
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.1 1991/10/15 15:30:52 ram Exp $
+
+if ($#argv) then
+	set subdir = $argv[1]
+else
+	set subdir = alpha
+endif
+set lisp = /afs/cs/project/clisp/@sys/$subdir
+
+lisp -noinit << EOF
+(setf (search-list "target:") '("$lisp/"))
+(load "target:tools/setup")
+(comf "target:tools/setup")
+(comf "target:tools/rcs")
+(quit)
+EOF
+
+lisp -noinit << EOF
+(setf (search-list "target:") '("$lisp/"))
+(load "target:tools/setup")
+(push :small *features*)
+(setf *interactive* nil *gc-verbose* nil)
+(load "target:tools/worldcom")
+(quit)
+EOF
+
+lisp -noinit << EOF
+(setf (search-list "target:") '("$lisp/"))
+(setf (search-list "clx:") '("target:clx/"))
+(load "target:tools/setup")
+(push :small *features*)
+(setf *interactive* nil *gc-verbose* nil)
+(load "target:tools/clxcom")
+(quit)
+EOF
+
+lisp -noinit << EOF
+(setf (search-list "target:") '("$lisp/"))
+(load "target:tools/setup")
+(push :small *features*)
+(setf *interactive* nil *gc-verbose* nil)
+(load "target:tools/hemcom")
+(quit)
+EOF
+
+lisp -noinit << EOF
+(setf (search-list "target:") '("$lisp/"))
+(load "target:tools/setup")
+(push :small *features*)
+(setf *interactive* nil *gc-verbose* nil)
+(load "target:tools/comcom")
+(quit)
+EOF
+
+echo "Done..."
-- 
GitLab