From 296361bc11614e8b5e299a6f869ff36da5ed2662 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Mon, 26 Jan 2004 02:57:27 +0000
Subject: [PATCH] Conditionalized delete-all-versions for acl, since it doesn't
 do wild versions

---
 ansi-tests/ansi-aux.lsp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index b09b97f5..1a609697 100644
--- a/ansi-tests/ansi-aux.lsp
+++ b/ansi-tests/ansi-aux.lsp
@@ -1366,6 +1366,7 @@ the condition to go uncaught if it cannot be classified."
 	  (unuse-package package using-package)))
       (delete-package package))))
 
+#-allegro
 (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."
@@ -1375,6 +1376,11 @@ the condition to go uncaught if it cannot be classified."
 
 (defconstant +fail-count-limit+ 20)
 
+;;; This is a hack to get around an ACL bug
+#+allegro
+(defun delete-all-versions (pathspec)
+  (when (probe-file pathspec) (delete-file pathspec)))
+
 (defmacro test-with-package-iterator (package-list-expr &rest symbol-types)
   "Build an expression that tests the with-package-iterator form."
   (let ((name (gensym))
-- 
GitLab