- (:default-initargs :usty nil :freq nil)
- (:title "Semantic Type and Count")
-;; (: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)))
+ (:user-name "String and Count" "Strings and Counts")
+ (:default-print-slots sui freq stt lrl str)
+ (:description "Composite object of ustr/freq"))