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

[Alessio Stalla]

Author: astalla
Date: Fri Jan 15 15:36:39 2010
New Revision: 12377

Log:
Set the symbol for java-classes to the class name to allow to print them correctly.


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	Fri Jan 15 15:36:39 2010
@@ -40,8 +40,9 @@
 	private static final Map<Class<?>, JavaClass> cache = new HashMap<Class<?>, JavaClass>();
 
 	private JavaClass(Class<?> javaClass) {
-		this.javaClass = javaClass;
-		setDirectSuperclass(BuiltInClass.JAVA_OBJECT);
+	    super(new Symbol(javaClass.getCanonicalName()));
+	    this.javaClass = javaClass;
+	    setDirectSuperclass(BuiltInClass.JAVA_OBJECT);
 	}
 
 	private void initCPL() {