diff --git a/src/freedombone-app-turtl b/src/freedombone-app-turtl index 0bcc812d..b0591530 100755 --- a/src/freedombone-app-turtl +++ b/src/freedombone-app-turtl @@ -263,6 +263,7 @@ function remove_turtl { remove_completion_param install_turtl sed -i '/turtl/d' $COMPLETION_FILE rm $INSTALL_DIR/quicklisp.lisp + rm $INSTALL_DIR/asdf.lisp rm -rf /etc/rethinkdb rm -rf /var/lib/rethinkdb rm -rf /root/quicklisp @@ -804,6 +805,8 @@ function install_turtl_api { # install quicklisp cat << __ENDCONFIG__ > $INSTALL_DIR/quicklisp_install +(load (compile-file "asdf.lisp")) +(load (compile-file "quicklisp.lisp")) (quicklisp-quickstart:install) (ql:system-apropos "vecto") (ql:quickload "alexandria") @@ -866,7 +869,12 @@ function install_turtl_api { (quit) __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" == *"64"* ]]; then cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl64 --load $INSTALL_DIR/quicklisp.lisp