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

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)