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

[Alessio Stalla]

Author: astalla
Date: Wed Jun 16 14:18:49 2010
New Revision: 12755

Log:
CL:STRING on Java objects calls toString() on them. Patch by Mario Lang.


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

Modified: trunk/abcl/src/org/armedbear/lisp/JavaObject.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/JavaObject.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/JavaObject.java	Wed Jun 16 14:18:49 2010
@@ -108,6 +108,13 @@
         return super.typep(type);
     }
 
+
+    @Override
+    public LispObject STRING()
+    {
+        return new SimpleString(obj != null? obj.toString(): "null");
+    }
+
     public final Object getObject()
     {
         return obj;