free
/
freedomboneeee
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Load asdf

This commit is contained in:
Bob Mottram 2016-12-18 09:50:00 +00:00
parent 37b2ac894c
commit c66ed696d2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/freedombone-app-turtl
View File

@ -263,6 +263,7 @@ function remove_turtl {
remove_completion_param install_turtl remove_completion_param install_turtl
sed -i '/turtl/d' $COMPLETION_FILE sed -i '/turtl/d' $COMPLETION_FILE
rm $INSTALL_DIR/quicklisp.lisp rm $INSTALL_DIR/quicklisp.lisp
rm $INSTALL_DIR/asdf.lisp
rm -rf /etc/rethinkdb rm -rf /etc/rethinkdb
rm -rf /var/lib/rethinkdb rm -rf /var/lib/rethinkdb
rm -rf /root/quicklisp rm -rf /root/quicklisp
@ -804,6 +805,8 @@ function install_turtl_api {
# install quicklisp # install quicklisp
cat << __ENDCONFIG__ > $INSTALL_DIR/quicklisp_install cat << __ENDCONFIG__ > $INSTALL_DIR/quicklisp_install
(load (compile-file "asdf.lisp"))
(load (compile-file "quicklisp.lisp"))
(quicklisp-quickstart:install) (quicklisp-quickstart:install)
(ql:system-apropos "vecto") (ql:system-apropos "vecto")
(ql:quickload "alexandria") (ql:quickload "alexandria")
@ -866,7 +869,12 @@ function install_turtl_api {
(quit) (quit)
__ENDCONFIG__ __ENDCONFIG__
wget https://beta.quicklisp.org/quicklisp.lisp if [ ! -f asdf.lisp ]; then
wget https://common-lisp.net/project/asdf/asdf.lisp
fi
if [ ! -f quicklisp.lisp ]; then
wget https://beta.quicklisp.org/quicklisp.lisp
fi
if [[ "$check_architecture" != *"arm"* ]]; then if [[ "$check_architecture" != *"arm"* ]]; then
if [[ "$check_architecture" == *"64"* ]]; then if [[ "$check_architecture" == *"64"* ]]; then
cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl64 --load $INSTALL_DIR/quicklisp.lisp cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl64 --load $INSTALL_DIR/quicklisp.lisp