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 25 | Line 25 |
25 | (let ((x 0)) | (let ((x 0)) |
26 | (values (prog1 x (incf x)) x)) | (values (prog1 x (incf x)) x)) |
27 | 0 1) | 0 1) |
28 | ||
29 | ;;; Test that prog1 doesn't have a tagbody | |
30 | ||
31 | (deftest prog1.6 | |
32 | (block nil | |
33 | (tagbody | |
34 | (return (prog1 'bad (go 10) 10)) | |
35 | 10 | |
36 | (return 'good))) | |
37 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |