Changeset 11492


Ignore:
Timestamp:
12/27/08 19:35:53 (13 years ago)
Author:
ehuelsmann
Message:

Revert r11491. It was based on lack of understanding of the order in which classes are
loaded by ABCL: we cannot access symbol values in the Symbol class.

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

Legend:

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

    r11491 r11492  
    25302530
    25312531
     2532  // Extentions
     2533  static {
     2534    Symbol._INSPECTOR_HOOK_.initializeSpecial(NIL);
     2535  }
     2536
    25322537  private static final void loadClass(String className)
    25332538  {
  • trunk/abcl/src/org/armedbear/lisp/Package.java

    r11491 r11492  
    300300    }
    301301
    302     /** Initializes the symbol as a special variables and assigns it
    303         a value, just like DEFVAR would.
    304     */
    305     public synchronized Symbol addExternalSymbol(String symbolName,
    306                                                  LispObject specialValue)
    307     {
    308         final Symbol symbol = addExternalSymbol(symbolName);
    309         symbol.initializeSpecial(specialValue);
    310 
    311         return symbol;
    312     }
    313 
    314302    public synchronized Symbol intern(String symbolName)
    315303    {
  • trunk/abcl/src/org/armedbear/lisp/Symbol.java

    r11491 r11492  
    30143014  // CDR6
    30153015  public static final Symbol _INSPECTOR_HOOK_ =
    3016     PACKAGE_EXT.addExternalSymbol("*INSPECTOR-HOOK*", NIL);
     3016    PACKAGE_EXT.addExternalSymbol("*INSPECTOR-HOOK*");
    30173017
    30183018}
Note: See TracChangeset for help on using the changeset viewer.