blob: 4b21207fc5b5bee53de89eacb225a2d5153e9d77 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#! /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
:s-xml-rpc))
(handler-bind
((error (lambda (&rest args) (invoke-restart (find-restart 'continue)))))
(asdf:oos 'asdf:load-op system)))
(saveinitmem "lispinit.mem")
(quit)
EOF
if [ x$? = x0 ]; then
gzip -f lispinit.mem
fi
|
