(tty :value-type string :initarg :tty :reader tty :hyperlink find-btty-tty)
(code :value-type string :initarg :code :reader code)
(sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
- (lat :value-type string :initarg lat :reader lat)
+ (lat :value-type string :initarg :lat :reader lat)
(str :value-type cdata :initarg :str :reader str)
(srl :value-type fixnum :initarg :srl :reader srl))
(:metaclass hyperobject-class)
(:user-name "Concept")
(:default-print-slots cui lrl pfstr))
-(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)
(:user-name "XNS Index" "XNS Indices")
(:default-print-slots lat nstr cuilist))
+(defclass udoc (umlsclass)
+ ((dockey :value-type string :initarg :dockey :reader dockey)
+ (expl :value-type cdata :initarg :expl :reader expl)
+ (dtype :value-type cdata :initarg :dtype :reader dtype)
+ (dvalue :value-type cdata :initarg :dvalue :reader dvalue))
+ (:metaclass hyperobject-class)
+ (:user-name "Documentation record")
+ (:default-print-slots dockey expl dtype dvalue))
+
;;; LEX objects