;; Variables are looked up starting in the home (or explicitly specified)
;; section, then proceeding to the parents assigned to `@PARENTS'.
;; (`@PARENTS' usually defaults to `@COMMON'; the parent of `@COMMON' is
-;; `@BUILTIN'; `@BUILTIN' and `@CONFIG' have no parents.)
+;; `@BUILTIN'; `@BUILTIN' and `@ENV' have no parents.)
;;
;; At top-level, the text is split into words at whitespace, unless prevented
;; by double- and single-quote, or escaped by `\'. Within single quotes, all
${ignore-shebang}
${set-script-feature})
+;; An expression to determine the version information for the running Lisp.
+lisp-version =
+ (list (list* \'lisp
+ (lisp-implementation-type)
+ (multiple-value-list (lisp-implementation-version)))
+ (cons \'asdf
+ (asdf:component-version (asdf:find-system "asdf"))))
+
;; Full pathname to custom image.
image-path = ${@image-dir}/${image-file}
$?@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)"