Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Fri Oct 18 13:19:16 2002 UTC | revision 1.2 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 70 | Line 70 |
70 | ||
71 | (deftest cond.14 (cond (t (values)))) | (deftest cond.14 (cond (t (values)))) |
72 | ||
73 | ;;; No implicit tagbody | |
74 | (deftest cond.15 | |
75 | (block done | |
76 | (tagbody | |
77 | (cond (t (go 10) | |
78 | 10 | |
79 | (return-from done 'bad))) | |
80 | 10 | |
81 | (return-from done 'good))) | |
82 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |