From b6406b4396a6aedff4e66e5a3663b6013550fdcc Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 2 Nov 2022 22:45:40 -0300
Subject: bin/li: Use -E and remove extra -e "(uiop:quit)"

---
 bin/li | 20 +++++++++-----------
 1 file 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
-- 
cgit v1.2.3