X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql-classes.lisp;h=2adc2d81e1a9d6703ae37593b16ad427d21526ba;hb=7c24d71d4e9bcd08dae31577407bd51982d173c0;hp=df00914c2e02d9698af24d61dc3e4a1ebe7fa269;hpb=3adbc09e353b3c4dc09c8c9da6cddee8075eaa14;p=umlisp.git

diff --git a/sql-classes.lisp b/sql-classes.lisp
index df00914..2adc2d8 100644
--- a/sql-classes.lisp
+++ b/sql-classes.lisp
@@ -256,6 +256,12 @@ is OBJNAME from TABLE where WHERE-NAME field = WHERE-VALUE with FIELDS"
 		   :pfstr kpfstr
 		   :lrl (ensure-integer kcuilrl))))
 
+(defun find-ucon-cui-all (&key (srl *current-srl*))
+  "Return list of CUIs for all ucons"
+  (collect-umlisp-query (mrcon (cui) srl nil nil :order (cui asc)
+			       :distinct t)
+			cui))
+
 (defun map-ucon-all (fn &key (srl *current-srl*))
   "Map a function over all ucon's"
   (with-sql-connection (db)