diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 10:32:42 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 10:32:42 -0700 |
| commit | 9c36af9278e0352bd31e0e2546157efb40413f32 (patch) | |
| tree | 77c09872b976c4034065a02e75796b1c821bcc15 /src/connection.lisp | |
| parent | 8437e0ca879915c3b00236e703aec6a6151ec701 (diff) | |
| download | consfigurator-9c36af9278e0352bd31e0e2546157efb40413f32.tar.gz | |
PWD uses CONNECTION-RUN not MRUN
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 8cf7257..97de468 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -247,7 +247,8 @@ the working directory of the Lisp process using UIOP:WITH-CURRENT-DIRECTORY." (or *remote-current-directory* (slot-value *connection* 'remote-home) (setf (slot-value *connection* 'remote-home) - (let ((home (stripln (mrun "echo $HOME")))) + (let ((home (stripln + (connection-run *connection* "echo $HOME" nil)))) (if (string-equal "" home) (error "Failed to determine remote home directory.") (ensure-directory-pathname home)))))) |