- Lisp completions by Nikodemus Siivola <tsiivola@cc.hut.fi>

contrib/clisp

@@ -0,0 +1,24 @@
+# bash brogrammable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_clisp()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '-h --help --version --license -B -K \
+                     -M -m -L -N -E -q --quiet --silent -w -I -ansi \
+                     -traditional -p -C -norc -i -c -l -o -x ' \
+                     -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _clisp -o default clisp

contrib/gcl

@@ -0,0 +1,23 @@
+# bash programmable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_gcl()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '-eval -load -f -batch -dir -libdir \
+                     -compile -o-file -c-file -h-file -data-file -system-p '\
+                     -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _gcl -o default gcl

contrib/lisp

@@ -0,0 +1,24 @@
+# bash programmable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_lisp()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '-core -lib -batch -quit -edit -eval -init \
+                     -dynamic-space-size -hinit -noinit -nositeinit -load \
+                     -slave ' \
+                     -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _lisp -o default lisp

contrib/sbcl

@@ -0,0 +1,25 @@
+# -*- sh -*-
+#
+# bash programmable completion for various Common Lisp implementations by
+# Nikodemus Siivola <nikodemus@random-state.net>
+#
+
+_sbcl()
+{
+    local cur
+
+    COMPREPLY=()
+    cur=${COMP_WORDS[COMP_CWORD]}
+
+    # completing an option (may or may not be separated by a space)
+    if [[ "$cur" == -* ]]; then
+	COMPREPLY=( $( compgen -W '--core --noinform --help --version \
+                     --sysinit --userinit --eval --noprint --disable-debugger \
+                     --end-runtime-options --end-toplevel-options ' -- $cur ) )
+    else
+	_filedir
+    fi
+
+    return 0
+}
+complete -F _sbcl -o default sbcl sbcl-mt