From 6f996b8387b9a040707e8a1613311e8fcd1105e5 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 25 Oct 2022 00:13:32 -0300
Subject: bin/cl: Setup Clozure

---
 bin/cl | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

(limited to 'bin/cl')

diff --git a/bin/cl b/bin/cl
index cadc9d5..6ecfbba 100755
--- a/bin/cl
+++ b/bin/cl
@@ -28,7 +28,7 @@ escape_name() {
 IMPLEMENTATIONS='
 abcl
 allegro
-ccl
+clozure
 clasp
 clisp
 cmucl
@@ -236,8 +236,20 @@ case "$IMPL" in
 	allegro)
 		exit 4
 		;;
-	ccl)
-		exit 4
+	clozure)
+		set -- -l "$MAIN" "$@"
+		if [ -n "$IMAGE" ]; then
+			set -- -I "$IMAGE" "$@"
+		fi
+		if [ "$NO_RC" = true ]; then
+			set -- -n "$@"
+		fi
+		if [ "$VERBOSE" = false ]; then
+			set -- -Q "$@"
+		else
+			set -x
+		fi
+		exec ccl "$@"
 		;;
 	clasp)
 		exit 4
-- 
cgit v1.2.3