Parent Directory | Revision Log | Patch
revision 1.18 by pfdietz, Sat Jan 8 02:41:29 2005 UTC | revision 1.19 by pfdietz, Sat Jan 8 11:11:05 2005 UTC | |
---|---|---|
# | Line 478 | Line 478 |
478 | y)) | y)) |
479 | (%f)))) | (%f)))) |
480 | :good) | :good) |
481 | ||
482 | (deftest flet.64 | |
483 | (let ((x :bad)) | |
484 | (declare (special x)) | |
485 | (let ((x :good)) | |
486 | (flet () (declare (special x))) | |
487 | x)) | |
488 | :good) | |
489 | ||
490 | (deftest flet.65 | |
491 | (let ((x :bad)) | |
492 | (declare (special x)) | |
493 | (let ((x :good)) | |
494 | (flet ((%f () (declare (special x))))) | |
495 | x)) | |
496 | :good) | |
497 | ||
498 | (deftest flet.66 | |
499 | (let ((x :bad)) | |
500 | (declare (special x)) | |
501 | (let ((x :good)) | |
502 | (flet ((%f () (declare (special x)))) | |
503 | x))) | |
504 | :good) | |
505 | ||
506 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |