#!/bin/sh

# save the current kernel
mv dppccl dppccl.bak

# build the new kernel
cd lisp-kernel/darwin/
make clean
make
cd -

# remove stale fasls
find . -name '*.dfsl' -exec rm {} \;

# save old ppc-boot.image file
mv ppc-boot.image ppc-boot.image.bak

# build all new fasls from lisp source
./dppccl -e "(progn \
               (xload-level-0 :force) \
               (compile-ccl t) \
               (quit))"

# save the old image file
mv dppccl.image dppccl.image.bak

# finally create brand new image file
echo "(save-application \"dppccl.image\")" | ./dppccl ppc-boot.image