aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/li20
1 files changed, 9 insertions, 11 deletions
diff --git a/bin/li b/bin/li
index 7292db0..f92f487 100755
--- a/bin/li
+++ b/bin/li
@@ -84,20 +84,18 @@ INIT="${XDG_CONFIG_HOME:-$HOME/.config}/lisp-cli/init.lisp"
if [ ! -e "$IMAGE" ]; then
printf 'Bootstrapping a new "%s" image...\n' "$IMPL" >&2
cl \
- -I "$IMPL" \
- -v \
- -e '(ql:quickload :trivial-dump-core)' \
- -e "(trivial-dump-core:dump-image \"$IMAGE\")" \
- -e '(uiop:quit)'
+ -I "$IMPL" \
+ -v \
+ -e '(ql:quickload :trivial-dump-core)' \
+ -E "(trivial-dump-core:dump-image \"$IMAGE\")"
elif [ -n "$(find "$0" "$BIN" "$INIT" -newer "$IMAGE")" ]; then
printf 'Refresh existing "%s" image...\n' "$IMPL" >&2
cl \
- -M "$IMAGE" \
- -I "$IMPL" \
- -v \
- -e '(ql:quickload :trivial-dump-core)' \
- -e "(trivial-dump-core:dump-image \"$IMAGE\")" \
- -e '(uiop:quit)'
+ -M "$IMAGE" \
+ -I "$IMPL" \
+ -v \
+ -e '(ql:quickload :trivial-dump-core)' \
+ -E "(trivial-dump-core:dump-image \"$IMAGE\")"
fi
if [ "$VERBOSE" = true ]; then