Browse files

get aserve from cache

  • Loading branch information...
1 parent 65ae561 commit 15627e597e1858202d4423aca8a6d8dda49b7003 @mtravers mtravers committed Mar 4, 2012
Showing with 3 additions and 4 deletions.
  1. +3 −4 setup/compile.lisp
View
7 setup/compile.lisp
@@ -11,16 +11,15 @@
(require :asdf)
(load (make-pathname :directory (append *app-dir* '("lib")) :defaults "quicklisp.lisp"))
-;;; Not needed?
-;(defvar *cache-dir* (pathname-directory (pathname (concatenate 'string (getenv "CACHE_DIR") "/"))))
+(defvar *cache-dir* (pathname-directory (pathname (concatenate 'string (getenv "CACHE_DIR") "/"))))
;(load (make-pathname :defaults *load-pathname* :name "setup"))
(asdf:clear-system "acl-compat")
-(load (make-pathname :directory (append *app-dir* '("repos" "portableaserve" "acl-compat"))
+(load (make-pathname :directory (append *cache-dir* '("repos" "portableaserve" "acl-compat"))
:defaults "acl-compat.asd"))
-(load (make-pathname :directory (append *app-dir* '("repos" "portableaserve" "aserve"))
+(load (make-pathname :directory (append *cache-dir* '("repos" "portableaserve" "aserve"))
:defaults "aserve.asd"))
(load (make-pathname :directory *app-dir* :name *app-name* :type "asd"))

0 comments on commit 15627e5

Please sign in to comment.