diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-06 19:23:37 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-06 19:23:37 -0700 |
commit | ab60a7c00a8fc62aadb540cfb850329368ee3598 (patch) | |
tree | 767de552d783a06dda5404b01d475cabdf6b662a | |
parent | cd1887314aec130fbed11d982ab48a471ac45399 (diff) | |
download | consfigurator-ab60a7c00a8fc62aadb540cfb850329368ee3598.tar.gz |
fix use of REMOTE-EXISTS-P
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | src/property/file.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/property/file.lisp b/src/property/file.lisp index eece4af..949ea91 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -74,7 +74,7 @@ CONTENT can be a list of lines or a single string." (:desc (if (cdr paths) #?"@{paths} do not exist" #?"${(car paths)} does not exist")) - (:check (not (remote-exists-p paths))) + (:check (not (apply #'remote-exists-p paths))) (:apply (mrun "rm" "-f" paths))) (defprop data-uploaded :posix (iden1 iden2 destination) |