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