Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Thu Oct 17 13:16:55 2002 UTC | revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 70 | Line 70 |
70 | 'bad)) | 'bad)) |
71 | good) | good) |
72 | ||
73 | ;;; No implicit tagbody | |
74 | (deftest catch.13 | |
75 | (block done | |
76 | (tagbody | |
77 | (catch 'foo | |
78 | (go 10) | |
79 | 10 | |
80 | (return-from done 'bad)) | |
81 | 10 | |
82 | (return-from done 'good))) | |
83 | good) | |
84 | ||
85 | (deftest throw-error | (deftest throw-error |
86 | (classify-error (throw (gensym) nil)) | (classify-error (throw (gensym) nil)) |
87 | control-error) | control-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |