(defclass uconso (umlsclass)
((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
:hyperlink find-ucon-cui)
+ (pfstr :value-type cdata :initarg :pfstr :reader pfstr
+ :compute-cached-value (find-pfstr-cui cui))
(lat :value-type string :initarg :lat :reader lat)
(ts :value-type string :initarg :ts :reader ts)
(lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui)