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