### -*-sh-*-
###
### Auxiliary script for dumping ECL
###
### (c) 2020 Mark Wooding
###
###----- Licensing notice ---------------------------------------------------
###
### This file is part of Runlisp, a tool for invoking Common Lisp scripts.
###
### Runlisp is free software: you can redistribute it and/or modify it
### under the terms of the GNU General Public License as published by the
### Free Software Foundation; either version 3 of the License, or (at your
### option) any later version.
###
### Runlisp is distributed in the hope that it will be useful, but WITHOUT
### ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
### FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
### for more details.
###
### You should have received a copy of the GNU General Public License
### along with Runlisp. If not, see .
set -e
case $# in 4) ;; *) echo >&2 "usage: $0 IMAGE ECL ECLOPT TMP"; exit 2 ;; esac
image=$1 ecl=$2 eclopt=$3 tmp=$4
run () { echo "$*"; "$@"; }
## Start by compiling a copy of ASDF.
cat >"$tmp/ecl-build.lisp" <"$tmp/ecl-run.lisp" <