-(defun find-ucon2_freq-coc-tui (ucon tui)
-"Return sorted list of tuples with ucon and freq that have co-occuring concepts of semantic type tui"
- (let ((ucon_freqs '()))
- (dolist (ucoc (s#coc ucon))
- (aif (cui2 ucoc)
- (let ((ucon2 (find-ucon-cui it)))
+#+mrcoc (defun find-ucon2_freq-coc-tui (ucon tui)
+"Return sorted list of tuples with ucon and freq that have co-occuring concepts of semantic type tui"
+ (let ((ucon_freqs '()))
+ (dolist (ucoc (s#coc ucon))
+ (aif (cui2 ucoc)
+ (let ((ucon2 (find-ucon-cui it)))