diff options
| -rwxr-xr-x | make-clisp-package.sh | 2 | ||||
| -rwxr-xr-x | make-core-image.sh | 7 |
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 |