Definitions of slots whose values are components of a model. This slot currently only makes sense for models, not model instances. Since its values are arbitrary lisp lists, they are quoted.
(=> (Component-Slots $X $Y) (Model-Fragment $X))