(defun find-uterm-cuilui (cui lui &key (srl *current-srl*))
"Return single uterm for cui/lui"
(with-umlisp-query ('mrcon (lat ts kluilrl) srl 'kcuilui
(make-cuilui (parse-cui cui) (parse-lui lui))
:lrlname 'kluilrl :single t)
(defun find-uterm-cuilui (cui lui &key (srl *current-srl*))
"Return single uterm for cui/lui"
(with-umlisp-query ('mrcon (lat ts kluilrl) srl 'kcuilui
(make-cuilui (parse-cui cui) (parse-lui lui))
:lrlname 'kluilrl :single t)