1633 |
0 0) |
0 0) |
1634 |
2) |
2) |
1635 |
|
|
1636 |
|
;;; cmucl (22 Oct 2003 build) bug |
1637 |
|
;;; The assertion (EQ (C::COMPONENT-KIND C:COMPONENT) :INITIAL) failed. |
1638 |
|
|
1639 |
|
(deftest misc.128 |
1640 |
|
(flet ((%f14 |
1641 |
|
(f14-1 f14-2 |
1642 |
|
&optional |
1643 |
|
(f14-3 (unwind-protect 13059412)) |
1644 |
|
(f14-4 452384) |
1645 |
|
(f14-5 -6714)) |
1646 |
|
-1)) |
1647 |
|
(%f14 -2 1 1279896 589726354 -11)) |
1648 |
|
-1) |
1649 |
|
|
1650 |
|
(deftest misc.129 |
1651 |
|
(labels ((%f17 (f17-1 f17-2 &optional (f17-3 (unwind-protect 178))) |
1652 |
|
483633925)) |
1653 |
|
-661328075) |
1654 |
|
-661328075) |
1655 |
|
|
1656 |
|
(deftest misc.130 |
1657 |
|
(let* ((fn1 |
1658 |
|
'(lambda (a c) |
1659 |
|
(flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) |
1660 |
|
a)) |
1661 |
|
(multiple-value-call #'%f10 (values -178858 a))))) |
1662 |
|
(fn2 |
1663 |
|
'(lambda (a c) |
1664 |
|
(declare (notinline values +) (optimize (speed 0) (debug 0))) |
1665 |
|
(flet ((%f10 (&optional (f10-1 -6489) (f10-2 (+ c))) |
1666 |
|
a)) |
1667 |
|
(multiple-value-call #'%f10 (values -178858 a))))) |
1668 |
|
(vals '(-13649921 -1813684177409)) |
1669 |
|
(v1 (apply (compile nil fn1) vals)) |
1670 |
|
(v2 (apply (compile nil fn2) vals))) |
1671 |
|
(if (eql v1 v2) :good (list v1 v2))) |
1672 |
|
:good) |
1673 |
|
|
1674 |
|
(deftest misc.131 |
1675 |
|
(let* ((fn1 |
1676 |
|
'(lambda (a b) |
1677 |
|
(max |
1678 |
|
(block b7 |
1679 |
|
(abs |
1680 |
|
(ignore-errors |
1681 |
|
(if (ldb-test (byte 33 15) (return-from b7 a)) |
1682 |
|
b b))))))) |
1683 |
|
(fn2 |
1684 |
|
'(lambda (a b) |
1685 |
|
(declare (notinline abs max)) |
1686 |
|
(declare (optimize (speed 0))) |
1687 |
|
(declare (optimize (debug 0))) |
1688 |
|
(max |
1689 |
|
(block b7 |
1690 |
|
(abs |
1691 |
|
(ignore-errors |
1692 |
|
(if (ldb-test (byte 33 15) (return-from b7 a)) |
1693 |
|
b b))))))) |
1694 |
|
(vals '(-823894140303 -3)) |
1695 |
|
(v1 (apply (compile nil fn1) vals)) |
1696 |
|
(v2 (apply (compile nil fn2) vals))) |
1697 |
|
(if (eql v1 v2) :good (list v1 v2))) |
1698 |
|
:good) |
1699 |
|
|
1700 |
|
;;; cmucl (22 Oct 2003) |
1701 |
|
;;; The assertion (EQ C::ENV |
1702 |
|
;;; (C::LAMBDA-ENVIRONMENT |
1703 |
|
;;; (C::LAMBDA-VAR-HOME C::THING))) failed. |
1704 |
|
|
1705 |
|
(deftest misc.132 |
1706 |
|
(funcall |
1707 |
|
(compile nil |
1708 |
|
'(lambda (b c) |
1709 |
|
(declare (type (integer -3358662 7782429) b)) |
1710 |
|
(declare (type (integer -513018 12740) c)) |
1711 |
|
(declare (optimize (speed 3))) |
1712 |
|
(declare (optimize (safety 1))) |
1713 |
|
(declare (optimize (debug 1))) |
1714 |
|
(labels ((%f9 |
1715 |
|
(&optional |
1716 |
|
(f9-1 |
1717 |
|
(labels |
1718 |
|
((%f5 (f5-1 f5-2) |
1719 |
|
(floor (ignore-errors f5-1) |
1720 |
|
(min -67 (if (equal -56 c) |
1721 |
|
-11197265 f5-2))))) |
1722 |
|
c)) |
1723 |
|
(f9-2 -439518) |
1724 |
|
(f9-3 -2840573)) |
1725 |
|
f9-1)) |
1726 |
|
(%f9 -193644 b 1368)))) |
1727 |
|
10 20) |
1728 |
|
-193644) |
1729 |
|
|
1730 |
|
;;; cmucl (22 Oct 2003) Default for optional parameter is improperly chosen |
1731 |
|
(deftest misc.133 |
1732 |
|
(funcall |
1733 |
|
(compile nil |
1734 |
|
'(lambda (a b c) |
1735 |
|
(declare (notinline values)) |
1736 |
|
(declare (optimize (speed 0) (debug 0))) |
1737 |
|
(flet ((%f15 (&optional (f15-5 c)) f15-5)) |
1738 |
|
(multiple-value-call #'%f15 (values -2688612))))) |
1739 |
|
1 2 3) |
1740 |
|
-2688612) |