Changeset 11551


Ignore:
Timestamp:
01/08/09 20:24:45 (12 years ago)
Author:
ehuelsmann
Message:

Change the return value of Environment.isDeclaredSpecial() to include the
dynamic environment in case there's no record of the symbol in the lexical environment.

... And add a /little/ bit of JavaDoc?.

File:
1 edited

Legend:

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

    r11441 r11551  
    245245  }
    246246
     247    /** Return true if a symbol is declared special.
     248     *
     249     * If there is no binding in the current (lexical) environment,
     250     * the current dynamic environment (thread) is checked.
     251     */
    247252  public boolean isDeclaredSpecial(LispObject var)
    248253  {
    249254    Binding binding = getBinding(var);
    250     return binding != null ? binding.specialp : false;
     255    return (binding != null) ? binding.specialp :
     256        (LispThread.currentThread().getSpecialBinding(var) != null);
    251257  }
    252258
Note: See TracChangeset for help on using the changeset viewer.