(:default-print-slots sab srl)
(:description "Custom Table: Source Restriction Level"))
-
+
(defclass urank (umlsclass)
((rank :value-type fixnum :initarg :rank :reader rank)
(sab :value-type string :initarg :sab :reader sab)
(:user-name "String")
(:default-print-slots sui stt lrl str suppress))
-
+
(defclass uso (umlsclass)
((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui
:hyperlink find-ucon-aui)
(:metaclass hyperobject-class)
(:user-name "Relationship")
(:default-print-slots stype1 rel cui2 aui2 stype2 rela rui srui sab sl rg dir suppress pfstr2))
-
+
(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)
(pfstr :value-type cdata :initarg :pfstr :reader pfstr)
(s#def :reader s#def :subobject (find-udef-cui cui))
(s#so :reader s#so :subobject (find-uso-cui cui))
+ (s#hier :reader s#hier :subobject (find-uhier-cui cui))
+ (s#map :reader s#map :subobject (find-umap-cui cui))
+ (s#smap :reader s#smap :subobject (find-usmap-cui cui))
(s#sty :reader s#sty :subobject (find-usty-cui cui))
(s#lo :reader s#lo :subobject (find-ulo-cui cui))
(s#term :reader s#term :subobject (find-uterm-cui cui))