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

[Alessio Stalla]

Author: astalla
Date: Mon Jan 18 14:07:21 2010
New Revision: 12390

Log:
Changed output-ugly-object to invoke print-object for Java objects, as suggested by Alan Ruttenberg.


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

Modified: trunk/abcl/src/org/armedbear/lisp/print.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/print.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/print.lisp	Mon Jan 18 14:07:21 2010
@@ -142,6 +142,8 @@
             (print-object object stream))))
         ((standard-object-p object)
          (print-object object stream))
+	((java::java-object-p object)
+	 (print-object object stream))
         ((xp::xp-structure-p stream)
          (let ((s (sys::%write-to-string object)))
            (xp::write-string++ s stream 0 (length s))))