2291 |
1 2 3) |
1 2 3) |
2292 |
3) |
3) |
2293 |
|
|
2294 |
|
(deftest misc.169 |
2295 |
|
(funcall |
2296 |
|
(compile |
2297 |
|
nil |
2298 |
|
'(lambda (a b c) |
2299 |
|
(if t -21705 |
2300 |
|
(flet ((%f15 (f15-1 f15-2) |
2301 |
|
b)) |
2302 |
|
(block b4 |
2303 |
|
(%f15 -11112264 |
2304 |
|
(labels ((%f2 |
2305 |
|
(f2-1 |
2306 |
|
&optional (f2-2 (if b -5485340 -1534)) |
2307 |
|
(f2-3 -6)) |
2308 |
|
(return-from b4 f2-1))) |
2309 |
|
(return-from b4 |
2310 |
|
(if b (%f2 c -320813) (%f2 b a a)))))))))) |
2311 |
|
1 2 3) |
2312 |
|
-21705) |
2313 |
|
|
2314 |
|
;;; sbcl (0.8.5.26) |
2315 |
|
;;; failed AVER: "(FUNCTIONAL-LETLIKE-P CLAMBDA)" |
2316 |
|
|
2317 |
|
(deftest misc.170 |
2318 |
|
(funcall |
2319 |
|
(compile |
2320 |
|
nil |
2321 |
|
'(lambda (b) |
2322 |
|
(flet ((%f14 (f14-1 f14-2) |
2323 |
|
(if (if (eql b -7) nil nil) |
2324 |
|
(labels ((%f10 (f10-1 f10-2 f10-3) |
2325 |
|
7466)) |
2326 |
|
(return-from %f14 |
2327 |
|
(min |
2328 |
|
(multiple-value-call #'%f10 (values 0 492 f14-1)) |
2329 |
|
(max 11 f14-1) |
2330 |
|
(multiple-value-call #'%f10 |
2331 |
|
(values 439171 f14-2 0))))) |
2332 |
|
1))) |
2333 |
|
(let ((v6 (%f14 (logcount b) -386283))) |
2334 |
|
56211)))) |
2335 |
|
17) |
2336 |
|
56211) |
2337 |
|
|
2338 |
|
;;; The value NIL is not of type SB-C::NODE. |
2339 |
|
|
2340 |
|
(deftest misc.171 |
2341 |
|
(funcall |
2342 |
|
(compile |
2343 |
|
nil |
2344 |
|
'(lambda (b) |
2345 |
|
(block b6 |
2346 |
|
(flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468)) |
2347 |
|
(return-from b6 1))) |
2348 |
|
(block b2 |
2349 |
|
(flet ((%f10 (f10-1 f10-2 |
2350 |
|
&optional (f10-3 (return-from b6 (return-from b6 -3)))) |
2351 |
|
-8)) |
2352 |
|
(%f10 |
2353 |
|
(multiple-value-call #'%f11 (values -5945959 1654846427 -22)) |
2354 |
|
(return-from b2 b) |
2355 |
|
(return-from b2 31258361)))))))) |
2356 |
|
10) |
2357 |
|
1) |
2358 |
|
|
2359 |
|
|