From c99bb434df3336bf0299a15c795de880f151a58c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 25 Nov 2022 11:03:55 -0700 Subject: FILE:DOES-NOT-EXIST: fix :CHECK subroutine Signed-off-by: Sean Whitton --- src/property/file.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3