Changeset 12930

Timestamp:

09/30/10 19:22:36 (13 years ago)

Author:

ehuelsmann

Message:

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

File:

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

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

@@ -288 +288 @@
   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;
   }