r9599: add rank slot to read ucxt

[umlisp.git] / classes.lisp

diff --git a/classes.lisp b/classes.lisp
index 5e9fd37e56ceb5eae56edaf84cabc1b1106ae628..feb970cb2fe301c957ee8c4f78ea57c7c5e27c56 100644 (file)
--- a/classes.lisp
+++ b/classes.lisp
@@ -97,7 +97,7 @@
    (code :value-type string :initarg :code :reader code)
    (cxn :value-type fixnum :initarg :cxn :reader cxn)
    (cxl :value-type string :initarg :cxl :reader cxl)
-   (rnk :value-type string :initarg :rnk :reader rnk)
+   (rank :value-type string :initarg :rank :reader rank)
    (cxs :value-type cdata :initarg :cxs :reader cxs)
    (cui2 :value-type fixnum :initarg :cui2 :reader cui2 :hyperlink find-ucon-cui
         :print-formatter fmt-cui)