1 |
# LISP=gcl |
# LISP=gcl |
2 |
|
# LISP=sbcl --noinform |
3 |
|
# LISP=~/sbcl/src/runtime/sbcl --core ~/sbcl/output/sbcl.core --noinform |
4 |
|
# LISP=clisp -ansi -q |
5 |
|
# LISP=abcl |
6 |
|
# LISP=ecl |
7 |
|
|
8 |
test: |
test: |
9 |
@rm -rf scratch |
@rm -rf scratch |
10 |
echo "(load \"doit.lsp\")" | $(LISP) | tee test.out |
cat doit.lsp | $(LISP) | tee test.out |
11 |
|
|
12 |
test-compiled: |
test-compiled: |
13 |
@rm -rf scratch |
@rm -rf scratch |
17 |
echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out |
echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out |
18 |
|
|
19 |
random-test: |
random-test: |
20 |
echo "(progn (setq *load-verbose* nil) \ |
(echo "(progn #+gcl (setq compiler::*cc* \"gcc -c -DVOL=volatile -fsigned-char -pipe \") \ |
21 |
|
(setq *load-verbose* nil) \ |
22 |
(let* ((*standard-output* (make-broadcast-stream)) \ |
(let* ((*standard-output* (make-broadcast-stream)) \ |
23 |
(*error-output* *standard-output*)) \ |
(*error-output* *standard-output*)) \ |
24 |
(load \"gclload1.lsp\") \ |
(load \"gclload1.lsp\") \ |
25 |
(funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \ |
(funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \ |
26 |
(in-package :cl-test) \ |
(in-package :cl-test) \ |
27 |
(let ((x (cl-test::test-random-integer-forms 100 10 1000 :random-size t :random-nvars t))) \ |
(let ((x (cl-test::test-random-integer-forms 1000 3 1000 :random-size t :random-nvars t))) \ |
28 |
(setq x (cl-test::prune-results x)) \ |
(setq x (cl-test::prune-results x)) \ |
29 |
(with-open-file (*standard-output* \"failures.lsp\" \ |
(with-open-file (*standard-output* \"failures.lsp\" \ |
30 |
:direction :output \ |
:direction :output \ |
31 |
:if-exists :append \ |
:if-exists :append \ |
32 |
:if-does-not-exist :create) \ |
:if-does-not-exist :create) \ |
33 |
(mapc #'print x)) \ |
(mapc #'print x))) \ |
34 |
#-allegro (quit) #+allegro (excl::exit)))" | $(LISP) |
#+allegro (excl::exit) \ |
35 |
|
; extra quits added to avoid being trapped in debugger in some lisps \ |
36 |
|
(cl-user::quit) \ |
37 |
|
(cl-user::quit) \ |
38 |
|
(cl-user::quit) \ |
39 |
|
(cl-user::quit) \ |
40 |
|
(cl-user::quit) \ |
41 |
|
(cl-user::quit) \ |
42 |
|
(cl-user::quit) \ |
43 |
|
(cl-user::quit) \ |
44 |
|
(cl-user::quit) \ |
45 |
|
(cl-user::quit) \ |
46 |
|
(cl-user::quit)") | $(LISP) |
47 |
rm -f gazonk* |
rm -f gazonk* |
48 |
|
|
49 |
rt_1000_8: |
rt_1000_8: |