Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Mon Dec 13 13:45:33 2004 UTC | revision 1.3 by pfdietz, Sat Jan 8 15:50:32 2005 UTC | |
---|---|---|
# | Line 146 | Line 146 |
146 | ))))) | ))))) |
147 | 100 t) | 100 t) |
148 | ||
149 | ;;; Free declaration scope | |
150 | ||
151 | (deftest with-hash-table-iterator.12 | |
152 | (block done | |
153 | (let ((x :bad)) | |
154 | (declare (special x)) | |
155 | (let ((x :good)) | |
156 | (with-hash-table-iterator (m (return-from done x)) | |
157 | (declare (special x)))))) | |
158 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |