From dae5803d35680c2b60d4890c5957776eae6ea32e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 18 Feb 2021 16:45:44 -0700 Subject: import some names from uiop Signed-off-by: Sean Whitton --- src/connection/ssh.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/connection/ssh.lisp') 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) -- cgit v1.2.3