diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 10:48:10 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-25 10:48:10 -0700 |
commit | 375b35ae4c4b3c44891b51df9cf21f71c1def232 (patch) | |
tree | 8625070b5a2c11e0e9bde15a7e60f52519ad04db /src/connection.lisp | |
parent | 9c36af9278e0352bd31e0e2546157efb40413f32 (diff) | |
download | consfigurator-375b35ae4c4b3c44891b51df9cf21f71c1def232.tar.gz |
reformat
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
-rw-r--r-- | src/connection.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 97de468..df15390 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -247,8 +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 - (connection-run *connection* "echo $HOME" nil)))) + (let ((home + (stripln (connection-run *connection* "echo $HOME" nil)))) (if (string-equal "" home) (error "Failed to determine remote home directory.") (ensure-directory-pathname home)))))) |