From b5260d6af32ad0960b4bf974730934ca5c56d48b Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 19 Oct 2022 23:40:40 -0300
Subject: Makefile: Include working Lisp image for SBCL

---
 bin/cl | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

(limited to 'bin')

diff --git a/bin/cl b/bin/cl
index 1b9a659..2135f5c 100755
--- a/bin/cl
+++ b/bin/cl
@@ -198,7 +198,7 @@ else
 		          :print NIL)
 		    (uiop:quit 0))
 		  (error (e)
-		    (format *error-output* "~&~%ERROR: ~a" e)
+		    (format *error-output* "~&~%error: ~a~%" e)
 		    (uiop:quit 1)))
 	EOF
 fi
@@ -263,17 +263,19 @@ case "$IMPL" in
 		exit 4
 		;;
 	sbcl)
-		ARGS="--disable-debugger --script $MAIN"
-		if [ "$VERBOSE" = false ]; then
-			ARGS="$ARGS --noinform"
+		ARGS="--load $MAIN"
+		if [ -n "$IMAGE" ]; then
+			set -- --core "$IMAGE"
 		fi
 		if [ "$NO_RC" = true ]; then
 			ARGS="$ARGS --no-sysinit --no-userinit"
 		fi
-		if [ -n "$IMAGE" ]; then
-			set -- --core "$IMAGE"
+		if [ "$VERBOSE" = false ]; then
+			ARGS="--noinform $ARGS"
+		else
+			set -x
 		fi
-		exec sbcl $ARGS "$@"
+		exec sbcl "$@" $ARGS
 		;;
 	*)
 		printf 'Unsupported implementation: "%s".\n\n' "$IMPL" >&2
-- 
cgit v1.2.3