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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Nov 22 09:35:12 2009
New Revision: 12280

Log:
Fix special bindings in case a symbol is bound to its own value,
  where there are no other bindings, but the symbol does have a
  value set. (bindSpecialToCurrentValue)

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

Modified: trunk/abcl/src/org/armedbear/lisp/LispThread.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispThread.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispThread.java	Sun Nov 22 09:35:12 2009
@@ -404,7 +404,8 @@
         savedSpecials = new SpecialBindingsMark(idx, binding, savedSpecials);
         return specials[idx]
             = new SpecialBinding(idx,
-                                 (binding == null) ? null : binding.value);
+                                 (binding == null) ?
+                                 name.getSymbolValue() : binding.value);
     }
 
     /** Looks up the value of a special binding in the context of the