r11599: add support for find-uconso-multiword

[umlisp.git] / classes.lisp

diff --git a/classes.lisp b/classes.lisp
index d054bdd382cb09953b0ca0eb09b5db205867817c..76ba8d7bfbe194046e749528e28a20664689aa85 100644 (file)
--- 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)