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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Aug 16 01:43:24 2011
New Revision: 13507

Log:
Re-enable a default implementation for printing a LispObject.

Otherwise something like (COPY-READTABLE) returns an illegal
expression at the REPL, i.e. one that doesn't implement the Reader
serialization protocol correctly.

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

Modified: trunk/abcl/src/org/armedbear/lisp/LispObject.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispObject.java	Sun Aug 14 15:03:33 2011	(r13506)
+++ trunk/abcl/src/org/armedbear/lisp/LispObject.java	Tue Aug 16 01:43:24 2011	(r13507)
@@ -751,7 +751,7 @@
   
   public String printObject()
   {
-    return toString();
+      return unreadableString(toString(), false);
   }
 
   /** Calls unreadableString(String s, boolean identity) with a default