Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Mon Feb 17 13:25:22 2003 UTC | revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 64 | Line 64 |
64 | 'bad) | 'bad) |
65 | good) | good) |
66 | ||
67 | ;;; Block has no tagbody | |
68 | (deftest block.11 | |
69 | (block done | |
70 | (tagbody | |
71 | (block nil | |
72 | (go 10) | |
73 | 10 | |
74 | (return-from done 'bad)) | |
75 | 10 | |
76 | (return-from done 'good))) | |
77 | good) | |
78 | ||
79 | #| | #| |
80 | (deftest return.error.1 | (deftest return.error.1 |
81 | (classify-error | (classify-error |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |