Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sun Oct 13 01:40:22 2002 UTC | revision 1.4 by pfdietz, Tue Mar 4 14:14:31 2003 UTC | |
---|---|---|
# | Line 73 | Line 73 |
73 | (progn (setf y (incf c)) nil) | (progn (setf y (incf c)) nil) |
74 | (values x y c))) | (values x y c))) |
75 | 1 2 2) | 1 2 2) |
76 | ||
77 | ;;; No tagbody | |
78 | ||
79 | (deftest progv.11 | |
80 | (block nil | |
81 | (tagbody | |
82 | (progv nil nil (go 10) 10 (return 'bad)) | |
83 | 10 | |
84 | (return 'good))) | |
85 | good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |