/[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.5 by pfdietz, Sat Apr 19 16:13:34 2003 UTC revision 1.6 by pfdietz, Sat Apr 19 17:15:02 2003 UTC
# Line 333  Line 333 
333    (nil 2)    (nil 2)
334    (1 2))    (1 2))
335    
336    ;;; &whole is followed by a destructuring pattern (see 3.4.4.1.2)
337    (deftest macrolet.36
338      (macrolet ((%m (&whole (m a b) c d) `(quote (,m ,a ,b ,c ,d))))
339        (%m 1 2))
340      (%m 1 2 1 2))
341    
342  ;;; Symbol-macrolet tests  ;;; Symbol-macrolet tests
343    
344  (deftest symbol-macrolet.1  (deftest symbol-macrolet.1

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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