[armedbear-cvs] r13938 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu May 17 08:22:21 2012
New Revision: 13938

Log:
Additional test for &aux problems.  See ticket #199.

Modified:
   trunk/abcl/test/lisp/abcl/bugs.lisp

Modified: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bugs.lisp	Wed May 16 05:10:06 2012	(r13937)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Thu May 17 08:22:21 2012	(r13938)
@@ -126,4 +126,10 @@
         d)
       (decorators (make-instance 'room)))
   t)
+
+(deftest bugs.aux.1
+    ((lambda (a &aux (b (+ a 1))) 
+       b)
+     2)
+  3)