Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Feb 8 06:23:02 2003 UTC | revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 147 | Line 147 |
147 | (deftest ecase.32 | (deftest ecase.32 |
148 | (ecase 'a (a) (b 'b)) | (ecase 'a (a) (b 'b)) |
149 | nil) | nil) |
150 | ||
151 | ;;; No implicit tagbody | |
152 | (deftest ecase.33 | |
153 | (block done | |
154 | (tagbody | |
155 | (ecase 'a (a (go 10) | |
156 | 10 | |
157 | (return-from done 'bad))) | |
158 | 10 | |
159 | (return-from done 'good))) | |
160 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |