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