Parent Directory | Revision Log | Patch
revision 1.20 by pfdietz, Sat Jan 8 13:35:39 2005 UTC | revision 1.21 by pfdietz, Sat May 14 12:16:28 2005 UTC | |
---|---|---|
# | Line 521 | Line 521 |
521 | (declare (special x)) | (declare (special x)) |
522 | (%f)))) | (%f)))) |
523 | :good) | :good) |
524 | ||
525 | (deftest flet.69 | |
526 | (let ((*x* 0)) | |
527 | (declare (special *x*)) | |
528 | (flet ((%f (i) | |
529 | #'(lambda (arg) | |
530 | (declare (ignore arg)) | |
531 | (incf *x* i)))) | |
532 | (values | |
533 | (mapcar (%f 1) '(a b c)) | |
534 | (mapcar (%f 2) '(a b c))))) | |
535 | (1 2 3) | |
536 | (5 7 9)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |