r11185: fill slots on demand

[umlisp.git] / classes.lisp

diff --git a/classes.lisp b/classes.lisp
index cdc4d561648b62b234ad293f6ba58b6b446086f2..94c489b8313f8b6103006783d34fbfa5fe50864b 100644 (file)
--- 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))