1.0.32.29: Add build flag :sb-xref-for-internals.

[sbcl.git] / src / pcl / print-object.lisp

diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp
index 50153b2..b5c2500 100644 (file)
--- a/src/pcl/print-object.lisp
+++ b/src/pcl/print-object.lisp
@@ -143,3 +143,8 @@
 (defmethod print-object ((dfun-info dfun-info) stream)
   (declare (type stream stream))
   (print-unreadable-object (dfun-info stream :type t :identity t)))
+
+(defmethod print-object ((ctor ctor) stream)
+  (print-unreadable-object (ctor stream :type t)
+    (format stream "~S ~:S" (ctor-class-or-name ctor) (ctor-initargs ctor)))
+  ctor)