Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Jan 8 13:29:45 2005 UTC | revision 1.2 by pfdietz, Sat Jan 8 14:16:53 2005 UTC | |
---|---|---|
# | Line 147 | Line 147 |
147 | (incf x))) | (incf x))) |
148 | 0 0) | 0 0) |
149 | ||
150 | ;;; Scope of free declarations | |
151 | ||
152 | (deftest dotimes.22 | |
153 | (block done | |
154 | (let ((x :bad)) | |
155 | (declare (special x)) | |
156 | (let ((x :good)) | |
157 | (dotimes (i (return-from done x)) | |
158 | (declare (special x)))))) | |
159 | :good) | |
160 | ||
161 | (deftest dotimes.23 | |
162 | (let ((x :good)) | |
163 | (declare (special x)) | |
164 | (let ((x :bad)) | |
165 | (dotimes (i 10 x) | |
166 | (declare (special x))))) | |
167 | :good) | |
168 | ||
169 | (def-macro-test dotimes.error.1 | (def-macro-test dotimes.error.1 |
170 | (dotimes (i 10))) | (dotimes (i 10))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |