#!/bin/sh -e
set -x
unset SBCL_HOME

cd /opt/steeldump/src/sbcl

cat >customize-target-features.lisp <<eof
(lambda (x)
  (pushnew :sb-thread x)
  (pushnew :sb-futex x)
  (pushnew :sb-ldb x)
  x)
eof

cat >>src/runtime/runtime.h <<eof
#define SBCL_HOME "/opt/steeldump/lib/sbcl"
eof

cat >>contrib/asdf/asdf.lisp <<eof
(defmethod asdf:perform :around ((o asdf:load-op) (c asdf:cl-source-file))
  (handler-case
      (call-next-method o c)
    (sb-ext:invalid-fasl ()
      (asdf:perform (make-instance 'asdf:compile-op) c)
      (call-next-method))))
eof

sh clean.sh
sh make.sh 'lisp -noinit'

export INSTALL_ROOT=/opt/steeldump
mkdir -p $INSTALL_ROOT
sh install.sh

cd $INSTALL_ROOT

export SBCL_HOME="/opt/steeldump/lib/sbcl"
mv lib/sbcl/sbcl.core vanilla.core
./bin/sbcl \
	--core vanilla.core \
	--userinit /dev/null \
	--sysinit /dev/null \
	--load "/opt/steeldump/scripts/lisp/build-sbcl.lisp"