Changeset 12274


Ignore:
Timestamp:
11/10/09 19:34:18 (12 years ago)
Author:
ehuelsmann
Message:

Convert some uses of LispObject to Symbol.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r12254 r12274  
    236236     * the current dynamic environment (thread) is checked.
    237237     */
    238   public boolean isDeclaredSpecial(LispObject var)
     238  public boolean isDeclaredSpecial(Symbol var)
    239239  {
    240240    Binding binding = getBinding(var);
  • trunk/abcl/src/org/armedbear/lisp/Lisp.java

    r12272 r12274  
    424424    if (obj instanceof Symbol)
    425425      {
     426        Symbol symbol = (Symbol)obj;
    426427        LispObject result;
    427         if (obj.isSpecialVariable())
    428           {
    429             if (obj.constantp())
    430               return obj.getSymbolValue();
     428        if (symbol.isSpecialVariable())
     429          {
     430            if (symbol.constantp())
     431              return symbol.getSymbolValue();
    431432            else
    432               result = thread.lookupSpecial(obj);
    433           }
    434         else if (env.isDeclaredSpecial(obj))
    435           result = thread.lookupSpecial(obj);
     433              result = thread.lookupSpecial(symbol);
     434          }
     435        else if (env.isDeclaredSpecial(symbol))
     436          result = thread.lookupSpecial(symbol);
    436437        else
    437           result = env.lookup(obj);
     438          result = env.lookup(symbol);
    438439        if (result == null)
    439440          {
    440             result = obj.getSymbolValue();
     441            result = symbol.getSymbolValue();
    441442            if (result == null)
    442443              return error(new UnboundVariable(obj));
Note: See TracChangeset for help on using the changeset viewer.