Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sun Aug 29 22:03:24 2004 UTC | revision 1.4 by pfdietz, Sat Jan 8 15:50:32 2005 UTC | |
---|---|---|
# | Line 161 | Line 161 |
161 | (make-array 5 :element-type etype | (make-array 5 :element-type etype |
162 | :displaced-to name0 | :displaced-to name0 |
163 | :displaced-index-offset 1))) | :displaced-index-offset 1))) |
164 | ||
165 | ;;; Free declaration scope | |
166 | ||
167 | (deftest with-package-iterator.22 | |
168 | (block done | |
169 | (let ((x :bad)) | |
170 | (declare (special x)) | |
171 | (let ((x :good)) | |
172 | (with-package-iterator (s (return-from done x) :internal) | |
173 | (declare (special x)))))) | |
174 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |