Parent Directory | Revision Log | Patch
revision 1.11 by pfdietz, Sun Feb 23 12:19:43 2003 UTC | revision 1.12 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 428 | Line 428 |
428 | collect s) | collect s) |
429 | nil) | nil) |
430 | ||
431 | ;;; Check that FLET does not have a tagbody | |
432 | (deftest flet.52 | |
433 | (block done | |
434 | (tagbody | |
435 | (flet ((%f () (go 10) 10 (return-from done 'bad))) | |
436 | (%f)) | |
437 | 10 | |
438 | (return-from done 'good))) | |
439 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |