r9559: updated for new version of umls

diff --git a/classes.lisp b/classes.lisp
index 21213bd15a52f16a2f8e6a46b4894ac9984f8dd3..5e9fd37e56ceb5eae56edaf84cabc1b1106ae628 100644 (file)
--- a/classes.lisp
+++ b/classes.lisp
@@ -68,8 +68,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)

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2b7869cb3438a2bcae33eab850b628a532276b15..218f55be576f76b9e57065f8ae35880553eca5b5 100644 (file)
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -583,10 +583,10 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 (defun find-usab-by-key (key-name key)
   "Find usab for a key"
   (collect-umlisp-query-eval ('mrsab '(vcui rcui vsab rsab son sf sver vstart
-                                   vend imeta rmeta slc scc srl tfr cfr cxty
-                                   ttyl atnl lat cenc curver sabin)
-                                 nil key-name key :single t)
-    (make-instance 'usab :vcui (ensure-integer vcui) 
+                                      vend imeta rmeta slc scc srl tfr cfr cxty
+                                      ttyl atnl lat cenc curver sabin)
+                                    nil key-name key :single t)
+     (make-instance 'usab :vcui (ensure-integer vcui) 
                   :rcui (ensure-integer rcui) :vsab vsab :rsab rsab :son son
                   :sf sf :sver sver :vstart vstart :vend vend :imeta imeta
                   :rmeta rmeta :slc slc :scc scc :srl (ensure-integer srl)