A unique number that identifies a schema.
The combination of class-name and version number also uniquely identifies a schema.
A list with the names of all persistent slots that were added by the most recent version (compared to this version).
A list with the names of all persistent slots that were discarded by the most recent version (compared to this version).
A list with the names of all persistent effective slots.
(defclass schema ()
((id :initarg :id :reader schema-id
:documentation "A unique number that identifies a schema.")
(class-name :initarg :class-name :reader schema-class-name)
(version :initarg :version :initform 0 :reader schema-version
:documentation "The combination of class-name and version number
also uniquely identifies a schema.")
(obsolete-p :initform nil :accessor schema-obsolete-p)
;; Slot info (computed during FINALIZE-INHERITANCE).
(added-slot-names :initform '()
:accessor added-slot-names
:documentation "A list with the names of all
persistent slots that were added by the most recent version (compared
to this version).")
(discarded-slot-names :initform '()
:accessor discarded-slot-names
:documentation "A list with the names of all
persistent slots that were discarded by the most recent version
(compared to this version).")
(persistent-slot-names :initarg :persistent-slot-names
:accessor persistent-slot-names
:documentation "A list with the names of all
persistent effective slots.")))