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/property/cron.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/property/cron.lisp') 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=) -- cgit v1.2.3