diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 14:29:39 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-22 14:29:39 -0700 |
| commit | 2cafe2e1273f41801471edfd3d0a4da523846421 (patch) | |
| tree | 6528700b23cb44d4bfd082e35a040435b7b3108a /src/connection/ssh.lisp | |
| parent | 7ce5dcdcf751cdef990b933e7ee6347775e8f503 (diff) | |
| download | consfigurator-2cafe2e1273f41801471edfd3d0a4da523846421.tar.gz | |
fix :SSH CONNECTION-RUN
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, 3 insertions, 1 deletions
diff --git a/src/connection/ssh.lisp b/src/connection/ssh.lisp index 21b40b8..be5afa6 100644 --- a/src/connection/ssh.lisp +++ b/src/connection/ssh.lisp @@ -51,7 +51,9 @@ (if (cdr args) (escape-sh-command args) (car args))))))) (defmethod connection-run ((c ssh-connection) cmd &optional input) - (run :input input (sshcmd c cmd))) + (multiple-value-bind (out err exit) + (run :input input (sshcmd c cmd)) + (values (strcat err out) exit))) (defmethod connection-readfile ((c ssh-connection) path) (multiple-value-bind (output error-code) |