From 3f4b1c440db863452ecb3d7b3149fe35e364b5c8 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 25 Oct 2022 00:18:12 -0300
Subject: bin/cl: Alphabetically order Clozure code

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

(limited to 'bin')

diff --git a/bin/cl b/bin/cl
index 12de987..73dbb7a 100755
--- a/bin/cl
+++ b/bin/cl
@@ -28,9 +28,9 @@ escape_name() {
 IMPLEMENTATIONS='
 abcl
 allegro
-clozure
 clasp
 clisp
+clozure
 cmucl
 ecl
 jscl
@@ -240,21 +240,6 @@ case "$IMPL" in
 	allegro)
 		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
 		;;
@@ -273,6 +258,21 @@ case "$IMPL" in
 		fi
 		exec clisp "$@"
 		;;
+	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 "$@"
+		;;
 	cmucl)
 		exit 4
 		;;
-- 
cgit v1.2.3