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

[Alessio Stalla]

Author: astalla
Date: Thu Jan 14 17:07:57 2010
New Revision: 12376

Log:
Calling PRIN1-TO-STRING to print Lisp stack frames, so as to allow the standard
printing settings to apply (e.g. custom PRINT-OBJECT methods).


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

Modified: trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispStackFrame.java	Thu Jan 14 17:07:57 2010
@@ -119,8 +119,7 @@
      String result = "";
      final String LISP_STACK_FRAME = "LISP-STACK-FRAME";
      try {
-       result =  unreadableString(LISP_STACK_FRAME + " " 
-				  + toLispString().getStringValue());
+	 result = Symbol.PRIN1_TO_STRING.execute(this.toLispList()).writeToString();
      } catch (Throwable t) { // error while printing stack
        Debug.trace("Serious printing error: ");
        Debug.trace(t);