#!/bin/csh
#
# build-prelude -- recompile the prelude, saving the old one as old-prelude.*
#
#
cd $Y2
setenv PRELUDEBIN $Y2/progs/prelude/$ALLEGRODIR
if (-e $PRELUDEBIN/Prelude.fasl) then
  rm $PRELUDEBIN/old*
  foreach i ($PRELUDEBIN/Prelude*.{fasl,scm})
    mv $i $PRELUDEBIN/old-$i:t
    end
  endif
$ALLEGRO <<EOF
;; Need a big heap to compile the prelude.
;;(lcl:change-memory-management :expand 512 :growth-limit 2048)
#+next (progn (load "com/allegro/next-patches/patch0149.fasl")
              (load "com/allegro/next-patches/patch0151.fasl"))
#+sparc (load "com/allegro/sparc-patches/patch0151.fasl")
(make-package "MUMBLE-IMPLEMENTATION" :use '("LISP"))
(proclaim '(optimize (speed 3) (safety 0) (compilation-speed 0)))
(load "cl-support/cl-init")
(in-package :mumble-user)
(setf *printers* '(phase-time dump-stat))
(setf *optimizers* *all-optimizers*)
;; Set appropriate compiler settings for processing the prelude.
;; Don't try to compile the interface.
(setf *code-chunk-size* 300)
(setf *compile-interface* '#f)
(compile/compile *prelude-unit-filename*)
(excl:exit)
EOF