From d9fa597d791215307f3a92928cc77e1b976f068f Mon Sep 17 00:00:00 2001
From: Masataro Asai <guicho2.71828@gmail.com>
Date: Sat, 26 Oct 2019 19:43:06 -0400
Subject: [PATCH] fix: DEPLOY method does not respect
 *default-pathname-defaults*

---
 src/coleslaw.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/coleslaw.lisp b/src/coleslaw.lisp
index c5b9bad..895569e 100644
--- a/src/coleslaw.lisp
+++ b/src/coleslaw.lisp
@@ -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."