X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql-classes.lisp;h=20ef37eafe82939234e727cfa8441c18f3edfa97;hb=57c4b059639968903aec88e65103a7263cb97535;hp=6a566f2570d677eb2dff9662439c643c00bcd611;hpb=573f637369291414feb365121216b6b53ae6aaa7;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 6a566f2..20ef37e 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -255,7 +255,13 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
       str)
    (collect-umlisp-query (mrconso (str) srl cui cui :distinct t
                                   :single t)
-      str)))
+                         str)))
+
+(defun find-lrl-cui (cui &key (srl *current-srl*))
+  "Find LRL for a cui"
+  (ensure-cui-integer cui)
+  (collect-umlisp-query (mrconso (kcuilrl) srl cui cui :distinct t :single t)
+                        (ensure-integer kcuilrl)))
 
 (defun find-ucon-lui (lui &key (srl *current-srl*))
   "Find list of ucon for lui"