#! /bin/sh
# -*- mode:     CL          -*- -------------------------------------------- #
# File:         Make-Zebu-Compiler
# Description:  
# Author:       Joachim H. Laubsch
# Created:      20-Jan-93
# Modified:     Tue Apr 19 14:45:14 1994 (Joachim H. Laubsch)
# Language:     
# Package:      USER
# Status:       Experimental (Do Not Distribute) 
# RCS $Header: $
#
# (c) Copyright 1993, Hewlett-Packard Company
##############################################################################
# Revisions:
# RCS $Log: $
##############################################################################

echo "Make the Zebu Compiler"

export ZEBU
set +u

$LISP/lucid-de -n $* << EOF 2>&1 | tee /tmp/Make-Zebu-Compiler.log

(unless (environment-variable "ZEBU")
  (warn "Unix Environment Variable: ZEBU is unbound") 
  (quit))

(setf (working-directory) (environment-variable "ZEBU"))
(load "ZEBU-init.lisp")

(zb::zebu-compiler)
(setq *enter-top-level-hook*  #'zb::compile-from-command-line)
(discard-source-file-info)

(DISKSAVE "./Zebu-Compiler" :FULL-GC T :WRITABLE T :VERBOSE T)
(quit)
EOF

##############################################################################
##                          End of Make-Zebu-Compiler
##############################################################################
