Changeset 12271


Ignore:
Timestamp:
11/08/09 11:28:34 (11 years ago)
Author:
ehuelsmann
Message:

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

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/ControlTransfer.java

    r12255 r12271  
    3434package org.armedbear.lisp;
    3535
     36/** This class is the parent class of all non-local transfer of
     37 * control events in ABCL. The classes inheriting from this class each
     38 * represent a transfer of control event as it is available in the
     39 * standard: GO (represented by Go), RETURN (by Return) and THROW (by Throw).
     40 *
     41 * Please note that you should <b>only</b> be using these classes in case
     42 * you've establisched a corresponding TAGBODY, BLOCK or CATCH-like
     43 * construct in your code.
     44 *
     45 * Otherwise, be aware that if you are mixing Lisp and Java code,
     46 * Lisp code being called into might throw one of the three exception types
     47 * and cause execution to be transferred to the nearest handler - presumably
     48 * outside your Java code.
     49 *
     50 */
    3651abstract public class ControlTransfer extends RuntimeException
    3752{
     
    3954    {
    4055    }
     56   
    4157    /**
    4258     * Overridden in order to make ControlTransfer construct
     
    4662    public Throwable fillInStackTrace()
    4763    {
    48   return this;
     64        return this;
    4965    }
    5066
  • trunk/abcl/src/org/armedbear/lisp/ThreadDestroyed.java

    r12255 r12271  
    3434package org.armedbear.lisp;
    3535
    36 public class ThreadDestroyed extends ControlTransfer
     36public class ThreadDestroyed extends Error
    3737{
    3838    public ThreadDestroyed()
     
    4040    }
    4141
    42     public ThreadDestroyed(String message)
    43     {
    44         super(message);
    45     }
    46 
    47     @Override
    48     public LispObject getCondition()
    49     {
    50         return new ControlError("Thread destroyed.");
    51     }
    5242}
Note: See TracChangeset for help on using the changeset viewer.