1404 |
(if (= 55957 a) -117 (ignore-errors |
(if (= 55957 a) -117 (ignore-errors |
1405 |
(return-from b3 a)))))))) |
(return-from b3 a)))))))) |
1406 |
-589) |
-589) |
1407 |
-117 0) |
-589 0) |
1408 |
|
|
1409 |
;;; sbcl (0.8.5.8) "The value NIL is not of type SB-C::CTRAN" |
;;; sbcl (0.8.5.8) "The value NIL is not of type SB-C::CTRAN" |
1410 |
|
|
1425 |
(deftest misc.114 |
(deftest misc.114 |
1426 |
(funcall |
(funcall |
1427 |
(compile nil |
(compile nil |
1428 |
'(lambda (a b c) |
'(lambda (a b) |
1429 |
(unwind-protect |
(unwind-protect |
1430 |
(block b2 |
(block b2 |
1431 |
(flet ((%f1 nil b)) |
(flet ((%f1 nil b)) |
1432 |
(logior (if a (if (ldb-test (byte 23 1) 253966182) (return-from b2 a) -103275090) 62410) |
(logior (if a |
1433 |
|
(if (ldb-test (byte 23 1) 253966182) |
1434 |
|
(return-from b2 a) |
1435 |
|
-103275090) |
1436 |
|
62410) |
1437 |
(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)))) |
1438 |
(return-from b2 -22) |
(return-from b2 -22) |
1439 |
(%f1) |
(%f1)))))))) |
1440 |
))))))) |
777595384624 -1510893868) |
|
777595384624 -1510893868 -41632818690) |
|
1441 |
777595384624) |
777595384624) |
1442 |
|
|
1443 |
|
;;; clisp (1 Oct 2003 cvs HEAD) "Compiler bug!! Occurred in OPTIMIZE-LABEL." |
1444 |
|
|
1445 |
|
(deftest misc.115 |
1446 |
|
(funcall |
1447 |
|
(compile nil |
1448 |
|
'(lambda (a b c) |
1449 |
|
(declare (type (integer 0 1000) a b c)) |
1450 |
|
(if (and (if b (not (and (not (or a t)) nil)) nil) |
1451 |
|
(logbitp 6 c)) |
1452 |
|
c b))) |
1453 |
|
0 100 600) |
1454 |
|
100) |
1455 |
|
|
1456 |
|
(deftest misc.116 |
1457 |
|
(funcall |
1458 |
|
(compile nil |
1459 |
|
'(lambda (a c) |
1460 |
|
(declare (type (integer 0 1000) a c)) |
1461 |
|
(if (if (and (not (and (not (or a t)) nil)) t) c nil) |
1462 |
|
91 -1725615))) |
1463 |
|
0 0) |
1464 |
|
91) |
1465 |
|
|
1466 |
|
(deftest misc.117 |
1467 |
|
(funcall |
1468 |
|
(compile nil |
1469 |
|
'(lambda (a c) |
1470 |
|
(declare (type (integer 0 1000) a c)) |
1471 |
|
(if (or c (not (or nil (not (and (not (or a t)) nil))))) |
1472 |
|
373146181 115))) |
1473 |
|
0 0) |
1474 |
|
373146181) |