/[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.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    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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