diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 11:44:55 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 11:44:55 -0700 |
commit | 32bdaaa81a5fd54c8ff46700724283e1083b52b7 (patch) | |
tree | 1bcd065cea1c357296db8e4f214c12d5ab549604 /src/property/git.lisp | |
parent | fbd6e6169d4b711461c44f8273cc758fc21d25a0 (diff) | |
download | consfigurator-32bdaaa81a5fd54c8ff46700724283e1083b52b7.tar.gz |
GIT:SNAPSHOT-EXTRACTED: use WITH-REMOTE-CURRENT-DIRECTORY
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
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))) |