- (s#abr :reader s#abr :subobject t)
- (s#agr :reader s#agr :subobject t)
- (s#cmp :reader s#cmp :subobject t)
- (s#mod :reader s#mod :subobject t)
- (s#nom :reader s#nom :subobject t)
- (s#prn :reader s#prn :subobject t)
- (s#prp :reader s#prp :subobject t)
- (s#spl :reader s#spl :subobject t)
- (s#trm :reader s#trm :subobject t)
- (s#typ :reader s#typ :subobject t))
+ (s#abr :reader s#abr :subobject (find-labr-eui eui))
+ (s#agr :reader s#agr :subobject (find-lagr-eui eui))
+ (s#cmp :reader s#cmp :subobject (find-lcmp-eui eui))
+ (s#mod :reader s#mod :subobject (find-lmod-eui eui))
+ (s#nom :reader s#nom :subobject (find-lnom-eui eui))
+ (s#prn :reader s#prn :subobject (find-lprn-eui eui))
+ (s#prp :reader s#prp :subobject (find-lprp-eui eui))
+ (s#spl :reader s#spl :subobject (find-lspl-eui eui))
+ (s#trm :reader s#trm :subobject (find-ltrm-eui eui))
+ (s#typ :reader s#typ :subobject (find-ltyp-eui eui)))