From e9815df2b42c20fbaf7529541147522a7c7cf238 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 9 Apr 2013 20:55:16 -0600
Subject: [PATCH] Find distinct udef

---
 sql-classes.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.34.1