X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=classes.lisp;h=94c489b8313f8b6103006783d34fbfa5fe50864b;hp=cdc4d561648b62b234ad293f6ba58b6b446086f2;hb=e47b39563dffa174215386434eb56c944f455127;hpb=c2fe67d8be948a2165438fa20532a852de9784c9

diff --git a/classes.lisp b/classes.lisp
index cdc4d56..94c489b 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -246,8 +246,10 @@
 (defclass ucon (umlsclass)
   ((cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
 	:hyperlink find-ucon-cui)
-   (lrl :value-type fixnum :initarg :lrl :reader lrl)
-   (pfstr :value-type cdata :initarg :pfstr :reader pfstr)
+   (lrl :value-type fixnum :initarg :lrl :reader lrl
+        :subobject (find-lrl-cui cui))
+   (pfstr :value-type cdata :initarg :pfstr :reader pfstr
+          :subobject (find-pfstr-cui cui))
    (s#def :reader s#def :subobject (find-udef-cui cui))
    (s#so :reader s#so :subobject (find-uso-cui cui))
    (s#hier :reader s#hier :subobject (find-uhier-cui cui))