X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=e066b362d883353410e4bafb95a4d3c1542ffde2;hb=a208918eab061ade24ae18046e635a27cb04bc2d;hp=a263a8bf03747a64fa3a9098b2697c19303a2273;hpb=a8486e6e2af8563e2b3e59845e09d0b1a2d441b7;p=umlisp.git

diff --git a/classes.lisp b/classes.lisp
index a263a8b..e066b36 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -67,8 +67,8 @@
    (son :value-type string :initarg :son :reader son)
    (sf :value-type string :initarg :sf :reader sf)
    (sver :value-type string :initarg :sver :reader sver)
-   (mstart :value-type string :initarg :mstart :reader mstart)
-   (mend :value-type string :initarg :mend :reader mend)
+   (vstart :value-type string :initarg :vstart :reader vstart)
+   (vend :value-type string :initarg :vend :reader vend)
    (imeta :value-type string :initarg :imeta :reader imeta)
    (rmeta :value-type string :initarg :rmeta :reader rmeta)
    (slc :value-type cdata :initarg :slc :reader slc)
@@ -85,7 +85,7 @@
    (sabin :value-type string :initarg :sabin :reader sabin))
   (:metaclass hyperobject-class)
   (:user-name "Source Abbreviation")
-  (:default-print-slots vcui rcui vsab rsab son sf sver mstart mend imeta
+  (:default-print-slots vcui rcui vsab rsab son sf sver vstart vend imeta
 		rmeta slc scc srl tfr cfr cxty ttyl atnl lat cenc
 		curver sabin))