[armedbear-cvs] r11768 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Mon Apr 20 04:13:00 2009
New Revision: 11768

Log:
Use 'innerEnv' to evaluate the body in, since that's where we
declared our free specials.

Modified:
   trunk/abcl/src/org/armedbear/lisp/SpecialOperators.java

Modified: trunk/abcl/src/org/armedbear/lisp/SpecialOperators.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/SpecialOperators.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/SpecialOperators.java	Mon Apr 20 04:13:00 2009
@@ -382,7 +382,7 @@
         final Environment innerEnv = new Environment(ext);
         LispObject body = args.cdr();
         body = innerEnv.processDeclarations(body);
-        return progn(body, ext, thread);
+        return progn(body, innerEnv, thread);
       }
     finally
       {