Changeset 10292


Ignore:
Timestamp:
10/31/05 04:02:49 (16 years ago)
Author:
piso
Message:

JAVA-EXCEPTION-CAUSE

File:
1 edited

Legend:

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

    r10268 r10292  
    33 *
    44 * Copyright (C) 2005 Peter Graves
    5  * $Id: JavaException.java,v 1.2 2005-10-28 17:20:13 piso Exp $
     5 * $Id: JavaException.java,v 1.3 2005-10-31 04:02:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    7373        new Primitive(Symbol.JAVA_EXCEPTION_CAUSE, "java-exception",
    7474"Returns the cause of JAVA-EXCEPTION. (The cause is the Java Throwable\n" +
    75 "object that caused JAVA-EXCEPTION to be signalled.)")
     75"  object that caused JAVA-EXCEPTION to be signalled.)")
    7676    {
    7777        public LispObject execute(LispObject arg) throws ConditionThrowable
    7878        {
    7979            try {
    80                 return ((JavaException)arg).getInstanceSlotValue(Symbol.FORMAT_CONTROL);
     80                return ((JavaException)arg).getInstanceSlotValue(Symbol.CAUSE);
    8181            }
    8282            catch (ClassCastException e) {
Note: See TracChangeset for help on using the changeset viewer.