Parent Directory | Revision Log | Patch
revision 1.28 by pfdietz, Thu Oct 30 13:26:09 2003 UTC | revision 1.29 by pfdietz, Sat Nov 1 01:17:46 2003 UTC | |
---|---|---|
# | Line 1596 | Line 1596 |
1596 | :good) | :good) |
1597 | ||
1598 | ||
1599 | ;;; clisp optional argument bug: "SYMBOL-VALUE: 1 is not a SYMBOL" | |
1600 | ||
1601 | (deftest misc.126 | |
1602 | (funcall | |
1603 | (compile | |
1604 | nil | |
1605 | '(lambda () | |
1606 | (declare (special *should-always-be-true*)) | |
1607 | (labels ((%f10 (f10-1 &optional | |
1608 | (f10-2 (cl:handler-bind nil | |
1609 | (if *should-always-be-true* | |
1610 | (progn 878) | |
1611 | (should-never-be-called) | |
1612 | ))) | |
1613 | (f10-3 (cl:handler-case 10))) | |
1614 | -15)) | |
1615 | (%f10 -144))))) | |
1616 | -15) | |
1617 | ||
1618 | (deftest misc.127 | |
1619 | (funcall | |
1620 | (compile | |
1621 | nil | |
1622 | '(lambda (a c) | |
1623 | (flet ((%f10 (f10-1 f10-2) 10)) | |
1624 | (flet ((%f4 | |
1625 | (&optional | |
1626 | (f4-1 (ldb (byte 10 6) | |
1627 | (* 828 | |
1628 | (+ 30 (dpb c (byte 9 30) (%f10 1918433 34107))) | |
1629 | ))) | |
1630 | (f4-2 (setq a 0))) | |
1631 | 2)) | |
1632 | (%f4 -5))))) | |
1633 | 0 0) | |
1634 | 2) | |
1635 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |