- (:default-initargs :cui nil :pfstr nil :freq nil)
- (:title "String and Count")
- (:fields (sui :string fmt-sui) (freq :fixnum) (stt :string) (lrl :fixnum) (str :cdata))
- (:ref-fields (sui find-ustr-sui))
- (:documentation "Composite object of ustr/freq"))
-
-(defun ustr_freq-sui (s)
- (sui (ustr s)))
-
-(defun ustr_freq-str (s)
- (str (ustr s)))
-
-(defun ustr_freq-lrl (s)
- (lrl (ustr s)))
-
-(defun ustr_freq-stt (s)
- (stt (ustr s)))
+ (:user-name "Concept and Count" "Concepts and Counts")
+ (:default-print-slots cui freq pfstr)
+ (:description "Composite object of ucon/freq"))