#! /bin/sh
# -*- mode:     CL          -*- -------------------------------------------- #
# File:         Make-Zebu-Parser
# Description:  
# Author:       Joachim H. Laubsch
# Created:      20-Jan-93
# Modified:     Tue Apr 19 13:01:11 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 Parser"

export ZEBU
set +u

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

(in-package "CL-USER")

(if (environment-variable "ZEBU")
    (setf (working-directory) (environment-variable "ZEBU"))
  (error "Unix Environment Variable: ZEBU is unbound"))

(load "ZEBU-init.lisp")

(zb::zebu)

(discard-source-file-info)

(DISKSAVE "./Zebu-Parser"
	  :FULL-GC T
	  :WRITABLE T
	  :VERBOSE T
	  :restart-function #'zb::load-from-command-line)
(quit)
EOF

##############################################################################
##                          End of Make-Zebu-Parser
##############################################################################
