(:user-name "Relationship")
(:default-print-slots stype1 rel cui2 aui2 stype2 rela rui srui sab sl rg dir suppress pfstr2))
+#+mrcoc
(defclass ucoc (umlsclass)
((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)
(aui1 :value-type fixnum :initarg :aui1 :reader aui1 :print-formatter fmt-aui)
(s#term :reader s#term :subobject (find-uterm-cui cui))
(s#sat :reader s#sat :subobject (find-usat-ui cui))
(s#rel :reader s#rel :subobject (find-urel-cui cui))
- (s#coc :reader s#coc :subobject (find-ucoc-cui cui)))
+ #+mrcoc (s#coc :reader s#coc :subobject (find-ucoc-cui cui))
+ )
(:metaclass hyperobject-class)
(:user-name "Concept")
(:default-print-slots cui lrl pfstr))
(s#term :reader s#term :subobject (find-uterm-cui cui))
(s#sat :reader s#sat :subobject (find-usat-ui cui))
(s#rel :reader s#rel :subobject (find-urel-cui cui))
- (s#coc :reader s#coc :subobject (find-ucoc-cui cui)))
+ #+mrcoc (s#coc :reader s#coc :subobject (find-ucoc-cui cui))
+ )
(:documentation "CONSO is a new concept from the RRF files.")
(:metaclass hyperobject-class)
(:user-name "Concept")