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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jul 17 03:50:20 2011
New Revision: 13409

Log:
Re #160: note the root cause.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Primitives.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Primitives.java	Sat Jul 16 15:49:01 2011	(r13408)
+++ trunk/abcl/src/org/armedbear/lisp/Primitives.java	Sun Jul 17 03:50:20 2011	(r13409)
@@ -910,6 +910,10 @@
             String output = first.writeToString();
             if (Symbol.PRINT_READABLY.symbolValue(LispThread.currentThread()) != NIL
                 && output.contains("#<")) {
+                //### Ticket #160: the cause lies here.
+                // You can't just go scan the content of the printed string,
+                // because the marker being sought may be part of the readable
+                // presentation
                 LispObject args = NIL;
                 args = args.push(first);
                 args = args.push(Keyword.OBJECT);