(defmethod print-object ((schema schema) stream)
(print-unreadable-object (schema stream :type t :identity t)
(format stream "~A ~D.~D with ~D slots"
(schema-class-name schema)
(schema-id schema)
(schema-version schema)
(nr-persistent-slots schema))))
Source Context