Changeset 13092
- Timestamp:
- 12/11/10 23:52:35 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/Interpreter.java
r13091 r13092 493 493 @Override 494 494 public LispObject execute(LispObject first, LispObject second) 495 throws UnhandledCondition496 495 { 497 496 final LispObject condition = first; … … 526 525 } 527 526 } 528 throw new UnhandledCondition(condition); 527 UnhandledCondition uc = new UnhandledCondition(condition); 528 if (condition.typep(Symbol.JAVA_EXCEPTION) != NIL) 529 uc.initCause((Throwable)JavaException 530 .JAVA_EXCEPTION_CAUSE.execute(condition).javaInstance()); 531 throw uc; 529 532 } 530 533 };
Note: See TracChangeset
for help on using the changeset viewer.