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/property/cron.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/property/cron.lisp')
-rw-r--r-- | src/property/cron.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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=) |