Changeset 12930


Ignore:
Timestamp:
09/30/10 19:22:36 (11 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Symbol.java

    r12749 r12930  
    288288  public final void setSymbolValue(LispObject value)
    289289  {
     290    if (isConstant())
     291      // Complement the check already done in SpecialOperators.sf_setq
     292      error(new ProgramError("Can't change value of constant symbol " + writeToString() + "."));
    290293    this.value = value;
    291294  }
Note: See TracChangeset for help on using the changeset viewer.