Skip to content
Browse files

twiddle directories

  • Loading branch information...
1 parent 82a4c52 commit 56e1e78691407db21994a2a2a2d8a89c6dd4d5bb @mtravers mtravers committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 setup/compile.lisp
4 setup/compile.lisp
@@ -1,6 +1,6 @@
(in-package :cl-user)
-(defvar *app-dir* (butlast (pathname-directory *load-pathname*)))
+(defvar *build-dir* (pathname-directory (pathname (concatenate 'string (getenv "BUILD_DIR") "/"))))
(defvar *cache-dir* (pathname-directory (pathname (concatenate 'string (getenv "CACHE_DIR") "/"))))
(defvar *buildpack-dir* (pathname-directory (pathname (concatenate 'string (getenv "BUILDPACK_DIR") "/"))))
@@ -30,7 +30,7 @@
;;; This loads the application
-(load (make-pathname :directory *app-dir* :defaults "heroku-setup.lisp"))
+(load (make-pathname :directory *build-dir* :defaults "heroku-setup.lisp"))
(format nil "~A/bin/lispapp" (getenv "BUILD_DIR")) ;must match path specified in bin/release

0 comments on commit 56e1e78

Please sign in to comment.
Something went wrong with that request. Please try again.