Changeset 4426


Ignore:
Timestamp:
10/17/03 13:14:59 (18 years ago)
Author:
piso
Message:

loadStream(): save backtrace on error if debug is enabled.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Load.java

    r4410 r4426  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Load.java,v 1.22 2003-10-16 14:33:01 piso Exp $
     5 * $Id: Load.java,v 1.23 2003-10-17 13:14:59 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    222222    {
    223223        CharacterInputStream in = new CharacterInputStream(inputStream);
     224        final LispThread thread = LispThread.currentThread();
    224225        try {
    225226            final Environment env = new Environment();
    226             final LispThread thread = LispThread.currentThread();
    227227            while (true) {
    228228                LispObject obj = in.read(false, EOF, true);
     
    239239        }
    240240        catch (ConditionThrowable t) {
     241            if (debug) {
     242                Symbol savedBacktrace = intern("*SAVED-BACKTRACE*", PACKAGE_EXT);
     243                savedBacktrace.setSymbolValue(thread.backtraceAsList(0));
     244            }
    241245            CharacterOutputStream out = getStandardOutput();
    242246            String truename = null;
Note: See TracChangeset for help on using the changeset viewer.