diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index 7b0808e5ba9cd08ea04e3eed6abc6df61ebbac4e..18f0a9dc521d6800cb39a6c8c480e9c3a265d11d 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)))