X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=classes.lisp;h=76ba8d7bfbe194046e749528e28a20664689aa85;hp=d054bdd382cb09953b0ca0eb09b5db205867817c;hb=10aef4d2174b37725e5e517a55e5f7ee534fb142;hpb=5c23f9dfad539e77ddcdb5fed62df5e5b75de6ef

diff --git a/classes.lisp b/classes.lisp
index d054bdd..76ba8d7 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -237,6 +237,8 @@
 (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)