Commit 3162e56f authored by Dave Cooper's avatar Dave Cooper
Browse files

try in install quicklisp if missing

parent 21575617
Loading
Loading
Loading
Loading
Loading
+10 −1
Original line number Diff line number Diff line
(in-package :cl-user)

(unless (find-package :quicklisp) (load "/home/dcooper/quicklisp/setup.lisp"))
;;
;; load and/or install quicklisp in dcooper
;;
(cond ((find-package :quicklisp))
      ((probe-file "/home/dcooper/quicklisp/setup.lisp")
       (load "/home/dcooper/quicklisp/setup.lisp"))
      (t (sb-ext:run-program "/usr/bin/curl" (list "-O" "https://beta.quicklisp.org/quicklisp.lisp"))
         (load "quicklisp.lisp")
         (funcall (read-from-string "quicklisp-quickstart:install"))
         (probe-file "./quicklisp/setup.lisp")))

(pushnew (make-pathname :defaults *load-truename* :name nil :type nil)
	 quicklisp:*local-project-directories* :test #'equalp)