Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Fri Jun 13 12:01:28 2003 UTC | revision 1.4 by pfdietz, Sat Jan 8 15:50:32 2005 UTC | |
---|---|---|
# | Line 167 | Line 167 |
167 | (declare (special *x*)) | (declare (special *x*)) |
168 | (values a b c))) | (values a b c))) |
169 | x y z) | x y z) |
170 | ||
171 | ;;; Free declaration scope test | |
172 | ||
173 | (deftest with-slots.21 | |
174 | (block done | |
175 | (let ((x :bad)) | |
176 | (declare (special x)) | |
177 | (let ((x :good)) | |
178 | (with-slots nil (return-from done x) | |
179 | (declare (special x)))))) | |
180 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |