[armedbear-cvs] r12811 - trunk/abcl/test/lisp/ansi

[Mark Evenson]

Author: mevenson
Date: Sat Jul 17 08:03:55 2010
New Revision: 12811

Log:
Re-implement clean for ANSI tests in Lisp to work under Windows.

Thanks to Matt Sedon.



Modified:
   trunk/abcl/test/lisp/ansi/package.lisp

Modified: trunk/abcl/test/lisp/ansi/package.lisp
==============================================================================
--- trunk/abcl/test/lisp/ansi/package.lisp	(original)
+++ trunk/abcl/test/lisp/ansi/package.lisp	Sat Jul 17 08:03:55 2010
@@ -32,13 +32,22 @@
 	  (format t "--->  ~A begins.~%" message)
 	  (format t "Invoking ABCL hosted on ~A ~A.~%" 
 		  (software-type) (software-version))
-	  (if (find :unix *features*)
-	      (run-shell-command "cd ~A; make clean" ansi-tests-directory)
-	      ;; XXX -- what to invoke on win32?  Untested:
-	      (run-shell-command 
-	       (format nil "~A~%~A"
-		       (format nil "cd ~A" *ansi-tests-directory*)
-		       (format nil "erase *.cls *.abcl"))))
+          ;; Do what 'make clean' would do from the GCL ANSI tests,
+          ;; so we don't have to hunt for 'make' on win32.
+          (mapcar #'delete-file
+                  (append (directory (format nil "~A/*.cls" *default-pathname-defaults*))
+                          (directory (format nil "~A/*.abcl" *default-pathname-defaults*))
+                          (directory (format nil "~A/scratch/*" *default-pathname-defaults*))
+                          (mapcar (lambda(x) (format nil "~A/~A" *default-pathname-defaults* x))
+                                  '("scratch/"
+                                    "scratch.txt" "foo.txt" "foo.lsp"
+                                    "foo.dat" 
+                                    "tmp.txt" "tmp.dat" "tmp2.dat"
+                                    "temp.dat" "out.class" 
+                                    "file-that-was-renamed.txt"
+                                    "compile-file-test-lp.lsp"
+                                    "compile-file-test-lp.out" 
+                                    "ldtest.lsp"))))
 	  (time (load boot-file))
 	  (format t "<--- ~A ends.~%" message))
       (file-error (e)