Changeset 13843


Ignore:
Timestamp:
02/02/12 09:38:02 (9 years ago)
Author:
ehuelsmann
Message:

Fix Maxima compilation failure.

File:
1 edited

Legend:

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

    r13828 r13843  
    468468  public void bindVars(LispObject[] values, Environment env, LispThread thread) {
    469469      for (int i = 0; i < variables.length; i++) {
    470           bindArg(specials[i], variables[i], values[i], env, thread);
     470          Symbol var = variables[i];
     471          // If a symbol is declared special after a function is defined,
     472          // the interpreter binds a lexical variable instead of a dynamic
     473          // one if we don't check isSpecialVariable()
     474          bindArg(specials[i] || var.isSpecialVariable(),
     475                  var, values[i], env, thread);
    471476      }
    472477  }
Note: See TracChangeset for help on using the changeset viewer.