Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Sun Apr 20 22:59:25 2003 UTC | revision 1.8 by pfdietz, Sun May 4 11:47:06 2003 UTC | |
---|---|---|
# | Line 347 | Line 347 |
347 | (%f))) | (%f))) |
348 | :good) | :good) |
349 | ||
350 | ;;; The &environment parameter is bound first | |
351 | ||
352 | (deftest macrolet.38 | |
353 | (macrolet ((foo () 1)) | |
354 | (macrolet ((%f (&optional (x (macroexpand '(foo) env)) &environment env) | |
355 | x)) | |
356 | (%f))) | |
357 | 1) | |
358 | ||
359 | ;;; Symbol-macrolet tests | ;;; Symbol-macrolet tests |
360 | ||
361 | (deftest symbol-macrolet.1 | (deftest symbol-macrolet.1 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |