summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xmake-clisp-package.sh2
-rwxr-xr-xmake-core-image.sh7
2 files changed, 6 insertions, 3 deletions
diff --git a/make-clisp-package.sh b/make-clisp-package.sh
index c963124..ac2b897 100755
--- a/make-clisp-package.sh
+++ b/make-clisp-package.sh
@@ -5,4 +5,4 @@ for x in Downloads/CVS/SLIME/slime\
Programme/CL-Build/source; do
find "$x" -not -regex ".*/_darcs/.*" \( -regex ".*\\.c" -or -name "Makefile" -or -name "Makefile.*" -or -regex ".*\\.lisp" -or -regex ".*\\.asd" -or -regex "COPYING" -or -regex "index.lml" \)
done | tar -T - -cjf - | ssh mulk_benkard@ssh.phx.nearlyfreespeech.net 'mkdir -p /tmp/clisp-stuff && cd /tmp/clisp-stuff && tar xjf - && mkdir -p /tmp/asdf && cd /tmp/asdf && find ../clisp-stuff -name "*.asd" | xargs -I "{}" ln -sf "{}" . && mkdir -p /home/tmp/clisp-stuff/Downloads/Darcs/asdf-system-connections/website/source/images && touch /home/tmp/clisp-stuff/Downloads/Darcs/asdf-system-connections/website/source/index.lml && gmake -C /tmp/clisp-stuff/Downloads/Git/clsql/uffi' && \
-ssh -t mulk_benkard@ssh.phx.nearlyfreespeech.net 'cd /tmp/clisp-stuff && clisp -x "(load \"usr/share/common-lisp/source/cl-asdf/asdf.lisp\")" -x "(let ((asdf:*central-registry* (quote (#p\"/tmp/asdf/\")))) (dolist (x (list :drakma :cffi :cl-ppcre :cl-fad :iterate :cl-markdown :parenscript :yaclml :lisp-cgi-utils :alexandria :xml-emitter :split-sequence :clsql :clsql-sqlite3 :cybertiggyr-time)) (asdf:oos (quote asdf:load-op) x)) (saveinitmem \"lispinit.mem\"))" && gzip -f lispinit.mem && mv lispinit.mem.gz /home/private/ && mv /tmp/clisp-stuff/Downloads/Git/clsql/uffi/clsql_uffi.so /home/private/ && rm -rf /tmp/clisp-stuff && rm -rf /tmp/asdf'
+ssh -t mulk_benkard@ssh.phx.nearlyfreespeech.net 'cd /tmp/clisp-stuff && clisp -x "(load \"usr/share/common-lisp/source/cl-asdf/asdf.lisp\")" -x "(let ((asdf:*central-registry* (quote (#p\"/tmp/asdf/\")))) (dolist (x (list :drakma :cffi :cl-ppcre :cl-fad :iterate :cl-markdown :parenscript :yaclml :lisp-cgi-utils :alexandria :xml-emitter :split-sequence :clsql :clsql-sqlite3 :cybertiggyr-time :s-xml-rpc)) (handler-bind ((error (lambda (&rest args) (invoke-restart (find-restart (quote continue)))))) (asdf:oos (quote asdf:load-op) system))) (saveinitmem \"lispinit.mem\"))" && gzip -f lispinit.mem && mv lispinit.mem.gz /home/private/ && mv /tmp/clisp-stuff/Downloads/Git/clsql/uffi/clsql_uffi.so /home/private/ && rm -rf /tmp/clisp-stuff && rm -rf /tmp/asdf'
diff --git a/make-core-image.sh b/make-core-image.sh
index 9f36e16..4b21207 100755
--- a/make-core-image.sh
+++ b/make-core-image.sh
@@ -2,8 +2,11 @@
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))
+ :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