X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=classes.lisp;h=cee2fcd3b8db1569c77bf39a97d5713f336a58c8;hp=aed5b64b2ccc98a3365f3ae622e36b21c399ac61;hb=51451987c4fee40b475e014ee5c801b1657d119d;hpb=c88fbfe8bd947b12c89f32effaf328699ba067ab

diff --git a/classes.lisp b/classes.lisp
index aed5b64..cee2fcd 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -214,7 +214,7 @@
    (pfstr2 :value-type cdata :initarg :pfstr2 :reader pfstr2)
    (stype2 :value-type string  :initarg :stype2 :reader stype2)
    (rela :value-type string :initarg :rela :reader rela)
-   (rui :value-type string  :initarg :rui :reader rui)
+   (rui :value-type fixnum  :initarg :rui :reader rui :print-formatter fmt-rui)
    (srui :value-type string  :initarg :srui :reader srui)
    (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab)
    (sl :value-type string  :initarg :sl :reader sl)