Method: (PRINT-OBJECT PERSISTENT-OBJECT T)

Source

(defmethod print-object ((object persistent-object) stream)
  (print-unreadable-object (object stream :type t :identity nil)
    (format stream "#~D~@[ with transaction id ~D~]"
            (slot-value object 'object-id)
            (transaction-id object))))