-;; (:ref-fields (tui find-ucon-tui "subobjects=no"))
- (:ref-fields (tui find-ucon-tui))
- (:fields (tui :string fmt-tui) (freq :fixnum) (sty :string))
- (:documentation "Composite object of usty/freq"))
-
-(defmethod tui ((s usty_freq))
- (tui (usty s)))
-
-(defmethod sty ((s usty_freq))
- (sty (usty s)))
-