From 5763cf89b4424ce9fa4c2e4dac2c2f18a29fd65a Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 25 Oct 2022 00:16:18 -0300
Subject: bin/cl: Allow "--" to flow to underlying Lisp command

---
 bin/cl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/bin/cl b/bin/cl
index ee75b9a..12de987 100755
--- a/bin/cl
+++ b/bin/cl
@@ -176,7 +176,11 @@ while getopts 'e:f:pM:I:nvlh' flag; do
 			;;
 	esac
 done
-shift $((OPTIND - 1))
+
+shift $((OPTIND - 2))
+if [ "$1" != '--' ]; then
+	shift
+fi
 
 PRESERVE_ARGS=false
 INTERACTIVE=true
-- 
cgit v1.2.3