From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 10 Apr 2013 02:55:16 +0000 (-0600)
Subject: Find distinct udef
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=e9815df2b42c20fbaf7529541147522a7c7cf238

Find distinct udef
---

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)