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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Jul 13 08:31:18 2011
New Revision: 13399

Log:
Fix #151: Don't call higher level abstractions from low level lisp routines.

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

Modified: trunk/abcl/src/org/armedbear/lisp/StandardObject.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/StandardObject.java	Tue Jul 12 07:28:01 2011	(r13398)
+++ trunk/abcl/src/org/armedbear/lisp/StandardObject.java	Wed Jul 13 08:31:18 2011	(r13399)
@@ -208,12 +208,6 @@
     int currentLevel = Fixnum.getValue(currentPrintLevel);
     if (currentLevel >= maxLevel)
       return "#";
-    if (typep(Symbol.CONDITION) != NIL)
-      {
-        StringOutputStream stream = new StringOutputStream();
-        Symbol.PRINT_OBJECT.execute(this, stream);
-        return stream.getString().getStringValue();
-      }
     return unreadableString(typeOf().writeToString());
   }