diff options
author | EuAndreh <eu@euandre.org> | 2022-10-25 00:13:32 -0300 |
---|---|---|
committer | EuAndreh <eu@euandre.org> | 2022-10-25 00:13:46 -0300 |
commit | 6f996b8387b9a040707e8a1613311e8fcd1105e5 (patch) | |
tree | f8a0d67af9dd633b0f003c90f89dff257eb03009 | |
parent | bin/cl: Allow giving "-- --option" to the underlying Lisp command (diff) | |
download | dotfiles-6f996b8387b9a040707e8a1613311e8fcd1105e5.tar.gz dotfiles-6f996b8387b9a040707e8a1613311e8fcd1105e5.tar.xz |
bin/cl: Setup Clozure
-rw-r--r-- | Makefile | 1 | ||||
-rwxr-xr-x | bin/cl | 18 |
2 files changed, 16 insertions, 3 deletions
@@ -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 \ @@ -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 |