X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=composite.lisp;h=1c453e1805c31b9cf8823a9f642703cdf6c6842f;hp=afd3e16176a3a81f437f622a28cc7924834edfd2;hb=ab8b9c83accebd43e817e1d5cee6a8f7fb9a7eab;hpb=cd3df5cb167a754ef0d2f9cb21afeb821528f266

diff --git a/composite.lisp b/composite.lisp
index afd3e16..1c453e1 100644
--- a/composite.lisp
+++ b/composite.lisp
@@ -50,7 +50,7 @@
     (funcall related-con-func ucon))
    :key #'cui))
 
-(defun find-ucon2-coc-tui (ucon tui)
+#+mrcoc (defun find-ucon2-coc-tui (ucon tui)
   "Return list of ucon's that have co-occuring concepts of semantic type tui"
   (find-ucon2-tui ucon tui #'cui2 #'s#coc))
 
@@ -124,7 +124,7 @@
               freqs)))
     (sort freqs #'> :key #'freq)))
 
-(defun find-ucon2_freq-coc-tui (ucon tui)
+#+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))
@@ -145,7 +145,7 @@
         (funcall lookup-func ucon (tui usty))
       nil)))
 
-(defun find-ucon2-coc-str&sty (str sty)
+#+mrcoc (defun find-ucon2-coc-str&sty (str sty)
   "Find all ucons that are a co-occuring concept for concept named str
    and that have semantic type of sty"
   (find-ucon2-str&sty str sty #'find-ucon2-coc-tui))
@@ -178,7 +178,7 @@
   "Sorted list of ucon_freq with semantic type tui that are rel's of ucons with semantic type tui"
   (find-ucon2_freq-tui-all tui #'find-ucon2-rel-tui))
 
-(defun find-ucon2_freq-coc-tui-all (tui)
+#+mrcoc (defun find-ucon2_freq-coc-tui-all (tui)
   (find-ucon2_freq-tui-all tui #'find-ucon2-coc-tui))
 
 #+(or scl)