diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-18 16:45:44 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-18 16:57:32 -0700 |
commit | dae5803d35680c2b60d4890c5957776eae6ea32e (patch) | |
tree | 44bb5b04416edbcab56cd94d17f6fbe0882f2f8a /src/connection/ssh.lisp | |
parent | 7ce78aa1536652789de1c1d6d68e1db6d2030353 (diff) | |
download | consfigurator-dae5803d35680c2b60d4890c5957776eae6ea32e.tar.gz |
import some names from uiop
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/ssh.lisp')
-rw-r--r-- | src/connection/ssh.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection/ssh.lisp b/src/connection/ssh.lisp index 118e527..e9b49f3 100644 --- a/src/connection/ssh.lisp +++ b/src/connection/ssh.lisp @@ -33,7 +33,7 @@ ;; wrap in 'sh -c' in case the login shell is not POSIX `(list "ssh" (slot-value connection :hostname) - (uiop:escape-sh-command "sh" "-c" ,@args))) + (escape-sh-command "sh" "-c" ,@args))) (defmethod connection-run ((connection ssh-connection) cmd @@ -41,7 +41,7 @@ input environment) (when environment - (loop do (push (uiop:escape-sh-token + (loop do (push (escape-sh-token (strcat (symbol-name (pop environment)) "=" (pop environment))) cmd) |