Changeset 4717


Ignore:
Timestamp:
11/13/03 17:49:12 (18 years ago)
Author:
piso
Message:

EXT:*SAVED-BACKTRACE*
LispThread?.saveBacktrace()

File:
1 edited

Legend:

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

    r4707 r4717  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Lisp.java,v 1.175 2003-11-12 21:26:20 piso Exp $
     5 * $Id: Lisp.java,v 1.176 2003-11-13 17:49:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    317317            }
    318318            catch (StackOverflowError e) {
    319                 if (debug) {
    320                     Symbol savedBacktrace = intern("*SAVED-BACKTRACE*", PACKAGE_EXT);
    321                     savedBacktrace.setSymbolValue(thread.backtraceAsList(0));
    322                 }
     319                if (debug)
     320                    thread.saveBacktrace();
    323321                throw new ConditionThrowable(new LispError("stack overflow"));
    324322            }
    325323            catch (ConditionThrowable t) {
    326                 if (debug) {
    327                     Symbol savedBacktrace = intern("*SAVED-BACKTRACE*", PACKAGE_EXT);
    328                     savedBacktrace.setSymbolValue(thread.backtraceAsList(0));
    329                 }
     324                if (debug)
     325                    thread.saveBacktrace();
    330326                throw t;
    331327            }
     
    15471543                       new LispFloat(- Double.MIN_VALUE));
    15481544
     1545    // ### *saved-backtrace*
     1546    public static final Symbol _SAVED_BACKTRACE_ =
     1547        exportSpecial("*SAVED-BACKTRACE*", PACKAGE_EXT, NIL);
     1548
    15491549    // Profiler.
     1550    // ### *granularity*
    15501551    public static final Symbol _GRANULARITY_ =
    15511552        exportSpecial("*GRANULARITY*", PACKAGE_PROF, new Fixnum(1));
Note: See TracChangeset for help on using the changeset viewer.