summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
f07b028)
Rather than just check the `lisp-implementation-version', include the
ASDF version too (which is probably rather important).
config_subst_split_var(&config, sect, runvar, &av_version);
if (!av_version.n)
lose("empty `run-script' command for Lisp implementation `%s'", name);
config_subst_split_var(&config, sect, runvar, &av_version);
if (!av_version.n)
lose("empty `run-script' command for Lisp implementation `%s'", name);
- argv_append(&av_version, xstrdup("?(lisp-implementation-version)"));
+ argv_append(&av_version,
+ config_subst_string_alloc
+ (&config, sect, "<internal>",
+ "?${lisp-version?(lisp-implementation-version)}"));
config_subst_split_var(&config, sect, dumpvar, &av_dump);
if (!av_dump.n)
lose("empty `dump-image' command for Lisp implementation `%s'", name);
config_subst_split_var(&config, sect, dumpvar, &av_dump);
if (!av_dump.n)
lose("empty `dump-image' command for Lisp implementation `%s'", name);
${ignore-shebang}
${set-script-feature})
${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}
;; Full pathname to custom image.
image-path = ${@image-dir}/${image-file}