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 | |
| 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>
| -rw-r--r-- | src/connection.lisp | 3 | ||||
| -rw-r--r-- | src/property/cron.lisp | 2 |
2 files changed, 3 insertions, 2 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 diff --git a/src/property/cron.lisp b/src/property/cron.lisp index a9cc81d..a071cd1 100644 --- a/src/property/cron.lisp +++ b/src/property/cron.lisp @@ -134,7 +134,7 @@ directory." (nconc (list "# Automatically updated by Consfigurator; do not edit" "") (loop for (k v) on env by #'cddr - collect (strcat (symbol-name k) "=" v)) + collect (strcat (string-upcase (symbol-name k)) "=" v)) (list "") jobs)))) (if (tree-equal old new :test #'string=) |