Changeset 12280

Timestamp:

11/22/09 14:35:12 (14 years ago)

Author:

ehuelsmann

Message:

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)

File:

• trunk/abcl/src/org/armedbear/lisp/LispThread.java (modified) (1 diff)

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

@@ -405 +405 @@
         return specials[idx]
             = new SpecialBinding(idx,
-                                 (binding == null) ? null : binding.value);
+                                 (binding == null) ?
+                                 name.getSymbolValue() : binding.value);
     }