diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 17:44:29 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 17:44:29 -0700 |
commit | a0e7571ecee2ed4b897441e24a705667cc9db9c4 (patch) | |
tree | 4da7a8c033940d1595d0d7f50b23ea85a32c5dc3 /src/connection/shell-wrap.lisp | |
parent | 732257a6ad8592db2f36b39a1b103e82b6417f79 (diff) | |
download | consfigurator-a0e7571ecee2ed4b897441e24a705667cc9db9c4.tar.gz |
fix call to ESCAPE-SH-TOKEN
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/shell-wrap.lisp')
-rw-r--r-- | src/connection/shell-wrap.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/shell-wrap.lisp b/src/connection/shell-wrap.lisp index 6c70210..d821f22 100644 --- a/src/connection/shell-wrap.lisp +++ b/src/connection/shell-wrap.lisp @@ -50,6 +50,6 @@ (multiple-value-bind (out exit) (connection-run conn - #?"mv ${(escape-sh-token temp)} ${(escape-sh-token path)}" + #?"mv ${(escape-sh-token temp)} ${(escape-sh-token (unix-namestring path))}" nil) (unless (zerop exit) (error "Failed to write ~A: ~A" path out))))) |