Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

pkm

  • Loading branch information...
commit c4feccc2aa9bba617523ba12ca957334d24e7354 1 parent e9cfeae
@mtravers mtravers authored
Showing with 6 additions and 2 deletions.
  1. +1 −1  README.md
  2. +5 −1 setup/setup.lisp
View
2  README.md
@@ -10,7 +10,7 @@ TODO
- lots of random compile errors
- not sure caching is working
-TESTING
+TESTING locally
Compile:
rm -rf /tmp/build
View
6 setup/setup.lisp
@@ -19,9 +19,13 @@
(defvar asdf::*user-cache* (append *quicklisp-home* '(".cache" "common-lisp" :implementation)))
(if (probe-file (make-pathname :directory *quicklisp-home* :defaults "setup.lisp"))
- (load (make-pathname :directory *quicklisp-home* :defaults "setup.lisp"))
+ (progn
+ (load (make-pathname :directory *quicklisp-home* :defaults "setup.lisp")))
(progn
(load (make-pathname :directory (append *app-dir* '("lib")) :defaults "quicklisp.lisp"))
+ (print `(setting *[quicklisp-]home* ,*quicklisp-home*))
+ (set (find-symbol "*HOME*" (find-package "QUICKLISP-QUICKSTART")) *quicklisp-home*)
+ (set (find-symbol "*QUICKLISP-HOME*" (find-package "QUICKLISP-SETUP")) *quicklisp-home*)
; (quicklisp-quickstart:install :path (make-pathname :directory (append *app-dir* '("quicklisp"))))
(funcall (symbol-function (find-symbol "INSTALL" (find-package "QUICKLISP-QUICKSTART")))
:path (make-pathname :directory *quicklisp-home*))
Please sign in to comment.
Something went wrong with that request. Please try again.