X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fprint-object.lisp;h=b5c25007860b26487bbbdc318a84dd4311155620;hb=49e8403800426f37a54d9b87353a31af36e7af40;hp=50153b2af4bbe7ac1345ee0d4323aafeb8005724;hpb=1de0cc3df508a887bcbbd8ab76d0d62929806c42;p=sbcl.git

diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp
index 50153b2..b5c2500 100644
--- 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)