15 |
(deftest misc.1 |
(deftest misc.1 |
16 |
(funcall |
(funcall |
17 |
(compile nil '(lambda (b) |
(compile nil '(lambda (b) |
18 |
(declare (type (integer 8 22337) b)) |
(declare (type (integer 8 22337) b)) |
19 |
(+ b 2607688420))) |
(+ b 2607688420))) |
20 |
100) |
100) |
21 |
2607688520) |
2607688520) |
22 |
|
|
23 |
(deftest misc.2 |
(deftest misc.2 |
24 |
(funcall (compile nil |
(funcall (compile nil |
25 |
'(lambda (b) (integer-length (dpb b (byte 4 28) -1005)))) |
'(lambda (b) (integer-length (dpb b (byte 4 28) -1005)))) |
26 |
12800263) |
12800263) |
27 |
32) |
32) |
28 |
|
|
29 |
(deftest misc.3 |
(deftest misc.3 |
33 |
'(lambda (a b) |
'(lambda (a b) |
34 |
(declare (optimize (speed 3) (debug 1))) |
(declare (optimize (speed 3) (debug 1))) |
35 |
(let ((v7 |
(let ((v7 |
36 |
(let ((v2 (block b5 (return-from b5 (if t b -4))))) |
(let ((v2 (block b5 (return-from b5 (if t b -4))))) |
37 |
a))) |
a))) |
38 |
-65667836))) |
-65667836))) |
39 |
1 2) |
1 2) |
40 |
-65667836) |
-65667836) |
41 |
|
|
44 |
(compile |
(compile |
45 |
nil |
nil |
46 |
'(lambda (a b c) |
'(lambda (a b c) |
47 |
(declare (type (integer -629491 -333) a) |
(declare (type (integer -629491 -333) a) |
48 |
(type (integer -142 1) b) |
(type (integer -142 1) b) |
49 |
(type (integer 0 12604) c) |
(type (integer 0 12604) c) |
50 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
51 |
(let ((v6 (block b7 (return-from b7 (if (eql b 0) 1358159 a))))) |
(let ((v6 (block b7 (return-from b7 (if (eql b 0) 1358159 a))))) |
52 |
b))) |
b))) |
53 |
-1000 -17 6143) |
-1000 -17 6143) |
54 |
-17) |
-17) |
55 |
|
|
56 |
(deftest misc.5 |
(deftest misc.5 |
57 |
(funcall |
(funcall |
58 |
(compile nil |
(compile nil |
59 |
'(lambda () (* 390 (- (signum (logeqv -8005440 -2310)) |
'(lambda () (* 390 (- (signum (logeqv -8005440 -2310)) |
60 |
-10604863))))) |
-10604863))))) |
61 |
4135896180) |
4135896180) |
62 |
|
|
63 |
(deftest misc.6 |
(deftest misc.6 |
64 |
(funcall |
(funcall |
65 |
(compile nil |
(compile nil |
66 |
'(lambda (a c) |
'(lambda (a c) |
67 |
(declare (optimize (speed 3) (debug 1))) |
(declare (optimize (speed 3) (debug 1))) |
68 |
(flet ((%f14 () (if c a -486826646))) |
(flet ((%f14 () (if c a -486826646))) |
69 |
(let ((v7 (flet ((%f18 () (%f14))) a))) |
(let ((v7 (flet ((%f18 () (%f14))) a))) |
70 |
(let ((v5 (%f14))) |
(let ((v5 (%f14))) |
71 |
0))))) |
0))))) |
72 |
10 20) |
10 20) |
73 |
0) |
0) |
74 |
|
|
75 |
(deftest misc.7 |
(deftest misc.7 |
76 |
(funcall (compile nil |
(funcall (compile nil |
77 |
'(lambda (c) (declare (optimize (speed 3) (debug 1))) |
'(lambda (c) (declare (optimize (speed 3) (debug 1))) |
78 |
(flet ((%f18 () -36)) |
(flet ((%f18 () -36)) |
79 |
(flet ((%f13 () |
(flet ((%f13 () |
80 |
(let () (block b8 (return-from b8 c))))) |
(let () (block b8 (return-from b8 c))))) |
81 |
(%f18))))) |
(%f18))))) |
82 |
10) |
10) |
83 |
-36) |
-36) |
84 |
|
|
85 |
(deftest misc.8 |
(deftest misc.8 |
89 |
'(lambda (a b) |
'(lambda (a b) |
90 |
(declare (optimize (speed 3) (debug 1))) |
(declare (optimize (speed 3) (debug 1))) |
91 |
(let ((v3 (flet ((%f12 () (min b (block b2 (return-from b2 a))))) |
(let ((v3 (flet ((%f12 () (min b (block b2 (return-from b2 a))))) |
92 |
a))) |
a))) |
93 |
(block b7 |
(block b7 |
94 |
(flet ((%f5 () (return-from b7 b))) |
(flet ((%f5 () (return-from b7 b))) |
95 |
(%f5)))))) |
(%f5)))))) |
96 |
10 20) |
10 20) |
97 |
20) |
20) |
98 |
|
|
101 |
(compile |
(compile |
102 |
nil |
nil |
103 |
'(lambda () |
'(lambda () |
104 |
(declare (optimize (speed 3) (debug 1))) |
(declare (optimize (speed 3) (debug 1))) |
105 |
(block b6 |
(block b6 |
106 |
(flet ((%f3 () |
(flet ((%f3 () |
107 |
(ldb (byte 19 23) |
(ldb (byte 19 23) |
108 |
(block b1 |
(block b1 |
109 |
(let () |
(let () |
110 |
(- (if nil (return-from b6 89627) |
(- (if nil (return-from b6 89627) |
111 |
1160) |
1160) |
112 |
(return-from b1 22923))))))) |
(return-from b1 22923))))))) |
113 |
1))))) |
1))))) |
114 |
1) |
1) |
115 |
|
|
116 |
(deftest misc.10 |
(deftest misc.10 |
118 |
(compile |
(compile |
119 |
nil |
nil |
120 |
'(lambda (c) |
'(lambda (c) |
121 |
(declare (optimize (speed 3) (debug 1)) |
(declare (optimize (speed 3) (debug 1)) |
122 |
(type (integer -15417757 5816) c)) |
(type (integer -15417757 5816) c)) |
123 |
(flet ((%f3 () (if nil -3143 c))) |
(flet ((%f3 () (if nil -3143 c))) |
124 |
(block b5 |
(block b5 |
125 |
(let ((v7 (if (< 23613642 (%f3)) c -23097977))) |
(let ((v7 (if (< 23613642 (%f3)) c -23097977))) |
126 |
(let ((v5 |
(let ((v5 |
127 |
(return-from b5 |
(return-from b5 |
128 |
(if (eql c v7) |
(if (eql c v7) |
129 |
(let ((v6 (%f3))) 4650813) |
(let ((v6 (%f3))) 4650813) |
130 |
782)))) |
782)))) |
131 |
-4362540)))))) |
-4362540)))))) |
132 |
-10000) |
-10000) |
133 |
782) |
782) |
134 |
|
|
137 |
(compile |
(compile |
138 |
nil |
nil |
139 |
'(lambda (a b c) |
'(lambda (a b c) |
140 |
(declare (optimize (speed 3) (debug 1))) |
(declare (optimize (speed 3) (debug 1))) |
141 |
(block b8 |
(block b8 |
142 |
(logxor |
(logxor |
143 |
(let ((v3 (return-from b8 120789657))) 3690) |
(let ((v3 (return-from b8 120789657))) 3690) |
144 |
(block b2 |
(block b2 |
145 |
(flet ((%f9 () |
(flet ((%f9 () |
146 |
(flet ((%f10 () -1)) |
(flet ((%f10 () -1)) |
147 |
c))) |
c))) |
148 |
(flet ((%f3 () (let () (return-from b2 b)))) |
(flet ((%f3 () (let () (return-from b2 b)))) |
149 |
a))))))) |
a))))))) |
150 |
1 2 3) |
1 2 3) |
151 |
120789657) |
120789657) |
152 |
|
|
155 |
(compile |
(compile |
156 |
nil |
nil |
157 |
'(lambda (c) |
'(lambda (c) |
158 |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
159 |
(type (integer -171067 -5) c)) |
(type (integer -171067 -5) c)) |
160 |
(flet ((%f16 () |
(flet ((%f16 () |
161 |
(flet ((%f12 () 439)) |
(flet ((%f12 () 439)) |
162 |
3358))) |
3358))) |
163 |
(flet ((%f14 () c)) |
(flet ((%f14 () c)) |
164 |
(if (%f14) -1 (%f14)))))) |
(if (%f14) -1 (%f14)))))) |
165 |
-100) |
-100) |
166 |
-1) |
-1) |
167 |
|
|
170 |
(compile |
(compile |
171 |
nil |
nil |
172 |
'(lambda (b c) |
'(lambda (b c) |
173 |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
174 |
(type (integer -1554410 36086789) b) |
(type (integer -1554410 36086789) b) |
175 |
(type (integer -15033876209 126774299) c) |
(type (integer -15033876209 126774299) c) |
176 |
) |
) |
177 |
(block b3 |
(block b3 |
178 |
(flet ((%f9 () |
(flet ((%f9 () |
179 |
(abs |
(abs |
180 |
(flet ((%f5 () |
(flet ((%f5 () |
181 |
(return-from b3 -2))) |
(return-from b3 -2))) |
182 |
(if (if (<= 1 c) b (%f5)) -65 -47895812))))) |
(if (if (<= 1 c) b (%f5)) -65 -47895812))))) |
183 |
(min |
(min |
184 |
(let ((v3 (let ((v8 (%f9))) b))) b) |
(let ((v3 (let ((v8 (%f9))) b))) b) |
185 |
(if (= 1364001 (%f9)) |
(if (= 1364001 (%f9)) |
186 |
(logeqv (block b5 -2713) -247) |
(logeqv (block b5 -2713) -247) |
187 |
-19)))))) |
-19)))))) |
188 |
0 0) |
0 0) |
189 |
-2) |
-2) |
190 |
|
|
193 |
(compile |
(compile |
194 |
nil |
nil |
195 |
'(lambda (c) |
'(lambda (c) |
196 |
(declare (notinline logandc1)) |
(declare (notinline logandc1)) |
197 |
(block b6 |
(block b6 |
198 |
(flet ((%f17 () (return-from b6 c))) |
(flet ((%f17 () (return-from b6 c))) |
199 |
(logandc1 (%f17) |
(logandc1 (%f17) |
200 |
(if 1 |
(if 1 |
201 |
450967818 |
450967818 |
202 |
(let ((v1 (%f17))) -17))))))) |
(let ((v1 (%f17))) -17))))))) |
203 |
10) |
10) |
204 |
10) |
10) |
205 |
|
|
208 |
(compile |
(compile |
209 |
nil |
nil |
210 |
'(lambda (a b) |
'(lambda (a b) |
211 |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
212 |
(flet ((%f6 () a)) |
(flet ((%f6 () a)) |
213 |
(block b5 |
(block b5 |
214 |
(flet ((%f14 () |
(flet ((%f14 () |
215 |
(min 17593 (block b1 (return-from b1 b))))) |
(min 17593 (block b1 (return-from b1 b))))) |
216 |
(block b7 (if (%f6) (return-from b7 28182012) |
(block b7 (if (%f6) (return-from b7 28182012) |
217 |
(return-from b5 0)))))))) |
(return-from b5 0)))))))) |
218 |
3 5) |
3 5) |
219 |
28182012) |
28182012) |
220 |
|
|
223 |
(compile |
(compile |
224 |
nil |
nil |
225 |
'(lambda (a c) |
'(lambda (a c) |
226 |
(flet ((%f14 () |
(flet ((%f14 () |
227 |
(block b6 |
(block b6 |
228 |
(flet ((%f7 () (return-from b6 4))) |
(flet ((%f7 () (return-from b6 4))) |
229 |
(if 587793 (if (%f7) c -23086423) (%f7)))))) |
(if 587793 (if (%f7) c -23086423) (%f7)))))) |
230 |
(block b1 |
(block b1 |
231 |
(flet ((%f18 () a)) |
(flet ((%f18 () a)) |
232 |
(logandc1 (return-from b1 -2781) |
(logandc1 (return-from b1 -2781) |
233 |
(if (%f14) 58647578 -396746))))))) |
(if (%f14) 58647578 -396746))))))) |
234 |
1 2) |
1 2) |
235 |
-2781) |
-2781) |
236 |
|
|
239 |
(compile |
(compile |
240 |
nil |
nil |
241 |
'(lambda (a b c) |
'(lambda (a b c) |
242 |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
243 |
(type (integer 4 23363) b) |
(type (integer 4 23363) b) |
244 |
(type (integer -32681 41648) c) |
(type (integer -32681 41648) c) |
245 |
) |
) |
246 |
(flet ((%f18 () |
(flet ((%f18 () |
247 |
(if nil c b))) |
(if nil c b))) |
248 |
(if (if (> -71810514 a) 102077 465393) |
(if (if (> -71810514 a) 102077 465393) |
249 |
(block b3 (if (%f18) (return-from b3 c) c)) |
(block b3 (if (%f18) (return-from b3 c) c)) |
250 |
(%f18))))) |
(%f18))))) |
251 |
0 10 1000) |
0 10 1000) |
252 |
1000) |
1000) |
253 |
|
|
256 |
(compile |
(compile |
257 |
nil |
nil |
258 |
'(lambda (a b c) |
'(lambda (a b c) |
259 |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
(declare (optimize (speed 3) (safety 1) (debug 1)) |
260 |
(type (integer 7 58010860) a) |
(type (integer 7 58010860) a) |
261 |
(type (integer -3573280 -1) b) |
(type (integer -3573280 -1) b) |
262 |
(type (integer -920848 -819) c) |
(type (integer -920848 -819) c) |
263 |
) |
) |
264 |
(flet ((%f15 () (if (logbitp 5 a) a c))) |
(flet ((%f15 () (if (logbitp 5 a) a c))) |
265 |
(min (if (%f15) b -39) (if (> 0 -14756) b (%f15)))))) |
(min (if (%f15) b -39) (if (> 0 -14756) b (%f15)))))) |
266 |
8 -1000 -10000) |
8 -1000 -10000) |
267 |
-1000) |
-1000) |
268 |
|
|
271 |
(compile |
(compile |
272 |
nil |
nil |
273 |
'(lambda (a b c) |
'(lambda (a b c) |
274 |
(declare (type (integer 54 3862515) a) (type (integer -961325 1539) b) |
(declare (type (integer 54 3862515) a) (type (integer -961325 1539) b) |
275 |
(type (integer 6 31455) c) (ignorable a b c) |
(type (integer 6 31455) c) (ignorable a b c) |
276 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
277 |
(lognor |
(lognor |
278 |
(flet ((%f13 () b)) (%f13)) |
(flet ((%f13 () b)) (%f13)) |
279 |
(flet ((%f1 () (return-from %f1 a))) |
(flet ((%f1 () (return-from %f1 a))) |
280 |
(labels ((%f3 () (%f1))) |
(labels ((%f3 () (%f1))) |
281 |
-428))))) |
-428))))) |
282 |
100 0 200) |
100 0 200) |
283 |
427) |
427) |
284 |
|
|
287 |
(compile |
(compile |
288 |
nil |
nil |
289 |
'(lambda (a b c) |
'(lambda (a b c) |
290 |
(declare (type (integer -1 31880308) a) |
(declare (type (integer -1 31880308) a) |
291 |
(type (integer -11374222037 5331202966) b) |
(type (integer -11374222037 5331202966) b) |
292 |
(type (integer -483 -1) c) |
(type (integer -483 -1) c) |
293 |
(ignorable a b c) |
(ignorable a b c) |
294 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
295 |
(labels ((%f6 () a)) |
(labels ((%f6 () a)) |
296 |
(if (eql (let ((v9 (%f6))) -50072824) c) |
(if (eql (let ((v9 (%f6))) -50072824) c) |
297 |
28146341 |
28146341 |
298 |
(if (< 119937 21304962) 21304962 (%f6)))))) |
(if (< 119937 21304962) 21304962 (%f6)))))) |
299 |
0 0 -1) |
0 0 -1) |
300 |
21304962) |
21304962) |
301 |
|
|
304 |
(compile |
(compile |
305 |
nil |
nil |
306 |
'(lambda (a b c) |
'(lambda (a b c) |
307 |
(declare (type (integer 398 3955) a) (type (integer 233 464963) b) |
(declare (type (integer 398 3955) a) (type (integer 233 464963) b) |
308 |
(type (integer -124477 16) c) (ignorable a b c) |
(type (integer -124477 16) c) (ignorable a b c) |
309 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
310 |
(logior |
(logior |
311 |
(flet ((%f18 () |
(flet ((%f18 () |
312 |
-3584768)) |
-3584768)) |
313 |
(%f18)) |
(%f18)) |
314 |
(flet ((%f1 () |
(flet ((%f1 () |
315 |
(return-from %f1 c))) |
(return-from %f1 c))) |
316 |
(flet ((%f9 () |
(flet ((%f9 () |
317 |
(if (%f1) 24181 7))) |
(if (%f1) 24181 7))) |
318 |
56048))))) |
56048))))) |
319 |
400 300 0) |
400 300 0) |
320 |
-3547152) |
-3547152) |
321 |
|
|
324 |
(compile |
(compile |
325 |
nil |
nil |
326 |
'(lambda (a b c) |
'(lambda (a b c) |
327 |
(declare (type (integer -126378 -103) a) |
(declare (type (integer -126378 -103) a) |
328 |
(type (integer -1158604975 1) b) |
(type (integer -1158604975 1) b) |
329 |
(type (integer 502 28036) c) |
(type (integer 502 28036) c) |
330 |
(ignorable a b c) |
(ignorable a b c) |
331 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
332 |
(labels ((%f13 () c)) |
(labels ((%f13 () c)) |
333 |
(labels ((%f3 () |
(labels ((%f3 () |
334 |
(logandc1 |
(logandc1 |
335 |
c |
c |
336 |
(block b6 |
(block b6 |
337 |
(max -73100 |
(max -73100 |
338 |
(if b (return-from b6 4935) (%f13))))))) |
(if b (return-from b6 4935) (%f13))))))) |
339 |
(%f13))))) |
(%f13))))) |
340 |
-200 0 1000) |
-200 0 1000) |
341 |
1000) |
1000) |
342 |
|
|
345 |
(compile |
(compile |
346 |
nil |
nil |
347 |
'(lambda (a b c) |
'(lambda (a b c) |
348 |
(declare (type (integer 1 18911480) a) |
(declare (type (integer 1 18911480) a) |
349 |
(type (integer -1 48333) b) |
(type (integer -1 48333) b) |
350 |
(type (integer -3881001767 -1937357) c) |
(type (integer -3881001767 -1937357) c) |
351 |
(ignorable a b c) |
(ignorable a b c) |
352 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
353 |
(labels ((%f10 () c)) |
(labels ((%f10 () c)) |
354 |
(block b7 |
(block b7 |
355 |
(logorc2 |
(logorc2 |
356 |
(* (%f10) |
(* (%f10) |
357 |
(if (ldb-test (byte 27 1) -11337) |
(if (ldb-test (byte 27 1) -11337) |
358 |
(return-from b7 -2) |
(return-from b7 -2) |
359 |
246137101)) |
246137101)) |
360 |
(min (%f10) (return-from b7 -76114))))))) |
(min (%f10) (return-from b7 -76114))))))) |
361 |
1 0 -2000000) |
1 0 -2000000) |
362 |
-2) |
-2) |
363 |
|
|
366 |
(compile |
(compile |
367 |
nil |
nil |
368 |
'(lambda (a b c) |
'(lambda (a b c) |
369 |
(declare (type (integer -1477249397 -10697252) a) |
(declare (type (integer -1477249397 -10697252) a) |
370 |
(type (integer -7 54591) b) |
(type (integer -7 54591) b) |
371 |
(type (integer -102559556 15) c) |
(type (integer -102559556 15) c) |
372 |
(ignorable a b c) |
(ignorable a b c) |
373 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
374 |
(block b8 |
(block b8 |
375 |
(let ((v1 (return-from b8 a))) |
(let ((v1 (return-from b8 a))) |
376 |
(1+ |
(1+ |
377 |
(block b3 |
(block b3 |
378 |
(flet ((%f10 () |
(flet ((%f10 () |
379 |
(min a (return-from b3 -1)))) |
(min a (return-from b3 -1)))) |
380 |
16776220))))))) |
16776220))))))) |
381 |
-11000000 0 0) |
-11000000 0 0) |
382 |
-11000000) |
-11000000) |
383 |
|
|
386 |
(compile |
(compile |
387 |
nil |
nil |
388 |
'(lambda (a b c) |
'(lambda (a b c) |
389 |
(declare (type (integer -944 111244) a) |
(declare (type (integer -944 111244) a) |
390 |
(type (integer 100512 3286178) b) |
(type (integer 100512 3286178) b) |
391 |
(type (integer -2170236 -107) c) |
(type (integer -2170236 -107) c) |
392 |
(ignorable a b c) |
(ignorable a b c) |
393 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
394 |
(labels ((%f17 () c)) |
(labels ((%f17 () c)) |
395 |
(labels ((%f16 () a)) |
(labels ((%f16 () a)) |
396 |
(if (if (logbitp 10 1029643) t 355) |
(if (if (logbitp 10 1029643) t 355) |
397 |
(if (equal (%f17) b) c a) |
(if (equal (%f17) b) c a) |
398 |
(if (= 1325844 (%f16)) -50285 (1- (%f17)))))))) |
(if (= 1325844 (%f16)) -50285 (1- (%f17)))))))) |
399 |
0 200000 -200) |
0 200000 -200) |
400 |
0) |
0) |
401 |
|
|
404 |
(compile |
(compile |
405 |
nil |
nil |
406 |
'(lambda (c) |
'(lambda (c) |
407 |
(declare (optimize speed)) |
(declare (optimize speed)) |
408 |
(block b5 |
(block b5 |
409 |
(if (logbitp 6 -97) |
(if (logbitp 6 -97) |
410 |
(let ((v2 (block b8 -42484))) c) |
(let ((v2 (block b8 -42484))) c) |
411 |
(flet ((%f10 () (return-from b5 -785143))) |
(flet ((%f10 () (return-from b5 -785143))) |
412 |
(let ((v3 (%f10))) |
(let ((v3 (%f10))) |
413 |
(%f10))))))) |
(%f10))))))) |
414 |
0) |
0) |
415 |
-785143) |
-785143) |
416 |
|
|
419 |
(compile |
(compile |
420 |
nil |
nil |
421 |
'(lambda (a b c) |
'(lambda (a b c) |
422 |
(declare (optimize (speed 3) (debug 1))) |
(declare (optimize (speed 3) (debug 1))) |
423 |
(labels ((%f14 () c)) |
(labels ((%f14 () c)) |
424 |
(logand (%f14) |
(logand (%f14) |
425 |
(labels ((%f15 () (logeqv (let ((v1 b)) c) |
(labels ((%f15 () (logeqv (let ((v1 b)) c) |
426 |
(return-from %f15 -1740)))) |
(return-from %f15 -1740)))) |
427 |
(labels ((%f8 () (%f15))) |
(labels ((%f8 () (%f15))) |
428 |
a)))))) |
a)))))) |
429 |
5 2 3) |
5 2 3) |
430 |
1) |
1) |
431 |
|
|
434 |
(compile |
(compile |
435 |
nil |
nil |
436 |
'(lambda (a b c) |
'(lambda (a b c) |
437 |
(declare |
(declare |
438 |
(type (integer 1948 12024) b) |
(type (integer 1948 12024) b) |
439 |
(type (integer -104357939 -252) c) |
(type (integer -104357939 -252) c) |
440 |
(optimize (speed 3) (debug 1))) |
(optimize (speed 3) (debug 1))) |
441 |
(flet ((%f18 () c)) |
(flet ((%f18 () c)) |
442 |
(logandc1 (if (eql b (%f18)) 0 a) |
(logandc1 (if (eql b (%f18)) 0 a) |
443 |
(if (ldb-test (byte 30 30) 1) (%f18) 1) |
(if (ldb-test (byte 30 30) 1) (%f18) 1) |
444 |
)))) |
)))) |
445 |
0 2000 -300) |
0 2000 -300) |
446 |
1) |
1) |
447 |
|
|
450 |
(compile |
(compile |
451 |
nil |
nil |
452 |
'(lambda (a b c) |
'(lambda (a b c) |
453 |
(declare (type (integer 661607 10451683348) a) |
(declare (type (integer 661607 10451683348) a) |
454 |
(type (integer -2 -2) b) |
(type (integer -2 -2) b) |
455 |
(type (integer 5996117 18803237) c) |
(type (integer 5996117 18803237) c) |
456 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
457 |
(labels ((%f16 () -29)) |
(labels ((%f16 () -29)) |
458 |
(flet ((%f7 () |
(flet ((%f7 () |
459 |
(labels ((%f1 () a)) |
(labels ((%f1 () a)) |
460 |
(let () |
(let () |
461 |
(block b3 |
(block b3 |
462 |
(if 37101207 |
(if 37101207 |
463 |
(return-from b3 -5322045) |
(return-from b3 -5322045) |
464 |
(let ((v5 b)) |
(let ((v5 b)) |
465 |
146099574))))))) |
146099574))))))) |
466 |
(if (%f16) c c))))) |
(if (%f16) c c))))) |
467 |
1000000 -2 6000000) |
1000000 -2 6000000) |
468 |
6000000) |
6000000) |
469 |
|
|
472 |
(compile |
(compile |
473 |
nil |
nil |
474 |
'(lambda (c) |
'(lambda (c) |
475 |
(declare (type (integer -253 -1) c) |
(declare (type (integer -253 -1) c) |
476 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
477 |
(flet ((%f8 () c)) |
(flet ((%f8 () c)) |
478 |
(if (= (%f8) 481) (%f8) 1779465)))) |
(if (= (%f8) 481) (%f8) 1779465)))) |
479 |
-100) |
-100) |
480 |
1779465) |
1779465) |
481 |
|
|
482 |
(deftest misc.31 |
(deftest misc.31 |
483 |
(funcall |
(funcall |
484 |
(compile nil |
(compile nil |
485 |
'(lambda () (let ((v9 (labels ((%f13 () nil)) nil))) |
'(lambda () (let ((v9 (labels ((%f13 () nil)) nil))) |
486 |
(let ((v3 (logandc2 97 3))) |
(let ((v3 (logandc2 97 3))) |
487 |
(* v3 (- 37391897 (logand v3 -66)))))))) |
(* v3 (- 37391897 (logand v3 -66)))))))) |
488 |
3589619040) |
3589619040) |
489 |
|
|
490 |
(deftest misc.32 |
(deftest misc.32 |
492 |
(compile |
(compile |
493 |
nil |
nil |
494 |
'(lambda (a d) |
'(lambda (a d) |
495 |
(declare (type (integer -8507 26755) a) |
(declare (type (integer -8507 26755) a) |
496 |
(type (integer -393314538 2084485) d) |
(type (integer -393314538 2084485) d) |
497 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
498 |
(gcd |
(gcd |
499 |
(if (= 0 a) 10 (abs -1)) |
(if (= 0 a) 10 (abs -1)) |
500 |
(logxor -1 |
(logxor -1 |
501 |
(min -7580 |
(min -7580 |
502 |
(max (logand a 31365125) d)))))) |
(max (logand a 31365125) d)))))) |
503 |
1 1) |
1 1) |
504 |
1) |
1) |
505 |
|
|
508 |
(compile |
(compile |
509 |
nil |
nil |
510 |
'(lambda (a b c d) |
'(lambda (a b c d) |
511 |
(declare (type (integer 240 100434465) a) |
(declare (type (integer 240 100434465) a) |
512 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
513 |
(logxor |
(logxor |
514 |
(if (ldb-test (byte 27 4) d) |
(if (ldb-test (byte 27 4) d) |
515 |
-1 |
-1 |
516 |
(max 55546856 -431)) |
(max 55546856 -431)) |
517 |
(logorc2 |
(logorc2 |
518 |
(if (>= 0 b) |
(if (>= 0 b) |
519 |
(if (> b c) (logandc2 c d) (if (> d 224002) 0 d)) |
(if (> b c) (logandc2 c d) (if (> d 224002) 0 d)) |
520 |
(signum (logior c b))) |
(signum (logior c b))) |
521 |
(logior a -1))))) |
(logior a -1))))) |
522 |
256 0 0 0) |
256 0 0 0) |
523 |
55546856) |
55546856) |
524 |
|
|
525 |
(deftest misc.34 |
(deftest misc.34 |
526 |
(funcall |
(funcall |
527 |
(compile nil |
(compile nil |
528 |
`(lambda (b c) |
`(lambda (b c) |
529 |
(declare (type (integer -23228343 2) b) |
(declare (type (integer -23228343 2) b) |
530 |
(type (integer -115581022 512244512) c) |
(type (integer -115581022 512244512) c) |
531 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
532 |
(* (* (logorc2 3 (deposit-field 4667947 (byte 14 26) b)) |
(* (* (logorc2 3 (deposit-field 4667947 (byte 14 26) b)) |
533 |
(deposit-field b (byte 25 27) -30424886)) |
(deposit-field b (byte 25 27) -30424886)) |
534 |
(dpb b (byte 23 29) c) |
(dpb b (byte 23 29) c) |
535 |
))) |
))) |
536 |
0 0) |
0 0) |
537 |
0) |
0) |
538 |
|
|
541 |
(compile |
(compile |
542 |
nil |
nil |
543 |
'(lambda (c) |
'(lambda (c) |
544 |
(declare (type (integer -5945502333 12668542) c) |
(declare (type (integer -5945502333 12668542) c) |
545 |
(optimize (speed 3))) |
(optimize (speed 3))) |
546 |
(let ((v2 (* c 12))) |
(let ((v2 (* c 12))) |
547 |
(- (max (if (/= 109335113 v2) -26479 v2) |
(- (max (if (/= 109335113 v2) -26479 v2) |
548 |
(deposit-field 311 |
(deposit-field 311 |
549 |
(byte 14 28) |
(byte 14 28) |
550 |
(min (max 521326 c) -51))))))) |
(min (max 521326 c) -51))))))) |
551 |
12668542) |
12668542) |
552 |
26479) |
26479) |
553 |
|
|
554 |
(deftest misc.36 |
(deftest misc.36 |
555 |
(funcall |
(funcall |
556 |
(compile nil |
(compile nil |
557 |
'(lambda () |
'(lambda () |
558 |
(declare (notinline + logand) |
(declare (notinline + logand) |
559 |
(optimize (speed 0))) |
(optimize (speed 0))) |
560 |
(logand |
(logand |
561 |
(block b5 |
(block b5 |
562 |
(flet ((%f1 () |
(flet ((%f1 () |
563 |
(return-from b5 -220))) |
(return-from b5 -220))) |
564 |
(let ((v7 (%f1))) |
(let ((v7 (%f1))) |
565 |
(+ 359749 35728422)))) |
(+ 359749 35728422)))) |
566 |
-24076)))) |
-24076)))) |
567 |
-24284) |
-24284) |
568 |
|
|
569 |
(deftest misc.37 |
(deftest misc.37 |
573 |
'(lambda (b) |
'(lambda (b) |
574 |
(declare (notinline -) (optimize (speed 0))) |
(declare (notinline -) (optimize (speed 0))) |
575 |
(- (block b4 |
(- (block b4 |
576 |
(flet ((%f4 () |
(flet ((%f4 () |
577 |
(return-from b4 b))) |
(return-from b4 b))) |
578 |
(%f4)))))) |
(%f4)))))) |
579 |
10) |
10) |
580 |
-10) |
-10) |
581 |
|
|
584 |
(compile |
(compile |
585 |
nil |
nil |
586 |
'(lambda (x) (declare (type (integer 0 100) x) |
'(lambda (x) (declare (type (integer 0 100) x) |
587 |
(optimize (speed 3) (safety 1))) |
(optimize (speed 3) (safety 1))) |
588 |
(logandc1 x x))) |
(logandc1 x x))) |
589 |
79) |
79) |
590 |
0) |
0) |
594 |
(compile |
(compile |
595 |
nil |
nil |
596 |
'(lambda (x) (declare (type (integer 0 100) x) |
'(lambda (x) (declare (type (integer 0 100) x) |
597 |
(optimize (speed 3) (safety 1))) |
(optimize (speed 3) (safety 1))) |
598 |
(logandc2 x x))) |
(logandc2 x x))) |
599 |
79) |
79) |
600 |
0) |
0) |
604 |
(compile |
(compile |
605 |
nil |
nil |
606 |
'(lambda (x) (declare (type (integer 0 100) x) |
'(lambda (x) (declare (type (integer 0 100) x) |
607 |
(optimize (speed 3) (safety 1))) |
(optimize (speed 3) (safety 1))) |
608 |
(logorc1 x x))) |
(logorc1 x x))) |
609 |
79) |
79) |
610 |
-1) |
-1) |
614 |
(compile |
(compile |
615 |
nil |
nil |
616 |
'(lambda (x) (declare (type (integer 0 100) x) |
'(lambda (x) (declare (type (integer 0 100) x) |
617 |
(optimize (speed 3) (safety 1))) |
(optimize (speed 3) (safety 1))) |
618 |
(logorc2 x x))) |
(logorc2 x x))) |
619 |
79) |
79) |
620 |
-1) |
-1) |
631 |
|
|
632 |
(deftest misc.43 |
(deftest misc.43 |
633 |
(funcall (compile nil |
(funcall (compile nil |
634 |
'(lambda () (flet ((%f2 () 288213285)) |
'(lambda () (flet ((%f2 () 288213285)) |
635 |
(+ (%f2) (* 13 (%f2))))))) |
(+ (%f2) (* 13 (%f2))))))) |
636 |
4034985990) |
4034985990) |
637 |
|
|
638 |
|
|
641 |
(compile |
(compile |
642 |
nil |
nil |
643 |
'(lambda (a) |
'(lambda (a) |
644 |
(declare (type (integer -917858 964754309) a) |
(declare (type (integer -917858 964754309) a) |
645 |
(optimize (speed 3))) |
(optimize (speed 3))) |
646 |
(* 25 (min (max a 171625820) 171626138)))) |
(* 25 (min (max a 171625820) 171626138)))) |
647 |
861929141) |
861929141) |
648 |
4290653450) |
4290653450) |
649 |
|
|
652 |
(compile |
(compile |
653 |
nil |
nil |
654 |
'(lambda (b) |
'(lambda (b) |
655 |
(declare (type (integer 21 9673) b) |
(declare (type (integer 21 9673) b) |
656 |
(optimize (speed 3))) |
(optimize (speed 3))) |
657 |
(* (integer-length -198435631) (+ b 137206182)))) |
(* (integer-length -198435631) (+ b 137206182)))) |
658 |
6027) |
6027) |
659 |
3841941852) |
3841941852) |
660 |
|
|
663 |
(compile |
(compile |
664 |
nil |
nil |
665 |
'(lambda (b c) |
'(lambda (b c) |
666 |
(declare (type (integer 0 1) b) (optimize (speed 3))) |
(declare (type (integer 0 1) b) (optimize (speed 3))) |
667 |
(flet ((%f2 () (lognor (block b5 138) c))) |
(flet ((%f2 () (lognor (block b5 138) c))) |
668 |
(if (not (or (= -67399 b) b)) |
(if (not (or (= -67399 b) b)) |
669 |
(deposit-field (%f2) (byte 11 8) -3) |
(deposit-field (%f2) (byte 11 8) -3) |
670 |
c)))) |
c)))) |
671 |
0 0) |
0 0) |
672 |
0) |
0) |
673 |
|
|
676 |
(compile |
(compile |
677 |
nil |
nil |
678 |
'(lambda (a) |
'(lambda (a) |
679 |
(declare (type (integer -4005718822 -50081775) a) |
(declare (type (integer -4005718822 -50081775) a) |
680 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
681 |
(lognor (ash a (min 0 a)) a))) |
(lognor (ash a (min 0 a)) a))) |
682 |
-2878148992) |
-2878148992) |
683 |
0) |
0) |
684 |
|
|
692 |
|
|
693 |
(deftest misc.49 |
(deftest misc.49 |
694 |
(let ((body '(truncate (logorc1 -996082 C) -2)) |
(let ((body '(truncate (logorc1 -996082 C) -2)) |
695 |
(arg 25337234)) |
(arg 25337234)) |
696 |
(values |
(values |
697 |
(funcall (compile nil `(lambda (c) ,body)) arg) |
(funcall (compile nil `(lambda (c) ,body)) arg) |
698 |
(funcall (compile nil `(lambda (c) (declare (notinline truncate)) |
(funcall (compile nil `(lambda (c) (declare (notinline truncate)) |
699 |
,body)) arg))) |
,body)) arg))) |
700 |
-13099001 |
-13099001 |
701 |
-13099001) |
-13099001) |
702 |
|
|
703 |
(deftest misc.50 |
(deftest misc.50 |
704 |
(funcall (compile nil `(lambda (c) |
(funcall (compile nil `(lambda (c) |
705 |
(declare (optimize (speed 3)) |
(declare (optimize (speed 3)) |
706 |
(type (integer 23062188 149459656) c)) |
(type (integer 23062188 149459656) c)) |
707 |
(mod c (min -2 0)))) |
(mod c (min -2 0)))) |
708 |
95019853) |
95019853) |
709 |
-1) |
-1) |
710 |
|
|
711 |
(deftest misc.51 |
(deftest misc.51 |
712 |
(funcall (compile nil `(lambda (b) |
(funcall (compile nil `(lambda (b) |
713 |
(declare (optimize (speed 3)) |
(declare (optimize (speed 3)) |
714 |
(type (integer 2 152044363) b)) |
(type (integer 2 152044363) b)) |
715 |
(rem b (min -16 0)))) |
(rem b (min -16 0)))) |
716 |
108251912) |
108251912) |
717 |
8) |
8) |
718 |
|
|
719 |
(deftest misc.53 |
(deftest misc.53 |
720 |
(funcall |
(funcall |
721 |
(compile nil '(lambda () |
(compile nil '(lambda () |
722 |
(let (x) |
(let (x) |
723 |
(block nil |
(block nil |
724 |
(flet ((%f (y z) (if (> y z) (setq x y) (setq x z)))) |
(flet ((%f (y z) (if (> y z) (setq x y) (setq x z)))) |
725 |
(%f 1 2) |
(%f 1 2) |
726 |
(%f (return 14) 2))) |
(%f (return 14) 2))) |
727 |
x)))) |
x)))) |
728 |
2) |
2) |
729 |
|
|
730 |
(deftest misc.54 |
(deftest misc.54 |
731 |
(funcall |
(funcall |
732 |
(compile nil '(lambda (a c) |
(compile nil '(lambda (a c) |
733 |
(declare (type (integer 8 117873977) a) |
(declare (type (integer 8 117873977) a) |
734 |
(type (integer -131828754 234037511) c) |
(type (integer -131828754 234037511) c) |
735 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
736 |
(* (mod (signum a) (max 50 -358301)) |
(* (mod (signum a) (max 50 -358301)) |
737 |
(* -2320445737132 |
(* -2320445737132 |
738 |
(* (* a (deposit-field a (byte 32 19) a)) c))))) |
(* (* a (deposit-field a (byte 32 19) a)) c))))) |
739 |
11386 165297671) |
11386 165297671) |
740 |
-49725654774521915007942373712) |
-49725654774521915007942373712) |
741 |
|
|
742 |
(deftest misc.55 |
(deftest misc.55 |
743 |
(funcall |
(funcall |
744 |
(compile nil '(lambda (a b c) |
(compile nil '(lambda (a b c) |
745 |
(declare (type (integer -5498929 389890) a) |
(declare (type (integer -5498929 389890) a) |
746 |
(type (integer -5029571274946 48793670) b) |
(type (integer -5029571274946 48793670) b) |
747 |
(type (integer 9221496 260169518304) c) |
(type (integer 9221496 260169518304) c) |
748 |
(ignorable a b c) |
(ignorable a b c) |
749 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
750 |
(- (mod 1020122 (min -49 -420)) |
(- (mod 1020122 (min -49 -420)) |
751 |
(logandc1 |
(logandc1 |
752 |
(block b2 |
(block b2 |
753 |
(mod c (min -49 (if t (return-from b2 1582) b)))) |
(mod c (min -49 (if t (return-from b2 1582) b)))) |
754 |
(labels ((%f14 () (mod a (max 76 8)))) |
(labels ((%f14 () (mod a (max 76 8)))) |
755 |
b))))) |
b))))) |
756 |
-1893077 -2965238893954 30902744890) |
-1893077 -2965238893954 30902744890) |
757 |
2965238894454) |
2965238894454) |
758 |
|
|
759 |
(deftest misc.56 |
(deftest misc.56 |
760 |
(funcall |
(funcall |
761 |
(compile nil '(lambda (a c) |
(compile nil '(lambda (a c) |
762 |
(declare (type (integer -8691408487404 -9) a) |
(declare (type (integer -8691408487404 -9) a) |
763 |
(type (integer 266003133 2112105962) c) |
(type (integer 266003133 2112105962) c) |
764 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
765 |
(truncate (max (round a) c) (* (* a a) a)))) |
(truncate (max (round a) c) (* (* a a) a)))) |
766 |
-10 266003133) |
-10 266003133) |
767 |
-266003 |
-266003 |
768 |
133) |
133) |
782 |
(deftest misc.58 |
(deftest misc.58 |
783 |
(funcall |
(funcall |
784 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
785 |
(declare (type (integer -23 66141285) a) |
(declare (type (integer -23 66141285) a) |
786 |
(optimize (speed 3))) |
(optimize (speed 3))) |
787 |
(logorc2 (setq a 35191330) (* a 107)))) |
(logorc2 (setq a 35191330) (* a 107)))) |
788 |
4099241) |
4099241) |
789 |
-3764388885) |
-3764388885) |
790 |
|
|
791 |
(deftest misc.59 |
(deftest misc.59 |
792 |
(funcall |
(funcall |
793 |
(compile nil '(lambda (a b c) |
(compile nil '(lambda (a b c) |
794 |
(declare (type (integer -3966039360 -879349) a) |
(declare (type (integer -3966039360 -879349) a) |
795 |
(type (integer -62642199164 -8993827395) b) |
(type (integer -62642199164 -8993827395) b) |
796 |
(type (integer -8065934654337 223) c) |
(type (integer -8065934654337 223) c) |
797 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
798 |
(floor (* (ceiling c) c) |
(floor (* (ceiling c) c) |
799 |
(max 78 (* b (* a (* a b))))))) |
(max 78 (* b (* a (* a b))))))) |
800 |
-1000000 -10000000000 0) |
-1000000 -10000000000 0) |
801 |
0 0) |
0 0) |
802 |
|
|
803 |
(deftest misc.60 |
(deftest misc.60 |
804 |
(funcall |
(funcall |
805 |
(compile nil |
(compile nil |
806 |
'(lambda () |
'(lambda () |
807 |
(let ((v5 46660)) |
(let ((v5 46660)) |
808 |
(setq v5 (signum (rem v5 (max 53 v5)))))))) |
(setq v5 (signum (rem v5 (max 53 v5)))))))) |
809 |
0) |
0) |
810 |
|
|
811 |
(deftest misc.61 |
(deftest misc.61 |
812 |
(progn |
(progn |
813 |
(compile nil |
(compile nil |
814 |
'(lambda (a b) |
'(lambda (a b) |
815 |
(declare (type (integer -1785799651 -2) a) |
(declare (type (integer -1785799651 -2) a) |
816 |
(type (integer -27 614132331) b) |
(type (integer -27 614132331) b) |
817 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
818 |
(ceiling (max (floor -733432 (max 84 -20)) 346) |
(ceiling (max (floor -733432 (max 84 -20)) 346) |
819 |
(min -10 (* 17592186028032 (* (* a b) a)))))) |
(min -10 (* 17592186028032 (* (* a b) a)))))) |
820 |
:good) |
:good) |
821 |
:good) |
:good) |
822 |
|
|
823 |
(deftest misc.62 |
(deftest misc.62 |
824 |
(funcall (compile nil '(lambda (a) |
(funcall (compile nil '(lambda (a) |
825 |
(if (and (if a t nil) nil) |
(if (and (if a t nil) nil) |
826 |
a |
a |
827 |
(min (block b5 -1) a)))) |
(min (block b5 -1) a)))) |
828 |
100) |
100) |
829 |
-1) |
-1) |
830 |
|
|
831 |
;;; sbcl bug (probably #233) |
;;; sbcl bug (probably #233) |
832 |
(deftest misc.63 |
(deftest misc.63 |
833 |
(let* ((form '(flet ((%f12 () (setq c -9868204937))) |
(let* ((form '(flet ((%f12 () (setq c -9868204937))) |
834 |
(if (<= c (%f12)) -2 (if (= c c) b c)))) |
(if (<= c (%f12)) -2 (if (= c c) b c)))) |
835 |
(form1 `(lambda (b c) |
(form1 `(lambda (b c) |
836 |
(declare (type (integer -80421740610 1395590616) c)) |
(declare (type (integer -80421740610 1395590616) c)) |
837 |
,form)) |
,form)) |
838 |
(form2 `(lambda (b c) ,form)) |
(form2 `(lambda (b c) ,form)) |
839 |
(vals '(-696742851945 686256271))) |
(vals '(-696742851945 686256271))) |
840 |
(eqlt (apply (compile nil form1) vals) |
(eqlt (apply (compile nil form1) vals) |
841 |
(apply (compile nil form2) vals))) |
(apply (compile nil form2) vals))) |
842 |
t) |
t) |
843 |
|
|
844 |
;;; sbcl bug (probably #233) |
;;; sbcl bug (probably #233) |
845 |
(deftest misc.64 |
(deftest misc.64 |
846 |
(let* ((form '(logcount |
(let* ((form '(logcount |
847 |
(if (not (> c (let ((v7 (setq c -246180))) -1))) |
(if (not (> c (let ((v7 (setq c -246180))) -1))) |
848 |
(ldb (byte 24 11) c) |
(ldb (byte 24 11) c) |
849 |
c))) |
c))) |
850 |
(form1 `(lambda (c) |
(form1 `(lambda (c) |
851 |
(declare (type (integer -256128 207636) c)) |
(declare (type (integer -256128 207636) c)) |
852 |
,form)) |
,form)) |
853 |
(form2 `(lambda (c) ,form)) |
(form2 `(lambda (c) ,form)) |
854 |
(vals '(11292)) |
(vals '(11292)) |
855 |
) |
) |
856 |
(eqlt (apply (compile nil form1) vals) |
(eqlt (apply (compile nil form1) vals) |
857 |
(apply (compile nil form2) vals))) |
(apply (compile nil form2) vals))) |
858 |
t) |
t) |
859 |
|
|
860 |
;;; sbcl bug (probably #233) |
;;; sbcl bug (probably #233) |
861 |
(deftest misc.65 |
(deftest misc.65 |
862 |
(let ((form1 '(lambda (b c) |
(let ((form1 '(lambda (b c) |
863 |
(declare (type (integer -350684427436 -255912007) b)) |
(declare (type (integer -350684427436 -255912007) b)) |
864 |
(logandc2 c (if (< b (setq b -25647585550)) b 0)))) |
(logandc2 c (if (< b (setq b -25647585550)) b 0)))) |
865 |
(form2 '(lambda (b c) |
(form2 '(lambda (b c) |
866 |
(logandc2 c (if (< b (setq b -25647585550)) b 0)))) |
(logandc2 c (if (< b (setq b -25647585550)) b 0)))) |
867 |
(vals '(-297090677547 -20121092))) |
(vals '(-297090677547 -20121092))) |
868 |
(eqlt (apply (compile nil form1) vals) |
(eqlt (apply (compile nil form1) vals) |
869 |
(apply (compile nil form2) vals))) |
(apply (compile nil form2) vals))) |
870 |
t) |
t) |
871 |
|
|
872 |
(deftest misc.66 |
(deftest misc.66 |
873 |
(let* ((form '(if (> a (setq a -2198578292)) |
(let* ((form '(if (> a (setq a -2198578292)) |
874 |
(min b (if (<= a -14866) a -128363)) |
(min b (if (<= a -14866) a -128363)) |
875 |
a)) |
a)) |
876 |
(form1 `(lambda (a b) |
(form1 `(lambda (a b) |
877 |
(declare (type (integer -3709231882 0) a)) |
(declare (type (integer -3709231882 0) a)) |
878 |
(declare (type (integer -562051054 -1) b)) |
(declare (type (integer -562051054 -1) b)) |
879 |
,form)) |
,form)) |
880 |
(form2 `(lambda (a b) ,form)) |
(form2 `(lambda (a b) ,form)) |
881 |
(vals '(-2095414787 -256985442))) |
(vals '(-2095414787 -256985442))) |
882 |
(eqlt (apply (compile nil form1) vals) |
(eqlt (apply (compile nil form1) vals) |
883 |
(apply (compile nil form2) vals))) |
(apply (compile nil form2) vals))) |
884 |
t) |
t) |
885 |
|
|
886 |
;;; sbcl/cmucl bug (on sparc) |
;;; sbcl/cmucl bug (on sparc) |
887 |
(deftest misc.67 |
(deftest misc.67 |
888 |
(funcall |
(funcall |
889 |
(compile nil '(lambda (x) |
(compile nil '(lambda (x) |
890 |
(declare (type (integer 10604862 10604862) x) |
(declare (type (integer 10604862 10604862) x) |
891 |
(optimize speed)) |
(optimize speed)) |
892 |
(* x 390))) |
(* x 390))) |
893 |
10604862) |
10604862) |
894 |
4135896180) |
4135896180) |
895 |
|
|
897 |
(deftest misc.68 |
(deftest misc.68 |
898 |
(funcall |
(funcall |
899 |
(compile nil |
(compile nil |
900 |
'(lambda (b) |
'(lambda (b) |
901 |
(flet ((%f8 () (rem b (identity (return-from %f8 0))))) |
(flet ((%f8 () (rem b (identity (return-from %f8 0))))) |
902 |
(lognor (%f8) 0)))) |
(lognor (%f8) 0)))) |
903 |
0) |
0) |
904 |
-1) |
-1) |
905 |
|
|
906 |
(deftest misc.69 |
(deftest misc.69 |
907 |
(funcall |
(funcall |
908 |
(compile nil |
(compile nil |
909 |
'(lambda (b) |
'(lambda (b) |
910 |
(flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b))) |
(flet ((%f11 () (logorc2 (block b1 (let () (return-from b1 b))) |
911 |
-1984))) |
-1984))) |
912 |
b))) |
b))) |
913 |
0) |
0) |
914 |
0) |
0) |
915 |
|
|
916 |
(deftest misc.70 |
(deftest misc.70 |
917 |
(funcall |
(funcall |
918 |
(compile nil '(lambda (c) |
(compile nil '(lambda (c) |
919 |
(declare (type (integer 46156191457 126998564334) c)) |
(declare (type (integer 46156191457 126998564334) c)) |
920 |
(truncate c (min -16 186196583)))) |
(truncate c (min -16 186196583)))) |
921 |
87723029763) |
87723029763) |
922 |
-5482689360 |
-5482689360 |
923 |
3) |
3) |
925 |
(deftest misc.71 |
(deftest misc.71 |
926 |
(funcall |
(funcall |
927 |
(compile nil |
(compile nil |
928 |
'(lambda () |
'(lambda () |
929 |
(block b8 |
(block b8 |
930 |
(if (identity (return-from b8 30)) |
(if (identity (return-from b8 30)) |
931 |
1 |
1 |
932 |
(identity |
(identity |
933 |
(block b5 |
(block b5 |
934 |
(labels ((%f10 () (min -52 (return-from b5 10)))) |
(labels ((%f10 () (min -52 (return-from b5 10)))) |
935 |
20)))))))) |
20)))))))) |
936 |
30) |
30) |
937 |
|
|
938 |
(deftest misc.72 |
(deftest misc.72 |
939 |
(funcall |
(funcall |
940 |
(compile nil '(lambda () |
(compile nil '(lambda () |
941 |
(flet ((%f13 () (rem 1 (min 0 (return-from %f13 17))))) |
(flet ((%f13 () (rem 1 (min 0 (return-from %f13 17))))) |
942 |
(%f13))))) |
(%f13))))) |
943 |
17) |
17) |
944 |
|
|
945 |
(deftest misc.73 |
(deftest misc.73 |
946 |
(funcall |
(funcall |
947 |
(compile nil '(lambda (c) |
(compile nil '(lambda (c) |
948 |
(declare (type (integer 46156191457 126998564334) c)) |
(declare (type (integer 46156191457 126998564334) c)) |
949 |
(rem c (min -1 0)))) |
(rem c (min -1 0)))) |
950 |
87723029763) |
87723029763) |
951 |
0) |
0) |
952 |
|
|
953 |
(deftest misc.74 |
(deftest misc.74 |
954 |
(funcall (compile nil '(lambda () |
(funcall (compile nil '(lambda () |
955 |
(declare (optimize (safety 3) (speed 0) (debug 0))) |
(declare (optimize (safety 3) (speed 0) (debug 0))) |
956 |
(ash 6916244 (min 42 -185236061640))))) |
(ash 6916244 (min 42 -185236061640))))) |
957 |
0) |
0) |
958 |
|
|
959 |
;;; Unwind-protect bug, from sbcl: |
;;; Unwind-protect bug, from sbcl: |
968 |
(deftest misc.76 |
(deftest misc.76 |
969 |
(funcall |
(funcall |
970 |
(compile nil |
(compile nil |
971 |
'(lambda (a c) |
'(lambda (a c) |
972 |
(if nil (unwind-protect (max 521739 (unwind-protect c))) |
(if nil (unwind-protect (max 521739 (unwind-protect c))) |
973 |
(logandc2 3942 a)))) |
(logandc2 3942 a)))) |
974 |
0 0) |
0 0) |
975 |
3942) |
3942) |
976 |
|
|
984 |
(deftest misc.78 |
(deftest misc.78 |
985 |
(funcall |
(funcall |
986 |
(compile nil '(lambda () |
(compile nil '(lambda () |
987 |
(declare (optimize (speed 0) (debug 0))) |
(declare (optimize (speed 0) (debug 0))) |
988 |
(let ((v4 |
(let ((v4 |
989 |
(case 227 |
(case 227 |
990 |
((-11113 -106126) (unwind-protect 8473)) |
((-11113 -106126) (unwind-protect 8473)) |
991 |
(t 43916)))) |
(t 43916)))) |
992 |
-12)))) |
-12)))) |
993 |
-12) |
-12) |
994 |
|
|
995 |
;;; Same as misc.78, but with no declarations |
;;; Same as misc.78, but with no declarations |
997 |
(deftest misc.79 |
(deftest misc.79 |
998 |
(funcall |
(funcall |
999 |
(compile nil '(lambda () |
(compile nil '(lambda () |
1000 |
(let ((v4 |
(let ((v4 |
1001 |
(case 227 |
(case 227 |
1002 |
((-11113 -106126) (unwind-protect 8473)) |
((-11113 -106126) (unwind-protect 8473)) |
1003 |
(t 43916)))) |
(t 43916)))) |
1004 |
-12)))) |
-12)))) |
1005 |
-12) |
-12) |
1006 |
|
|
1007 |
(deftest misc.79a |
(deftest misc.79a |
1011 |
'(lambda (a b) |
'(lambda (a b) |
1012 |
(declare (type (integer 72504 351460) a)) |
(declare (type (integer 72504 351460) a)) |
1013 |
(declare (type (integer 2383 108330) b)) |
(declare (type (integer 2383 108330) b)) |
1014 |
(declare (optimize (speed 2) (space 0) (safety 0) |
(declare (optimize (speed 2) (space 0) (safety 0) |
1015 |
(debug 2) (compilation-speed 1))) |
(debug 2) (compilation-speed 1))) |
1016 |
(if (or (or (/= b 0) (logbitp 0 0)) (logbitp 0 a)) |
(if (or (or (/= b 0) (logbitp 0 0)) (logbitp 0 a)) |
1017 |
0 |
0 |
1018 |
(funcall (constantly 0) b 0 (catch 'ct4 b))))) |
(funcall (constantly 0) b 0 (catch 'ct4 b))))) |
1019 |
132318 12238) |
132318 12238) |
1020 |
0) |
0) |
1021 |
|
|
1024 |
(deftest misc.80 |
(deftest misc.80 |
1025 |
(funcall |
(funcall |
1026 |
(compile nil |
(compile nil |
1027 |
'(lambda (b c) |
'(lambda (b c) |
1028 |
(declare (notinline > logior imagpart)) |
(declare (notinline > logior imagpart)) |
1029 |
(declare (optimize (speed 0) (debug 0))) |
(declare (optimize (speed 0) (debug 0))) |
1030 |
(labels ((%f16 () |
(labels ((%f16 () |
1031 |
(imagpart |
(imagpart |
1032 |
(block b3 |
(block b3 |
1033 |
(logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b)) |
(logeqv (logior -122516 (if (> -1 0) (return-from b3 c) b)) |
1034 |
(return-from %f16 32186310)))))) |
(return-from %f16 32186310)))))) |
1035 |
(lognor (%f16) b)))) |
(lognor (%f16) b)))) |
1036 |
-123886 -1656) |
-123886 -1656) |
1037 |
57385) |
57385) |
1038 |
|
|
1040 |
(deftest misc.81 |
(deftest misc.81 |
1041 |
(funcall |
(funcall |
1042 |
(compile nil '(lambda (b) |
(compile nil '(lambda (b) |
1043 |
(block b7 |
(block b7 |
1044 |
(let ((v3 (return-from b7 b))) |
(let ((v3 (return-from b7 b))) |
1045 |
(unwind-protect b))))) |
(unwind-protect b))))) |
1046 |
17) |
17) |
1047 |
17) |
17) |
1048 |
|
|
1050 |
(deftest misc.82 |
(deftest misc.82 |
1051 |
(funcall |
(funcall |
1052 |
(compile nil '(lambda (c) |
(compile nil '(lambda (c) |
1053 |
(labels ((%f15 () |
(labels ((%f15 () |
1054 |
(* (unwind-protect c) |
(* (unwind-protect c) |
1055 |
(max -5726369 |
(max -5726369 |
1056 |
(return-from %f15 3099206))))) |
(return-from %f15 3099206))))) |
1057 |
c))) |
c))) |
1058 |
0) |
0) |
1059 |
0) |
0) |
1060 |
|
|
1062 |
(deftest misc.83 |
(deftest misc.83 |
1063 |
(funcall |
(funcall |
1064 |
(compile nil '(lambda (a c) |
(compile nil '(lambda (a c) |
1065 |
(flet ((%f8 () (min c (min a (return-from %f8 c))))) |
(flet ((%f8 () (min c (min a (return-from %f8 c))))) |
1066 |
c))) |
c))) |
1067 |
0 -10) |
0 -10) |
1068 |
-10) |
-10) |
1069 |
|
|
1070 |
(deftest misc.84 |
(deftest misc.84 |
1071 |
(funcall |
(funcall |
1072 |
(compile nil '(lambda (a b) |
(compile nil '(lambda (a b) |
1073 |
(flet ((%f18 () |
(flet ((%f18 () |
1074 |
(let () |
(let () |
1075 |
(let () |
(let () |
1076 |
(if (ldb-test (byte 20 23) b) a |
(if (ldb-test (byte 20 23) b) a |
1077 |
(return-from %f18 431)))))) |
(return-from %f18 431)))))) |
1078 |
-674))) |
-674))) |
1079 |
0 0) |
0 0) |
1080 |
-674) |
-674) |
1081 |
|
|
1082 |
(deftest misc.85 |
(deftest misc.85 |
1083 |
(funcall |
(funcall |
1084 |
(compile nil |
(compile nil |
1085 |
'(lambda (c) |
'(lambda (c) |
1086 |
(labels ((%f14 () |
(labels ((%f14 () |
1087 |
(let () |
(let () |
1088 |
(logandc1 (min -32 (return-from %f14 -69793)) |
(logandc1 (min -32 (return-from %f14 -69793)) |
1089 |
c)))) |
c)))) |
1090 |
156))) |
156))) |
1091 |
0) |
0) |
1092 |
156) |
156) |
1093 |
|
|
1094 |
;;; Two tests showing bug(s) in clisp (2.31) |
;;; Two tests showing bug(s) in clisp (2.31) |
1095 |
(deftest misc.86 |
(deftest misc.86 |
1096 |
(funcall (compile nil '(lambda (b) |
(funcall (compile nil '(lambda (b) |
1097 |
(flet ((%f10 nil :bad)) |
(flet ((%f10 nil :bad)) |
1098 |
(let ((v7 (let ((v2 (%f10))) b))) |
(let ((v7 (let ((v2 (%f10))) b))) |
1099 |
(unwind-protect b))))) |
(unwind-protect b))))) |
1100 |
:good) |
:good) |
1101 |
:good) |
:good) |
1102 |
|
|
1103 |
(deftest misc.87 |
(deftest misc.87 |
1104 |
(apply (compile nil '(lambda (a b c) |
(apply (compile nil '(lambda (a b c) |
1105 |
(let ((v9 a)) |
(let ((v9 a)) |
1106 |
(let ((v2 (setq v9 c))) |
(let ((v2 (setq v9 c))) |
1107 |
(unwind-protect c))))) |
(unwind-protect c))))) |
1108 |
'(x y z)) |
'(x y z)) |
1109 |
z) |
z) |
1110 |
|
|
1111 |
;;; cmucl bug (18e+ 10/15/03) |
;;; cmucl bug (18e+ 10/15/03) |
1112 |
(deftest misc.88 |
(deftest misc.88 |
1113 |
(eval '(block b3 |
(eval '(block b3 |
1114 |
(max (return-from b3 1) |
(max (return-from b3 1) |
1115 |
(if (unwind-protect (unwind-protect 2)) 3 4)))) |
(if (unwind-protect (unwind-protect 2)) 3 4)))) |
1116 |
1) |
1) |
1117 |
|
|
1118 |
;;; |
;;; |
1127 |
(deftest misc.89 |
(deftest misc.89 |
1128 |
(funcall |
(funcall |
1129 |
(compile nil |
(compile nil |
1130 |
'(lambda (c) |
'(lambda (c) |
1131 |
(declare (type (integer 0 130304) c)) |
(declare (type (integer 0 130304) c)) |
1132 |
(- (rem -26 (max 25 (load-time-value 505849129))) |
(- (rem -26 (max 25 (load-time-value 505849129))) |
1133 |
(* -15718867961526428520296254978781964 c)))) |
(* -15718867961526428520296254978781964 c)))) |
1134 |
0) |
0) |
1135 |
-26) |
-26) |
1136 |
|
|
1146 |
(declare (type (integer -913299295156 3670905260104) d)) |
(declare (type (integer -913299295156 3670905260104) d)) |
1147 |
(declare (ignorable a b c d)) |
(declare (ignorable a b c d)) |
1148 |
(declare |
(declare |
1149 |
(optimize (safety 1) (space 1) (compilation-speed 2) |
(optimize (safety 1) (space 1) (compilation-speed 2) |
1150 |
(debug 0) (speed 2))) |
(debug 0) (speed 2))) |
1151 |
(- (signum (catch 'ct6 0)) (numerator (* -1303 d -20527703 d c))))) |
(- (signum (catch 'ct6 0)) (numerator (* -1303 d -20527703 d c))))) |
1152 |
-261283766805 41605749408 5110 1269102278886) |
-261283766805 41605749408 5110 1269102278886) |
1153 |
-220139978315039892599545286437019126040) |
-220139978315039892599545286437019126040) |
1164 |
(declare (type (integer -12830115357 3027711346) d)) |
(declare (type (integer -12830115357 3027711346) d)) |
1165 |
(declare (ignorable a b c d)) |
(declare (ignorable a b c d)) |
1166 |
(declare (optimize (speed 2) (compilation-speed 1) (space 1) |
(declare (optimize (speed 2) (compilation-speed 1) (space 1) |
1167 |
(safety 3) (debug 2))) |
(safety 3) (debug 2))) |
1168 |
(floor (load-time-value 0) (min -18 (* a c b -12626))))) |
(floor (load-time-value 0) (min -18 (* a c b -12626))))) |
1169 |
-78545446876 -460518205737 -38885914099 1598305189) |
-78545446876 -460518205737 -38885914099 1598305189) |
1170 |
0 0) |
0 0) |
1172 |
;;; acl bugs (version 6.2, linux x86 trial) |
;;; acl bugs (version 6.2, linux x86 trial) |
1173 |
(deftest misc.90 |
(deftest misc.90 |
1174 |
(let* ((form '(- 0 (ignore-errors 20763) |
(let* ((form '(- 0 (ignore-errors 20763) |
1175 |
(logxor b 1 c -7672794) b)) |
(logxor b 1 c -7672794) b)) |
1176 |
(fn1 `(lambda (b c) |
(fn1 `(lambda (b c) |
1177 |
(declare (type (integer -148895 -46982) b)) |
(declare (type (integer -148895 -46982) b)) |
1178 |
(declare (type (integer 0 1) c)) |
(declare (type (integer 0 1) c)) |
1179 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1180 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1181 |
,form)) |
,form)) |
1182 |
(fn2 `(lambda (b c) ,form))) |
(fn2 `(lambda (b c) ,form))) |
1183 |
(let ((v1 (funcall (compile nil fn1) -76071 0)) |
(let ((v1 (funcall (compile nil fn1) -76071 0)) |
1184 |
(v2 (funcall (compile nil fn2) -76071 0)) |
(v2 (funcall (compile nil fn2) -76071 0)) |
1185 |
(v3 (funcall (eval `(function ,fn2)) -76071 0))) |
(v3 (funcall (eval `(function ,fn2)) -76071 0))) |
1186 |
(if (= v1 v2 v3) :good |
(if (= v1 v2 v3) :good |
1187 |
(list v1 v2 v3)))) |
(list v1 v2 v3)))) |
1188 |
:good) |
:good) |
1189 |
|
|
1190 |
(deftest misc.91 |
(deftest misc.91 |
1191 |
(let ((fn1 '(lambda () |
(let ((fn1 '(lambda () |
1192 |
(declare (optimize (speed 3) (safety 1))) |
(declare (optimize (speed 3) (safety 1))) |
1193 |
(ash -10 (min 8 -481)))) |
(ash -10 (min 8 -481)))) |
1194 |
(fn2 '(lambda () (ash -10 (min 8 -481))))) |
(fn2 '(lambda () (ash -10 (min 8 -481))))) |
1195 |
(let ((v1 (funcall (compile nil fn1))) |
(let ((v1 (funcall (compile nil fn1))) |
1196 |
(v2 (funcall (compile nil fn2))) |
(v2 (funcall (compile nil fn2))) |
1197 |
(v3 (funcall (eval `(function ,fn2))))) |
(v3 (funcall (eval `(function ,fn2))))) |
1198 |
(if (= v1 v2 v3) |
(if (= v1 v2 v3) |
1199 |
:good |
:good |
1200 |
(list v1 v2 v3)))) |
(list v1 v2 v3)))) |
1201 |
:good) |
:good) |
1202 |
|
|
1203 |
(deftest misc.92 |
(deftest misc.92 |
1204 |
(let* ((form '(- -16179207 b (lognor (let () 3) (logxor -17567197 c)))) |
(let* ((form '(- -16179207 b (lognor (let () 3) (logxor -17567197 c)))) |
1205 |
(fn1 `(lambda (b c) |
(fn1 `(lambda (b c) |
1206 |
(declare (type (integer -621 30) c)) |
(declare (type (integer -621 30) c)) |
1207 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1208 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1209 |
,form)) |
,form)) |
1210 |
(fn2 `(lambda (b c) ,form)) |
(fn2 `(lambda (b c) ,form)) |
1211 |
(vals '(26291532469 -21))) |
(vals '(26291532469 -21))) |
1212 |
(let ((v1 (apply (compile nil fn1) vals)) |
(let ((v1 (apply (compile nil fn1) vals)) |
1213 |
(v2 (apply (compile nil fn2) vals)) |
(v2 (apply (compile nil fn2) vals)) |
1214 |
(v3 (apply (eval `(function ,fn2)) vals))) |
(v3 (apply (eval `(function ,fn2)) vals))) |
1215 |
(if (= v1 v2 v3) |
(if (= v1 v2 v3) |
1216 |
:good |
:good |
1217 |
(list v1 v2 v3)))) |
(list v1 v2 v3)))) |
1218 |
:good) |
:good) |
1219 |
|
|
1220 |
(deftest misc.93 |
(deftest misc.93 |
1221 |
(let* ((form '(ash (1+ (flet ((%f5 (f5-1) c)) c)) |
(let* ((form '(ash (1+ (flet ((%f5 (f5-1) c)) c)) |
1222 |
(min 69 (logxor a b)))) |
(min 69 (logxor a b)))) |
1223 |
(fn1 `(lambda (a b c) |
(fn1 `(lambda (a b c) |
1224 |
(declare (type (integer -128 -109) a) |
(declare (type (integer -128 -109) a) |
1225 |
(type (integer -2 -1) b) |
(type (integer -2 -1) b) |
1226 |
(optimize (speed 3) (safety 1))) |
(optimize (speed 3) (safety 1))) |
1227 |
,form)) |
,form)) |
1228 |
(fn2 `(lambda (a b c) ,form)) |
(fn2 `(lambda (a b c) ,form)) |
1229 |
(vals '(-123 -1 2590941967601))) |
(vals '(-123 -1 2590941967601))) |
1230 |
(eqlt (apply (compile nil fn1) vals) |
(eqlt (apply (compile nil fn1) vals) |
1231 |
(apply (compile nil fn2) vals))) |
(apply (compile nil fn2) vals))) |
1232 |
t) |
t) |
1233 |
|
|
1234 |
(deftest misc.94 |
(deftest misc.94 |
1235 |
(not (funcall |
(not (funcall |
1236 |
(compile nil '(lambda () |
(compile nil '(lambda () |
1237 |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
1238 |
(<= 268435280 |
(<= 268435280 |
1239 |
(load-time-value |
(load-time-value |
1240 |
39763134374436777607194165739302560271120000)))))) |
39763134374436777607194165739302560271120000)))))) |
1241 |
nil) |
nil) |
1242 |
|
|
1243 |
(deftest misc.95 |
(deftest misc.95 |
1244 |
(let* ((form '(+ 272 c (if (< b a) -49618 -29042) b)) |
(let* ((form '(+ 272 c (if (< b a) -49618 -29042) b)) |
1245 |
(fn1 `(lambda (a b c) |
(fn1 `(lambda (a b c) |
1246 |
(declare (type (integer -1585918 601848636) a)) |
(declare (type (integer -1585918 601848636) a)) |
1247 |
(declare (type (integer -4 16544323) b)) |
(declare (type (integer -4 16544323) b)) |
1248 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1249 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1250 |
,form)) |
,form)) |
1251 |
(fn2 `(lambda (a b c) ,form)) |
(fn2 `(lambda (a b c) ,form)) |
1252 |
(vals '(601739317 10891850 17452477960))) |
(vals '(601739317 10891850 17452477960))) |
1253 |
(let ((v1 (apply (compile nil fn1) vals)) |
(let ((v1 (apply (compile nil fn1) vals)) |
1254 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1255 |
(if (eql v1 v2) |
(if (eql v1 v2) |
1256 |
:good |
:good |
1257 |
(list v1 v2)))) |
(list v1 v2)))) |
1258 |
:good) |
:good) |
1259 |
|
|
1260 |
(deftest misc.96 |
(deftest misc.96 |
1261 |
(let* ((form '(max 26 (ceiling b (min -8 (max -1 c))))) |
(let* ((form '(max 26 (ceiling b (min -8 (max -1 c))))) |
1262 |
(fn1 `(lambda (b c) |
(fn1 `(lambda (b c) |
1263 |
(declare (type (integer 482134 96074347505) b)) |
(declare (type (integer 482134 96074347505) b)) |
1264 |
(declare (type (integer -4036 -50) c)) |
(declare (type (integer -4036 -50) c)) |
1265 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1266 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1267 |
,form)) |
,form)) |
1268 |
(fn2 `(lambda (b c) ,form)) |
(fn2 `(lambda (b c) ,form)) |
1269 |
(vals '(90244278480 -338))) |
(vals '(90244278480 -338))) |
1270 |
(let ((v1 (apply (compile nil fn1) vals)) |
(let ((v1 (apply (compile nil fn1) vals)) |
1271 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1272 |
(if (eql v1 v2) |
(if (eql v1 v2) |
1273 |
:good |
:good |
1274 |
(list v1 v2)))) |
(list v1 v2)))) |
1275 |
:good) |
:good) |
1276 |
|
|
1277 |
(deftest misc.97 |
(deftest misc.97 |
1278 |
(let* ((form '(- 349708 (gcd c 0) (logand b b (if (> -8543459 c) 83328 1073)))) |
(let* ((form '(- 349708 (gcd c 0) (logand b b (if (> -8543459 c) 83328 1073)))) |
1279 |
(fn1 `(lambda (b c) |
(fn1 `(lambda (b c) |
1280 |
(declare (type (integer 301653 329907) b)) |
(declare (type (integer 301653 329907) b)) |
1281 |
(declare (type (integer 171971491 1073721279) c)) |
(declare (type (integer 171971491 1073721279) c)) |
1282 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1283 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1284 |
,form)) |
,form)) |
1285 |
(fn2 `(lambda (b c) ,form)) |
(fn2 `(lambda (b c) ,form)) |
1286 |
(vals '(321769 1073671227))) |
(vals '(321769 1073671227))) |
1287 |
(let ((v1 (apply (compile nil fn1) vals)) |
(let ((v1 (apply (compile nil fn1) vals)) |
1288 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1289 |
(if (eql v1 v2) |
(if (eql v1 v2) |
1290 |
:good |
:good |
1291 |
(list v1 v2)))) |
(list v1 v2)))) |
1292 |
:good) |
:good) |
1293 |
|
|
1294 |
;;; sbcl bugs (0.8.4.40, x86 linux) |
;;; sbcl bugs (0.8.4.40, x86 linux) |
1295 |
|
|
1296 |
(deftest misc.98 |
(deftest misc.98 |
1297 |
(funcall (compile nil '(lambda (x) |
(funcall (compile nil '(lambda (x) |
1298 |
(declare (type (integer -1000000 1000000) x)) |
(declare (type (integer -1000000 1000000) x)) |
1299 |
(logand x x 0))) |
(logand x x 0))) |
1300 |
12345) |
12345) |
1301 |
0) |
0) |
1302 |
|
|
1303 |
(deftest misc.99 |
(deftest misc.99 |
1310 |
|
|
1311 |
(deftest misc.100 |
(deftest misc.100 |
1312 |
(funcall (compile nil '(lambda (c) |
(funcall (compile nil '(lambda (c) |
1313 |
(declare (type (integer -3924 1001809828) c)) |
(declare (type (integer -3924 1001809828) c)) |
1314 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1315 |
(min 47 (if (ldb-test (byte 2 14) c) |
(min 47 (if (ldb-test (byte 2 14) c) |
1316 |
-570344431 |
-570344431 |
1317 |
(ignore-errors -732893970))))) |
(ignore-errors -732893970))))) |
1318 |
705347625) |
705347625) |
1319 |
-570344431) |
-570344431) |
1320 |
|
|
1321 |
(deftest misc.101 |
(deftest misc.101 |
1322 |
(funcall |
(funcall |
1323 |
(compile nil '(lambda (a c) |
(compile nil '(lambda (a c) |
1324 |
(declare (type (integer 185501219873 303014665162) a)) |
(declare (type (integer 185501219873 303014665162) a)) |
1325 |
(declare (type (integer -160758 255724) c)) |
(declare (type (integer -160758 255724) c)) |
1326 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1327 |
(let ((v8 |
(let ((v8 |
1328 |
(- -554046873252388011622614991634432 |
(- -554046873252388011622614991634432 |
1329 |
(ignore-errors c) |
(ignore-errors c) |
1330 |
(unwind-protect 2791485)))) |
(unwind-protect 2791485)))) |
1331 |
(max (ignore-errors a) |
(max (ignore-errors a) |
1332 |
(let ((v6 (- v8 (restart-case 980)))) |
(let ((v6 (- v8 (restart-case 980)))) |
1333 |
(min v8 v6)))))) |
(min v8 v6)))))) |
1334 |
259448422916 173715) |
259448422916 173715) |
1335 |
259448422916) |
259448422916) |
1336 |
|
|
1337 |
(deftest misc.102 |
(deftest misc.102 |
1338 |
(funcall |
(funcall |
1339 |
(compile nil '(lambda (b) |
(compile nil '(lambda (b) |
1340 |
(declare (type (integer -1598566306 2941) b)) |
(declare (type (integer -1598566306 2941) b)) |
1341 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1342 |
(max -148949 (ignore-errors b)))) |
(max -148949 (ignore-errors b)))) |
1343 |
0) |
0) |
1344 |
0) |
0) |
1345 |
|
|
1346 |
(deftest misc.103 |
(deftest misc.103 |
1347 |
(funcall |
(funcall |
1348 |
(compile nil '(lambda (a b) |
(compile nil '(lambda (a b) |
1349 |
(min -80 |
(min -80 |
1350 |
(abs |
(abs |
1351 |
(ignore-errors |
(ignore-errors |
1352 |
(+ |
(+ |
1353 |
(logeqv b |
(logeqv b |
1354 |
(block b6 |
(block b6 |
1355 |
(return-from b6 |
(return-from b6 |
1356 |
(load-time-value -6876935)))) |
(load-time-value -6876935)))) |
1357 |
(if (logbitp 1 a) b (setq a -1522022182249)))))))) |
(if (logbitp 1 a) b (setq a -1522022182249)))))))) |
1358 |
-1802767029877 -12374959963) |
-1802767029877 -12374959963) |
1359 |
-80) |
-80) |
1360 |
|
|
1361 |
(deftest misc.104 |
(deftest misc.104 |
1362 |
(funcall |
(funcall |
1363 |
(compile nil '(lambda (a) (declare (type (integer 55400028 60748067) a)) |
(compile nil '(lambda (a) (declare (type (integer 55400028 60748067) a)) |
1364 |
(lognand 1505 (ash a (let () 40))))) |
(lognand 1505 (ash a (let () 40))))) |
1365 |
58194485) |
58194485) |
1366 |
-1) |
-1) |
1367 |
|
|
1368 |
(deftest misc.105 |
(deftest misc.105 |
1369 |
(funcall |
(funcall |
1370 |
(compile nil '(lambda (b c) |
(compile nil '(lambda (b c) |
1371 |
(declare (type (integer -4 -3) c)) |
(declare (type (integer -4 -3) c)) |
1372 |
(block b7 |
(block b7 |
1373 |
(flet ((%f1 (f1-1 f1-2 f1-3) |
(flet ((%f1 (f1-1 f1-2 f1-3) |
1374 |
(if (logbitp 0 (return-from b7 |
(if (logbitp 0 (return-from b7 |
1375 |
(- -815145138 f1-2))) |
(- -815145138 f1-2))) |
1376 |
(return-from b7 -2611670) |
(return-from b7 -2611670) |
1377 |
99345))) |
99345))) |
1378 |
(let ((v2 (%f1 -2464 (%f1 -1146 c c) -2))) |
(let ((v2 (%f1 -2464 (%f1 -1146 c c) -2))) |
1379 |
b))))) |
b))))) |
1380 |
2950453607 -4) |
2950453607 -4) |
1381 |
-815145134) |
-815145134) |
1382 |
|
|
1385 |
(deftest misc.106 |
(deftest misc.106 |
1386 |
(progn |
(progn |
1387 |
(eval '(defun misc.106-fn (a b c) |
(eval '(defun misc.106-fn (a b c) |
1388 |
(declare (optimize speed)) |
(declare (optimize speed)) |
1389 |
(block b6 |
(block b6 |
1390 |
(flet ((%f8 (f8-1 f8-2) b)) |
(flet ((%f8 (f8-1 f8-2) b)) |
1391 |
(%f8 (%f8 c 338) (if t (return-from b6 a) c)))))) |
(%f8 (%f8 c 338) (if t (return-from b6 a) c)))))) |
1392 |
(misc.106-fn -30271 -1 -3043)) |
(misc.106-fn -30271 -1 -3043)) |
1393 |
-30271) |
-30271) |
1394 |
|
|
1396 |
(deftest misc.107 |
(deftest misc.107 |
1397 |
(funcall |
(funcall |
1398 |
(compile nil |
(compile nil |
1399 |
'(lambda (b c) |
'(lambda (b c) |
1400 |
(declare (type (integer -29742055786 23602182204) b)) |
(declare (type (integer -29742055786 23602182204) b)) |
1401 |
(declare (type (integer -7409 -2075) c)) |
(declare (type (integer -7409 -2075) c)) |
1402 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1403 |
(floor |
(floor |
1404 |
(labels ((%f2 () |
(labels ((%f2 () |
1405 |
(block b6 |
(block b6 |
1406 |
(ignore-errors (return-from b6 |
(ignore-errors (return-from b6 |
1407 |
(if (= c 8) b 82674)))))) |
(if (= c 8) b 82674)))))) |
1408 |
(%f2))))) |
(%f2))))) |
1409 |
22992834060 -5833) |
22992834060 -5833) |
1410 |
82674 0) |
82674 0) |
1411 |
|
|
1416 |
nil |
nil |
1417 |
'(lambda () |
'(lambda () |
1418 |
(declare |
(declare |
1419 |
(optimize (speed 2) (space 0) (safety 1) |
(optimize (speed 2) (space 0) (safety 1) |
1420 |
(debug 3) (compilation-speed 0))) |
(debug 3) (compilation-speed 0))) |
1421 |
(flet ((%f14 |
(flet ((%f14 |
1422 |
(f14-1 |
(f14-1 |
1423 |
&optional (f14-2 (rationalize (catch 'ct4 0))) (f14-3 0) |
&optional (f14-2 (rationalize (catch 'ct4 0))) (f14-3 0) |
1424 |
(f14-4 0)) |
(f14-4 0)) |
1425 |
(dotimes (iv2 0 0) (progn f14-2)))) |
(dotimes (iv2 0 0) (progn f14-2)))) |
1426 |
(apply #'%f14 0 0 0 nil))))) |
(apply #'%f14 0 0 0 nil))))) |
1427 |
0) |
0) |
1428 |
|
|
1429 |
;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.14.18) |
;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.14.18) |
1438 |
(declare (type (integer -3798210806 -898) c)) |
(declare (type (integer -3798210806 -898) c)) |
1439 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
1440 |
(declare |
(declare |
1441 |
(optimize (speed 2) |
(optimize (speed 2) |
1442 |
(space 2) |
(space 2) |
1443 |
(safety 2) |
(safety 2) |
1444 |
(debug 3) |
(debug 3) |
1445 |
(compilation-speed 1))) |
(compilation-speed 1))) |
1446 |
(block b4 |
(block b4 |
1447 |
(let ((*s7* (cons c 0))) |
(let ((*s7* (cons c 0))) |
1448 |
(declare (special *s7*)) |
(declare (special *s7*)) |
1449 |
(return-from b4 |
(return-from b4 |
1450 |
(prog1 0 |
(prog1 0 |
1451 |
(the integer |
(the integer |
1452 |
(integer-length |
(integer-length |
1453 |
(1+ |
(1+ |
1454 |
(let () |
(let () |
1455 |
(gcd (cdr *s7*) |
(gcd (cdr *s7*) |
1456 |
(case b |
(case b |
1457 |
((31 38 20 0 5 45) 2) |
((31 38 20 0 5 45) 2) |
1458 |
((34 35 64 61 47) 39) |
((34 35 64 61 47) 39) |
1459 |
((58) a) |
((58) a) |
1460 |
(t 131788))))))))))))) |
(t 131788))))))))))))) |
1461 |
734649164 -3343 -2306504518) |
734649164 -3343 -2306504518) |
1462 |
0) |
0) |
1463 |
|
|
1467 |
nil |
nil |
1468 |
'(lambda (c) |
'(lambda (c) |
1469 |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 3) |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 3) |
1470 |
(compilation-speed 0))) |
(compilation-speed 0))) |
1471 |
(let* ((*s6* |
(let* ((*s6* |
1472 |
(unwind-protect 0 (the integer (ash 2914825 (min 8 c)))))) |
(unwind-protect 0 (the integer (ash 2914825 (min 8 c)))))) |
1473 |
(declare (special *s6*)) |
(declare (special *s6*)) |
1474 |
0))) |
0))) |
1475 |
-105) |
-105) |
1476 |
0) |
0) |
1477 |
|
|
1481 |
nil |
nil |
1482 |
'(lambda (a b) |
'(lambda (a b) |
1483 |
(declare (optimize (speed 1) (space 1) (safety 1) (debug 3) |
(declare (optimize (speed 1) (space 1) (safety 1) (debug 3) |
1484 |
(compilation-speed 1))) |
(compilation-speed 1))) |
1485 |
(catch 'ct4 |
(catch 'ct4 |
1486 |
(logorc1 |
(logorc1 |
1487 |
(the integer |
(the integer |
1488 |
(case (dotimes (iv2 2 2) (progn 203)) |
(case (dotimes (iv2 2 2) (progn 203)) |
1489 |
((-51) -59598) |
((-51) -59598) |
1490 |
((-31 -150) a) |
((-31 -150) a) |
1491 |
(t b))) |
(t b))) |
1492 |
(throw 'ct4 0))))) |
(throw 'ct4 0))))) |
1493 |
10 20) |
10 20) |
1494 |
0) |
0) |
1495 |
|
|
1499 |
nil |
nil |
1500 |
'(lambda (a) |
'(lambda (a) |
1501 |
(declare (optimize (speed 1) (space 0) (safety 1) |
(declare (optimize (speed 1) (space 0) (safety 1) |
1502 |
(debug 3) (compilation-speed 1))) |
(debug 3) (compilation-speed 1))) |
1503 |
(flet ((%f11 (&key (key1 (the integer (- a 245241933)))) 0)) |
(flet ((%f11 (&key (key1 (the integer (- a 245241933)))) 0)) |
1504 |
(%f11)))) |
(%f11)))) |
1505 |
1) |
1) |
1506 |
0) |
0) |
1507 |
|
|
1510 |
(deftest misc.108 |
(deftest misc.108 |
1511 |
(funcall |
(funcall |
1512 |
(compile nil '(lambda (b) |
(compile nil '(lambda (b) |
1513 |
(block b7 (- b (ignore-errors (return-from b7 57876)))))) |
(block b7 (- b (ignore-errors (return-from b7 57876)))))) |
1514 |
10) |
10) |
1515 |
57876) |
57876) |
1516 |
|
|
1517 |
;;; "The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed." (cmucl) |
;;; "The assertion (C::CONSTANT-CONTINUATION-P C::CONT) failed." (cmucl) |
1518 |
(deftest misc.109 |
(deftest misc.109 |
1519 |
(funcall (compile |
(funcall (compile |
1520 |
nil |
nil |
1521 |
'(lambda () |
'(lambda () |
1522 |
(load-time-value |
(load-time-value |
1523 |
(block b4 |
(block b4 |
1524 |
(* (return-from b4 -27) |
(* (return-from b4 -27) |
1525 |
(block b5 |
(block b5 |
1526 |
(return-from b4 |
(return-from b4 |
1527 |
(return-from b5 |
(return-from b5 |
1528 |
(ignore-errors (unwind-protect |
(ignore-errors (unwind-protect |
1529 |
(return-from b5 0)))))))))))) |
(return-from b5 0)))))))))))) |
1530 |
-27) |
-27) |
1531 |
|
|
1532 |
;;; This bug was occuring a lot in sbcl, and now occurs in cmucl too |
;;; This bug was occuring a lot in sbcl, and now occurs in cmucl too |
1534 |
(deftest misc.110 |
(deftest misc.110 |
1535 |
(funcall |
(funcall |
1536 |
(compile nil |
(compile nil |
1537 |
'(lambda (c) |
'(lambda (c) |
1538 |
(declare (type (integer -1441970837 -427) c)) |
(declare (type (integer -1441970837 -427) c)) |
1539 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1540 |
(block b7 (abs (min c (ignore-errors (return-from b7 c))))))) |
(block b7 (abs (min c (ignore-errors (return-from b7 c))))))) |
1541 |
-500) |
-500) |
1542 |
-500) |
-500) |
1543 |
|
|
1558 |
(declare (type (integer -1472 1979) f)) |
(declare (type (integer -1472 1979) f)) |
1559 |
(declare (ignorable a b c d e f)) |
(declare (ignorable a b c d e f)) |
1560 |
(declare |
(declare |
1561 |
(optimize (speed 3) |
(optimize (speed 3) |
1562 |
(space 3) |
(space 3) |
1563 |
(safety 0) |
(safety 0) |
1564 |
(debug 0) |
(debug 0) |
1565 |
(compilation-speed 3))) |
(compilation-speed 3))) |
1566 |
(catch 'ct7 |
(catch 'ct7 |
1567 |
(if |
(if |
1568 |
(logbitp 0 |
(logbitp 0 |
1569 |
(if (/= 0 a) |
(if (/= 0 a) |
1570 |
c |
c |
1571 |
(ignore-errors |
(ignore-errors |
1572 |
(progn |
(progn |
1573 |
(if |
(if |
1574 |
(ldb-test (byte 0 0) (rational (throw 'ct7 0))) |
(ldb-test (byte 0 0) (rational (throw 'ct7 0))) |
1575 |
0 |
0 |
1576 |
0) |
0) |
1577 |
0)))) |
0)))) |
1578 |
0 |
0 |
1579 |
0)))) |
0)))) |
1580 |
391833530 36648101240 -32785211 91893 -4124561581760 1358) |
391833530 36648101240 -32785211 91893 -4124561581760 1358) |
1581 |
0) |
0) |
1582 |
|
|
1612 |
(deftest misc.113 |
(deftest misc.113 |
1613 |
(funcall |
(funcall |
1614 |
(compile nil '(lambda (b c) |
(compile nil '(lambda (b c) |
1615 |
(if (or (ldb-test (byte 8 10) b) t) |
(if (or (ldb-test (byte 8 10) b) t) |
1616 |
c |
c |
1617 |
(min (if (<= -6467 c) c 6) |
(min (if (<= -6467 c) c 6) |
1618 |
(flet ((%f3 (f3-1 f3-2) |
(flet ((%f3 (f3-1 f3-2) |
1619 |
f3-1)) |
f3-1)) |
1620 |
(multiple-value-call #'%f3 (values b 107))))))) |
(multiple-value-call #'%f3 (values b 107))))))) |
1621 |
-238 -23658556) |
-238 -23658556) |
1622 |
-23658556) |
-23658556) |
1623 |
|
|
1631 |
(block b2 |
(block b2 |
1632 |
(flet ((%f1 nil b)) |
(flet ((%f1 nil b)) |
1633 |
(logior (if a |
(logior (if a |
1634 |
(if (ldb-test (byte 23 1) 253966182) |
(if (ldb-test (byte 23 1) 253966182) |
1635 |
(return-from b2 a) |
(return-from b2 a) |
1636 |
-103275090) |
-103275090) |
1637 |
62410) |
62410) |
1638 |
(if (not (not (if (not nil) t (ldb-test (byte 2 27) 253671809)))) |
(if (not (not (if (not nil) t (ldb-test (byte 2 27) 253671809)))) |
1639 |
(return-from b2 -22) |
(return-from b2 -22) |
1640 |
(%f1)))))))) |
(%f1)))))))) |
1647 |
(funcall |
(funcall |
1648 |
(compile nil |
(compile nil |
1649 |
'(lambda (a b c) |
'(lambda (a b c) |
1650 |
(declare (type (integer 0 1000) a b c)) |
(declare (type (integer 0 1000) a b c)) |
1651 |
(if (and (if b (not (and (not (or a t)) nil)) nil) |
(if (and (if b (not (and (not (or a t)) nil)) nil) |
1652 |
(logbitp 6 c)) |
(logbitp 6 c)) |
1653 |
c b))) |
c b))) |
1654 |
0 100 600) |
0 100 600) |
1655 |
600) |
600) |
1656 |
|
|
1657 |
(deftest misc.116 |
(deftest misc.116 |
1658 |
(funcall |
(funcall |
1659 |
(compile nil |
(compile nil |
1660 |
'(lambda (a c) |
'(lambda (a c) |
1661 |
(declare (type (integer 0 1000) a c)) |
(declare (type (integer 0 1000) a c)) |
1662 |
(if (if (and (not (and (not (or a t)) nil)) t) c nil) |
(if (if (and (not (and (not (or a t)) nil)) t) c nil) |
1663 |
91 -1725615))) |
91 -1725615))) |
1664 |
0 0) |
0 0) |
1665 |
91) |
91) |
1666 |
|
|
1667 |
(deftest misc.117 |
(deftest misc.117 |
1668 |
(funcall |
(funcall |
1669 |
(compile nil |
(compile nil |
1670 |
'(lambda (a c) |
'(lambda (a c) |
1671 |
(declare (type (integer 0 1000) a c)) |
(declare (type (integer 0 1000) a c)) |
1672 |
(if (or c (not (or nil (not (and (not (or a t)) nil))))) |
(if (or c (not (or nil (not (and (not (or a t)) nil))))) |
1673 |
373146181 115))) |
373146181 115))) |
1674 |
0 0) |
0 0) |
1675 |
373146181) |
373146181) |
1676 |
|
|
1677 |
(deftest misc.118 |
(deftest misc.118 |
1678 |
(funcall |
(funcall |
1679 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
1680 |
(declare (type (integer 0 10000) a)) |
(declare (type (integer 0 10000) a)) |
1681 |
(if (or (or nil (not (or (not (or a nil)) t))) a) a 9376))) |
(if (or (or nil (not (or (not (or a nil)) t))) a) a 9376))) |
1682 |
0) |
0) |
1683 |
0) |
0) |
1684 |
|
|
1688 |
nil |
nil |
1689 |
'(lambda () |
'(lambda () |
1690 |
(if (and (if (1+ 0) nil (not (and (not (and (<= 3) nil)) nil))) |
(if (and (if (1+ 0) nil (not (and (not (and (<= 3) nil)) nil))) |
1691 |
(if (= -31) -20 -2371)) |
(if (= -31) -20 -2371)) |
1692 |
1493 39720)))) |
1493 39720)))) |
1693 |
39720) |
39720) |
1694 |
|
|
1695 |
(deftest misc.120 |
(deftest misc.120 |
1699 |
'(lambda (c) |
'(lambda (c) |
1700 |
(declare (type (integer 377036 4184626) c)) |
(declare (type (integer 377036 4184626) c)) |
1701 |
(if (or (and t (not (and (not (and c nil)) nil))) nil) |
(if (or (and t (not (and (not (and c nil)) nil))) nil) |
1702 |
3470653 c))) |
3470653 c))) |
1703 |
1000000) |
1000000) |
1704 |
3470653) |
3470653) |
1705 |
|
|
1737 |
;;; gcl bug (30 Oct 2003) |
;;; gcl bug (30 Oct 2003) |
1738 |
(deftest misc.123 |
(deftest misc.123 |
1739 |
(let* ((fn1 '(lambda (b) |
(let* ((fn1 '(lambda (b) |
1740 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1741 |
(labels ((%f7 (f7-1 f7-2) |
(labels ((%f7 (f7-1 f7-2) |
1742 |
(let ((v2 (setq b 723149855))) |
(let ((v2 (setq b 723149855))) |
1743 |
25620))) |
25620))) |
1744 |
(max b |
(max b |
1745 |
(multiple-value-call #'%f7 (values b 2)))))) |
(multiple-value-call #'%f7 (values b 2)))))) |
1746 |
(fn2 '(lambda (b) |
(fn2 '(lambda (b) |
1747 |
(labels ((%f7 (f7-1 f7-2) |
(labels ((%f7 (f7-1 f7-2) |
1748 |
(let ((v2 (setq b 723149855))) |
(let ((v2 (setq b 723149855))) |
1749 |
25620))) |
25620))) |
1750 |
(max b |
(max b |
1751 |
(multiple-value-call #'%f7 (values b 2)))))) |
(multiple-value-call #'%f7 (values b 2)))))) |
1752 |
(vals '(1439719153)) |
(vals '(1439719153)) |
1753 |
(v1 (apply (compile nil fn1) vals)) |
(v1 (apply (compile nil fn1) vals)) |
1754 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1755 |
(if (eql v1 v2) :good (list v1 v2))) |
(if (eql v1 v2) :good (list v1 v2))) |
1756 |
:good) |
:good) |
1757 |
|
|
1758 |
(deftest misc.124 |
(deftest misc.124 |
1759 |
(let* ((fn1 '(lambda (b) |
(let* ((fn1 '(lambda (b) |
1760 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1761 |
(labels ((%f7 (f7-1 f7-2) |
(labels ((%f7 (f7-1 f7-2) |
1762 |
(let ((v2 (setq b 723149855))) |
(let ((v2 (setq b 723149855))) |
1763 |
25620))) |
25620))) |
1764 |
(max b |
(max b |
1765 |
(funcall #'%f7 b 2))))) |
(funcall #'%f7 b 2))))) |
1766 |
(fn2 '(lambda (b) |
(fn2 '(lambda (b) |
1767 |
(labels ((%f7 (f7-1 f7-2) |
(labels ((%f7 (f7-1 f7-2) |
1768 |
(let ((v2 (setq b 723149855))) |
(let ((v2 (setq b 723149855))) |
1769 |
25620))) |
25620))) |
1770 |
(max b |
(max b |
1771 |
(funcall #'%f7 b 2))))) |
(funcall #'%f7 b 2))))) |
1772 |
(vals '(1439719153)) |
(vals '(1439719153)) |
1773 |
(v1 (apply (compile nil fn1) vals)) |
(v1 (apply (compile nil fn1) vals)) |
1774 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1775 |
(if (eql v1 v2) :good (list v1 v2))) |
(if (eql v1 v2) :good (list v1 v2))) |
1776 |
:good) |
:good) |
1777 |
|
|
1778 |
;;; This passed in gcl, but I added it for completeness. |
;;; This passed in gcl, but I added it for completeness. |
1779 |
(deftest misc.125 |
(deftest misc.125 |
1780 |
(let* ((fn1 '(lambda (b) |
(let* ((fn1 '(lambda (b) |
1781 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1782 |
(labels ((%f7 (f7-1 f7-2) |
(labels ((%f7 (f7-1 f7-2) |
1783 |
(let ((v2 (setq b 723149855))) |
(let ((v2 (setq b 723149855))) |
1784 |
25620))) |
25620))) |
1785 |
(max b |
(max b |
1786 |
(%f7 b 2))))) |
(%f7 b 2))))) |
1787 |
(fn2 '(lambda (b) |
(fn2 '(lambda (b) |
1788 |
(labels ((%f7 (f7-1 f7-2) |
(labels ((%f7 (f7-1 f7-2) |
1789 |
(let ((v2 (setq b 723149855))) |
(let ((v2 (setq b 723149855))) |
1790 |
25620))) |
25620))) |
1791 |
(max b |
(max b |
1792 |
(%f7 b 2))))) |
(%f7 b 2))))) |
1793 |
(vals '(1439719153)) |
(vals '(1439719153)) |
1794 |
(v1 (apply (compile nil fn1) vals)) |
(v1 (apply (compile nil fn1) vals)) |
1795 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1796 |
(if (eql v1 v2) :good (list v1 v2))) |
(if (eql v1 v2) :good (list v1 v2))) |
1797 |
:good) |
:good) |
1798 |
|
|
1807 |
(declare (special *should-always-be-true*)) |
(declare (special *should-always-be-true*)) |
1808 |
(labels ((%f10 (f10-1 &optional |
(labels ((%f10 (f10-1 &optional |
1809 |
(f10-2 (cl:handler-bind nil |
(f10-2 (cl:handler-bind nil |
1810 |
(if *should-always-be-true* |
(if *should-always-be-true* |
1811 |
(progn 878) |
(progn 878) |
1812 |
(should-never-be-called) |
(should-never-be-called) |
1813 |
))) |
))) |
1814 |
(f10-3 (cl:handler-case 10))) |
(f10-3 (cl:handler-case 10))) |
1815 |
-15)) |
-15)) |
1816 |
(%f10 -144))))) |
(%f10 -144))))) |
1822 |
nil |
nil |
1823 |
'(lambda (a c) |
'(lambda (a c) |
1824 |
(flet ((%f10 (f10-1 f10-2) 10)) |
(flet ((%f10 (f10-1 f10-2) 10)) |
1825 |
(flet ((%f4 |
(flet ((%f4 |
1826 |
(&optional |
(&optional |
1827 |
(f4-1 (ldb (byte 10 6) |
(f4-1 (ldb (byte 10 6) |
1828 |
(* 828 |
(* 828 |
1829 |
(+ 30 (dpb c (byte 9 30) (%f10 1918433 34107))) |
(+ 30 (dpb c (byte 9 30) (%f10 1918433 34107))) |
1830 |
))) |
))) |
1831 |
(f4-2 (setq a 0))) |
(f4-2 (setq a 0))) |
1832 |
2)) |
2)) |
1833 |
(%f4 -5))))) |
(%f4 -5))))) |
1834 |
0 0) |
0 0) |
1835 |
2) |
2) |
1836 |
|
|
1839 |
|
|
1840 |
(deftest misc.128 |
(deftest misc.128 |
1841 |
(flet ((%f14 |
(flet ((%f14 |
1842 |
(f14-1 f14-2 |
(f14-1 f14-2 |
1843 |
&optional |
&optional |
1844 |
(f14-3 (unwind-protect 13059412)) |
(f14-3 (unwind-protect 13059412)) |
1845 |
(f14-4 452384) |
(f14-4 452384) |
1846 |
(f14-5 -6714)) |
(f14-5 -6714)) |
1847 |
-1)) |
-1)) |
1848 |
(%f14 -2 1 1279896 589726354 -11)) |
(%f14 -2 1 1279896 589726354 -11)) |
1849 |
-1) |
-1) |
1850 |
|
|
1851 |
(deftest misc.129 |
(deftest misc.129 |
1852 |
(labels ((%f17 (f17-1 f17-2 &optional (f17-3 (unwind-protect 178))) |
(labels ((%f17 (f17-1 f17-2 &optional (f17-3 (unwind-protect 178))) |
1853 |
483633925)) |
483633925)) |
1854 |
-661328075) |
-661328075) |
1855 |
-661328075) |
-661328075) |
1856 |
|
|
1857 |
(deftest misc.130 |
(deftest misc.130 |
1858 |
(let* ((fn1 |
(let* ((fn1 |
1859 |
'(lambda (a c) |
'(lambda (a c) |
1860 |
(flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) |
(flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) |
1861 |
a)) |
a)) |
1862 |
(multiple-value-call #'%f10 (values -178858 a))))) |
(multiple-value-call #'%f10 (values -178858 a))))) |
1863 |
(fn2 |
(fn2 |
1864 |
'(lambda (a c) |
'(lambda (a c) |
1865 |
(declare (notinline values +) (optimize (speed 0) (debug 0))) |
(declare (notinline values +) (optimize (speed 0) (debug 0))) |
1866 |
(flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) |
(flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) |
1867 |
a)) |
a)) |
1868 |
(multiple-value-call #'%f10 (values -178858 a))))) |
(multiple-value-call #'%f10 (values -178858 a))))) |
1869 |
(vals '(-13649921 -1813684177409)) |
(vals '(-13649921 -1813684177409)) |
1870 |
(v1 (apply (compile nil fn1) vals)) |
(v1 (apply (compile nil fn1) vals)) |
1871 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1872 |
(if (eql v1 v2) :good (list v1 v2))) |
(if (eql v1 v2) :good (list v1 v2))) |
1873 |
:good) |
:good) |
1874 |
|
|
1875 |
(deftest misc.131 |
(deftest misc.131 |
1876 |
(let* ((fn1 |
(let* ((fn1 |
1877 |
'(lambda (a b) |
'(lambda (a b) |
1878 |
(max |
(max |
1879 |
(block b7 |
(block b7 |
1880 |
(abs |
(abs |
1881 |
(ignore-errors |
(ignore-errors |
1882 |
(if (ldb-test (byte 33 15) (return-from b7 a)) |
(if (ldb-test (byte 33 15) (return-from b7 a)) |
1883 |
b b))))))) |
b b))))))) |
1884 |
(fn2 |
(fn2 |
1885 |
'(lambda (a b) |
'(lambda (a b) |
1886 |
(declare (notinline abs max)) |
(declare (notinline abs max)) |
1887 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
1888 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
1889 |
(max |
(max |
1890 |
(block b7 |
(block b7 |
1891 |
(abs |
(abs |
1892 |
(ignore-errors |
(ignore-errors |
1893 |
(if (ldb-test (byte 33 15) (return-from b7 a)) |
(if (ldb-test (byte 33 15) (return-from b7 a)) |
1894 |
b b))))))) |
b b))))))) |
1895 |
(vals '(-823894140303 -3)) |
(vals '(-823894140303 -3)) |
1896 |
(v1 (apply (compile nil fn1) vals)) |
(v1 (apply (compile nil fn1) vals)) |
1897 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
1898 |
(if (eql v1 v2) :good (list v1 v2))) |
(if (eql v1 v2) :good (list v1 v2))) |
1899 |
:good) |
:good) |
1900 |
|
|
1906 |
(deftest misc.132 |
(deftest misc.132 |
1907 |
(funcall |
(funcall |
1908 |
(compile nil |
(compile nil |
1909 |
'(lambda (b c) |
'(lambda (b c) |
1910 |
(declare (type (integer -3358662 7782429) b)) |
(declare (type (integer -3358662 7782429) b)) |
1911 |
(declare (type (integer -513018 12740) c)) |
(declare (type (integer -513018 12740) c)) |
1912 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1913 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
1914 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
1915 |
(labels ((%f9 |
(labels ((%f9 |
1916 |
(&optional |
(&optional |
1917 |
(f9-1 |
(f9-1 |
1918 |
(labels |
(labels |
1919 |
((%f5 (f5-1 f5-2) |
((%f5 (f5-1 f5-2) |
1920 |
(floor (ignore-errors f5-1) |
(floor (ignore-errors f5-1) |
1921 |
(min -67 (if (equal -56 c) |
(min -67 (if (equal -56 c) |
1922 |
-11197265 f5-2))))) |
-11197265 f5-2))))) |
1923 |
c)) |
c)) |
1924 |
(f9-2 -439518) |
(f9-2 -439518) |
1925 |
(f9-3 -2840573)) |
(f9-3 -2840573)) |
1926 |
f9-1)) |
f9-1)) |
1927 |
(%f9 -193644 b 1368)))) |
(%f9 -193644 b 1368)))) |
1928 |
10 20) |
10 20) |
1929 |
-193644) |
-193644) |
1930 |
|
|
1935 |
'(lambda () |
'(lambda () |
1936 |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 2) (compilation-speed 0))) |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 2) (compilation-speed 0))) |
1937 |
(labels ((%f1 () 0)) |
(labels ((%f1 () 0)) |
1938 |
(if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0))))))) |
(if t 0 (dotimes (iv1 5 (if (%f1) 0 0)) (catch 'ct1 0))))))) |
1939 |
0) |
0) |
1940 |
|
|
1941 |
;;; cmucl (22 Oct 2003) Default for optional parameter is improperly chosen |
;;; cmucl (22 Oct 2003) Default for optional parameter is improperly chosen |
1942 |
(deftest misc.133 |
(deftest misc.133 |
1943 |
(funcall |
(funcall |
1944 |
(compile nil |
(compile nil |
1945 |
'(lambda (a b c) |
'(lambda (a b c) |
1946 |
(declare (notinline values)) |
(declare (notinline values)) |
1947 |
(declare (optimize (speed 0) (debug 0))) |
(declare (optimize (speed 0) (debug 0))) |
1948 |
(flet ((%f15 (&optional (f15-5 c)) f15-5)) |
(flet ((%f15 (&optional (f15-5 c)) f15-5)) |
1949 |
(multiple-value-call #'%f15 (values -2688612))))) |
(multiple-value-call #'%f15 (values -2688612))))) |
1950 |
1 2 3) |
1 2 3) |
1951 |
-2688612) |
-2688612) |
1952 |
|
|
1958 |
(deftest misc.134 |
(deftest misc.134 |
1959 |
(funcall |
(funcall |
1960 |
(compile nil |
(compile nil |
1961 |
'(lambda (b) |
'(lambda (b) |
1962 |
(labels ((%f5 (f5-1 f5-2 f5-3 &optional (f5-4 0) |
(labels ((%f5 (f5-1 f5-2 f5-3 &optional (f5-4 0) |
1963 |
(f5-5 |
(f5-5 |
1964 |
(flet ((%f13 (f13-1) |
(flet ((%f13 (f13-1) |
1965 |
(return-from %f13 b))) b))) |
(return-from %f13 b))) b))) |
1966 |
900654472)) |
900654472)) |
1967 |
183301))) |
183301))) |
1968 |
13775799184) |
13775799184) |
1969 |
183301) |
183301) |
1970 |
|
|
1971 |
(deftest misc.135 |
(deftest misc.135 |
1972 |
(funcall |
(funcall |
1973 |
(compile nil |
(compile nil |
1974 |
'(lambda (a b) |
'(lambda (a b) |
1975 |
(labels ((%f4 (&optional (f4-1 (labels ((%f17 nil a)) b))) |
(labels ((%f4 (&optional (f4-1 (labels ((%f17 nil a)) b))) |
1976 |
-14806404)) |
-14806404)) |
1977 |
190134))) |
190134))) |
1978 |
1783745644 268410629) |
1783745644 268410629) |
1979 |
190134) |
190134) |
1980 |
|
|
1981 |
(deftest misc.136 |
(deftest misc.136 |
1982 |
(funcall |
(funcall |
1983 |
(compile nil |
(compile nil |
1984 |
'(lambda (c) |
'(lambda (c) |
1985 |
(flet ((%f17 (&optional |
(flet ((%f17 (&optional |
1986 |
(f17-1 (flet ((%f9 nil c)) 73574919))) |
(f17-1 (flet ((%f9 nil c)) 73574919))) |
1987 |
643)) |
643)) |
1988 |
1039017546))) |
1039017546))) |
1989 |
0) |
0) |
1990 |
1039017546) |
1039017546) |
1991 |
|
|
1994 |
(deftest misc.137 |
(deftest misc.137 |
1995 |
(funcall |
(funcall |
1996 |
(compile nil |
(compile nil |
1997 |
'(lambda () |
'(lambda () |
1998 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
1999 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
2000 |
(flet ((%f16 (&optional |
(flet ((%f16 (&optional |
2001 |
(f16-2 (lognor -3897747 |
(f16-2 (lognor -3897747 |
2002 |
(if nil -1 -127228378)))) |
(if nil -1 -127228378)))) |
2003 |
10)) |
10)) |
2004 |
20)))) |
20)))) |
2005 |
20) |
20) |
2006 |
|
|
2007 |
(deftest misc.138 |
(deftest misc.138 |
2008 |
(funcall |
(funcall |
2009 |
(compile nil |
(compile nil |
2010 |
'(lambda (c) |
'(lambda (c) |
2011 |
(declare (type (integer 2996 39280) c)) |
(declare (type (integer 2996 39280) c)) |
2012 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
2013 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
2014 |
(if (zerop (labels ((%f8 (&optional |
(if (zerop (labels ((%f8 (&optional |
2015 |
(f8-2 (logorc2 c -161957))) |
(f8-2 (logorc2 c -161957))) |
2016 |
2176)) |
2176)) |
2017 |
3)) |
3)) |
2018 |
c c))) |
c c))) |
2019 |
3000) |
3000) |
2020 |
3000) |
3000) |
2021 |
|
|
2024 |
|
|
2025 |
(deftest misc.139 |
(deftest misc.139 |
2026 |
(let* ((fn1 |
(let* ((fn1 |
2027 |
'(lambda (c) |
'(lambda (c) |
2028 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
2029 |
(logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) |
(logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) |
2030 |
(%f1 774 3616592)) c))) |
(%f1 774 3616592)) c))) |
2031 |
(fn2 |
(fn2 |
2032 |
'(lambda (c) |
'(lambda (c) |
2033 |
(logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) |
(logior (labels ((%f1 (f1-1 &optional (f1-2 (setq c 7))) f1-1)) |
2034 |
(%f1 774 3616592)) c))) |
(%f1 774 3616592)) c))) |
2035 |
(vals '(-3)) |
(vals '(-3)) |
2036 |
(v1 (apply (compile nil fn1) vals)) |
(v1 (apply (compile nil fn1) vals)) |
2037 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
2038 |
(if (eql v1 v2) :good (list v1 v2))) |
(if (eql v1 v2) :good (list v1 v2))) |
2039 |
:good) |
:good) |
2040 |
|
|
2041 |
(deftest misc.140 |
(deftest misc.140 |
2042 |
(funcall |
(funcall |
2043 |
(compile nil |
(compile nil |
2044 |
'(lambda (a) |
'(lambda (a) |
2045 |
(ldb (byte 24 20) |
(ldb (byte 24 20) |
2046 |
(labels ((%f12 (&optional (f12-1 149) (f12-2 -3894159)) 34068)) |
(labels ((%f12 (&optional (f12-1 149) (f12-2 -3894159)) 34068)) |
2047 |
(let* ((v4 (%f12))) a))))) |
(let* ((v4 (%f12))) a))))) |
2048 |
-1) |
-1) |
2049 |
16777215) |
16777215) |
2050 |
|
|
2055 |
(deftest misc.141 |
(deftest misc.141 |
2056 |
(funcall |
(funcall |
2057 |
(compile nil |
(compile nil |
2058 |
'(lambda () (labels ((%f11 (&optional (f11-3 (restart-case 0))) f11-3)) |
'(lambda () (labels ((%f11 (&optional (f11-3 (restart-case 0))) f11-3)) |
2059 |
(%f11 1))))) |
(%f11 1))))) |
2060 |
1) |
1) |
2061 |
|
|
2062 |
(deftest misc.142 |
(deftest misc.142 |
2063 |
(funcall |
(funcall |
2064 |
(compile nil |
(compile nil |
2065 |
'(lambda () |
'(lambda () |
2066 |
(labels ((%f15 (&optional (f15-3 (block b1 (+ 1 (return-from b1 -10))))) |
(labels ((%f15 (&optional (f15-3 (block b1 (+ 1 (return-from b1 -10))))) |
2067 |
f15-3)) |
f15-3)) |
2068 |
(%f15))))) |
(%f15))))) |
2069 |
-10) |
-10) |
2070 |
|
|
2071 |
;;; cmucl (22 Oct 2003): NIL is not of type C::REF |
;;; cmucl (22 Oct 2003): NIL is not of type C::REF |
2085 |
(deftest misc.144 |
(deftest misc.144 |
2086 |
(funcall |
(funcall |
2087 |
(compile nil |
(compile nil |
2088 |
'(lambda (a b c) |
'(lambda (a b c) |
2089 |
(declare (type (integer 9739325 14941321) c)) |
(declare (type (integer 9739325 14941321) c)) |
2090 |
(labels ((%f7 (f7-1 f7-2 f7-3 &optional (f7-4 b)) |
(labels ((%f7 (f7-1 f7-2 f7-3 &optional (f7-4 b)) |
2091 |
(return-from %f7 f7-4))) |
(return-from %f7 f7-4))) |
2092 |
(if (= -76482 c) |
(if (= -76482 c) |
2093 |
(if (>= c 10986082) (%f7 a b (%f7 -8088 c -147106 2)) -10502) |
(if (>= c 10986082) (%f7 a b (%f7 -8088 c -147106 2)) -10502) |
2094 |
(%f7 509252 b b))))) |
(%f7 509252 b b))))) |
2095 |
-200 17 10000000) |
-200 17 10000000) |
2096 |
17) |
17) |
2097 |
|
|
2098 |
(deftest misc.145 |
(deftest misc.145 |
2099 |
(funcall |
(funcall |
2100 |
(compile nil |
(compile nil |
2101 |
'(lambda (a b c) |
'(lambda (a b c) |
2102 |
(declare (optimize (safety 3))) |
(declare (optimize (safety 3))) |
2103 |
(block b5 |
(block b5 |
2104 |
(return-from b5 |
(return-from b5 |
2105 |
(logior (if (or c t) b (load-time-value -61)) (return-from b5 -3)))))) |
(logior (if (or c t) b (load-time-value -61)) (return-from b5 -3)))))) |
2106 |
1 2 3) |
1 2 3) |
2107 |
-3) |
-3) |
2108 |
|
|
2110 |
(deftest misc.146 |
(deftest misc.146 |
2111 |
(funcall |
(funcall |
2112 |
(compile nil |
(compile nil |
2113 |
'(lambda (b) |
'(lambda (b) |
2114 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
2115 |
(flet ((%f14 (&optional (f14-1 301917227) |
(flet ((%f14 (&optional (f14-1 301917227) |
2116 |
(f14-2 (setq b 995196571))) |
(f14-2 (setq b 995196571))) |
2117 |
f14-1)) |
f14-1)) |
2118 |
(%f14 b (block b3 (%f14 -64)))))) |
(%f14 b (block b3 (%f14 -64)))))) |
2119 |
10) |
10) |
2120 |
10) |
10) |
2121 |
|
|
2133 |
(deftest misc.149 |
(deftest misc.149 |
2134 |
(funcall |
(funcall |
2135 |
(compile nil '(lambda (b) |
(compile nil '(lambda (b) |
2136 |
(block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b)))))) |
(block b1 (- (logand 0 -34 1026491) (ignore-errors (return-from b1 b)))))) |
2137 |
0) |
0) |
2138 |
0) |
0) |
2139 |
|
|
2150 |
nil |
nil |
2151 |
'(lambda (a b c) |
'(lambda (a b c) |
2152 |
(flet ((%f17 |
(flet ((%f17 |
2153 |
(&optional |
(&optional |
2154 |
(f17-4 |
(f17-4 |
2155 |
(labels ((%f13 (f13-1 &optional (f13-2 (multiple-value-prog1 b))) |
(labels ((%f13 (f13-1 &optional (f13-2 (multiple-value-prog1 b))) |
2156 |
-4)) |
-4)) |
2157 |
(%f13 b (%f13 190))))) |
(%f13 b (%f13 190))))) |
2158 |
-157596)) |
-157596)) |
2159 |
(labels ((%f6 () (%f17))) c)))) |
(labels ((%f6 () (%f17))) c)))) |
2160 |
10 20 30000) |
10 20 30000) |
2161 |
30000) |
30000) |
2162 |
|
|
2166 |
nil |
nil |
2167 |
'(lambda () |
'(lambda () |
2168 |
(declare (optimize (speed 3) (space 2) (safety 3) |
(declare (optimize (speed 3) (space 2) (safety 3) |
2169 |
(debug 3) (compilation-speed 2))) |
(debug 3) (compilation-speed 2))) |
2170 |
(catch 'ct6 (apply (constantly 0) (list)))))) |
(catch 'ct6 (apply (constantly 0) (list)))))) |
2171 |
0) |
0) |
2172 |
|
|
2177 |
'(lambda (a) |
'(lambda (a) |
2178 |
(declare (type integer a)) |
(declare (type integer a)) |
2179 |
(declare (optimize (speed 3) (space 0) (safety 3) (debug 2) |
(declare (optimize (speed 3) (space 0) (safety 3) (debug 2) |
2180 |
(compilation-speed 3))) |
(compilation-speed 3))) |
2181 |
(if (= a 0) 0 (truncate a)))) |
(if (= a 0) 0 (truncate a)))) |
2182 |
0) |
0) |
2183 |
0) |
0) |
2189 |
'(lambda (a b) |
'(lambda (a b) |
2190 |
(declare (optimize (speed 1) (space 3) (safety 2) (debug 3) (compilation-speed 3))) |
(declare (optimize (speed 1) (space 3) (safety 2) (debug 3) (compilation-speed 3))) |
2191 |
(labels ((%f4 (f4-1) |
(labels ((%f4 (f4-1) |
2192 |
0)) |
0)) |
2193 |
(labels ((%f15 |
(labels ((%f15 |
2194 |
(f15-1 f15-2 |
(f15-1 f15-2 |
2195 |
&optional (f15-3 (apply #'%f4 0 nil)) (f15-4 0) |
&optional (f15-3 (apply #'%f4 0 nil)) (f15-4 0) |
2196 |
(f15-5 (%f4 (%f4 (if (/= 0 0) a 0))))) |
(f15-5 (%f4 (%f4 (if (/= 0 0) a 0))))) |
2197 |
0)) |
0)) |
2198 |
(labels ((%f13 (f13-1) |
(labels ((%f13 (f13-1) |
2199 |
(%f15 b 0 0 0))) |
(%f15 b 0 0 0))) |
2200 |
0))))) |
0))))) |
2201 |
1 2) |
1 2) |
2202 |
0) |
0) |
2203 |
|
|
2222 |
(declare (type (integer -249 97) b)) |
(declare (type (integer -249 97) b)) |
2223 |
(declare (type (integer 3565969 6559088) c)) |
(declare (type (integer 3565969 6559088) c)) |
2224 |
(let* ((v7 |
(let* ((v7 |
2225 |
(if (not (= 1030 4)) |
(if (not (= 1030 4)) |
2226 |
c |
c |
2227 |
(logand (if (/= b c) b 34945725) (unwind-protect -12443701))))) |
(logand (if (/= b c) b 34945725) (unwind-protect -12443701))))) |
2228 |
5520737))) |
5520737))) |
2229 |
-24 5657943) |
-24 5657943) |
2230 |
5520737) |
5520737) |
2231 |
|
|
2235 |
nil |
nil |
2236 |
'(lambda () |
'(lambda () |
2237 |
(declare |
(declare |
2238 |
(optimize (speed 3) (space 3) (safety 1) (debug 1) (compilation-speed 0))) |
(optimize (speed 3) (space 3) (safety 1) (debug 1) (compilation-speed 0))) |
2239 |
(case 0 ((-12 -9 -12 -2 -5 -2 15) (catch 'ct7 (throw 'ct7 0))) (t 0))))) |
(case 0 ((-12 -9 -12 -2 -5 -2 15) (catch 'ct7 (throw 'ct7 0))) (t 0))))) |
2240 |
0) |
0) |
2241 |
|
|
2245 |
(deftest misc.152 |
(deftest misc.152 |
2246 |
(funcall |
(funcall |
2247 |
(compile nil |
(compile nil |
2248 |
'(lambda (a) |
'(lambda (a) |
2249 |
(block b5 |
(block b5 |
2250 |
(let ((v1 (let ((v8 (unwind-protect 9365))) |
(let ((v1 (let ((v8 (unwind-protect 9365))) |
2251 |
8862008))) |
8862008))) |
2252 |
(* |
(* |
2253 |
(return-from b5 |
(return-from b5 |
2254 |
(labels ((%f11 (f11-1) f11-1)) |
(labels ((%f11 (f11-1) f11-1)) |
2255 |
(%f11 87246015))) |
(%f11 87246015))) |
2256 |
(return-from b5 |
(return-from b5 |
2257 |
(setq v1 |
(setq v1 |
2258 |
(labels ((%f6 (f6-1 f6-2 f6-3) v1)) |
(labels ((%f6 (f6-1 f6-2 f6-3) v1)) |
2259 |
(dpb (unwind-protect a) |
(dpb (unwind-protect a) |
2260 |
(byte 18 13) |
(byte 18 13) |
2261 |
(labels ((%f4 () 27322826)) |
(labels ((%f4 () 27322826)) |
2262 |
(%f6 -2 -108626545 (%f4)))))))))))) |
(%f6 -2 -108626545 (%f4)))))))))))) |
2263 |
-6) |
-6) |
2264 |
87246015) |
87246015) |
2265 |
|
|
2266 |
(deftest misc.153 |
(deftest misc.153 |
2267 |
(funcall |
(funcall |
2268 |
(compile nil |
(compile nil |
2269 |
'(lambda (a) |
'(lambda (a) |
2270 |
(if (logbitp 3 |
(if (logbitp 3 |
2271 |
(case -2 |
(case -2 |
2272 |
((-96879 -1035 -57680 -106404 -94516 -125088) |
((-96879 -1035 -57680 -106404 -94516 -125088) |
2273 |
(unwind-protect 90309179)) |
(unwind-protect 90309179)) |
2274 |
((-20811 -86901 -9368 -98520 -71594) |
((-20811 -86901 -9368 -98520 -71594) |
2275 |
(let ((v9 (unwind-protect 136707))) |
(let ((v9 (unwind-protect 136707))) |
2276 |
(block b3 |
(block b3 |
2277 |
(setq v9 |
(setq v9 |
2278 |
(let ((v4 (return-from b3 v9))) |
(let ((v4 (return-from b3 v9))) |
2279 |
(- (ignore-errors (return-from b3 v4)))))))) |
(- (ignore-errors (return-from b3 v4)))))))) |
2280 |
(t -50))) |
(t -50))) |
2281 |
-20343 |
-20343 |
2282 |
a))) |
a))) |
2283 |
0) |
0) |
2284 |
-20343) |
-20343) |
2285 |
|
|
2289 |
(deftest misc.154 |
(deftest misc.154 |
2290 |
(funcall |
(funcall |
2291 |
(compile nil |
(compile nil |
2292 |
'(lambda (b) |
'(lambda (b) |
2293 |
(labels ((%f8 nil -39011)) |
(labels ((%f8 nil -39011)) |
2294 |
(flet ((%f4 (f4-1 f4-2 &optional (f4-3 (%f8)) (f4-4 b)) |
(flet ((%f4 (f4-1 f4-2 &optional (f4-3 (%f8)) (f4-4 b)) |
2295 |
(%f8))) |
(%f8))) |
2296 |
(%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3)))))) |
(%f4 -260093 -75538 -501684 (let ((v9 (%f8))) -3)))))) |
2297 |
0) |
0) |
2298 |
-39011) |
-39011) |
2299 |
|
|
2302 |
(deftest misc.155 |
(deftest misc.155 |
2303 |
(funcall |
(funcall |
2304 |
(compile nil |
(compile nil |
2305 |
'(lambda (a b c) |
'(lambda (a b c) |
2306 |
(labels ((%f6 (f6-1 f6-2) c)) |
(labels ((%f6 (f6-1 f6-2) c)) |
2307 |
(multiple-value-call #'%f6 (values a c))))) |
(multiple-value-call #'%f6 (values a c))))) |
2308 |
0 10 20) |
0 10 20) |
2309 |
20) |
20) |
2310 |
|
|
2313 |
(deftest misc.156 |
(deftest misc.156 |
2314 |
(funcall |
(funcall |
2315 |
(compile nil |
(compile nil |
2316 |
'(lambda () |
'(lambda () |
2317 |
(let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395))))) |
(let ((v6 (ldb (byte 30 1) 1473))) (let ((v8 v6)) 2395))))) |
2318 |
2395) |
2395) |
2319 |
|
|
2320 |
;;; "/tmp/ecl9CEiD1RL5.c:36: `lex0' undeclared (first use in this function)" |
;;; "/tmp/ecl9CEiD1RL5.c:36: `lex0' undeclared (first use in this function)" |
2322 |
(deftest misc.157 |
(deftest misc.157 |
2323 |
(funcall |
(funcall |
2324 |
(compile nil |
(compile nil |
2325 |
' (lambda (c) |
' (lambda (c) |
2326 |
(labels ((%f11 nil 1)) |
(labels ((%f11 nil 1)) |
2327 |
(flet ((%f9 (f9-1 f9-2) |
(flet ((%f9 (f9-1 f9-2) |
2328 |
(case 17466182 ((-12) (%f11)) (t c)))) |
(case 17466182 ((-12) (%f11)) (t c)))) |
2329 |
(%f9 -9913 c))))) |
(%f9 -9913 c))))) |
2330 |
17) |
17) |
2331 |
17) |
17) |
2332 |
|
|
2378 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
2379 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
2380 |
(block b5 |
(block b5 |
2381 |
(let ((v2 |
(let ((v2 |
2382 |
(if (or (>= 34 a) 108361696) |
(if (or (>= 34 a) 108361696) |
2383 |
(return-from b5 -1) |
(return-from b5 -1) |
2384 |
(lognand b -16023672)))) |
(lognand b -16023672)))) |
2385 |
(flet ((%f10 |
(flet ((%f10 |
2386 |
(f10-1 |
(f10-1 |
2387 |
&optional (f10-2 (if (eql -30 v2) v2 -5)) (f10-3 v2) |
&optional (f10-2 (if (eql -30 v2) v2 -5)) (f10-3 v2) |
2388 |
(f10-4 14)) |
(f10-4 14)) |
2389 |
(if (equal a f10-2) f10-4 380663047))) |
(if (equal a f10-2) f10-4 380663047))) |
2390 |
(flet ((%f6 (f6-1 f6-2 f6-3) |
(flet ((%f6 (f6-1 f6-2 f6-3) |
2391 |
f6-1)) |
f6-1)) |
2392 |
(multiple-value-call #'%f6 |
(multiple-value-call #'%f6 |
2393 |
(values a (%f10 -37243) -47691)))))))) |
(values a (%f10 -37243) -47691)))))))) |
2394 |
100 -1200) |
100 -1200) |
2395 |
-1) |
-1) |
2396 |
|
|
2400 |
(deftest misc.160 |
(deftest misc.160 |
2401 |
(funcall |
(funcall |
2402 |
(compile nil |
(compile nil |
2403 |
'(lambda (c) |
'(lambda (c) |
2404 |
(declare (notinline + funcall)) |
(declare (notinline + funcall)) |
2405 |
(+ (labels ((%f1 () -14)) (funcall #'%f1)) |
(+ (labels ((%f1 () -14)) (funcall #'%f1)) |
2406 |
(flet ((%f2 () (floor c))) (funcall #'%f2))))) |
(flet ((%f2 () (floor c))) (funcall #'%f2))))) |
2407 |
0) |
0) |
2408 |
-14) |
-14) |
2409 |
|
|
2413 |
(deftest misc.161 |
(deftest misc.161 |
2414 |
(funcall |
(funcall |
2415 |
(compile nil |
(compile nil |
2416 |
'(lambda (a b c) |
'(lambda (a b c) |
2417 |
(flet ((%f17 (f17-1 f17-2 f17-3) |
(flet ((%f17 (f17-1 f17-2 f17-3) |
2418 |
(flet ((%f2 |
(flet ((%f2 |
2419 |
(f2-1 f2-2 |
(f2-1 f2-2 |
2420 |
&optional (f2-3 (return-from %f17 f17-1)) |
&optional (f2-3 (return-from %f17 f17-1)) |
2421 |
(f2-4 (return-from %f17 -57))) |
(f2-4 (return-from %f17 -57))) |
2422 |
b)) |
b)) |
2423 |
(multiple-value-call #'%f2 (values c -588 55101157))))) |
(multiple-value-call #'%f2 (values c -588 55101157))))) |
2424 |
(if nil |
(if nil |
2425 |
(let* ((v6 (%f17 102136 3096194 a))) |
(let* ((v6 (%f17 102136 3096194 a))) |
2426 |
b) |
b) |
2427 |
c)))) |
c)))) |
2428 |
-511 -2269809964 250738) |
-511 -2269809964 250738) |
2429 |
250738) |
250738) |
2430 |
|
|
2431 |
(deftest misc.161a |
(deftest misc.161a |
2432 |
(funcall |
(funcall |
2433 |
(compile nil |
(compile nil |
2434 |
'(lambda (a) |
'(lambda (a) |
2435 |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 0) (compilation-speed 0))) |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 0) (compilation-speed 0))) |
2436 |
(progn (abs 0) (- a) 0))) |
(progn (abs 0) (- a) 0))) |
2437 |
1) |
1) |
2438 |
0) |
0) |
2439 |
|
|
2441 |
|
|
2442 |
(deftest misc.162 |
(deftest misc.162 |
2443 |
(let* ((fn `(lambda (a c) |
(let* ((fn `(lambda (a c) |
2444 |
(declare (notinline funcall) |
(declare (notinline funcall) |
2445 |
(optimize (speed 0) (debug 0))) |
(optimize (speed 0) (debug 0))) |
2446 |
(labels ((%f17 (f17-1 &optional (f17-4 c)) |
(labels ((%f17 (f17-1 &optional (f17-4 c)) |
2447 |
(return-from %f17 (if f17-4 f17-1 49572640)))) |
(return-from %f17 (if f17-4 f17-1 49572640)))) |
2448 |
(funcall #'%f17 15128425 a))))) |
(funcall #'%f17 15128425 a))))) |
2449 |
(funcall (compile nil fn) 1 3)) |
(funcall (compile nil fn) 1 3)) |
2450 |
15128425) |
15128425) |
2451 |
|
|
2455 |
(deftest misc.163 |
(deftest misc.163 |
2456 |
(funcall |
(funcall |
2457 |
(compile nil |
(compile nil |
2458 |
'(lambda (b) |
'(lambda (b) |
2459 |
(declare (type (integer -15716 3947) b)) |
(declare (type (integer -15716 3947) b)) |
2460 |
(case b |
(case b |
2461 |
((-7 -6 -6) :good) |
((-7 -6 -6) :good) |
2462 |
((-5 -6) :bad) |
((-5 -6) :bad) |
2463 |
))) |
))) |
2464 |
|
|
2465 |
-6) |
-6) |
2466 |
:good) |
:good) |
2474 |
nil |
nil |
2475 |
'(lambda (a) |
'(lambda (a) |
2476 |
(labels ((%f6 (f6-1 f6-2) |
(labels ((%f6 (f6-1 f6-2) |
2477 |
(cl:handler-case |
(cl:handler-case |
2478 |
(labels ((%f2 nil (logior a))) |
(labels ((%f2 nil (logior a))) |
2479 |
(if (eql (%f2) (%f2)) |
(if (eql (%f2) (%f2)) |
2480 |
2829254 -10723)) |
2829254 -10723)) |
2481 |
(error (c) (error c)) |
(error (c) (error c)) |
2482 |
))) |
))) |
2483 |
(funcall #'%f6 10 20) |
(funcall #'%f6 10 20) |
2484 |
))) |
))) |
2485 |
0) |
0) |
2494 |
nil |
nil |
2495 |
'(lambda (a b c) |
'(lambda (a b c) |
2496 |
(block b3 |
(block b3 |
2497 |
(flet ((%f15 |
(flet ((%f15 |
2498 |
(f15-1 f15-2 f15-3 |
(f15-1 f15-2 f15-3 |
2499 |
&optional |
&optional |
2500 |
(f15-4 |
(f15-4 |
2501 |
(flet ((%f17 |
(flet ((%f17 |
2502 |
(f17-1 f17-2 f17-3 |
(f17-1 f17-2 f17-3 |
2503 |
&optional (f17-4 185155520) (f17-5 c) |
&optional (f17-4 185155520) (f17-5 c) |
2504 |
(f17-6 37)) |
(f17-6 37)) |
2505 |
c)) |
c)) |
2506 |
(%f17 -1046 a 1115306 (%f17 b -146330 422) -337817))) |
(%f17 -1046 a 1115306 (%f17 b -146330 422) -337817))) |
2507 |
(f15-5 a) (f15-6 -40)) |
(f15-5 a) (f15-6 -40)) |
2508 |
(return-from b3 -16))) |
(return-from b3 -16))) |
2509 |
(multiple-value-call #'%f15 (values -519354 a 121 c -1905)))))) |
(multiple-value-call #'%f15 (values -519354 a 121 c -1905)))))) |
2510 |
0 0 -5) |
0 0 -5) |
2511 |
-16) |
-16) |
2512 |
|
|
2522 |
nil |
nil |
2523 |
'(lambda (a b c) |
'(lambda (a b c) |
2524 |
(labels ((%f4 |
(labels ((%f4 |
2525 |
(f4-1 f4-2 &optional (f4-3 b) (f4-4 c) (f4-5 -170)) |
(f4-1 f4-2 &optional (f4-3 b) (f4-4 c) (f4-5 -170)) |
2526 |
(let ((v2 |
(let ((v2 |
2527 |
(flet ((%f3 |
(flet ((%f3 |
2528 |
(f3-1 |
(f3-1 |
2529 |
&optional (f3-2 28476586) (f3-3 c) |
&optional (f3-2 28476586) (f3-3 c) |
2530 |
(f3-4 -9240)) |
(f3-4 -9240)) |
2531 |
(return-from %f4 1))) |
(return-from %f4 1))) |
2532 |
(multiple-value-call |
(multiple-value-call |
2533 |
#'%f3 |
#'%f3 |
2534 |
(values -479909 19843799 f4-5 -463858))))) |
(values -479909 19843799 f4-5 -463858))))) |
2535 |
b))) |
b))) |
2536 |
c))) |
c))) |
2537 |
0 0 -223721124) |
0 0 -223721124) |
2538 |
-223721124) |
-223721124) |
2539 |
|
|
2543 |
nil |
nil |
2544 |
'(lambda (a b c) |
'(lambda (a b c) |
2545 |
(flet ((%f5 (f5-1 f5-2) |
(flet ((%f5 (f5-1 f5-2) |
2546 |
(return-from %f5 604245664))) |
(return-from %f5 604245664))) |
2547 |
(flet ((%f12 |
(flet ((%f12 |
2548 |
(f12-1 f12-2 |
(f12-1 f12-2 |
2549 |
&optional (f12-3 c) (f12-4 -579456) |
&optional (f12-3 c) (f12-4 -579456) |
2550 |
(f12-5 |
(f12-5 |
2551 |
(labels ((%f9 |
(labels ((%f9 |
2552 |
(f9-1 |
(f9-1 |
2553 |
&optional |
&optional |
2554 |
(f9-2 |
(f9-2 |
2555 |
(%f5 1 |
(%f5 1 |
2556 |
(let ((v4 (%f5 30732606 a))) |
(let ((v4 (%f5 30732606 a))) |
2557 |
b))) |
b))) |
2558 |
(f9-3 -29) |
(f9-3 -29) |
2559 |
(f9-4 |
(f9-4 |
2560 |
(block b4 |
(block b4 |
2561 |
(labels ((%f14 () |
(labels ((%f14 () |
2562 |
(labels ((%f18 |
(labels ((%f18 |
2563 |
(&optional |
(&optional |
2564 |
(f18-1 |
(f18-1 |
2565 |
(locally |
(locally |
2566 |
592928)) |
592928)) |
2567 |
(f18-2 -3) |
(f18-2 -3) |
2568 |
(f18-3 |
(f18-3 |
2569 |
(return-from |
(return-from |
2570 |
b4 a))) |
b4 a))) |
2571 |
f18-1)) |
f18-1)) |
2572 |
(%f18 74214190 a)))) |
(%f18 74214190 a)))) |
2573 |
(%f14))))) |
(%f14))))) |
2574 |
-1)) |
-1)) |
2575 |
(flet ((%f17 |
(flet ((%f17 |
2576 |
(f17-1 f17-2 &optional (f17-3 -136045032)) |
(f17-1 f17-2 &optional (f17-3 -136045032)) |
2577 |
-38655)) |
-38655)) |
2578 |
(%f17 43873 -138030706 -1372492))))) |
(%f17 43873 -138030706 -1372492))))) |
2579 |
(return-from %f12 -15216677))) |
(return-from %f12 -15216677))) |
2580 |
(%f12 (%f5 b 2329383) a))))) |
(%f12 (%f5 b 2329383) a))))) |
2581 |
1 2 3) |
1 2 3) |
2582 |
-15216677) |
-15216677) |
2583 |
|
|
2587 |
nil |
nil |
2588 |
'(lambda (a b c) |
'(lambda (a b c) |
2589 |
(block b3 |
(block b3 |
2590 |
(flet ((%f11 |
(flet ((%f11 |
2591 |
(f11-1 f11-2 |
(f11-1 f11-2 |
2592 |
&optional |
&optional |
2593 |
(f11-3 |
(f11-3 |
2594 |
(block b6 |
(block b6 |
2595 |
(labels ((%f11 |
(labels ((%f11 |
2596 |
(f11-1 |
(f11-1 |
2597 |
&optional (f11-2 c) |
&optional (f11-2 c) |
2598 |
(f11-3 (return-from b6 -1806))) |
(f11-3 (return-from b6 -1806))) |
2599 |
(return-from b3 -28432))) |
(return-from b3 -28432))) |
2600 |
(apply #'%f11 (list -114)))))) |
(apply #'%f11 (list -114)))))) |
2601 |
(return-from %f11 f11-2))) |
(return-from %f11 f11-2))) |
2602 |
(%f11 b |
(%f11 b |
2603 |
c |
c |
2604 |
(labels ((%f10 |
(labels ((%f10 |
2605 |
(f10-1 f10-2 |
(f10-1 f10-2 |
2606 |
&optional (f10-3 a) (f10-4 (%f11 -3931 170))) |
&optional (f10-3 a) (f10-4 (%f11 -3931 170))) |
2607 |
-1704759)) |
-1704759)) |
2608 |
c)))))) |
c)))))) |
2609 |
1 2 3) |
1 2 3) |
2610 |
3) |
3) |
2611 |
|
|
2615 |
nil |
nil |
2616 |
'(lambda (a b c) |
'(lambda (a b c) |
2617 |
(if t -21705 |
(if t -21705 |
2618 |
(flet ((%f15 (f15-1 f15-2) |
(flet ((%f15 (f15-1 f15-2) |
2619 |
b)) |
b)) |
2620 |
(block b4 |
(block b4 |
2621 |
(%f15 -11112264 |
(%f15 -11112264 |
2622 |
(labels ((%f2 |
(labels ((%f2 |
2623 |
(f2-1 |
(f2-1 |
2624 |
&optional (f2-2 (if b -5485340 -1534)) |
&optional (f2-2 (if b -5485340 -1534)) |
2625 |
(f2-3 -6)) |
(f2-3 -6)) |
2626 |
(return-from b4 f2-1))) |
(return-from b4 f2-1))) |
2627 |
(return-from b4 |
(return-from b4 |
2628 |
(if b (%f2 c -320813) (%f2 b a a)))))))))) |
(if b (%f2 c -320813) (%f2 b a a)))))))))) |
2629 |
1 2 3) |
1 2 3) |
2630 |
-21705) |
-21705) |
2631 |
|
|
2661 |
(declare (type (integer -281 30570) a)) |
(declare (type (integer -281 30570) a)) |
2662 |
(declare (type (integer -4247786 -199821) b)) |
(declare (type (integer -4247786 -199821) b)) |
2663 |
(declare |
(declare |
2664 |
(optimize (speed 3) |
(optimize (speed 3) |
2665 |
(space 0) |
(space 0) |
2666 |
(safety 0) |
(safety 0) |
2667 |
(debug 2) |
(debug 2) |
2668 |
(compilation-speed 1))) |
(compilation-speed 1))) |
2669 |
(flet ((%f14 (f14-1 f14-2) |
(flet ((%f14 (f14-1 f14-2) |
2670 |
(coerce 0 'integer))) |
(coerce 0 'integer))) |
2671 |
(labels ((%f3 (f3-1 f3-2 f3-3) |
(labels ((%f3 (f3-1 f3-2 f3-3) |
2672 |
(if |
(if |
2673 |
(if |
(if |
2674 |
(typep (%f14 -864 -10620) '(integer -11672107617 -2)) |
(typep (%f14 -864 -10620) '(integer -11672107617 -2)) |
2675 |
t |
t |
2676 |
(typep |
(typep |
2677 |
(imagpart |
(imagpart |
2678 |
(lcm 2120258 0 (logandc2 -6222 -1057382553))) |
(lcm 2120258 0 (logandc2 -6222 -1057382553))) |
2679 |
'(integer * -113))) |
'(integer * -113))) |
2680 |
(dotimes |
(dotimes |
2681 |
(iv3 5 |
(iv3 5 |
2682 |
(flet ((%f11 (f11-1 f11-2 f11-3) |
(flet ((%f11 (f11-1 f11-2 f11-3) |
2683 |
b)) |
b)) |
2684 |
(multiple-value-call #'%f11 |
(multiple-value-call #'%f11 |
2685 |
(values a a f3-3)))) |
(values a a f3-3)))) |
2686 |
0) |
0) |
2687 |
0))) |
0))) |
2688 |
(case (%f3 a a 0) (t 0)))))) |
(case (%f3 a a 0) (t 0)))))) |
2689 |
22087 -1787181) |
22087 -1787181) |
2690 |
0) |
0) |
2691 |
|
|
2697 |
nil |
nil |
2698 |
'(lambda (b) |
'(lambda (b) |
2699 |
(block b6 |
(block b6 |
2700 |
(flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468)) |
(flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468)) |
2701 |
(return-from b6 1))) |
(return-from b6 1))) |
2702 |
(block b2 |
(block b2 |
2703 |
(flet ((%f10 (f10-1 f10-2 |
(flet ((%f10 (f10-1 f10-2 |
2704 |
&optional (f10-3 (return-from b6 (return-from b6 -3)))) |
&optional (f10-3 (return-from b6 (return-from b6 -3)))) |
2705 |
-8)) |
-8)) |
2706 |
(%f10 |
(%f10 |
2707 |
(multiple-value-call #'%f11 (values -5945959 1654846427 -22)) |
(multiple-value-call #'%f11 (values -5945959 1654846427 -22)) |
2708 |
(return-from b2 b) |
(return-from b2 b) |
2709 |
(return-from b2 31258361)))))))) |
(return-from b2 31258361)))))))) |
2710 |
10) |
10) |
2711 |
1) |
1) |
2712 |
|
|
2723 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
2724 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
2725 |
(labels ((%f12 (f12-1 f12-2) |
(labels ((%f12 (f12-1 f12-2) |
2726 |
(labels ((%f2 (f2-1 f2-2) |
(labels ((%f2 (f2-1 f2-2) |
2727 |
(flet ((%f6 () |
(flet ((%f6 () |
2728 |
(flet ((%f18 |
(flet ((%f18 |
2729 |
(f18-1 |
(f18-1 |
2730 |
&optional (f18-2 a) |
&optional (f18-2 a) |
2731 |
(f18-3 -207465075) |
(f18-3 -207465075) |
2732 |
(f18-4 a)) |
(f18-4 a)) |
2733 |
(return-from %f12 b))) |
(return-from %f12 b))) |
2734 |
(%f18 -3489553 |
(%f18 -3489553 |
2735 |
-7 |
-7 |
2736 |
(%f18 (%f18 150 -64 f12-1) |
(%f18 (%f18 150 -64 f12-1) |
2737 |
(%f18 (%f18 -8531) |
(%f18 (%f18 -8531) |
2738 |
11410) |
11410) |
2739 |
b) |
b) |
2740 |
56362666)))) |
56362666)))) |
2741 |
(labels ((%f7 |
(labels ((%f7 |
2742 |
(f7-1 f7-2 |
(f7-1 f7-2 |
2743 |
&optional (f7-3 (%f6))) |
&optional (f7-3 (%f6))) |
2744 |
7767415)) |
7767415)) |
2745 |
f12-1)))) |
f12-1)))) |
2746 |
(%f2 b -36582571)))) |
(%f2 b -36582571)))) |
2747 |
(apply #'%f12 (list 774 -4413))))) |
(apply #'%f12 (list 774 -4413))))) |
2748 |
0 1 2) |
0 1 2) |
2749 |
774) |
774) |
2750 |
|
|
2761 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
2762 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
2763 |
(flet ((%f11 |
(flet ((%f11 |
2764 |
(f11-1 f11-2 |
(f11-1 f11-2 |
2765 |
&optional (f11-3 c) (f11-4 7947114) |
&optional (f11-3 c) (f11-4 7947114) |
2766 |
(f11-5 |
(f11-5 |
2767 |
(flet ((%f3 (f3-1 &optional (f3-2 b) (f3-3 5529)) |
(flet ((%f3 (f3-1 &optional (f3-2 b) (f3-3 5529)) |
2768 |
8134)) |
8134)) |
2769 |
(multiple-value-call #'%f3 |
(multiple-value-call #'%f3 |
2770 |
(values (%f3 -30637724 b) c))))) |
(values (%f3 -30637724 b) c))))) |
2771 |
(setq c 555910))) |
(setq c 555910))) |
2772 |
(if (and nil (%f11 a a)) |
(if (and nil (%f11 a a)) |
2773 |
(if (%f11 a 421778 4030 1) |
(if (%f11 a 421778 4030 1) |
2774 |
(labels ((%f7 |
(labels ((%f7 |
2775 |
(f7-1 f7-2 |
(f7-1 f7-2 |
2776 |
&optional |
&optional |
2777 |
(f7-3 |
(f7-3 |
2778 |
(%f11 -79192293 |
(%f11 -79192293 |
2781 |
b |
b |
2782 |
(%f11 b 985))) |
(%f11 b 985))) |
2783 |
(f7-4 a)) |
(f7-4 a)) |
2784 |
b)) |
b)) |
2785 |
(%f11 c b -25644)) |
(%f11 c b -25644)) |
2786 |
54) |
54) |
2787 |
-32326608)))) |
-32326608)))) |
2788 |
1 2 3) |
1 2 3) |
2789 |
-32326608) |
-32326608) |
2790 |
|
|
2826 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
2827 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
2828 |
(if (not (if (/= b 7) t (not (not a)))) |
(if (not (if (/= b 7) t (not (not a)))) |
2829 |
(case (setq b -5880) |
(case (setq b -5880) |
2830 |
((8382 3401 2058 39167 62228) |
((8382 3401 2058 39167 62228) |
2831 |
(flet ((%f7 (f7-1 f7-2 f7-3) f7-1)) |
(flet ((%f7 (f7-1 f7-2 f7-3) f7-1)) |
2832 |
(multiple-value-call #'%f7 (values -135629 a -410168200)))) |
(multiple-value-call #'%f7 (values -135629 a -410168200)))) |
2833 |
(t a)) |
(t a)) |
2834 |
15173))) |
15173))) |
2835 |
30 0) |
30 0) |
2836 |
15173) |
15173) |
2837 |
|
|
2846 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
2847 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
2848 |
(if |
(if |
2849 |
(and |
(and |
2850 |
(if (if (equal b 9) nil t) |
(if (if (equal b 9) nil t) |
2851 |
nil |
nil |
2852 |
(not |
(not |
2853 |
(logbitp 5 |
(logbitp 5 |
2854 |
(labels ((%f5 (f5-1 f5-2 f5-3) |
(labels ((%f5 (f5-1 f5-2 f5-3) |
2855 |
4057223)) |
4057223)) |
2856 |
(let ((v9 (%f5 -42 -27504 45026809))) |
(let ((v9 (%f5 -42 -27504 45026809))) |
2857 |
15011))))) |
15011))))) |
2858 |
(if |
(if |
2859 |
(or a |
(or a |
2860 |
(labels ((%f16 (f16-1) |
(labels ((%f16 (f16-1) |
2861 |
61)) |
61)) |
2862 |
(apply #'%f16 275 (list)))) |
(apply #'%f16 275 (list)))) |
2863 |
a |
a |
2864 |
t)) |
t)) |
2865 |
(setq a -4803) |
(setq a -4803) |
2866 |
(rem a (max 47 b))))) |
(rem a (max 47 b))))) |
2867 |
0 0) |
0 0) |
2868 |
0) |
0) |
2869 |
|
|
2880 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
2881 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
2882 |
(labels ((%f4 (f4-1 f4-2 f4-3) |
(labels ((%f4 (f4-1 f4-2 f4-3) |
2883 |
(labels ((%f1 (f1-1 f1-2 f1-3) |
(labels ((%f1 (f1-1 f1-2 f1-3) |
2884 |
2)) |
2)) |
2885 |
(labels ((%f11 |
(labels ((%f11 |
2886 |
(f11-1 |
(f11-1 |
2887 |
&optional |
&optional |
2888 |
(f11-2 |
(f11-2 |
2889 |
(return-from %f4 |
(return-from %f4 |
2890 |
(labels ((%f8 |
(labels ((%f8 |
2891 |
(f8-1 f8-2 f8-3 |
(f8-1 f8-2 f8-3 |
2892 |
&optional (f8-4 -35) |
&optional (f8-4 -35) |
2893 |
(f8-5 f4-2)) |
(f8-5 f4-2)) |
2894 |
f4-1)) |
f4-1)) |
2895 |
(funcall #'%f8 53 b f4-1))))) |
(funcall #'%f8 53 b f4-1))))) |
2896 |
(return-from %f4 a))) |
(return-from %f4 a))) |
2897 |
(signum |
(signum |
2898 |
(let ((v4 |
(let ((v4 |
2899 |
(flet ((%f8 |
(flet ((%f8 |
2900 |
(f8-1 f8-2 f8-3 |
(f8-1 f8-2 f8-3 |
2901 |
&optional (f8-4 b) (f8-5 -560367)) |
&optional (f8-4 b) (f8-5 -560367)) |
2902 |
f8-4)) |
f8-4)) |
2903 |
(%f8 -27 35395 c -69)))) |
(%f8 -27 35395 c -69)))) |
2904 |
(%f11 |
(%f11 |
2905 |
(multiple-value-call #'%f11 |
(multiple-value-call #'%f11 |
2906 |
(values (%f1 (%f11 b (%f11 v4 f4-3)) f4-3 77936) |
(values (%f1 (%f11 b (%f11 v4 f4-3)) f4-3 77936) |
2907 |
1628490976)) |
1628490976)) |
2908 |
(return-from %f4 (%f1 -9432 f4-1 f4-1))))))))) |
(return-from %f4 (%f1 -9432 f4-1 f4-1))))))))) |
2909 |
(flet ((%f7 (f7-1 f7-2 f7-3) |
(flet ((%f7 (f7-1 f7-2 f7-3) |
2910 |
(%f4 b f7-3 f7-3))) |
(%f4 b f7-3 f7-3))) |
2911 |
(flet ((%f14 (f14-1) |
(flet ((%f14 (f14-1) |
2912 |
(apply #'%f7 -252 -56169265 -7322946 (list)))) |
(apply #'%f7 -252 -56169265 -7322946 (list)))) |
2913 |
(%f14 a)))))) |
(%f14 a)))))) |
2914 |
-70313091 577425217 28052774417) |
-70313091 577425217 28052774417) |
2915 |
-70313091) |
-70313091) |
2916 |
|
|
2930 |
(f17-3 (let () 6857)) |
(f17-3 (let () 6857)) |
2931 |
(f17-4 |
(f17-4 |
2932 |
(labels ((%f3 (f3-1 f3-2 f3-3 &optional (f3-4 a) (f3-5 877)) |
(labels ((%f3 (f3-1 f3-2 f3-3 &optional (f3-4 a) (f3-5 877)) |
2933 |
139)) |
139)) |
2934 |
(apply #'%f3 (list -33052082 b a 1572))))) |
(apply #'%f3 (list -33052082 b a 1572))))) |
2935 |
b)) |
b)) |
2936 |
(multiple-value-call #'%f17 (values 31 b a b)))) |
(multiple-value-call #'%f17 (values 31 b a b)))) |
2937 |
392))) |
392))) |
2938 |
0 0) |
0 0) |
2950 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
2951 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
2952 |
(lognor (unwind-protect -1248) |
(lognor (unwind-protect -1248) |
2953 |
(flet ((%f7 |
(flet ((%f7 |
2954 |
(&optional |
(&optional |
2955 |
(f7-1 |
(f7-1 |
2956 |
(flet ((%f1 (f1-1 f1-2 f1-3) 121426)) |
(flet ((%f1 (f1-1 f1-2 f1-3) 121426)) |
2957 |
(%f1 b 2337452 (%f1 61767 b a)))) |
(%f1 b 2337452 (%f1 61767 b a)))) |
2958 |
(f7-2 |
(f7-2 |
2959 |
(block b8 |
(block b8 |
2960 |
(logandc1 |
(logandc1 |
2961 |
(labels ((%f10 (f10-1 f10-2 f10-3) 323734600)) |
(labels ((%f10 (f10-1 f10-2 f10-3) 323734600)) |
2962 |
(%f10 (%f10 323734600 323734600 -10165) |
(%f10 (%f10 323734600 323734600 -10165) |
2963 |
-607741 (ignore-errors 971588))) |
-607741 (ignore-errors 971588))) |
2964 |
(if (>= b -27) (return-from b8 -2) |
(if (>= b -27) (return-from b8 -2) |
2965 |
(ignore-errors 237138926)))))) |
(ignore-errors 237138926)))))) |
2966 |
f7-2)) |
f7-2)) |
2967 |
(apply #'%f7 (list 761316125 b)))))) |
(apply #'%f7 (list 761316125 b)))))) |
2968 |
1792769319 -60202244870) |
1792769319 -60202244870) |
2969 |
5) |
5) |
2970 |
|
|
2984 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
2985 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
2986 |
(block b6 |
(block b6 |
2987 |
(flet ((%f10 (f10-1 f10-2) |
(flet ((%f10 (f10-1 f10-2) |
2988 |
(labels ((%f6 (f6-1 f6-2) |
(labels ((%f6 (f6-1 f6-2) |
2989 |
f6-1)) |
f6-1)) |
2990 |
(let ((v2 |
(let ((v2 |
2991 |
(flet ((%f1 (f1-1 f1-2 f1-3) |
(flet ((%f1 (f1-1 f1-2 f1-3) |
2992 |
f1-3)) |
f1-3)) |
2993 |
(let ((v8 |
(let ((v8 |
2994 |
(%f1 -11350578 |
(%f1 -11350578 |
2995 |
(%f6 10414199 13) |
(%f6 10414199 13) |
2996 |
-58931837))) |
-58931837))) |
2997 |
-239755)))) |
-239755)))) |
2998 |
323)))) |
323)))) |
2999 |
(labels ((%f4 |
(labels ((%f4 |
3000 |
(f4-1 |
(f4-1 |
3001 |
&optional (f4-2 204) (f4-3 -1) |
&optional (f4-2 204) (f4-3 -1) |
3002 |
(f4-4 |
(f4-4 |
3003 |
(flet ((%f2 (f2-1) |
(flet ((%f2 (f2-1) |
3004 |
(if t (return-from b6 c) a))) |
(if t (return-from b6 c) a))) |
3005 |
(logorc2 (multiple-value-call #'%f2 (values 1)) |
(logorc2 (multiple-value-call #'%f2 (values 1)) |
3006 |
(let* ((v5 (floor (%f2 -1260)))) |
(let* ((v5 (floor (%f2 -1260)))) |
3007 |
(case (abs (logxor 185664 a)) |
(case (abs (logxor 185664 a)) |
3008 |
((-2 5975) |
((-2 5975) |
3009 |
(if (or (< b v5) nil) |
(if (or (< b v5) nil) |
3010 |
(return-from b6 |
(return-from b6 |
3011 |
(let ((v10 (%f2 c))) |
(let ((v10 (%f2 c))) |
3012 |
0)) |
0)) |
3013 |
(multiple-value-call #'%f10 |
(multiple-value-call #'%f10 |
3014 |
(values -3 a)))) |
(values -3 a)))) |
3015 |
(t b))))))) |
(t b))))))) |
3016 |
1503938)) |
1503938)) |
3017 |
(multiple-value-call #'%f4 (values -1 a 1853966))))))) |
(multiple-value-call #'%f4 (values -1 a 1853966))))))) |
3018 |
173549795 725346738048 993243799) |
173549795 725346738048 993243799) |
3019 |
993243799) |
993243799) |
3020 |
|
|
3023 |
|
|
3024 |
(deftest misc.177 |
(deftest misc.177 |
3025 |
(let* ((form '(flet ((%f11 |
(let* ((form '(flet ((%f11 |
3026 |
(f11-1 f11-2) |
(f11-1 f11-2) |
3027 |
(labels ((%f4 () (round 200048 (max 99 c)))) |
(labels ((%f4 () (round 200048 (max 99 c)))) |
3028 |
(logand |
(logand |
3029 |
f11-1 |
f11-1 |
3030 |
(labels ((%f3 (f3-1) -162967612)) |
(labels ((%f3 (f3-1) -162967612)) |
3031 |
(%f3 (let* ((v8 (%f4))) |
(%f3 (let* ((v8 (%f4))) |
3032 |
(setq f11-1 (%f4))))))))) |
(setq f11-1 (%f4))))))))) |
3033 |
(%f11 -120429363 (%f11 62362 b)))) |
(%f11 -120429363 (%f11 62362 b)))) |
3034 |
(vars '(a b c)) |
(vars '(a b c)) |
3035 |
(vals '(6714367 9645616 -637681868)) |
(vals '(6714367 9645616 -637681868)) |
3036 |
(fn1 `(lambda ,vars |
(fn1 `(lambda ,vars |
3037 |
(declare (type (integer 804561 7640697) a)) |
(declare (type (integer 804561 7640697) a)) |
3038 |
(declare (type (integer -1 10441401) b)) |
(declare (type (integer -1 10441401) b)) |
3039 |
(declare (type (integer -864634669 55189745) c)) |
(declare (type (integer -864634669 55189745) c)) |
3040 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
3041 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
3042 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3043 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3044 |
,form)) |
,form)) |
3045 |
(fn2 `(lambda ,vars |
(fn2 `(lambda ,vars |
3046 |
(declare (notinline list apply logand max round)) |
(declare (notinline list apply logand max round)) |
3047 |
(declare (optimize (safety 3))) |
(declare (optimize (safety 3))) |
3048 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
3049 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
3050 |
,form)) |
,form)) |
3051 |
(compiled-fn1 (compile nil fn1)) |
(compiled-fn1 (compile nil fn1)) |
3052 |
(compiled-fn2 (compile nil fn2)) |
(compiled-fn2 (compile nil fn2)) |
3053 |
(results1 (multiple-value-list (apply compiled-fn1 vals))) |
(results1 (multiple-value-list (apply compiled-fn1 vals))) |
3054 |
(results2 (multiple-value-list (apply compiled-fn2 vals)))) |
(results2 (multiple-value-list (apply compiled-fn2 vals)))) |
3055 |
(if (equal results1 results2) |
(if (equal results1 results2) |
3056 |
:good |
:good |
3057 |
(values results1 results2))) |
(values results1 results2))) |
3058 |
:good) |
:good) |
3059 |
|
|
3115 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3116 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3117 |
(block b3 |
(block b3 |
3118 |
(return-from b3 |
(return-from b3 |
3119 |
(flet ((%f17 (f17-1 &optional (f17-2 b) (f17-3 b)) |
(flet ((%f17 (f17-1 &optional (f17-2 b) (f17-3 b)) |
3120 |
(+ (if t (return-from b3 -64796) a)))) |
(+ (if t (return-from b3 -64796) a)))) |
3121 |
(case (%f17 -3908648 -7026139 a) |
(case (%f17 -3908648 -7026139 a) |
3122 |
((41771 -113272 -48004 -39699 50691 -13222) |
((41771 -113272 -48004 -39699 50691 -13222) |
3123 |
(multiple-value-call #'%f17 (values -1963404294 -105))) |
(multiple-value-call #'%f17 (values -1963404294 -105))) |
3124 |
(t -7026139))))))) |
(t -7026139))))))) |
3125 |
2000 -10000) |
2000 -10000) |
3126 |
-64796) |
-64796) |
3127 |
|
|
3136 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3137 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3138 |
(if (and (ldb-test (byte 30 10) b) nil) |
(if (and (ldb-test (byte 30 10) b) nil) |
3139 |
(labels ((%f7 (f7-1 f7-2 &optional (f7-3 -508405733)) |
(labels ((%f7 (f7-1 f7-2 &optional (f7-3 -508405733)) |
3140 |
390004056)) |
390004056)) |
3141 |
(let* ((v4 (multiple-value-call #'%f7 (values b (%f7 b b))))) |
(let* ((v4 (multiple-value-call #'%f7 (values b (%f7 b b))))) |
3142 |
(multiple-value-call #'%f7 |
(multiple-value-call #'%f7 |
3143 |
(values (%f7 80199 a) |
(values (%f7 80199 a) |
3144 |
(%f7 |
(%f7 |
3145 |
(%f7 a |
(%f7 a |
3146 |
(let* ((v6 (%f7 -226 250))) |
(let* ((v6 (%f7 -226 250))) |
3147 |
a)) |
a)) |
3148 |
(abs (ceiling v4))))))) |
(abs (ceiling v4))))))) |
3149 |
-6001))) |
-6001))) |
3150 |
50 0) |
50 0) |
3151 |
-6001) |
-6001) |
3152 |
|
|
3167 |
(if 1 |
(if 1 |
3168 |
(return-from %f14 a) |
(return-from %f14 a) |
3169 |
(labels ((%f10 (f10-1 f10-2 f10-3 |
(labels ((%f10 (f10-1 f10-2 f10-3 |
3170 |
&optional (f10-4 (let* ((v7 a)) 915))) |
&optional (f10-4 (let* ((v7 a)) 915))) |
3171 |
-1268205049)) |
-1268205049)) |
3172 |
(labels ((%f18 (f18-1) |
(labels ((%f18 (f18-1) |
3173 |
(multiple-value-call #'%f10 |
(multiple-value-call #'%f10 |
3193 |
-58 |
-58 |
3194 |
320)))) |
320)))) |
3195 |
(let* ((v3 (let ((v7 (return-from %f14 (%f18 -418731)))) |
(let* ((v3 (let ((v7 (return-from %f14 (%f18 -418731)))) |
3196 |
(%f10 104871 -1196 -21 a)))) |
(%f10 104871 -1196 -21 a)))) |
3197 |
(labels ((%f1 () (%f18 (%f18 -794761)))) |
(labels ((%f1 () (%f18 (%f18 -794761)))) |
3198 |
(return-from %f14 b)))))))) |
(return-from %f14 b)))))))) |
3199 |
(if (%f14) b 887481)))) |
(if (%f14) b 887481)))) |
3211 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3212 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3213 |
(labels ((%f1 (f1-1 &optional (f1-2 -34) (f1-3 3318057) (f1-4 117)) |
(labels ((%f1 (f1-1 &optional (f1-2 -34) (f1-3 3318057) (f1-4 117)) |
3214 |
(let ((v9 (let ((v9 (if t (return-from %f1 f1-2) 606042))) |
(let ((v9 (let ((v9 (if t (return-from %f1 f1-2) 606042))) |
3215 |
f1-1))) |
f1-1))) |
3216 |
(flet ((%f16 (f16-1 f16-2) 292)) |
(flet ((%f16 (f16-1 f16-2) 292)) |
3217 |
(labels ((%f2 (f2-1 f2-2 f2-3 |
(labels ((%f2 (f2-1 f2-2 f2-3 |
3218 |
&optional (f2-4 f1-3) (f2-5 f1-4) |
&optional (f2-4 f1-3) (f2-5 f1-4) |
3219 |
(f2-6 -418207187)) |
(f2-6 -418207187)) |
3220 |
(%f16 2099 (%f16 f1-2 1157)))) |
(%f16 2099 (%f16 f1-2 1157)))) |
3221 |
(return-from %f1 (%f2 f1-4 -12066040 v9 122107))))))) |
(return-from %f1 (%f2 f1-4 -12066040 v9 122107))))))) |
3222 |
(flet ((%f5 |
(flet ((%f5 |
3223 |
(f5-1 |
(f5-1 |
3224 |
&optional |
&optional |
3225 |
(f5-2 (labels ((%f13 (f13-1 f13-2 f13-3 |
(f5-2 (labels ((%f13 (f13-1 f13-2 f13-3 |
3226 |
&optional (f13-4 a) (f13-5 b)) |
&optional (f13-4 a) (f13-5 b)) |
3227 |
1054213657)) |
1054213657)) |
3228 |
(%f13 b 166441 -3))) |
(%f13 b 166441 -3))) |
3229 |
(f5-3 20102220) |
(f5-3 20102220) |
3230 |
(f5-4 (labels ((%f11 (f11-1 f11-2 f11-3) |
(f5-4 (labels ((%f11 (f11-1 f11-2 f11-3) |
3231 |
(%f1 -110148 (%f1 -12336576 f11-1 -61)))) |
(%f1 -110148 (%f1 -12336576 f11-1 -61)))) |
3232 |
(let ((v1 (apply #'%f11 -29706 a b (list)))) |
(let ((v1 (apply #'%f11 -29706 a b (list)))) |
3233 |
a)))) |
a)))) |
3234 |
b)) |
b)) |
3235 |
(labels ((%f17 (f17-1 f17-2 f17-3 |
(labels ((%f17 (f17-1 f17-2 f17-3 |
3236 |
&optional (f17-4 -107566292) (f17-5 63) (f17-6 -2)) |
&optional (f17-4 -107566292) (f17-5 63) (f17-6 -2)) |
3237 |
105656)) |
105656)) |
3238 |
(%f5 |
(%f5 |
3239 |
(%f17 185703492 a a -511 |
(%f17 185703492 a a -511 |
3240 |
(%f1 b b -218142 |
(%f1 b b -218142 |
3241 |
(%f17 -240978 2923208 22 (%f5 1542 68917407 a) b))) |
(%f17 -240978 2923208 22 (%f5 1542 68917407 a) b))) |
3242 |
-2018 |
-2018 |
3243 |
-1)))))) |
-1)))))) |
3244 |
-100 1) |
-100 1) |
3245 |
1) |
1) |
3246 |
|
|
3249 |
|
|
3250 |
(deftest misc.182 |
(deftest misc.182 |
3251 |
(let* ((form '(labels ((%f14 (f14-1 f14-2) |
(let* ((form '(labels ((%f14 (f14-1 f14-2) |
3252 |
(labels ((%f16 |
(labels ((%f16 |
3253 |
(f16-1 f16-2 |
(f16-1 f16-2 |
3254 |
&optional |
&optional |
3255 |
(f16-3 (setq f14-1 (ash f14-1 (min 77 b))))) |
(f16-3 (setq f14-1 (ash f14-1 (min 77 b))))) |
3256 |
(logandc2 c -100))) |
(logandc2 c -100))) |
3257 |
(return-from %f14 (* 2 (gcd f14-1 (%f16 c f14-1))))))) |
(return-from %f14 (* 2 (gcd f14-1 (%f16 c f14-1))))))) |
3258 |
(round (%f14 c c) |
(round (%f14 c c) |
3259 |
(max 83 (%f14 (multiple-value-call #'%f14 (values 0 2)) 0))))) |
(max 83 (%f14 (multiple-value-call #'%f14 (values 0 2)) 0))))) |
3260 |
(fn1 `(lambda (a b c) |
(fn1 `(lambda (a b c) |
3261 |
(declare (type (integer 5628 8762) a)) |
(declare (type (integer 5628 8762) a)) |
3262 |
(declare (type (integer 778 33310188747) b)) |
(declare (type (integer 778 33310188747) b)) |
3263 |
(declare (type (integer -6699 4554) c)) |
(declare (type (integer -6699 4554) c)) |
3264 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
3265 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3266 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3267 |
,form)) |
,form)) |
3268 |
(fn2 `(lambda (a b c) |
(fn2 `(lambda (a b c) |
3269 |
(declare (notinline values max round gcd * logandc2 min ash)) |
(declare (notinline values max round gcd * logandc2 min ash)) |
3270 |
(declare (optimize (safety 3))) |
(declare (optimize (safety 3))) |
3271 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
3272 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
3273 |
,form)) |
,form)) |
3274 |
(vals '(7395 1602862793 -2384)) |
(vals '(7395 1602862793 -2384)) |
3275 |
(cfn1 (compile nil fn1)) |
(cfn1 (compile nil fn1)) |
3276 |
(cfn2 (compile nil fn2)) |
(cfn2 (compile nil fn2)) |
3277 |
(result1 (multiple-value-list (apply cfn1 vals))) |
(result1 (multiple-value-list (apply cfn1 vals))) |
3278 |
(result2 (multiple-value-list (apply cfn2 vals)))) |
(result2 (multiple-value-list (apply cfn2 vals)))) |
3279 |
(if (equal result1 result2) |
(if (equal result1 result2) |
3280 |
:good |
:good |
3281 |
(values result1 result2))) |
(values result1 result2))) |
3282 |
:good) |
:good) |
3283 |
|
|
3298 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3299 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3300 |
(block b7 |
(block b7 |
3301 |
(flet ((%f3 (f3-1 f3-2 f3-3) 0)) |
(flet ((%f3 (f3-1 f3-2 f3-3) 0)) |
3302 |
(apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil))))) |
(apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil))))) |
3303 |
0 6000 -9000000) |
0 6000 -9000000) |
3304 |
0) |
0) |
3305 |
|
|
3322 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3323 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3324 |
(if nil |
(if nil |
3325 |
(flet ((%f15 (f15-1 &optional (f15-2 c)) |
(flet ((%f15 (f15-1 &optional (f15-2 c)) |
3326 |
(labels ((%f1 (f1-1 f1-2) 0)) |
(labels ((%f1 (f1-1 f1-2) 0)) |
3327 |
(%f1 a 0)))) |
(%f1 a 0)))) |
3328 |
(flet ((%f4 () |
(flet ((%f4 () |
3329 |
(multiple-value-call #'%f15 |
(multiple-value-call #'%f15 |
3330 |
(values (%f15 c 0) (%f15 0))))) |
(values (%f15 c 0) (%f15 0))))) |
3331 |
(if nil (%f4) |
(if nil (%f4) |
3332 |
(flet ((%f8 (f8-1 &optional (f8-2 (%f4)) (f8-3 0)) |
(flet ((%f8 (f8-1 &optional (f8-2 (%f4)) (f8-3 0)) |
3333 |
f8-3)) |
f8-3)) |
3334 |
0)))) |
0)))) |
3335 |
0))) |
0))) |
3336 |
3040851270 1664281 -1340106197) |
3040851270 1664281 -1340106197) |
3337 |
0) |
0) |
3338 |
|
|
3352 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3353 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3354 |
(flet ((%f3 |
(flet ((%f3 |
3355 |
(f3-1 f3-2 f3-3 |
(f3-1 f3-2 f3-3 |
3356 |
&optional (f3-4 a) (f3-5 0) |
&optional (f3-4 a) (f3-5 0) |
3357 |
(f3-6 |
(f3-6 |
3358 |
(labels ((%f10 (f10-1 f10-2 f10-3) |
(labels ((%f10 (f10-1 f10-2 f10-3) |
3359 |
0)) |
0)) |
3360 |
(apply #'%f10 |
(apply #'%f10 |
3361 |
0 |
0 |
3362 |
a |
a |
3363 |
(- (if (equal a b) b (%f10 c a 0)) |
(- (if (equal a b) b (%f10 c a 0)) |
3364 |
(catch 'ct2 (throw 'ct2 c))) |
(catch 'ct2 (throw 'ct2 c))) |
3365 |
nil)))) |
nil)))) |
3366 |
0)) |
0)) |
3367 |
(%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c)))) |
(%f3 (%f3 (%f3 b 0 0 0) a 0) a b b b c)))) |
3368 |
5 0 7) |
5 0 7) |
3369 |
0) |
0) |
3370 |
|
|
3380 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3381 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3382 |
(flet ((%f13 (f13-1 f13-2 f13-3) |
(flet ((%f13 (f13-1 f13-2 f13-3) |
3383 |
0)) |
0)) |
3384 |
(apply #'%f13 |
(apply #'%f13 |
3385 |
(%f13 b 0 0) |
(%f13 b 0 0) |
3386 |
(catch 'ct1 0) |
(catch 'ct1 0) |
3387 |
(catch 'ct2 (throw 'ct2 c)) |
(catch 'ct2 (throw 'ct2 c)) |
3388 |
nil)))) |
nil)))) |
3389 |
0 0 0) |
0 0 0) |
3390 |
0) |
0) |
3391 |
|
|
3394 |
|
|
3395 |
(deftest misc.186 |
(deftest misc.186 |
3396 |
(let* ((form '(labels ((%f3 (f3-1 f3-2) f3-1)) |
(let* ((form '(labels ((%f3 (f3-1 f3-2) f3-1)) |
3397 |
(apply #'%f3 b (catch 'ct8 (throw 'ct8 (logeqv (%f3 c 0)))) nil))) |
(apply #'%f3 b (catch 'ct8 (throw 'ct8 (logeqv (%f3 c 0)))) nil))) |
3398 |
(vars '(b c)) |
(vars '(b c)) |
3399 |
(fn1 `(lambda ,vars |
(fn1 `(lambda ,vars |
3400 |
(declare (type (integer -2 19) b) |
(declare (type (integer -2 19) b) |
3401 |
(type (integer -1520 218978) c) |
(type (integer -1520 218978) c) |
3402 |
(optimize (speed 3) (safety 1) (debug 1))) |
(optimize (speed 3) (safety 1) (debug 1))) |
3403 |
,form)) |
,form)) |
3404 |
(fn2 `(lambda ,vars |
(fn2 `(lambda ,vars |
3405 |
(declare (notinline logeqv apply) |
(declare (notinline logeqv apply) |
3406 |
(optimize (safety 3) (speed 0) (debug 0))) |
(optimize (safety 3) (speed 0) (debug 0))) |
3407 |
,form)) |
,form)) |
3408 |
(cf1 (compile nil fn1)) |
(cf1 (compile nil fn1)) |
3409 |
(cf2 (compile nil fn2)) |
(cf2 (compile nil fn2)) |
3410 |
(result1 (multiple-value-list (funcall cf1 2 18886))) |
(result1 (multiple-value-list (funcall cf1 2 18886))) |
3411 |
(result2 (multiple-value-list (funcall cf2 2 18886)))) |
(result2 (multiple-value-list (funcall cf2 2 18886)))) |
3412 |
(if (equal result1 result2) |
(if (equal result1 result2) |
3413 |
:good |
:good |
3414 |
(values result1 result2))) |
(values result1 result2))) |
3415 |
:good) |
:good) |
3416 |
|
|
3420 |
(deftest misc.187 |
(deftest misc.187 |
3421 |
(apply |
(apply |
3422 |
(eval '(function |
(eval '(function |
3423 |
(lambda (a b c) |
(lambda (a b c) |
3424 |
(declare (notinline)) |
(declare (notinline)) |
3425 |
(declare (optimize (safety 3))) |
(declare (optimize (safety 3))) |
3426 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
3427 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
3428 |
(flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0)) |
(flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0)) |
3429 |
c)) |
c)) |
3430 |
(let ((v8 |
(let ((v8 |
3431 |
(flet ((%f14 (f14-1 &optional (f14-2 (%f7 b))) |
(flet ((%f14 (f14-1 &optional (f14-2 (%f7 b))) |
3432 |
0)) |
0)) |
3433 |
0))) |
0))) |
3434 |
(%f7 b)))))) |
(%f7 b)))))) |
3435 |
'(2374299 70496 -6321798384)) |
'(2374299 70496 -6321798384)) |
3436 |
-6321798384) |
-6321798384) |
3437 |
|
|
3460 |
'(lambda (a b c) |
'(lambda (a b c) |
3461 |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
3462 |
(let* ((v7 (labels ((%f13 (f13-1 f13-2 f13-3) 0)) |
(let* ((v7 (labels ((%f13 (f13-1 f13-2 f13-3) 0)) |
3463 |
(multiple-value-call #'%f13 (values a a a))))) |
(multiple-value-call #'%f13 (values a a a))))) |
3464 |
(flet ((%f10 nil v7)) (%f10))))) |
(flet ((%f10 nil v7)) (%f10))))) |
3465 |
1733 3000 1314076) |
1733 3000 1314076) |
3466 |
0) |
0) |
3467 |
|
|
3470 |
|
|
3471 |
(deftest misc.190 |
(deftest misc.190 |
3472 |
(let* ((form '(flet ((%f15 () |
(let* ((form '(flet ((%f15 () |
3473 |
(labels ((%f4 (f4-1) 0)) |
(labels ((%f4 (f4-1) 0)) |
3474 |
(flet ((%f6 (&optional |
(flet ((%f6 (&optional |
3475 |
(f6-2 |
(f6-2 |
3476 |
(logand (apply #'%f4 (list (%f4 0))) |
(logand (apply #'%f4 (list (%f4 0))) |
3477 |
(round (* a))))) |
(round (* a))))) |
3478 |
-284)) |
-284)) |
3479 |
(%f6))))) |
(%f6))))) |
3480 |
(funcall #'%f15))) |
(funcall #'%f15))) |
3481 |
(fn `(lambda (a b c) |
(fn `(lambda (a b c) |
3482 |
(declare (notinline values equal abs isqrt < >= byte |
(declare (notinline values equal abs isqrt < >= byte |
3483 |
mask-field funcall + * logcount logand logior |
mask-field funcall + * logcount logand logior |
3484 |
round list apply min)) |
round list apply min)) |
3485 |
(declare (optimize (safety 3))) |
(declare (optimize (safety 3))) |
3486 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
3487 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
3488 |
,form)) |
,form)) |
3489 |
(vals '(538754530150 -199250645748 105109641))) |
(vals '(538754530150 -199250645748 105109641))) |
3490 |
(apply (compile nil fn) vals)) |
(apply (compile nil fn) vals)) |
3491 |
-284) |
-284) |
3492 |
|
|
3519 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3520 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3521 |
(flet ((%f8 (f8-1 f8-2 f8-3) f8-2)) |
(flet ((%f8 (f8-1 f8-2 f8-3) f8-2)) |
3522 |
(catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a))))))) |
(catch 'ct6 (%f8 0 b (catch 'ct6 (throw 'ct6 a))))))) |
3523 |
1 2) |
1 2) |
3524 |
2) |
2) |
3525 |
|
|
3526 |
(deftest misc.193 |
(deftest misc.193 |
3527 |
(let* ((form '(if (if (<= a (truncate c (min -43 b))) |
(let* ((form '(if (if (<= a (truncate c (min -43 b))) |
3528 |
(logbitp 0 0) (logbitp 0 -1)) |
(logbitp 0 0) (logbitp 0 -1)) |
3529 |
0 -36223)) |
0 -36223)) |
3530 |
(fn1 `(lambda (a b c) |
(fn1 `(lambda (a b c) |
3531 |
(declare (type (integer -3 15350342) a)) |
(declare (type (integer -3 15350342) a)) |
3532 |
(declare (type (integer -4357 -1555) b)) |
(declare (type (integer -4357 -1555) b)) |
3533 |
(declare (type (integer 5389300879793 6422214587951) c)) |
(declare (type (integer 5389300879793 6422214587951) c)) |
3534 |
(declare (optimize (speed 3))) |
(declare (optimize (speed 3))) |
3535 |
(declare (optimize (safety 1))) |
(declare (optimize (safety 1))) |
3536 |
(declare (optimize (debug 1))) |
(declare (optimize (debug 1))) |
3537 |
,form)) |
,form)) |
3538 |
(fn2 `(lambda (a b c) |
(fn2 `(lambda (a b c) |
3539 |
(declare (notinline logbitp min truncate <=)) |
(declare (notinline logbitp min truncate <=)) |
3540 |
(declare (optimize (safety 3))) |
(declare (optimize (safety 3))) |
3541 |
(declare (optimize (speed 0))) |
(declare (optimize (speed 0))) |
3542 |
(declare (optimize (debug 0))) |
(declare (optimize (debug 0))) |
3543 |
,form)) |
,form)) |
3544 |
(vals '(7792101 -1615 6070931814551)) |
(vals '(7792101 -1615 6070931814551)) |
3545 |
(result1 (multiple-value-list (apply (compile nil fn1) vals))) |
(result1 (multiple-value-list (apply (compile nil fn1) vals))) |
3546 |
(result2 (multiple-value-list (apply (compile nil fn2) vals)))) |
(result2 (multiple-value-list (apply (compile nil fn2) vals)))) |
3547 |
(if (equal result1 result2) |
(if (equal result1 result2) |
3548 |
:good |
:good |
3549 |
(values result1 result2))) |
(values result1 result2))) |
3550 |
:good) |
:good) |
3551 |
|
|
3560 |
(declare (notinline funcall)) |
(declare (notinline funcall)) |
3561 |
(declare (optimize (safety 3) (speed 0) (debug 3))) |
(declare (optimize (safety 3) (speed 0) (debug 3))) |
3562 |
(flet ((%f14 |
(flet ((%f14 |
3563 |
(f14-1 f14-2 |
(f14-1 f14-2 |
3564 |
&optional (f14-3 0) (f14-4 (catch 'ct8 0)) |
&optional (f14-3 0) (f14-4 (catch 'ct8 0)) |
3565 |
(f14-5 (unwind-protect c))) |
(f14-5 (unwind-protect c))) |
3566 |
0)) |
0)) |
3567 |
(funcall #'%f14 0 0)))) |
(funcall #'%f14 0 0)))) |
3568 |
1 2 3) |
1 2 3) |
3569 |
0) |
0) |
3570 |
|
|
3579 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
3580 |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
3581 |
(block b8 |
(block b8 |
3582 |
(labels ((%f6 (f6-1 &optional (f6-2 0) (f6-3 0) (f6-4 0)) |
(labels ((%f6 (f6-1 &optional (f6-2 0) (f6-3 0) (f6-4 0)) |
3583 |
0)) |
0)) |
3584 |
(multiple-value-call #'%f6 (values 0)))))) |
(multiple-value-call #'%f6 (values 0)))))) |
3585 |
100 -100000) |
100 -100000) |
3586 |
0) |
0) |
3587 |
|
|
3596 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
3597 |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
(declare (optimize (speed 3) (safety 1) (debug 1))) |
3598 |
(if (not (logbitp 0 0)) |
(if (not (logbitp 0 0)) |
3599 |
0 |
0 |
3600 |
(labels ((%f9 (f9-1 f9-2 f9-3) |
(labels ((%f9 (f9-1 f9-2 f9-3) |
3601 |
0)) |
0)) |
3602 |
(%f9 (catch 'ct6 a) (catch 'ct4 0) 0))))) |
(%f9 (catch 'ct6 a) (catch 'ct4 0) 0))))) |
3603 |
1 -200) |
1 -200) |
3604 |
0) |
0) |
3605 |
|
|
3612 |
(declare (notinline logcount)) |
(declare (notinline logcount)) |
3613 |
(declare (optimize (safety 3) (speed 0) (debug 3))) |
(declare (optimize (safety 3) (speed 0) (debug 3))) |
3614 |
(labels ((%f5 (&optional (f5-1 b) (f5-2 0) (f5-3 (catch (quote ct2) 0))) |
(labels ((%f5 (&optional (f5-1 b) (f5-2 0) (f5-3 (catch (quote ct2) 0))) |
3615 |
(prog1 (logcount (block b1 f5-1))))) |
(prog1 (logcount (block b1 f5-1))))) |
3616 |
(if (%f5 0 0 0) (%f5 a) 0)))) |
(if (%f5 0 0 0) (%f5 a) 0)))) |
3617 |
1 2) |
1 2) |
3618 |
1) |
1) |
3619 |
|
|
3632 |
|
|
3633 |
(deftest misc.199 |
(deftest misc.199 |
3634 |
(let* ((fn '(lambda (b) |
(let* ((fn '(lambda (b) |
3635 |
(declare (type (integer 3352138624 13120037248) b)) |
(declare (type (integer 3352138624 13120037248) b)) |
3636 |
(declare (optimize (speed 3) (safety 1) (space 1))) |
(declare (optimize (speed 3) (safety 1) (space 1))) |
3637 |
(progn (catch 'ct1 |
(progn (catch 'ct1 |
3638 |
(progn (setq b 11159349376) |
(progn (setq b 11159349376) |
3639 |
(throw 'ct1 0))) |
(throw 'ct1 0))) |
3640 |
b)))) |
b)))) |
3641 |
(funcall (compile nil fn) 4108962100)) |
(funcall (compile nil fn) 4108962100)) |
3642 |
11159349376) |
11159349376) |
3643 |
|
|
3647 |
(deftest misc.200 |
(deftest misc.200 |
3648 |
(funcall |
(funcall |
3649 |
(compile nil '(lambda () |
(compile nil '(lambda () |
3650 |
(declare (optimize (speed 1) (space 0) (safety 3) (debug 3) (compilation-speed 1))) |
(declare (optimize (speed 1) (space 0) (safety 3) (debug 3) (compilation-speed 1))) |
3651 |
(ceiling |
(ceiling |
3652 |
(ceiling |
(ceiling |
3653 |
(flet ((%f16 () 0)) (%f16))))))) |
(flet ((%f16 () 0)) (%f16))))))) |
3654 |
0 0) |
0 0) |
3655 |
|
|
3656 |
;;; ecl 5 Dec 2003 |
;;; ecl 5 Dec 2003 |
3663 |
nil |
nil |
3664 |
'(lambda (a b) |
'(lambda (a b) |
3665 |
(declare (optimize (speed 1) (space 0) (safety 0) (debug 2) |
(declare (optimize (speed 1) (space 0) (safety 0) (debug 2) |
3666 |
(compilation-speed 1))) |
(compilation-speed 1))) |
3667 |
(flet ((%f10 (f10-1) (return-from %f10 a))) |
(flet ((%f10 (f10-1) (return-from %f10 a))) |
3668 |
(multiple-value-call #'%f10 (values b))))) |
(multiple-value-call #'%f10 (values b))))) |
3669 |
10 -100) |
10 -100) |
3670 |
;; expected return value |
;; expected return value |
3671 |
10) |
10) |
3676 |
(compile |
(compile |
3677 |
nil |
nil |
3678 |
'(lambda (a b c) |
'(lambda (a b c) |
3679 |
(declare (type (integer -363953100 5324773015552) a)) |
(declare (type (integer -363953100 5324773015552) a)) |
3680 |
(declare (type (integer -5744998440960 59520311) b)) |
(declare (type (integer -5744998440960 59520311) b)) |
3681 |
(declare (type (integer -1864645998 -14608) c)) |
(declare (type (integer -1864645998 -14608) c)) |
3682 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
3683 |
(declare (optimize (speed 3) (space 0) (safety 2) (debug 0) |
(declare (optimize (speed 3) (space 0) (safety 2) (debug 0) |
3684 |
(compilation-speed 2))) |
(compilation-speed 2))) |
3685 |
(flet ((%f1 (f1-1 f1-2) |
(flet ((%f1 (f1-1 f1-2) |
3686 |
(labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2)))) |
(labels ((%f1 (f1-1 f1-2) 0)) (%f1 a f1-2)))) |
3687 |
(%f1 0 c)))) |
(%f1 0 c)))) |
3688 |
10 20 -20000) |
10 20 -20000) |
3689 |
0) |
0) |
3690 |
|
|
3695 |
nil |
nil |
3696 |
'(lambda (a) |
'(lambda (a) |
3697 |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 0) |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 0) |
3698 |
(compilation-speed 0))) |
(compilation-speed 0))) |
3699 |
(labels ((%f18 (f18-1 f18-2 &optional (f18-3 a) (f18-4 a)) |
(labels ((%f18 (f18-1 f18-2 &optional (f18-3 a) (f18-4 a)) |
3700 |
f18-2)) |
f18-2)) |
3701 |
(multiple-value-call #'%f18 (values a 0))))) |
(multiple-value-call #'%f18 (values a 0))))) |
3702 |
100) |
100) |
3703 |
0) |
0) |
3704 |
|
|
3729 |
nil |
nil |
3730 |
'(lambda (a b) |
'(lambda (a b) |
3731 |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 0) |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 0) |
3732 |
(compilation-speed 3))) |
(compilation-speed 3))) |
3733 |
(labels ((%f1 nil b)) |
(labels ((%f1 nil b)) |
3734 |
(flet ((%f11 (f11-1 f11-2 f11-3) 0)) |
(flet ((%f11 (f11-1 f11-2 f11-3) 0)) |
3735 |
(apply #'%f11 a (logand (%f1)) |
(apply #'%f11 a (logand (%f1)) |
3736 |
(flet ((%f13 (f13-1 f13-2) b)) |
(flet ((%f13 (f13-1 f13-2) b)) |
3737 |
(apply #'%f13 0 0 nil)) |
(apply #'%f13 0 0 nil)) |
3738 |
nil))))) |
nil))))) |
3739 |
100 200) |
100 200) |
3740 |
0) |
0) |
3741 |
|
|
3745 |
#'(lambda (a b) |
#'(lambda (a b) |
3746 |
(declare (notinline mask-field byte)) |
(declare (notinline mask-field byte)) |
3747 |
(declare (optimize (speed 1) (space 1) (safety 2) (debug 1) |
(declare (optimize (speed 1) (space 1) (safety 2) (debug 1) |
3748 |
(compilation-speed 2))) |
(compilation-speed 2))) |
3749 |
(mask-field (byte 0 0) |
(mask-field (byte 0 0) |
3750 |
(block b3 |
(block b3 |
3751 |
(labels ((%f14 nil (return-from b3 a))) (%f14))))) |
(labels ((%f14 nil (return-from b3 a))) (%f14))))) |
3752 |
1 2) |
1 2) |
3753 |
0) |
0) |
3754 |
|
|
3759 |
nil |
nil |
3760 |
'(lambda (a) |
'(lambda (a) |
3761 |
(declare (optimize (speed 3) (space 2) (safety 0) (debug 1) |
(declare (optimize (speed 3) (space 2) (safety 0) (debug 1) |
3762 |
(compilation-speed 0))) |
(compilation-speed 0))) |
3763 |
(labels ((%f3 (f3-1) a)) |
(labels ((%f3 (f3-1) a)) |
3764 |
(labels ((%f10 (f10-1 f10-2) a)) |
(labels ((%f10 (f10-1 f10-2) a)) |
3765 |
(apply #'%f10 0 (logior (%f3 0)) nil))))) |
(apply #'%f10 0 (logior (%f3 0)) nil))))) |
3766 |
-10000) |
-10000) |
3767 |
-10000) |
-10000) |
3768 |
|
|
3773 |
nil |
nil |
3774 |
'(lambda (b) |
'(lambda (b) |
3775 |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 3) |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 3) |
3776 |
(compilation-speed 0))) |
(compilation-speed 0))) |
3777 |
(flet ((%f6 (f6-1 f6-2 f6-3) f6-3)) |
(flet ((%f6 (f6-1 f6-2 f6-3) f6-3)) |
3778 |
(labels ((%f8 (f8-1) (let* ((v1 (%f6 0 0 0))) 0))) |
(labels ((%f8 (f8-1) (let* ((v1 (%f6 0 0 0))) 0))) |
3779 |
(apply #'%f6 b b (%f8 b) nil))))) |
(apply #'%f6 b b (%f8 b) nil))))) |
3780 |
10) |
10) |
3781 |
0) |
0) |
3782 |
|
|
3787 |
nil |
nil |
3788 |
'(lambda (b) |
'(lambda (b) |
3789 |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 3) |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 3) |
3790 |
(compilation-speed 3))) |
(compilation-speed 3))) |
3791 |
(max (catch 'ct4 (throw 'ct4 (setq b 0))) b))) |
(max (catch 'ct4 (throw 'ct4 (setq b 0))) b))) |
3792 |
6353) |
6353) |
3793 |
0) |
0) |
3800 |
'(lambda (c) |
'(lambda (c) |
3801 |
(declare (type (integer 3 65500689) c)) |
(declare (type (integer 3 65500689) c)) |
3802 |
(declare (optimize (speed 2) (space 1) (safety 3) (debug 3) |
(declare (optimize (speed 2) (space 1) (safety 3) (debug 3) |
3803 |
(compilation-speed 2))) |
(compilation-speed 2))) |
3804 |
(catch 'ct6 |
(catch 'ct6 |
3805 |
(let ((v10 (truncate (integer-length (throw 'ct6 0))))) c)))) |
(let ((v10 (truncate (integer-length (throw 'ct6 0))))) c)))) |
3806 |
100) |
100) |
3807 |
0) |
0) |
3808 |
|
|
3813 |
'(lambda (a) |
'(lambda (a) |
3814 |
(declare (type (integer -55982525 -1) a)) |
(declare (type (integer -55982525 -1) a)) |
3815 |
(declare (optimize (speed 1) (space 2) (safety 1) (debug 2) |
(declare (optimize (speed 1) (space 2) (safety 1) (debug 2) |
3816 |
(compilation-speed 1))) |
(compilation-speed 1))) |
3817 |
(flet ((%f11 (f11-1 f11-2 f11-3) a)) |
(flet ((%f11 (f11-1 f11-2 f11-3) a)) |
3818 |
(let ((v6 0)) |
(let ((v6 0)) |
3819 |
(flet ((%f12 (f12-1) v6)) |
(flet ((%f12 (f12-1) v6)) |
3820 |
(if (<= 0) (%f11 v6 0 0) |
(if (<= 0) (%f11 v6 0 0) |
3821 |
(multiple-value-call #'%f11 |
(multiple-value-call #'%f11 |
3822 |
(values 0 0 (%f11 0 0 (apply #'%f12 0 nil)))))))))) |
(values 0 0 (%f11 0 0 (apply #'%f12 0 nil)))))))))) |
3823 |
-100) |
-100) |
3824 |
-100) |
-100) |
3825 |
|
|
3833 |
(declare (type (integer -28 282229324) b)) |
(declare (type (integer -28 282229324) b)) |
3834 |
(declare (type (integer -108149896 38889958912) c)) |
(declare (type (integer -108149896 38889958912) c)) |
3835 |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 1) |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 1) |
3836 |
(compilation-speed 3))) |
(compilation-speed 3))) |
3837 |
(let ((v4 (labels ((%f8 (f8-1 &optional (f8-2 0) (f8-3 b)) 0)) |
(let ((v4 (labels ((%f8 (f8-1 &optional (f8-2 0) (f8-3 b)) 0)) |
3838 |
(logior (%f8 0) (%f8 0 0))))) |
(logior (%f8 0) (%f8 0 0))))) |
3839 |
(truncate |
(truncate |
3840 |
(labels ((%f4 (&optional (f4-1 (ceiling c))) a)) |
(labels ((%f4 (&optional (f4-1 (ceiling c))) a)) |
3841 |
(%f4 v4)) |
(%f4 v4)) |
3842 |
(max 38 |
(max 38 |
3843 |
(labels ((%f8 (f8-1 &optional (f8-2 (+ c a))) 0)) |
(labels ((%f8 (f8-1 &optional (f8-2 (+ c a))) 0)) |
3844 |
(apply #'%f8 a nil))))))) |
(apply #'%f8 a nil))))))) |
3845 |
-979021452526 138874383 21099308459) |
-979021452526 138874383 21099308459) |
3846 |
-25763722434 |
-25763722434 |
3847 |
-34) |
-34) |
3849 |
;;; Wrong value returned |
;;; Wrong value returned |
3850 |
(deftest misc.212 |
(deftest misc.212 |
3851 |
(funcall #'(lambda () |
(funcall #'(lambda () |
3852 |
(declare (optimize (speed 2) (space 0) (safety 3) (debug 2) |
(declare (optimize (speed 2) (space 0) (safety 3) (debug 2) |
3853 |
(compilation-speed 0))) |
(compilation-speed 0))) |
3854 |
(let* ((v9 (unwind-protect 0))) v9))) |
(let* ((v9 (unwind-protect 0))) v9))) |
3855 |
0) |
0) |
3856 |
|
|
3857 |
;;; segmentation violation |
;;; segmentation violation |
3862 |
'(lambda (a b) |
'(lambda (a b) |
3863 |
(declare (type (integer -2 -1) b)) |
(declare (type (integer -2 -1) b)) |
3864 |
(declare (optimize (speed 1) (space 0) (safety 1) (debug 1) |
(declare (optimize (speed 1) (space 0) (safety 1) (debug 1) |
3865 |
(compilation-speed 3))) |
(compilation-speed 3))) |
3866 |
(max (labels ((%f15 (f15-1) b)) (if (< 0 (%f15 a)) 0 0)) |
(max (labels ((%f15 (f15-1) b)) (if (< 0 (%f15 a)) 0 0)) |
3867 |
(labels ((%f11 (f11-1 f11-2 f11-3) b)) |
(labels ((%f11 (f11-1 f11-2 f11-3) b)) |
3868 |
(apply #'%f11 0 0 0 nil))))) |
(apply #'%f11 0 0 0 nil))))) |
3869 |
0 -2) |
0 -2) |
3870 |
0) |
0) |
3871 |
|
|
3875 |
nil |
nil |
3876 |
'(lambda (a) |
'(lambda (a) |
3877 |
(declare (optimize (speed 3) (space 3) (safety 0) (debug 1) |
(declare (optimize (speed 3) (space 3) (safety 0) (debug 1) |
3878 |
(compilation-speed 3))) |
(compilation-speed 3))) |
3879 |
(max (labels ((%f7 (f7-1) a)) (%f7 0)) |
(max (labels ((%f7 (f7-1) a)) (%f7 0)) |
3880 |
(flet ((%f12 (f12-1 f12-2) (if a f12-2 0))) |
(flet ((%f12 (f12-1 f12-2) (if a f12-2 0))) |
3881 |
(apply #'%f12 0 a nil))))) |
(apply #'%f12 0 a nil))))) |
3882 |
123) |
123) |
3883 |
123) |
123) |
3884 |
|
|
3889 |
nil |
nil |
3890 |
'(lambda (a) |
'(lambda (a) |
3891 |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 0) |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 0) |
3892 |
(compilation-speed 2))) |
(compilation-speed 2))) |
3893 |
(flet ((%f8 nil (setq a 0))) (max a (%f8))))) |
(flet ((%f8 nil (setq a 0))) (max a (%f8))))) |
3894 |
100) |
100) |
3895 |
100) |
100) |
3901 |
nil |
nil |
3902 |
'(lambda () |
'(lambda () |
3903 |
(declare (optimize (speed 3) (space 3) (safety 3) (debug 0) |
(declare (optimize (speed 3) (space 3) (safety 3) (debug 0) |
3904 |
(compilation-speed 2))) |
(compilation-speed 2))) |
3905 |
(ldb (byte 26 6) -1252)))) |
(ldb (byte 26 6) -1252)))) |
3906 |
67108844) |
67108844) |
3907 |
|
|
3908 |
(deftest misc.215a |
(deftest misc.215a |
3909 |
(funcall |
(funcall |
3910 |
(compile nil '(lambda () |
(compile nil '(lambda () |
3911 |
(declare (optimize (speed 3) (space 2) (safety 2) (debug 1) |
(declare (optimize (speed 3) (space 2) (safety 2) (debug 1) |
3912 |
(compilation-speed 2))) |
(compilation-speed 2))) |
3913 |
(ldb (byte 30 0) -407020740)))) |
(ldb (byte 30 0) -407020740)))) |
3914 |
666721084) |
666721084) |
3915 |
|
|
3916 |
;;; Floating point exception |
;;; Floating point exception |
3933 |
nil |
nil |
3934 |
'(lambda () |
'(lambda () |
3935 |
(labels ((%f (a b) |
(labels ((%f (a b) |
3936 |
(labels ((%f (c d) 0)) |
(labels ((%f (c d) 0)) |
3937 |
(%f 1 2)))) |
(%f 1 2)))) |
3938 |
(%f 3 4))))) |
(%f 3 4))))) |
3939 |
0) |
0) |
3940 |
|
|
3941 |
;;; #\^E is not of type NUMBER. |
;;; #\^E is not of type NUMBER. |
3948 |
(declare (type (integer -1 13) b)) |
(declare (type (integer -1 13) b)) |
3949 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
3950 |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 0) |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 0) |
3951 |
(compilation-speed 1))) |
(compilation-speed 1))) |
3952 |
(labels ((%f18 (f18-1 f18-2 f18-3) a)) |
(labels ((%f18 (f18-1 f18-2 f18-3) a)) |
3953 |
(apply #'%f18 0 a |
(apply #'%f18 0 a |
3954 |
(%f18 b |
(%f18 b |
3955 |
(- (labels ((%f11 (f11-1 f11-2 f11-3) a)) |
(- (labels ((%f11 (f11-1 f11-2 f11-3) a)) |
3956 |
(%f11 0 0 0))) |
(%f11 0 0 0))) |
3957 |
a) |
a) |
3958 |
nil)))) |
nil)))) |
3959 |
-468614602 3) |
-468614602 3) |
3960 |
-468614602) |
-468614602) |
3961 |
|
|
3981 |
nil |
nil |
3982 |
'(lambda (a b c) |
'(lambda (a b c) |
3983 |
(declare (optimize (speed 2) (space 3) (safety 0) |
(declare (optimize (speed 2) (space 3) (safety 0) |
3984 |
(debug 1) (compilation-speed 0))) |
(debug 1) (compilation-speed 0))) |
3985 |
(flet ((%f14 (f14-1 f14-2 |
(flet ((%f14 (f14-1 f14-2 |
3986 |
&optional (f14-3 c) |
&optional (f14-3 c) |
3987 |
(f14-4 (if (not nil) |
(f14-4 (if (not nil) |
3988 |
(labels ((%f9 nil 0)) (%f9)) |
(labels ((%f9 nil 0)) (%f9)) |
3989 |
a))) |
a))) |
3990 |
(flet ((%f17 (f17-1 f17-2) f14-1)) (%f17 0 f14-3)))) |
(flet ((%f17 (f17-1 f17-2) f14-1)) (%f17 0 f14-3)))) |
3991 |
(%f14 (%f14 0 a) 0 b a)))) |
(%f14 (%f14 0 a) 0 b a)))) |
3992 |
248000 5409415 227923) |
248000 5409415 227923) |
3993 |
0) |
0) |
3994 |
|
|
4002 |
(deftest misc.226 |
(deftest misc.226 |
4003 |
(funcall |
(funcall |
4004 |
(compile nil |
(compile nil |
4005 |
'(lambda (a) |
'(lambda (a) |
4006 |
(flet ((%f (&optional (x (setq a 1)) |
(flet ((%f (&optional (x (setq a 1)) |
4007 |
(y (setq a 2))) |
(y (setq a 2))) |
4008 |
0)) |
0)) |
4009 |
(%f 0 0)))) |
(%f 0 0)))) |
4010 |
0) |
0) |
4011 |
0) |
0) |
4012 |
|
|
4016 |
nil |
nil |
4017 |
'(lambda (b) |
'(lambda (b) |
4018 |
(flet ((%f (&optional x (y (setq b 1))) x)) |
(flet ((%f (&optional x (y (setq b 1))) x)) |
4019 |
(%f 0)))) |
(%f 0)))) |
4020 |
0) |
0) |
4021 |
0) |
0) |
4022 |
|
|
4028 |
nil |
nil |
4029 |
'(lambda (a b c) |
'(lambda (a b c) |
4030 |
(declare (optimize (speed 1) (space 2) (safety 0) (debug 2) |
(declare (optimize (speed 1) (space 2) (safety 0) (debug 2) |
4031 |
(compilation-speed 2))) |
(compilation-speed 2))) |
4032 |
(catch 'ct2 |
(catch 'ct2 |
4033 |
(case 0 |
(case 0 |
4034 |
((-56087 86404 -94716) |
((-56087 86404 -94716) |
4035 |
(signum (labels ((%f7 (f7-1 f7-2 f7-3) f7-2)) 0))) |
(signum (labels ((%f7 (f7-1 f7-2 f7-3) f7-2)) 0))) |
4036 |
((12986) |
((12986) |
4037 |
(let ((v3 (catch 'ct2 (throw 'ct2 0)))) |
(let ((v3 (catch 'ct2 (throw 'ct2 0)))) |
4038 |
(labels ((%f14 (f14-1 f14-2) 0)) (%f14 b c)))) |
(labels ((%f14 (f14-1 f14-2) 0)) (%f14 b c)))) |
4039 |
(t 0))))) |
(t 0))))) |
4040 |
-3847091255 -13482 -7577750) |
-3847091255 -13482 -7577750) |
4041 |
0) |
0) |
4042 |
|
|
4050 |
(declare (type (integer -2 1) c)) |
(declare (type (integer -2 1) c)) |
4051 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
4052 |
(declare (optimize (speed 2) (space 2) (safety 1) (debug 3) |
(declare (optimize (speed 2) (space 2) (safety 1) (debug 3) |
4053 |
(compilation-speed 3))) |
(compilation-speed 3))) |
4054 |
(catch 'ct4 |
(catch 'ct4 |
4055 |
(rational (case b |
(rational (case b |
4056 |
((350 244 1059) (prog2 (numerator c) 0)) |
((350 244 1059) (prog2 (numerator c) 0)) |
4057 |
((1705 493) |
((1705 493) |
4058 |
(unwind-protect |
(unwind-protect |
4059 |
(throw 'ct4 c) |
(throw 'ct4 c) |
4060 |
(loop for lv2 below 2 count (logbitp 0 c)))) |
(loop for lv2 below 2 count (logbitp 0 c)))) |
4061 |
(t a)))))) |
(t a)))))) |
4062 |
0 200 -1) |
0 200 -1) |
4063 |
0) |
0) |
4064 |
|
|
4069 |
'(lambda (c) |
'(lambda (c) |
4070 |
(declare (type (integer -1 412413109) c)) |
(declare (type (integer -1 412413109) c)) |
4071 |
(declare (optimize (speed 1) (space 2) (safety 2) (debug 1) |
(declare (optimize (speed 1) (space 2) (safety 2) (debug 1) |
4072 |
(compilation-speed 3))) |
(compilation-speed 3))) |
4073 |
(catch 'ct2 |
(catch 'ct2 |
4074 |
(logior (* (progn (if c 0 (throw 'ct2 0)) 0) |
(logior (* (progn (if c 0 (throw 'ct2 0)) 0) |
4075 |
(catch 'ct2 (throw 'ct2 0))) |
(catch 'ct2 (throw 'ct2 0))) |
4076 |
(complex c 0) |
(complex c 0) |
4077 |
)))) |
)))) |
4078 |
62151) |
62151) |
4079 |
62151) |
62151) |
4080 |
|
|
4085 |
nil |
nil |
4086 |
'(lambda nil |
'(lambda nil |
4087 |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 2) |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 2) |
4088 |
(compilation-speed 3))) |
(compilation-speed 3))) |
4089 |
(labels ((%f15 (f15-1) 0)) |
(labels ((%f15 (f15-1) 0)) |
4090 |
(let ((v4 0)) |
(let ((v4 0)) |
4091 |
(catch 'ct5 |
(catch 'ct5 |
4092 |
(%f15 |
(%f15 |
4093 |
(gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4)))))))) |
(gcd (catch 'ct5 (let* ((v5 (throw 'ct5 0))) 0)) v4)))))))) |
4094 |
0) |
0) |
4095 |
|
|
4096 |
;;; ecl |
;;; ecl |
4103 |
'(lambda (a) |
'(lambda (a) |
4104 |
(declare (type (integer -6527559920 -247050) a)) |
(declare (type (integer -6527559920 -247050) a)) |
4105 |
(declare (optimize (speed 1) (space 3) (safety 0) (debug 0) |
(declare (optimize (speed 1) (space 3) (safety 0) (debug 0) |
4106 |
(compilation-speed 3))) |
(compilation-speed 3))) |
4107 |
(labels ((%f10 (&optional (f10-1 0) |
(labels ((%f10 (&optional (f10-1 0) |
4108 |
(f10-2 (setq a -4456327156))) |
(f10-2 (setq a -4456327156))) |
4109 |
0)) |
0)) |
4110 |
(logxor a (%f10 a))))) |
(logxor a (%f10 a))))) |
4111 |
-3444248334) |
-3444248334) |
4112 |
-3444248334) |
-3444248334) |
4113 |
|
|
4121 |
'(lambda (b) |
'(lambda (b) |
4122 |
(declare (type (integer -5209401 3339878) b)) |
(declare (type (integer -5209401 3339878) b)) |
4123 |
(declare (optimize (speed 1) (space 2) (safety 0) (debug 2) |
(declare (optimize (speed 1) (space 2) (safety 0) (debug 2) |
4124 |
(compilation-speed 3))) |
(compilation-speed 3))) |
4125 |
(flet ((%f3 (f3-1 f3-2) |
(flet ((%f3 (f3-1 f3-2) |
4126 |
f3-1)) |
f3-1)) |
4127 |
(apply #'%f3 0 (logxor (catch 'ct2 b) |
(apply #'%f3 0 (logxor (catch 'ct2 b) |
4128 |
(catch 'ct5 (throw 'ct5 0))) nil)))) |
(catch 'ct5 (throw 'ct5 0))) nil)))) |
4129 |
-2179757) |
-2179757) |
4130 |
0) |
0) |
4131 |
|
|
4138 |
(declare (type (integer 197447754 495807327) a)) |
(declare (type (integer 197447754 495807327) a)) |
4139 |
(declare (type (integer -125379462 1863191461) b)) |
(declare (type (integer -125379462 1863191461) b)) |
4140 |
(declare |
(declare |
4141 |
(optimize (speed 2) (space 2) (safety 2) (debug 1) (compilation-speed 2))) |
(optimize (speed 2) (space 2) (safety 2) (debug 1) (compilation-speed 2))) |
4142 |
(flet ((%f8 |
(flet ((%f8 |
4143 |
(&optional |
(&optional |
4144 |
(f8-1 |
(f8-1 |
4145 |
(max (catch (quote ct4) 0) |
(max (catch (quote ct4) 0) |
4146 |
(catch (quote ct6) (throw (quote ct6) 0))))) |
(catch (quote ct6) (throw (quote ct6) 0))))) |
4147 |
b)) |
b)) |
4148 |
(flet ((%f16 (f16-1 f16-2 f16-3) |
(flet ((%f16 (f16-1 f16-2 f16-3) |
4149 |
0)) |
0)) |
4150 |
(apply #'%f16 a 0 (%f8) nil))))) |
(apply #'%f16 a 0 (%f8) nil))))) |
4151 |
348270365 28780966) |
348270365 28780966) |
4152 |
0) |
0) |
4153 |
|
|
4160 |
(declare (type (integer -2333758327203 -321096206070) a)) |
(declare (type (integer -2333758327203 -321096206070) a)) |
4161 |
(declare (type (integer -2842843403569 258395684270) b)) |
(declare (type (integer -2842843403569 258395684270) b)) |
4162 |
(declare (optimize (speed 2) (space 0) (safety 1) (debug 2) |
(declare (optimize (speed 2) (space 0) (safety 1) (debug 2) |
4163 |
(compilation-speed 2))) |
(compilation-speed 2))) |
4164 |
(flet ((%f18 (f18-1) |
(flet ((%f18 (f18-1) |
4165 |
(the integer |
(the integer |
4166 |
(labels ((%f9 (f9-1 f9-2) |
(labels ((%f9 (f9-1 f9-2) |
4167 |
(* (- -1 -210032251) |
(* (- -1 -210032251) |
4168 |
(1+ |
(1+ |
4169 |
(floor |
(floor |
4170 |
(labels ((%f11 (f11-1 f11-2) |
(labels ((%f11 (f11-1 f11-2) |
4171 |
-96773966)) |
-96773966)) |
4172 |
(%f11 b -3440758))))))) |
(%f11 b -3440758))))))) |
4173 |
(flet ((%f2 |
(flet ((%f2 |
4174 |
(f2-1 f2-2 f2-3 |
(f2-1 f2-2 f2-3 |
4175 |
&optional (f2-4 (%f9 -429204 -63)) |
&optional (f2-4 (%f9 -429204 -63)) |
4176 |
(f2-5 (- (%f9 b 17) a)) |
(f2-5 (- (%f9 b 17) a)) |
4177 |
(f2-6 |
(f2-6 |
4178 |
(multiple-value-call #'%f9 |
(multiple-value-call #'%f9 |
4179 |
(values |
(values |
4180 |
(let () 7127585) |
(let () 7127585) |
4181 |
(flet ((%f1 (f1-1 f1-2 f1-3) |
(flet ((%f1 (f1-1 f1-2 f1-3) |
4182 |
(catch 'ct6 -569234))) |
(catch 'ct6 -569234))) |
4183 |
(macrolet () 13)))))) |
(macrolet () 13)))))) |
4184 |
1027)) |
1027)) |
4185 |
(if nil |
(if nil |
4186 |
(%f2 b a f18-1 69968 4 -217193265) |
(%f2 b a f18-1 69968 4 -217193265) |
4187 |
(catch 'ct1 129548688))))))) |
(catch 'ct1 129548688))))))) |
4188 |
(max (apply #'%f18 (list 0)))))) |
(max (apply #'%f18 (list 0)))))) |
4189 |
-2067244683733 143879071206) |
-2067244683733 143879071206) |
4190 |
129548688) |
129548688) |
4191 |
|
|
4197 |
'(lambda (b) ;; (a b) |
'(lambda (b) ;; (a b) |
4198 |
(declare (type (integer -13583709 -3876310) b)) |
(declare (type (integer -13583709 -3876310) b)) |
4199 |
(declare (optimize (speed 1) (space 2) (safety 3) (debug 3) |
(declare (optimize (speed 1) (space 2) (safety 3) (debug 3) |
4200 |
(compilation-speed 1))) |
(compilation-speed 1))) |
4201 |
(flet ((%f14 (f14-1 f14-2 f14-3) |
(flet ((%f14 (f14-1 f14-2 f14-3) |
4202 |
(flet ((%f2 |
(flet ((%f2 |
4203 |
(f2-1 |
(f2-1 |
4204 |
&optional (f2-2 0) (f2-3 0) |
&optional (f2-2 0) (f2-3 0) |
4205 |
(f2-4 |
(f2-4 |
4206 |
(block b8 (if (ldb-test (byte 0 0) 0) (* 0 f14-2) 0)))) |
(block b8 (if (ldb-test (byte 0 0) 0) (* 0 f14-2) 0)))) |
4207 |
0)) |
0)) |
4208 |
(%f2 b f14-2)))) |
(%f2 b f14-2)))) |
4209 |
(%f14 0 0 (%f14 0 0 0))))) |
(%f14 0 0 (%f14 0 0 0))))) |
4210 |
;; -155589 |
;; -155589 |
4211 |
-5694124) |
-5694124) |
4212 |
0) |
0) |
4220 |
'(lambda (b) |
'(lambda (b) |
4221 |
(declare (notinline not)) |
(declare (notinline not)) |
4222 |
(declare (optimize (speed 1) (space 0) (safety 0) |
(declare (optimize (speed 1) (space 0) (safety 0) |
4223 |
(debug 2) (compilation-speed 3))) |
(debug 2) (compilation-speed 3))) |
4224 |
(multiple-value-prog1 0 (catch 'ct2 (if (not nil) (throw 'ct2 b) 0))))) |
(multiple-value-prog1 0 (catch 'ct2 (if (not nil) (throw 'ct2 b) 0))))) |
4225 |
:wrong) |
:wrong) |
4226 |
0) |
0) |
4231 |
nil |
nil |
4232 |
'(lambda (a b) |
'(lambda (a b) |
4233 |
(declare (optimize (speed 1) (space 0) (safety 3) |
(declare (optimize (speed 1) (space 0) (safety 3) |
4234 |
(debug 0) (compilation-speed 1))) |
(debug 0) (compilation-speed 1))) |
4235 |
(flet ((%f8 (f8-1) 0)) |
(flet ((%f8 (f8-1) 0)) |
4236 |
(labels ((%f18 (f18-1 f18-2 &optional (f18-3 0)) |
(labels ((%f18 (f18-1 f18-2 &optional (f18-3 0)) |
4237 |
(%f8 (catch 'ct7 (throw 'ct7 f18-1))))) |
(%f8 (catch 'ct7 (throw 'ct7 f18-1))))) |
4238 |
(multiple-value-prog1 (catch 'ct7 a) |
(multiple-value-prog1 (catch 'ct7 a) |
4239 |
0 |
0 |
4240 |
(multiple-value-call #'%f18 (values 0 (%f8 b)))))))) |
(multiple-value-call #'%f18 (values 0 (%f8 b)))))))) |
4241 |
:good :bad) |
:good :bad) |
4242 |
:good) |
:good) |
4243 |
|
|
4247 |
nil |
nil |
4248 |
'(lambda () |
'(lambda () |
4249 |
(declare (optimize (speed 2) (space 2) (safety 3) |
(declare (optimize (speed 2) (space 2) (safety 3) |
4250 |
(debug 3) (compilation-speed 1))) |
(debug 3) (compilation-speed 1))) |
4251 |
(multiple-value-prog1 0 |
(multiple-value-prog1 0 |
4252 |
(catch 'ct7 (logandc1 (block b7 0) |
(catch 'ct7 (logandc1 (block b7 0) |
4253 |
(throw 'ct7 -908543))))))) |
(throw 'ct7 -908543))))))) |
4254 |
0) |
0) |
4255 |
|
|
4256 |
;;; cmucl (11 2003 snapshot) |
;;; cmucl (11 2003 snapshot) |
4264 |
(declare (type (integer -77145797 -1) a)) |
(declare (type (integer -77145797 -1) a)) |
4265 |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 3) (compilation-speed 1))) |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 3) (compilation-speed 1))) |
4266 |
(flet ((%f5 (f5-1) a)) |
(flet ((%f5 (f5-1) a)) |
4267 |
(%f5 (unwind-protect 0 (logand (- (catch 'ct5 0)))))))) |
(%f5 (unwind-protect 0 (logand (- (catch 'ct5 0)))))))) |
4268 |
-100) |
-100) |
4269 |
-100) |
-100) |
4270 |
|
|
4274 |
nil |
nil |
4275 |
'(lambda () |
'(lambda () |
4276 |
(declare (optimize (speed 3) (space 2) (safety 3) |
(declare (optimize (speed 3) (space 2) (safety 3) |
4277 |
(debug 0) (compilation-speed 0))) |
(debug 0) (compilation-speed 0))) |
4278 |
(min (load-time-value 0)) |
(min (load-time-value 0)) |
4279 |
0))) |
0))) |
4280 |
0) |
0) |
4288 |
(declare (type (integer -2315418108387 111852261677) a)) |
(declare (type (integer -2315418108387 111852261677) a)) |
4289 |
(declare (optimize (speed 2) (space 0) (safety 2) (debug 2) (compilation-speed 1))) |
(declare (optimize (speed 2) (space 0) (safety 2) (debug 2) (compilation-speed 1))) |
4290 |
(labels ((%f4 () |
(labels ((%f4 () |
4291 |
(labels ((%f16 (f16-1 f16-2) 0)) |
(labels ((%f16 (f16-1 f16-2) 0)) |
4292 |
(flet ((%f9 () 0)) |
(flet ((%f9 () 0)) |
4293 |
(%f16 0 (%f16 (%f9) a)))))) |
(%f16 0 (%f16 (%f9) a)))))) |
4294 |
(flet ((%f10 (f10-1 f10-2 f10-3) |
(flet ((%f10 (f10-1 f10-2 f10-3) |
4295 |
(flet ((%f15 (f15-1 &optional (f15-2 (%f4)) (f15-3 0)) f15-3)) |
(flet ((%f15 (f15-1 &optional (f15-2 (%f4)) (f15-3 0)) f15-3)) |
4296 |
0))) |
0))) |
4297 |
0)))) |
0)))) |
4298 |
100) |
100) |
4299 |
0) |
0) |
4300 |
|
|
4301 |
(deftest misc.239a |
(deftest misc.239a |
4302 |
(funcall |
(funcall |
4303 |
(compile nil '(lambda () (declare (optimize speed safety)) |
(compile nil '(lambda () (declare (optimize speed safety)) |
4304 |
(LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0))))) |
(LET ((x (PROG1 0 (ROUND 18916)))) (catch 'ct4 0))))) |
4305 |
0) |
0) |
4306 |
|
|
4307 |
(deftest misc.240 |
(deftest misc.240 |
4312 |
(declare (type (integer 4 7) b)) |
(declare (type (integer 4 7) b)) |
4313 |
(declare (optimize (speed 2) (space 3) (safety 3) (debug 1) (compilation-speed 3))) |
(declare (optimize (speed 2) (space 3) (safety 3) (debug 1) (compilation-speed 3))) |
4314 |
(unwind-protect 0 |
(unwind-protect 0 |
4315 |
(common-lisp:handler-case |
(common-lisp:handler-case |
4316 |
(max |
(max |
4317 |
(let ((*s1* b)) |
(let ((*s1* b)) |
4318 |
(declare (special *s1*)) |
(declare (special *s1*)) |
4319 |
(+ 0 *s1*))))))) |
(+ 0 *s1*))))))) |
4320 |
5) |
5) |
4321 |
0) |
0) |
4322 |
|
|
4388 |
'(lambda (a b) |
'(lambda (a b) |
4389 |
(declare (notinline <=)) |
(declare (notinline <=)) |
4390 |
(declare (optimize (speed 2) (space 3) (safety 0) |
(declare (optimize (speed 2) (space 3) (safety 0) |
4391 |
(debug 1) (compilation-speed 3))) |
(debug 1) (compilation-speed 3))) |
4392 |
(if (if (<= 0) nil nil) |
(if (if (<= 0) nil nil) |
4393 |
(labels ((%f9 (f9-1 f9-2 f9-3) |
(labels ((%f9 (f9-1 f9-2 f9-3) |
4394 |
(ignore-errors 0))) |
(ignore-errors 0))) |
4395 |
(dotimes (iv4 5 a) (%f9 0 0 b))) |
(dotimes (iv4 5 a) (%f9 0 0 b))) |
4396 |
0))) |
0))) |
4397 |
1 2) |
1 2) |
4398 |
0) |
0) |
4399 |
|
|
4404 |
nil |
nil |
4405 |
'(lambda (a) |
'(lambda (a) |
4406 |
(declare (type (integer -12 14) a)) |
(declare (type (integer -12 14) a)) |
4407 |
(declare (optimize (speed 1) (space 2) (safety 1) (debug 1) (compilation-speed 3))) |
(declare (optimize (speed 1) (space 2) (safety 1) (debug 1) (compilation-speed 3))) |
4408 |
(let ((v6 0)) |
(let ((v6 0)) |
4409 |
(flet ((%f11 |
(flet ((%f11 |
4410 |
(f11-1 |
(f11-1 |
4411 |
&optional |
&optional |
4412 |
(f11-2 |
(f11-2 |
4413 |
(case (catch 'ct7 0) |
(case (catch 'ct7 0) |
4414 |
(t |
(t |
4415 |
(let* ((v2 (ignore-errors a))) |
(let* ((v2 (ignore-errors a))) |
4416 |
v6))))) |
v6))))) |
4417 |
0)) |
0)) |
4418 |
(%f11 0 0))))) |
(%f11 0 0))))) |
4419 |
5) |
5) |
4420 |
0) |
0) |
4421 |
|
|
4436 |
(declare (type (integer -186585769 -7483) a)) |
(declare (type (integer -186585769 -7483) a)) |
4437 |
(declare (type (integer -550 524) b)) |
(declare (type (integer -550 524) b)) |
4438 |
(declare |
(declare |
4439 |
(optimize (speed 2) (space 1) (safety 1) (debug 2) (compilation-speed 3))) |
(optimize (speed 2) (space 1) (safety 1) (debug 2) (compilation-speed 3))) |
4440 |
(flet ((%f3 (f3-1 f3-2 f3-3) |
(flet ((%f3 (f3-1 f3-2 f3-3) |
4441 |
0)) |
0)) |
4442 |
(%f3 0 0 |
(%f3 0 0 |
4443 |
(flet ((%f13 (f13-1 f13-2) |
(flet ((%f13 (f13-1 f13-2) |
4444 |
0)) |
0)) |
4445 |
(if (/= b a) |
(if (/= b a) |
4446 |
b |
b |
4447 |
(deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0))))))))) |
(deposit-field (%f3 0 b 0) (byte 0 0) (%f3 0 0 (%f13 0 0))))))))) |
4448 |
-10000 0) |
-10000 0) |
4449 |
0) |
0) |
4450 |
|
|
4468 |
(declare (type (integer -30189 -6047) a)) |
(declare (type (integer -30189 -6047) a)) |
4469 |
(declare (type (integer -10 16391481067) b)) |
(declare (type (integer -10 16391481067) b)) |
4470 |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 3) |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 3) |
4471 |
(compilation-speed 0))) |
(compilation-speed 0))) |
4472 |
(if |
(if |
4473 |
(<= 0 |
(<= 0 |
4474 |
(let ((*s1* (setq b 12204309028))) |
(let ((*s1* (setq b 12204309028))) |
4475 |
(declare (special *s1*)) |
(declare (special *s1*)) |
4476 |
(truncate b))) |
(truncate b))) |
4477 |
a |
a |
4478 |
0))) |
0))) |
4479 |
-12618 16130777867) |
-12618 16130777867) |
4480 |
-12618) |
-12618) |
4481 |
|
|
4493 |
'(lambda () |
'(lambda () |
4494 |
(declare (optimize (speed 2) (space 2) (safety 3) (debug 3) (compilation-speed 2))) |
(declare (optimize (speed 2) (space 2) (safety 3) (debug 3) (compilation-speed 2))) |
4495 |
(flet ((%f17 (f17-1) 0)) |
(flet ((%f17 (f17-1) 0)) |
4496 |
(%f17 (logandc1 0 (catch 'ct2 0))))))) |
(%f17 (logandc1 0 (catch 'ct2 0))))))) |
4497 |
0) |
0) |
4498 |
|
|
4499 |
(deftest misc.253a |
(deftest misc.253a |
4502 |
nil |
nil |
4503 |
'(lambda (c) |
'(lambda (c) |
4504 |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 2) |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 2) |
4505 |
(compilation-speed 1))) |
(compilation-speed 1))) |
4506 |
(labels ((%f1 (f1-1 f1-2) |
(labels ((%f1 (f1-1 f1-2) |
4507 |
(isqrt (abs (complex f1-1 0))))) |
(isqrt (abs (complex f1-1 0))))) |
4508 |
(progn |
(progn |
4509 |
(/ |
(/ |
4510 |
(multiple-value-call #'%f1 |
(multiple-value-call #'%f1 |
4511 |
(values (1- (restart-bind nil 1416182210)) |
(values (1- (restart-bind nil 1416182210)) |
4512 |
123337746)) |
123337746)) |
4513 |
1) |
1) |
4514 |
(tagbody) |
(tagbody) |
4515 |
c)))) |
c)))) |
4516 |
-34661) |
-34661) |
4517 |
-34661) |
-34661) |
4518 |
|
|
4525 |
(declare (type (integer -5241 -1159) a)) |
(declare (type (integer -5241 -1159) a)) |
4526 |
(declare (optimize (speed 3) (space 2) (safety 0) (debug 3) (compilation-speed 1))) |
(declare (optimize (speed 3) (space 2) (safety 0) (debug 3) (compilation-speed 1))) |
4527 |
(gcd a |
(gcd a |
4528 |
(let ((*misc.254* (setq a -4929))) ;; special variable |
(let ((*misc.254* (setq a -4929))) ;; special variable |
4529 |
(declare (special *misc.254*)) |
(declare (special *misc.254*)) |
4530 |
0)))) |
0)))) |
4531 |
-3000) |
-3000) |
4532 |
3000) |
3000) |
4533 |
|
|
4539 |
(declare (type (integer -3474321 15089206) b)) |
(declare (type (integer -3474321 15089206) b)) |
4540 |
(declare (optimize (speed 3) (space 3) (safety 3) (debug 3) (compilation-speed 0))) |
(declare (optimize (speed 3) (space 3) (safety 3) (debug 3) (compilation-speed 0))) |
4541 |
(- b |
(- b |
4542 |
(block b3 |
(block b3 |
4543 |
(setq b 9367613) |
(setq b 9367613) |
4544 |
0)))) |
0)))) |
4545 |
10) |
10) |
4546 |
10) |
10) |
4547 |
|
|
4569 |
(declare (optimize (speed 1) (space 2) (safety 3) (debug 3) (compilation-speed 1))) |
(declare (optimize (speed 1) (space 2) (safety 3) (debug 3) (compilation-speed 1))) |
4570 |
(declare (special b)) |
(declare (special b)) |
4571 |
(tagbody (flet ((%f1 (f1-1) |
(tagbody (flet ((%f1 (f1-1) |
4572 |
(flet ((%f9 (&optional (f9-1 b) (f9-2 (go tag2)) (f9-3 0)) 0)) |
(flet ((%f9 (&optional (f9-1 b) (f9-2 (go tag2)) (f9-3 0)) 0)) |
4573 |
(%f9 0 0 0)))) |
(%f9 0 0 0)))) |
4574 |
(%f1 0)) |
(%f1 0)) |
4575 |
tag2)))) |
tag2)))) |
4576 |
nil) |
nil) |
4577 |
|
|
4578 |
;;; clisp (26 Dec 2003) |
;;; clisp (26 Dec 2003) |
4601 |
'(lambda (a) |
'(lambda (a) |
4602 |
(declare (type (integer 177547470 226026978) a)) |
(declare (type (integer 177547470 226026978) a)) |
4603 |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 0) |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 0) |
4604 |
(compilation-speed 1))) |
(compilation-speed 1))) |
4605 |
(logand a (* a 438810)))) |
(logand a (* a 438810)))) |
4606 |
215067723) |
215067723) |
4607 |
13739018) |
13739018) |
4613 |
'(lambda (a) |
'(lambda (a) |
4614 |
(declare (type (integer 43369342 45325981) a)) |
(declare (type (integer 43369342 45325981) a)) |
4615 |
(declare (optimize (speed 2) (space 0) (safety 2) |
(declare (optimize (speed 2) (space 0) (safety 2) |
4616 |
(debug 0) (compilation-speed 3))) |
(debug 0) (compilation-speed 3))) |
4617 |
(logand 0 (* 5459177 a)))) |
(logand 0 (* 5459177 a)))) |
4618 |
44219966) |
44219966) |
4619 |
0) |
0) |
4620 |
|
|
4625 |
'(lambda (b) |
'(lambda (b) |
4626 |
(declare (type (integer 379442022 806547932) b)) |
(declare (type (integer 379442022 806547932) b)) |
4627 |
(declare (optimize (speed 2) (space 0) (safety 0) |
(declare (optimize (speed 2) (space 0) (safety 0) |
4628 |
(debug 3) (compilation-speed 2))) |
(debug 3) (compilation-speed 2))) |
4629 |
(logand b (* 227 b)))) |
(logand b (* 227 b)))) |
4630 |
551173513) |
551173513) |
4631 |
545263625) |
545263625) |
4637 |
'(lambda (a) |
'(lambda (a) |
4638 |
(declare (type (integer 515644 54674673) a)) |
(declare (type (integer 515644 54674673) a)) |
4639 |
(declare (optimize (speed 3) (space 2) (safety 3) |
(declare (optimize (speed 3) (space 2) (safety 3) |
4640 |
(debug 0) (compilation-speed 1))) |
(debug 0) (compilation-speed 1))) |
4641 |
(mask-field (byte 0 0) (* 613783109 a)))) |
(mask-field (byte 0 0) (* 613783109 a)))) |
4642 |
28831407) |
28831407) |
4643 |
0) |
0) |
4649 |
'(lambda (a) |
'(lambda (a) |
4650 |
(declare (type (integer 862944 60462138) a)) |
(declare (type (integer 862944 60462138) a)) |
4651 |
(declare (optimize (speed 3) (space 3) (safety 0) |
(declare (optimize (speed 3) (space 3) (safety 0) |
4652 |
(debug 1) (compilation-speed 1))) |
(debug 1) (compilation-speed 1))) |
4653 |
(logandc2 0 (* a 18094747)))) |
(logandc2 0 (* a 18094747)))) |
4654 |
36157847) |
36157847) |
4655 |
0) |
0) |
4661 |
'(lambda (a) |
'(lambda (a) |
4662 |
(declare (type (integer 896520522 1249309734) a)) |
(declare (type (integer 896520522 1249309734) a)) |
4663 |
(declare (optimize (speed 3) (space 3) (safety 1) |
(declare (optimize (speed 3) (space 3) (safety 1) |
4664 |
(debug 1) (compilation-speed 2))) |
(debug 1) (compilation-speed 2))) |
4665 |
(lognand 0 (* a 1381212086)))) |
(lognand 0 (* a 1381212086)))) |
4666 |
1202966173) |
1202966173) |
4667 |
-1) |
-1) |
4677 |
'(lambda (a) |
'(lambda (a) |
4678 |
(declare (type (integer -19621 11895) a)) |
(declare (type (integer -19621 11895) a)) |
4679 |
(declare (optimize (speed 3) (space 2) (safety 3) |
(declare (optimize (speed 3) (space 2) (safety 3) |
4680 |
(debug 3) (compilation-speed 3))) |
(debug 3) (compilation-speed 3))) |
4681 |
(* 0 a 103754))) |
(* 0 a 103754))) |
4682 |
1) |
1) |
4683 |
0) |
0) |
4692 |
nil |
nil |
4693 |
'(lambda () |
'(lambda () |
4694 |
(tagbody |
(tagbody |
4695 |
(flet ((%f (x) :bad)) (multiple-value-call #'%f (go done))) |
(flet ((%f (x) :bad)) (multiple-value-call #'%f (go done))) |
4696 |
done)))) |
done)))) |
4697 |
nil) |
nil) |
4698 |
|
|
4699 |
(deftest misc.266a |
(deftest misc.266a |
4703 |
'(lambda (b) |
'(lambda (b) |
4704 |
(declare (type (integer -14356828946432 -24266) b)) |
(declare (type (integer -14356828946432 -24266) b)) |
4705 |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 3) |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 3) |
4706 |
(compilation-speed 2))) |
(compilation-speed 2))) |
4707 |
(progn (tagbody (unwind-protect 0 (go 3)) 3) b))) |
(progn (tagbody (unwind-protect 0 (go 3)) 3) b))) |
4708 |
-30000) |
-30000) |
4709 |
-30000) |
-30000) |
4715 |
nil |
nil |
4716 |
'(lambda (b) |
'(lambda (b) |
4717 |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 0) |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 0) |
4718 |
(compilation-speed 0))) |
(compilation-speed 0))) |
4719 |
(unwind-protect 0 (catch 'ct7 (prog1 b 0))))) |
(unwind-protect 0 (catch 'ct7 (prog1 b 0))))) |
4720 |
1) |
1) |
4721 |
0) |
0) |
4724 |
|
|
4725 |
(deftest misc.267 |
(deftest misc.267 |
4726 |
(locally (declare (special *s5*)) |
(locally (declare (special *s5*)) |
4727 |
(let ((v8 (progv '(*s5*) (list 0) (if t *s5* *s5*)))) |
(let ((v8 (progv '(*s5*) (list 0) (if t *s5* *s5*)))) |
4728 |
v8)) |
v8)) |
4729 |
0) |
0) |
4730 |
|
|
4731 |
(deftest misc.267a |
(deftest misc.267a |
4738 |
nil |
nil |
4739 |
'(lambda () |
'(lambda () |
4740 |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 2) |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 2) |
4741 |
(compilation-speed 2))) |
(compilation-speed 2))) |
4742 |
(catch 'ct7 |
(catch 'ct7 |
4743 |
(rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955)))))) |
(rationalize (let ((v9 (1+ (throw 'ct7 0)))) 48955)))))) |
4744 |
0) |
0) |
4745 |
|
|
4746 |
(deftest misc.269 |
(deftest misc.269 |
4750 |
'(lambda (a) |
'(lambda (a) |
4751 |
(declare (type (integer -1 20) a)) |
(declare (type (integer -1 20) a)) |
4752 |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 2) |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 2) |
4753 |
(compilation-speed 3))) |
(compilation-speed 3))) |
4754 |
(if (if a (logbitp 34 a) nil) 0 -230678))) |
(if (if a (logbitp 34 a) nil) 0 -230678))) |
4755 |
14) |
14) |
4756 |
-230678) |
-230678) |
4773 |
nil |
nil |
4774 |
'(lambda () |
'(lambda () |
4775 |
(declare (optimize (speed 3) (space 1) (safety 0) (debug 3) |
(declare (optimize (speed 3) (space 1) (safety 0) (debug 3) |
4776 |
(compilation-speed 2))) |
(compilation-speed 2))) |
4777 |
(flet ((%f17 (f17-1) 1)) |
(flet ((%f17 (f17-1) 1)) |
4778 |
(multiple-value-call #'%f17 (values (floor 0))))))) |
(multiple-value-call #'%f17 (values (floor 0))))))) |
4779 |
1) |
1) |
4780 |
|
|
4781 |
;;; clisp (10 jan 2004) |
;;; clisp (10 jan 2004) |
4810 |
nil |
nil |
4811 |
'(lambda () |
'(lambda () |
4812 |
(declare |
(declare |
4813 |
(optimize (speed 2) |
(optimize (speed 2) |
4814 |
(space 2) |
(space 2) |
4815 |
(safety 1) |
(safety 1) |
4816 |
(debug 2) |
(debug 2) |
4817 |
(compilation-speed 0))) |
(compilation-speed 0))) |
4818 |
(multiple-value-prog1 |
(multiple-value-prog1 |
4819 |
(ignore-errors 0) |
(ignore-errors 0) |
4820 |
0 |
0 |
4821 |
(catch 'ct7 0) |
(catch 'ct7 0) |
4822 |
(catch 'ct1 |
(catch 'ct1 |
4823 |
(catch 'ct4 |
(catch 'ct4 |
4824 |
(complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0))))))) |
(complex (throw 'ct4 (dotimes (iv4 0 0) (throw 'ct1 0))) 0))))))) |
4825 |
0) |
0) |
4826 |
|
|
4827 |
(deftest misc.274a |
(deftest misc.274a |
4830 |
nil |
nil |
4831 |
'(lambda () |
'(lambda () |
4832 |
(declare (optimize (speed 3) (space 1) (safety 3) |
(declare (optimize (speed 3) (space 1) (safety 3) |
4833 |
(debug 1) (compilation-speed 3))) |
(debug 1) (compilation-speed 3))) |
4834 |
(dotimes (iv4 3 0) |
(dotimes (iv4 3 0) |
4835 |
(apply (constantly 0) |
(apply (constantly 0) |
4836 |
0 |
0 |
4848 |
'(lambda (b) |
'(lambda (b) |
4849 |
(declare (notinline funcall min coerce)) |
(declare (notinline funcall min coerce)) |
4850 |
(declare |
(declare |
4851 |
(optimize (speed 1) |
(optimize (speed 1) |
4852 |
(space 2) |
(space 2) |
4853 |
(safety 2) |
(safety 2) |
4854 |
(debug 1) |
(debug 1) |
4855 |
(compilation-speed 1))) |
(compilation-speed 1))) |
4856 |
(flet ((%f12 (f12-1) |
(flet ((%f12 (f12-1) |
4857 |
(coerce |
(coerce |
4858 |
(min |
(min |
4859 |
(if f12-1 (multiple-value-prog1 |
(if f12-1 (multiple-value-prog1 |
4860 |
b (return-from %f12 0)) |
b (return-from %f12 0)) |
4861 |
0)) |
0)) |
4862 |
'integer))) |
'integer))) |
4863 |
(funcall #'%f12 0)))) |
(funcall #'%f12 0)))) |
4864 |
-33) |
-33) |
4865 |
0) |
0) |
4866 |
|
|
4870 |
nil |
nil |
4871 |
'(lambda () |
'(lambda () |
4872 |
(declare (optimize (speed 2) (space 0) (safety 2) |
(declare (optimize (speed 2) (space 0) (safety 2) |
4873 |
(debug 1) (compilation-speed 1))) |
(debug 1) (compilation-speed 1))) |
4874 |
(block b4 |
(block b4 |
4875 |
(coerce |
(coerce |
4876 |
(logcount |
(logcount |
4877 |
(if t 0 (multiple-value-prog1 (identity 0) (return-from b4 0)))) |
(if t 0 (multiple-value-prog1 (identity 0) (return-from b4 0)))) |
4878 |
'integer))))) |
'integer))))) |
4879 |
0) |
0) |
4880 |
|
|
4881 |
;;; clisp (28 Jan 2004) |
;;; clisp (28 Jan 2004) |
4887 |
nil |
nil |
4888 |
`(lambda (b) |
`(lambda (b) |
4889 |
(declare (optimize (speed 2) (space 0) (safety 0) |
(declare (optimize (speed 2) (space 0) (safety 0) |
4890 |
(debug 3) (compilation-speed 3))) |
(debug 3) (compilation-speed 3))) |
4891 |
(labels |
(labels |
4892 |
((%f2 () |
((%f2 () |
4893 |
(let ((v10 (progn (dotimes (iv2 0 0) iv2) |
(let ((v10 (progn (dotimes (iv2 0 0) iv2) |
4894 |
b))) |
b))) |
4895 |
(unwind-protect b (labels ((%f6 ())) (%f6)) |
(unwind-protect b (labels ((%f6 ())) (%f6)) |
4896 |
)))) |
)))) |
4897 |
(%f2)))) |
(%f2)))) |
4898 |
:good) |
:good) |
4899 |
:good) |
:good) |
4900 |
|
|
4907 |
nil |
nil |
4908 |
'(lambda () |
'(lambda () |
4909 |
(declare (optimize (speed 3) (space 1) (safety 0) |
(declare (optimize (speed 3) (space 1) (safety 0) |
4910 |
(debug 3) (compilation-speed 0))) |
(debug 3) (compilation-speed 0))) |
4911 |
(labels ((%f15 (&optional (f15-3 |
(labels ((%f15 (&optional (f15-3 |
4912 |
(tagbody (labels ((%f6 () (go tag1))) (%f6)) tag1))) |
(tagbody (labels ((%f6 () (go tag1))) (%f6)) tag1))) |
4913 |
0)) |
0)) |
4914 |
(%f15))))) |
(%f15))))) |
4915 |
0) |
0) |
4916 |
|
|
4917 |
;;; incorrect return value |
;;; incorrect return value |
4921 |
nil |
nil |
4922 |
'(lambda () |
'(lambda () |
4923 |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 3) |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 3) |
4924 |
(compilation-speed 0))) |
(compilation-speed 0))) |
4925 |
(catch 'ct5 (flet ((%f2 (&optional (f2-4 (throw 'ct5 0))) 1)) |
(catch 'ct5 (flet ((%f2 (&optional (f2-4 (throw 'ct5 0))) 1)) |
4926 |
(%f2 (%f2 0))))))) |
(%f2 (%f2 0))))))) |
4927 |
1) |
1) |
4928 |
|
|
4929 |
;;; incorrect return value |
;;; incorrect return value |
4934 |
'(lambda () |
'(lambda () |
4935 |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 0) (compilation-speed 3))) |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 0) (compilation-speed 3))) |
4936 |
(flet ((%f10 () |
(flet ((%f10 () |
4937 |
(if (< 0 (dotimes (iv2 1 -501162))) |
(if (< 0 (dotimes (iv2 1 -501162))) |
4938 |
0 -14))) |
0 -14))) |
4939 |
(%f10))))) |
(%f10))))) |
4940 |
-14) |
-14) |
4941 |
|
|
4942 |
;;; incorrect return value (may be same bug as misc.278) |
;;; incorrect return value (may be same bug as misc.278) |
4947 |
'(lambda (a) |
'(lambda (a) |
4948 |
(declare (optimize (speed 1) (space 3) (safety 1) (debug 3) (compilation-speed 2))) |
(declare (optimize (speed 1) (space 3) (safety 1) (debug 3) (compilation-speed 2))) |
4949 |
(catch 'ct6 |
(catch 'ct6 |
4950 |
(labels ((%f12 () |
(labels ((%f12 () |
4951 |
(labels ((%f14 (&optional (f14-3 (return-from %f12 5))) 4)) |
(labels ((%f14 (&optional (f14-3 (return-from %f12 5))) 4)) |
4952 |
(funcall (constantly 3) |
(funcall (constantly 3) |
4953 |
(let ((v2 (%f14))) 2) |
(let ((v2 (%f14))) 2) |
4954 |
(throw 'ct6 1) |
(throw 'ct6 1) |
4955 |
)))) |
)))) |
4956 |
(%f12) |
(%f12) |
4957 |
a)))) |
a)))) |
4958 |
:good) |
:good) |
4959 |
:good) |
:good) |
4960 |
|
|
4972 |
;;; gcl: Error in COMPILER::CMP-ANON [or a callee]: The function COMPILER::LDB1 is undefined. |
;;; gcl: Error in COMPILER::CMP-ANON [or a callee]: The function COMPILER::LDB1 is undefined. |
4973 |
(deftest misc.282 |
(deftest misc.282 |
4974 |
(funcall (compile nil '(lambda () (declare (optimize safety)) |
(funcall (compile nil '(lambda () (declare (optimize safety)) |
4975 |
(ldb (byte 13 13) 43710)))) |
(ldb (byte 13 13) 43710)))) |
4976 |
5) |
5) |
4977 |
|
|
4978 |
;;; gcl (2/28/2004) |
;;; gcl (2/28/2004) |
5005 |
(compilation-speed 2))) |
(compilation-speed 2))) |
5006 |
(progn |
(progn |
5007 |
(tagbody |
(tagbody |
5008 |
(multiple-value-prog1 0 (go tag2)) |
(multiple-value-prog1 0 (go tag2)) |
5009 |
0 |
0 |
5010 |
tag2) |
tag2) |
5011 |
(funcall (constantly 0) |
(funcall (constantly 0) |
5021 |
nil |
nil |
5022 |
'(lambda (a) |
'(lambda (a) |
5023 |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 2) |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 2) |
5024 |
(compilation-speed 3))) |
(compilation-speed 3))) |
5025 |
(block b7 (let* ((v1 (* (return-from b7 0) a))) -4359852)))) |
(block b7 (let* ((v1 (* (return-from b7 0) a))) -4359852)))) |
5026 |
1) |
1) |
5027 |
0) |
0) |
5042 |
(flet ((%f11 (f11-2) 0)) |
(flet ((%f11 (f11-2) 0)) |
5043 |
(%f11 (unwind-protect |
(%f11 (unwind-protect |
5044 |
e |
e |
5045 |
(tagbody |
(tagbody |
5046 |
(let* ((v4 (unwind-protect (go 0)))) 0) |
(let* ((v4 (unwind-protect (go 0)))) 0) |
5047 |
0) |
0) |
5048 |
(logand (handler-bind () 0))))))) |
(logand (handler-bind () 0))))))) |
5052 |
#| |
#| |
5053 |
ecl (6 Mar 2004) |
ecl (6 Mar 2004) |
5054 |
(LAMBDA (C::LOC1 C::LOC2) (IF (AND (CONSP C::LOC1) |
(LAMBDA (C::LOC1 C::LOC2) (IF (AND (CONSP C::LOC1) |
5055 |
(EQ (CAR C::LOC1) 'FIXNUM) |
(EQ (CAR C::LOC1) 'FIXNUM) |
5056 |
(CONSP (CADR C::LOC1)) |
(CONSP (CADR C::LOC1)) |
5057 |
(EQ (CAADR C::LOC1) 'C::FIXNUM-VALUE) |
(EQ (CAADR C::LOC1) 'C::FIXNUM-VALUE) |
5058 |
(EQ (CADR (CADR C::LOC1)) 2)) |
(EQ (CADR (CADR C::LOC1)) 2)) |
5059 |
(PROGN (C::WT1 "(1<<(") |
(PROGN (C::WT1 "(1<<(") |
5060 |
(C::WT1 C::LOC2) (C::WT1 "))")) |
(C::WT1 C::LOC2) (C::WT1 "))")) |
5061 |
(PROGN (C::WT1 "fixnum_expt(") |
(PROGN (C::WT1 "fixnum_expt(") |
5062 |
(C::WT1 C::LOC1) |
(C::WT1 C::LOC1) |
5063 |
(C::WT1 #\,) |
(C::WT1 #\,) |
5064 |
(C::WT1 C::LOC2) |
(C::WT1 C::LOC2) |
5065 |
(C::WT1 #\))))) |
(C::WT1 #\))))) |
5066 |
is not of type STRING. |
is not of type STRING. |
5067 |
Broken at C::WT-C-INLINE-LOC. |
Broken at C::WT-C-INLINE-LOC. |
5068 |
|# |
|# |
5087 |
nil |
nil |
5088 |
'(lambda (b) |
'(lambda (b) |
5089 |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 2) |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 2) |
5090 |
(compilation-speed 2))) |
(compilation-speed 2))) |
5091 |
(multiple-value-prog1 (apply (constantly 0) b 0 0 nil) |
(multiple-value-prog1 (apply (constantly 0) b 0 0 nil) |
5092 |
(catch 'ct8 (throw 'ct8 -2))))) |
(catch 'ct8 (throw 'ct8 -2))))) |
5093 |
1) |
1) |
5094 |
0) |
0) |
5095 |
|
|
5102 |
nil |
nil |
5103 |
'(lambda () |
'(lambda () |
5104 |
(declare |
(declare |
5105 |
(optimize (speed 3) (space 3) (safety 1) |
(optimize (speed 3) (space 3) (safety 1) |
5106 |
(debug 2) (compilation-speed 0))) |
(debug 2) (compilation-speed 0))) |
5107 |
(apply (constantly 0) (catch 'ct2 0) 0 (catch 'ct2 0) nil)))) |
(apply (constantly 0) (catch 'ct2 0) 0 (catch 'ct2 0) nil)))) |
5108 |
0) |
0) |
5109 |
|
|
5130 |
#'(lambda (a) |
#'(lambda (a) |
5131 |
(declare (notinline numerator)) |
(declare (notinline numerator)) |
5132 |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 0) |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 0) |
5133 |
(compilation-speed 2))) |
(compilation-speed 2))) |
5134 |
(tagbody (tagbody (progn a) tag) |
(tagbody (tagbody (progn a) tag) |
5135 |
(go tag) |
(go tag) |
5136 |
tag)) |
tag)) |
5137 |
17) |
17) |
5138 |
nil) |
nil) |
5139 |
|
|
5146 |
nil |
nil |
5147 |
'(lambda (a b c) |
'(lambda (a b c) |
5148 |
(declare |
(declare |
5149 |
(optimize (speed 3) (space 2) (safety 3) (debug 0) |
(optimize (speed 3) (space 2) (safety 3) (debug 0) |
5150 |
(compilation-speed 1))) |
(compilation-speed 1))) |
5151 |
(flet ((%f15 (f15-1 f15-2 f15-3) |
(flet ((%f15 (f15-1 f15-2 f15-3) |
5152 |
(apply (constantly 0) |
(apply (constantly 0) |
5153 |
0 |
0 |
5154 |
0 |
0 |
5155 |
(ignore-errors |
(ignore-errors |
5156 |
(let ((v10 (apply (constantly 0) |
(let ((v10 (apply (constantly 0) |
5157 |
b a (max 0 c) nil))) |
b a (max 0 c) nil))) |
5158 |
0)) |
0)) |
5159 |
nil))) |
nil))) |
5160 |
(flet ((%f14 (f14-1 &optional (f14-2 b) (f14-3 0) (f14-4 0)) |
(flet ((%f14 (f14-1 &optional (f14-2 b) (f14-3 0) (f14-4 0)) |
5161 |
(%f15 0 0 b))) |
(%f15 0 0 b))) |
5162 |
(%f14 0 c))))) |
(%f14 0 c))))) |
5163 |
1 2 3) |
1 2 3) |
5164 |
0) |
0) |
5165 |
|
|
5169 |
nil |
nil |
5170 |
'(lambda (a b) |
'(lambda (a b) |
5171 |
(declare (optimize (speed 2) (space 0) (safety 3) (debug 1) |
(declare (optimize (speed 2) (space 0) (safety 3) (debug 1) |
5172 |
(compilation-speed 2))) |
(compilation-speed 2))) |
5173 |
(apply (constantly 0) |
(apply (constantly 0) |
5174 |
a |
a |
5175 |
0 |
0 |
5176 |
(catch 'ct6 |
(catch 'ct6 |
5177 |
(apply (constantly 0) |
(apply (constantly 0) |
5178 |
0 |
0 |
5179 |
0 |
0 |
5180 |
(let* ((v1 |
(let* ((v1 |
5181 |
(let ((*s7* 0)) |
(let ((*s7* 0)) |
5182 |
b))) |
b))) |
5183 |
0) |
0) |
5184 |
0 |
0 |
5185 |
nil)) |
nil)) |
5186 |
0 |
0 |
5187 |
nil))) |
nil))) |
5188 |
1 2) |
1 2) |
5189 |
0) |
0) |
5190 |
|
|
5196 |
nil |
nil |
5197 |
'(lambda (a) |
'(lambda (a) |
5198 |
(declare (optimize (speed 2) (space 1) (safety 3) (debug 3) |
(declare (optimize (speed 2) (space 1) (safety 3) (debug 3) |
5199 |
(compilation-speed 3))) |
(compilation-speed 3))) |
5200 |
(let ((v6 |
(let ((v6 |
5201 |
(labels ((%f9 (f9-1) |
(labels ((%f9 (f9-1) |
5202 |
(multiple-value-prog1 0 (return-from %f9 0) a))) |
(multiple-value-prog1 0 (return-from %f9 0) a))) |
5203 |
(let ((*s4* (%f9 0))) |
(let ((*s4* (%f9 0))) |
5204 |
0)))) |
0)))) |
5205 |
0))) |
0))) |
5206 |
1) |
1) |
5207 |
0) |
0) |
5208 |
|
|
5212 |
nil |
nil |
5213 |
'(lambda (a b c) |
'(lambda (a b c) |
5214 |
(declare (optimize (speed 2) (space 3) (safety 1) |
(declare (optimize (speed 2) (space 3) (safety 1) |
5215 |
(debug 2) (compilation-speed 2))) |
(debug 2) (compilation-speed 2))) |
5216 |
(block b6 |
(block b6 |
5217 |
(multiple-value-prog1 |
(multiple-value-prog1 |
5218 |
0 b 0 |
0 b 0 |
5219 |
(catch 'ct7 |
(catch 'ct7 |
5220 |
(return-from b6 |
(return-from b6 |
5221 |
(catch 'ct2 |
(catch 'ct2 |
5222 |
(complex (cl::handler-bind nil -254932942) 0)))))))) |
(complex (cl::handler-bind nil -254932942) 0)))))))) |
5223 |
1 2 3) |
1 2 3) |
5224 |
-254932942) |
-254932942) |
5225 |
|
|
5230 |
'(lambda () |
'(lambda () |
5231 |
(declare (notinline complex)) |
(declare (notinline complex)) |
5232 |
(declare (optimize (speed 1) (space 0) (safety 1) |
(declare (optimize (speed 1) (space 0) (safety 1) |
5233 |
(debug 3) (compilation-speed 3))) |
(debug 3) (compilation-speed 3))) |
5234 |
(flet ((%f () (multiple-value-prog1 0 (return-from %f 0)))) |
(flet ((%f () (multiple-value-prog1 0 (return-from %f 0)))) |
5235 |
(complex (%f) 0))))) |
(complex (%f) 0))))) |
5236 |
0) |
0) |
5237 |
|
|
5238 |
(deftest misc.293c |
(deftest misc.293c |
5250 |
(debug 2) |
(debug 2) |
5251 |
(speed 0) |
(speed 0) |
5252 |
#+sbcl (sb-c:insert-step-conditions 0) |
#+sbcl (sb-c:insert-step-conditions 0) |
5253 |
)) |
)) |
5254 |
(block b4 |
(block b4 |
5255 |
(multiple-value-prog1 0 |
(multiple-value-prog1 0 |
5256 |
(catch 'ct7 (return-from b4 (catch 'ct6 (if a 0 b)))) |
(catch 'ct7 (return-from b4 (catch 'ct6 (if a 0 b)))) |
5268 |
'(lambda (a b c) |
'(lambda (a b c) |
5269 |
(declare (notinline /=)) |
(declare (notinline /=)) |
5270 |
(declare (optimize (speed 2) (space 0) (safety 1) |
(declare (optimize (speed 2) (space 0) (safety 1) |
5271 |
(debug 0)(compilation-speed 1))) |
(debug 0)(compilation-speed 1))) |
5272 |
(catch 'ct1 |
(catch 'ct1 |
5273 |
(flet ((%f1 (f1-1 f1-2 f1-3) |
(flet ((%f1 (f1-1 f1-2 f1-3) |
5274 |
(throw 'ct1 |
(throw 'ct1 |
5275 |
(if (/= 0) 0 (multiple-value-prog1 |
(if (/= 0) 0 (multiple-value-prog1 |
5276 |
0 (throw 'ct1 a) c))))) |
0 (throw 'ct1 a) c))))) |
5277 |
(let ((*s3* (%f1 a a 0))) |
(let ((*s3* (%f1 a a 0))) |
5278 |
0))))) |
0))))) |
5279 |
1 2 3) |
1 2 3) |
5286 |
'(lambda (a b c) |
'(lambda (a b c) |
5287 |
(declare (notinline expt)) |
(declare (notinline expt)) |
5288 |
(declare (optimize (speed 1) (space 2) (safety 3) |
(declare (optimize (speed 1) (space 2) (safety 3) |
5289 |
(debug 0) (compilation-speed 0))) |
(debug 0) (compilation-speed 0))) |
5290 |
(catch 'ct2 |
(catch 'ct2 |
5291 |
(expt |
(expt |
5292 |
(catch 'ct2 |
(catch 'ct2 |
5293 |
(throw 'ct2 (if a 0 (multiple-value-prog1 0 (throw 'ct2 c) 0)))) |
(throw 'ct2 (if a 0 (multiple-value-prog1 0 (throw 'ct2 c) 0)))) |
5294 |
0)))) |
0)))) |
5295 |
1 2 3) |
1 2 3) |
5296 |
1) |
1) |
5297 |
|
|
5307 |
(declare (type (integer -4717708 795706) c)) |
(declare (type (integer -4717708 795706) c)) |
5308 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
5309 |
(declare |
(declare |
5310 |
(optimize (speed 1) |
(optimize (speed 1) |
5311 |
(space 0) |
(space 0) |
5312 |
(safety 2) |
(safety 2) |
5313 |
(debug 1) |
(debug 1) |
5314 |
(compilation-speed 2))) |
(compilation-speed 2))) |
5315 |
(multiple-value-prog1 |
(multiple-value-prog1 |
5316 |
(the integer |
(the integer |
5317 |
(catch 'ct8 |
(catch 'ct8 |
5318 |
(catch 'ct5 |
(catch 'ct5 |
5319 |
(catch 'ct7 |
(catch 'ct7 |
5320 |
(flet ((%f3 (f3-1 f3-2 &optional (f3-3 a) (f3-4 c)) b)) |
(flet ((%f3 (f3-1 f3-2 &optional (f3-3 a) (f3-4 c)) b)) |
5321 |
(labels ((%f13 (f13-1 f13-2 f13-3) |
(labels ((%f13 (f13-1 f13-2 f13-3) |
5322 |
(let* ((*s4* |
(let* ((*s4* |
5323 |
(return-from %f13 |
(return-from %f13 |
5324 |
(flet ((%f18 (f18-1 f18-2) |
(flet ((%f18 (f18-1 f18-2) |
5325 |
(apply #'%f3 |
(apply #'%f3 |
5326 |
(progv nil nil f13-2) |
(progv nil nil f13-2) |
5327 |
(list (%f3 -460 f18-1 10095 352819651))))) |
(list (%f3 -460 f18-1 10095 352819651))))) |
5328 |
(flet ((%f5 () |
(flet ((%f5 () |
5329 |
(funcall #'%f3 |
(funcall #'%f3 |
5330 |
f13-2 |
f13-2 |
5331 |
(flet ((%f14 (f14-1 f14-2 &optional (f14-3 f13-2) (f14-4 -15)) |
(flet ((%f14 (f14-1 f14-2 &optional (f14-3 f13-2) (f14-4 -15)) |
5332 |
160080387)) |
160080387)) |
5333 |
-196377) |
-196377) |
5334 |
(isqrt |
(isqrt |
5335 |
(abs |
(abs |
5336 |
(if (/= 117 (%f18 -14 -46574)) |
(if (/= 117 (%f18 -14 -46574)) |
5337 |
(return-from |
(return-from |
5338 |
%f13 |
%f13 |
5339 |
(ignore-errors |
(ignore-errors |
5340 |
(flet ((%f12 (f12-1 f12-2 &optional (f12-3 740148786) |
(flet ((%f12 (f12-1 f12-2 &optional (f12-3 740148786) |
5341 |
(f12-4 -20) |
(f12-4 -20) |
5342 |
(f12-5 -35261)) |
(f12-5 -35261)) |
5343 |
f12-3)) |
f12-3)) |
5344 |
(%f3 |
(%f3 |
5345 |
(%f3 b (%f12 c b f13-3 f13-1 -1124)) |
(%f3 b (%f12 c b f13-3 f13-1 -1124)) |
5346 |
0 |
0 |
5347 |
-1003264058 |
-1003264058 |
5348 |
f13-1)))) |
f13-1)))) |
5349 |
(block b3 (labels ((%f15 () f13-2)) -4858377))))) |
(block b3 (labels ((%f15 () f13-2)) -4858377))))) |
5350 |
(%f3 793 f13-2 f13-3 a)))) |
(%f3 793 f13-2 f13-3 a)))) |
5351 |
f13-3))))) |
f13-3))))) |
5352 |
(* -420793 |
(* -420793 |
5353 |
(%f3 (%f3 f13-1 f13-3 f13-3 f13-2) 0 8604 f13-1))))) |
(%f3 (%f3 f13-1 f13-3 f13-3 f13-2) 0 8604 f13-1))))) |
5354 |
(lognor |
(lognor |
5355 |
(progv nil nil |
(progv nil nil |
5356 |
(if (< -16 c) |
(if (< -16 c) |
5357 |
15867134 |
15867134 |
5358 |
(- |
(- |
5359 |
(throw 'ct5 |
(throw 'ct5 |
5360 |
(prog1 7 |
(prog1 7 |
5361 |
(floor |
(floor |
5362 |
(max (%f13 -4862 -888 -53824112) a -17974 1540006) |
(max (%f13 -4862 -888 -53824112) a -17974 1540006) |
5363 |
(min -74 -473379))))))) |
(min -74 -473379))))))) |
5364 |
(progv nil nil (prog1 b 22 c a))))))))) |
(progv nil nil (prog1 b 22 c a))))))))) |
5365 |
(catch 'ct1 (throw 'ct1 0)) |
(catch 'ct1 (throw 'ct1 0)) |
5366 |
0))) |
0))) |
5367 |
794801 211700 -1246335) |
794801 211700 -1246335) |
5368 |
7) |
7) |
5369 |
|
|
6070 |
nil |
nil |
6071 |
'(lambda (a c) |
'(lambda (a c) |
6072 |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 2) |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 2) |
6073 |
(compilation-speed 0))) |
(compilation-speed 0))) |
6074 |
(unwind-protect |
(unwind-protect |
6075 |
0 |
0 |
6076 |
(progn (tagbody (bit #*000000111 (min 8 (max 0 a))) |
(progn (tagbody (bit #*000000111 (min 8 (max 0 a))) |
6077 |
tag5 (flet ((%f17 (f17-1 f17-2 f17-3) |
tag5 (flet ((%f17 (f17-1 f17-2 f17-3) |
6078 |
(complex (numerator (go tag4)) 0))) |
(complex (numerator (go tag4)) 0))) |
6079 |
c) |
c) |
6080 |
tag4) |
tag4) |
6081 |
c)))) |
c)))) |
6082 |
1 2) |
1 2) |
6083 |
0) |
0) |
6084 |
|
|
6091 |
nil |
nil |
6092 |
'(lambda () |
'(lambda () |
6093 |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 0) |
(declare (optimize (speed 1) (space 1) (safety 3) (debug 0) |
6094 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6095 |
(catch 'ct4 |
(catch 'ct4 |
6096 |
(elt '(40760) |
(elt '(40760) |
6097 |
(min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0)))))))) |
(min 0 (max 0 (let* ((v3 (* (throw 'ct4 0) 0))) 0)))))))) |
6098 |
0) |
0) |
6099 |
|
|
6100 |
;;; seg fault |
;;; seg fault |
6108 |
(declare (type (integer 99335934976 442465125376) c)) |
(declare (type (integer 99335934976 442465125376) c)) |
6109 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6110 |
(declare (optimize (speed 1) (space 1) (safety 1) (debug 0) |
(declare (optimize (speed 1) (space 1) (safety 1) (debug 0) |
6111 |
(compilation-speed 0))) |
(compilation-speed 0))) |
6112 |
(if (rationalize |
(if (rationalize |
6113 |
(labels ((%f12 (f12-1) |
(labels ((%f12 (f12-1) |
6114 |
(if c 0 |
(if c 0 |
6115 |
(bit #*101010011000011 |
(bit #*101010011000011 |
6116 |
(min 14 (max 0 0)))))) |
(min 14 (max 0 0)))))) |
6117 |
(if (> 0 c) 0 (%f12 0)))) |
(if (> 0 c) 0 (%f12 0)))) |
6118 |
(progn |
(progn |
6119 |
(expt (flet ((%f18 (f18-1 f18-2 &optional (f18-3 0) |
(expt (flet ((%f18 (f18-1 f18-2 &optional (f18-3 0) |
6120 |
(f18-4 c) (f18-5 b)) |
(f18-4 c) (f18-5 b)) |
6121 |
0)) |
0)) |
6122 |
(apply #'%f18 b b 0 0 nil)) |
(apply #'%f18 b b 0 0 nil)) |
6123 |
0) |
0) |
6124 |
a) |
a) |
6125 |
0))) |
0))) |
6126 |
10 1 99335934976) |
10 1 99335934976) |
6127 |
10) |
10) |
6128 |
|
|
6137 |
(declare (type (integer -746719 1431737508) c)) |
(declare (type (integer -746719 1431737508) c)) |
6138 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6139 |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 3) |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 3) |
6140 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6141 |
(if (logbitp 0 |
(if (logbitp 0 |
6142 |
(flet ((%f10 (f10-1 f10-2 f10-3) b)) |
(flet ((%f10 (f10-1 f10-2 f10-3) b)) |
6143 |
(flet ((%f4 (f4-1 f4-2) |
(flet ((%f4 (f4-1 f4-2) |
6144 |
(apply #'%f10 (%f10 0 a 0) 0 c nil))) |
(apply #'%f10 (%f10 0 a 0) 0 c nil))) |
6145 |
(complex (%f4 0 0) 0)))) |
(complex (%f4 0 0) 0)))) |
6146 |
0 0))) |
0 0))) |
6147 |
2378435476701 1646880 246794654) |
2378435476701 1646880 246794654) |
6148 |
0) |
0) |
6149 |
|
|
6156 |
nil |
nil |
6157 |
'(lambda () |
'(lambda () |
6158 |
(declare (optimize (speed 3) (space 0) (safety 2) |
(declare (optimize (speed 3) (space 0) (safety 2) |
6159 |
(debug 2) (compilation-speed 0))) |
(debug 2) (compilation-speed 0))) |
6160 |
(catch 'ct2 |
(catch 'ct2 |
6161 |
(elt '(102) |
(elt '(102) |
6162 |
(flet ((%f12 () (rem 0 -43))) |
(flet ((%f12 () (rem 0 -43))) |
6163 |
(multiple-value-call #'%f12 (values)))))))) |
(multiple-value-call #'%f12 (values)))))))) |
6164 |
102) |
102) |
6165 |
|
|
6166 |
(deftest misc.320a |
(deftest misc.320a |
6169 |
nil |
nil |
6170 |
'(lambda (b) |
'(lambda (b) |
6171 |
(declare (optimize (speed 3) (space 0) (safety 2) |
(declare (optimize (speed 3) (space 0) (safety 2) |
6172 |
(debug 2) (compilation-speed 0))) |
(debug 2) (compilation-speed 0))) |
6173 |
(reduce '* |
(reduce '* |
6174 |
(list (elt '(10 20 30 40 50) b) |
(list (elt '(10 20 30 40 50) b) |
6175 |
(expt (reduce #'(lambda (lmv1 lmv3) (mod lmv3 15)) |
(expt (reduce #'(lambda (lmv1 lmv3) (mod lmv3 15)) |
6176 |
(vector 0 0)) |
(vector 0 0)) |
6177 |
0) |
0) |
6178 |
(rem 0 -71)) |
(rem 0 -71)) |
6179 |
))) |
))) |
6180 |
2) |
2) |
6181 |
0) |
0) |
6182 |
|
|
6190 |
(declare (type (integer 445621505781 8489194559765) c)) |
(declare (type (integer 445621505781 8489194559765) c)) |
6191 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6192 |
(declare |
(declare |
6193 |
(optimize (speed 1) |
(optimize (speed 1) |
6194 |
(space 0) |
(space 0) |
6195 |
(safety 2) |
(safety 2) |
6196 |
(debug 3) |
(debug 3) |
6197 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6198 |
(elt '(3327764 3386241) |
(elt '(3327764 3386241) |
6199 |
(min 1 |
(min 1 |
6200 |
(max 0 |
(max 0 |
6201 |
(reduce #'(lambda (lmv6 lmv5) (mod 0 (min -86 0))) |
(reduce #'(lambda (lmv6 lmv5) (mod 0 (min -86 0))) |
6202 |
(list 0 0))))))) |
(list 0 0))))))) |
6203 |
-512398 -156405 1140919327630) |
-512398 -156405 1140919327630) |
6204 |
3327764) |
3327764) |
6205 |
|
|
6212 |
nil |
nil |
6213 |
'(lambda (p) |
'(lambda (p) |
6214 |
(declare (optimize (speed 1) (space 3) (safety 2) (debug 1) |
(declare (optimize (speed 1) (space 3) (safety 2) (debug 1) |
6215 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6216 |
(catch 'ct2 |
(catch 'ct2 |
6217 |
(let* ((v3 (- (if p (throw 'ct2 :good) 0)))) |
(let* ((v3 (- (if p (throw 'ct2 :good) 0)))) |
6218 |
:bad)))) |
:bad)))) |
6219 |
t) |
t) |
6220 |
:good) |
:good) |
6221 |
|
|
6226 |
nil |
nil |
6227 |
'(lambda (a) |
'(lambda (a) |
6228 |
(declare (optimize (speed 2) (space 2) (safety 0) (debug 3) |
(declare (optimize (speed 2) (space 2) (safety 0) (debug 3) |
6229 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6230 |
(logorc2 (labels ((%f14 (f14-1) a)) (%f14 0)) |
(logorc2 (labels ((%f14 (f14-1) a)) (%f14 0)) |
6231 |
(reduce #'(lambda (lmv1 lmv2) a) (list 0 0))))) |
(reduce #'(lambda (lmv1 lmv2) a) (list 0 0))))) |
6232 |
3151096069) |
3151096069) |
6233 |
-1) |
-1) |
6234 |
|
|
6236 |
|
|
6237 |
(deftest misc.323 |
(deftest misc.323 |
6238 |
(let* ((tail '(:from-end t)) |
(let* ((tail '(:from-end t)) |
6239 |
(form |
(form |
6240 |
`(lambda () |
`(lambda () |
6241 |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 2) |
(declare (optimize (speed 3) (space 1) (safety 2) (debug 2) |
6242 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6243 |
(eval '(reduce #'logior |
(eval '(reduce #'logior |
6244 |
(vector (reduce #'logand (vector 0 0) . ,tail) 0) |
(vector (reduce #'logand (vector 0 0) . ,tail) 0) |
6245 |
. ,tail))))) |
. ,tail))))) |
6246 |
(funcall (compile nil form))) |
(funcall (compile nil form))) |
6247 |
0) |
0) |
6248 |
|
|
6254 |
nil |
nil |
6255 |
'(lambda (a) |
'(lambda (a) |
6256 |
(declare (optimize (speed 2) (space 2) (safety 3) (debug 2) |
(declare (optimize (speed 2) (space 2) (safety 3) (debug 2) |
6257 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6258 |
(labels ((%f6 (f6-1) (multiple-value-setq (a) 0))) |
(labels ((%f6 (f6-1) (multiple-value-setq (a) 0))) |
6259 |
(reduce #'(lambda (lmv4 lmv3) a) |
(reduce #'(lambda (lmv4 lmv3) a) |
6260 |
(list (%f6 0) 2))))) |
(list (%f6 0) 2))))) |
6261 |
1) |
1) |
6262 |
0) |
0) |
6263 |
|
|
6273 |
(declare (type (integer -492625 197903) b)) |
(declare (type (integer -492625 197903) b)) |
6274 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
6275 |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 0) |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 0) |
6276 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6277 |
(reduce #'(lambda (lmv5 lmv6) |
(reduce #'(lambda (lmv5 lmv6) |
6278 |
(multiple-value-setq (a) 2443855591508)) |
(multiple-value-setq (a) 2443855591508)) |
6279 |
(vector b a 0 0) :from-end t))) |
(vector b a 0 0) :from-end t))) |
6280 |
1 2) |
1 2) |
6281 |
2443855591508) |
2443855591508) |
6282 |
|
|
6288 |
'(lambda (b) |
'(lambda (b) |
6289 |
(declare (type (integer 155 7955) b)) |
(declare (type (integer 155 7955) b)) |
6290 |
(declare (optimize (speed 3) (space 3) (safety 3) (debug 1) |
(declare (optimize (speed 3) (space 3) (safety 3) (debug 1) |
6291 |
(compilation-speed 0))) |
(compilation-speed 0))) |
6292 |
(flet ((%f13 (f13-1) (shiftf b 3019))) (+ b (%f13 0))))) |
(flet ((%f13 (f13-1) (shiftf b 3019))) (+ b (%f13 0))))) |
6293 |
200) |
200) |
6294 |
400) |
400) |
6305 |
(declare (type (integer -586950907 -10945000) b)) |
(declare (type (integer -586950907 -10945000) b)) |
6306 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
6307 |
(declare (optimize (speed 2) (space 0) (safety 2) (debug 2) |
(declare (optimize (speed 2) (space 0) (safety 2) (debug 2) |
6308 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6309 |
(labels ((%f15 (f15-1) |
(labels ((%f15 (f15-1) |
6310 |
(elt #(1073730663 1073689230 596123606 1073713997 |
(elt #(1073730663 1073689230 596123606 1073713997 |
6311 |
311527378 186184643 1073713230 1316881) |
311527378 186184643 1073713230 1316881) |
6312 |
(min 7 |
(min 7 |
6313 |
(max 0 |
(max 0 |
6314 |
(catch 'ct7 |
(catch 'ct7 |
6315 |
(reduce |
(reduce |
6316 |
#'min |
#'min |
6317 |
(list 0 b (catch 'ct7 |
(list 0 b (catch 'ct7 |
6318 |
(throw 'ct7 f15-1)) |
(throw 'ct7 f15-1)) |
6319 |
0) |
0) |
6320 |
:start 1 |
:start 1 |
6321 |
:from-end t))))))) |
:from-end t))))))) |
6322 |
(%f15 0)))) |
(%f15 0)))) |
6323 |
-38276611 -11001852) |
-38276611 -11001852) |
6324 |
1073730663) |
1073730663) |
6331 |
'(lambda (a b c d e) |
'(lambda (a b c d e) |
6332 |
(declare (notinline max vector reduce)) |
(declare (notinline max vector reduce)) |
6333 |
(declare (optimize (speed 1) (space 2) (safety 1) (debug 1) |
(declare (optimize (speed 1) (space 2) (safety 1) (debug 1) |
6334 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6335 |
(reduce #'(lambda (lmv6 lmv3) lmv3) |
(reduce #'(lambda (lmv6 lmv3) lmv3) |
6336 |
(vector 0 (max 0) 0 0 |
(vector 0 (max 0) 0 0 |
6337 |
(catch 'ct2 (catch 'ct2 (throw 'ct2 0))) 0 e 0) |
(catch 'ct2 (catch 'ct2 (throw 'ct2 0))) 0 e 0) |
6338 |
|
|
6339 |
:end 2 |
:end 2 |
6340 |
:from-end t))) |
:from-end t))) |
6341 |
68664683637 328245 881497115 -303855 311427) |
68664683637 328245 881497115 -303855 311427) |
6342 |
0) |
0) |
6343 |
|
|
6354 |
(declare (type (integer -10 0) b)) |
(declare (type (integer -10 0) b)) |
6355 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
6356 |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 0) |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 0) |
6357 |
(compilation-speed 0))) |
(compilation-speed 0))) |
6358 |
(if (logbitp 0 (if (or t nil) (setf a -2616861879) 0)) 0 0))) |
(if (logbitp 0 (if (or t nil) (setf a -2616861879) 0)) 0 0))) |
6359 |
-4836700955 -1) |
-4836700955 -1) |
6360 |
0) |
0) |
6369 |
(declare (type (integer 84176291516 98216856233) b)) |
(declare (type (integer 84176291516 98216856233) b)) |
6370 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
6371 |
(declare (optimize (speed 3) (space 3) (safety 0) (debug 0) |
(declare (optimize (speed 3) (space 3) (safety 0) (debug 0) |
6372 |
(compilation-speed 0))) |
(compilation-speed 0))) |
6373 |
(let ((*s2* (case b ((53651 62711 29537 25305 62250) 0) (t 0)))) |
(let ((*s2* (case b ((53651 62711 29537 25305 62250) 0) (t 0)))) |
6374 |
(declare (special *s2*)) |
(declare (special *s2*)) |
6375 |
(setq a -688292831)))) |
(setq a -688292831)))) |
6376 |
-406606203 84436335326) |
-406606203 84436335326) |
6377 |
-688292831) |
-688292831) |
6378 |
|
|
6385 |
(declare (type (integer -3683497948554 427) b)) |
(declare (type (integer -3683497948554 427) b)) |
6386 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
6387 |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 3) |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 3) |
6388 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6389 |
(lcm (block b8 (signum (return-from b8 a)))))) |
(lcm (block b8 (signum (return-from b8 a)))))) |
6390 |
-12715609319989 -582329850697) |
-12715609319989 -582329850697) |
6391 |
12715609319989) |
12715609319989) |
6399 |
(declare (type (integer -63500163479 -8671) b)) |
(declare (type (integer -63500163479 -8671) b)) |
6400 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
6401 |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 2) |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 2) |
6402 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6403 |
(if (if (>= 0) t t) (setq b -25319949896) b))) |
(if (if (>= 0) t t) (setq b -25319949896) b))) |
6404 |
0 -10000) |
0 -10000) |
6405 |
-25319949896) |
-25319949896) |
6413 |
'(lambda (a b) |
'(lambda (a b) |
6414 |
(declare (notinline max logorc1 numerator rem)) |
(declare (notinline max logorc1 numerator rem)) |
6415 |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 1) |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 1) |
6416 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6417 |
(rem (progn (tagbody (numerator (logorc1 0 (go tag5))) |
(rem (progn (tagbody (numerator (logorc1 0 (go tag5))) |
6418 |
tag5) |
tag5) |
6419 |
0) |
0) |
6420 |
(max 93 0)))) |
(max 93 0)))) |
6421 |
-801 17641908) |
-801 17641908) |
6422 |
0) |
0) |
6423 |
|
|
6431 |
'(lambda () |
'(lambda () |
6432 |
(declare (notinline logxor)) |
(declare (notinline logxor)) |
6433 |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 3) |
(declare (optimize (speed 3) (space 0) (safety 0) (debug 3) |
6434 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6435 |
(logxor (progn (tagbody (let* ((*s4* (progn (go 1) 0))) 0) |
(logxor (progn (tagbody (let* ((*s4* (progn (go 1) 0))) 0) |
6436 |
1) |
1) |
6437 |
0))))) |
0))))) |
6438 |
0) |
0) |
6439 |
|
|
6440 |
;;; Debugger invoked on condition of type PROGRAM-ERROR: |
;;; Debugger invoked on condition of type PROGRAM-ERROR: |
6449 |
(declare (type (integer 2010840649 2119165101) c)) |
(declare (type (integer 2010840649 2119165101) c)) |
6450 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6451 |
(declare (optimize (speed 3) (space 2) (safety 0) (debug 2) |
(declare (optimize (speed 3) (space 2) (safety 0) (debug 2) |
6452 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6453 |
(+ (block b6 (expt (return-from b6 b) 0))))) |
(+ (block b6 (expt (return-from b6 b) 0))))) |
6454 |
3966745735633 -1123 2030094113) |
3966745735633 -1123 2030094113) |
6455 |
-1123) |
-1123) |
6458 |
(deftest misc.335 |
(deftest misc.335 |
6459 |
(let ((c 10)) |
(let ((c 10)) |
6460 |
(denominator (progn (tagbody (realpart (loop for lv4 below 2 sum (go 0))) |
(denominator (progn (tagbody (realpart (loop for lv4 below 2 sum (go 0))) |
6461 |
0) |
0) |
6462 |
c))) |
c))) |
6463 |
1) |
1) |
6464 |
|
|
6465 |
(deftest misc.336 |
(deftest misc.336 |
6466 |
(prog2 (progn (tagbody (- (common-lisp:handler-case (go tag2))) |
(prog2 (progn (tagbody (- (common-lisp:handler-case (go tag2))) |
6467 |
tag2) |
tag2) |
6468 |
0) |
0) |
6469 |
0) |
0) |
6470 |
0) |
0) |
6471 |
|
|
6472 |
;;; Incorrect return value |
;;; Incorrect return value |
6476 |
nil |
nil |
6477 |
'(lambda () |
'(lambda () |
6478 |
(declare (optimize (speed 2) (space 2) (safety 2) (debug 0) |
(declare (optimize (speed 2) (space 2) (safety 2) (debug 0) |
6479 |
(compilation-speed 0))) |
(compilation-speed 0))) |
6480 |
(imagpart (block b8 |
(imagpart (block b8 |
6481 |
(logior (block b7 (return-from b8 225480400)))))))) |
(logior (block b7 (return-from b8 225480400)))))))) |
6482 |
0) |
0) |
6483 |
|
|
6484 |
;;; Inconsistent stack height 1 != 2 |
;;; Inconsistent stack height 1 != 2 |
6486 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
6487 |
nil |
nil |
6488 |
(funcall |
(funcall |
6489 |
(compile |
(compile |
6490 |
nil |
nil |
6491 |
'(lambda (c) |
'(lambda (c) |
6492 |
(conjugate (block b8 (max (if c (return-from b8 0) 0)))))) |
(conjugate (block b8 (max (if c (return-from b8 0) 0)))))) |
6493 |
10)) |
10)) |
6494 |
0) |
0) |
6495 |
|
|
6496 |
;;; Inconsistent stack height 4 != 0 |
;;; Inconsistent stack height 4 != 0 |
6502 |
(compile |
(compile |
6503 |
nil |
nil |
6504 |
'(lambda () |
'(lambda () |
6505 |
(declare (optimize (speed 1) (space 3) (safety 3) (debug 0) |
(declare (optimize (speed 1) (space 3) (safety 3) (debug 0) |
6506 |
(compilation-speed 0))) |
(compilation-speed 0))) |
6507 |
(block b1 |
(block b1 |
6508 |
(reduce #'min |
(reduce #'min |
6509 |
(list (return-from b1 0)) |
(list (return-from b1 0)) |
6510 |
:end 1 |
:end 1 |
6511 |
:start 0 |
:start 0 |
6512 |
:from-end t |
:from-end t |
6513 |
)))))) |
)))))) |
6514 |
0) |
0) |
6515 |
|
|
6516 |
;;; The value INTEGER is not of type sequence. |
;;; The value INTEGER is not of type sequence. |
6524 |
(declare (type (integer -3229571579853 -180689150012) c)) |
(declare (type (integer -3229571579853 -180689150012) c)) |
6525 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6526 |
(declare (optimize (speed 3) (space 1) (safety 0) (debug 2) |
(declare (optimize (speed 3) (space 1) (safety 0) (debug 2) |
6527 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6528 |
(coerce (rationalize (progn (tagbody (reduce #'logand |
(coerce (rationalize (progn (tagbody (reduce #'logand |
6529 |
(list b 0 (go tag3)) |
(list b 0 (go tag3)) |
6530 |
:from-end |
:from-end |
6531 |
t) |
t) |
6532 |
tag3) |
tag3) |
6533 |
0)) |
0)) |
6534 |
'integer))) |
'integer))) |
6535 |
-1625211 3052955 -2091182035681) |
-1625211 3052955 -2091182035681) |
6536 |
0) |
0) |
6537 |
|
|
6544 |
(compile |
(compile |
6545 |
nil |
nil |
6546 |
'(lambda (c) |
'(lambda (c) |
6547 |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 2) |
(declare (optimize (speed 2) (space 1) (safety 1) (debug 2) |
6548 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6549 |
(logeqv (block b6 |
(logeqv (block b6 |
6550 |
(logeqv (case 0 |
(logeqv (case 0 |
6551 |
((45293 29462 60403) (return-from b6 0)) |
((45293 29462 60403) (return-from b6 0)) |
6552 |
(t c))))))) |
(t c))))))) |
6553 |
10)) |
10)) |
6554 |
10) |
10) |
6555 |
|
|
6562 |
(compile |
(compile |
6563 |
nil |
nil |
6564 |
'(lambda (a) |
'(lambda (a) |
6565 |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 1) |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 1) |
6566 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6567 |
(progn (tagbody (imagpart (dotimes (iv3 0 a) (go 4))) |
(progn (tagbody (imagpart (dotimes (iv3 0 a) (go 4))) |
6568 |
4) |
4) |
6569 |
0))) |
0))) |
6570 |
1)) |
1)) |
6571 |
0) |
0) |
6572 |
|
|
6579 |
(compile |
(compile |
6580 |
nil |
nil |
6581 |
'(lambda () |
'(lambda () |
6582 |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 3) |
(declare (optimize (speed 2) (space 3) (safety 2) (debug 3) |
6583 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6584 |
(mask-field (byte 0 0) |
(mask-field (byte 0 0) |
6585 |
(block b8 |
(block b8 |
6586 |
(reduce 'logior |
(reduce 'logior |
6587 |
(list (return-from b8 0) 0 0) |
(list (return-from b8 0) 0 0) |
6588 |
:end 3 |
:end 3 |
6589 |
:start 0 |
:start 0 |
6590 |
:from-end t))))))) |
:from-end t))))))) |
6591 |
0) |
0) |
6592 |
|
|
6593 |
;;; Wrong value |
;;; Wrong value |
6598 |
'(lambda (a) |
'(lambda (a) |
6599 |
(declare (type (integer -3464434 12316202) a)) |
(declare (type (integer -3464434 12316202) a)) |
6600 |
(declare (optimize (speed 1) (space 0) (safety 0) (debug 0) |
(declare (optimize (speed 1) (space 0) (safety 0) (debug 0) |
6601 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6602 |
(progn (tagbody (gcd (expt (setf a -2612809) 0) (go 5)) |
(progn (tagbody (gcd (expt (setf a -2612809) 0) (go 5)) |
6603 |
5) |
5) |
6604 |
a))) |
a))) |
6605 |
1891348) |
1891348) |
6606 |
-2612809) |
-2612809) |
6607 |
|
|
6614 |
(compile |
(compile |
6615 |
nil |
nil |
6616 |
'(lambda (a b c) |
'(lambda (a b c) |
6617 |
(declare (type (integer -1968 -1759) a)) |
(declare (type (integer -1968 -1759) a)) |
6618 |
(declare (type (integer 91 2293818743282) b)) |
(declare (type (integer 91 2293818743282) b)) |
6619 |
(declare (type (integer -843793650839 -2) c)) |
(declare (type (integer -843793650839 -2) c)) |
6620 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6621 |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 0) |
(declare (optimize (speed 3) (space 2) (safety 3) (debug 0) |
6622 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6623 |
(max (block b1 |
(max (block b1 |
6624 |
(conjugate (dotimes (iv3 0 |
(conjugate (dotimes (iv3 0 |
6625 |
(bit #*010 |
(bit #*010 |
6626 |
(min 2 |
(min 2 |
6627 |
(max 0 |
(max 0 |
6628 |
(return-from b1 0))))) |
(return-from b1 0))))) |
6629 |
(progn 0)))) |
(progn 0)))) |
6630 |
(sbit #*0001011010010 (min 12 (max 0 0)))))) |
(sbit #*0001011010010 (min 12 (max 0 0)))))) |
6631 |
-1957 523078358699 -634832888815)) |
-1957 523078358699 -634832888815)) |
6632 |
0) |
0) |
6633 |
|
|
6639 |
(compile |
(compile |
6640 |
nil |
nil |
6641 |
'(lambda (c) |
'(lambda (c) |
6642 |
(declare (type (integer -3011346550 1630587670) c)) |
(declare (type (integer -3011346550 1630587670) c)) |
6643 |
(declare (optimize (speed 1) (space 1) (safety 0) (debug 3) |
(declare (optimize (speed 1) (space 1) (safety 0) (debug 3) |
6644 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6645 |
(progn (tagbody (dotimes (iv2 0 (- 0 (go 7))) (progn 0)) |
(progn (tagbody (dotimes (iv2 0 (- 0 (go 7))) (progn 0)) |
6646 |
7 |
7 |
6647 |
(progn (mask-field (byte 0 0) 0) c)) |
(progn (mask-field (byte 0 0) 0) c)) |
6648 |
0))) |
0))) |
6649 |
1)) |
1)) |
6650 |
0) |
0) |
6651 |
|
|
6656 |
nil |
nil |
6657 |
'(lambda () |
'(lambda () |
6658 |
(declare (optimize (speed 2) (space 2) (safety 2) (debug 2) |
(declare (optimize (speed 2) (space 2) (safety 2) (debug 2) |
6659 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6660 |
(bit #*011100 |
(bit #*011100 |
6661 |
(min 5 |
(min 5 |
6662 |
(max 0 |
(max 0 |
6663 |
(block b8 |
(block b8 |
6664 |
(aref #(122010971004 126555236004) |
(aref #(122010971004 126555236004) |
6665 |
(min 1 |
(min 1 |
6666 |
(max 0 |
(max 0 |
6667 |
(progn (return-from b8 191438621) |
(progn (return-from b8 191438621) |
6668 |
0))))))))))) |
0))))))))))) |
6669 |
0) |
0) |
6670 |
|
|
6671 |
;;; The value 8 is not of type FUNCTION. |
;;; The value 8 is not of type FUNCTION. |
6675 |
nil |
nil |
6676 |
'(lambda () |
'(lambda () |
6677 |
(declare (optimize (speed 2) (space 2) (safety 3) (debug 2) |
(declare (optimize (speed 2) (space 2) (safety 3) (debug 2) |
6678 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6679 |
(complex (* (block b2 |
(complex (* (block b2 |
6680 |
(boole boole-xor (logxor (return-from b2 0)) 0))) |
(boole boole-xor (logxor (return-from b2 0)) 0))) |
6681 |
0)))) |
0)))) |
6682 |
0) |
0) |
6683 |
|
|
6684 |
;;; Wrong result |
;;; Wrong result |
6688 |
nil |
nil |
6689 |
'(lambda (a c) |
'(lambda (a c) |
6690 |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 3) |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 3) |
6691 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6692 |
(max (conjugate (setq a -4178265097)) (if (> c 0) 0 a)))) |
(max (conjugate (setq a -4178265097)) (if (> c 0) 0 a)))) |
6693 |
-2408319173 -4307532101272) |
-2408319173 -4307532101272) |
6694 |
-4178265097) |
-4178265097) |
6699 |
nil |
nil |
6700 |
'(lambda () |
'(lambda () |
6701 |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 1) |
(declare (optimize (speed 3) (space 1) (safety 1) (debug 1) |
6702 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6703 |
(mod (let ((*s7* (block b7 (logandc2 (+ (return-from b7 0)) 0)))) |
(mod (let ((*s7* (block b7 (logandc2 (+ (return-from b7 0)) 0)))) |
6704 |
-10) |
-10) |
6705 |
(max 26 0))))) |
(max 26 0))))) |
6706 |
16) |
16) |
6707 |
|
|
6708 |
;;; Inconsistent stack height 0 != 1 |
;;; Inconsistent stack height 0 != 1 |
6715 |
(compile |
(compile |
6716 |
nil |
nil |
6717 |
'(lambda () |
'(lambda () |
6718 |
(declare (optimize (speed 2) (space 3) (safety 1) (debug 2) |
(declare (optimize (speed 2) (space 3) (safety 1) (debug 2) |
6719 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6720 |
(progn (tagbody (complex (- 0 (if (and t) 0 (go tag1))) 0) |
(progn (tagbody (complex (- 0 (if (and t) 0 (go tag1))) 0) |
6721 |
tag1) |
tag1) |
6722 |
0))))) |
0))))) |
6723 |
0) |
0) |
6724 |
|
|
6725 |
(deftest misc.351 |
(deftest misc.351 |
6730 |
(compile |
(compile |
6731 |
nil |
nil |
6732 |
'(lambda (c) |
'(lambda (c) |
6733 |
(declare (type (integer -598962457711 -2902) c)) |
(declare (type (integer -598962457711 -2902) c)) |
6734 |
(declare (optimize (speed 1) (space 0) (safety 1) (debug 0) |
(declare (optimize (speed 1) (space 0) (safety 1) (debug 0) |
6735 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6736 |
(lognor c |
(lognor c |
6737 |
(block b1 |
(block b1 |
6738 |
(loop for lv3 below 1 |
(loop for lv3 below 1 |
6739 |
sum (if (/= 0) (return-from b1 0) c)))))) |
sum (if (/= 0) (return-from b1 0) c)))))) |
6740 |
-392248104420)) |
-392248104420)) |
6741 |
392248104419) |
392248104419) |
6742 |
|
|
6748 |
(compile |
(compile |
6749 |
nil |
nil |
6750 |
'(lambda () |
'(lambda () |
6751 |
(declare (optimize (speed 1) (space 3) (safety 3) (debug 3) |
(declare (optimize (speed 1) (space 3) (safety 3) (debug 3) |
6752 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6753 |
(progn (tagbody (+ 0 (if (< 0) (go 5) 0)) |
(progn (tagbody (+ 0 (if (< 0) (go 5) 0)) |
6754 |
5) |
5) |
6755 |
0))))) |
0))))) |
6756 |
0) |
0) |
6757 |
|
|
6758 |
(deftest misc.353 |
(deftest misc.353 |
6763 |
(compile |
(compile |
6764 |
nil |
nil |
6765 |
'(lambda (a b) |
'(lambda (a b) |
6766 |
(declare (type (integer -8 -2) a)) |
(declare (type (integer -8 -2) a)) |
6767 |
(declare (type (integer -67321 14697029362) b)) |
(declare (type (integer -67321 14697029362) b)) |
6768 |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 1) |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 1) |
6769 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6770 |
(expt (block b2 |
(expt (block b2 |
6771 |
(loop for lv1 below 3 |
(loop for lv1 below 3 |
6772 |
sum (prog2 b |
sum (prog2 b |
6773 |
0 |
0 |
6774 |
(expt (case 0 |
(expt (case 0 |
6775 |
((-13960 -57685 -37843 -34222 |
((-13960 -57685 -37843 -34222 |
6776 |
-14273 -40931 -2688) |
-14273 -40931 -2688) |
6777 |
(return-from b2 0)) |
(return-from b2 0)) |
6778 |
(t a)) |
(t a)) |
6779 |
0)))) |
0)))) |
6780 |
0))) |
0))) |
6781 |
-7 772373806)) |
-7 772373806)) |
6782 |
1) |
1) |
6783 |
|
|
6792 |
(declare (type (integer 7473698771 3542216118742) c)) |
(declare (type (integer 7473698771 3542216118742) c)) |
6793 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6794 |
(declare (optimize (speed 3) (space 2) (safety 1) (debug 3) |
(declare (optimize (speed 3) (space 2) (safety 1) (debug 3) |
6795 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6796 |
(+ 0 |
(+ 0 |
6797 |
(progn (tagbody (if (if (>= b (go 3)) nil t) a c) |
(progn (tagbody (if (if (>= b (go 3)) nil t) a c) |
6798 |
3) |
3) |
6799 |
0)))) |
0)))) |
6800 |
29329060987 -4964942044116 512158612507) |
29329060987 -4964942044116 512158612507) |
6801 |
0) |
0) |
6802 |
|
|
6807 |
'(lambda (c) |
'(lambda (c) |
6808 |
(declare (type (integer -1390043946499 -115168466439) c)) |
(declare (type (integer -1390043946499 -115168466439) c)) |
6809 |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 1) |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 1) |
6810 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6811 |
(+ 0 |
(+ 0 |
6812 |
(coerce (progn (tagbody (if (<= -1 (go tag1)) 0 c) |
(coerce (progn (tagbody (if (<= -1 (go tag1)) 0 c) |
6813 |
tag1) |
tag1) |
6814 |
0) |
0) |
6815 |
'integer)))) |
'integer)))) |
6816 |
-115168466439) |
-115168466439) |
6817 |
0) |
0) |
6818 |
|
|
6824 |
(compile |
(compile |
6825 |
nil |
nil |
6826 |
'(lambda () |
'(lambda () |
6827 |
(declare (optimize (speed 2) (space 2) (safety 1) (debug 0) |
(declare (optimize (speed 2) (space 2) (safety 1) (debug 0) |
6828 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6829 |
(let ((*s7* 0)) |
(let ((*s7* 0)) |
6830 |
(dotimes (iv2 0 0) |
(dotimes (iv2 0 0) |
6831 |
(block b3 |
(block b3 |
6832 |
(block b3 (block b3 (setq *s7* (return-from b3 0))))))))))) |
(block b3 (block b3 (setq *s7* (return-from b3 0))))))))))) |
6833 |
0) |
0) |
6834 |
|
|
6835 |
(deftest misc.357 |
(deftest misc.357 |
6840 |
(compile |
(compile |
6841 |
nil |
nil |
6842 |
'(lambda (b) |
'(lambda (b) |
6843 |
(declare (type (integer -1750881587721 -327383867) b)) |
(declare (type (integer -1750881587721 -327383867) b)) |
6844 |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 3) |
(declare (optimize (speed 1) (space 0) (safety 2) (debug 3) |
6845 |
(compilation-speed 3))) |
(compilation-speed 3))) |
6846 |
(denominator (block b2 |
(denominator (block b2 |
6847 |
(let* ((*s8* 0)) |
(let* ((*s8* 0)) |
6848 |
(setq *s8* |
(setq *s8* |
6849 |
(case 0 |
(case 0 |
6850 |
((-26733 -244 -26253 -50028) 0) |
((-26733 -244 -26253 -50028) 0) |
6851 |
(t (return-from b2 b))))))))) |
(t (return-from b2 b))))))))) |
6852 |
-1153135130306)) |
-1153135130306)) |
6853 |
1) |
1) |
6854 |
|
|
6860 |
(compile |
(compile |
6861 |
nil |
nil |
6862 |
'(lambda () |
'(lambda () |
6863 |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 3) |
(declare (optimize (speed 2) (space 0) (safety 0) (debug 3) |
6864 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6865 |
(rationalize (let* ((*s1* 0)) |
(rationalize (let* ((*s1* 0)) |
6866 |
(block b3 |
(block b3 |
6867 |
(conjugate (let* ((v10 |
(conjugate (let* ((v10 |
6868 |
(if (ldb-test (byte 0 0) 0) |
(if (ldb-test (byte 0 0) 0) |
6869 |
(return-from b3 *s1*) |
(return-from b3 *s1*) |
6870 |
0))) |
0))) |
6871 |
(setq *s1* (return-from b3 0))))))))))) |
(setq *s1* (return-from b3 0))))))))))) |
6872 |
0) |
0) |
6873 |
|
|
6874 |
(deftest misc.359 |
(deftest misc.359 |
6879 |
(compile |
(compile |
6880 |
nil |
nil |
6881 |
'(lambda (a b) |
'(lambda (a b) |
6882 |
(declare (type (integer -477801566869 432060432661) a)) |
(declare (type (integer -477801566869 432060432661) a)) |
6883 |
(declare (type (integer 366578392 525704751) b)) |
(declare (type (integer 366578392 525704751) b)) |
6884 |
(declare (optimize (speed 3) (space 3) (safety 1) (debug 1) |
(declare (optimize (speed 3) (space 3) (safety 1) (debug 1) |
6885 |
(compilation-speed 1))) |
(compilation-speed 1))) |
6886 |
(max (case b |
(max (case b |
6887 |
((0 -3 -2 -2 -3) |
((0 -3 -2 -2 -3) |
6888 |
(progn (tagbody (loop for lv1 below 2 |
(progn (tagbody (loop for lv1 below 2 |
6889 |
count (let* ((*s1* a)) |
count (let* ((*s1* a)) |
6890 |
(setq *s1* (go 4)))) |
(setq *s1* (go 4)))) |
6891 |
4) |
4) |
6892 |
0)) |
0)) |
6893 |
(t 0))))) |
(t 0))))) |
6894 |
287358622300 400248608)) |
287358622300 400248608)) |
6895 |
0) |
0) |
6896 |
|
|
6914 |
'(lambda (a b c) |
'(lambda (a b c) |
6915 |
(declare (notinline boole values denominator list)) |
(declare (notinline boole values denominator list)) |
6916 |
(declare |
(declare |
6917 |
(optimize (speed 2) |
(optimize (speed 2) |
6918 |
(space 0) |
(space 0) |
6919 |
(safety 1) |
(safety 1) |
6920 |
(debug 0) |
(debug 0) |
6921 |
(compilation-speed 2))) |
(compilation-speed 2))) |
6922 |
(catch 'ct6 |
(catch 'ct6 |
6923 |
(progv |
(progv |
6924 |
'(*s8*) |
'(*s8*) |
6925 |
(list 0) |
(list 0) |
6926 |
(let ((v9 (ignore-errors (throw 'ct6 0)))) |
(let ((v9 (ignore-errors (throw 'ct6 0)))) |
6927 |
(denominator |
(denominator |
6928 |
(progv nil nil (values (boole boole-and 0 v9))))))))) |
(progv nil nil (values (boole boole-and 0 v9))))))))) |
6929 |
1 2 3) |
1 2 3) |
6930 |
0) |
0) |
6931 |
|
|
6937 |
nil |
nil |
6938 |
'(lambda (b g h) |
'(lambda (b g h) |
6939 |
(declare (optimize (speed 3) (space 3) (safety 2) |
(declare (optimize (speed 3) (space 3) (safety 2) |
6940 |
(debug 2) (compilation-speed 3))) |
(debug 2) (compilation-speed 3))) |
6941 |
(catch 'ct5 |
(catch 'ct5 |
6942 |
(unwind-protect |
(unwind-protect |
6943 |
(labels ((%f15 (f15-1 f15-2 f15-3) |
(labels ((%f15 (f15-1 f15-2 f15-3) |
6944 |
(rational (throw 'ct5 0)))) |
(rational (throw 'ct5 0)))) |
6945 |
(%f15 0 |
(%f15 0 |
6946 |
(apply #'%f15 |
(apply #'%f15 |
6947 |
0 |
0 |
6948 |
h |
h |
6949 |
(progn |
(progn |
6950 |
(progv '(*s2* *s5*) (list 0 (%f15 0 g 0)) b) |
(progv '(*s2* *s5*) (list 0 (%f15 0 g 0)) b) |
6951 |
0) |
0) |
6952 |
nil) |
nil) |
6953 |
0)) |
0)) |
6954 |
(common-lisp:handler-case 0))))) |
(common-lisp:handler-case 0))))) |
6955 |
1 2 3) |
1 2 3) |
6956 |
0) |
0) |
6957 |
|
|
6963 |
'(lambda (a) |
'(lambda (a) |
6964 |
(declare (type (integer -17286401550789 15753784105886) a)) |
(declare (type (integer -17286401550789 15753784105886) a)) |
6965 |
(declare (optimize (speed 2) (space 2) (safety 2) |
(declare (optimize (speed 2) (space 2) (safety 2) |
6966 |
(debug 0) (compilation-speed 3))) |
(debug 0) (compilation-speed 3))) |
6967 |
(if (not (>= 0 (shiftf a 110236462073))) |
(if (not (>= 0 (shiftf a 110236462073))) |
6968 |
0 |
0 |
6969 |
(elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a)))))) |
(elt '(30 101 13 2 10 52 89 57) (min 7 (max 0 a)))))) |
6970 |
-3647332298473) |
-3647332298473) |
6971 |
57) |
57) |
6972 |
|
|
6973 |
;;; "full call to SB-KERNEL:DATA-VECTOR-REF" |
;;; "full call to SB-KERNEL:DATA-VECTOR-REF" |
6974 |
(deftest misc.364 |
(deftest misc.364 |
6975 |
(dotimes (iv1 2 0) |
(dotimes (iv1 2 0) |
6976 |
(if (> iv1 iv1) |
(if (> iv1 iv1) |
6977 |
(svref #(2002 3778 1998 3466 530 3279 2033 521 4085) |
(svref #(2002 3778 1998 3466 530 3279 2033 521 4085) |
6978 |
(min 8 (max 0 iv1))) |
(min 8 (max 0 iv1))) |
6979 |
0)) |
0)) |
6982 |
;;; OpenMCL/darwin bug (12 May 2004) |
;;; OpenMCL/darwin bug (12 May 2004) |
6983 |
(deftest misc.365 |
(deftest misc.365 |
6984 |
(let* ((fn1 |
(let* ((fn1 |
6985 |
'(lambda (a b c) |
'(lambda (a b c) |
6986 |
(declare (type (integer -2 21) a)) |
(declare (type (integer -2 21) a)) |
6987 |
(declare (type (integer -5651364356 4324101092) b)) |
(declare (type (integer -5651364356 4324101092) b)) |
6988 |
(declare (type (integer -30766087 28182568) c)) |
(declare (type (integer -30766087 28182568) c)) |
6989 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
6990 |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 0) (compilation-speed 1))) |
(declare (optimize (speed 3) (space 1) (safety 3) (debug 0) (compilation-speed 1))) |
6991 |
(coerce (logxor b -1) 'integer))) |
(coerce (logxor b -1) 'integer))) |
6992 |
(fn2 |
(fn2 |
6993 |
'(lambda (a b c) |
'(lambda (a b c) |
6994 |
(declare (notinline logxor coerce)) |
(declare (notinline logxor coerce)) |
6995 |
(declare (optimize (speed 3) (space 0) (safety 3) (debug 2) (compilation-speed 2))) |
(declare (optimize (speed 3) (space 0) (safety 3) (debug 2) (compilation-speed 2))) |
6996 |
(coerce (logxor b -1) 'integer))) |
(coerce (logxor b -1) 'integer))) |
6997 |
(vals '(9 -328421075 -6406890)) |
(vals '(9 -328421075 -6406890)) |
6998 |
(v1 (apply (compile nil fn1) vals)) |
(v1 (apply (compile nil fn1) vals)) |
6999 |
(v2 (apply (compile nil fn2) vals))) |
(v2 (apply (compile nil fn2) vals))) |
7000 |
(if (eql v1 v2) :good (list v1 v2))) |
(if (eql v1 v2) :good (list v1 v2))) |
7001 |
:good) |
:good) |
7002 |
|
|
7019 |
(declare (type (integer -2579781276 2108461452) i)) |
(declare (type (integer -2579781276 2108461452) i)) |
7020 |
(declare (ignorable a b c d e f g h i)) |
(declare (ignorable a b c d e f g h i)) |
7021 |
(declare |
(declare |
7022 |
(optimize (speed 3) |
(optimize (speed 3) |
7023 |
(space 0) |
(space 0) |
7024 |
(safety 0) |
(safety 0) |
7025 |
(debug 2) |
(debug 2) |
7026 |
(compilation-speed 2))) |
(compilation-speed 2))) |
7027 |
(elt '(11751 8554 7393 1924 3418) |
(elt '(11751 8554 7393 1924 3418) |
7028 |
(min 4 |
(min 4 |
7029 |
(max 0 |
(max 0 |
7030 |
(block b4 |
(block b4 |
7031 |
(numerator |
(numerator |
7032 |
(flet ((%f5 |
(flet ((%f5 |
7033 |
(f5-1 f5-2 f5-3 |
(f5-1 f5-2 f5-3 |
7034 |
&optional |
&optional |
7035 |
(f5-4 (prog1 0 (return-from b4 0) 0)) |
(f5-4 (prog1 0 (return-from b4 0) 0)) |
7036 |
(f5-5 d) (f5-6 0)) |
(f5-5 d) (f5-6 0)) |
7037 |
0)) |
0)) |
7038 |
(numerator |
(numerator |
7039 |
(apply (constantly 0) |
(apply (constantly 0) |
7040 |
0 |
0 |
7041 |
0 |
0 |
7042 |
(rationalize |
(rationalize |
7043 |
(unwind-protect |
(unwind-protect |
7044 |
(%f5 0 |
(%f5 0 |
7045 |
c |
c |
7046 |
(%f5 0 |
(%f5 0 |
7047 |
c |
c |
7048 |
(%f5 0 |
(%f5 0 |
7049 |
0 |
0 |
7050 |
0 |
0 |
7051 |
h |
h |
7052 |
(%f5 0 0 0) |
(%f5 0 0 0) |
7053 |
i) |
i) |
7054 |
a)) |
a)) |
7055 |
(ignore-errors 0))) |
(ignore-errors 0))) |
7056 |
0 |
0 |
7057 |
nil)))))))))) |
nil)))))))))) |
7058 |
21956127 524275646496 101890987 8762 -88607922426 -55959 2177 147174 |
21956127 524275646496 101890987 8762 -88607922426 -55959 2177 147174 |
7059 |
38469170) |
38469170) |
7060 |
11751) |
11751) |
7070 |
(declare (type (integer 11557968 115977463) a)) |
(declare (type (integer 11557968 115977463) a)) |
7071 |
(declare (type (integer -89510 -20616) b)) |
(declare (type (integer -89510 -20616) b)) |
7072 |
(declare (optimize (speed 2) (space 3) (safety 1) |
(declare (optimize (speed 2) (space 3) (safety 1) |
7073 |
(debug 0) (compilation-speed 1))) |
(debug 0) (compilation-speed 1))) |
7074 |
(rational |
(rational |
7075 |
(flet ((%f17 (f17-1 f17-2) 0)) |
(flet ((%f17 (f17-1 f17-2) 0)) |
7076 |
(%f17 |
(%f17 |
7077 |
(numerator |
(numerator |
7078 |
(%f17 |
(%f17 |
7079 |
(denominator |
(denominator |
7080 |
(catch 'ct5 |
(catch 'ct5 |
7081 |
(apply (constantly 0) |
(apply (constantly 0) |
7082 |
0 |
0 |
7083 |
(unwind-protect |
(unwind-protect |
7084 |
(catch 'ct2 (throw 'ct5 (progn (%f17 a b) a)))) |
(catch 'ct2 (throw 'ct5 (progn (%f17 a b) a)))) |
7085 |
nil))) |
nil))) |
7086 |
0)) |
0)) |
7087 |
(%f17 0 a)))))) |
(%f17 0 a)))))) |
7088 |
112475717 -25829) |
112475717 -25829) |
7089 |
0) |
0) |
7090 |
|
|
7098 |
(declare (type (integer -5 -2) a)) |
(declare (type (integer -5 -2) a)) |
7099 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7100 |
(declare |
(declare |
7101 |
(optimize (speed 2) (space 3) (safety 1) |
(optimize (speed 2) (space 3) (safety 1) |
7102 |
(debug 1) (compilation-speed 1))) |
(debug 1) (compilation-speed 1))) |
7103 |
(if |
(if |
7104 |
(and (not (not (> a (numerator (setf a -4))))) |
(and (not (not (> a (numerator (setf a -4))))) |
7105 |
(logbitp 0 (conjugate a))) |
(logbitp 0 (conjugate a))) |
7106 |
0 |
0 |
7107 |
0))) |
0))) |
7108 |
-3) |
-3) |
7109 |
0) |
0) |
7110 |
|
|
7122 |
(declare (type (integer -1853649832248 2196352552304) e)) |
(declare (type (integer -1853649832248 2196352552304) e)) |
7123 |
(declare (ignorable a b c d e)) |
(declare (ignorable a b c d e)) |
7124 |
(declare (optimize (speed 1) (space 2) (safety 0) (debug 0) |
(declare (optimize (speed 1) (space 2) (safety 0) (debug 0) |
7125 |
(compilation-speed 3))) |
(compilation-speed 3))) |
7126 |
(flet ((%f2 (f2-1 &optional &key (key1 0) (key2 e)) |
(flet ((%f2 (f2-1 &optional &key (key1 0) (key2 e)) |
7127 |
(labels ((%f5 (f5-1 f5-2 f5-3 &optional &key |
(labels ((%f5 (f5-1 f5-2 f5-3 &optional &key |
7128 |
(key1 |
(key1 |
7129 |
(aref #(397) |
(aref #(397) |
7130 |
(min |
(min |
7131 |
0 |
0 |
7132 |
(max |
(max |
7133 |
0 |
0 |
7134 |
(let ((v7 (make-array nil :initial-element d))) |
(let ((v7 (make-array nil :initial-element d))) |
7135 |
(reduce |
(reduce |
7136 |
#'(lambda (lmv5 lmv6) key1) |
#'(lambda (lmv5 lmv6) key1) |
7137 |
(vector f2-1 0) |
(vector f2-1 0) |
7138 |
:start 0)))))) |
:start 0)))))) |
7139 |
&allow-other-keys) |
&allow-other-keys) |
7140 |
0)) |
0)) |
7141 |
0))) |
0))) |
7142 |
b))) |
b))) |
7143 |
-2821485338 -35420 -7622 135 9592294022) |
-2821485338 -35420 -7622 135 9592294022) |
7144 |
-35420) |
-35420) |
7145 |
|
|
7155 |
(declare (type (integer -4433759745778 -1) c)) |
(declare (type (integer -4433759745778 -1) c)) |
7156 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7157 |
(declare |
(declare |
7158 |
(optimize (speed 3) |
(optimize (speed 3) |
7159 |
(space 1) |
(space 1) |
7160 |
(safety 0) |
(safety 0) |
7161 |
(debug 2) |
(debug 2) |
7162 |
(compilation-speed 3))) |
(compilation-speed 3))) |
7163 |
(flet ((%f15 |
(flet ((%f15 |
7164 |
(f15-1 f15-2 |
(f15-1 f15-2 |
7165 |
&optional (f15-3 0) |
&optional (f15-3 0) |
7166 |
(f15-4 (denominator (setq c -4214677583716))) (f15-5 0) |
(f15-4 (denominator (setq c -4214677583716))) (f15-5 0) |
7167 |
&key (key1 c) &allow-other-keys) |
&key (key1 c) &allow-other-keys) |
7168 |
(progv '(*s1* *s5* *s7*) (list f15-2 0 f15-1) key1))) |
(progv '(*s1* *s5* *s7*) (list f15-2 0 f15-1) key1))) |
7169 |
(%f15 0 (%f15 c 0) 0)))) |
(%f15 0 (%f15 c 0) 0)))) |
7170 |
-1233959 -4 -2643533316361) |
-1233959 -4 -2643533316361) |
7171 |
-4214677583716) |
-4214677583716) |
7172 |
|
|
7181 |
(compile |
(compile |
7182 |
nil |
nil |
7183 |
'(lambda (a b c) |
'(lambda (a b c) |
7184 |
(declare (type (integer -7288 10764) a)) |
(declare (type (integer -7288 10764) a)) |
7185 |
(declare (type (integer -7 24) b)) |
(declare (type (integer -7 24) b)) |
7186 |
(declare (type (integer 7951930344 11209871544) c)) |
(declare (type (integer 7951930344 11209871544) c)) |
7187 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7188 |
(declare (optimize (speed 2) (space 2) (safety 0) (debug 0) |
(declare (optimize (speed 2) (space 2) (safety 0) (debug 0) |
7189 |
(compilation-speed 0))) |
(compilation-speed 0))) |
7190 |
(rationalize (block b1 |
(rationalize (block b1 |
7191 |
(if b |
(if b |
7192 |
(return-from b1 |
(return-from b1 |
7193 |
(progn (tagbody (return-from b1 |
(progn (tagbody (return-from b1 |
7194 |
(let* ((*s1* |
(let* ((*s1* |
7195 |
(cons (go tag3) |
(cons (go tag3) |
7196 |
0))) |
0))) |
7197 |
(declare (dynamic-extent |
(declare (dynamic-extent |
7198 |
*s1*)) |
*s1*)) |
7199 |
0)) |
0)) |
7200 |
tag3) |
tag3) |
7201 |
0)) |
0)) |
7202 |
0))))) |
0))))) |
7203 |
-5566 9 10557204445)) |
-5566 9 10557204445)) |
7204 |
0) |
0) |
7205 |
|
|
7214 |
(declare (type (integer -71651668566 4932238952300) c)) |
(declare (type (integer -71651668566 4932238952300) c)) |
7215 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7216 |
(declare (optimize (speed 3) (space 2) (safety 1) (debug 3) |
(declare (optimize (speed 3) (space 2) (safety 1) (debug 3) |
7217 |
(compilation-speed 2))) |
(compilation-speed 2))) |
7218 |
(sbit #*0 |
(sbit #*0 |
7219 |
(min 0 |
(min 0 |
7220 |
(max 0 |
(max 0 |
7221 |
(multiple-value-bind (v1) |
(multiple-value-bind (v1) |
7222 |
(cons c |
(cons c |
7223 |
(truncate 0 |
(truncate 0 |
7224 |
(min -42 0))) |
(min -42 0))) |
7225 |
(cdr v1))))))) |
(cdr v1))))))) |
7226 |
-657195 -10801112339 -4291316763) |
-657195 -10801112339 -4291316763) |
7227 |
0) |
0) |
7228 |
|
|
7235 |
(compile |
(compile |
7236 |
nil |
nil |
7237 |
'(lambda (a b c) |
'(lambda (a b c) |
7238 |
(declare (type (integer 0 179061) a)) |
(declare (type (integer 0 179061) a)) |
7239 |
(declare (type (integer -15793 42532) b)) |
(declare (type (integer -15793 42532) b)) |
7240 |
(declare (type (integer -2 0) c)) |
(declare (type (integer -2 0) c)) |
7241 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7242 |
(declare (optimize (speed 3) (space 0) (safety 2) (debug 1) |
(declare (optimize (speed 3) (space 0) (safety 2) (debug 1) |
7243 |
(compilation-speed 0))) |
(compilation-speed 0))) |
7244 |
(reduce 'logxor |
(reduce 'logxor |
7245 |
(list 0 b 0 0 |
(list 0 b 0 0 |
7246 |
a 0 0 0 |
a 0 0 0 |
7247 |
(block b6 |
(block b6 |
7248 |
(let* ((v6 (cons (if c (return-from b6 0) 0) b))) |
(let* ((v6 (cons (if c (return-from b6 0) 0) b))) |
7249 |
0)) |
0)) |
7250 |
0) |
0) |
7251 |
:end 6 |
:end 6 |
7252 |
:from-end t))) |
:from-end t))) |
7253 |
141814 1445 -2)) |
141814 1445 -2)) |
7254 |
142419) |
142419) |
7255 |
|
|
7261 |
(compile |
(compile |
7262 |
nil |
nil |
7263 |
'(lambda (a b) |
'(lambda (a b) |
7264 |
(declare (type (integer -99 4) a)) |
(declare (type (integer -99 4) a)) |
7265 |
(declare (type (integer 35621436 36172433) b)) |
(declare (type (integer 35621436 36172433) b)) |
7266 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7267 |
(declare (optimize (speed 2) (space 1) (safety 3) (debug 1) |
(declare (optimize (speed 2) (space 1) (safety 3) (debug 1) |
7268 |
(compilation-speed 0))) |
(compilation-speed 0))) |
7269 |
(lognand (let ((v6 0)) (declare (dynamic-extent v6)) v6) |
(lognand (let ((v6 0)) (declare (dynamic-extent v6)) v6) |
7270 |
(block b6 |
(block b6 |
7271 |
(let* ((v10 |
(let* ((v10 |
7272 |
(cons (expt (case 0 |
(cons (expt (case 0 |
7273 |
((30207) (return-from b6 0)) |
((30207) (return-from b6 0)) |
7274 |
(t b)) |
(t b)) |
7275 |
0) |
0) |
7276 |
0))) |
0))) |
7277 |
(declare (dynamic-extent v10)) |
(declare (dynamic-extent v10)) |
7278 |
0))))) |
0))))) |
7279 |
-57 35725118)) |
-57 35725118)) |
7280 |
-1) |
-1) |
7281 |
|
|
7294 |
(declare (type (integer 1627646459 3124243119) f)) |
(declare (type (integer 1627646459 3124243119) f)) |
7295 |
(declare (ignorable a b c d e f)) |
(declare (ignorable a b c d e f)) |
7296 |
(declare (optimize (speed 3) (space 0) (safety 3) (debug 2) |
(declare (optimize (speed 3) (space 0) (safety 3) (debug 2) |
7297 |
(compilation-speed 2))) |
(compilation-speed 2))) |
7298 |
(let* ((*s6* (make-array nil :initial-element 0 :adjustable t))) |
(let* ((*s6* (make-array nil :initial-element 0 :adjustable t))) |
7299 |
(if (logbitp 0 |
(if (logbitp 0 |
7300 |
(denominator (prog2 (truncate (dotimes (iv3 0 0) |
(denominator (prog2 (truncate (dotimes (iv3 0 0) |
7301 |
(progn 0))) |
(progn 0))) |
7302 |
(multiple-value-bind (*s7*) |
(multiple-value-bind (*s7*) |
7303 |
(cons d 0) |
(cons d 0) |
7304 |
(cdr *s7*))))) |
(cdr *s7*))))) |
7305 |
0 |
0 |
7306 |
0)))) |
0)))) |
7307 |
12851164 182468232812 -2243976802 309299185674 2538150 1855615980) |
12851164 182468232812 -2243976802 309299185674 2538150 1855615980) |
7308 |
0) |
0) |
7309 |
|
|
7315 |
nil |
nil |
7316 |
'(lambda () |
'(lambda () |
7317 |
(declare (optimize (speed 1) (space 1) (safety 2) (debug 1) |
(declare (optimize (speed 1) (space 1) (safety 2) (debug 1) |
7318 |
(compilation-speed 0))) |
(compilation-speed 0))) |
7319 |
(dotimes (iv4 3 |
(dotimes (iv4 3 |
7320 |
(multiple-value-bind (*s6*) (cons 0 0) |
(multiple-value-bind (*s6*) (cons 0 0) |
7321 |
(progn (cdr *s6*) 0))) |
(progn (cdr *s6*) 0))) |
7322 |
(floor (rational (let ((*s2* |
(floor (rational (let ((*s2* |
7323 |
(rational (common-lisp:handler-case 0)))) |
(rational (common-lisp:handler-case 0)))) |
7324 |
0))))))) |
0))))))) |
7325 |
0) |
0) |
7326 |
|
|
7327 |
(deftest misc.377 |
(deftest misc.377 |
7331 |
'(lambda (e) ; (a b c d e) |
'(lambda (e) ; (a b c d e) |
7332 |
(declare (type (integer -46778182694 512) e)) |
(declare (type (integer -46778182694 512) e)) |
7333 |
(declare (optimize (speed 3) (space 3) (safety 2) (debug 2) |
(declare (optimize (speed 3) (space 3) (safety 2) (debug 2) |
7334 |
(compilation-speed 3))) |
(compilation-speed 3))) |
7335 |
(if (block b3 |
(if (block b3 |
7336 |
(numerator (progn (tagbody (truncate (dotimes (iv3 0 0) |
(numerator (progn (tagbody (truncate (dotimes (iv3 0 0) |
7337 |
(block b3 0))) |
(block b3 0))) |
7338 |
(multiple-value-bind (*s5*) |
(multiple-value-bind (*s5*) |
7339 |
(cons 0 e) |
(cons 0 e) |
7340 |
(rationalize (cdr *s5*)))) |
(rationalize (cdr *s5*)))) |
7341 |
0))) |
0))) |
7342 |
0 |
0 |
7343 |
0))) |
0))) |
7344 |
10) |
10) |
7345 |
0) |
0) |
7346 |
|
|
7350 |
nil |
nil |
7351 |
'(lambda (c) |
'(lambda (c) |
7352 |
(declare (optimize (speed 1) (space 0) (safety 1) (debug 3) |
(declare (optimize (speed 1) (space 0) (safety 1) (debug 3) |
7353 |
(compilation-speed 2))) |
(compilation-speed 2))) |
7354 |
(dotimes (iv4 3 0) |
(dotimes (iv4 3 0) |
7355 |
(restart-case (round (multiple-value-bind (*s6*) (cons c 0) |
(restart-case (round (multiple-value-bind (*s6*) (cons c 0) |
7356 |
(car *s6*))))))) |
(car *s6*))))))) |
7357 |
1) |
1) |
7358 |
0) |
0) |
7359 |
|
|
7363 |
nil |
nil |
7364 |
'(lambda () |
'(lambda () |
7365 |
(declare (optimize (speed 2) (space 0) (safety 2) (debug 2) |
(declare (optimize (speed 2) (space 0) (safety 2) (debug 2) |
7366 |
(compilation-speed 1))) |
(compilation-speed 1))) |
7367 |
(values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3)))))) |
(values (floor 0) (multiple-value-bind (v3) (cons 0 0) (car v3)))))) |
7368 |
0 0) |
0 0) |
7369 |
|
|
7377 |
'(lambda (a) |
'(lambda (a) |
7378 |
(declare (type (integer -1397457 1846252) a)) |
(declare (type (integer -1397457 1846252) a)) |
7379 |
(declare (optimize (speed 2) (space 2) (safety 1) |
(declare (optimize (speed 2) (space 2) (safety 1) |
7380 |
(debug 3) (compilation-speed 3))) |
(debug 3) (compilation-speed 3))) |
7381 |
(let ((v9 (make-array nil :initial-element 0))) |
(let ((v9 (make-array nil :initial-element 0))) |
7382 |
(declare (dynamic-extent v9)) |
(declare (dynamic-extent v9)) |
7383 |
(block b8 |
(block b8 |
7384 |
(let ((*s1* 0)) |
(let ((*s1* 0)) |
7385 |
(let ((*s4* (let |
(let ((*s4* (let |
7386 |
((*s1* |
((*s1* |
7387 |
(return-from b8 |
(return-from b8 |
7388 |
(rational |
(rational |
7389 |
(setf (aref v9) |
(setf (aref v9) |
7390 |
(deposit-field -5 |
(deposit-field -5 |
7391 |
(byte 20 30) a)))))) |
(byte 20 30) a)))))) |
7392 |
0))) |
0))) |
7393 |
(let ((*s8* (cons 0 0))) 0))))))) |
(let ((*s8* (cons 0 0))) 0))))))) |
7394 |
399997) |
399997) |
7395 |
1125898833500797) |
1125898833500797) |
7396 |
|
|
7405 |
'(lambda (a) |
'(lambda (a) |
7406 |
(declare (type (integer -1397457 1846252) a)) |
(declare (type (integer -1397457 1846252) a)) |
7407 |
(declare (optimize (speed 2) (space 2) (safety 1) |
(declare (optimize (speed 2) (space 2) (safety 1) |
7408 |
(debug 3) (compilation-speed 3))) |
(debug 3) (compilation-speed 3))) |
7409 |
(let ((v9 (make-array nil :initial-element 0))) |
(let ((v9 (make-array nil :initial-element 0))) |
7410 |
(declare (dynamic-extent v9)) |
(declare (dynamic-extent v9)) |
7411 |
(block b8 |
(block b8 |
7412 |
(let ((s1 0)) |
(let ((s1 0)) |
7413 |
(let ((s4 (let |
(let ((s4 (let |
7414 |
((s1 |
((s1 |
7415 |
(return-from b8 |
(return-from b8 |
7416 |
(rational |
(rational |
7417 |
(setf (aref v9) |
(setf (aref v9) |
7418 |
(deposit-field -5 |
(deposit-field -5 |
7419 |
(byte 20 30) a)))))) |
(byte 20 30) a)))))) |
7420 |
0))) |
0))) |
7421 |
(let ((s8 (cons 0 0))) 0))))))) |
(let ((s8 (cons 0 0))) 0))))))) |
7422 |
399997) |
399997) |
7423 |
1125898833500797) |
1125898833500797) |
7424 |
|
|
7425 |
|
|
7426 |
;;; gcl (31 May 2004, cvs head) |
;;; gcl (31 May 2004, cvs head) |
7427 |
;;; Error in SYSTEM:ASET [or a callee]: Expected a FIXNUM |
;;; Error in SYSTEM:ASET [or a callee]: Expected a FIXNUM |
7428 |
|
|
7433 |
'(lambda (b) |
'(lambda (b) |
7434 |
(declare (type (integer -65822755520 31689335872) b)) |
(declare (type (integer -65822755520 31689335872) b)) |
7435 |
(declare (optimize (speed 2) (space 2) (safety 3) |
(declare (optimize (speed 2) (space 2) (safety 3) |
7436 |
(debug 0) (compilation-speed 1))) |
(debug 0) (compilation-speed 1))) |
7437 |
(let ((s8 (make-array nil :initial-element |
(let ((s8 (make-array nil :initial-element |
7438 |
(catch 'ct4 |
(catch 'ct4 |
7439 |
(complex |
(complex |
7440 |
(dotimes (iv1 1 0) |
(dotimes (iv1 1 0) |
7441 |
(rational (throw 'ct4 b))) |
(rational (throw 'ct4 b))) |
7442 |
0))))) |
0))))) |
7443 |
(elt '(13423701584) |
(elt '(13423701584) |
7444 |
(min 0 |
(min 0 |
7445 |
(max 0 |
(max 0 |
7446 |
(rational |
(rational |
7447 |
(let ((s3 (make-array nil :initial-element 0))) |
(let ((s3 (make-array nil :initial-element 0))) |
7448 |
(if (ldb-test (byte 0 0) |
(if (ldb-test (byte 0 0) |
7449 |
(shiftf (aref s8) |
(shiftf (aref s8) |
7450 |
(aref s8))) |
(aref s8))) |
7451 |
0 0))))))))) |
0 0))))))))) |
7452 |
-38169486910) |
-38169486910) |
7453 |
13423701584) |
13423701584) |
7454 |
|
|
7465 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7466 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7467 |
(declare |
(declare |
7468 |
(optimize (speed 3) (space 1) (safety 0) (debug 3) (compilation-speed 2))) |
(optimize (speed 3) (space 1) (safety 0) (debug 3) (compilation-speed 2))) |
7469 |
(logorc2 |
(logorc2 |
7470 |
(let* ((*s3* (cons 0 a))) |
(let* ((*s3* (cons 0 a))) |
7471 |
(declare (dynamic-extent *s3*)) |
(declare (dynamic-extent *s3*)) |
7472 |
(shiftf c -124766263)) |
(shiftf c -124766263)) |
7473 |
411942919))) |
411942919))) |
7474 |
79909316946 -347537841 -210771963) |
79909316946 -347537841 -210771963) |
7475 |
-142606339) |
-142606339) |
7476 |
|
|
7484 |
nil |
nil |
7485 |
(funcall |
(funcall |
7486 |
(compile |
(compile |
7487 |
nil |
nil |
7488 |
'(lambda () |
'(lambda () |
7489 |
(catch 'ct8 (throw 'ct8 (catch 'ct7 0))))))) |
(catch 'ct8 (throw 'ct8 (catch 'ct7 0))))))) |
7490 |
0) |
0) |
7491 |
|
|
7492 |
(deftest misc.385 |
(deftest misc.385 |
7528 |
(declare (type (integer -13 5553) c)) |
(declare (type (integer -13 5553) c)) |
7529 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7530 |
(declare (optimize (speed 2) (space 1) (safety 0) (debug 0) |
(declare (optimize (speed 2) (space 1) (safety 0) (debug 0) |
7531 |
(compilation-speed 0))) |
(compilation-speed 0))) |
7532 |
(dotimes (iv4 2 0) (multiple-value-setq (c) 4212)))) |
(dotimes (iv4 2 0) (multiple-value-setq (c) 4212)))) |
7533 |
8959928 366395687 5048) |
8959928 366395687 5048) |
7534 |
0) |
0) |
7545 |
(declare (type (integer -24815 15089) c)) |
(declare (type (integer -24815 15089) c)) |
7546 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7547 |
(declare (optimize (speed 2) (space 1) (safety 2) (debug 1) |
(declare (optimize (speed 2) (space 1) (safety 2) (debug 1) |
7548 |
(compilation-speed 0))) |
(compilation-speed 0))) |
7549 |
(multiple-value-setq (c) 8015))) |
(multiple-value-setq (c) 8015))) |
7550 |
-49966124671 -68547159 12944) |
-49966124671 -68547159 12944) |
7551 |
8015) |
8015) |
7561 |
(declare (type (integer -4 2001960914944) c)) |
(declare (type (integer -4 2001960914944) c)) |
7562 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
7563 |
(declare (optimize (speed 2) (space 0) (safety 1) (debug 0) |
(declare (optimize (speed 2) (space 0) (safety 1) (debug 0) |
7564 |
(compilation-speed 1))) |
(compilation-speed 1))) |
7565 |
(labels ((%f12 (f12-1 &optional (f12-2 (setq b 63838027)) &key |
(labels ((%f12 (f12-1 &optional (f12-2 (setq b 63838027)) &key |
7566 |
(key1 0) (key2 0)) |
(key1 0) (key2 0)) |
7567 |
b)) |
b)) |
7568 |
(boole boole-orc2 b (let ((*s3* (%f12 0))) -14))))) |
(boole boole-orc2 b (let ((*s3* (%f12 0))) -14))))) |
7569 |
-173 1028908375 1289968133290) |
-173 1028908375 1289968133290) |
7570 |
1028908383) |
1028908383) |
7571 |
|
|
7578 |
nil |
nil |
7579 |
'(lambda (a b) |
'(lambda (a b) |
7580 |
(declare (optimize (speed 2) (space 0) (safety 0) |
(declare (optimize (speed 2) (space 0) (safety 0) |
7581 |
(debug 1) (compilation-speed 3))) |
(debug 1) (compilation-speed 3))) |
7582 |
(let* ((v5 (cons b b))) |
(let* ((v5 (cons b b))) |
7583 |
(declare (dynamic-extent v5)) |
(declare (dynamic-extent v5)) |
7584 |
a))) |
a))) |
7585 |
'x 'y) |
'x 'y) |
7586 |
x) |
x) |
7587 |
|
|
7596 |
'(lambda (a b) |
'(lambda (a b) |
7597 |
(declare (notinline /=)) |
(declare (notinline /=)) |
7598 |
(declare (optimize (speed 1) (space 2) (safety 1) |
(declare (optimize (speed 1) (space 2) (safety 1) |
7599 |
(debug 3) (compilation-speed 3))) |
(debug 3) (compilation-speed 3))) |
7600 |
(prog2 0 0 (loop for lv4 below 3 count (or b (/= b)))))) |
(prog2 0 0 (loop for lv4 below 3 count (or b (/= b)))))) |
7601 |
1 2) |
1 2) |
7602 |
0) |
0) |
7616 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7617 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7618 |
(declare |
(declare |
7619 |
(optimize (debug 3) (speed 2) (compilation-speed 0) (space 3) |
(optimize (debug 3) (speed 2) (compilation-speed 0) (space 3) |
7620 |
(safety 3))) |
(safety 3))) |
7621 |
(labels ((%f7 |
(labels ((%f7 |
7622 |
(f7-1 f7-2 f7-3 |
(f7-1 f7-2 f7-3 |
7623 |
&optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0) |
&optional (f7-4 (lcm (if (>= b a) 0 a))) (f7-5 0) |
7624 |
&key) |
&key) |
7625 |
0)) |
0)) |
7626 |
(progn (%f7 (%f7 b a a b) b 0) 0)))) |
(progn (%f7 (%f7 b a a b) b 0) 0)))) |
7627 |
447930 66120263479) |
447930 66120263479) |
7628 |
0) |
0) |
7629 |
|
|
7637 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7638 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7639 |
(declare |
(declare |
7640 |
(optimize (safety 3) (space 1) (debug 2) (compilation-speed 3) |
(optimize (safety 3) (space 1) (debug 2) (compilation-speed 3) |
7641 |
(speed 3))) |
(speed 3))) |
7642 |
(dotimes (iv1 2 0) |
(dotimes (iv1 2 0) |
7643 |
(case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b))))) |
(case (min -3693810 a iv1) ((26 -4) (ldb (byte 13 0) a)) (t b))))) |
7644 |
56 -1579426331) |
56 -1579426331) |
7645 |
0) |
0) |
7646 |
|
|
7657 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7658 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7659 |
(declare |
(declare |
7660 |
(optimize (speed 2) (space 0) (debug 3) (compilation-speed 0) |
(optimize (speed 2) (space 0) (debug 3) (compilation-speed 0) |
7661 |
(safety 3))) |
(safety 3))) |
7662 |
(logeqv 0 b))) |
(logeqv 0 b))) |
7663 |
-34528661 843541658238) |
-34528661 843541658238) |
7664 |
-843541658239) |
-843541658239) |
7673 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7674 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7675 |
(declare |
(declare |
7676 |
(optimize (debug 3) (speed 3) (space 2) (safety 0) |
(optimize (debug 3) (speed 3) (space 2) (safety 0) |
7677 |
(compilation-speed 3))) |
(compilation-speed 3))) |
7678 |
(+ (shiftf a 8496033756259) (min 0 b)))) |
(+ (shiftf a 8496033756259) (min 0 b)))) |
7679 |
8369430915156 -369704905) |
8369430915156 -369704905) |
7680 |
8369061210251) |
8369061210251) |
7690 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7691 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7692 |
(declare |
(declare |
7693 |
(optimize (debug 0) (space 2) (speed 0) (safety 3) |
(optimize (debug 0) (space 2) (speed 0) (safety 3) |
7694 |
(compilation-speed 2))) |
(compilation-speed 2))) |
7695 |
(apply (constantly 0) 0 (list (signum b))))) |
(apply (constantly 0) 0 (list (signum b))))) |
7696 |
-1365 -46960621335) |
-1365 -46960621335) |
7697 |
0) |
0) |
7708 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7709 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7710 |
(declare |
(declare |
7711 |
(optimize (speed 0) (safety 3) (compilation-speed 1) (space 0) |
(optimize (speed 0) (safety 3) (compilation-speed 1) (space 0) |
7712 |
(debug 2))) |
(debug 2))) |
7713 |
(labels ((%f4 (f4-1 f4-2 &key) |
(labels ((%f4 (f4-1 f4-2 &key) |
7714 |
(flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a)) |
(flet ((%f7 (f7-1 f7-2 f7-3 &optional &key (key1 a)) |
7715 |
(progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1))) |
(progv '(*s1* *s6* *s2*) (list a 0 key1) f4-1))) |
7716 |
f4-2))) |
f4-2))) |
7717 |
(apply #'%f4 (list a 0))))) |
(apply #'%f4 (list a 0))))) |
7718 |
-156882103995 -38) |
-156882103995 -38) |
7719 |
0) |
0) |
7720 |
|
|
7732 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7733 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7734 |
(declare |
(declare |
7735 |
(optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0) |
(optimize (safety 3) (compilation-speed 1) (debug 1) (speed 0) |
7736 |
(space 0))) |
(space 0))) |
7737 |
(conjugate |
(conjugate |
7738 |
(if t |
(if t |
7739 |
(labels ((%f12 (f12-1 f12-2 f12-3) |
(labels ((%f12 (f12-1 f12-2 f12-3) |
7740 |
0)) |
0)) |
7741 |
(%f12 0 b 0)) |
(%f12 0 b 0)) |
7742 |
(dotimes (iv1 2 0) (catch 'ct2 a)))))) |
(dotimes (iv1 2 0) (catch 'ct2 a)))))) |
7743 |
4430 3476635674) |
4430 3476635674) |
7744 |
0) |
0) |
7754 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7755 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7756 |
(declare |
(declare |
7757 |
(optimize (space 0) (debug 0) (speed 3) (compilation-speed 2) |
(optimize (space 0) (debug 0) (speed 3) (compilation-speed 2) |
7758 |
(safety 3))) |
(safety 3))) |
7759 |
(catch 'ct8 (logior a -457019 -1)))) |
(catch 'ct8 (logior a -457019 -1)))) |
7760 |
0) |
0) |
7761 |
-1) |
-1) |
7770 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7771 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7772 |
(declare |
(declare |
7773 |
(optimize (debug 0) (safety 0) (space 0) (compilation-speed 3) |
(optimize (debug 0) (safety 0) (space 0) (compilation-speed 3) |
7774 |
(speed 3))) |
(speed 3))) |
7775 |
(case (lognand 775 a) ((-7) 0) (t 4)))) |
(case (lognand 775 a) ((-7) 0) (t 4)))) |
7776 |
4182) |
4182) |
7777 |
0) |
0) |
7786 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7787 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7788 |
(declare |
(declare |
7789 |
(optimize (compilation-speed 2) (space 1) (safety 2) (speed 1) |
(optimize (compilation-speed 2) (space 1) (safety 2) (speed 1) |
7790 |
(debug 2))) |
(debug 2))) |
7791 |
(logeqv (setq a 220250126156) 0))) |
(logeqv (setq a 220250126156) 0))) |
7792 |
157474319912) |
157474319912) |
7793 |
-220250126157) |
-220250126157) |
7802 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7803 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7804 |
(declare |
(declare |
7805 |
(optimize (space 1) (safety 3) (debug 1) (compilation-speed 0) |
(optimize (space 1) (safety 3) (debug 1) (compilation-speed 0) |
7806 |
(speed 0))) |
(speed 0))) |
7807 |
(dotimes (iv3 2 0) |
(dotimes (iv3 2 0) |
7808 |
(progn |
(progn |
7809 |
(apply (constantly 0) |
(apply (constantly 0) |
7810 |
(list |
(list |
7811 |
(let* ((*s1* 0)) |
(let* ((*s1* 0)) |
7812 |
*s1*))) |
*s1*))) |
7813 |
0)))) |
0)))) |
7814 |
10) |
10) |
7815 |
0) |
0) |
7816 |
|
|
7824 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7825 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
7826 |
(declare |
(declare |
7827 |
(optimize (space 3) (safety 1) (compilation-speed 1) (speed 0) |
(optimize (space 3) (safety 1) (compilation-speed 1) (speed 0) |
7828 |
(debug 0))) |
(debug 0))) |
7829 |
(dotimes (iv1 0 a) (loop for lv4 below 3 sum (catch 'ct8 0))))) |
(dotimes (iv1 0 a) (loop for lv4 below 3 sum (catch 'ct8 0))))) |
7830 |
-1648) |
-1648) |
7831 |
-1648) |
-1648) |
7837 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
7838 |
nil |
nil |
7839 |
(funcall |
(funcall |
7840 |
(compile |
(compile |
7841 |
nil |
nil |
7842 |
'(lambda (a b) |
'(lambda (a b) |
7843 |
(declare (type (integer -77007578505 7500480849) a)) |
(declare (type (integer -77007578505 7500480849) a)) |
7844 |
(declare (type (integer 211464 53140083) b)) |
(declare (type (integer 211464 53140083) b)) |
7845 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7846 |
(declare (optimize (compilation-speed 0) (speed 2) (debug 3) |
(declare (optimize (compilation-speed 0) (speed 2) (debug 3) |
7847 |
(safety 1) (space 3))) |
(safety 1) (space 3))) |
7848 |
(progn (tagbody (let ((v3 |
(progn (tagbody (let ((v3 |
7849 |
(cons (case a |
(cons (case a |
7850 |
((13 5 -9 2 -13) (go tag8)) |
((13 5 -9 2 -13) (go tag8)) |
7851 |
(t 0)) |
(t 0)) |
7852 |
0))) |
0))) |
7853 |
0) |
0) |
7854 |
tag8) |
tag8) |
7855 |
a))) |
a))) |
7856 |
-1068524571 20786758)) |
-1068524571 20786758)) |
7857 |
-1068524571) |
-1068524571) |
7858 |
|
|
7859 |
(deftest misc.405 |
(deftest misc.405 |
7860 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
7861 |
nil |
nil |
7862 |
(funcall |
(funcall |
7863 |
(compile |
(compile |
7864 |
nil |
nil |
7865 |
'(lambda (a b) |
'(lambda (a b) |
7866 |
(declare (type (integer -82196 13938) a)) |
(declare (type (integer -82196 13938) a)) |
7867 |
(declare (type (integer -44152792 -15846835) b)) |
(declare (type (integer -44152792 -15846835) b)) |
7868 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7869 |
(declare (optimize (compilation-speed 3) (safety 2) (speed 3) |
(declare (optimize (compilation-speed 3) (safety 2) (speed 3) |
7870 |
(space 0) (debug 0))) |
(space 0) (debug 0))) |
7871 |
(block b5 |
(block b5 |
7872 |
(let ((*s7* |
(let ((*s7* |
7873 |
(cons (if (position (if (eql 0 0) |
(cons (if (position (if (eql 0 0) |
7874 |
(return-from b5 |
(return-from b5 |
7875 |
(return-from b5 |
(return-from b5 |
7876 |
(let ((*s6* (cons b a))) 0))) |
(let ((*s6* (cons b a))) 0))) |
7877 |
b) |
b) |
7878 |
#(23) |
#(23) |
7879 |
:test-not |
:test-not |
7880 |
'eql) |
'eql) |
7881 |
0 |
0 |
7882 |
0) |
0) |
7883 |
b))) |
b))) |
7884 |
0)))) |
0)))) |
7885 |
-10305 -26691848)) |
-10305 -26691848)) |
7886 |
0) |
0) |
7887 |
|
|
7888 |
(deftest misc.406 |
(deftest misc.406 |
7889 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
7890 |
nil |
nil |
7891 |
(funcall |
(funcall |
7892 |
(compile |
(compile |
7893 |
nil |
nil |
7894 |
'(lambda (a) |
'(lambda (a) |
7895 |
(declare (type (integer -1 1412366903315) a)) |
(declare (type (integer -1 1412366903315) a)) |
7896 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7897 |
(declare (optimize (debug 3) (safety 3) (space 3) |
(declare (optimize (debug 3) (safety 3) (space 3) |
7898 |
(compilation-speed 1) (speed 2))) |
(compilation-speed 1) (speed 2))) |
7899 |
(progn (tagbody (case 0 ((1 0 4) (values (go 1) 0)) (t 0)) |
(progn (tagbody (case 0 ((1 0 4) (values (go 1) 0)) (t 0)) |
7900 |
1) |
1) |
7901 |
0))) |
0))) |
7902 |
251841706892)) |
251841706892)) |
7903 |
0) |
0) |
7904 |
|
|
7905 |
;;; Incorrect binding |
;;; Incorrect binding |
7911 |
(declare (type (integer -324 175) a)) |
(declare (type (integer -324 175) a)) |
7912 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7913 |
(declare (optimize (safety 0) (space 0) (speed 2) (debug 0) |
(declare (optimize (safety 0) (space 0) (speed 2) (debug 0) |
7914 |
(compilation-speed 0))) |
(compilation-speed 0))) |
7915 |
(multiple-value-bind (v5) (cons (truncate 0) a) (cdr v5)))) |
(multiple-value-bind (v5) (cons (truncate 0) a) (cdr v5)))) |
7916 |
-279) |
-279) |
7917 |
-279) |
-279) |
7922 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
7923 |
nil |
nil |
7924 |
(funcall |
(funcall |
7925 |
(compile |
(compile |
7926 |
nil |
nil |
7927 |
'(lambda (a) |
'(lambda (a) |
7928 |
(declare (type (integer 0 0) a)) |
(declare (type (integer 0 0) a)) |
7929 |
(declare (ignorable a)) |
(declare (ignorable a)) |
7930 |
(declare (optimize (compilation-speed 0) (safety 3) (speed 0) |
(declare (optimize (compilation-speed 0) (safety 3) (speed 0) |
7931 |
(debug 1) (space 0))) |
(debug 1) (space 0))) |
7932 |
(progn (tagbody (dotimes (iv4 0 |
(progn (tagbody (dotimes (iv4 0 |
7933 |
(let ((v5 (cons 0 (if (go 3) 0 0)))) 0)) |
(let ((v5 (cons 0 (if (go 3) 0 0)))) 0)) |
7934 |
(progn 0)) |
(progn 0)) |
7935 |
3) |
3) |
7936 |
(ash 0 (min 16 0))))) |
(ash 0 (min 16 0))))) |
7937 |
0)) |
0)) |
7938 |
0) |
0) |
7939 |
|
|
7940 |
;;; ecl (07 Oct 2004) |
;;; ecl (07 Oct 2004) |
7949 |
(declare (type (integer -5967075 -235) b)) |
(declare (type (integer -5967075 -235) b)) |
7950 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
7951 |
(declare (optimize (speed 2) (safety 1) (space 2) |
(declare (optimize (speed 2) (safety 1) (space 2) |
7952 |
(compilation-speed 3) (debug 0))) |
(compilation-speed 3) (debug 0))) |
7953 |
(labels ((%f2 (f2-1 f2-2 &optional (f2-3 0) (f2-4 a)) 0)) |
(labels ((%f2 (f2-1 f2-2 &optional (f2-3 0) (f2-4 a)) 0)) |
7954 |
(apply #'%f2 a |
(apply #'%f2 a |
7955 |
(%f2 b |
(%f2 b |
7956 |
(flet ((%f12 (f12-1 f12-2 f12-3 &optional &key |
(flet ((%f12 (f12-1 f12-2 f12-3 &optional &key |
7957 |
(key1 0) (key2 0)) |
(key1 0) (key2 0)) |
7958 |
(%f2 0 0))) |
(%f2 0 0))) |
7959 |
(reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a)) |
(reduce #'(lambda (lmv2 lmv1) (%f2 0 0 a)) |
7960 |
(list 0 0 a 0 0 0 a) :end 7)) |
(list 0 0 a 0 0 0 a) :end 7)) |
7961 |
0) |
0) |
7962 |
nil)))) |
nil)))) |
7963 |
-7465 -3590953) |
-7465 -3590953) |
7964 |
0) |
0) |
7965 |
|
|
7974 |
nil |
nil |
7975 |
'(lambda () |
'(lambda () |
7976 |
(declare (optimize (safety 0) (space 1) (compilation-speed 0) |
(declare (optimize (safety 0) (space 1) (compilation-speed 0) |
7977 |
(speed 2) (debug 0))) |
(speed 2) (debug 0))) |
7978 |
(let ((*s2* 0)) |
(let ((*s2* 0)) |
7979 |
(declare (special *s2*)) |
(declare (special *s2*)) |
7980 |
(reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1 |
(reduce #'(lambda (lmv1 lmv2) *s2*) (vector 0) :end 1 |
7981 |
:start 0))))) |
:start 0))))) |
7982 |
0) |
0) |
7983 |
|
|
7984 |
;;; THROW: The catch CT2 is undefined. |
;;; THROW: The catch CT2 is undefined. |
7988 |
nil |
nil |
7989 |
'(lambda () |
'(lambda () |
7990 |
(declare (optimize (safety 2) (debug 0) (space 0) |
(declare (optimize (safety 2) (debug 0) (space 0) |
7991 |
(compilation-speed 2) (speed 0))) |
(compilation-speed 2) (speed 0))) |
7992 |
(catch 'ct2 (values 0 (throw 'ct2 0))) |
(catch 'ct2 (values 0 (throw 'ct2 0))) |
7993 |
0))) |
0))) |
7994 |
0) |
0) |
8004 |
(declare (type (integer -215956065 223815244) b)) |
(declare (type (integer -215956065 223815244) b)) |
8005 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8006 |
(declare (optimize (compilation-speed 2) (space 3) (debug 2) |
(declare (optimize (compilation-speed 2) (space 3) (debug 2) |
8007 |
(safety 1) (speed 3))) |
(safety 1) (speed 3))) |
8008 |
(complex (flet ((%f15 (f15-1 &optional &key (key1 0)) 0)) |
(complex (flet ((%f15 (f15-1 &optional &key (key1 0)) 0)) |
8009 |
(reduce #'(lambda (lmv6 lmv1) (%f15 lmv1)) |
(reduce #'(lambda (lmv6 lmv1) (%f15 lmv1)) |
8010 |
(list b 0))) |
(list b 0))) |
8011 |
0))) |
0))) |
8012 |
-21802 -105983932) |
-21802 -105983932) |
8013 |
0) |
0) |
8014 |
|
|
8022 |
(declare (type (integer 2777758072 5675328792) b)) |
(declare (type (integer 2777758072 5675328792) b)) |
8023 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8024 |
(declare (optimize (compilation-speed 3) (space 3) (debug 3) |
(declare (optimize (compilation-speed 3) (space 3) (debug 3) |
8025 |
(safety 0) (speed 1))) |
(safety 0) (speed 1))) |
8026 |
(labels ((%f8 (f8-1 f8-2 &optional &key (key1 0)) |
(labels ((%f8 (f8-1 f8-2 &optional &key (key1 0)) |
8027 |
(let* ((v2 (ash f8-1 (min 63 a)))) 0))) |
(let* ((v2 (ash f8-1 (min 63 a)))) 0))) |
8028 |
(ignore-errors |
(ignore-errors |
8029 |
(logand (apply #'%f8 0 b nil) |
(logand (apply #'%f8 0 b nil) |
8030 |
(unwind-protect |
(unwind-protect |
8031 |
0 |
0 |
8032 |
(ash (%f8 0 0) |
(ash (%f8 0 0) |
8033 |
(min 48 |
(min 48 |
8034 |
(flet |
(flet |
8035 |
((%f12 |
((%f12 |
8036 |
(f12-1 f12-2 &optional &key |
(f12-1 f12-2 &optional &key |
8037 |
(key1 a) (key2 b) |
(key1 a) (key2 b) |
8038 |
&allow-other-keys) |
&allow-other-keys) |
8039 |
0)) |
0)) |
8040 |
b))))))))) |
b))))))))) |
8041 |
-4794909 4095236669) |
-4794909 4095236669) |
8042 |
0) |
0) |
8043 |
|
|
8050 |
nil |
nil |
8051 |
'(lambda (c) |
'(lambda (c) |
8052 |
(declare (optimize (speed 1) (space 3) (compilation-speed 3) |
(declare (optimize (speed 1) (space 3) (compilation-speed 3) |
8053 |
(debug 3) (safety 1))) |
(debug 3) (safety 1))) |
8054 |
(if (setq c 2) |
(if (setq c 2) |
8055 |
(case (shiftf c 1) ((2) c) (t 0)) |
(case (shiftf c 1) ((2) c) (t 0)) |
8056 |
0))) |
0))) |
8057 |
0) |
0) |
8058 |
1) |
1) |
8059 |
|
|
8065 |
(funcall |
(funcall |
8066 |
#'(lambda (a c) |
#'(lambda (a c) |
8067 |
(catch 'ct2 |
(catch 'ct2 |
8068 |
(flet ((%f17 (&optional x &key) |
(flet ((%f17 (&optional x &key) |
8069 |
(let* ((y (cons (dotimes (iv3 0)) 0))) |
(let* ((y (cons (dotimes (iv3 0)) 0))) |
8070 |
a))) |
a))) |
8071 |
c))) |
c))) |
8072 |
:bad :good) |
:bad :good) |
8073 |
:good) |
:good) |
8074 |
|
|
8080 |
'(lambda (b) |
'(lambda (b) |
8081 |
(declare (type (integer 12052668 22838464) b)) |
(declare (type (integer 12052668 22838464) b)) |
8082 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
8083 |
(declare (optimize (compilation-speed 3) (debug 2) (speed 1) (space 0) |
(declare (optimize (compilation-speed 3) (debug 2) (speed 1) (space 0) |
8084 |
(safety 3))) |
(safety 3))) |
8085 |
(min (mask-field (byte 2 18) b) 89582))) |
(min (mask-field (byte 2 18) b) 89582))) |
8086 |
13891743) |
13891743) |
8087 |
0) |
0) |
8094 |
'(lambda (c) |
'(lambda (c) |
8095 |
(declare (type (integer 995 22565094) c)) |
(declare (type (integer 995 22565094) c)) |
8096 |
(declare (optimize (safety 2) (debug 1) (space 0) (compilation-speed 2) |
(declare (optimize (safety 2) (debug 1) (space 0) (compilation-speed 2) |
8097 |
(speed 1))) |
(speed 1))) |
8098 |
(numerator (floor (numerator (deposit-field 0 (byte 0 0) c)))))) |
(numerator (floor (numerator (deposit-field 0 (byte 0 0) c)))))) |
8099 |
17190042) |
17190042) |
8100 |
17190042) |
17190042) |
8109 |
(declare (type (integer 1670923021 2536883848) a)) |
(declare (type (integer 1670923021 2536883848) a)) |
8110 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
8111 |
(declare (optimize (safety 3) (compilation-speed 3) (speed 1) (debug 1) |
(declare (optimize (safety 3) (compilation-speed 3) (speed 1) (debug 1) |
8112 |
(space 2))) |
(space 2))) |
8113 |
(if (logior (setf c 67) 0 a) a 0))) |
(if (logior (setf c 67) 0 a) a 0))) |
8114 |
2161404325 -1968715305 83) |
2161404325 -1968715305 83) |
8115 |
2161404325) |
2161404325) |
8124 |
nil |
nil |
8125 |
'(lambda () |
'(lambda () |
8126 |
(declare (optimize (safety 3) (speed 3) (compilation-speed 1) (space 1) |
(declare (optimize (safety 3) (speed 3) (compilation-speed 1) (space 1) |
8127 |
(debug 2))) |
(debug 2))) |
8128 |
(boole boole-set 0 (case 2 ((0) 0) (t (numerator (catch 'ct2 0)))))))) |
(boole boole-set 0 (case 2 ((0) 0) (t (numerator (catch 'ct2 0)))))))) |
8129 |
-1) |
-1) |
8130 |
|
|
8141 |
(declare (type (integer 5721249203 36508717226) b)) |
(declare (type (integer 5721249203 36508717226) b)) |
8142 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8143 |
(declare |
(declare |
8144 |
(optimize (space 3) (compilation-speed 2) (safety 3) (speed 0) |
(optimize (space 3) (compilation-speed 2) (safety 3) (speed 0) |
8145 |
(debug 2))) |
(debug 2))) |
8146 |
(flet ((%f14 (f14-1 f14-2 &key) |
(flet ((%f14 (f14-1 f14-2 &key) |
8147 |
(prog2 0 f14-2 (min (catch 'ct4 (floor 120378948 (max 22 a))))))) |
(prog2 0 f14-2 (min (catch 'ct4 (floor 120378948 (max 22 a))))))) |
8148 |
(reduce #'(lambda (lmv6 lmv5) (%f14 0 0)) |
(reduce #'(lambda (lmv6 lmv5) (%f14 0 0)) |
8149 |
(vector 0 0 0) |
(vector 0 0 0) |
8150 |
:start |
:start |
8151 |
0 |
0 |
8152 |
:from-end |
:from-end |
8153 |
t)))) |
t)))) |
8154 |
6313133774518 10840050742) |
6313133774518 10840050742) |
8155 |
0) |
0) |
8156 |
|
|
8161 |
nil |
nil |
8162 |
'(lambda (a) |
'(lambda (a) |
8163 |
(declare (optimize (debug 0) (space 2) (compilation-speed 1) (safety 0) |
(declare (optimize (debug 0) (space 2) (compilation-speed 1) (safety 0) |
8164 |
(speed 0))) |
(speed 0))) |
8165 |
(imagpart (block b8 (logior (catch 'ct7 (return-from b8 a)) -1123785))))) |
(imagpart (block b8 (logior (catch 'ct7 (return-from b8 a)) -1123785))))) |
8166 |
-1021899) |
-1021899) |
8167 |
0) |
0) |
8174 |
'(lambda (a) |
'(lambda (a) |
8175 |
(declare (type (integer -13 -3) a)) |
(declare (type (integer -13 -3) a)) |
8176 |
(declare (optimize (space 2) (debug 1) (safety 1) (speed 2) |
(declare (optimize (space 2) (debug 1) (safety 1) (speed 2) |
8177 |
(compilation-speed 1))) |
(compilation-speed 1))) |
8178 |
(logorc2 (sbit #*0010000011101010 (min 15 (max 0 0))) a))) |
(logorc2 (sbit #*0010000011101010 (min 15 (max 0 0))) a))) |
8179 |
-7) |
-7) |
8180 |
6) |
6) |
8208 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8209 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
8210 |
(declare (optimize (safety 3) (debug 1) (compilation-speed 1) (space 3) |
(declare (optimize (safety 3) (debug 1) (compilation-speed 1) (space 3) |
8211 |
(speed 3))) |
(speed 3))) |
8212 |
(catch 'ct4 |
(catch 'ct4 |
8213 |
(logandc1 a |
(logandc1 a |
8214 |
(ignore-errors |
(ignore-errors |
8226 |
(declare (type (integer -394128 80657) a)) |
(declare (type (integer -394128 80657) a)) |
8227 |
(declare (type (integer 13729431 14852298) b)) |
(declare (type (integer 13729431 14852298) b)) |
8228 |
(declare (optimize (space 2) (compilation-speed 1) (safety 0) (debug 0) |
(declare (optimize (space 2) (compilation-speed 1) (safety 0) (debug 0) |
8229 |
(speed 2))) |
(speed 2))) |
8230 |
(logorc1 (* a (logior b 0)) 0))) |
(logorc1 (* a (logior b 0)) 0))) |
8231 |
-80334 14527920) |
-80334 14527920) |
8232 |
1167085925279) |
1167085925279) |
8239 |
'(lambda () |
'(lambda () |
8240 |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
#+cmu (declare (optimize (extensions:inhibit-warnings 3))) |
8241 |
(declare (optimize (safety 3) (space 3) (speed 3) (debug 1) |
(declare (optimize (safety 3) (space 3) (speed 3) (debug 1) |
8242 |
(compilation-speed 3))) |
(compilation-speed 3))) |
8243 |
(dotimes (iv3 1 0) (logxor iv3 1285775))))) |
(dotimes (iv3 1 0) (logxor iv3 1285775))))) |
8244 |
0) |
0) |
8245 |
|
|
8254 |
'(lambda (a) |
'(lambda (a) |
8255 |
(declare (notinline list reduce logior)) |
(declare (notinline list reduce logior)) |
8256 |
(declare (optimize (safety 2) (compilation-speed 1) |
(declare (optimize (safety 2) (compilation-speed 1) |
8257 |
; #+sbcl (sb-c:insert-step-conditions 0) |
; #+sbcl (sb-c:insert-step-conditions 0) |
8258 |
(speed 3) (space 2) (debug 2))) |
(speed 3) (space 2) (debug 2))) |
8259 |
(logior |
(logior |
8260 |
(let* ((v5 (reduce #'+ (list 0 a)))) |
(let* ((v5 (reduce #'+ (list 0 a)))) |
8261 |
(declare (dynamic-extent v5)) |
(declare (dynamic-extent v5)) |
8262 |
(1- v5))))) |
(1- v5))))) |
8263 |
17) |
17) |
8264 |
16) |
16) |
8265 |
|
|
8269 |
nil |
nil |
8270 |
'(lambda () |
'(lambda () |
8271 |
(declare (notinline -)) |
(declare (notinline -)) |
8272 |
(declare (optimize (compilation-speed 0) (safety 1) (speed 0) |
(declare (optimize (compilation-speed 0) (safety 1) (speed 0) |
8273 |
(debug 2) (space 3))) |
(debug 2) (space 3))) |
8274 |
(let ((v10 (catch 'ct2 1))) |
(let ((v10 (catch 'ct2 1))) |
8275 |
(declare (dynamic-extent v10)) |
(declare (dynamic-extent v10)) |
8276 |
(- v10))))) |
(- v10))))) |
8277 |
-1) |
-1) |
8278 |
|
|
8279 |
(deftest misc.429 |
(deftest misc.429 |
8282 |
nil |
nil |
8283 |
'(lambda () |
'(lambda () |
8284 |
(declare (optimize (safety 1) (debug 1) (space 2) |
(declare (optimize (safety 1) (debug 1) (space 2) |
8285 |
(speed 2) (compilation-speed 1))) |
(speed 2) (compilation-speed 1))) |
8286 |
(let ((v8 (let ((*s3* 0)) *s3*))) |
(let ((v8 (let ((*s3* 0)) *s3*))) |
8287 |
(declare (dynamic-extent v8)) |
(declare (dynamic-extent v8)) |
8288 |
(logandc1 v8 28))))) |
(logandc1 v8 28))))) |
8289 |
28) |
28) |
8290 |
|
|
8291 |
;;; poplog 15.53 |
;;; poplog 15.53 |
8333 |
(declare (type (integer -4085 0) b)) |
(declare (type (integer -4085 0) b)) |
8334 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8335 |
(declare |
(declare |
8336 |
(optimize (space 2) |
(optimize (space 2) |
8337 |
(compilation-speed 0) |
(compilation-speed 0) |
8338 |
#+sbcl (sb-c:insert-step-conditions 0) |
#+sbcl (sb-c:insert-step-conditions 0) |
8339 |
(debug 2) |
(debug 2) |
8340 |
(safety 0) |
(safety 0) |
8341 |
(speed 3))) |
(speed 3))) |
8342 |
(let ((*s5* 0)) |
(let ((*s5* 0)) |
8343 |
(dotimes (iv1 2 0) |
(dotimes (iv1 2 0) |
8344 |
(let ((*s5* |
(let ((*s5* |
8345 |
(elt '(1954479092053) |
(elt '(1954479092053) |
8346 |
(min 0 |
(min 0 |
8347 |
(max 0 |
(max 0 |
8348 |
(if (< iv1 iv1) |
(if (< iv1 iv1) |
8349 |
(lognand iv1 (ash iv1 (min 53 iv1))) |
(lognand iv1 (ash iv1 (min 53 iv1))) |
8350 |
iv1)))))) |
iv1)))))) |
8351 |
0))))) |
0))))) |
8352 |
-7639589303599 -1368) |
-7639589303599 -1368) |
8353 |
0) |
0) |
8354 |
|
|
8361 |
'(lambda (a b c d) |
'(lambda (a b c d) |
8362 |
(declare (notinline aref logandc2 gcd make-array)) |
(declare (notinline aref logandc2 gcd make-array)) |
8363 |
(declare |
(declare |
8364 |
(optimize (space 0) |
(optimize (space 0) |
8365 |
(safety 0) |
(safety 0) |
8366 |
(compilation-speed 3) |
(compilation-speed 3) |
8367 |
(speed 3) |
(speed 3) |
8368 |
(debug 1) |
(debug 1) |
8369 |
)) |
)) |
8370 |
(progn |
(progn |
8371 |
(tagbody |
(tagbody |
8372 |
(let* ((v2 |
(let* ((v2 |
8373 |
(make-array nil :initial-element (catch 'ct1 (go tag2))))) |
(make-array nil :initial-element (catch 'ct1 (go tag2))))) |
8374 |
(declare (dynamic-extent v2)) |
(declare (dynamic-extent v2)) |
8375 |
(gcd (go tag2) (logandc2 (catch 'ct2 c) (aref v2)))) |
(gcd (go tag2) (logandc2 (catch 'ct2 c) (aref v2)))) |
8376 |
tag2) |
tag2) |
8377 |
0))) |
0))) |
8378 |
3021871717588 -866608 -2 -17194) |
3021871717588 -866608 -2 -17194) |
8379 |
0) |
0) |
8380 |
|
|
8396 |
(declare (type (integer 0 160159) b)) |
(declare (type (integer 0 160159) b)) |
8397 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8398 |
(declare |
(declare |
8399 |
(optimize (compilation-speed 1) |
(optimize (compilation-speed 1) |
8400 |
(speed 3) |
(speed 3) |
8401 |
(safety 3) |
(safety 3) |
8402 |
(space 0) |
(space 0) |
8403 |
; #+sbcl (sb-c:insert-step-conditions 0) |
; #+sbcl (sb-c:insert-step-conditions 0) |
8404 |
(debug 0))) |
(debug 0))) |
8405 |
(if |
(if |
8406 |
(oddp |
(oddp |
8407 |
(loop for |
(loop for |
8408 |
lv1 |
lv1 |
8409 |
below |
below |
8410 |
2 |
2 |
8411 |
count |
count |
8412 |
(logbitp 0 |
(logbitp 0 |
8413 |
(1- |
(1- |
8414 |
(ash b |
(ash b |
8415 |
(min 8 |
(min 8 |
8416 |
(count 0 |
(count 0 |
8417 |
'(-10197561 486 430631291 |
'(-10197561 486 430631291 |
8418 |
9674068)))))))) |
9674068)))))))) |
8419 |
b |
b |
8420 |
0))) |
0))) |
8421 |
1265797 110757) |
1265797 110757) |
8422 |
0) |
0) |
8423 |
|
|
8431 |
'(lambda (a b c d e) |
'(lambda (a b c d e) |
8432 |
(declare (notinline values complex eql)) |
(declare (notinline values complex eql)) |
8433 |
(declare |
(declare |
8434 |
(optimize (compilation-speed 3) |
(optimize (compilation-speed 3) |
8435 |
(speed 3) |
(speed 3) |
8436 |
; #+sbcl (sb-c:insert-step-conditions 0) |
; #+sbcl (sb-c:insert-step-conditions 0) |
8437 |
(debug 1) |
(debug 1) |
8438 |
(safety 1) |
(safety 1) |
8439 |
(space 0))) |
(space 0))) |
8440 |
(flet ((%f10 |
(flet ((%f10 |
8441 |
(f10-1 f10-2 f10-3 |
(f10-1 f10-2 f10-3 |
8442 |
&optional (f10-4 (ignore-errors 0)) (f10-5 0) |
&optional (f10-4 (ignore-errors 0)) (f10-5 0) |
8443 |
&key &allow-other-keys) |
&key &allow-other-keys) |
8444 |
(if (or (eql 0 0) t) 0 (if f10-1 0 0)))) |
(if (or (eql 0 0) t) 0 (if f10-1 0 0)))) |
8445 |
(complex (multiple-value-call #'%f10 (values a c b 0 0)) 0)))) |
(complex (multiple-value-call #'%f10 (values a c b 0 0)) 0)))) |
8446 |
80043 74953652306 33658947 -63099937105 -27842393) |
80043 74953652306 33658947 -63099937105 -27842393) |
8447 |
0) |
0) |
8448 |
|
|
8459 |
(compile |
(compile |
8460 |
nil |
nil |
8461 |
' (lambda (a) |
' (lambda (a) |
8462 |
(declare (type (integer 0 1696) a)) |
(declare (type (integer 0 1696) a)) |
8463 |
; (declare (ignorable a)) |
; (declare (ignorable a)) |
8464 |
(declare (optimize (space 2) (debug 0) (safety 1) |
(declare (optimize (space 2) (debug 0) (safety 1) |
8465 |
(compilation-speed 0) (speed 1))) |
(compilation-speed 0) (speed 1))) |
8466 |
(if (logbitp 0 (ash (1- a) (min 11 a))) 0 0))) |
(if (logbitp 0 (ash (1- a) (min 11 a))) 0 0))) |
8467 |
805) |
805) |
8468 |
0) |
0) |
8469 |
|
|
8476 |
(declare (type (integer -15205 18871) a)) |
(declare (type (integer -15205 18871) a)) |
8477 |
(declare (ignorable a)) |
(declare (ignorable a)) |
8478 |
(declare |
(declare |
8479 |
(optimize (space 2) |
(optimize (space 2) |
8480 |
; (sb-c:insert-step-conditions 0) |
; (sb-c:insert-step-conditions 0) |
8481 |
(speed 1) |
(speed 1) |
8482 |
(safety 1) |
(safety 1) |
8483 |
(debug 1) |
(debug 1) |
8484 |
(compilation-speed 3))) |
(compilation-speed 3))) |
8485 |
(if (<= a (- (setf a 10305))) a 0))) |
(if (<= a (- (setf a 10305))) a 0))) |
8486 |
-13589) |
-13589) |
8487 |
10305) |
10305) |
8496 |
'(lambda (a b c) |
'(lambda (a b c) |
8497 |
(declare (notinline logior)) |
(declare (notinline logior)) |
8498 |
(declare (optimize (safety 3) (debug 1) (speed 0) (space 1) |
(declare (optimize (safety 3) (debug 1) (speed 0) (space 1) |
8499 |
(compilation-speed 3))) |
(compilation-speed 3))) |
8500 |
(flet ((%f10 (&optional &key |
(flet ((%f10 (&optional &key |
8501 |
(key1 |
(key1 |
8502 |
(logior (flet ((%f4 (f4-1 |
(logior (flet ((%f4 (f4-1 |
8503 |
&optional |
&optional |
8504 |
&key |
&key |
8505 |
(key1 0) |
(key1 0) |
8506 |
(key2 b) |
(key2 b) |
8507 |
&allow-other-keys) |
&allow-other-keys) |
8508 |
c)) |
c)) |
8509 |
(%f4 0)))) |
(%f4 0)))) |
8510 |
&allow-other-keys) |
&allow-other-keys) |
8511 |
0)) |
0)) |
8512 |
(let ((*s8* (%f10))) |
(let ((*s8* (%f10))) |
8513 |
(declare (special *s8*)) |
(declare (special *s8*)) |
8514 |
*s8*)))) |
*s8*)))) |
8515 |
13524 4484529434427 8109510572804) |
13524 4484529434427 8109510572804) |
8516 |
0) |
0) |
8517 |
|
|
8524 |
(declare (notinline complex)) |
(declare (notinline complex)) |
8525 |
(declare (optimize (compilation-speed 1) (space 1) (speed 3) (safety 2) (debug 3))) |
(declare (optimize (compilation-speed 1) (space 1) (speed 3) (safety 2) (debug 3))) |
8526 |
(flet ((%f8 (f8-1 f8-2 &optional |
(flet ((%f8 (f8-1 f8-2 &optional |
8527 |
&key (key1 (labels ((%f9 nil a)) (complex (%f9) 0))) |
&key (key1 (labels ((%f9 nil a)) (complex (%f9) 0))) |
8528 |
(key2 0) &allow-other-keys) |
(key2 0) &allow-other-keys) |
8529 |
0)) |
0)) |
8530 |
(%f8 0 a)))) |
(%f8 0 a)))) |
8531 |
1 2) |
1 2) |
8532 |
0) |
0) |
8533 |
|
|
8540 |
(declare (notinline apply evenp)) |
(declare (notinline apply evenp)) |
8541 |
(declare (optimize (speed 1) (space 1) (safety 1) (compilation-speed 0) (debug 0))) |
(declare (optimize (speed 1) (space 1) (safety 1) (compilation-speed 0) (debug 0))) |
8542 |
(labels ((%f18 (f18-1 &optional |
(labels ((%f18 (f18-1 &optional |
8543 |
&key |
&key |
8544 |
(key1 (flet ((%f8 nil b)) (if (evenp (%f8)) 0 a))) |
(key1 (flet ((%f8 nil b)) (if (evenp (%f8)) 0 a))) |
8545 |
(key2 0)) |
(key2 0)) |
8546 |
0)) |
0)) |
8547 |
(apply #'%f18 b nil)))) |
(apply #'%f18 b nil)))) |
8548 |
505808341634 -39752189) |
505808341634 -39752189) |
8549 |
0) |
0) |
8550 |
|
|
8563 |
(declare (ignorable a b c d e)) |
(declare (ignorable a b c d e)) |
8564 |
(declare (optimize (compilation-speed 3) (debug 0) (space 0) (safety 1) (speed 1))) |
(declare (optimize (compilation-speed 3) (debug 0) (space 0) (safety 1) (speed 1))) |
8565 |
(catch 'ct7 (lcm (case 0 |
(catch 'ct7 (lcm (case 0 |
8566 |
((-4557) (let ((*s7* (max d))) 0)) |
((-4557) (let ((*s7* (max d))) 0)) |
8567 |
((-15387) c) |
((-15387) c) |
8568 |
(t 0)) |
(t 0)) |
8569 |
(unwind-protect (throw 'ct7 b) 0))))) |
(unwind-protect (throw 'ct7 b) 0))))) |
8570 |
-1748290 -244489705763 38969920 -90 341977) |
-1748290 -244489705763 38969920 -90 341977) |
8571 |
-244489705763) |
-244489705763) |
8572 |
|
|
8586 |
(declare (type (integer -252962 3018671) d)) |
(declare (type (integer -252962 3018671) d)) |
8587 |
(declare (ignorable a b c d)) |
(declare (ignorable a b c d)) |
8588 |
(declare (optimize (safety 3) (space 3) (speed 3) |
(declare (optimize (safety 3) (space 3) (speed 3) |
8589 |
(compilation-speed 3) (debug 3))) |
(compilation-speed 3) (debug 3))) |
8590 |
(* (labels ((%f8 (&optional (f8-1 0)) (setq b 0))) |
(* (labels ((%f8 (&optional (f8-1 0)) (setq b 0))) |
8591 |
(if (> d 1668249724 (%f8)) 0 (complex a 0))) |
(if (> d 1668249724 (%f8)) 0 (complex a 0))) |
8592 |
(if (oddp b) 0 c)))) |
(if (oddp b) 0 c)))) |
8593 |
796131 -1 -338008808923 530637) |
796131 -1 -338008808923 530637) |
8594 |
-269099291056676913) |
-269099291056676913) |
8595 |
|
|
8600 |
'(lambda (a) |
'(lambda (a) |
8601 |
(declare (type (integer 38632397 46632460288) a)) |
(declare (type (integer 38632397 46632460288) a)) |
8602 |
(declare (optimize (space 0) (safety 0) (debug 1) |
(declare (optimize (space 0) (safety 0) (debug 1) |
8603 |
(compilation-speed 1) (speed 0))) |
(compilation-speed 1) (speed 0))) |
8604 |
(catch 'ct2 (if (= a 0 (throw 'ct2 0)) 1 2289596)))) |
(catch 'ct2 (if (= a 0 (throw 'ct2 0)) 1 2289596)))) |
8605 |
18160383912) |
18160383912) |
8606 |
0) |
0) |
8613 |
(declare (type (integer -3716 1269) a)) |
(declare (type (integer -3716 1269) a)) |
8614 |
(declare (type (integer -1976579 2312) b)) |
(declare (type (integer -1976579 2312) b)) |
8615 |
(declare (optimize (compilation-speed 1) (safety 0) |
(declare (optimize (compilation-speed 1) (safety 0) |
8616 |
(speed 0) (space 0) (debug 3))) |
(speed 0) (space 0) (debug 3))) |
8617 |
(if (<= 0 b (setq a 117)) 0 a))) |
(if (<= 0 b (setq a 117)) 0 a))) |
8618 |
-1147 -44004) |
-1147 -44004) |
8619 |
117) |
117) |
8637 |
|
|
8638 |
(deftest misc.451 |
(deftest misc.451 |
8639 |
(funcall (compile nil '(lambda (a b) (flet ((%f3 () (setq a -2210))) |
(funcall (compile nil '(lambda (a b) (flet ((%f3 () (setq a -2210))) |
8640 |
(logxor a b (%f3))))) |
(logxor a b (%f3))))) |
8641 |
-22650 20595) |
-22650 20595) |
8642 |
171) |
171) |
8643 |
|
|
8644 |
(deftest misc.452 |
(deftest misc.452 |
8645 |
(funcall (compile nil '(lambda (d) (labels ((%f3 () (setf d -1135) -983)) |
(funcall (compile nil '(lambda (d) (labels ((%f3 () (setf d -1135) -983)) |
8646 |
(+ d (%f3) 11267)))) |
(+ d (%f3) 11267)))) |
8647 |
-2914) |
-2914) |
8648 |
7370) |
7370) |
8649 |
|
|
8650 |
(deftest misc.453 |
(deftest misc.453 |
8651 |
(funcall (compile nil '(lambda (a) (* a (setf a 2) a (identity 5)))) |
(funcall (compile nil '(lambda (a) (* a (setf a 2) a (identity 5)))) |
8652 |
3) |
3) |
8653 |
60) |
60) |
8654 |
|
|
8655 |
(deftest misc.454 |
(deftest misc.454 |
8656 |
(let* ((form '(let ((v1 0)) (decf v1 (setq v1 -1)))) |
(let* ((form '(let ((v1 0)) (decf v1 (setq v1 -1)))) |
8657 |
(val1 (eval form)) |
(val1 (eval form)) |
8658 |
(val2 (funcall (compile nil `(lambda () ,form))))) |
(val2 (funcall (compile nil `(lambda () ,form))))) |
8659 |
(if (eql val1 val2) :good |
(if (eql val1 val2) :good |
8660 |
(list val1 val2))) |
(list val1 val2))) |
8661 |
:good) |
:good) |
8672 |
'(lambda (a b) |
'(lambda (a b) |
8673 |
(declare (type (integer -4079701634499 2272876436845) b)) |
(declare (type (integer -4079701634499 2272876436845) b)) |
8674 |
(declare (optimize (space 0) (compilation-speed 1) |
(declare (optimize (space 0) (compilation-speed 1) |
8675 |
(safety 3) (speed 2) (debug 0))) |
(safety 3) (speed 2) (debug 0))) |
8676 |
(logand (* -775 b) a 37284))) |
(logand (* -775 b) a 37284))) |
8677 |
-18465060867 832909434173) |
-18465060867 832909434173) |
8678 |
32772) |
32772) |
8685 |
(declare (type (integer -30606350847 35078064098) b)) |
(declare (type (integer -30606350847 35078064098) b)) |
8686 |
(declare (type (integer -6652 6638) c)) |
(declare (type (integer -6652 6638) c)) |
8687 |
(declare (optimize (space 3) (safety 0) |
(declare (optimize (space 3) (safety 0) |
8688 |
(speed 0) (compilation-speed 2) (debug 1))) |
(speed 0) (compilation-speed 2) (debug 1))) |
8689 |
(logand (* -9964236 (setq c 6206) 2600) b c))) |
(logand (* -9964236 (setq c 6206) 2600) b c))) |
8690 |
17296668225 -6574) |
17296668225 -6574) |
8691 |
4096) |
4096) |
8700 |
(declare (type (integer -455461 343063) a)) |
(declare (type (integer -455461 343063) a)) |
8701 |
(declare (type (integer -1020097 -12430) b)) |
(declare (type (integer -1020097 -12430) b)) |
8702 |
(declare (optimize (speed 3) (space 0) (compilation-speed 3) |
(declare (optimize (speed 3) (space 0) (compilation-speed 3) |
8703 |
(debug 0) (safety 3))) |
(debug 0) (safety 3))) |
8704 |
(deposit-field (* (logeqv a a) b) (byte 6 24) 0))) |
(deposit-field (* (logeqv a a) b) (byte 6 24) 0))) |
8705 |
-212811 -985078) |
-212811 -985078) |
8706 |
0) |
0) |
8714 |
' (lambda (a) |
' (lambda (a) |
8715 |
(declare (type (integer -8175 27760966190) a)) |
(declare (type (integer -8175 27760966190) a)) |
8716 |
(declare (optimize |
(declare (optimize |
8717 |
;; The next optimize declaration is necessary |
;; The next optimize declaration is necessary |
8718 |
;; for the bug to occur in sbcl 0.8.17.24 |
;; for the bug to occur in sbcl 0.8.17.24 |
8719 |
#+sbcl (sb-c:insert-step-conditions 0) |
#+sbcl (sb-c:insert-step-conditions 0) |
8720 |
(space 2) (speed 0) (compilation-speed 1) |
(space 2) (speed 0) (compilation-speed 1) |
8721 |
(safety 0) (debug 3))) |
(safety 0) (debug 3))) |
8722 |
(ldb (byte 29 0) (* a a)))) |
(ldb (byte 29 0) (* a a)))) |
8723 |
14774118941) |
14774118941) |
8724 |
101418825) |
101418825) |
8733 |
(declare (type (integer -32933298905 -168011) a)) |
(declare (type (integer -32933298905 -168011) a)) |
8734 |
(declare (type (integer -190015111797 16) b)) |
(declare (type (integer -190015111797 16) b)) |
8735 |
(declare (optimize (speed 2) (compilation-speed 0) (space 0) |
(declare (optimize (speed 2) (compilation-speed 0) (space 0) |
8736 |
(safety 1) (debug 0))) |
(safety 1) (debug 0))) |
8737 |
(logand (+ b -9255) a 63))) |
(logand (+ b -9255) a 63))) |
8738 |
-8166030199 -45872222127) |
-8166030199 -45872222127) |
8739 |
8) |
8) |
8751 |
(declare (type (integer 50354997 50514623) a)) |
(declare (type (integer 50354997 50514623) a)) |
8752 |
(declare (ignorable a)) |
(declare (ignorable a)) |
8753 |
(declare |
(declare |
8754 |
(optimize (speed 0) |
(optimize (speed 0) |
8755 |
(safety 0) |
(safety 0) |
8756 |
(compilation-speed 3) |
(compilation-speed 3) |
8757 |
#+sbcl (sb-c:insert-step-conditions 0) |
#+sbcl (sb-c:insert-step-conditions 0) |
8758 |
(debug 1) |
(debug 1) |
8759 |
(space 1))) |
(space 1))) |
8760 |
(loop for lv3 below 2 |
(loop for lv3 below 2 |
8761 |
sum (if (find 0 |
sum (if (find 0 |
8762 |
'(-17604051 126613572 -795198 12037855 127043241 -2 -59 |
'(-17604051 126613572 -795198 12037855 127043241 -2 -59 |
8763 |
-3458890 1505 -1 -2 107498637 -977489 172087 421813 |
-3458890 1505 -1 -2 107498637 -977489 172087 421813 |
8764 |
543299114 12 4311490 569 -3509 -4051770 -1 1 1 |
543299114 12 4311490 569 -3509 -4051770 -1 1 1 |
8765 |
216399387 -2482 143297 2 304550 -61 -195904988 |
216399387 -2482 143297 2 304550 -61 -195904988 |
8766 |
57682175 2344 1294831 -247 -2 25779388 -296 -12115 |
57682175 2344 1294831 -247 -2 25779388 -296 -12115 |
8767 |
-158487 -15) |
-158487 -15) |
8768 |
:test 'eql) |
:test 'eql) |
8769 |
(if (find 0 #(4193594) :test '<) |
(if (find 0 #(4193594) :test '<) |
8770 |
(min (catch 'ct6 0) (catch 'ct8 0) 0) |
(min (catch 'ct6 0) (catch 'ct8 0) 0) |
8771 |
(let ((*s1* (cons a 0))) |
(let ((*s1* (cons a 0))) |
8772 |
(car *s1*))) |
(car *s1*))) |
8773 |
0)))) |
0)))) |
8774 |
50395193) |
50395193) |
8775 |
0) |
0) |
8776 |
|
|
8780 |
(deftest misc.461 |
(deftest misc.461 |
8781 |
(funcall |
(funcall |
8782 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
8783 |
(declare (type (integer -26657952320 0) a)) |
(declare (type (integer -26657952320 0) a)) |
8784 |
(declare (optimize (compilation-speed 0) (space 3) (speed 3) |
(declare (optimize (compilation-speed 0) (space 3) (speed 3) |
8785 |
(safety 0) (debug 2))) |
(safety 0) (debug 2))) |
8786 |
(- a |
(- a |
8787 |
(ash -1 (min 31 (- a))) |
(ash -1 (min 31 (- a))) |
8788 |
-26715477))) |
-26715477))) |
8789 |
-26179151369) |
-26179151369) |
8790 |
-24004952244) |
-24004952244) |
8791 |
|
|
8797 |
(deftest misc.462 |
(deftest misc.462 |
8798 |
(funcall |
(funcall |
8799 |
(compile nil '(lambda (a b) |
(compile nil '(lambda (a b) |
8800 |
(declare (type (integer -2726808666112 -26532) a)) |
(declare (type (integer -2726808666112 -26532) a)) |
8801 |
(declare (type (integer 182701814 171137312256) b)) |
(declare (type (integer 182701814 171137312256) b)) |
8802 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8803 |
(declare (optimize (compilation-speed 3) (safety 0) |
(declare (optimize (compilation-speed 3) (safety 0) |
8804 |
(speed 3) (space 3) (debug 3))) |
(speed 3) (space 3) (debug 3))) |
8805 |
(ash (let* ((v8 (cons 0 0))) 0) (min 15 a)))) |
(ash (let* ((v8 (cons 0 0))) 0) (min 15 a)))) |
8806 |
-1982565461868 46279989780) |
-1982565461868 46279989780) |
8807 |
0) |
0) |
8808 |
|
|
8811 |
(deftest misc.463 |
(deftest misc.463 |
8812 |
(funcall |
(funcall |
8813 |
(compile nil '(lambda (a b) |
(compile nil '(lambda (a b) |
8814 |
(declare (type (integer 0 0) a)) |
(declare (type (integer 0 0) a)) |
8815 |
(declare (type (integer -160364747008 264742845184) b)) |
(declare (type (integer -160364747008 264742845184) b)) |
8816 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
8817 |
(declare (optimize (debug 0) (safety 0) |
(declare (optimize (debug 0) (safety 0) |
8818 |
(compilation-speed 2) (space 0) |
(compilation-speed 2) (space 0) |
8819 |
(speed 1))) |
(speed 1))) |
8820 |
(ash (multiple-value-setq (a) 0) (min 97 13027666096)))) |
(ash (multiple-value-setq (a) 0) (min 97 13027666096)))) |
8821 |
0 34670845086) |
0 34670845086) |
8822 |
0) |
0) |
8823 |
|
|
8827 |
(deftest misc.464 |
(deftest misc.464 |
8828 |
(funcall |
(funcall |
8829 |
(compile nil '(lambda () |
(compile nil '(lambda () |
8830 |
(declare (optimize (debug 1) (safety 2) (compilation-speed 0) |
(declare (optimize (debug 1) (safety 2) (compilation-speed 0) |
8831 |
(space 1) (speed 1))) |
(space 1) (speed 1))) |
8832 |
(count (ash (the integer |
(count (ash (the integer |
8833 |
(macrolet () (rem -197 (min -72 215)))) |
(macrolet () (rem -197 (min -72 215)))) |
8834 |
(min 98 442719)) |
(min 98 442719)) |
8835 |
#(0 96) :test '=)))) |
#(0 96) :test '=)))) |
8836 |
0) |
0) |
8837 |
|
|
8838 |
(deftest misc.465 |
(deftest misc.465 |
8839 |
(funcall |
(funcall |
8840 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
8841 |
(declare (type (integer -18822 -1280) a)) |
(declare (type (integer -18822 -1280) a)) |
8842 |
(declare (optimize (debug 0) (speed 1) |
(declare (optimize (debug 0) (speed 1) |
8843 |
(compilation-speed 3) (safety 0) |
(compilation-speed 3) (safety 0) |
8844 |
(space 0))) |
(space 0))) |
8845 |
(ash (the integer |
(ash (the integer |
8846 |
(logand a (if t a (imagpart -2607360)))) |
(logand a (if t a (imagpart -2607360)))) |
8847 |
(min 79 (catch 'ct7 0))))) |
(min 79 (catch 'ct7 0))))) |
8848 |
-17635) |
-17635) |
8849 |
-17635) |
-17635) |
8850 |
|
|
8857 |
|
|
8858 |
(deftest misc.466 |
(deftest misc.466 |
8859 |
(funcall (compile nil '(lambda (x) |
(funcall (compile nil '(lambda (x) |
8860 |
(declare (type (member 4 -1) x) |
(declare (type (member 4 -1) x) |
8861 |
(optimize speed (safety 1))) |
(optimize speed (safety 1))) |
8862 |
(isqrt x))) |
(isqrt x))) |
8863 |
4) |
4) |
8864 |
2) |
2) |
8865 |
|
|
8866 |
;;; gcl 24 Dec 2004 |
;;; gcl 24 Dec 2004 |
8870 |
(deftest misc.467 |
(deftest misc.467 |
8871 |
(funcall |
(funcall |
8872 |
(compile nil '(lambda (p2 p3) |
(compile nil '(lambda (p2 p3) |
8873 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8874 |
(type (integer -990888631320) p2) |
(type (integer -990888631320) p2) |
8875 |
(type (integer -20346 -19755) p3)) |
(type (integer -20346 -19755) p3)) |
8876 |
(+ -77 (the (integer * -990888630255) p2) p3))) |
(+ -77 (the (integer * -990888630255) p2) p3))) |
8877 |
-990888630272 -19756) |
-990888630272 -19756) |
8878 |
-990888650105) |
-990888650105) |
8879 |
|
|
8880 |
(deftest misc.468 |
(deftest misc.468 |
8881 |
(funcall |
(funcall |
8882 |
(compile nil '(lambda (p2 p3) |
(compile nil '(lambda (p2 p3) |
8883 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8884 |
(type (integer * 151075404030) p2) |
(type (integer * 151075404030) p2) |
8885 |
(type (integer 6515518 *) p3)) |
(type (integer 6515518 *) p3)) |
8886 |
(- 12967657127936 (the (eql 151075403520) p2) |
(- 12967657127936 (the (eql 151075403520) p2) |
8887 |
(the (member 6515658 -14) p3)))) |
(the (member 6515658 -14) p3)))) |
8888 |
151075403520 6515658) |
151075403520 6515658) |
8889 |
12816575208758) |
12816575208758) |
8890 |
|
|
8891 |
(deftest misc.469 |
(deftest misc.469 |
8892 |
(funcall |
(funcall |
8893 |
(compile nil '(lambda (p2) |
(compile nil '(lambda (p2) |
8894 |
(declare (optimize speed (safety 1)) (type integer p2)) |
(declare (optimize speed (safety 1)) (type integer p2)) |
8895 |
(+ 30926 (the (integer -4025987543018 *) p2)))) |
(+ 30926 (the (integer -4025987543018 *) p2)))) |
8896 |
-4025817763840) |
-4025817763840) |
8897 |
-4025817732914) |
-4025817732914) |
8898 |
|
|
8899 |
(deftest misc.470 |
(deftest misc.470 |
8900 |
(funcall |
(funcall |
8901 |
(compile nil '(lambda (p2) |
(compile nil '(lambda (p2) |
8902 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8903 |
(type (integer 3689224658939 *) p2)) |
(type (integer 3689224658939 *) p2)) |
8904 |
(+ -1071 (the (integer * 3689229115390) p2)))) |
(+ -1071 (the (integer * 3689229115390) p2)))) |
8905 |
3689228853248) |
3689228853248) |
8906 |
3689228852177) |
3689228852177) |
8907 |
|
|
8908 |
(deftest misc.471 |
(deftest misc.471 |
8909 |
(funcall |
(funcall |
8910 |
(compile nil '(lambda (p1 p2) |
(compile nil '(lambda (p1 p2) |
8911 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8912 |
(type (integer -9024844 230253450) p1) |
(type (integer -9024844 230253450) p1) |
8913 |
(type (eql 35716681856) p2)) |
(type (eql 35716681856) p2)) |
8914 |
(* p1 (the (integer * 35716681856) p2)))) |
(* p1 (the (integer * 35716681856) p2)))) |
8915 |
-9024809 35716681856) |
-9024809 35716681856) |
8916 |
-322336231864165504) |
-322336231864165504) |
8917 |
|
|
8918 |
(deftest misc.472 |
(deftest misc.472 |
8919 |
(funcall |
(funcall |
8920 |
(compile nil '(lambda (p1 p2) |
(compile nil '(lambda (p1 p2) |
8921 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8922 |
(type (integer -785238 -80) p1) |
(type (integer -785238 -80) p1) |
8923 |
(type (eql -523213622272) p2)) |
(type (eql -523213622272) p2)) |
8924 |
(min p1 (the integer p2)))) |
(min p1 (the integer p2)))) |
8925 |
-259 -523213622272) |
-259 -523213622272) |
8926 |
-523213622272) |
-523213622272) |
8927 |
|
|
8928 |
(deftest misc.473 |
(deftest misc.473 |
8929 |
(funcall |
(funcall |
8930 |
(compile nil '(lambda (p2) |
(compile nil '(lambda (p2) |
8931 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8932 |
(type (integer * 65861934352) p2)) |
(type (integer * 65861934352) p2)) |
8933 |
(max 23939 (the (integer 64863825609 65878336765) p2)))) |
(max 23939 (the (integer 64863825609 65878336765) p2)))) |
8934 |
65861912512) |
65861912512) |
8935 |
65861912512) |
65861912512) |
8936 |
|
|
8937 |
(deftest misc.474 |
(deftest misc.474 |
8938 |
(funcall |
(funcall |
8939 |
(compile nil '(lambda (p1) |
(compile nil '(lambda (p1) |
8940 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8941 |
(type (integer -6750156308) p1)) |
(type (integer -6750156308) p1)) |
8942 |
(logand (the signed-byte p1) -540165229))) |
(logand (the signed-byte p1) -540165229))) |
8943 |
-6750156304) |
-6750156304) |
8944 |
-7289140848) |
-7289140848) |
8945 |
|
|
8951 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
8952 |
nil |
nil |
8953 |
(funcall |
(funcall |
8954 |
(compile nil '(lambda (p1 p2 p3 p4 p6) |
(compile nil '(lambda (p1 p2 p3 p4 p6) |
8955 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8956 |
(type (integer -785238 61564048) p1) |
(type (integer -785238 61564048) p1) |
8957 |
(type (integer * 65861934352) p2)) |
(type (integer * 65861934352) p2)) |
8958 |
(+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4 |
(+ P1 (THE (INTEGER -485480 -7019) P2) P3 P4 |
8959 |
463666373060 |
463666373060 |
8960 |
P6))) |
P6))) |
8961 |
61564048 -7457 24939545512 51 730)) |
61564048 -7457 24939545512 51 730)) |
8962 |
488667475944) |
488667475944) |
8963 |
|
|
8964 |
(deftest misc.476 |
(deftest misc.476 |
8965 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
8966 |
nil |
nil |
8967 |
(funcall |
(funcall |
8968 |
(compile nil '(lambda (p4) |
(compile nil '(lambda (p4) |
8969 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8970 |
(type (integer -115781893486) p4)) |
(type (integer -115781893486) p4)) |
8971 |
(- 1 -35 0 (the (integer -115778245122) p4) -2))) |
(- 1 -35 0 (the (integer -115778245122) p4) -2))) |
8972 |
-115778114900)) |
-115778114900)) |
8973 |
115778114938) |
115778114938) |
8974 |
|
|
8975 |
(deftest misc.477 |
(deftest misc.477 |
8976 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
8977 |
nil |
nil |
8978 |
(funcall |
(funcall |
8979 |
(compile nil '(lambda (p4 p5) |
(compile nil '(lambda (p4 p5) |
8980 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8981 |
(type (integer -126908726190 -126906628448) p4) |
(type (integer -126908726190 -126906628448) p4) |
8982 |
(type (integer * 2202) p5)) |
(type (integer * 2202) p5)) |
8983 |
(* -1950 -33610502463 2 p4 p5))) |
(* -1950 -33610502463 2 p4 p5))) |
8984 |
-126906629040 1839)) |
-126906629040 1839)) |
8985 |
-30591843552678654213361992000) |
-30591843552678654213361992000) |
8986 |
|
|
8987 |
(deftest misc.478 |
(deftest misc.478 |
8988 |
(let #+armedbear ((jvm::*catch-errors* nil)) |
(let #+armedbear ((jvm::*catch-errors* nil)) |
8989 |
nil |
nil |
8990 |
(funcall |
(funcall |
8991 |
(compile nil '(lambda (p2) |
(compile nil '(lambda (p2) |
8992 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
8993 |
(type (integer * 2343679) p2)) |
(type (integer * 2343679) p2)) |
8994 |
(logand 12050257282405 p2 117775123 505354693 -415679150084))) |
(logand 12050257282405 p2 117775123 505354693 -415679150084))) |
8995 |
-6189)) |
-6189)) |
8996 |
33816832) |
33816832) |
8997 |
|
|
8998 |
;;; Bug in CMUCL Snapshot 2004-10 |
;;; Bug in CMUCL Snapshot 2004-10 |
9000 |
|
|
9001 |
(deftest misc.479 |
(deftest misc.479 |
9002 |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9003 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9004 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9005 |
(type (simple-array (unsigned-byte 32) nil) r) |
(type (simple-array (unsigned-byte 32) nil) r) |
9006 |
(type integer p2)) |
(type integer p2)) |
9007 |
(setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2))) |
(setf (aref r) (logxor 0 (the (integer 2797513123 2798027357) p2))) |
9008 |
(values))))) |
(values))))) |
9009 |
(funcall fn r 2797674503) |
(funcall fn r 2797674503) |
9010 |
(aref r)) |
(aref r)) |
9011 |
2797674503) |
2797674503) |
9012 |
|
|
9013 |
(deftest misc.480 |
(deftest misc.480 |
9014 |
(let ((r (make-array nil :element-type 'integer)) |
(let ((r (make-array nil :element-type 'integer)) |
9015 |
(fn (compile nil '(lambda (r p1) |
(fn (compile nil '(lambda (r p1) |
9016 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9017 |
(type (simple-array integer nil) r) |
(type (simple-array integer nil) r) |
9018 |
(type (integer -797971 -797511) p1)) |
(type (integer -797971 -797511) p1)) |
9019 |
(setf (aref r) (logeqv p1 15 1078254884158 -12564176924 0 15096591909)) |
(setf (aref r) (logeqv p1 15 1078254884158 -12564176924 0 15096591909)) |
9020 |
(values))))) |
(values))))) |
9021 |
(funcall fn r -797965) |
(funcall fn r -797965) |
9022 |
(aref r)) |
(aref r)) |
9023 |
-1075415510532) |
-1075415510532) |
9024 |
|
|
9025 |
(deftest misc.481 |
(deftest misc.481 |
9026 |
(let ((r (make-array nil :element-type '(unsigned-byte 16))) |
(let ((r (make-array nil :element-type '(unsigned-byte 16))) |
9027 |
(fn (compile nil '(lambda (r p1) |
(fn (compile nil '(lambda (r p1) |
9028 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9029 |
(type (simple-array (unsigned-byte 16) nil) r) |
(type (simple-array (unsigned-byte 16) nil) r) |
9030 |
(type (member 4194309 -123 1692 -4432 -760653 -1741 37) p1)) |
(type (member 4194309 -123 1692 -4432 -760653 -1741 37) p1)) |
9031 |
(setf (aref r) (logorc1 (the (eql -4432) p1) 0)) |
(setf (aref r) (logorc1 (the (eql -4432) p1) 0)) |
9032 |
(values))))) |
(values))))) |
9033 |
(funcall fn r -4432) |
(funcall fn r -4432) |
9034 |
(aref r)) |
(aref r)) |
9035 |
4431) |
4431) |
9038 |
|
|
9039 |
(deftest misc.482 |
(deftest misc.482 |
9040 |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
9041 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9042 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9043 |
(type (simple-array (unsigned-byte 4) nil) r) |
(type (simple-array (unsigned-byte 4) nil) r) |
9044 |
(type (eql -4) p2)) |
(type (eql -4) p2)) |
9045 |
(setf (aref r) (logorc2 13 p2)) |
(setf (aref r) (logorc2 13 p2)) |
9046 |
(values))))) |
(values))))) |
9047 |
(funcall fn r -4) |
(funcall fn r -4) |
9048 |
(aref r)) |
(aref r)) |
9049 |
15) |
15) |
9050 |
|
|
9051 |
(deftest misc.483 |
(deftest misc.483 |
9052 |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
9053 |
(fn (compile nil '(lambda (r p1 p2) |
(fn (compile nil '(lambda (r p1 p2) |
9054 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9055 |
(type (simple-array (unsigned-byte 4) nil) r) |
(type (simple-array (unsigned-byte 4) nil) r) |
9056 |
(type (integer * 28306533) p1) |
(type (integer * 28306533) p1) |
9057 |
(type (integer * 1245601) p2)) |
(type (integer * 1245601) p2)) |
9058 |
(setf (aref r) (logandc1 p1 (the (integer -3308174) p2))) |
(setf (aref r) (logandc1 p1 (the (integer -3308174) p2))) |
9059 |
(values))))) |
(values))))) |
9060 |
(funcall fn r -519 -28180) |
(funcall fn r -519 -28180) |
9061 |
(aref r)) |
(aref r)) |
9062 |
4) |
4) |
9063 |
|
|
9064 |
(deftest misc.484 |
(deftest misc.484 |
9065 |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
9066 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9067 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9068 |
(type (simple-array (unsigned-byte 4) nil) r) |
(type (simple-array (unsigned-byte 4) nil) r) |
9069 |
(type (member 260646 -348969 34359738370 -110167) p2)) |
(type (member 260646 -348969 34359738370 -110167) p2)) |
9070 |
(setf (aref r) (logandc2 9 (the (eql -348969) p2))) |
(setf (aref r) (logandc2 9 (the (eql -348969) p2))) |
9071 |
(values))))) |
(values))))) |
9072 |
(funcall fn r -348969) |
(funcall fn r -348969) |
9073 |
(aref r)) |
(aref r)) |
9074 |
8) |
8) |
9075 |
|
|
9076 |
(deftest misc.485 |
(deftest misc.485 |
9077 |
(let ((r (make-array nil :element-type 'bit)) |
(let ((r (make-array nil :element-type 'bit)) |
9078 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9079 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9080 |
(type (simple-array bit nil) r) |
(type (simple-array bit nil) r) |
9081 |
(type (integer -108220 256178) p2)) |
(type (integer -108220 256178) p2)) |
9082 |
(setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2))) |
(setf (aref r) (logand 1 (the (member -1 2147483652 1 -5 3802) p2))) |
9083 |
(values))))) |
(values))))) |
9084 |
(funcall fn r -5) |
(funcall fn r -5) |
9085 |
(aref r)) |
(aref r)) |
9086 |
1) |
1) |
9087 |
|
|
9088 |
(deftest misc.486 |
(deftest misc.486 |
9089 |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
(let ((r (make-array nil :element-type '(unsigned-byte 4))) |
9090 |
(fn (compile nil '(lambda (r p1 p2) |
(fn (compile nil '(lambda (r p1 p2) |
9091 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9092 |
(type (simple-array (unsigned-byte 4) nil) r) |
(type (simple-array (unsigned-byte 4) nil) r) |
9093 |
(type (integer -9) p1) |
(type (integer -9) p1) |
9094 |
(type (integer * 1234117) p2)) |
(type (integer * 1234117) p2)) |
9095 |
(setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2))) |
(setf (aref r) (logior (the (integer -295 *) p1) (the (integer -90 *) p2))) |
9096 |
(values))))) |
(values))))) |
9097 |
(funcall fn r 6 6) |
(funcall fn r 6 6) |
9098 |
(aref r)) |
(aref r)) |
9099 |
6) |
6) |
9100 |
|
|
9101 |
(deftest misc.487 |
(deftest misc.487 |
9102 |
(let ((r (make-array nil :element-type '(unsigned-byte 16))) |
(let ((r (make-array nil :element-type '(unsigned-byte 16))) |
9103 |
(fn (compile nil '(lambda (r p1) |
(fn (compile nil '(lambda (r p1) |
9104 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9105 |
(type (simple-array (unsigned-byte 16) nil) r) |
(type (simple-array (unsigned-byte 16) nil) r) |
9106 |
(type (integer 1583040351 1587341394) p1)) |
(type (integer 1583040351 1587341394) p1)) |
9107 |
(setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174)) |
(setf (aref r) (logandc2 (the (integer 1587211196 1587341392) p1) -166174)) |
9108 |
(values))))) |
(values))))) |
9109 |
(funcall fn r 1587341392) |
(funcall fn r 1587341392) |
9110 |
(aref r)) |
(aref r)) |
9111 |
34832) |
34832) |
9112 |
|
|
9113 |
(deftest misc.488 |
(deftest misc.488 |
9114 |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9115 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9116 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9117 |
(type (simple-array (unsigned-byte 32) nil) r) |
(type (simple-array (unsigned-byte 32) nil) r) |
9118 |
(type (integer 1960409798 1960426181) p2)) |
(type (integer 1960409798 1960426181) p2)) |
9119 |
(setf (aref r) (logorc1 -1 p2)) |
(setf (aref r) (logorc1 -1 p2)) |
9120 |
(values))))) |
(values))))) |
9121 |
(funcall fn r 1960409801) |
(funcall fn r 1960409801) |
9122 |
(aref r)) |
(aref r)) |
9123 |
1960409801) |
1960409801) |
9124 |
|
|
9125 |
(deftest misc.489 |
(deftest misc.489 |
9126 |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9127 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9128 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9129 |
(type (simple-array (unsigned-byte 32) nil) r) |
(type (simple-array (unsigned-byte 32) nil) r) |
9130 |
(type (integer -55) p2)) |
(type (integer -55) p2)) |
9131 |
(setf (aref r) (logorc2 0 (the (member -51) p2))) |
(setf (aref r) (logorc2 0 (the (member -51) p2))) |
9132 |
(values))))) |
(values))))) |
9133 |
(funcall fn r -51) |
(funcall fn r -51) |
9134 |
(aref r)) |
(aref r)) |
9135 |
50) |
50) |
9136 |
|
|
9137 |
(deftest misc.490 |
(deftest misc.490 |
9138 |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
(let ((r (make-array nil :element-type '(unsigned-byte 32))) |
9139 |
(fn (compile nil '(lambda (r p1) |
(fn (compile nil '(lambda (r p1) |
9140 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9141 |
(type (simple-array (unsigned-byte 32) nil) r) |
(type (simple-array (unsigned-byte 32) nil) r) |
9142 |
(type (integer 761639858 1030075825) p1)) |
(type (integer 761639858 1030075825) p1)) |
9143 |
(setf (aref r) (logior (the (integer * 35389813668) p1) 0)) |
(setf (aref r) (logior (the (integer * 35389813668) p1) 0)) |
9144 |
(values))))) |
(values))))) |
9145 |
(funcall fn r 1030075308) |
(funcall fn r 1030075308) |
9146 |
(aref r)) |
(aref r)) |
9147 |
1030075308) |
1030075308) |
9148 |
|
|
9149 |
(deftest misc.491 |
(deftest misc.491 |
9150 |
(let ((r (make-array nil :element-type '(signed-byte 16))) |
(let ((r (make-array nil :element-type '(signed-byte 16))) |
9151 |
(fn (compile nil '(lambda (r p2) |
(fn (compile nil '(lambda (r p2) |
9152 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9153 |
(type (simple-array (signed-byte 16) nil) r) |
(type (simple-array (signed-byte 16) nil) r) |
9154 |
(type (integer 505774114 573717424) p2)) |
(type (integer 505774114 573717424) p2)) |
9155 |
(setf (aref r) (lognand 58539 (the (integer * 910674467) p2))) |
(setf (aref r) (lognand 58539 (the (integer * 910674467) p2))) |
9156 |
(values))))) |
(values))))) |
9157 |
(funcall fn r 506608551) |
(funcall fn r 506608551) |
9158 |
(aref r)) |
(aref r)) |
9159 |
-8356) |
-8356) |
9160 |
|
|
9161 |
(deftest misc.492 |
(deftest misc.492 |
9162 |
(let ((r (make-array nil :element-type '(signed-byte 8))) |
(let ((r (make-array nil :element-type '(signed-byte 8))) |
9163 |
(fn (compile nil '(lambda (r p1) |
(fn (compile nil '(lambda (r p1) |
9164 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9165 |
(type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1)) |
(type (simple-array (signed-byte 8) nil) r) (type (integer * 22050378) p1)) |
9166 |
(setf (aref r) (lognand (the (integer 19464371) p1) 2257)) |
(setf (aref r) (lognand (the (integer 19464371) p1) 2257)) |
9167 |
(values))))) |
(values))))) |
9168 |
(funcall fn r 19469591) |
(funcall fn r 19469591) |
9169 |
(aref r)) |
(aref r)) |
9170 |
-18) |
-18) |
9176 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9177 |
nil |
nil |
9178 |
(funcall |
(funcall |
9179 |
(compile nil '(lambda (b) |
(compile nil '(lambda (b) |
9180 |
(declare (optimize (speed 2) (debug 1) (safety 3) |
(declare (optimize (speed 2) (debug 1) (safety 3) |
9181 |
(compilation-speed 3) (space 1))) |
(compilation-speed 3) (space 1))) |
9182 |
(aref #(41397376227 18660605846 49244777443) (min 2 (max 0 b))))) |
(aref #(41397376227 18660605846 49244777443) (min 2 (max 0 b))))) |
9183 |
|
|
9184 |
-71)) |
-71)) |
9185 |
41397376227) |
41397376227) |
9186 |
|
|
9187 |
;;; ABCL (26 Dec 2004) |
;;; ABCL (26 Dec 2004) |
9191 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9192 |
nil |
nil |
9193 |
(funcall |
(funcall |
9194 |
(compile nil '(lambda () |
(compile nil '(lambda () |
9195 |
(declare (optimize (safety 0) (space 2) (debug 3) (speed 0) |
(declare (optimize (safety 0) (space 2) (debug 3) (speed 0) |
9196 |
(compilation-speed 2))) |
(compilation-speed 2))) |
9197 |
(conjugate (progn (catch 'ct5 (if t 0 0)) 0)))))) |
(conjugate (progn (catch 'ct5 (if t 0 0)) 0)))))) |
9198 |
0) |
0) |
9199 |
|
|
9200 |
;;; The value 5085 is not of type FUNCTION. |
;;; The value 5085 is not of type FUNCTION. |
9202 |
(deftest misc.495 |
(deftest misc.495 |
9203 |
(funcall |
(funcall |
9204 |
(compile nil '(lambda (a b) |
(compile nil '(lambda (a b) |
9205 |
(declare (type (integer -4197 284380207) a)) |
(declare (type (integer -4197 284380207) a)) |
9206 |
(declare (type (integer -23 5088) b)) |
(declare (type (integer -23 5088) b)) |
9207 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
9208 |
(declare (optimize (speed 1) (space 2) (debug 0) |
(declare (optimize (speed 1) (space 2) (debug 0) |
9209 |
(compilation-speed 0) (safety 2))) |
(compilation-speed 0) (safety 2))) |
9210 |
(if (position (progn (1+ b) 0) |
(if (position (progn (1+ b) 0) |
9211 |
'(169496 -726 -13623 53307916 128 -258391 156 |
'(169496 -726 -13623 53307916 128 -258391 156 |
9212 |
7432659 30 20 -11)) |
7432659 30 20 -11)) |
9213 |
0 |
0 |
9214 |
a))) |
a))) |
9215 |
72179019 5084) |
72179019 5084) |
9216 |
72179019) |
72179019) |
9217 |
|
|
9221 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9222 |
nil |
nil |
9223 |
(funcall |
(funcall |
9224 |
(compile nil |
(compile nil |
9225 |
'(lambda (a) |
'(lambda (a) |
9226 |
(declare (type (integer -54915 -3396) a)) |
(declare (type (integer -54915 -3396) a)) |
9227 |
(declare (optimize (debug 3) (space 0) (safety 2) (speed 2) |
(declare (optimize (debug 3) (space 0) (safety 2) (speed 2) |
9228 |
(compilation-speed 3))) |
(compilation-speed 3))) |
9229 |
(progn (1+ a) (catch 'ct6 (progn 0))))) |
(progn (1+ a) (catch 'ct6 (progn 0))))) |
9230 |
-25986)) |
-25986)) |
9231 |
0) |
0) |
9232 |
|
|
9233 |
(deftest misc.497 |
(deftest misc.497 |
9234 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9235 |
nil |
nil |
9236 |
(funcall |
(funcall |
9237 |
(compile nil |
(compile nil |
9238 |
'(lambda (b) |
'(lambda (b) |
9239 |
(declare (type (integer -1 0) b)) |
(declare (type (integer -1 0) b)) |
9240 |
(declare (optimize (space 3) (compilation-speed 1) |
(declare (optimize (space 3) (compilation-speed 1) |
9241 |
(safety 0) (debug 1) (speed 0))) |
(safety 0) (debug 1) (speed 0))) |
9242 |
(if 0 (prog2 0 0 (1+ b)) 0))) |
(if 0 (prog2 0 0 (1+ b)) 0))) |
9243 |
0)) |
0)) |
9244 |
0) |
0) |
9245 |
|
|
9246 |
;;; Inconsistent stack height 1 != 0 |
;;; Inconsistent stack height 1 != 0 |
9249 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9250 |
nil |
nil |
9251 |
(funcall |
(funcall |
9252 |
(compile nil |
(compile nil |
9253 |
'(lambda (a) |
'(lambda (a) |
9254 |
(declare (type (integer -16191 4) a)) |
(declare (type (integer -16191 4) a)) |
9255 |
(declare (optimize (compilation-speed 2) (space 1) (debug 0) |
(declare (optimize (compilation-speed 2) (space 1) (debug 0) |
9256 |
(safety 0) (speed 2))) |
(safety 0) (speed 2))) |
9257 |
(conjugate (dotimes (iv1 0 0) |
(conjugate (dotimes (iv1 0 0) |
9258 |
(let ((v2 (dotimes (iv3 0 0) (1+ a)))) |
(let ((v2 (dotimes (iv3 0 0) (1+ a)))) |
9259 |
0))))) |
0))))) |
9260 |
-2840)) |
-2840)) |
9261 |
0) |
0) |
9262 |
|
|
9263 |
;;; Incompatible object argument for function call |
;;; Incompatible object argument for function call |
9266 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9267 |
nil |
nil |
9268 |
(funcall |
(funcall |
9269 |
(compile nil |
(compile nil |
9270 |
'(lambda (a b) |
'(lambda (a b) |
9271 |
(declare (type (integer -31415 133871) a)) |
(declare (type (integer -31415 133871) a)) |
9272 |
(declare (type (integer -993 6448) b)) |
(declare (type (integer -993 6448) b)) |
9273 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
9274 |
(declare (optimize (space 0) (debug 2) (safety 0) (speed 0) |
(declare (optimize (space 0) (debug 2) (safety 0) (speed 0) |
9275 |
(compilation-speed 0))) |
(compilation-speed 0))) |
9276 |
(progn (ceiling (progn (1+ b) a)) a))) |
(progn (ceiling (progn (1+ b) a)) a))) |
9277 |
-16435 2620)) |
-16435 2620)) |
9278 |
-16435) |
-16435) |
9279 |
|
|
9280 |
;;; Stack overflow during compilation |
;;; Stack overflow during compilation |
9282 |
(deftest misc.500 |
(deftest misc.500 |
9283 |
(funcall |
(funcall |
9284 |
(compile nil '(lambda nil |
(compile nil '(lambda nil |
9285 |
(declare (optimize (space 2) (debug 2) (compilation-speed 2) |
(declare (optimize (space 2) (debug 2) (compilation-speed 2) |
9286 |
(speed 1) (safety 3))) |
(speed 1) (safety 3))) |
9287 |
(the integer (integer-length (dotimes (iv4 2 15790955))))))) |
(the integer (integer-length (dotimes (iv4 2 15790955))))))) |
9288 |
24) |
24) |
9289 |
|
|
9290 |
;;; Inconsistent stack height 1 != 0 |
;;; Inconsistent stack height 1 != 0 |
9293 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9294 |
nil |
nil |
9295 |
(funcall |
(funcall |
9296 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9297 |
(declare (type (integer -437165353 179983908) a)) |
(declare (type (integer -437165353 179983908) a)) |
9298 |
(declare (optimize (compilation-speed 0) (debug 1) (space 1) |
(declare (optimize (compilation-speed 0) (debug 1) (space 1) |
9299 |
(safety 2) (speed 1))) |
(safety 2) (speed 1))) |
9300 |
(dotimes (iv1 0 0) (1+ a)))) |
(dotimes (iv1 0 0) (1+ a)))) |
9301 |
1)) |
1)) |
9302 |
0) |
0) |
9303 |
|
|
9304 |
;;; Ordering problems |
;;; Ordering problems |
9306 |
(deftest misc.502 |
(deftest misc.502 |
9307 |
(funcall |
(funcall |
9308 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9309 |
(declare (type (integer -7 84717795) a)) |
(declare (type (integer -7 84717795) a)) |
9310 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9311 |
(declare (optimize (speed 1) (space 1) (debug 1) (safety 2) |
(declare (optimize (speed 1) (space 1) (debug 1) (safety 2) |
9312 |
(compilation-speed 0))) |
(compilation-speed 0))) |
9313 |
(+ a (setq a 35035201)))) |
(+ a (setq a 35035201)))) |
9314 |
29207264) |
29207264) |
9315 |
64242465) |
64242465) |
9316 |
|
|
9320 |
(deftest misc.503 |
(deftest misc.503 |
9321 |
(funcall |
(funcall |
9322 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9323 |
(declare (optimize (space 3) (debug 1) (speed 2) (safety 0) |
(declare (optimize (space 3) (debug 1) (speed 2) (safety 0) |
9324 |
(compilation-speed 1))) |
(compilation-speed 1))) |
9325 |
(catch 'ct1 |
(catch 'ct1 |
9326 |
(throw 'ct1 |
(throw 'ct1 |
9327 |
(catch 'ct5 |
(catch 'ct5 |
9328 |
(reduce 'min |
(reduce 'min |
9329 |
(vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6)) |
(vector 0 0 0 a a 0 0 (values 0 0) (throw 'ct5 -6)) |
9330 |
:end 8 :start 6 :from-end t)))))) |
:end 8 :start 6 :from-end t)))))) |
9331 |
17) |
17) |
9332 |
-6) |
-6) |
9333 |
|
|
9337 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9338 |
nil |
nil |
9339 |
(funcall |
(funcall |
9340 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9341 |
(declare (type (integer 196060 241373941) a)) |
(declare (type (integer 196060 241373941) a)) |
9342 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9343 |
(declare (optimize (speed 3) (debug 0) (safety 2) |
(declare (optimize (speed 3) (debug 0) (safety 2) |
9344 |
(compilation-speed 3) (space 2))) |
(compilation-speed 3) (space 2))) |
9345 |
(prog2 (if 0 (+ a a) 0) 0))) |
(prog2 (if 0 (+ a a) 0) 0))) |
9346 |
200000)) |
200000)) |
9347 |
0) |
0) |
9348 |
|
|
9349 |
(deftest misc.505 |
(deftest misc.505 |
9350 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9351 |
nil |
nil |
9352 |
(funcall |
(funcall |
9353 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9354 |
(declare (type (integer -6 5) a)) |
(declare (type (integer -6 5) a)) |
9355 |
(declare (optimize (speed 3) (space 0) (safety 2) |
(declare (optimize (speed 3) (space 0) (safety 2) |
9356 |
(compilation-speed 2) (debug 3))) |
(compilation-speed 2) (debug 3))) |
9357 |
(dotimes (iv1 0 0) (+ a a)))) |
(dotimes (iv1 0 0) (+ a a)))) |
9358 |
1)) |
1)) |
9359 |
0) |
0) |
9360 |
|
|
9361 |
(deftest misc.506 |
(deftest misc.506 |
9362 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9363 |
nil |
nil |
9364 |
(funcall |
(funcall |
9365 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9366 |
(declare (type (integer -53 49) a)) |
(declare (type (integer -53 49) a)) |
9367 |
(declare (optimize (debug 0) (compilation-speed 1) (space 2) |
(declare (optimize (debug 0) (compilation-speed 1) (space 2) |
9368 |
(safety 0) (speed 0))) |
(safety 0) (speed 0))) |
9369 |
(unwind-protect (+ a a) 0))) |
(unwind-protect (+ a a) 0))) |
9370 |
-38)) |
-38)) |
9371 |
-76) |
-76) |
9372 |
|
|
9373 |
;;; The value 15390 is not of type FUNCTION. |
;;; The value 15390 is not of type FUNCTION. |
9374 |
(deftest misc.507 |
(deftest misc.507 |
9375 |
(funcall |
(funcall |
9376 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9377 |
(declare (type (integer 2697 13005) a)) |
(declare (type (integer 2697 13005) a)) |
9378 |
(declare (optimize (debug 0) (space 2) (speed 2) |
(declare (optimize (debug 0) (space 2) (speed 2) |
9379 |
(compilation-speed 3) (safety 3))) |
(compilation-speed 3) (safety 3))) |
9380 |
(truncate (prog1 0 a (+ a a))))) |
(truncate (prog1 0 a (+ a a))))) |
9381 |
7695) |
7695) |
9382 |
0 0) |
0 0) |
9383 |
|
|
9388 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9389 |
nil |
nil |
9390 |
(funcall |
(funcall |
9391 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9392 |
(declare (type (integer -57853147 -2) a)) |
(declare (type (integer -57853147 -2) a)) |
9393 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9394 |
(declare (optimize (debug 2) (space 1) (compilation-speed 3) |
(declare (optimize (debug 2) (space 1) (compilation-speed 3) |
9395 |
(safety 1) (speed 2))) |
(safety 1) (speed 2))) |
9396 |
(the integer |
(the integer |
9397 |
(mask-field (byte 2 29) |
(mask-field (byte 2 29) |
9398 |
(ash (multiple-value-setq (a) -51781613) |
(ash (multiple-value-setq (a) -51781613) |
9399 |
(min 1 a)))))) |
(min 1 a)))))) |
9400 |
-29324754)) |
-29324754)) |
9401 |
1610612736) |
1610612736) |
9402 |
|
|
9403 |
(deftest misc.509 |
(deftest misc.509 |
9404 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9405 |
nil |
nil |
9406 |
(funcall |
(funcall |
9407 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9408 |
(declare (type (integer -38984312 657) a)) |
(declare (type (integer -38984312 657) a)) |
9409 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9410 |
(declare (optimize (debug 1) (compilation-speed 1) (speed 1) |
(declare (optimize (debug 1) (compilation-speed 1) (speed 1) |
9411 |
(safety 2) (space 3))) |
(safety 2) (space 3))) |
9412 |
(the integer |
(the integer |
9413 |
(if (> a -27907941364) |
(if (> a -27907941364) |
9414 |
116871 |
116871 |
9415 |
(cl:handler-case |
(cl:handler-case |
9416 |
(multiple-value-setq (a) |
(multiple-value-setq (a) |
9417 |
-34832621)))))) |
-34832621)))))) |
9418 |
-26788929)) |
-26788929)) |
9419 |
116871) |
116871) |
9420 |
|
|
9421 |
(deftest misc.510 |
(deftest misc.510 |
9422 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9423 |
nil |
nil |
9424 |
(funcall |
(funcall |
9425 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9426 |
(declare (type (integer -2827 3400) a)) |
(declare (type (integer -2827 3400) a)) |
9427 |
(declare (optimize (compilation-speed 1) (space 3) (debug 1) |
(declare (optimize (compilation-speed 1) (space 3) (debug 1) |
9428 |
(safety 0) (speed 1))) |
(safety 0) (speed 1))) |
9429 |
(logand (the integer (dotimes (iv4 2 a) (progn iv4)))))) |
(logand (the integer (dotimes (iv4 2 a) (progn iv4)))))) |
9430 |
155)) |
155)) |
9431 |
155) |
155) |
9432 |
|
|
9433 |
(deftest misc.511 |
(deftest misc.511 |
9434 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9435 |
nil |
nil |
9436 |
(funcall |
(funcall |
9437 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9438 |
(declare (type (integer 18967 23584) a)) |
(declare (type (integer 18967 23584) a)) |
9439 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9440 |
(declare (optimize (space 1) (speed 1) (debug 1) |
(declare (optimize (space 1) (speed 1) (debug 1) |
9441 |
(compilation-speed 3) (safety 1))) |
(compilation-speed 3) (safety 1))) |
9442 |
(the integer |
(the integer |
9443 |
(values (loop for lv4 below 2 count (find a '(16389))))))) |
(values (loop for lv4 below 2 count (find a '(16389))))))) |
9444 |
21352)) |
21352)) |
9445 |
0) |
0) |
9446 |
|
|
9447 |
;;; Inconsistent stack height |
;;; Inconsistent stack height |
9450 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9451 |
nil |
nil |
9452 |
(funcall |
(funcall |
9453 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9454 |
(declare (type (integer 1 188902468) a)) |
(declare (type (integer 1 188902468) a)) |
9455 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9456 |
(declare (optimize (space 2) (speed 3) (safety 3) |
(declare (optimize (space 2) (speed 3) (safety 3) |
9457 |
(compilation-speed 0) (debug 2))) |
(compilation-speed 0) (debug 2))) |
9458 |
(catch 'ct6 |
(catch 'ct6 |
9459 |
(the integer |
(the integer |
9460 |
(let* ((v3 (signum (ignore-errors a)))) |
(let* ((v3 (signum (ignore-errors a)))) |
9461 |
(declare (dynamic-extent v3)) |
(declare (dynamic-extent v3)) |
9462 |
(throw 'ct6 |
(throw 'ct6 |
9463 |
(round (case (prog2 |
(round (case (prog2 |
9464 |
(lognor 290171664 v3) |
(lognor 290171664 v3) |
9465 |
-3512003993 |
-3512003993 |
9466 |
-550842867) |
-550842867) |
9467 |
((4) (* 1 4092)) |
((4) (* 1 4092)) |
9468 |
((21 220 225) |
((21 220 225) |
9469 |
(block b1 |
(block b1 |
9470 |
(setf v3 |
(setf v3 |
9471 |
(let* ((v9 v3)) |
(let* ((v9 v3)) |
9472 |
a)))) |
a)))) |
9473 |
(t -639367819))))))))) |
(t -639367819))))))))) |
9474 |
49008586)) |
49008586)) |
9475 |
-639367819 |
-639367819 |
9476 |
0) |
0) |
9477 |
|
|
9482 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9483 |
nil |
nil |
9484 |
(funcall |
(funcall |
9485 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9486 |
(declare (type (integer -2 75025568) a)) |
(declare (type (integer -2 75025568) a)) |
9487 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9488 |
(declare (optimize (space 0) (compilation-speed 0) (safety 0) |
(declare (optimize (space 0) (compilation-speed 0) (safety 0) |
9489 |
(speed 2) (debug 2))) |
(speed 2) (debug 2))) |
9490 |
(let* ((v8 |
(let* ((v8 |
9491 |
(cons (the integer |
(cons (the integer |
9492 |
(prog2 a |
(prog2 a |
9493 |
-1558460 |
-1558460 |
9494 |
a |
a |
9495 |
(ignore-errors (progn (tagbody) -49510826)) |
(ignore-errors (progn (tagbody) -49510826)) |
9496 |
a)) |
a)) |
9497 |
0))) |
0))) |
9498 |
0))) |
0))) |
9499 |
68043554)) |
68043554)) |
9500 |
0) |
0) |
9501 |
|
|
9502 |
(deftest misc.514 |
(deftest misc.514 |
9503 |
(let #+abcl ((jvm::*catch-errors* nil)) |
(let #+abcl ((jvm::*catch-errors* nil)) |
9504 |
nil |
nil |
9505 |
(funcall |
(funcall |
9506 |
(compile nil '(lambda (a) |
(compile nil '(lambda (a) |
9507 |
(declare (type (integer -6844832476 188341751) a)) |
(declare (type (integer -6844832476 188341751) a)) |
9508 |
(declare (optimize (speed 3) (debug 1) (safety 0) (space 3) |
(declare (optimize (speed 3) (debug 1) (safety 0) (space 3) |
9509 |
(compilation-speed 1))) |
(compilation-speed 1))) |
9510 |
(the integer (multiple-value-setq (a) -96073358)))) |
(the integer (multiple-value-setq (a) -96073358)))) |
9511 |
-3792864899)) |
-3792864899)) |
9512 |
-96073358) |
-96073358) |
9513 |
|
|
9514 |
;;; gcl 27 Dec 2004 |
;;; gcl 27 Dec 2004 |
9530 |
(deftest misc.516 |
(deftest misc.516 |
9531 |
(funcall |
(funcall |
9532 |
(compile nil '(lambda () |
(compile nil '(lambda () |
9533 |
(declare (optimize (space 0) (debug 0) (safety 2) |
(declare (optimize (space 0) (debug 0) (safety 2) |
9534 |
(compilation-speed 3) (speed 1))) |
(compilation-speed 3) (speed 1))) |
9535 |
(let ((*s2* (* -507991378 14))) |
(let ((*s2* (* -507991378 14))) |
9536 |
(declare (dynamic-extent *s2*)) |
(declare (dynamic-extent *s2*)) |
9537 |
(declare (special *s2*)) |
(declare (special *s2*)) |
9538 |
(1+ *s2*))))) |
(1+ *s2*))))) |
9539 |
-7111879291) |
-7111879291) |
9540 |
|
|
9541 |
;;; gcl 29 Dec 2004 |
;;; gcl 29 Dec 2004 |
9544 |
(deftest misc.517 |
(deftest misc.517 |
9545 |
(funcall |
(funcall |
9546 |
(compile nil '(lambda () |
(compile nil '(lambda () |
9547 |
(declare (optimize (safety 3) (space 3) (debug 1) (speed 1) |
(declare (optimize (safety 3) (space 3) (debug 1) (speed 1) |
9548 |
(compilation-speed 0))) |
(compilation-speed 0))) |
9549 |
(let* ((*s8* (let ((*s8* (make-array nil :initial-element 0))) |
(let* ((*s8* (let ((*s8* (make-array nil :initial-element 0))) |
9550 |
(declare (special *s8*)) |
(declare (special *s8*)) |
9551 |
(progn (shiftf (aref *s8*) 31508066) 0)) |
(progn (shiftf (aref *s8*) 31508066) 0)) |
9552 |
)) |
)) |
9553 |
(declare (special *s8*)) |
(declare (special *s8*)) |
9554 |
0)))) |
0)))) |
9555 |
0) |
0) |
9556 |
|
|
9557 |
;;; Incorrect return value |
;;; Incorrect return value |
9559 |
(deftest misc.518 |
(deftest misc.518 |
9560 |
(funcall |
(funcall |
9561 |
(compile nil '(lambda () |
(compile nil '(lambda () |
9562 |
(declare (optimize (compilation-speed 0) (safety 1) |
(declare (optimize (compilation-speed 0) (safety 1) |
9563 |
(debug 1) (space 0) (speed 3))) |
(debug 1) (space 0) (speed 3))) |
9564 |
(flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key) |
(flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key) |
9565 |
(progn |
(progn |
9566 |
(tagbody |
(tagbody |
9567 |
(decf f10-2) |
(decf f10-2) |
9568 |
(return-from %f10 |
(return-from %f10 |
9569 |
(complex (unwind-protect (go tag7)) |
(complex (unwind-protect (go tag7)) |
9570 |
0)) |
0)) |
9571 |
tag7) |
tag7) |
9572 |
f10-2))) |
f10-2))) |
9573 |
(if (evenp (%f10 0 0)) 0 2140390))))) |
(if (evenp (%f10 0 0)) 0 2140390))))) |
9574 |
2140390) |
2140390) |
9575 |
|
|
9576 |
;;; Error in APPLY [or a callee]: fixnum or bignum expected |
;;; Error in APPLY [or a callee]: fixnum or bignum expected |
9582 |
nil |
nil |
9583 |
'(lambda () |
'(lambda () |
9584 |
(declare (optimize (compilation-speed 0) (speed 1) (debug 1) |
(declare (optimize (compilation-speed 0) (speed 1) (debug 1) |
9585 |
(space 1) (safety 3))) |
(space 1) (safety 3))) |
9586 |
(let ((*s3* |
(let ((*s3* |
9587 |
(* (the integer |
(* (the integer |
9588 |
(expt (rationalize |
(expt (rationalize |
9589 |
(multiple-value-bind (*s3*) |
(multiple-value-bind (*s3*) |
9590 |
(make-array nil :initial-element 0) |
(make-array nil :initial-element 0) |
9591 |
(shiftf (aref *s3*) 0))) |
(shiftf (aref *s3*) 0))) |
9592 |
2))))) |
2))))) |
9593 |
1)))) |
1)))) |
9594 |
1) |
1) |
9595 |
|
|
9596 |
;;; sbcl 0.8.18 (sparc solaris) |
;;; sbcl 0.8.18 (sparc solaris) |
9604 |
(declare (type (integer -44330 64753) c)) |
(declare (type (integer -44330 64753) c)) |
9605 |
(declare (type (integer -301534047 4291509) e)) |
(declare (type (integer -301534047 4291509) e)) |
9606 |
(declare (optimize (safety 3) (debug 2) (speed 3) |
(declare (optimize (safety 3) (debug 2) (speed 3) |
9607 |
(space 2) (compilation-speed 2))) |
(space 2) (compilation-speed 2))) |
9608 |
(if (oddp |
(if (oddp |
9609 |
(ash (logorc2 c e) |
(ash (logorc2 c e) |
9610 |
(min 2 (mask-field (byte 0 0) (mod 0 (max 69 0)))))) |
(min 2 (mask-field (byte 0 0) (mod 0 (max 69 0)))))) |
9611 |
a |
a |
9612 |
0))) |
0))) |
9613 |
1 -8156 -229264929) |
1 -8156 -229264929) |
9622 |
nil |
nil |
9623 |
'(lambda (b) |
'(lambda (b) |
9624 |
(declare (optimize (speed 0) (safety 1) (debug 1) (compilation-speed 3) |
(declare (optimize (speed 0) (safety 1) (debug 1) (compilation-speed 3) |
9625 |
(space 0))) |
(space 0))) |
9626 |
(if b |
(if b |
9627 |
(let ((*s6* 0)) |
(let ((*s6* 0)) |
9628 |
0) |
0) |
9629 |
(let* ((*s6* (make-array nil :initial-element 0))) |
(let* ((*s6* (make-array nil :initial-element 0))) |
9630 |
(aref *s6*))))) |
(aref *s6*))))) |
9631 |
nil) |
nil) |
9632 |
0) |
0) |
9633 |
|
|
9641 |
(declare (type (integer -25 38) a)) |
(declare (type (integer -25 38) a)) |
9642 |
(declare (optimize (compilation-speed 3) (safety 3) (debug 1) (space 2) (speed 1))) |
(declare (optimize (compilation-speed 3) (safety 3) (debug 1) (space 2) (speed 1))) |
9643 |
(flet ((%f2 (f2-1 f2-2 |
(flet ((%f2 (f2-1 f2-2 |
9644 |
&optional |
&optional |
9645 |
(f2-3 (labels ((%f6 (&optional (f6-1 0) (f6-2 0)) (max a))) |
(f2-3 (labels ((%f6 (&optional (f6-1 0) (f6-2 0)) (max a))) |
9646 |
(%f6 0))) |
(%f6 0))) |
9647 |
(f2-4 0) (f2-5 0)) |
(f2-4 0) (f2-5 0)) |
9648 |
(flet ((%f4 (f4-1 f4-2 f4-3) |
(flet ((%f4 (f4-1 f4-2 f4-3) |
9649 |
(flet ((%f15 () f2-3)) a))) |
(flet ((%f15 () f2-3)) a))) |
9650 |
0))) |
0))) |
9651 |
(reduce #'(lambda (lmv1 lmv6) a) |
(reduce #'(lambda (lmv1 lmv6) a) |
9652 |
(vector 0 0 0 (%f2 a a) 0 a 0 a 0) |
(vector 0 0 0 (%f2 a a) 0 a 0 a 0) |
9653 |
:start 4 :from-end t)))) |
:start 4 :from-end t)))) |
9654 |
35) |
35) |
9655 |
35) |
35) |
9656 |
|
|
9664 |
(declare (type (integer -1011 978) a)) |
(declare (type (integer -1011 978) a)) |
9665 |
(declare (optimize (compilation-speed 1) (safety 3) (debug 0) (speed 2) (space 1))) |
(declare (optimize (compilation-speed 1) (safety 3) (debug 0) (speed 2) (space 1))) |
9666 |
(let ((*s5* |
(let ((*s5* |
9667 |
(cons 0 |
(cons 0 |
9668 |
(catch 'ct8 |
(catch 'ct8 |
9669 |
(ash |
(ash |
9670 |
(flet ((%f15 (f15-1) |
(flet ((%f15 (f15-1) |
9671 |
(return-from %f15 a))) |
(return-from %f15 a))) |
9672 |
0) |
0) |
9673 |
(min 57 |
(min 57 |
9674 |
(lognor (throw 'ct8 (shiftf a 332)) |
(lognor (throw 'ct8 (shiftf a 332)) |
9675 |
(let ((v1 (setf a 371))) |
(let ((v1 (setf a 371))) |
9676 |
a)))))))) |
a)))))))) |
9677 |
a))) |
a))) |
9678 |
99) |
99) |
9679 |
332) |
332) |
9680 |
|
|
9690 |
(declare (ignorable b)) |
(declare (ignorable b)) |
9691 |
(declare (optimize (compilation-speed 0) (safety 0) (space 2) (speed 0) (debug 3))) |
(declare (optimize (compilation-speed 0) (safety 0) (space 2) (speed 0) (debug 3))) |
9692 |
(flet ((%f18 (f18-1 f18-2 f18-3 &optional &key (key1 0) &allow-other-keys) |
(flet ((%f18 (f18-1 f18-2 f18-3 &optional &key (key1 0) &allow-other-keys) |
9693 |
(labels ((%f12 |
(labels ((%f12 |
9694 |
(f12-1 |
(f12-1 |
9695 |
&optional (f12-2 0) |
&optional (f12-2 0) |
9696 |
&key (key1 (catch 'ct7 (conjugate key1))) (key2 0) |
&key (key1 (catch 'ct7 (conjugate key1))) (key2 0) |
9697 |
&allow-other-keys) |
&allow-other-keys) |
9698 |
0)) |
0)) |
9699 |
(%f12 a)))) |
(%f12 a)))) |
9700 |
(%f18 a 0 0)))) |
(%f18 a 0 0)))) |
9701 |
-925293 -1603) |
-925293 -1603) |
9702 |
0) |
0) |
9703 |
|
|
9711 |
(declare (type (integer -17179869184 -2147483648) a)) |
(declare (type (integer -17179869184 -2147483648) a)) |
9712 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9713 |
(declare |
(declare |
9714 |
(optimize (space 2) (debug 3) (speed 3) (compilation-speed 3) (safety 1))) |
(optimize (space 2) (debug 3) (speed 3) (compilation-speed 3) (safety 1))) |
9715 |
(catch 'ct4 |
(catch 'ct4 |
9716 |
(max (conjugate (unwind-protect 0 (catch 'ct4 (values 0)))) |
(max (conjugate (unwind-protect 0 (catch 'ct4 (values 0)))) |
9717 |
(throw 'ct4 0))))) |
(throw 'ct4 0))))) |
9718 |
-17179869184) |
-17179869184) |
9719 |
0) |
0) |
9720 |
|
|
9728 |
(declare (type (integer -4 3025867) a)) |
(declare (type (integer -4 3025867) a)) |
9729 |
(declare (ignorable a)) |
(declare (ignorable a)) |
9730 |
(declare |
(declare |
9731 |
(optimize (space 1) (safety 0) (debug 0) (speed 3) (compilation-speed 0))) |
(optimize (space 1) (safety 0) (debug 0) (speed 3) (compilation-speed 0))) |
9732 |
(flet ((%f14 (f14-1 f14-2 f14-3 &key) |
(flet ((%f14 (f14-1 f14-2 f14-3 &key) |
9733 |
(let ((v4 |
(let ((v4 |
9734 |
(return-from %f14 |
(return-from %f14 |
9735 |
(flet ((%f11 |
(flet ((%f11 |
9736 |
(&optional (f11-1 0) (f11-2 0) |
(&optional (f11-1 0) (f11-2 0) |
9737 |
(f11-3 |
(f11-3 |
9738 |
(coerce |
(coerce |
9739 |
(reduce (function (lambda (lmv2 lmv5) a)) |
(reduce (function (lambda (lmv2 lmv5) a)) |
9740 |
(vector f14-1 f14-1 0 f14-3 a f14-3 a f14-1 |
(vector f14-1 f14-1 0 f14-3 a f14-3 a f14-1 |
9741 |
0 f14-2)) |
0 f14-2)) |
9742 |
(quote integer))) |
(quote integer))) |
9743 |
&key (key1 f14-3) (key2 a)) |
&key (key1 f14-3) (key2 a)) |
9744 |
(flet ((%f8 |
(flet ((%f8 |
9745 |
(f8-1 |
(f8-1 |
9746 |
&optional |
&optional |
9747 |
(f8-2 |
(f8-2 |
9748 |
(flet ((%f16 |
(flet ((%f16 |
9749 |
(f16-1 f16-2 f16-3 |
(f16-1 f16-2 f16-3 |
9750 |
&optional |
&optional |
9751 |
&key (key1 0) |
&key (key1 0) |
9752 |
(key2 f11-3)) |
(key2 f11-3)) |
9753 |
key1)) |
key1)) |
9754 |
0)) |
0)) |
9755 |
&key (key1 0)) |
&key (key1 0)) |
9756 |
f14-3)) |
f14-3)) |
9757 |
0))) |
0))) |
9758 |
(if (%f11 f14-1 (%f11 0 f14-3) f14-1) 0 0))))) |
(if (%f11 f14-1 (%f11 0 f14-3) f14-1) 0 0))))) |
9759 |
0))) |
0))) |
9760 |
(%f14 0 a a)))) |
(%f14 0 a a)))) |
9761 |
857304) |
857304) |
9762 |
0) |
0) |
9763 |
|
|
9766 |
|
|
9767 |
(deftest misc.527 |
(deftest misc.527 |
9768 |
(let ((v1 (make-array 1 :element-type 'bit |
(let ((v1 (make-array 1 :element-type 'bit |
9769 |
:initial-contents '(1) |
:initial-contents '(1) |
9770 |
:fill-pointer 0)) |
:fill-pointer 0)) |
9771 |
(v2 (make-array 1 :element-type 'bit |
(v2 (make-array 1 :element-type 'bit |
9772 |
:initial-contents '(1) |
:initial-contents '(1) |
9773 |
:fill-pointer 1)) |
:fill-pointer 1)) |
9774 |
(r (make-array nil))) |
(r (make-array nil))) |
9775 |
(funcall |
(funcall |
9776 |
(compile |
(compile |
9777 |
nil |
nil |
9778 |
`(lambda (r p2) |
`(lambda (r p2) |
9779 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9780 |
(type (simple-array t nil) r) |
(type (simple-array t nil) r) |
9781 |
(type (array *) p2)) |
(type (array *) p2)) |
9782 |
(setf (aref r) (bit-and ,v1 (the (bit-vector *) p2))) |
(setf (aref r) (bit-and ,v1 (the (bit-vector *) p2))) |
9783 |
(values))) |
(values))) |
9784 |
r v2) |
r v2) |
9785 |
(let ((result (aref r))) |
(let ((result (aref r))) |
9786 |
(values |
(values |
9793 |
|
|
9794 |
(deftest misc.528 |
(deftest misc.528 |
9795 |
(let* ((x 296.3066f0) |
(let* ((x 296.3066f0) |
9796 |
(y 22717067) |
(y 22717067) |
9797 |
(form `(lambda (r p2) |
(form `(lambda (r p2) |
9798 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9799 |
(type (simple-array single-float nil) r) |
(type (simple-array single-float nil) r) |
9800 |
(type (integer -9369756340 22717335) p2)) |
(type (integer -9369756340 22717335) p2)) |
9801 |
(setf (aref r) (* ,x (the (eql 22717067) p2))) |
(setf (aref r) (* ,x (the (eql 22717067) p2))) |
9802 |
(values))) |
(values))) |
9803 |
(r (make-array nil :element-type 'single-float)) |
(r (make-array nil :element-type 'single-float)) |
9804 |
(expected (* x y))) |
(expected (* x y))) |
9805 |
(funcall (compile nil form) r y) |
(funcall (compile nil form) r y) |
9806 |
(let ((actual (aref r))) |
(let ((actual (aref r))) |
9807 |
(unless (eql expected actual) |
(unless (eql expected actual) |
9808 |
(list expected actual)))) |
(list expected actual)))) |
9809 |
nil) |
nil) |
9810 |
|
|
9811 |
;;; The value 46790178 is not of type (INTEGER 46790178 46790178). |
;;; The value 46790178 is not of type (INTEGER 46790178 46790178). |
9812 |
|
|
9813 |
(deftest misc.529 |
(deftest misc.529 |
9814 |
(let* ((x -2367.3296f0) |
(let* ((x -2367.3296f0) |
9815 |
(y 46790178) |
(y 46790178) |
9816 |
(form `(lambda (r p2) |
(form `(lambda (r p2) |
9817 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9818 |
(type (simple-array single-float nil) r) |
(type (simple-array single-float nil) r) |
9819 |
(type (eql 46790178) p2)) |
(type (eql 46790178) p2)) |
9820 |
(setf (aref r) (+ ,x (the (integer 45893897) p2))) |
(setf (aref r) (+ ,x (the (integer 45893897) p2))) |
9821 |
(values))) |
(values))) |
9822 |
(r (make-array nil :element-type 'single-float)) |
(r (make-array nil :element-type 'single-float)) |
9823 |
(expected (+ x y))) |
(expected (+ x y))) |
9824 |
(funcall (compile nil form) r y) |
(funcall (compile nil form) r y) |
9825 |
(let ((actual (aref r))) |
(let ((actual (aref r))) |
9826 |
(unless (eql expected actual) |
(unless (eql expected actual) |
9827 |
(list expected actual)))) |
(list expected actual)))) |
9828 |
nil) |
nil) |
9829 |
|
|
9830 |
;;; cmucl (Jan 2005 snapshot) |
;;; cmucl (Jan 2005 snapshot) |
9833 |
|
|
9834 |
(deftest misc.530 |
(deftest misc.530 |
9835 |
(let* ((v (make-array |
(let* ((v (make-array |
9836 |
'(11) :element-type 'double-float |
'(11) :element-type 'double-float |
9837 |
:initial-contents |
:initial-contents |
9838 |
'(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0 |
'(56826.586316245484d0 -57680.53641925701d0 68651.27735979737d0 |
9839 |
30934.627728043164d0 47252.736017400945d0 35129.46986219467d0 |
30934.627728043164d0 47252.736017400945d0 35129.46986219467d0 |
9840 |
-57804.412938803005d0 13000.374416975968d0 50263.681826551256d0 |
-57804.412938803005d0 13000.374416975968d0 50263.681826551256d0 |
9841 |
89386.08276072948d0 -89508.77479231959d0))) |
89386.08276072948d0 -89508.77479231959d0))) |
9842 |
(form |
(form |
9843 |
`(lambda (r) |
`(lambda (r) |
9844 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9845 |
(type (simple-array t nil) r)) |
(type (simple-array t nil) r)) |
9846 |
(setf (aref r) |
(setf (aref r) |
9847 |
(array-has-fill-pointer-p ,v)))) |
(array-has-fill-pointer-p ,v)))) |
9848 |
(r (make-array nil))) |
(r (make-array nil))) |
9849 |
(funcall (compile nil form) r) |
(funcall (compile nil form) r) |
9850 |
(eqlt (aref r) (array-has-fill-pointer-p v))) |
(eqlt (aref r) (array-has-fill-pointer-p v))) |
9851 |
t) |
t) |
9874 |
|
|
9875 |
(deftest misc.533 |
(deftest misc.533 |
9876 |
(let* ((r (make-array nil)) |
(let* ((r (make-array nil)) |
9877 |
(c #c(208 -51494/29889)) |
(c #c(208 -51494/29889)) |
9878 |
(form `(lambda (r p1) |
(form `(lambda (r p1) |
9879 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9880 |
(type (simple-array t nil) r) |
(type (simple-array t nil) r) |
9881 |
(type number p1)) |
(type number p1)) |
9882 |
(setf (aref r) (+ (the (eql ,c) p1) -319284)) |
(setf (aref r) (+ (the (eql ,c) p1) -319284)) |
9883 |
(values))) |
(values))) |
9884 |
(fn (compile nil form))) |
(fn (compile nil form))) |
9885 |
(funcall fn r c) |
(funcall fn r c) |
9886 |
(eqlt (aref r) (+ -319284 c))) |
(eqlt (aref r) (+ -319284 c))) |
9887 |
t) |
t) |
9895 |
(compile |
(compile |
9896 |
nil |
nil |
9897 |
'(lambda (r p1 p2 p3) |
'(lambda (r p1 p2 p3) |
9898 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9899 |
(type (eql 4134713351/6105637898) p2) |
(type (eql 4134713351/6105637898) p2) |
9900 |
(type (eql 2685) p3)) |
(type (eql 2685) p3)) |
9901 |
(setf (aref r) |
(setf (aref r) |
9902 |
(if p1 |
(if p1 |
9903 |
(the (eql 4134713351/6105637898) p2) |
(the (eql 4134713351/6105637898) p2) |
9904 |
(the (integer * 8391301) p3))))) |
(the (integer * 8391301) p3))))) |
9905 |
r0 t 4134713351/6105637898 2685) |
r0 t 4134713351/6105637898 2685) |
9906 |
(aref r0)) |
(aref r0)) |
9907 |
4134713351/6105637898) |
4134713351/6105637898) |
9924 |
(compile |
(compile |
9925 |
nil |
nil |
9926 |
`(lambda (p1 p2) |
`(lambda (p1 p2) |
9927 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9928 |
(type (simple-array t nil) r) |
(type (simple-array t nil) r) |
9929 |
(type (eql ,c0) p1) |
(type (eql ,c0) p1) |
9930 |
(type number p2)) |
(type number p2)) |
9931 |
(eql (the (complex double-float) p1) p2))) |
(eql (the (complex double-float) p1) p2))) |
9932 |
c0 #c(12 612/979))) |
c0 #c(12 612/979))) |
9933 |
nil) |
nil) |
9934 |
|
|
9939 |
nil |
nil |
9940 |
'(lambda (p1 p2) |
'(lambda (p1 p2) |
9941 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9942 |
(type (eql #c(11963908204 1/6)) p1) |
(type (eql #c(11963908204 1/6)) p1) |
9943 |
(type (complex rational) p2)) |
(type (complex rational) p2)) |
9944 |
(eql p1 (the complex p2)))) |
(eql p1 (the complex p2)))) |
9945 |
#c(11963908204 1/6) #c(2343315619 5252231066)) |
#c(11963908204 1/6) #c(2343315619 5252231066)) |
9946 |
nil) |
nil) |
9948 |
;;; Comparison of bit vectors in compiled code |
;;; Comparison of bit vectors in compiled code |
9949 |
(deftest misc.537 |
(deftest misc.537 |
9950 |
(let ((p1 (make-array '(0) :element-type 'bit |
(let ((p1 (make-array '(0) :element-type 'bit |
9951 |
:adjustable t))) |
:adjustable t))) |
9952 |
(notnot |
(notnot |
9953 |
(funcall |
(funcall |
9954 |
(compile |
(compile |
9955 |
nil |
nil |
9956 |
`(lambda (p2) |
`(lambda (p2) |
9957 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
9958 |
(type (simple-array t nil) r) |
(type (simple-array t nil) r) |
9959 |
(type (simple-bit-vector 0) p2)) |
(type (simple-bit-vector 0) p2)) |
9960 |
(equal ,p1 (the (bit-vector 0) p2)))) |
(equal ,p1 (the (bit-vector 0) p2)))) |
9961 |
#*))) |
#*))) |
9962 |
t) |
t) |
9963 |
|
|
9976 |
(complexp |
(complexp |
9977 |
(funcall |
(funcall |
9978 |
(compile nil '(lambda (x) |
(compile nil '(lambda (x) |
9979 |
(declare (OPTIMIZE SPEED (SAFETY 1)) |
(declare (OPTIMIZE SPEED (SAFETY 1)) |
9980 |
(type (eql #c(0 -8)) x)) |
(type (eql #c(0 -8)) x)) |
9981 |
(sqrt x))) |
(sqrt x))) |
9982 |
#c(0 -8)))) |
#c(0 -8)))) |
9983 |
t) |
t) |
9984 |
|
|
9986 |
|
|
9987 |
(deftest misc.540 |
(deftest misc.540 |
9988 |
(let* ((d0 #(a b c d e f g h)) |
(let* ((d0 #(a b c d e f g h)) |
9989 |
(d1 (make-array 5 |
(d1 (make-array 5 |
9990 |
:fill-pointer 1 |
:fill-pointer 1 |
9991 |
:displaced-to d0 |
:displaced-to d0 |
9992 |
:displaced-index-offset 2))) |
:displaced-index-offset 2))) |
9993 |
(find #c(1.0 2.0) d1)) |
(find #c(1.0 2.0) d1)) |
9994 |
nil) |
nil) |
9995 |
|
|
10023 |
(compile |
(compile |
10024 |
nil |
nil |
10025 |
(let ((bv1 (copy-seq #*1)) |
(let ((bv1 (copy-seq #*1)) |
10026 |
(bv2 (copy-seq #*1))) |
(bv2 (copy-seq #*1))) |
10027 |
`(lambda () (eq ,bv1 ,bv2))))) |
`(lambda () (eq ,bv1 ,bv2))))) |
10028 |
nil) |
nil) |
10029 |
|
|
10036 |
nil |
nil |
10037 |
'(lambda (p1) |
'(lambda (p1) |
10038 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
10039 |
; (type (simple-array t nil) r) |
; (type (simple-array t nil) r) |
10040 |
(type (integer 2493220 2495515) p1)) |
(type (integer 2493220 2495515) p1)) |
10041 |
(* p1 #c(1123113 -260528)))) |
(* p1 #c(1123113 -260528)))) |
10042 |
2493726) |
2493726) |
10043 |
#C(2800736089038 -649685447328)) |
#C(2800736089038 -649685447328)) |
10044 |
|
|
10050 |
(complexp |
(complexp |
10051 |
(funcall |
(funcall |
10052 |
(compile |
(compile |
10053 |
nil |
nil |
10054 |
`(lambda (p1) |
`(lambda (p1) |
10055 |
(declare (optimize speed (safety 1)) |
(declare (optimize speed (safety 1)) |
10056 |
(type (long-float ,n 0.0l0) p1)) |
(type (long-float ,n 0.0l0) p1)) |
10057 |
(sqrt p1))) |
(sqrt p1))) |
10058 |
n)))) |
n)))) |
10059 |
t) |
t) |
10060 |
|
|
10061 |
;;; OpenMCL |
;;; OpenMCL |
10077 |
nil |
nil |
10078 |
'(lambda (p1) |
'(lambda (p1) |
10079 |
(declare (optimize (speed 0) (safety 1) (debug 2) (space 3)) |
(declare (optimize (speed 0) (safety 1) (debug 2) (space 3)) |
10080 |
(type (eql a) p1)) |
(type (eql a) p1)) |
10081 |
(typep p1 (type-of "")))) |
(typep p1 (type-of "")))) |
10082 |
'a) |
'a) |
10083 |
nil) |
nil) |
10090 |
nil |
nil |
10091 |
'(lambda (p1) |
'(lambda (p1) |
10092 |
(declare (optimize (speed 3) (safety 3) (debug 0) (space 3)) |
(declare (optimize (speed 3) (safety 3) (debug 0) (space 3)) |
10093 |
(type symbol p1)) |
(type symbol p1)) |
10094 |
(typep (the (eql :c1) p1) (type-of "b")))) |
(typep (the (eql :c1) p1) (type-of "b")))) |
10095 |
:c1) |
:c1) |
10096 |
nil) |
nil) |
10103 |
(compile |
(compile |
10104 |
nil |
nil |
10105 |
'(lambda (p1) |
'(lambda (p1) |
10106 |
(declare (optimize (speed 2) (safety 1) (debug 3) (space 2))) |
(declare (optimize (speed 2) (safety 1) (debug 3) (space 2))) |
10107 |
(atom (the (member f assoc-if write-line t w) p1)))) |
(atom (the (member f assoc-if write-line t w) p1)))) |
10108 |
t)) |
t)) |
10109 |
t) |
t) |
10110 |
|
|
10116 |
nil |
nil |
10117 |
'(lambda (p2) |
'(lambda (p2) |
10118 |
(declare (optimize (speed 1) (safety 1) (debug 0) (space 3)) |
(declare (optimize (speed 1) (safety 1) (debug 0) (space 3)) |
10119 |
(type symbol p2)) |
(type symbol p2)) |
10120 |
(and :a (the (eql t) p2)))) |
(and :a (the (eql t) p2)))) |
10121 |
t) |
t) |
10122 |
t) |
t) |
10127 |
nil |
nil |
10128 |
'(lambda (p1 p2) |
'(lambda (p1 p2) |
10129 |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 3)) |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 3)) |
10130 |
(type atom p1) |
(type atom p1) |
10131 |
(type symbol p2)) |
(type symbol p2)) |
10132 |
(or p1 (the (eql t) p2)))) |
(or p1 (the (eql t) p2)))) |
10133 |
nil t) |
nil t) |
10134 |
t) |
t) |
10139 |
nil |
nil |
10140 |
'(lambda (p1 p2) |
'(lambda (p1 p2) |
10141 |
(declare (optimize (speed 1) (safety 1) (debug 3) (space 3)) |
(declare (optimize (speed 1) (safety 1) (debug 3) (space 3)) |
10142 |
(type symbol p1) |
(type symbol p1) |
10143 |
(type (integer * 55687) p2)) |
(type (integer * 55687) p2)) |
10144 |
(funcall (the (eql +) p1) (the (integer -93015310 16215) p2) 2952))) |
(funcall (the (eql +) p1) (the (integer -93015310 16215) p2) 2952))) |
10145 |
'+ 823) |
'+ 823) |
10146 |
3775) |
3775) |
10148 |
(deftest misc.551a |
(deftest misc.551a |
10149 |
(funcall |
(funcall |
10150 |
(compile nil '(lambda (x) (declare (optimize (speed 2)) |
(compile nil '(lambda (x) (declare (optimize (speed 2)) |
10151 |
(type symbol x)) |
(type symbol x)) |
10152 |
(the (eql t) x))) |
(the (eql t) x))) |
10153 |
t) |
t) |
10154 |
t) |
t) |
10155 |
|
|
10161 |
nil |
nil |
10162 |
'(lambda (p1) |
'(lambda (p1) |
10163 |
(declare (optimize (speed 3) (safety 1) (debug 2) (space 2)) |
(declare (optimize (speed 3) (safety 1) (debug 2) (space 2)) |
10164 |
(type unsigned-byte p1)) |
(type unsigned-byte p1)) |
10165 |
(logbitp (the (integer -780969457 *) p1) 9))) |
(logbitp (the (integer -780969457 *) p1) 9))) |
10166 |
26) |
26) |
10167 |
nil) |
nil) |
10171 |
|
|
10172 |
(deftest misc.553 |
(deftest misc.553 |
10173 |
(funcall (compile nil '(lambda (x) (declare (type (eql #c(1.0 2.0)) x)) x)) |
(funcall (compile nil '(lambda (x) (declare (type (eql #c(1.0 2.0)) x)) x)) |
10174 |
#c(1.0 2.0)) |
#c(1.0 2.0)) |
10175 |
#c(1.0 2.0)) |
#c(1.0 2.0)) |
10176 |
|
|
10177 |
;;; 1 is not of type SEQUENCE |
;;; 1 is not of type SEQUENCE |
10186 |
(notnot |
(notnot |
10187 |
(funcall |
(funcall |
10188 |
(compile nil '(lambda (p1) |
(compile nil '(lambda (p1) |
10189 |
(declare (optimize (speed 1) (safety 2) (debug 2) (space 0)) |
(declare (optimize (speed 1) (safety 2) (debug 2) (space 0)) |
10190 |
(type keyword p1)) |
(type keyword p1)) |
10191 |
(keywordp p1))) |
(keywordp p1))) |
10192 |
:c)) |
:c)) |
10193 |
t) |
t) |
10194 |
|
|
10198 |
(values |
(values |
10199 |
(funcall |
(funcall |
10200 |
(compile nil '(lambda (p1 p2) |
(compile nil '(lambda (p1 p2) |
10201 |
(declare |
(declare |
10202 |
(optimize (speed 1) (safety 0) |
(optimize (speed 1) (safety 0) |
10203 |
(debug 0) (space 0)) |
(debug 0) (space 0)) |
10204 |
(type (member 8174.8604) p1) |
(type (member 8174.8604) p1) |
10205 |
(type (member -95195347) p2)) |
(type (member -95195347) p2)) |
10206 |
(floor p1 p2))) |
(floor p1 p2))) |
10207 |
8174.8604 -95195347)) |
8174.8604 -95195347)) |
10208 |
-1) |
-1) |
10209 |
|
|
10215 |
(compile |
(compile |
10216 |
nil |
nil |
10217 |
'(lambda (p1) |
'(lambda (p1) |
10218 |
(declare (optimize (speed 3) (safety 0) (debug 3) (space 1)) |
(declare (optimize (speed 3) (safety 0) (debug 3) (space 1)) |
10219 |
(type (member -94430.086f0) p1)) |
(type (member -94430.086f0) p1)) |
10220 |
(floor (the single-float p1) 19311235))) |
(floor (the single-float p1) 19311235))) |
10221 |
-94430.086f0)) |
-94430.086f0)) |
10222 |
-1) |
-1) |
10223 |
|
|
10229 |
(compile |
(compile |
10230 |
nil |
nil |
10231 |
'(lambda (p1) |
'(lambda (p1) |
10232 |
(declare (optimize (speed 1) (safety 2) |
(declare (optimize (speed 1) (safety 2) |
10233 |
(debug 2) (space 3)) |
(debug 2) (space 3)) |
10234 |
(type (eql -39466.56f0) p1)) |
(type (eql -39466.56f0) p1)) |
10235 |
(ffloor p1 305598613))) |
(ffloor p1 305598613))) |
10236 |
-39466.56f0)) |
-39466.56f0)) |
10237 |
-1.0f0) |
-1.0f0) |
10238 |
|
|
10244 |
(compile |
(compile |
10245 |
nil |
nil |
10246 |
'(lambda (p1) |
'(lambda (p1) |
10247 |
(declare (optimize (speed 1) (safety 1) (debug 1) (space 2)) |
(declare (optimize (speed 1) (safety 1) (debug 1) (space 2)) |
10248 |
(type (eql -83232.09f0) p1)) |
(type (eql -83232.09f0) p1)) |
10249 |
(ceiling p1 -83381228))) |
(ceiling p1 -83381228))) |
10250 |
-83232.09f0)) |
-83232.09f0)) |
10251 |
1) |
1) |
10252 |
|
|
10257 |
(compile |
(compile |
10258 |
nil |
nil |
10259 |
'(lambda (p1) |
'(lambda (p1) |
10260 |
(declare (optimize (speed 1) (safety 1) |
(declare (optimize (speed 1) (safety 1) |
10261 |
(debug 1) (space 0)) |
(debug 1) (space 0)) |
10262 |
(type (member -66414.414f0) p1)) |
(type (member -66414.414f0) p1)) |
10263 |
(ceiling p1 -63019173f0))) |
(ceiling p1 -63019173f0))) |
10264 |
-66414.414f0)) |
-66414.414f0)) |
10265 |
1) |
1) |
10266 |
|
|
10272 |
(compile |
(compile |
10273 |
nil |
nil |
10274 |
'(lambda (p1) |
'(lambda (p1) |
10275 |
(declare (optimize (speed 0) (safety 1) |
(declare (optimize (speed 0) (safety 1) |
10276 |
(debug 0) (space 1)) |
(debug 0) (space 1)) |
10277 |
(type (eql 20851.398f0) p1)) |
(type (eql 20851.398f0) p1)) |
10278 |
(fceiling p1 80839863))) |
(fceiling p1 80839863))) |
10279 |
20851.398f0)) |
20851.398f0)) |
10280 |
1.0f0) |
1.0f0) |
10281 |
|
|
10284 |
|
|
10285 |
(deftest misc.562 |
(deftest misc.562 |
10286 |
(let ((fn '(lambda (p1) |
(let ((fn '(lambda (p1) |
10287 |
(declare (optimize (speed 0) (safety 0) (debug 0) (space 2)) |
(declare (optimize (speed 0) (safety 0) (debug 0) (space 2)) |
10288 |
(type (complex rational) p1)) |
(type (complex rational) p1)) |
10289 |
(log p1)))) |
(log p1)))) |
10290 |
(notnot (complexp (funcall (compile nil fn) #C(-215549 39/40))))) |
(notnot (complexp (funcall (compile nil fn) #C(-215549 39/40))))) |
10291 |
t) |
t) |
10292 |
|
|
10295 |
|
|
10296 |
(deftest misc.563 |
(deftest misc.563 |
10297 |
(funcall (compile nil '(lambda (x) |
(funcall (compile nil '(lambda (x) |
10298 |
(declare (optimize (speed 1) (safety 0) (debug 3) (space 1)) |
(declare (optimize (speed 1) (safety 0) (debug 3) (space 1)) |
10299 |
(type (complex rational) x)) |
(type (complex rational) x)) |
10300 |
(conjugate (the (eql #c(1 2)) x)))) |
(conjugate (the (eql #c(1 2)) x)))) |
10301 |
#c(1 2)) |
#c(1 2)) |
10302 |
#c(1 -2)) |
#c(1 -2)) |
10303 |
|
|
10304 |
;;; PHASE |
;;; PHASE |
10311 |
(compile |
(compile |
10312 |
nil |
nil |
10313 |
'(lambda (p1) |
'(lambda (p1) |
10314 |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 0)) |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 0)) |
10315 |
(type complex p1)) |
(type complex p1)) |
10316 |
(phase (the (eql #c(1.0d0 2.0d0)) p1)))) |
(phase (the (eql #c(1.0d0 2.0d0)) p1)))) |
10317 |
#c(1.0d0 2.0d0)) |
#c(1.0d0 2.0d0)) |
10318 |
'double-float)) |
'double-float)) |
10319 |
t) |
t) |
10327 |
nil |
nil |
10328 |
'(lambda (x) |
'(lambda (x) |
10329 |
(declare (optimize (speed 2) (safety 1) (debug 3) (space 0)) |
(declare (optimize (speed 2) (safety 1) (debug 3) (space 0)) |
10330 |
(type double-float x)) |
(type double-float x)) |
10331 |
(not (the (eql 1.0d0) x)))) |
(not (the (eql 1.0d0) x)))) |
10332 |
1.0d0) |
1.0d0) |
10333 |
nil) |
nil) |
10355 |
(compile |
(compile |
10356 |
nil |
nil |
10357 |
'(lambda (p2) |
'(lambda (p2) |
10358 |
(declare (optimize (speed 3) (safety 1) (debug 0) (space 1)) |
(declare (optimize (speed 3) (safety 1) (debug 0) (space 1)) |
10359 |
(type (integer -26794287907 505600792) p2)) |
(type (integer -26794287907 505600792) p2)) |
10360 |
(scale-float -15193.341216130497d0 (the (integer * 25) p2)))) |
(scale-float -15193.341216130497d0 (the (integer * 25) p2)))) |
10361 |
-4) |
-4) |
10362 |
(scale-float -15193.341216130497d0 -4)) |
(scale-float -15193.341216130497d0 -4)) |
10363 |
t) |
t) |
10370 |
(values |
(values |
10371 |
(funcall |
(funcall |
10372 |
(compile nil '(lambda (p2) |
(compile nil '(lambda (p2) |
10373 |
(declare (optimize (speed 1) (safety 3) (debug 3) (space 1)) |
(declare (optimize (speed 1) (safety 3) (debug 3) (space 1)) |
10374 |
(type (rational * 5325/3112) p2)) |
(type (rational * 5325/3112) p2)) |
10375 |
(floor 13026.059 (the (member 5325/3112 0 -2316/167 -449/460) p2)))) |
(floor 13026.059 (the (member 5325/3112 0 -2316/167 -449/460) p2)))) |
10376 |
5325/3112)) |
5325/3112)) |
10377 |
7612) |
7612) |
10378 |
|
|
10391 |
;;; Incorrect return value |
;;; Incorrect return value |
10392 |
(deftest misc.570 |
(deftest misc.570 |
10393 |
(funcall (compile nil '(lambda () |
(funcall (compile nil '(lambda () |
10394 |
(declare (optimize (speed 3) (safety 1))) |
(declare (optimize (speed 3) (safety 1))) |
10395 |
(char-equal #\: #\: #\;)))) |
(char-equal #\: #\: #\;)))) |
10396 |
nil) |
nil) |
10397 |
|
|
10398 |
;;; CODE-CHAR returns incorrect result |
;;; CODE-CHAR returns incorrect result |
10401 |
(deftest misc.571 |
(deftest misc.571 |
10402 |
(and (< 1000 char-code-limit) |
(and (< 1000 char-code-limit) |
10403 |
(let ((c1 (code-char 1000)) |
(let ((c1 (code-char 1000)) |
10404 |
(c2 |
(c2 |
10405 |
(funcall (compile nil '(lambda (x) |
(funcall (compile nil '(lambda (x) |
10406 |
(declare (optimize speed (safety 1))) |
(declare (optimize speed (safety 1))) |
10407 |
(code-char x))) |
(code-char x))) |
10408 |
1000))) |
1000))) |
10409 |
(if (not (eql c1 c2)) |
(if (not (eql c1 c2)) |
10410 |
(list c1 c2) |
(list c1 c2) |
10411 |
nil))) |
nil))) |
10412 |
nil) |
nil) |
10413 |
|
|
10414 |
;;; sbcl 0.8.20.19 |
;;; sbcl 0.8.20.19 |
10420 |
nil |
nil |
10421 |
'(lambda (p4) |
'(lambda (p4) |
10422 |
(declare (optimize (speed 1) (safety 2) (debug 1) (space 1)) |
(declare (optimize (speed 1) (safety 2) (debug 1) (space 1)) |
10423 |
(type (integer -59 65558) p4)) |
(type (integer -59 65558) p4)) |
10424 |
(string<= #.(coerce "1yapt1l7eeenz72u6xqhdfimcyk" 'base-string) |
(string<= #.(coerce "1yapt1l7eeenz72u6xqhdfimcyk" 'base-string) |
10425 |
#.(coerce "bababababbbabbabbababb" 'base-string) |
#.(coerce "bababababbbabbabbababb" 'base-string) |
10426 |
:start2 |
:start2 |
10427 |
(the (integer -3735 *) p4)))) |
(the (integer -3735 *) p4)))) |
10428 |
22) |
22) |
10429 |
nil) |
nil) |
10430 |
|
|
10436 |
nil |
nil |
10437 |
'(lambda (p4) |
'(lambda (p4) |
10438 |
(declare (optimize (speed 2) (safety 1) (debug 2) (space 2)) |
(declare (optimize (speed 2) (safety 1) (debug 2) (space 2)) |
10439 |
(type unsigned-byte p4)) |
(type unsigned-byte p4)) |
10440 |
(string<= (coerce "pdhd5oeynvqlthz3xrrdycotf" 'base-string) |
(string<= (coerce "pdhd5oeynvqlthz3xrrdycotf" 'base-string) |
10441 |
(coerce "" 'base-string) |
(coerce "" 'base-string) |
10442 |
:start1 (the (integer * 81) p4)))) |
:start1 (the (integer * 81) p4)))) |
10443 |
10) |
10) |
10444 |
nil) |
nil) |
10445 |
|
|
10451 |
nil |
nil |
10452 |
'(lambda (p4) |
'(lambda (p4) |
10453 |
(declare (optimize (speed 3) (safety 1) |
(declare (optimize (speed 3) (safety 1) |
10454 |
(debug 1) (space 2)) |
(debug 1) (space 2)) |
10455 |
(type (integer * 397079023) p4)) |
(type (integer * 397079023) p4)) |
10456 |
(string<= (coerce "e99mo7yAJ6oU4" 'base-string) |
(string<= (coerce "e99mo7yAJ6oU4" 'base-string) |
10457 |
(coerce "aaABAAbaa" 'base-string) |
(coerce "aaABAAbaa" 'base-string) |
10458 |
:start1 |
:start1 |
10459 |
(the |
(the |
10460 |
(member -34 |
(member -34 |
10461 |
131074 |
131074 |
10462 |
67108872 |
67108872 |
10463 |
9 |
9 |
10464 |
-3305367300 |
-3305367300 |
10465 |
335) |
335) |
10466 |
p4)))) |
p4)))) |
10467 |
9) |
9) |
10468 |
9) |
9) |
10469 |
|
|
10491 |
|
|
10492 |
(deftest misc.578 |
(deftest misc.578 |
10493 |
(funcall (compile nil '(lambda (p1) (declare (optimize safety)) (the (string 1) p1))) |
(funcall (compile nil '(lambda (p1) (declare (optimize safety)) (the (string 1) p1))) |
10494 |
(make-array '(1) :element-type 'base-char :initial-element #\x |
(make-array '(1) :element-type 'base-char :initial-element #\x |
10495 |
:fill-pointer 0)) |
:fill-pointer 0)) |
10496 |
"") |
"") |
10497 |
|
|
10498 |
;;; clisp (11 Jan 2005) |
;;; clisp (11 Jan 2005) |
10502 |
(deftest misc.579 |
(deftest misc.579 |
10503 |
(funcall |
(funcall |
10504 |
(compile nil '(lambda () |
(compile nil '(lambda () |
10505 |
(declare (optimize (speed 3) (safety 3) (debug 3) (space 0))) |
(declare (optimize (speed 3) (safety 3) (debug 3) (space 0))) |
10506 |
(member 61 '(432445) :allow-other-keys t :foo t)))) |
(member 61 '(432445) :allow-other-keys t :foo t)))) |
10507 |
nil) |
nil) |
10508 |
|
|
10509 |
;;; sbcl 0.8.20.19 |
;;; sbcl 0.8.20.19 |
10520 |
(floatp |
(floatp |
10521 |
(funcall |
(funcall |
10522 |
(compile nil '(lambda (x) |
(compile nil '(lambda (x) |
10523 |
(declare (type (eql -5067.2056) x)) |
(declare (type (eql -5067.2056) x)) |
10524 |
(+ 213734822 x))) |
(+ 213734822 x))) |
10525 |
-5067.2056))) |
-5067.2056))) |
10526 |
t) |
t) |
10527 |
|
|
10530 |
(typep |
(typep |
10531 |
(funcall |
(funcall |
10532 |
(compile nil '(lambda (x) (declare (type (eql -1.0) x)) |
(compile nil '(lambda (x) (declare (type (eql -1.0) x)) |
10533 |
;;; Note! #x1000001 is the least positive integer |
;;; Note! #x1000001 is the least positive integer |
10534 |
;;; for which this fails on x86 |
;;; for which this fails on x86 |
10535 |
(+ #x1000001 x))) |
(+ #x1000001 x))) |
10536 |
-1.0f0) |
-1.0f0) |
10537 |
'single-float)) |
'single-float)) |
10538 |
t) |
t) |
10578 |
nil |
nil |
10579 |
'(lambda (p1 p2) |
'(lambda (p1 p2) |
10580 |
(declare (optimize (speed 1) (safety 1) (debug 0) (space 1)) |
(declare (optimize (speed 1) (safety 1) (debug 0) (space 1)) |
10581 |
(type (member -3712.8447) p1) |
(type (member -3712.8447) p1) |
10582 |
(type (integer -34359738403 -24) p2)) |
(type (integer -34359738403 -24) p2)) |
10583 |
(scale-float p1 p2))) |
(scale-float p1 p2))) |
10584 |
-3712.8447 -27) |
-3712.8447 -27) |
10585 |
(scale-float -3712.8447 -27)) |
(scale-float -3712.8447 -27)) |
10586 |
t) |
t) |
10591 |
(deftest misc.585 |
(deftest misc.585 |
10592 |
(funcall |
(funcall |
10593 |
(compile nil '(lambda (p1) |
(compile nil '(lambda (p1) |
10594 |
(declare (optimize (speed 0) (safety 0) (debug 3) (space 3)) |
(declare (optimize (speed 0) (safety 0) (debug 3) (space 3)) |
10595 |
(type symbol p1)) |
(type symbol p1)) |
10596 |
(copy-list p1))) |
(copy-list p1))) |
10597 |
nil) |
nil) |
10598 |
nil) |
nil) |
10599 |
|
|
10605 |
nil |
nil |
10606 |
'(lambda (p6) |
'(lambda (p6) |
10607 |
(declare (optimize (speed 0) (safety 2) (debug 0) (space 0)) |
(declare (optimize (speed 0) (safety 2) (debug 0) (space 0)) |
10608 |
(type (integer -2 3009181) p6)) |
(type (integer -2 3009181) p6)) |
10609 |
(string> (coerce "ababaaabb" 'base-string) |
(string> (coerce "ababaaabb" 'base-string) |
10610 |
(coerce "ubbm" 'base-string) |
(coerce "ubbm" 'base-string) |
10611 |
:start1 2 :start2 p6 :end1 8))) |
:start1 2 :start2 p6 :end1 8))) |
10612 |
4) |
4) |
10613 |
2) |
2) |
10614 |
|
|
10617 |
|
|
10618 |
(deftest misc.587 |
(deftest misc.587 |
10619 |
(let ((result (funcall |
(let ((result (funcall |
10620 |
(compile |
(compile |
10621 |
nil |
nil |
10622 |
'(lambda (p2) |
'(lambda (p2) |
10623 |
(declare (optimize (speed 0) (safety 3) (debug 1) (space 0)) |
(declare (optimize (speed 0) (safety 3) (debug 1) (space 0)) |
10624 |
(type (eql 33558541) p2)) |
(type (eql 33558541) p2)) |
10625 |
(- 92215.266 p2))) |
(- 92215.266 p2))) |
10626 |
33558541))) |
33558541))) |
10627 |
(notnot (typep result 'single-float))) |
(notnot (typep result 'single-float))) |
10628 |
t) |
t) |
10629 |
|
|
10632 |
|
|
10633 |
(deftest misc.588 |
(deftest misc.588 |
10634 |
(funcall (compile nil '(lambda nil (declare (optimize (speed 2) (safety 1) (debug 1) (space 1))) |
(funcall (compile nil '(lambda nil (declare (optimize (speed 2) (safety 1) (debug 1) (space 1))) |
10635 |
(functionp 3502843)))) |
(functionp 3502843)))) |
10636 |
nil) |
nil) |
10637 |
|
|
10638 |
;;; (ARRAY NIL) is an illegal type specifier. |
;;; (ARRAY NIL) is an illegal type specifier. |
10651 |
|
|
10652 |
(deftest misc.591 |
(deftest misc.591 |
10653 |
(let* ((s1 (coerce "708553218828630100500" 'base-string)) |
(let* ((s1 (coerce "708553218828630100500" 'base-string)) |
10654 |
(s2 (make-array '(13) :element-type 'base-char |
(s2 (make-array '(13) :element-type 'base-char |
10655 |
:displaced-to s1 |
:displaced-to s1 |
10656 |
:displaced-index-offset 5))) |
:displaced-index-offset 5))) |
10657 |
(parse-integer s2)) |
(parse-integer s2)) |
10658 |
3218828630100 |
3218828630100 |
10659 |
13) |
13) |
10675 |
'(lambda (a b) |
'(lambda (a b) |
10676 |
(declare (ignorable a b)) |
(declare (ignorable a b)) |
10677 |
(declare (optimize (space 3) (debug 0) (safety 1) |
(declare (optimize (space 3) (debug 0) (safety 1) |
10678 |
(compilation-speed 3) (speed 1))) |
(compilation-speed 3) (speed 1))) |
10679 |
(prog2 |
(prog2 |
10680 |
(catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil) |
(catch 'ct1 (if (or (and t (not (and (and (or a t) nil) nil))) nil) |
10681 |
a |
a |
10682 |
(reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a)))) |
(reduce #'(lambda (lmv5 lmv2) 0) (vector b 0 a)))) |
10683 |
0))) |
0))) |
10684 |
2212755 3154856) |
2212755 3154856) |
10685 |
0) |
0) |
10686 |
|
|
10694 |
'(lambda (a b c) |
'(lambda (a b c) |
10695 |
(declare (ignorable a b c)) |
(declare (ignorable a b c)) |
10696 |
(declare (type (integer -1 0) a) |
(declare (type (integer -1 0) a) |
10697 |
(type (integer -1065019672 -181184465) b) |
(type (integer -1065019672 -181184465) b) |
10698 |
(type (integer 30074 1948824693) c)) |
(type (integer 30074 1948824693) c)) |
10699 |
(declare (optimize (safety 2) (compilation-speed 1) (speed 2) |
(declare (optimize (safety 2) (compilation-speed 1) (speed 2) |
10700 |
(space 0) (debug 0))) |
(space 0) (debug 0))) |
10701 |
(ash c (min 82 -28192897)))) |
(ash c (min 82 -28192897)))) |
10702 |
0 -714979492 1474663829) |
0 -714979492 1474663829) |
10703 |
0) |
0) |
10719 |
(compile |
(compile |
10720 |
nil |
nil |
10721 |
`(lambda () |
`(lambda () |
10722 |
(declare (optimize (speed 0) (safety 3) (debug 2) (space 1))) |
(declare (optimize (speed 0) (safety 3) (debug 2) (space 1))) |
10723 |
(typep ,s '(string 1))))))) |
(typep ,s '(string 1))))))) |
10724 |
t) |
t) |
10725 |
|
|
10726 |
|
|
10729 |
|
|
10730 |
(deftest misc.597 |
(deftest misc.597 |
10731 |
(funcall (compile nil '(lambda (c) |
(funcall (compile nil '(lambda (c) |
10732 |
(declare (optimize (speed 1) (compilation-speed 2) |
(declare (optimize (speed 1) (compilation-speed 2) |
10733 |
(space 1) (debug 1) (safety 2))) |
(space 1) (debug 1) (safety 2))) |
10734 |
(declare (type (integer 1 41) c)) |
(declare (type (integer 1 41) c)) |
10735 |
(logxor -1 c))) |
(logxor -1 c))) |
10736 |
8) |
8) |
10737 |
-9) |
-9) |
10738 |
|
|
10739 |
;;; SBCL 0.9.1.19 |
;;; SBCL 0.9.1.19 |
10741 |
|
|
10742 |
(deftest misc.598 |
(deftest misc.598 |
10743 |
(funcall (compile nil '(lambda (p1) |
(funcall (compile nil '(lambda (p1) |
10744 |
(declare (optimize (speed 2) (safety 0) (debug 3) |
(declare (optimize (speed 2) (safety 0) (debug 3) |
10745 |
(space 1)) |
(space 1)) |
10746 |
(type short-float p1)) |
(type short-float p1)) |
10747 |
(imagpart (the short-float p1)))) |
(imagpart (the short-float p1)))) |
10748 |
-79916.61s0) |
-79916.61s0) |
10749 |
-0.0s0) |
-0.0s0) |
10750 |
|
|
10751 |
;;; The value 20408096470 is not of type (INTEGER 19856842407 20640917103) |
;;; The value 20408096470 is not of type (INTEGER 19856842407 20640917103) |
10757 |
'(lambda (b) |
'(lambda (b) |
10758 |
(declare (type (integer 19856842407 20640917103) b)) |
(declare (type (integer 19856842407 20640917103) b)) |
10759 |
(declare (optimize (debug 1) (speed 3) (compilation-speed 2) |
(declare (optimize (debug 1) (speed 3) (compilation-speed 2) |
10760 |
(safety 3) (space 3))) |
(safety 3) (space 3))) |
10761 |
(lognand b (deposit-field b (byte 0 0) 3762528061)))) |
(lognand b (deposit-field b (byte 0 0) 3762528061)))) |
10762 |
20408096470) |
20408096470) |
10763 |
-3225589269) |
-3225589269) |
10772 |
'(lambda () |
'(lambda () |
10773 |
(declare (notinline min ash)) |
(declare (notinline min ash)) |
10774 |
(declare (optimize (speed 0) (debug 1) (safety 1) |
(declare (optimize (speed 0) (debug 1) (safety 1) |
10775 |
(space 1) (compilation-speed 3))) |
(space 1) (compilation-speed 3))) |
10776 |
(logxor (ash 0 (min 90 0)) 0)))) |
(logxor (ash 0 (min 90 0)) 0)))) |
10777 |
0) |
0) |
10778 |
|
|
10783 |
'(lambda () |
'(lambda () |
10784 |
(declare (notinline gcd)) |
(declare (notinline gcd)) |
10785 |
(declare |
(declare |
10786 |
(optimize (debug 3) (space 3) (safety 3) |
(optimize (debug 3) (space 3) (safety 3) |
10787 |
(compilation-speed 2) (speed 3))) |
(compilation-speed 2) (speed 3))) |
10788 |
(logeqv 0 (gcd 0))))) |
(logeqv 0 (gcd 0))))) |
10789 |
-1) |
-1) |
10790 |
|
|
10819 |
|
|
10820 |
(deftest misc.605 |
(deftest misc.605 |
10821 |
(let ((form '(lambda (p1 p2) |
(let ((form '(lambda (p1 p2) |
10822 |
(declare (optimize (speed 3) (safety 1) (debug 0) (space 0)) |
(declare (optimize (speed 3) (safety 1) (debug 0) (space 0)) |
10823 |
(type number p1) (type (float 0.0 3579.314s0) p2)) |
(type number p1) (type (float 0.0 3579.314s0) p2)) |
10824 |
(eql (the real p1) p2)))) |
(eql (the real p1) p2)))) |
10825 |
(not (funcall (compile nil form) 3579.314s0 3579.314s0))) |
(not (funcall (compile nil form) 3579.314s0 3579.314s0))) |
10826 |
nil) |
nil) |
10827 |
|
|
10829 |
|
|
10830 |
(deftest misc.606 |
(deftest misc.606 |
10831 |
(let ((form '(lambda () |
(let ((form '(lambda () |
10832 |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 2))) |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 2))) |
10833 |
(equal #\a #c(-1775806.0s0 88367.29s0))))) |
(equal #\a #c(-1775806.0s0 88367.29s0))))) |
10834 |
(funcall (compile nil form))) |
(funcall (compile nil form))) |
10835 |
nil) |
nil) |
10836 |
|
|
10838 |
|
|
10839 |
(deftest misc.607 |
(deftest misc.607 |
10840 |
(funcall (compile nil '(lambda () |
(funcall (compile nil '(lambda () |
10841 |
(declare (optimize (speed 0) (safety 2) (debug 2) (space 2))) |
(declare (optimize (speed 0) (safety 2) (debug 2) (space 2))) |
10842 |
(equal #*1 1)))) |
(equal #*1 1)))) |
10843 |
nil) |
nil) |
10844 |
|
|
10845 |
;;; Error in COMPILER::CMP-ANON [or a callee]: #\& is not of type FIXNUM. |
;;; Error in COMPILER::CMP-ANON [or a callee]: #\& is not of type FIXNUM. |
10846 |
|
|
10847 |
(deftest misc.608 |
(deftest misc.608 |
10848 |
(funcall (compile nil '(lambda (p1) |
(funcall (compile nil '(lambda (p1) |
10849 |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 3)) |
(declare (optimize (speed 3) (safety 2) (debug 3) (space 3)) |
10850 |
(type (integer -62603278 -31187) p1)) |
(type (integer -62603278 -31187) p1)) |
10851 |
(equal p1 #\&))) |
(equal p1 #\&))) |
10852 |
-31228) |
-31228) |
10853 |
nil) |
nil) |
10854 |
|
|
10855 |
;;; Wrong return value (was returning T) |
;;; Wrong return value (was returning T) |
10856 |
|
|
10857 |
(deftest misc.609 |
(deftest misc.609 |
10858 |
(funcall (compile nil '(lambda () |
(funcall (compile nil '(lambda () |
10859 |
(declare (optimize (speed 0) (safety 0) (debug 0) (space 3))) |
(declare (optimize (speed 0) (safety 0) (debug 0) (space 3))) |
10860 |
(equalp "b" #*)))) |
(equalp "b" #*)))) |
10861 |
nil) |
nil) |
10862 |
|
|
10863 |
;;; Error in COMPILER::CMP-ANON [or a callee]: 7933992 is not of type SYMBOL. |
;;; Error in COMPILER::CMP-ANON [or a callee]: 7933992 is not of type SYMBOL. |
10864 |
|
|
10865 |
(deftest misc.610 |
(deftest misc.610 |
10866 |
(not (funcall (compile nil '(lambda (p2) |
(not (funcall (compile nil '(lambda (p2) |
10867 |
(declare (optimize (speed 1) (safety 1) (debug 3) (space 2)) |
(declare (optimize (speed 1) (safety 1) (debug 3) (space 2)) |
10868 |
(type (cons symbol) p2)) |
(type (cons symbol) p2)) |
10869 |
(typep -32 p2))) |
(typep -32 p2))) |
10870 |
'(eql -32))) |
'(eql -32))) |
10871 |
nil) |
nil) |
10872 |
|
|
10873 |
;;; Error in CAR [or a callee]: -757161859 is not of type LIST. |
;;; Error in CAR [or a callee]: -757161859 is not of type LIST. |
10874 |
|
|
10875 |
(deftest misc.611 |
(deftest misc.611 |
10876 |
(funcall (compile nil '(lambda (p1) |
(funcall (compile nil '(lambda (p1) |
10877 |
(declare (optimize (speed 1) (safety 3) (debug 0) (space 2)) |
(declare (optimize (speed 1) (safety 3) (debug 0) (space 2)) |
10878 |
(type (cons atom) p1)) |
(type (cons atom) p1)) |
10879 |
(car p1))) |
(car p1))) |
10880 |
'(48144509 . a)) |
'(48144509 . a)) |
10881 |
48144509) |
48144509) |
10882 |
|
|
10883 |
|
;;; gcl (09 Aug 2005) |
10884 |
|
;;; Error in COMPILER::POSSIBLE-EQ-LIST-SEARCH [or a callee]: COMPILER::POSSIBLE-EQ-LIST-SEARCH does not allow the keyword :B. |
10885 |
|
|
10886 |
|
(deftest misc.612 |
10887 |
|
(funcall |
10888 |
|
(compile nil '(lambda (p1 p2) |
10889 |
|
((lambda (x y) (typep x (type-of y))) p1 |
10890 |
|
(the (member "foo" #\- :b "bar") p2)))) |
10891 |
|
#*1 :b) |
10892 |
|
nil) |