diff options
Diffstat (limited to 'src/property/periodic.lisp')
-rw-r--r-- | src/property/periodic.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/property/periodic.lisp b/src/property/periodic.lisp index 4a75182..6dfd707 100644 --- a/src/property/periodic.lisp +++ b/src/property/periodic.lisp @@ -45,7 +45,7 @@ user." (merge-pathnames "at-most/" (get-connattr :consfigurator-cache))))) (destructuring-bind (psym . args) propapp - (:retprop :type (propapptype propapp) + (:retprop :type (propapp-type propapp) :desc (lambda-ignoring-args desc) :hostattrs (get psym 'hostattrs) :check @@ -63,7 +63,7 @@ user." (:yearly (< now (+ #.(ceiling (* 365.25 24 60 60)) mtime))))))) :apply (lambda-ignoring-args - (prog1 (propappapply propapp) + (prog1 (apply-propapp propapp) (file:containing-directory-exists flagfile) (mrun "touch" flagfile))) :args args)))) |