Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Oct 19 16:25:28 2002 UTC | revision 1.3 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 34 | Line 34 |
34 | (prog2 (incf x (1+ x)) (incf x (+ 2 x)) (incf x 100)) | (prog2 (incf x (1+ x)) (incf x (+ 2 x)) (incf x 100)) |
35 | x)) | x)) |
36 | 8 108) | 8 108) |
37 | ||
38 | ;;; Test that prog2 doesn't have a tagbody | |
39 | ||
40 | (deftest prog2.7 | |
41 | (block nil | |
42 | (tagbody | |
43 | (return (prog2 17 'bad (go 10) 10)) | |
44 | 10 | |
45 | (return 'good))) | |
46 | good) | |
47 | ||
48 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |