1380 |
(apply #'%f14 0 0 0 nil))))) |
(apply #'%f14 0 0 0 nil))))) |
1381 |
0) |
0) |
1382 |
|
|
1383 |
|
;;; "The value NIL is not of type SB-C::IR2-LVAR." (sbcl 0.8.14.18) |
1384 |
|
|
1385 |
|
(deftest misc.107b |
1386 |
|
(funcall |
1387 |
|
(compile |
1388 |
|
nil |
1389 |
|
'(lambda (a b c) |
1390 |
|
(declare (type (integer 7215 1030625885) a)) |
1391 |
|
(declare (type (integer -4361 -6) b)) |
1392 |
|
(declare (type (integer -3798210806 -898) c)) |
1393 |
|
(declare (ignorable a b c)) |
1394 |
|
(declare |
1395 |
|
(optimize (speed 2) |
1396 |
|
(space 2) |
1397 |
|
(safety 2) |
1398 |
|
(debug 3) |
1399 |
|
(compilation-speed 1))) |
1400 |
|
(block b4 |
1401 |
|
(let ((*s7* (cons c 0))) |
1402 |
|
(declare (special *s7*)) |
1403 |
|
(return-from b4 |
1404 |
|
(prog1 0 |
1405 |
|
(the integer |
1406 |
|
(integer-length |
1407 |
|
(1+ |
1408 |
|
(let () |
1409 |
|
(gcd (cdr *s7*) |
1410 |
|
(case b |
1411 |
|
((31 38 20 0 5 45) 2) |
1412 |
|
((34 35 64 61 47) 39) |
1413 |
|
((58) a) |
1414 |
|
(t 131788))))))))))))) |
1415 |
|
734649164 -3343 -2306504518) |
1416 |
|
0) |
1417 |
|
|
1418 |
|
(deftest misc.107c |
1419 |
|
(funcall |
1420 |
|
(compile |
1421 |
|
nil |
1422 |
|
'(lambda (c) |
1423 |
|
(declare (optimize (speed 2) (space 1) (safety 1) (debug 3) |
1424 |
|
(compilation-speed 0))) |
1425 |
|
(let* ((*s6* |
1426 |
|
(unwind-protect 0 (the integer (ash 2914825 (min 8 c)))))) |
1427 |
|
(declare (special *s6*)) |
1428 |
|
0))) |
1429 |
|
-105) |
1430 |
|
0) |
1431 |
|
|
1432 |
|
(deftest misc.107d |
1433 |
|
(funcall |
1434 |
|
(compile |
1435 |
|
nil |
1436 |
|
'(lambda (a) |
1437 |
|
(declare (optimize (speed 1) (space 1) (safety 1) (debug 3) |
1438 |
|
(compilation-speed 1))) |
1439 |
|
(catch 'ct4 |
1440 |
|
(logorc1 |
1441 |
|
(the integer |
1442 |
|
(case (dotimes (iv2 2 2) (progn 203)) |
1443 |
|
((-51) -59598) |
1444 |
|
((-31 -150) a) |
1445 |
|
(t b))) |
1446 |
|
(throw 'ct4 0))))) |
1447 |
|
10) |
1448 |
|
0) |
1449 |
|
|
1450 |
|
(deftest misc.107e |
1451 |
|
(funcall |
1452 |
|
(compile |
1453 |
|
nil |
1454 |
|
'(lambda (a) |
1455 |
|
(declare (optimize (speed 1) (space 0) (safety 1) |
1456 |
|
(debug 3) (compilation-speed 1))) |
1457 |
|
(flet ((%f11 (&key (key1 (the integer (- a 245241933)))) 0)) |
1458 |
|
(%f11)))) |
1459 |
|
1) |
1460 |
|
0) |
1461 |
|
|
1462 |
;;; cmucl bug (Argument X is not a NUMBER: NIL) |
;;; cmucl bug (Argument X is not a NUMBER: NIL) |
1463 |
|
|
1464 |
(deftest misc.108 |
(deftest misc.108 |
7514 |
'x 'y) |
'x 'y) |
7515 |
x) |
x) |
7516 |
|
|
7517 |
|
;;; sbcl 0.8.14.18 |
7518 |
|
;;; "The value #<SB-C::COMBINATION :FUN # :ARGS (# # #) {C44D1C1}> |
7519 |
|
;;; is not of type SB-C::REF." |
7520 |
|
|
7521 |
|
|
7522 |
|
(deftest misc.392 |
7523 |
|
(funcall |
7524 |
|
(compile |
7525 |
|
nil |
7526 |
|
'(lambda (a b) |
7527 |
|
(declare (notinline /=)) |
7528 |
|
(declare (optimize (speed 1) (space 2) (safety 1) |
7529 |
|
(debug 3) (compilation-speed 3))) |
7530 |
|
(prog2 0 0 (loop for lv4 below 3 count (or b (/= b)))))) |
7531 |
|
1 2) |
7532 |
|
0) |