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

[Alessio Stalla]

Author: astalla
Date: Fri Jan 15 15:51:22 2010
New Revision: 12379

Log:
Fixed print-object for JavaObjects to call writeToString() on the object.


Modified:
   trunk/abcl/src/org/armedbear/lisp/print-object.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/print-object.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/print-object.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Fri Jan 15 15:51:22 2010
@@ -50,6 +50,9 @@
     (format stream "~S" (class-name (class-of object))))
   object)
 
+(defmethod print-object ((obj java:java-object) stream)
+  (write-string (%write-to-string obj) stream))
+
 (defmethod print-object ((class java:java-class) stream)
   (write-string (%write-to-string class) stream))