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

[Alessio Stalla]

Author: astalla
Date: Thu Nov  5 16:22:42 2009
New Revision: 12251

Log:
Fixed misuse of ConditionThrowable to signal program errors.


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

Modified: trunk/abcl/src/org/armedbear/lisp/JavaClass.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/JavaClass.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/JavaClass.java	Thu Nov  5 16:22:42 2009
@@ -135,11 +135,11 @@
 	private static final Primitive _FIND_JAVA_CLASS = new Primitive(
 			"%find-java-class", PACKAGE_JAVA, false, "string") {
 		public LispObject execute(LispObject arg) throws ConditionThrowable {
-			try {
-				return findJavaClass(Class.forName((String) arg.getStringValue()));
-			} catch (ClassNotFoundException e) {
-				throw new ConditionThrowable("Cannot find Java class " + arg.getStringValue());
-			}
+		    try {
+			return findJavaClass(Class.forName((String) arg.getStringValue()));
+		    } catch (ClassNotFoundException e) {
+			return error(new LispError("Cannot find Java class " + arg.getStringValue()));
+		    }
 		}
 
 	};