(defclass ucxt (umlsclass)
((sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
(code :value-type string :initarg :code :reader code)
- (rnk :value-type fixnum :initarg :rnk :reader rnk)
(cxn :value-type fixnum :initarg :cxn :reader cxn)
(cxl :value-type string :initarg :cxl :reader cxl)
(cxs :value-type cdata :initarg :cxs :reader cxs)
(pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2)
(rela :value-type string :initarg :rela :reader rela)
(sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
- (sl :value-type string :initarg :sl :reader sl)
- (mg :value-type string :initarg :mg :reader mg))
+ (sl :value-type string :initarg :sl :reader sl))
(:metaclass hyperobject-class)
(:user-name "Relationship")
(:default-print-slots rel rela sab sl mg cui2 pfstr2))
(cui2 :value-type fixnum :initarg :cui2 :reader cui2 :print-formatter fmt-cui
:hyperlink find-ucon-cui)
(pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2)
- (soc :value-type string :initarg :soc :reader soc)
(cot :value-type string :initarg :cot :reader cot)
(cof :value-type fixnum :initarg :cof :reader cof)
(coa :value-type cdata :initarg :coa :reader coa))