- (lrl :value-type fixnum :initarg :lrl :reader lrl)
- (pfstr :value-type cdata :initarg :pfstr :reader pfstr)
+ (lrl :value-type fixnum :initarg :lrl :reader lrl
+ :subobject (find-lrl-cui cui))
+ (pfstr :value-type cdata :initarg :pfstr :reader pfstr
+ :subobject (find-pfstr-cui cui))