From ab10720260e2c184b319026da89f4dfd338500bb Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Wed, 2 Apr 2008 19:20:20 -0400
Subject: Initial commit

---
 Lisp/build-lisp-image.sh | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 Lisp/build-lisp-image.sh

(limited to 'Lisp/build-lisp-image.sh')

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)
-- 
cgit v1.2.3