diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp index 1a60969738026fc83dfc5151fdfa2e47da757180..44440ce20cd2cd58a6bc81f20e157005143ee185 100644 --- a/ansi-tests/ansi-aux.lsp +++ b/ansi-tests/ansi-aux.lsp @@ -1366,7 +1366,7 @@ the condition to go uncaught if it cannot be classified." (unuse-package package using-package))) (delete-package package)))) -#-allegro +#-(or allegro openmcl) (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." @@ -1374,13 +1374,14 @@ the condition to go uncaught if it cannot be classified." (truenames (directory wild-pathname))) (mapc #'delete-file truenames))) -(defconstant +fail-count-limit+ 20) - -;;; This is a hack to get around an ACL bug -#+allegro +;;; This is a hack to get around an ACL bug; OpenMCL also apparently +;;; needs it +#+(or allegro openmcl) (defun delete-all-versions (pathspec) (when (probe-file pathspec) (delete-file pathspec))) +(defconstant +fail-count-limit+ 20) + (defmacro test-with-package-iterator (package-list-expr &rest symbol-types) "Build an expression that tests the with-package-iterator form." (let ((name (gensym))