diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 18:09:50 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-04-01 18:09:50 -0700 |
| commit | ed8c76f566de8f6c10cdace515b3d076026258f0 (patch) | |
| tree | faf5beb60bd63094a77d45b9bd807075bf2dfc91 /src/property/cron.lisp | |
| parent | 3d66b5420d42c47ba0c9b33e97d5ced79ce6dd3e (diff) | |
| download | consfigurator-ed8c76f566de8f6c10cdace515b3d076026258f0.tar.gz | |
replace some Scheme-style names
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/property/cron.lisp')
| -rw-r--r-- | src/property/cron.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/cron.lisp b/src/property/cron.lisp index 959f190..f5dc67e 100644 --- a/src/property/cron.lisp +++ b/src/property/cron.lisp @@ -38,8 +38,8 @@ The output of the cronjob will be mailed only if the job exits nonzero." (strcat "/etc/cron." (if (keywordp when) (string-downcase (symbol-name when)) "d")))) - (job (merge-pathnames (string->filename desc) dir)) - (script (merge-pathnames (strcat (string->filename desc) "_cronjob") + (job (merge-pathnames (string-to-filename desc) dir)) + (script (merge-pathnames (strcat (string-to-filename desc) "_cronjob") #P"/usr/local/bin/")) (script* (sh-escape script))) `(with-unapply |