use_sbcl () { li="${SBCL} --noinform --no-userinit --load" ; ev="--eval" ; } ; \
use_ecl () { li="${ECL} -norc -load" ; ev="-eval" ; } ; \
use_cmucl () { li="${CMUCL} -noinit -load" ; ev="-eval" ; } ; \
- use_abcl () { li="${ABCL} -noinit --noinform --load" ; ev="--eval" ; } ; \
+ use_abcl () { li="${ABCL} --noinit --nosystem --noinform --load" ; ev="--eval" ; } ; \
use_scl () { li="${SCL} -noinit -load" ; ev="-eval" ; } ; \
use_allegro () { li="${ALLEGRO} -q -L" ; ev="-e" ; } ; \
use_allegromodern () { li="${ALLEGROMODERN} -q -L" ; ev="-e" ; } ; \
case "$lisp" in
abcl)
command="${ABCL:-abcl}"
- flags="--noinit --noinform"
+ flags="--noinit --nosystem --noinform"
eval="--eval" ;;
allegro)
command="${ALLEGRO:-alisp}"