Parent Directory | Revision Log | Patch
revision 1.12 by pfdietz, Mon Oct 13 13:01:27 2003 UTC | revision 1.13 by pfdietz, Fri Oct 17 02:53:19 2003 UTC | |
---|---|---|
# | Line 1068 | Line 1068 |
1068 | 156))) | 156))) |
1069 | 0) | 0) |
1070 | 156) | 156) |
1071 | ||
1072 | ;;; Two tests showing bug(s) in clisp (2.31) | |
1073 | (deftest misc.86 | |
1074 | (funcall (compile nil '(lambda (b) | |
1075 | (flet ((%f10 nil :bad)) | |
1076 | (let ((v7 (let ((v2 (%f10))) b))) | |
1077 | (unwind-protect b))))) | |
1078 | :good) | |
1079 | :good) | |
1080 | ||
1081 | (deftest misc.87 | |
1082 | (apply (compile nil '(lambda (a b c) | |
1083 | (let ((v9 a)) | |
1084 | (let ((v2 (setq v9 c))) | |
1085 | (unwind-protect c))))) | |
1086 | '(x y z)) | |
1087 | z) | |
1088 | ||
1089 | (deftest misc.88 | |
1090 | (eval '(block b3 | |
1091 | (max (return-from b3 1) | |
1092 | (if (unwind-protect (unwind-protect 2)) 3 4)))) | |
1093 | 1) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |