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

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Sep 30 15:22:36 2010
New Revision: 12930

Log:
Additional check to make sure constant symbols aren't
being assigned values.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Symbol.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Symbol.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Symbol.java	Thu Sep 30 15:22:36 2010
@@ -287,6 +287,9 @@
    */
   public final void setSymbolValue(LispObject value)
   {
+    if (isConstant())
+      // Complement the check already done in SpecialOperators.sf_setq
+      error(new ProgramError("Can't change value of constant symbol " + writeToString() + "."));
     this.value = value;
   }