From eeb9d6bddcc23dc1dfc82dbee6478d6818455743 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 24 Jul 2021 10:07:30 -0700 Subject: call STRING-UPCASE when converting keywords to environment variables In case the keyword was read with the reader configured not to upcase the names of symbols. Signed-off-by: Sean Whitton --- src/connection.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index 747cc2e..9159a02 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -365,7 +365,8 @@ the working directory of the Lisp process using UIOP:WITH-CURRENT-DIRECTORY." (setq cmd (if (cdr cmd) (escape-sh-command cmd) (car cmd))) (loop while env collect (format nil "~A=~A" - (symbol-name (pop env)) (escape-sh-token (pop env))) + (string-upcase (symbol-name (pop env))) + (escape-sh-token (pop env))) into accum finally (when accum -- cgit v1.2.3