diff options
Diffstat (limited to 'src/property/git.lisp')
-rw-r--r-- | src/property/git.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/property/git.lisp b/src/property/git.lisp index 6434575..35f7005 100644 --- a/src/property/git.lisp +++ b/src/property/git.lisp @@ -39,8 +39,9 @@ available version of the snapshot is present on the remote system." (declare (ignore replace)) (delete-remote-tree dest) (file:directory-exists directory) - (mrun :input (get-data-stream "--git-snapshot" snapshot-name) - #?"cd '${directory}'; tar xfz -")) + (with-remote-current-directory (directory) + (mrun :input (get-data-stream "--git-snapshot" snapshot-name) + "tar" "xfz" "-"))) (:unapply (declare (ignore replace)) (delete-remote-tree dest))) |