X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=sql-classes.lisp;h=20ef37eafe82939234e727cfa8441c18f3edfa97;hp=6a566f2570d677eb2dff9662439c643c00bcd611;hb=e47b39563dffa174215386434eb56c944f455127;hpb=c2fe67d8be948a2165438fa20532a852de9784c9

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"