Changeset 12811
- Timestamp:
- 07/17/10 12:03:55 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/test/lisp/ansi/package.lisp
r12618 r12811 33 33 (format t "Invoking ABCL hosted on ~A ~A.~%" 34 34 (software-type) (software-version)) 35 (if (find :unix *features*) 36 (run-shell-command "cd ~A; make clean" ansi-tests-directory) 37 ;; XXX -- what to invoke on win32? Untested: 38 (run-shell-command 39 (format nil "~A~%~A" 40 (format nil "cd ~A" *ansi-tests-directory*) 41 (format nil "erase *.cls *.abcl")))) 35 ;; Do what 'make clean' would do from the GCL ANSI tests, 36 ;; so we don't have to hunt for 'make' on win32. 37 (mapcar #'delete-file 38 (append (directory (format nil "~A/*.cls" *default-pathname-defaults*)) 39 (directory (format nil "~A/*.abcl" *default-pathname-defaults*)) 40 (directory (format nil "~A/scratch/*" *default-pathname-defaults*)) 41 (mapcar (lambda(x) (format nil "~A/~A" *default-pathname-defaults* x)) 42 '("scratch/" 43 "scratch.txt" "foo.txt" "foo.lsp" 44 "foo.dat" 45 "tmp.txt" "tmp.dat" "tmp2.dat" 46 "temp.dat" "out.class" 47 "file-that-was-renamed.txt" 48 "compile-file-test-lp.lsp" 49 "compile-file-test-lp.out" 50 "ldtest.lsp")))) 42 51 (time (load boot-file)) 43 52 (format t "<--- ~A ends.~%" message))
Note: See TracChangeset
for help on using the changeset viewer.