Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
xcvb
cl-launch
Commits
57edcf8a
Commit
57edcf8a
authored
Jul 29, 2014
by
Francois-Rene Rideau
Browse files
4.0.7.4: tweak for debugging tests.
parent
481b3b63
Changes
2
Hide whitespace changes
Inline
Side-by-side
cl-launch-tests.sh
View file @
57edcf8a
...
...
@@ -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
...
...
cl-launch.sh
View file @
57edcf8a
#!/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
()
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment