Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 12 21:03:42 2002 UTC | revision 1.2 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 88 | Line 88 |
88 | (push 'a x))) | (push 'a x))) |
89 | (type-error () x))) | (type-error () x))) |
90 | (a)) | (a)) |
91 | ||
92 | ;;; No implicit tagbody | |
93 | (deftest unwind-protect.10 | |
94 | (block done | |
95 | (tagbody | |
96 | (unwind-protect | |
97 | 'foo | |
98 | (go 10) | |
99 | 10 | |
100 | (return-from done 'bad)) | |
101 | 10 | |
102 | (return-from done 'good))) | |
103 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |