+(defclass udoc (umlsclass)
+ ((key :value-type string :initarg :key :reader key)
+ (value :value-type cdata :initarg :value :reader value)
+ (type :value-type cdata :initarg :type :reader etype)
+ (expl :value-type cdata :initarg :expl :reader expl))
+ (:metaclass hyperobject-class)
+ (:user-name "Abbreviation Documentation")
+ (:default-print-slots key value type expl))
+
+(defclass umap (umlsclass)
+ ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui)
+ (mapsetsab :value-type string :initarg :mapsetsab :reader mapsetsab)
+ (mapsubsetid :value-type string :initarg :mapsubsetid :reader mapsubsetid)
+ ;; fixme: will convert to integer
+ (maprank :value-type string :initarg :maprank :reader maprank)
+ (fromid :value-type string :initarg :fromid :reader fromid)
+ (fromsid :value-type string :initarg :fromsid :reader fromsid)
+ (fromexpr :value-type string :initarg :fromexpr :reader fromexpr)
+ (fromtype :value-type string :initarg :fromtype :reader fromtype)
+ (fromrule :value-type string :initarg :fromrule :reader fromrule)
+ (fromres :value-type string :initarg :fromres :reader fromres)
+ (rel :value-type string :initarg :rel :reader rel)
+ (rela :value-type string :initarg :rela :reader rela)
+ (toid :value-type string :initarg :toid :reader toid)
+ (tosid :value-type string :initarg :tosid :reader tosid)
+ (toexpr :value-type string :initarg :toexpr :reader toexpr)
+ (totype :value-type string :initarg :totype :reader totype)
+ (torule :value-type string :initarg :torule :reader torule)
+ (tores :value-type string :initarg :tores :reader tores)
+ (maprule :value-type string :initarg :maprule :reader maprule)
+ (maptype :value-type string :initarg :maptype :reader maptype)
+ (mapatn :value-type string :initarg :mapatn :reader mapatn)
+ (mapatv :value-type string :initarg :mapatv :reader mapatv)
+ (cvf :value-type string :initarg :cvf :reader cvf))
+ (:metaclass hyperobject-class)
+ (:user-name "Mapping")
+ (:default-print-slots mapsetcui mapsetsab mapsubsetid maprank fromid fromsid fromexpr fromtype
+ fromrule fromres rel rela toid tosid toexpr totype torule tores maprule
+ maptype mapatn mapatv))
+
+(defclass usmap (umlsclass)
+ ((mapsetcui :value-type fixnum :initarg :mapsetcui :reader mapsetcui)
+ (mapsetsab :value-type string :initarg :mapsetsab :reader mapsetsab)
+ (fromexpr :value-type string :initarg :fromexpr :reader fromexpr)
+ (fromtype :value-type string :initarg :fromtype :reader fromtype)
+ (rel :value-type string :initarg :rel :reader rel)
+ (rela :value-type string :initarg :rela :reader rela)
+ (toexpr :value-type string :initarg :toexpr :reader toexpr)
+ (totype :value-type string :initarg :totype :reader totype)
+ (cvf :value-type string :initarg :cvf :reader cvf))
+ (:metaclass hyperobject-class)
+ (:user-name "Simple Mapping")
+ (:default-print-slots mapsetcui mapsetsab fromexpr fromtype rel rela toexpr totype))
+