diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-11-25 11:03:55 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-11-29 11:00:48 -0700 |
| commit | c99bb434df3336bf0299a15c795de880f151a58c (patch) | |
| tree | 7e7e169172b53526a730dc0ac3a71f7041579311 /src | |
| parent | 9a34a056f34335b5b1e4dde7f6e0b8ea28b27434 (diff) | |
| download | consfigurator-c99bb434df3336bf0299a15c795de880f151a58c.tar.gz | |
FILE:DOES-NOT-EXIST: fix :CHECK subroutine
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src')
| -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 e2435c7..38c3780 100644 --- a/src/property/file.lisp +++ b/src/property/file.lisp @@ -128,7 +128,7 @@ any of the regular expressions PATTERNS." (:desc (if (cdr paths) #?"@{paths} do not exist" #?"${(car paths)} does not exist")) - (:check (not (apply #'remote-exists-p paths))) + (:check (not (apply #'remote-exists-some-p paths))) (:apply (mrun "rm" "-f" paths))) (defprop directory-does-not-exist :posix |