aboutsummaryrefslogtreecommitdiff
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
parentbin/cl: Allow giving "-- --option" to the underlying Lisp command (diff)
downloaddotfiles-6f996b8387b9a040707e8a1613311e8fcd1105e5.tar.gz
dotfiles-6f996b8387b9a040707e8a1613311e8fcd1105e5.tar.xz
bin/cl: Setup Clozure
-rw-r--r--Makefile1
-rwxr-xr-xbin/cl18
2 files changed, 16 insertions, 3 deletions
diff --git a/Makefile b/Makefile
index 22e961c..dc2600a 100644
--- a/Makefile
+++ b/Makefile
@@ -7,6 +7,7 @@ pod2man = \
lisp-images = \
+ $(XDG_DATA_HOME)/lisp-cli/ccl.image \
$(XDG_DATA_HOME)/lisp-cli/clisp.image \
$(XDG_DATA_HOME)/lisp-cli/sbcl.image \
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