Parent Directory | Revision Log | Patch
revision 1.19 by pfdietz, Sat Jan 8 11:11:05 2005 UTC | revision 1.20 by pfdietz, Sat Jan 8 13:35:39 2005 UTC | |
---|---|---|
# | Line 503 | Line 503 |
503 | x))) | x))) |
504 | :good) | :good) |
505 | ||
506 | (deftest flet.67 | |
507 | (let ((x :bad)) | |
508 | (declare (special x)) | |
509 | (let ((x :good)) | |
510 | (flet ((%f (&aux (y x)) | |
511 | (declare (special x)) | |
512 | y)) | |
513 | (%f)))) | |
514 | :good) | |
515 | ||
516 | (deftest flet.68 | |
517 | (let ((x :bad)) | |
518 | (declare (special x)) | |
519 | (let ((x :good)) | |
520 | (flet ((%f () x)) | |
521 | (declare (special x)) | |
522 | (%f)))) | |
523 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |