4 |
;;; with arbitrary legal garbage. |
;;; with arbitrary legal garbage. |
5 |
;; (pushnew :ansi-tests-strict-initial-element *features*) |
;; (pushnew :ansi-tests-strict-initial-element *features*) |
6 |
|
|
|
#+allegro (run-shell-command "rm -f *.fasl") |
|
7 |
#+allegro (setq *enclose-printer-errors* nil) |
#+allegro (setq *enclose-printer-errors* nil) |
8 |
#+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf")) |
|
9 |
|
;;; Remove compiled files |
10 |
|
(let* ((fn (compile-file-pathname "doit.lsp")) |
11 |
|
(type (pathname-type fn)) |
12 |
|
(dir-pathname (make-pathname :name :wild :type type)) |
13 |
|
(files (directory dir-pathname))) |
14 |
|
(assert type) |
15 |
|
(assert (not (string-equal type "lsp"))) |
16 |
|
(mapc #'delete-file files)) |
17 |
|
|
18 |
(load "gclload1.lsp") |
(load "gclload1.lsp") |
19 |
(load "gclload2.lsp") |
(load "gclload2.lsp") |
27 |
(rt:disable-note :assume-no-gray-streams)) |
(rt:disable-note :assume-no-gray-streams)) |
28 |
|
|
29 |
(in-package :cl-test) |
(in-package :cl-test) |
30 |
|
|
31 |
|
;;; These two tests will misbehave if the tests are being |
32 |
|
;;; invoked from a file that is being loaded, so remove them |
33 |
|
(when *load-pathname* |
34 |
|
(mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1))) |
35 |
|
|
36 |
(time (regression-test:do-tests)) |
(time (regression-test:do-tests)) |