From cdd493de4555f5d05ee60ed9ec08afce1c8d1091 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 25 Jan 2004 23:00:08 +0000 Subject: [PATCH] Add delete-all-versions --- ansi-tests/ansi-aux.lsp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index 1ac7beae..b09b97f5 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -1366,6 +1366,13 @@ the condition to go uncaught if it cannot be classified." (unuse-package package using-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) (defmacro test-with-package-iterator (package-list-expr &rest symbol-types) -- GitLab