1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
# LISP=gcl
# LISP=../unixport/saved_ansi_gcl
# LISP=sbcl --noinform
# LISP=~/sbcl/src/runtime/sbcl --core ~/sbcl/output/sbcl.core --noinform
# LISP=clisp -ansi -q
# LISP=abcl
# LISP=ecl
# LISP=/usr/local/lib/LispWorks/nongraphic-lispworks-4450
# LISP=acl
MAKE=make
test:
@rm -rf scratch
cat doit.lsp | $(LISP) | tee test.out
test-symbols:
(cat doit1.lsp ; echo "(load \"load-symbols.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-symbols.out
test-eval-and-compile:
(cat doit1.lsp ; echo "(load \"load-eval-and-compile.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-eval-and-compile.out
test-data-and-control-flow:
(cat doit1.lsp ; echo "(load \"load-data-and-control-flow.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-data-and-control-flow.out
test-iteration:
(cat doit1.lsp ; echo "(load \"load-iteration.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-iteration.out
test-objects:
(cat doit1.lsp ; echo "(load \"load-objects.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-objects.out
test-conditions:
(cat doit1.lsp ; echo "(load \"load-conditions.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-conditions.out
test-cons:
(cat doit1.lsp ; echo "(load \"load-cons.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-cons.out
test-arrays:
(cat doit1.lsp ; echo "(load \"load-arrays.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-arrays.out
test-hash-tables:
(cat doit1.lsp ; echo "(load \"load-hash-tables.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-hash-tables.out
test-packages:
(cat doit1.lsp ; echo "(load \"load-packages.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-packages.out
test-numbers:
(cat doit1.lsp ; echo "(load \"load-numbers.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-numbers.out
test-sequences:
(cat doit1.lsp ; echo "(load \"load-sequences.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-sequences.out
test-structures:
(cat doit1.lsp ; echo "(load \"load-structures.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-structures.out
test-types-and-class:
(cat doit1.lsp ; echo "(load \"load-types-and-class.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-types-and-class.out
test-strings:
(cat doit1.lsp ; echo "(load \"load-strings.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-strings.out
test-characters:
(cat doit1.lsp ; echo "(load \"load-characters.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-characters.out
test-pathnames:
(cat doit1.lsp ; echo "(load \"load-pathnames.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-pathnames.out
test-files:
(cat doit1.lsp ; echo "(load \"load-files.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-files.out
test-streams:
(cat doit1.lsp ; echo "(load \"load-streams.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-streams.out
test-printer:
(cat doit1.lsp ; echo "(load \"load-printer.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-printer.out
test-reader:
(cat doit1.lsp ; echo "(load \"load-reader.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-reader.out
test-system-construction:
(cat doit1.lsp ; echo "(load \"load-system-construction.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-system-construction.out
test-environment:
(cat doit1.lsp ; echo "(load \"load-environment.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-environment.out
test-misc:
(cat doit1.lsp ; echo "(load \"load-misc.lsp\")"; cat doit2.lsp) | $(LISP) | tee test-misc.out
test-all: test-symbols test-eval-and-compile test-data-and-control-flow test-iteration test-objects \
test-conditions test-cons test-arrays test-hash-tables test-packages test-numbers \
test-sequences test-structures test-types-and-class test-strings test-characters test-pathnames \
test-files test-streams test-printer test-reader test-system-construction test-environment \
test-misc
test-compiled:
@rm -rf scratch
echo "(load \"compileit.lsp\")" | $(LISP) | tee test.out
test-unixport:
echo "(load \"doit.lsp\")" | ../unixport/saved_ansi_gcl | tee test.out
random-test:
(echo "(progn #+gcl (setq compiler::*cc* \"gcc -c -DVOL=volatile -fsigned-char -pipe \") \
(setq *load-verbose* nil) \
(let* ((*standard-output* (make-broadcast-stream)) \
(*error-output* *standard-output*)) \
(load \"gclload1.lsp\") \
(funcall (symbol-function 'compile-and-load) \"random-int-form.lsp\"))) \
(in-package :cl-test) \
(let ((x (cl-test::test-random-integer-forms 1000 3 1000 :random-size t :random-nvars t))) \
(setq x (cl-test::prune-results x)) \
(with-open-file (*standard-output* \"failures.lsp\" \
:direction :output \
:if-exists :append \
:if-does-not-exist :create) \
(mapc #'print x))) \
#+allegro (excl::exit) \
; extra quits added to avoid being trapped in debugger in some lisps \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit) \
(cl-user::quit)") | $(LISP)
rm -f gazonk*
rt_1000_8:
echo "(load \"gclload1.lsp\") \
(compile-and-load \"random-int-form.lsp\") \
(in-package :cl-test) (loop-random-int-forms 1000 8)" | $(LISP)
clean:
@rm -f test*.out *.cls *.fasl *.o *.so *~ *.fn *.x86f *.fasl *.ufsl *.abcl *.fas *.lib \#*\#
@rm -f *.dfsl *.d64fsl
@(cd beyond-ansi; $(MAKE) clean)
@rm -rf scratch/ scratch.txt
@rm -f foo.txt foo.lsp foo.dat
@rm -f tmp.txt tmp.dat tmp2.dat temp.dat
@rm -f gazonk* out.class
@rm -rf TMP/
@rm -f "CLTEST:file-that-was-renamed.txt" file-that-was-renamed.txt
@rm -f compile-file-test-lp.lsp compile-file-test-lp.out ldtest.lsp
|
