[armedbear-cvs] r11316 - trunk/j/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Sep 13 12:53:16 2008
New Revision: 11316

Modified:
   trunk/j/src/org/armedbear/lisp/Closure.java
Log:
Fix FLET.40, special variables related.

Modified: trunk/j/src/org/armedbear/lisp/Closure.java
==============================================================================
--- trunk/j/src/org/armedbear/lisp/Closure.java	(original)
+++ trunk/j/src/org/armedbear/lisp/Closure.java	Sat Sep 13 12:53:16 2008
@@ -1296,10 +1296,12 @@
                                Environment env, LispThread thread)
         throws ConditionThrowable
     {
-        if (isSpecial(sym) && ! sym.isSpecialVariable())
+        if (isSpecial(sym)) {
             env.declareSpecial(sym);
-
-        bind(sym, value, env);
+            thread.bindSpecial(sym, value);
+        }
+        else
+            env.bind(sym, value);
     }
 
   private final void bindAuxVars(Environment env, LispThread thread)