diff options
-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 |