Browse Source

Load asdf

Bob Mottram 8 years ago
parent
commit
c66ed696d2
1 changed files with 9 additions and 1 deletions
  1. 9
    1
      src/freedombone-app-turtl

+ 9
- 1
src/freedombone-app-turtl View File

263
     remove_completion_param install_turtl
263
     remove_completion_param install_turtl
264
     sed -i '/turtl/d' $COMPLETION_FILE
264
     sed -i '/turtl/d' $COMPLETION_FILE
265
     rm $INSTALL_DIR/quicklisp.lisp
265
     rm $INSTALL_DIR/quicklisp.lisp
266
+    rm $INSTALL_DIR/asdf.lisp
266
     rm -rf /etc/rethinkdb
267
     rm -rf /etc/rethinkdb
267
     rm -rf /var/lib/rethinkdb
268
     rm -rf /var/lib/rethinkdb
268
     rm -rf /root/quicklisp
269
     rm -rf /root/quicklisp
804
 
805
 
805
     # install quicklisp
806
     # install quicklisp
806
     cat  << __ENDCONFIG__ > $INSTALL_DIR/quicklisp_install
807
     cat  << __ENDCONFIG__ > $INSTALL_DIR/quicklisp_install
808
+(load (compile-file "asdf.lisp"))
809
+(load (compile-file "quicklisp.lisp"))
807
 (quicklisp-quickstart:install)
810
 (quicklisp-quickstart:install)
808
 (ql:system-apropos "vecto")
811
 (ql:system-apropos "vecto")
809
 (ql:quickload "alexandria")
812
 (ql:quickload "alexandria")
866
 (quit)
869
 (quit)
867
 __ENDCONFIG__
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
     if [[ "$check_architecture" != *"arm"* ]]; then
878
     if [[ "$check_architecture" != *"arm"* ]]; then
871
         if [[ "$check_architecture" == *"64"* ]]; then
879
         if [[ "$check_architecture" == *"64"* ]]; then
872
             cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl64 --load $INSTALL_DIR/quicklisp.lisp
880
             cat $INSTALL_DIR/quicklisp_install | /opt/ccl/lx86cl64 --load $INSTALL_DIR/quicklisp.lisp