浏览代码

Load asdf

Bob Mottram 8 年前
父节点
当前提交
c66ed696d2
共有 1 个文件被更改,包括 9 次插入1 次删除
  1. 9
    1
      src/freedombone-app-turtl

+ 9
- 1
src/freedombone-app-turtl 查看文件

@@ -263,6 +263,7 @@ function remove_turtl {
263 263
     remove_completion_param install_turtl
264 264
     sed -i '/turtl/d' $COMPLETION_FILE
265 265
     rm $INSTALL_DIR/quicklisp.lisp
266
+    rm $INSTALL_DIR/asdf.lisp
266 267
     rm -rf /etc/rethinkdb
267 268
     rm -rf /var/lib/rethinkdb
268 269
     rm -rf /root/quicklisp
@@ -804,6 +805,8 @@ function install_turtl_api {
804 805
 
805 806
     # install quicklisp
806 807
     cat  << __ENDCONFIG__ > $INSTALL_DIR/quicklisp_install
808
+(load (compile-file "asdf.lisp"))
809
+(load (compile-file "quicklisp.lisp"))
807 810
 (quicklisp-quickstart:install)
808 811
 (ql:system-apropos "vecto")
809 812
 (ql:quickload "alexandria")
@@ -866,7 +869,12 @@ function install_turtl_api {
866 869
 (quit)
867 870
 __ENDCONFIG__
868 871
 
869
-    wget https://beta.quicklisp.org/quicklisp.lisp
872
+    if [ ! -f asdf.lisp ]; then
873
+        wget https://common-lisp.net/project/asdf/asdf.lisp
874
+    fi
875
+    if [ ! -f quicklisp.lisp ]; then
876
+        wget https://beta.quicklisp.org/quicklisp.lisp
877
+    fi
870 878
     if [[ "$check_architecture" != *"arm"* ]]; then
871 879
         if [[ "$check_architecture" == *"64"* ]]; then
872 880
             cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl64 --load $INSTALL_DIR/quicklisp.lisp