[armedbear-cvs] r12153 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Fri Sep 18 09:43:42 2009
New Revision: 12153

Log:
Tenative fix for #63: transform caught Go throwable to LispError.

Normalized printStackTrace() calls through Debug.trace() interface.



Modified:
   trunk/abcl/src/org/armedbear/lisp/Lisp.java

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Fri Sep 18 09:43:42 2009
@@ -123,7 +123,7 @@
       }
     catch (Throwable t)
       {
-        t.printStackTrace();
+        Debug.trace(t);
       }
   }
 
@@ -277,7 +277,7 @@
           }
         catch (Go go)
           {
-            throw go;
+            return error(go.getCondition());
           }
         catch (Throw t)
           {
@@ -1042,6 +1042,7 @@
       }
     catch (Throwable t)
       {
+        Debug.trace(t);
         return null;
       }
   }
@@ -2586,7 +2587,7 @@
       }
     catch (ClassNotFoundException e)
       {
-        e.printStackTrace();
+        Debug.trace(e);
       }
   }