-(defclass ucon_freq (umlsclass)
- ((ucon :type ucon :initarg :ucon :reader ucon)
- (freq :type fixnum :initarg :freq :accessor freq))
- (:metaclass kmrcl:ml-class)
- (:default-initargs :cui nil :pfstr nil :freq nil)
+(defclass freq (hyperobject)
+ ((freq :type integer :initarg :freq :accessor freq :print-formatter fmt-comma-integer))
+ (:metaclass hyperobject-class)
+ (:default-initargs :freq 0)
+ (:title "Frequency class")
+ (:print-slots freq)
+ (:description "Base class containing frequency slot, used for multi-inherited objects"))
+
+(defclass ucon_freq (ucon freq)
+ ()
+ (:metaclass hyperobject-class)