diff --git a/pcl/fixup.lisp b/pcl/fixup.lisp index dc293a3247848c3af6df6079dc64732178493edc..0b354b32ad0a6d939a258f8527fc14b48da446a6 100644 --- a/pcl/fixup.lisp +++ b/pcl/fixup.lisp @@ -40,3 +40,9 @@ (declare (ignore depth)) (print-object instance stream)) +(defmethod print-object ((ctor ctor) stream) + (print-unreadable-object (ctor stream :type t :identity t) + (format stream "~s ~s ~s" + (ctor-class-name ctor) + (ctor-initargs ctor) + (ctor-state ctor))))