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

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Tue Aug 14 05:13:42 2012
New Revision: 14084

Log:
Robustify printing of partially-initialized generic function objects

Modified:
   trunk/abcl/src/org/armedbear/lisp/print-object.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/print-object.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Tue Aug 14 04:53:16 2012	(r14083)
+++ trunk/abcl/src/org/armedbear/lisp/print-object.lisp	Tue Aug 14 05:13:42 2012	(r14084)
@@ -59,7 +59,7 @@
   (print-unreadable-object (gf stream :identity t)
     (format stream "~S ~S"
             (class-name (class-of gf))
-            (mop:generic-function-name gf)))
+            (ignore-errors (mop:generic-function-name gf))))
   gf)
 
 (defmethod print-object ((method method) stream)