Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Oct 12 14:45:33 2002 UTC | revision 1.2 by pfdietz, Sat Oct 12 15:24:56 2002 UTC | |
---|---|---|
# | Line 65 | Line 65 |
65 | x)) | x)) |
66 | (1 nil 1)) | (1 nil 1)) |
67 | ||
68 | (deftest let.12 | |
69 | (let ((x 0)) | |
70 | (values | |
71 | (let ((x 20) | |
72 | (x (1+ x))) | |
73 | x) | |
74 | x)) | |
75 | 1 0) | |
76 | ||
77 | (deftest let.13 | (deftest let.13 |
78 | (flet ((%f () (declare (special x)) | (flet ((%f () (declare (special x)) |
79 | (if (boundp 'x) x 10))) | (if (boundp 'x) x 10))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |