From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Mon, 15 Sep 2003 05:52:25 +0000 (+0000)
Subject: r7860: add new function, rename old function
X-Git-Tag: v2006ac.2~116
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=f4ba2f539190a686523f1ba439fce1073b02e54d

r7860: add new function, rename old function
---

diff --git a/package.lisp b/package.lisp
index 4b17dd3..1d01ccc 100644
--- a/package.lisp
+++ b/package.lisp
@@ -81,6 +81,7 @@
    #:find-usty-cui
    #:find-usty-word
    #:find-urel-cui
+   #:find-cui2-urel-cui
    #:find-urel-cui2
    #:find-ucon-rel-cui2
    #:find-ucoc-cui
@@ -98,6 +99,7 @@
    #:find-ucon-cuisui
    #:find-ucon-str
    #:find-ucon-all
+   #:find-cui-ucon-all
    #:map-ucon-all
    #:find-uterm-cui
    #:find-uterm-lui
diff --git a/sql-classes.lisp b/sql-classes.lisp
index 2adc2d8..6ef05ed 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -256,7 +256,7 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 		   :pfstr kpfstr
 		   :lrl (ensure-integer kcuilrl))))
 
-(defun find-ucon-cui-all (&key (srl *current-srl*))
+(defun find-cui-ucon-all (&key (srl *current-srl*))
   "Return list of CUIs for all ucons"
   (collect-umlisp-query (mrcon (cui) srl nil nil :order (cui asc)
 			       :distinct t)
@@ -304,6 +304,13 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 		   :cui2 (ensure-integer cui2) :rela rela :sab sab :sl sl
 		   :mg mg :pfstr2 kpfstr2)))
 
+(defun find-cui2-urel-cui (cui &key (srl *current-srl*))
+  "Return a list of urel for cui"
+  (ensure-cui-integer cui)
+  (collect-umlisp-query (mrrel (cui2) srl cui1
+			       cui :lrl "KSRL")
+			cui2))
+
 (defun find-urel-cui2 (cui2 &key (srl *current-srl*))
   "Return a list of urel for cui2"
   (ensure-cui-integer cui2)