Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Mon Feb 17 13:25:22 2003 UTC | revision 1.6 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 181 | Line 181 |
181 | (2 nil)))) | (2 nil)))) |
182 | :good) | :good) |
183 | ||
184 | ;;; No implicit tagbody | |
185 | (deftest ccase.32 | |
186 | (block done | |
187 | (tagbody | |
188 | (let ((x 'a)) | |
189 | (ccase x (a (go 10) | |
190 | 10 | |
191 | (return-from done 'bad)))) | |
192 | 10 | |
193 | (return-from done 'good))) | |
194 | good) | |
195 | ||
196 | ||
197 | ;;; (deftest ccase.error.1 | ;;; (deftest ccase.error.1 |
198 | ;;; (classify-error (ccase)) | ;;; (classify-error (ccase)) |
199 | ;;; program-error) | ;;; program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |