#!/bin/csh -fx
#
#  do-worldbuild -- script to run worldbuild
#
# $Header: do-worldbuild,v 1.3 92/02/26 01:11:18 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:bootstrap" :if-does-not-exist nil)
(load "target:tools/setup")
(load "target:compiler/generic/genesis")
(load "target:tools/worldbuild")
(quit)
EOF
