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

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

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