/[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.29 by pfdietz, Sat Nov 1 01:17:46 2003 UTC revision 1.30 by pfdietz, Sat Nov 1 03:52:16 2003 UTC
# Line 1633  Line 1633 
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)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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