diff options
-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)))))) |