(cuisui :value-type integer :initarg :cuisui :reader cuisui )
(str :value-type cdata :initarg :str :reader str)
(lrl :value-type fixnum :initarg :lrl :reader lrl)
(stt :value-type string :initarg :stt :reader stt)
(suppress :value-type string :initarg :suppress :reader suppress)
(s#so :reader s#so :subobject (find-uso-cuisui cui sui))
(cuisui :value-type integer :initarg :cuisui :reader cuisui )
(str :value-type cdata :initarg :str :reader str)
(lrl :value-type fixnum :initarg :lrl :reader lrl)
(stt :value-type string :initarg :stt :reader stt)
(suppress :value-type string :initarg :suppress :reader suppress)
(s#so :reader s#so :subobject (find-uso-cuisui cui sui))