Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Thu Oct 10 02:07:12 2002 UTC | revision 1.2 by pfdietz, Tue Oct 29 23:55:34 2002 UTC | |
---|---|---|
# | Line 120 | Line 120 |
120 | ((a2) (%m a1 a2)) | ((a2) (%m a1 a2)) |
121 | ((a2) (%m a1 a2))) | ((a2) (%m a1 a2))) |
122 | ||
123 | ;;; Interaction with symbol-macrolet | |
124 | ||
125 | (deftest macrolet.13 | |
126 | (symbol-macrolet ((a b)) | |
127 | (macrolet ((foo (x &environment env) | |
128 | (let ((y (macroexpand x env))) | |
129 | (if (eq y 'a) 1 2)))) | |
130 | (foo a))) | |
131 | 2) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |