$?@image{"${image-path}" -s "${@script}" |
${@ENV:ECL?ecl} "${@ecl-opt}norc"
"${@ecl-opt}eval" "(progn
- ${run-script-prelude}
- ${clear-cl-user})"
+ ${run-script-prelude}
+ ${clear-cl-user})"
"${@ecl-opt}shell" "${@script}"}
--
run-script =
${command}
$?@image{-core "${image-path}" -eval "${image-restore}" |
- -batch -noinit -nositeinit -quiet
+ -batch -noinit -quiet
-eval "(progn
(setf ext:*require-verbose* nil)
- ${run-script-prelude})"}
+ ${run-script-prelude}
+ ${clear-cl-user})"}
-load "${@script}" -eval "(ext:quit)" --
dump-image =
- ${command} -batch -noinit -nositeinit -quiet
- -eval "${dump-image-prelude}"
+ ${command} -batch -noinit -quiet
+ -eval "(progn ${dump-image-prelude} ${clear-cl-user})"
-eval "(ext:save-lisp \"${@image-new|q}\"
:batch-mode t :print-herald nil
:site-init nil :load-init-file nil)"