diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-24 10:07:30 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-24 12:39:46 -0700 |
| commit | eeb9d6bddcc23dc1dfc82dbee6478d6818455743 (patch) | |
| tree | 236a73317a2e983a6dc03edecb740574554c35a8 /src/connection.lisp | |
| parent | 8b335f47d7d9c25dcbfc48e58f17aaaf3f91e802 (diff) | |
| download | consfigurator-eeb9d6bddcc23dc1dfc82dbee6478d6818455743.tar.gz | |
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 <spwhitton@spwhitton.name>
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 |