Parent Directory | Revision Log | Patch
revision 1.13 by pfdietz, Sat Jan 8 11:11:05 2005 UTC | revision 1.14 by pfdietz, Sat Jan 8 13:35:39 2005 UTC | |
---|---|---|
# | Line 343 | Line 343 |
343 | (labels ((%f () (declare (special x)))) | (labels ((%f () (declare (special x)))) |
344 | x))) | x))) |
345 | :good) | :good) |
346 | ||
347 | (deftest labels.46 | |
348 | (let ((x :bad)) | |
349 | (declare (special x)) | |
350 | (let ((x :good)) | |
351 | (labels ((%f (&aux (y x)) | |
352 | (declare (special x)) | |
353 | y)) | |
354 | (%f)))) | |
355 | :good) | |
356 | ||
357 | (deftest labels.47 | |
358 | (let ((x :bad)) | |
359 | (declare (special x)) | |
360 | (let ((x :good)) | |
361 | (labels ((%f () x)) | |
362 | (declare (special x)) | |
363 | (%f)))) | |
364 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |