Changeset 12271

Timestamp:

11/08/09 11:28:34 (14 years ago)

Author:

ehuelsmann

Message:

Add documentation to ControlTransfer? and inherit ThreadDestroyed? from Error.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• ControlTransfer.java (modified) (3 diffs)
• ThreadDestroyed.java (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/ControlTransfer.java

@@ -34 +34 @@
 package org.armedbear.lisp;
 
+/** This class is the parent class of all non-local transfer of
+ * control events in ABCL. The classes inheriting from this class each
+ * represent a transfer of control event as it is available in the
+ * standard: GO (represented by Go), RETURN (by Return) and THROW (by Throw).
+ *
+ * Please note that you should <b>only</b> be using these classes in case
+ * you've establisched a corresponding TAGBODY, BLOCK or CATCH-like
+ * construct in your code.
+ *
+ * Otherwise, be aware that if you are mixing Lisp and Java code,
+ * Lisp code being called into might throw one of the three exception types
+ * and cause execution to be transferred to the nearest handler - presumably
+ * outside your Java code.
+ *
+ */
 abstract public class ControlTransfer extends RuntimeException
 {
@@ -39 +54 @@
     {
     }
+    
     /**
      * Overridden in order to make ControlTransfer construct
@@ -46 +62 @@
     public Throwable fillInStackTrace()
     {
-  return this;
+        return this;
     }
 

trunk/abcl/src/org/armedbear/lisp/ThreadDestroyed.java

@@ -34 +34 @@
 package org.armedbear.lisp;
 
-public class ThreadDestroyed extends ControlTransfer
+public class ThreadDestroyed extends Error
 {
     public ThreadDestroyed()
@@ -40 +40 @@
     }
 
-    public ThreadDestroyed(String message)
-    {
-        super(message);
-    }
-
-    @Override
-    public LispObject getCondition()
-    {
-        return new ControlError("Thread destroyed.");
-    }
 }