6 |
|
|
7 |
#+allegro (run-shell-command "rm -f *.fasl") |
#+allegro (run-shell-command "rm -f *.fasl") |
8 |
#+allegro (setq *enclose-printer-errors* nil) |
#+allegro (setq *enclose-printer-errors* nil) |
9 |
#+cmucl (run-program "rm -f *.x86f") |
#+cmu (run-program "rm -f *.x86f") |
10 |
|
|
11 |
(load "gclload1.lsp") |
(load "gclload1.lsp") |
12 |
(load "gclload2.lsp") |
(load "gclload2.lsp") |
20 |
(rt:disable-note :assume-no-gray-streams)) |
(rt:disable-note :assume-no-gray-streams)) |
21 |
|
|
22 |
(in-package :cl-test) |
(in-package :cl-test) |
23 |
|
|
24 |
|
;;; These two tests will misbehave if the tests are being |
25 |
|
;;; invoked from a file that is being loaded, so remove them |
26 |
|
(when *load-pathname* |
27 |
|
(mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1))) |
28 |
|
|
29 |
(time (regression-test:do-tests)) |
(time (regression-test:do-tests)) |
30 |
|
|
31 |
#+allegro (cl-user::exit) |
#+allegro (cl-user::exit) |
32 |
#+(or cmucl sbcl gcl armedbear) (cl-user::quit) |
#+(or cmu sbcl gcl armedbear) (cl-user::quit) |