Changeset 12378


Ignore:
Timestamp:
01/15/10 20:40:31 (11 years ago)
Author:
ehuelsmann
Message:

Create a dependable reader dynamic environment.

File:
1 edited

Legend:

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

    r12355 r12378  
    8282    }
    8383
     84
    8485    final private synchronized Function load() {
    8586        if (fun != null)
     
    9192        for (int i = 0; i < symsToSave.length; i++)
    9293            thread.bindSpecial(symsToSave[i], savedSyms[i]);
     94
     95        // set a specific reader environment, because we may be triggered in
     96        // any undefined dynamic environment; we want something predictable
     97        thread.bindSpecial(Symbol.READ_SUPPRESS, NIL);
     98        thread.bindSpecial(Symbol.READ_EVAL, T);
     99        thread.bindSpecial(Symbol.READ_BASE, LispInteger.getInstance(10));
     100        // don't need to bind *READ-DEFAULT-FLOAT-FORMAT*,
     101        // because DUMP-FORM sets it to NIL, forcing exponent markers everywhere
    93102
    94103        byte[] classbytes =
Note: See TracChangeset for help on using the changeset viewer.