Commit 57edcf8a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

4.0.7.4: tweak for debugging tests.

parent 481b3b63
......@@ -81,8 +81,9 @@ t_system () {
t_args "--system ..."
t_next "$@" --system clt-asd --source-registry \
"(:source-registry \
(:directory \"${PWD}\") (:tree ${ASDF_DIR}) \
(:directory \"${PWD}\") \
:ignore-inherited-configuration)"
# (:tree ${ASDF_DIR}) \
}
t_init () {
t_register "$(foo_require "$NUM:init" init)" xxx_t_init
......
#!/bin/sh
#| cl-launch.sh -- shell wrapper generator for Common Lisp software -*- Lisp -*-
CL_LAUNCH_VERSION='4.0.7.3'
CL_LAUNCH_VERSION='4.0.7.4'
license_information () {
AUTHOR_NOTE="\
# Please send your improvements to the author:
......@@ -1467,14 +1467,14 @@ Try specifying a supported implementation with option --lisp (or \$LISP)"
esac
}
use_dumped_image () {
: use_dumped_image $OUTPUT_FILE
: use_dumped_image $OUTPUT_FILE -- standalone: ${CL_LAUNCH_STANDALONE}
compute_image_path "$DUMP"
case "${CL_LAUNCH_STANDALONE}:${OUTPUT_FILE}" in
:!) invoke_image "$@" ;;
:*) make_image_invoker ;;
t:!) if [ -n "$CL_LAUNCH_VERBOSE" ] ; then set -x ; fi ;
${IMAGE} "$@" ;;
t:*) ;;
t:*) : nothing to do ;;
esac
}
make_image_invoker () {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment