aboutsummaryrefslogtreecommitdiff
path: root/bin/cl
diff options
context:
space:
mode:
authorEuAndreh <eu@euandre.org>2022-10-25 00:13:32 -0300
committerEuAndreh <eu@euandre.org>2022-10-25 00:13:46 -0300
commit6f996b8387b9a040707e8a1613311e8fcd1105e5 (patch)
treef8a0d67af9dd633b0f003c90f89dff257eb03009 /bin/cl
parentbin/cl: Allow giving "-- --option" to the underlying Lisp command (diff)
downloaddotfiles-6f996b8387b9a040707e8a1613311e8fcd1105e5.tar.gz
dotfiles-6f996b8387b9a040707e8a1613311e8fcd1105e5.tar.xz
bin/cl: Setup Clozure
Diffstat (limited to 'bin/cl')
-rwxr-xr-xbin/cl18
1 files changed, 15 insertions, 3 deletions
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