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 | |
parent | 9a34a056f34335b5b1e4dde7f6e0b8ea28b27434 (diff) | |
download | consfigurator-c99bb434df3336bf0299a15c795de880f151a58c.tar.gz |
FILE:DOES-NOT-EXIST: fix :CHECK subroutine
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | doc/news.rst | 3 | ||||
-rw-r--r-- | src/property/file.lisp | 2 |
2 files changed, 4 insertions, 1 deletions
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 |