From 58c3889edc81e56b258c79f827b26879d2055dd0 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sun, 26 Jun 2005 18:17:40 +0000
Subject: [PATCH] Use the alternate delete-all-versions function for LispWorks

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

diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index 7b0808e5..18f0a9dc 100644
--- a/ansi-tests/ansi-aux.lsp
+++ b/ansi-tests/ansi-aux.lsp
@@ -757,7 +757,7 @@ the condition to go uncaught if it cannot be classified."
 	  (unuse-package package using-package)))
       (delete-package package))))
 
-#-(or allegro openmcl)
+#-(or allegro openmcl lispworks)
 (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."
@@ -767,7 +767,7 @@ the condition to go uncaught if it cannot be classified."
 
 ;;; This is a hack to get around an ACL bug; OpenMCL also apparently
 ;;; needs it
-#+(or allegro openmcl)
+#+(or allegro openmcl lispworks)
 (defun delete-all-versions (pathspec)
   (when (probe-file pathspec) (delete-file pathspec)))
 
-- 
GitLab