Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Tue Oct 29 23:55:34 2002 UTC | revision 1.3 by pfdietz, Wed Jan 29 00:42:25 2003 UTC | |
---|---|---|
# | Line 129 | Line 129 |
129 | (if (eq y 'a) 1 2)))) | (if (eq y 'a) 1 2)))) |
130 | (foo a))) | (foo a))) |
131 | 2) | 2) |
132 | ||
133 | (deftest macrolet.14 | |
134 | (symbol-macrolet ((a b)) | |
135 | (macrolet ((foo (x &environment env) | |
136 | (let ((y (macroexpand-1 x env))) | |
137 | (if (eq y 'a) 1 2)))) | |
138 | (foo a))) | |
139 | 2) | |
140 | ||
141 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |