Changeset 12811


Ignore:
Timestamp:
07/17/10 12:03:55 (11 years ago)
Author:
Mark Evenson
Message:

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

Thanks to Matt Sedon.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/ansi/package.lisp

    r12618 r12811  
    3333    (format t "Invoking ABCL hosted on ~A ~A.~%"
    3434      (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"))))
    4251    (time (load boot-file))
    4352    (format t "<--- ~A ends.~%" message))
Note: See TracChangeset for help on using the changeset viewer.