/[gcl]/gcl/ansi-tests/misc.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/misc.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.246 by pfdietz, Sun Jul 24 11:49:44 2005 UTC revision 1.247 by pfdietz, Tue Aug 9 12:13:49 2005 UTC
# Line 15  Line 15 
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
# Line 33  Line 33 
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    
# Line 44  Line 44 
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
# Line 89  Line 89 
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    
# Line 101  Line 101 
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
# Line 118  Line 118 
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    
# Line 137  Line 137 
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    
# Line 155  Line 155 
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    
# Line 170  Line 170 
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    
# Line 193  Line 193 
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    
# Line 208  Line 208 
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    
# Line 223  Line 223 
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    
# Line 239  Line 239 
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    
# Line 256  Line 256 
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    
# Line 271  Line 271 
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    
# Line 287  Line 287 
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    
# Line 304  Line 304 
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    
# Line 324  Line 324 
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    
# Line 345  Line 345 
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    
# Line 366  Line 366 
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    
# Line 386  Line 386 
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    
# Line 404  Line 404 
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    
# Line 419  Line 419 
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    
# Line 434  Line 434 
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    
# Line 450  Line 450 
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    
# Line 472  Line 472 
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
# Line 492  Line 492 
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    
# Line 508  Line 508 
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    
# Line 541  Line 541 
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
# Line 573  Line 573 
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    
# Line 584  Line 584 
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)
# Line 594  Line 594 
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)
# Line 604  Line 604 
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)
# Line 614  Line 614 
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)
# Line 631  Line 631 
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    
# Line 641  Line 641 
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    
# Line 652  Line 652 
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    
# Line 663  Line 663 
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    
# Line 676  Line 676 
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    
# Line 692  Line 692 
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)
# Line 782  Line 782 
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    
# Line 897  Line 897 
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)
# Line 925  Line 925 
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:
# Line 968  Line 968 
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    
# Line 984  Line 984 
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
# Line 997  Line 997 
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
# Line 1011  Line 1011 
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    
# Line 1024  Line 1024 
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    
# Line 1040  Line 1040 
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    
# Line 1050  Line 1050 
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    
# Line 1062  Line 1062 
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  ;;;  ;;;
# Line 1127  Line 1127 
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    
# Line 1146  Line 1146 
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)
# Line 1164  Line 1164 
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)
# Line 1172  Line 1172 
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
# Line 1310  Line 1310 
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    
# Line 1385  Line 1385 
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    
# Line 1396  Line 1396 
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    
# Line 1416  Line 1416 
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)
# Line 1438  Line 1438 
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    
# Line 1467  Line 1467 
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    
# Line 1481  Line 1481 
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    
# Line 1499  Line 1499 
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    
# Line 1510  Line 1510 
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
# Line 1534  Line 1534 
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    
# Line 1558  Line 1558 
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    
# Line 1612  Line 1612 
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    
# Line 1631  Line 1631 
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))))))))
# Line 1647  Line 1647 
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    
# Line 1688  Line 1688 
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
# Line 1699  Line 1699 
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    
# Line 1737  Line 1737 
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    
# Line 1807  Line 1807 
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)))))
# Line 1822  Line 1822 
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    
# Line 1839  Line 1839 
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    
# Line 1906  Line 1906 
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    
# Line 1935  Line 1935 
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    
# Line 1958  Line 1958 
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    
# Line 1994  Line 1994 
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    
# Line 2024  Line 2024 
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    
# Line 2055  Line 2055 
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
# Line 2085  Line 2085 
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    
# Line 2110  Line 2110 
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    
# Line 2133  Line 2133 
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    
# Line 2150  Line 2150 
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    
# Line 2166  Line 2166 
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    
# Line 2177  Line 2177 
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)
# Line 2189  Line 2189 
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    
# Line 2222  Line 2222 
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    
# Line 2235  Line 2235 
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    
# Line 2245  Line 2245 
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    
# Line 2289  Line 2289 
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    
# Line 2302  Line 2302 
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    
# Line 2313  Line 2313 
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)"
# Line 2322  Line 2322 
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    
# Line 2378  Line 2378 
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    
# Line 2400  Line 2400 
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    
# Line 2413  Line 2413 
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    
# Line 2441  Line 2441 
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    
# Line 2455  Line 2455 
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)
# Line 2474  Line 2474 
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)
# Line 2494  Line 2494 
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    
# Line 2522  Line 2522 
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    
# Line 2543  Line 2543 
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    
# Line 2587  Line 2587 
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    
# Line 2615  Line 2615 
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    
# Line 2661  Line 2661 
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    
# Line 2697  Line 2697 
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    
# Line 2723  Line 2723 
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    
# Line 2761  Line 2761 
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
# Line 2781  Line 2781 
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    
# Line 2826  Line 2826 
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    
# Line 2846  Line 2846 
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    
# Line 2880  Line 2880 
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    
# Line 2930  Line 2930 
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)
# Line 2950  Line 2950 
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    
# Line 2984  Line 2984 
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    
# Line 3023  Line 3023 
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    
# Line 3115  Line 3115 
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    
# Line 3136  Line 3136 
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    
# Line 3167  Line 3167 
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
# Line 3193  Line 3193 
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))))
# Line 3211  Line 3211 
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    
# Line 3249  Line 3249 
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    
# Line 3298  Line 3298 
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    
# Line 3322  Line 3322 
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    
# Line 3352  Line 3352 
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    
# Line 3380  Line 3380 
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    
# Line 3394  Line 3394 
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    
# Line 3420  Line 3420 
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    
# Line 3460  Line 3460 
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    
# Line 3470  Line 3470 
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    
# Line 3519  Line 3519 
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    
# Line 3560  Line 3560 
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    
# Line 3579  Line 3579 
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    
# Line 3596  Line 3596 
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    
# Line 3612  Line 3612 
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    
# Line 3632  Line 3632 
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    
# Line 3647  Line 3647 
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
# Line 3663  Line 3663 
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)
# Line 3676  Line 3676 
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    
# Line 3695  Line 3695 
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    
# Line 3729  Line 3729 
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    
# Line 3745  Line 3745 
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    
# Line 3759  Line 3759 
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    
# Line 3773  Line 3773 
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    
# Line 3787  Line 3787 
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)
# Line 3800  Line 3800 
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    
# Line 3813  Line 3813 
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    
# Line 3833  Line 3833 
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)
# Line 3849  Line 3849 
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
# Line 3862  Line 3862 
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    
# Line 3875  Line 3875 
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    
# Line 3889  Line 3889 
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)
# Line 3901  Line 3901 
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
# Line 3933  Line 3933 
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.
# Line 3948  Line 3948 
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    
# Line 3981  Line 3981 
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    
# Line 4002  Line 4002 
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    
# Line 4016  Line 4016 
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    
# Line 4028  Line 4028 
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    
# Line 4050  Line 4050 
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    
# Line 4069  Line 4069 
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    
# Line 4085  Line 4085 
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
# Line 4103  Line 4103 
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    
# Line 4121  Line 4121 
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    
# Line 4138  Line 4138 
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    
# Line 4160  Line 4160 
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    
# Line 4197  Line 4197 
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)
# Line 4220  Line 4220 
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)
# Line 4231  Line 4231 
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    
# Line 4247  Line 4247 
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)
# Line 4264  Line 4264 
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    
# Line 4274  Line 4274 
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)
# Line 4288  Line 4288 
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
# Line 4312  Line 4312 
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    
# Line 4388  Line 4388 
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    
# Line 4404  Line 4404 
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    
# Line 4436  Line 4436 
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    
# Line 4468  Line 4468 
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    
# Line 4493  Line 4493 
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
# Line 4502  Line 4502 
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    
# Line 4525  Line 4525 
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    
# Line 4539  Line 4539 
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    
# Line 4569  Line 4569 
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)
# Line 4601  Line 4601 
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)
# Line 4613  Line 4613 
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    
# Line 4625  Line 4625 
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)
# Line 4637  Line 4637 
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)
# Line 4649  Line 4649 
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)
# Line 4661  Line 4661 
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)
# Line 4677  Line 4677 
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)
# Line 4692  Line 4692 
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
# Line 4703  Line 4703 
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)
# Line 4715  Line 4715 
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)
# Line 4724  Line 4724 
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
# Line 4738  Line 4738 
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
# Line 4750  Line 4750 
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)
# Line 4773  Line 4773 
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)
# Line 4810  Line 4810 
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
# Line 4830  Line 4830 
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
# Line 4848  Line 4848 
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    
# Line 4870  Line 4870 
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)
# Line 4887  Line 4887 
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    
# Line 4907  Line 4907 
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
# Line 4921  Line 4921 
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
# Line 4934  Line 4934 
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)
# Line 4947  Line 4947 
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    
# Line 4972  Line 4972 
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)
# Line 5005  Line 5005 
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)
# Line 5021  Line 5021 
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)
# Line 5042  Line 5042 
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)))))))
# Line 5052  Line 5052 
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  |#  |#
# Line 5087  Broken at C::WT-C-INLINE-LOC. Line 5087  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5102  Broken at C::WT-C-INLINE-LOC. Line 5102  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5130  Broken at C::WT-C-INLINE-LOC. Line 5130  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5146  Broken at C::WT-C-INLINE-LOC. Line 5146  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5169  Broken at C::WT-C-INLINE-LOC. Line 5169  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5196  Broken at C::WT-C-INLINE-LOC. Line 5196  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5212  Broken at C::WT-C-INLINE-LOC. Line 5212  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5230  Broken at C::WT-C-INLINE-LOC. Line 5230  Broken at C::WT-C-INLINE-LOC.
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
# Line 5250  Broken at C::WT-C-INLINE-LOC. Line 5250  Broken at C::WT-C-INLINE-LOC.
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))))
# Line 5268  Broken at C::WT-C-INLINE-LOC. Line 5268  Broken at C::WT-C-INLINE-LOC.
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)
# Line 5286  Broken at C::WT-C-INLINE-LOC. Line 5286  Broken at C::WT-C-INLINE-LOC.
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    
# Line 5307  Broken at C::WT-C-INLINE-LOC. Line 5307  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6070  Broken at C::WT-C-INLINE-LOC. Line 6070  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6091  Broken at C::WT-C-INLINE-LOC. Line 6091  Broken at C::WT-C-INLINE-LOC.
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
# Line 6108  Broken at C::WT-C-INLINE-LOC. Line 6108  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6137  Broken at C::WT-C-INLINE-LOC. Line 6137  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6156  Broken at C::WT-C-INLINE-LOC. Line 6156  Broken at C::WT-C-INLINE-LOC.
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
# Line 6169  Broken at C::WT-C-INLINE-LOC. Line 6169  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6190  Broken at C::WT-C-INLINE-LOC. Line 6190  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6212  Broken at C::WT-C-INLINE-LOC. Line 6212  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6226  Broken at C::WT-C-INLINE-LOC. Line 6226  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6236  Broken at C::WT-C-INLINE-LOC. Line 6236  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6254  Broken at C::WT-C-INLINE-LOC. Line 6254  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6273  Broken at C::WT-C-INLINE-LOC. Line 6273  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6288  Broken at C::WT-C-INLINE-LOC. Line 6288  Broken at C::WT-C-INLINE-LOC.
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)
# Line 6305  Broken at C::WT-C-INLINE-LOC. Line 6305  Broken at C::WT-C-INLINE-LOC.
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)
# Line 6331  Broken at C::WT-C-INLINE-LOC. Line 6331  Broken at C::WT-C-INLINE-LOC.
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            
# Line 6354  Broken at C::WT-C-INLINE-LOC. Line 6354  Broken at C::WT-C-INLINE-LOC.
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)
# Line 6369  Broken at C::WT-C-INLINE-LOC. Line 6369  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6385  Broken at C::WT-C-INLINE-LOC. Line 6385  Broken at C::WT-C-INLINE-LOC.
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)
# Line 6399  Broken at C::WT-C-INLINE-LOC. Line 6399  Broken at C::WT-C-INLINE-LOC.
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)
# Line 6413  Broken at C::WT-C-INLINE-LOC. Line 6413  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6431  Broken at C::WT-C-INLINE-LOC. Line 6431  Broken at C::WT-C-INLINE-LOC.
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:
# Line 6449  Broken at C::WT-C-INLINE-LOC. Line 6449  Broken at C::WT-C-INLINE-LOC.
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)
# Line 6458  Broken at C::WT-C-INLINE-LOC. Line 6458  Broken at C::WT-C-INLINE-LOC.
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
# Line 6476  Broken at C::WT-C-INLINE-LOC. Line 6476  Broken at C::WT-C-INLINE-LOC.
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
# Line 6486  Broken at C::WT-C-INLINE-LOC. Line 6486  Broken at C::WT-C-INLINE-LOC.
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
# Line 6502  Broken at C::WT-C-INLINE-LOC. Line 6502  Broken at C::WT-C-INLINE-LOC.
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.
# Line 6524  Broken at C::WT-C-INLINE-LOC. Line 6524  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6544  Broken at C::WT-C-INLINE-LOC. Line 6544  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6562  Broken at C::WT-C-INLINE-LOC. Line 6562  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6579  Broken at C::WT-C-INLINE-LOC. Line 6579  Broken at C::WT-C-INLINE-LOC.
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
# Line 6598  Broken at C::WT-C-INLINE-LOC. Line 6598  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6614  Broken at C::WT-C-INLINE-LOC. Line 6614  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6639  Broken at C::WT-C-INLINE-LOC. Line 6639  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6656  Broken at C::WT-C-INLINE-LOC. Line 6656  Broken at C::WT-C-INLINE-LOC.
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.
# Line 6675  Broken at C::WT-C-INLINE-LOC. Line 6675  Broken at C::WT-C-INLINE-LOC.
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
# Line 6688  Broken at C::WT-C-INLINE-LOC. Line 6688  Broken at C::WT-C-INLINE-LOC.
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)
# Line 6699  Broken at C::WT-C-INLINE-LOC. Line 6699  Broken at C::WT-C-INLINE-LOC.
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
# Line 6715  Broken at C::WT-C-INLINE-LOC. Line 6715  Broken at C::WT-C-INLINE-LOC.
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
# Line 6730  Broken at C::WT-C-INLINE-LOC. Line 6730  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6748  Broken at C::WT-C-INLINE-LOC. Line 6748  Broken at C::WT-C-INLINE-LOC.
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
# Line 6763  Broken at C::WT-C-INLINE-LOC. Line 6763  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6792  Broken at C::WT-C-INLINE-LOC. Line 6792  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6807  Broken at C::WT-C-INLINE-LOC. Line 6807  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6824  Broken at C::WT-C-INLINE-LOC. Line 6824  Broken at C::WT-C-INLINE-LOC.
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
# Line 6840  Broken at C::WT-C-INLINE-LOC. Line 6840  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6860  Broken at C::WT-C-INLINE-LOC. Line 6860  Broken at C::WT-C-INLINE-LOC.
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
# Line 6879  Broken at C::WT-C-INLINE-LOC. Line 6879  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6914  Broken at C::WT-C-INLINE-LOC. Line 6914  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6937  Broken at C::WT-C-INLINE-LOC. Line 6937  Broken at C::WT-C-INLINE-LOC.
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    
# Line 6963  Broken at C::WT-C-INLINE-LOC. Line 6963  Broken at C::WT-C-INLINE-LOC.
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))
# Line 6982  Broken at C::WT-C-INLINE-LOC. Line 6982  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7019  Broken at C::WT-C-INLINE-LOC. Line 7019  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7070  Broken at C::WT-C-INLINE-LOC. Line 7070  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7098  Broken at C::WT-C-INLINE-LOC. Line 7098  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7122  Broken at C::WT-C-INLINE-LOC. Line 7122  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7155  Broken at C::WT-C-INLINE-LOC. Line 7155  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7181  Broken at C::WT-C-INLINE-LOC. Line 7181  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7214  Broken at C::WT-C-INLINE-LOC. Line 7214  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7235  Broken at C::WT-C-INLINE-LOC. Line 7235  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7261  Broken at C::WT-C-INLINE-LOC. Line 7261  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7294  Broken at C::WT-C-INLINE-LOC. Line 7294  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7315  Broken at C::WT-C-INLINE-LOC. Line 7315  Broken at C::WT-C-INLINE-LOC.
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
# Line 7331  Broken at C::WT-C-INLINE-LOC. Line 7331  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7350  Broken at C::WT-C-INLINE-LOC. Line 7350  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7363  Broken at C::WT-C-INLINE-LOC. Line 7363  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7377  Broken at C::WT-C-INLINE-LOC. Line 7377  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7405  Broken at C::WT-C-INLINE-LOC. Line 7405  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7433  Broken at C::WT-C-INLINE-LOC. Line 7433  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7465  Broken at C::WT-C-INLINE-LOC. Line 7465  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7484  Broken at C::WT-C-INLINE-LOC. Line 7484  Broken at C::WT-C-INLINE-LOC.
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
# Line 7528  Broken at C::WT-C-INLINE-LOC. Line 7528  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7545  Broken at C::WT-C-INLINE-LOC. Line 7545  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7561  Broken at C::WT-C-INLINE-LOC. Line 7561  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7578  Broken at C::WT-C-INLINE-LOC. Line 7578  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7596  Broken at C::WT-C-INLINE-LOC. Line 7596  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7616  Broken at C::WT-C-INLINE-LOC. Line 7616  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7637  Broken at C::WT-C-INLINE-LOC. Line 7637  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7657  Broken at C::WT-C-INLINE-LOC. Line 7657  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7673  Broken at C::WT-C-INLINE-LOC. Line 7673  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7690  Broken at C::WT-C-INLINE-LOC. Line 7690  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7708  Broken at C::WT-C-INLINE-LOC. Line 7708  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7732  Broken at C::WT-C-INLINE-LOC. Line 7732  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7754  Broken at C::WT-C-INLINE-LOC. Line 7754  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7770  Broken at C::WT-C-INLINE-LOC. Line 7770  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7786  Broken at C::WT-C-INLINE-LOC. Line 7786  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7802  Broken at C::WT-C-INLINE-LOC. Line 7802  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7824  Broken at C::WT-C-INLINE-LOC. Line 7824  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7837  Broken at C::WT-C-INLINE-LOC. Line 7837  Broken at C::WT-C-INLINE-LOC.
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
# Line 7911  Broken at C::WT-C-INLINE-LOC. Line 7911  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7922  Broken at C::WT-C-INLINE-LOC. Line 7922  Broken at C::WT-C-INLINE-LOC.
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)
# Line 7949  Broken at C::WT-C-INLINE-LOC. Line 7949  Broken at C::WT-C-INLINE-LOC.
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    
# Line 7974  Broken at C::WT-MAKE-CLOSURE. Line 7974  Broken at C::WT-MAKE-CLOSURE.
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.
# Line 7988  Broken at C::WT-MAKE-CLOSURE. Line 7988  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8004  Broken at C::WT-MAKE-CLOSURE. Line 8004  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8022  Broken at C::WT-MAKE-CLOSURE. Line 8022  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8050  Broken at C::WT-MAKE-CLOSURE. Line 8050  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8065  Broken at C::WT-MAKE-CLOSURE. Line 8065  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8080  Broken at C::WT-MAKE-CLOSURE. Line 8080  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8094  Broken at C::WT-MAKE-CLOSURE. Line 8094  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8109  Broken at C::WT-MAKE-CLOSURE. Line 8109  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8124  Broken at C::WT-MAKE-CLOSURE. Line 8124  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8141  Broken at C::WT-MAKE-CLOSURE. Line 8141  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8161  Broken at C::WT-MAKE-CLOSURE. Line 8161  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8174  Broken at C::WT-MAKE-CLOSURE. Line 8174  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8208  Broken at C::WT-MAKE-CLOSURE. Line 8208  Broken at C::WT-MAKE-CLOSURE.
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
# Line 8226  Broken at C::WT-MAKE-CLOSURE. Line 8226  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8239  Broken at C::WT-MAKE-CLOSURE. Line 8239  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8254  Broken at C::WT-MAKE-CLOSURE. Line 8254  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8269  Broken at C::WT-MAKE-CLOSURE. Line 8269  Broken at C::WT-MAKE-CLOSURE.
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
# Line 8282  Broken at C::WT-MAKE-CLOSURE. Line 8282  Broken at C::WT-MAKE-CLOSURE.
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
# Line 8333  Broken at C::WT-MAKE-CLOSURE. Line 8333  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8361  Broken at C::WT-MAKE-CLOSURE. Line 8361  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8396  Broken at C::WT-MAKE-CLOSURE. Line 8396  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8431  Broken at C::WT-MAKE-CLOSURE. Line 8431  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8459  Broken at C::WT-MAKE-CLOSURE. Line 8459  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8476  Broken at C::WT-MAKE-CLOSURE. Line 8476  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8496  Broken at C::WT-MAKE-CLOSURE. Line 8496  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8524  Broken at C::WT-MAKE-CLOSURE. Line 8524  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8540  Broken at C::WT-MAKE-CLOSURE. Line 8540  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8563  Broken at C::WT-MAKE-CLOSURE. Line 8563  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8586  Broken at C::WT-MAKE-CLOSURE. Line 8586  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8600  Broken at C::WT-MAKE-CLOSURE. Line 8600  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8613  Broken at C::WT-MAKE-CLOSURE. Line 8613  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8637  Broken at C::WT-MAKE-CLOSURE. Line 8637  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8672  Broken at C::WT-MAKE-CLOSURE. Line 8672  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8685  Broken at C::WT-MAKE-CLOSURE. Line 8685  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8700  Broken at C::WT-MAKE-CLOSURE. Line 8700  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8714  Broken at C::WT-MAKE-CLOSURE. Line 8714  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8733  Broken at C::WT-MAKE-CLOSURE. Line 8733  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 8751  Broken at C::WT-MAKE-CLOSURE. Line 8751  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8780  Broken at C::WT-MAKE-CLOSURE. Line 8780  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8797  Broken at C::WT-MAKE-CLOSURE. Line 8797  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8811  Broken at C::WT-MAKE-CLOSURE. Line 8811  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8827  Broken at C::WT-MAKE-CLOSURE. Line 8827  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8857  Broken at C::WT-MAKE-CLOSURE. Line 8857  Broken at C::WT-MAKE-CLOSURE.
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
# Line 8870  Broken at C::WT-MAKE-CLOSURE. Line 8870  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 8951  Broken at C::WT-MAKE-CLOSURE. Line 8951  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9000  Broken at C::WT-MAKE-CLOSURE. Line 9000  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9038  Broken at C::WT-MAKE-CLOSURE. Line 9038  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9176  Broken at C::WT-MAKE-CLOSURE. Line 9176  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9191  Broken at C::WT-MAKE-CLOSURE. Line 9191  Broken at C::WT-MAKE-CLOSURE.
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.
# Line 9202  Broken at C::WT-MAKE-CLOSURE. Line 9202  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9221  Broken at C::WT-MAKE-CLOSURE. Line 9221  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9249  Broken at C::WT-MAKE-CLOSURE. Line 9249  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9266  Broken at C::WT-MAKE-CLOSURE. Line 9266  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9282  Broken at C::WT-MAKE-CLOSURE. Line 9282  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9293  Broken at C::WT-MAKE-CLOSURE. Line 9293  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9306  Broken at C::WT-MAKE-CLOSURE. Line 9306  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9320  Broken at C::WT-MAKE-CLOSURE. Line 9320  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9337  Broken at C::WT-MAKE-CLOSURE. Line 9337  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9388  Broken at C::WT-MAKE-CLOSURE. Line 9388  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9450  Broken at C::WT-MAKE-CLOSURE. Line 9450  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9482  Broken at C::WT-MAKE-CLOSURE. Line 9482  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9530  Broken at C::WT-MAKE-CLOSURE. Line 9530  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9544  Broken at C::WT-MAKE-CLOSURE. Line 9544  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9559  Broken at C::WT-MAKE-CLOSURE. Line 9559  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9582  Broken at C::WT-MAKE-CLOSURE. Line 9582  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9604  Broken at C::WT-MAKE-CLOSURE. Line 9604  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9622  Broken at C::WT-MAKE-CLOSURE. Line 9622  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9641  Broken at C::WT-MAKE-CLOSURE. Line 9641  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9664  Broken at C::WT-MAKE-CLOSURE. Line 9664  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9690  Broken at C::WT-MAKE-CLOSURE. Line 9690  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9711  Broken at C::WT-MAKE-CLOSURE. Line 9711  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9728  Broken at C::WT-MAKE-CLOSURE. Line 9728  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9766  Broken at C::WT-MAKE-CLOSURE. Line 9766  Broken at C::WT-MAKE-CLOSURE.
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
# Line 9793  Broken at C::WT-MAKE-CLOSURE. Line 9793  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9833  Broken at C::WT-MAKE-CLOSURE. Line 9833  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9874  Broken at C::WT-MAKE-CLOSURE. Line 9874  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9895  Broken at C::WT-MAKE-CLOSURE. Line 9895  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9924  Broken at C::WT-MAKE-CLOSURE. Line 9924  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9939  Broken at C::WT-MAKE-CLOSURE. Line 9939  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 9948  Broken at C::WT-MAKE-CLOSURE. Line 9948  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9976  Broken at C::WT-MAKE-CLOSURE. Line 9976  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 9986  Broken at C::WT-MAKE-CLOSURE. Line 9986  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10023  Broken at C::WT-MAKE-CLOSURE. Line 10023  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10036  Broken at C::WT-MAKE-CLOSURE. Line 10036  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10050  Broken at C::WT-MAKE-CLOSURE. Line 10050  Broken at C::WT-MAKE-CLOSURE.
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
# Line 10077  Broken at C::WT-MAKE-CLOSURE. Line 10077  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10090  Broken at C::WT-MAKE-CLOSURE. Line 10090  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10103  Broken at C::WT-MAKE-CLOSURE. Line 10103  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10116  Broken at C::WT-MAKE-CLOSURE. Line 10116  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10127  Broken at C::WT-MAKE-CLOSURE. Line 10127  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10139  Broken at C::WT-MAKE-CLOSURE. Line 10139  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10148  Broken at C::WT-MAKE-CLOSURE. Line 10148  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10161  Broken at C::WT-MAKE-CLOSURE. Line 10161  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10171  Broken at C::WT-MAKE-CLOSURE. Line 10171  Broken at C::WT-MAKE-CLOSURE.
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
# Line 10186  Broken at C::WT-MAKE-CLOSURE. Line 10186  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10198  Broken at C::WT-MAKE-CLOSURE. Line 10198  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10215  Broken at C::WT-MAKE-CLOSURE. Line 10215  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10229  Broken at C::WT-MAKE-CLOSURE. Line 10229  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10244  Broken at C::WT-MAKE-CLOSURE. Line 10244  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10257  Broken at C::WT-MAKE-CLOSURE. Line 10257  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10272  Broken at C::WT-MAKE-CLOSURE. Line 10272  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10284  Broken at C::WT-MAKE-CLOSURE. Line 10284  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10295  Broken at C::WT-MAKE-CLOSURE. Line 10295  Broken at C::WT-MAKE-CLOSURE.
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
# Line 10311  Broken at C::WT-MAKE-CLOSURE. Line 10311  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10327  Broken at C::WT-MAKE-CLOSURE. Line 10327  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10355  Broken at C::WT-MAKE-CLOSURE. Line 10355  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10370  Broken at C::WT-MAKE-CLOSURE. Line 10370  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10391  Broken at C::WT-MAKE-CLOSURE. Line 10391  Broken at C::WT-MAKE-CLOSURE.
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
# Line 10401  Broken at C::WT-MAKE-CLOSURE. Line 10401  Broken at C::WT-MAKE-CLOSURE.
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
# Line 10420  Broken at C::WT-MAKE-CLOSURE. Line 10420  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10436  Broken at C::WT-MAKE-CLOSURE. Line 10436  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10451  Broken at C::WT-MAKE-CLOSURE. Line 10451  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10491  Broken at C::WT-MAKE-CLOSURE. Line 10491  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10502  Broken at C::WT-MAKE-CLOSURE. Line 10502  Broken at C::WT-MAKE-CLOSURE.
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
# Line 10520  Broken at C::WT-MAKE-CLOSURE. Line 10520  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10530  Broken at C::WT-MAKE-CLOSURE. Line 10530  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10578  Broken at C::WT-MAKE-CLOSURE. Line 10578  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10591  Broken at C::WT-MAKE-CLOSURE. Line 10591  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10605  Broken at C::WT-MAKE-CLOSURE. Line 10605  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10617  Broken at C::WT-MAKE-CLOSURE. Line 10617  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10632  Broken at C::WT-MAKE-CLOSURE. Line 10632  Broken at C::WT-MAKE-CLOSURE.
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.
# Line 10651  Broken at C::WT-MAKE-CLOSURE. Line 10651  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10675  Broken at C::WT-MAKE-CLOSURE. Line 10675  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10694  Broken at C::WT-MAKE-CLOSURE. Line 10694  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10719  Broken at C::WT-MAKE-CLOSURE. Line 10719  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10729  Broken at C::WT-MAKE-CLOSURE. Line 10729  Broken at C::WT-MAKE-CLOSURE.
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
# Line 10741  Broken at C::WT-MAKE-CLOSURE. Line 10741  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10757  Broken at C::WT-MAKE-CLOSURE. Line 10757  Broken at C::WT-MAKE-CLOSURE.
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)
# Line 10772  Broken at C::WT-MAKE-CLOSURE. Line 10772  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10783  Broken at C::WT-MAKE-CLOSURE. Line 10783  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10819  Broken at C::WT-MAKE-CLOSURE. Line 10819  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10829  Broken at C::WT-MAKE-CLOSURE. Line 10829  Broken at C::WT-MAKE-CLOSURE.
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    
# Line 10838  Broken at C::WT-MAKE-CLOSURE. Line 10838  Broken at C::WT-MAKE-CLOSURE.
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)

Legend:
Removed from v.1.246  
changed lines
  Added in v.1.247

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26