1 files changed, 30 insertions, 0 deletions
diff --git a/Lisp/build-lisp-image.sh b/Lisp/build-lisp-image.sh
new file mode 100755
index 0000000..f741457
--- /dev/null
+++ b/Lisp/build-lisp-image.sh
@@ -0,0 +1,30 @@
+#!/bin/sh
+
+PATH="$HOME/bin:$PATH"
+export PATH
+
+build_clisp()
+{
+    mkdir $topdir/clisp/base
+    clisp -i save-moxie-image.lisp
+    gzip -c /tmp/lispinit.mem > base/lispinit.mem
+    rm -f /tmp/lispinit.mem
+}
+
+build_openmcl()
+{
+    openmcl -e '(load "save-moxie-image.lisp")'
+    mv /tmp/dppccl.image .
+}
+
+build_sbcl()
+{
+    sbcl --load "save-moxie-image.lisp"
+    mv /tmp/sbcl.core .
+}
+
+topdir=`dirname $0`
+
+#(cd "$topdir/clisp" && build_clisp)
+#(cd "$topdir/openmcl" && build_openmcl)
+(cd "$topdir/sbcl" && build_sbcl)