Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Oct 12 21:03:42 2002 UTC | revision 1.3 by pfdietz, Sat Nov 2 16:57:29 2002 UTC | |
---|---|---|
# | Line 113 | Line 113 |
113 | a) | a) |
114 | result) | result) |
115 | 20) | 20) |
116 | ||
117 | ;;; Test that integers are accepted as go tags | |
118 | ||
119 | (deftest tagbody.13 | |
120 | (block done | |
121 | (tagbody | |
122 | (go around) | |
123 | 10 | |
124 | (return-from done 'good) | |
125 | around | |
126 | (go 10))) | |
127 | good) | |
128 | ||
129 | (deftest tagbody.14 | |
130 | (block done | |
131 | (tagbody | |
132 | (go around) | |
133 | -10 | |
134 | (return-from done 'good) | |
135 | around | |
136 | (go -10))) | |
137 | good) | |
138 | ||
139 | (deftest tagbody.15 | |
140 | (block done | |
141 | (tagbody | |
142 | (go around) | |
143 | #.(1+ most-positive-fixnum) | |
144 | (return-from done 'good) | |
145 | around | |
146 | (go #.(1+ most-positive-fixnum)))) | |
147 | good) | |
148 | ||
149 | (deftest tagbody.16 | |
150 | (let* ((t1 (1+ most-positive-fixnum)) | |
151 | (t2 (1+ most-positive-fixnum)) | |
152 | (form `(block done | |
153 | (tagbody | |
154 | (go around) | |
155 | ,t1 | |
156 | (return-from done 'good) | |
157 | around | |
158 | (go ,t2))))) | |
159 | (eval form)) | |
160 | good) | |
161 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |