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