Load asdf

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