Method: (PRINT-OBJECT SCHEMA T)

Source

(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