1 files changed, 12 insertions, 0 deletions
diff --git a/make-core-image.sh b/make-core-image.sh
new file mode 100755
index 0000000..d396b48
--- /dev/null
+++ b/make-core-image.sh
@@ -0,0 +1,12 @@
+#! /bin/sh
+clisp -q -q -on-error exit <<EOF
+(dolist (system '(:cl-ppcre :cl-fad :iterate :cl-markdown :parenscript
+                  :yaclml :lisp-cgi-utils))
+  (clc:clc-require system))
+(saveinitmem "lispinit.mem")
+(quit)
+EOF
+
+if [ x$? = x0 ]; then
+    gzip -f lispinit.mem
+fi