Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Sat Jan 17 13:31:44 2004 UTC | revision 1.7 by pfdietz, Sat Jan 8 15:50:32 2005 UTC | |
---|---|---|
# | Line 199 | Line 199 |
199 | (deftest handler-case.28 | (deftest handler-case.28 |
200 | (handler-case (error "foo") (error () (declare (optimize speed)))) | (handler-case (error "foo") (error () (declare (optimize speed)))) |
201 | nil) | nil) |
202 | ||
203 | ;;; Free declaration scope | |
204 | ||
205 | (deftest handler-case.29 | |
206 | (let ((x :bad)) | |
207 | (declare (special x)) | |
208 | (let ((x :good)) | |
209 | (handler-case nil | |
210 | (:no-error (z &aux (y x)) | |
211 | (declare (special x) (ignore z)) | |
212 | y)))) | |
213 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |