make-core-image.sh


1
2
3
4
5
6
7
8
9
10
11
12
13

#! /bin/sh
clisp -q -q -on-error exit <<EOF
(dolist (system '(:cl-ppcre :cl-fad :iterate :cl-markdown :parenscript
                  :yaclml :lisp-cgi-utils :alexandria :xml-emitter
                  :split-sequence :clsql :clsql-sqlite3 :drakma :cybertyggr-time))
  (asdf:oos 'asdf:load-op system))
(saveinitmem "lispinit.mem")
(quit)
EOF

if [ x$? = x0 ]; then
    gzip -f lispinit.mem
fi