From 2259c1e367b0bf35825f77adac34f796b027c295 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 2 Jul 2021 11:08:20 -0700 Subject: RUN/MRUN: drop the trailing slash when populating HOME This is the usual convention for that environment variable. Signed-off-by: Sean Whitton --- src/connection.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 1920bda..3105bc6 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -361,8 +361,9 @@ the working directory of the Lisp process using UIOP:WITH-CURRENT-DIRECTORY." ;; simplicity, particularly to avoid having to check whether the connattr ;; is set yet, because setting it requires working CONNECTION-RUN. (setq cmd (format nil "export HOME=~A; cd ~A; ~A" - (escape-sh-token (unix-namestring - (get-connattr :remote-home))) + (escape-sh-token (drop-trailing-slash + (unix-namestring + (get-connattr :remote-home)))) (escape-sh-token (unix-namestring (pwd))) cmd)) ,@forms)) -- cgit v1.2.3