From 7c65d9e3404b7b57cfb9df214096b51069e49b75 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 8 Dec 1991 03:09:10 +0000
Subject: [PATCH] Initial revision

---
 tools/do-worldbuild | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 tools/do-worldbuild

diff --git a/tools/do-worldbuild b/tools/do-worldbuild
new file mode 100755
index 000000000..0e3fd56d2
--- /dev/null
+++ b/tools/do-worldbuild
@@ -0,0 +1,28 @@
+#!/bin/csh -fx
+#
+#  do-worldbuild -- script to run worldbuild
+#
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/do-worldbuild,v 1.1 1991/12/08 03:09:10 wlott Exp $
+
+if ($#argv) then
+	set subdir = $argv[1]
+else
+	set subdir = alpha
+endif
+
+set dest = /afs/cs/project/clisp/build/@sys/$subdir
+set src = /afs/cs/project/clisp/src/$subdir
+
+if ($?LISP) then
+	set lisp = $LISP
+else
+	set lisp = lisp
+endif
+
+$lisp -noinit << EOF
+(setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:tools/setup")
+(load "target:compiler/generic/genesis")
+(load "target:tools/worldbuild")
+(quit)
+EOF
-- 
GitLab