Skip to content
Snippets Groups Projects
Commit cdd493de authored by pfdietz's avatar pfdietz
Browse files

Add delete-all-versions

parent 731fe503
Branches
Tags
No related merge requests found
...@@ -1366,6 +1366,13 @@ the condition to go uncaught if it cannot be classified." ...@@ -1366,6 +1366,13 @@ the condition to go uncaught if it cannot be classified."
(unuse-package package using-package))) (unuse-package package using-package)))
(delete-package package)))) (delete-package package))))
(defun delete-all-versions (pathspec)
"Replace the versions field of the pathname specified by pathspec with
:wild, and delete all the files this refers to."
(let* ((wild-pathname (make-pathname :version :wild :defaults (pathname pathspec)))
(truenames (directory wild-pathname)))
(mapc #'delete-file truenames)))
(defconstant +fail-count-limit+ 20) (defconstant +fail-count-limit+ 20)
(defmacro test-with-package-iterator (package-list-expr &rest symbol-types) (defmacro test-with-package-iterator (package-list-expr &rest symbol-types)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment