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 --- doc/news.rst | 3 +++ src/property/file.lisp | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/doc/news.rst b/doc/news.rst index 717334f..411732e 100644 --- a/doc/news.rst +++ b/doc/news.rst @@ -34,6 +34,9 @@ you should review this document and see if your consfig needs updating. to call or apply the new APT:KNOWN-INSTALLED-REMOVED-PACKAGES-RESET property to invalidate the cache. +- Fix a bug in FILE:DOES-NOT-EXIST which meant that it did nothing if only + some of the files that should not exist needed to be deleted. + 1.1.1 (2022-09-18) ------------------ 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