/[gcl]/gcl/ansi-tests/macrolet.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/macrolet.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26