1 files changed, 60 insertions, 0 deletions
diff --git a/dev-lisp/sbcl/files/0.9.4/sbcl.sh b/dev-lisp/sbcl/files/0.9.4/sbcl.sh
new file mode 100644
index 000000000000..66253874d2a3
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.9.4/sbcl.sh
@@ -0,0 +1,60 @@
+#!/bin/sh
+
+if [ ! -f /usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp ] ; then
+  cat <<EOF
+$0: cannot find the common-lisp-controller source.
+EOF
+  exit 0
+fi
+
+build_error()
+{
+    echo "Build failure $1"
+    exit 1
+}
+
+case $1 in
+    install-clc)
+	    echo $0 loading and dumping clc.
+	    ( cd /usr/lib/sbcl
+	      /usr/bin/sbcl --core /usr/lib/sbcl/sbcl-dist.core \
+		   --noinform --sysinit /etc/sbclrc --userinit /dev/null \
+		   --load "/usr/lib/sbcl/install-clc.lisp" 2> /dev/null
+              mv sbcl-new.core sbcl.core || (echo FAILED ; cp sbcl-dist.core sbcl.core ) )
+	    ;;
+    remove-clc)
+	    echo $0 removing clc-enabled image
+	    cp /usr/lib/sbcl/sbcl-dist.core /usr/lib/sbcl/sbcl.core
+	    ;;
+    rebuild)
+	    echo $0 rebuilding...
+	    shift
+	    echo rebuilding $1
+	    /usr/bin/sbcl --noinform --sysinit /etc/sbclrc --userinit /dev/null \
+	         --disable-debugger \
+	         --eval \
+"(handler-case
+     (progn
+       (asdf:operate 'asdf:compile-op (quote $1))
+       (sb-unix:unix-exit 0))
+    (error (e)
+      (ignore-errors (format t \"~&Build error: ~A~%\" e))
+      (finish-output)
+      (sb-unix:unix-exit 1)))" || build_error
+	    ;;
+     remove)
+	    echo $0 removing packages...
+	    shift
+	    while [ ! -z "$1" ] ; do
+		rm -rf "/var/cache/common-lisp-controller/*/sbcl/${1}"
+		shift
+ 	    done
+	    ;;
+    *)
+	    echo $0 unkown command $1
+	    echo known commands: rebuild, remove, install-clc, and remove-clc
+	    exit 1
+	    ;;
+esac
+
+exit 0