fix: DEPLOY method does not respect *default-pathname-defaults*

This commit is contained in:
Masataro Asai 2019-10-26 19:43:06 -04:00
parent 0e325ee56e
commit d9fa597d79

View file

@ -43,7 +43,7 @@ in REPO-DIR. Optionally, OLDREV is the revision prior to the last push."
(defgeneric deploy (staging)
(:documentation "Deploy the STAGING build to the directory specified in the config.")
(:method (staging)
(run-program "rsync --delete -avz ~a ~a" staging (deploy-dir *config*))))
(run-program "rsync --delete -avz ~a ~a" staging (merge-pathnames (deploy-dir *config*)))))
(defun update-symlink (path target)
"Update the symlink at PATH to point to TARGET."