Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

twiddle directories

  • Loading branch information...
commit 56e1e78691407db21994a2a2a2d8a89c6dd4d5bb 1 parent 82a4c52
@mtravers mtravers authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 setup/compile.lisp
View
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"))
(save-application
(format nil "~A/bin/lispapp" (getenv "BUILD_DIR")) ;must match path specified in bin/release
Please sign in to comment.
Something went wrong with that request. Please try again.