diff options
Diffstat (limited to 'src/property/file.lisp')
-rw-r--r-- | src/property/file.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index 7136db9..7418855 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -83,8 +83,7 @@ CONTENT can be a list of lines or a single string." (:apply (let ((destination (ensure-pathname destination :namestring :unix))) (directory-exists (pathname-directory-pathname destination)) - (with-change-if-changes-file-content (destination) - (writefile destination (get-data-stream iden1 iden2)))))) + (maybe-writefile-data destination iden1 iden2)))) (defprop host-data-uploaded :posix (destination) (:hostattrs @@ -99,8 +98,7 @@ CONTENT can be a list of lines or a single string." (:apply (let ((destination (ensure-pathname destination :namestring :unix))) (directory-exists (pathname-directory-pathname destination)) - (with-change-if-changes-file-content (destination) - (writefile destination (get-data-stream iden1 iden2) :mode #o600))))) + (maybe-writefile-data destination iden1 iden2 :mode #o600)))) (defprop host-secret-uploaded :posix (destination) (:hostattrs |