X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=sql-classes.lisp;h=df23c492e224aae5812ddd15314655f4642534a1;hp=78ae763f18e9a88b14c572612df4fc8c36e847b8;hb=e9815df2b42c20fbaf7529541147522a7c7cf238;hpb=7f30522f16a7c528b5a0f0ee493bbb0cb1aef77b

diff --git a/sql-classes.lisp b/sql-classes.lisp
index 78ae763..df23c49 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -411,7 +411,8 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 (defun find-udef-cui (cui &key (srl *current-srl*))
   "Return a list of udefs for cui"
   (ensure-cui-integer cui)
-  (collect-umlisp-query (mrdef (sab def suppress) srl cui cui :lrl "KSRL")
+  (collect-umlisp-query (mrdef (sab def suppress) srl cui cui :lrl "KSRL"
+                               :distinct t)
     (make-instance 'udef :sab sab :def def :suppress suppress)))
 
 (defun find-udoc-key (key)