Commit 7c726e61 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

ansi-tests: always clean out the intermediate artifacts when running ANSI tests.

Now output the removed artifacts to *STANDARD-OUTPUT*.
parent 985be363
......@@ -14,6 +14,10 @@
"Run the ANSI-TESTS suite, to be found in *ANSI-TESTS-DIRECTORY*.
Possibly running the compiled version of the tests if COMPILE-TESTS is non-NIL."
(mapcar (lambda (result)
(when (second result)
(format t "Removed ~A.~&" (first result))))
(let* ((ansi-tests-directory
......@@ -57,7 +61,9 @@ locally obtain ~A, and place it in a sibling directory to the ABCL source named
;; so we don't have to hunt for 'make' in the PATH on win32.
(mapcar #'delete-file
(mapcar (lambda (p)
(when (probe-file p)
(list p (delete-file p))))
(append (directory (format nil "~A/*.cls" *ansi-tests-directory*))
(directory (format nil "~A/*.abcl" *ansi-tests-directory*))
(directory (format nil "~A/scratch/*" *ansi-tests-directory*))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment