From cb94897727f1a351ad746fa4686d72fab4996342 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 6 Jun 2004 20:12:26 +0000 Subject: [PATCH] r9559: updated for new version of umls --- classes.lisp | 4 ++-- sql-classes.lisp | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/classes.lisp b/classes.lisp index 21213bd..5e9fd37 100644 --- 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 2b7869c..218f55b 100644 --- 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) -- 2.34.1