Changeset 12649


Ignore:
Timestamp:
05/02/10 18:51:35 (14 years ago)
Author:
ehuelsmann
Message:

Re #79: Add *FASL-UNINTERNED-SYMBOLS* variable to Load.java and save its value
in AutoloadedFunctionProxy?, just like *FASL-ANONYMOUS-PACKAGE*.

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

Legend:

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

    r12513 r12649  
    5252            AUTOLOADING_CACHE, // allow loading local preloaded functions
    5353            Load._FASL_ANONYMOUS_PACKAGE_, // package for uninterned symbols
     54            Load._FASL_UNINTERNED_SYMBOLS_, // vector of uninterned symbols
    5455            Symbol._PACKAGE_,              // current package
    5556            Symbol.LOAD_TRUENAME           // LOAD-TIME-VALUE depends on this
  • trunk/abcl/src/org/armedbear/lisp/Load.java

    r12635 r12649  
    380380        internSpecial("*FASL-ANONYMOUS-PACKAGE*", PACKAGE_SYS, NIL);
    381381
     382    // ### *fasl-uninterned-symbols*
     383    // internal symbol
     384    /**
     385     * This variable gets bound to NIL upon loading a FASL, but
     386     * gets set to a vector of symbols as one of the first actions
     387     * by the FASL itself.
     388     *
     389     */
     390    public static final Symbol _FASL_UNINTERNED_SYMBOLS_ =
     391        internSpecial("*FASL-UNINTERNED-SYMBOLS*", PACKAGE_SYS, NIL);
     392
    382393    // ### init-fasl &key version
    383394    private static final Primitive INIT_FASL = new init_fasl();
     
    395406                    final LispThread thread = LispThread.currentThread();
    396407                    thread.bindSpecial(_FASL_ANONYMOUS_PACKAGE_, NIL);
     408                    thread.bindSpecial(_FASL_UNINTERNED_SYMBOLS_, NIL);
    397409                    thread.bindSpecial(_SOURCE_, NIL);
    398410                    return faslLoadStream(thread);
     
    410422                                                       boolean auto)
    411423        {
    412             return loadFileFromStream(pathname == null ? NIL : pathname, 
    413                                       truename == null ? NIL : truename, 
     424            return loadFileFromStream(pathname == null ? NIL : pathname,
     425                                      truename == null ? NIL : truename,
    414426                                      in, verbose, print, auto, false);
    415427    }
Note: See TracChangeset for help on using the changeset viewer.