Change default SQL server host

[umlisp.git] / composite.lisp

diff --git a/composite.lisp b/composite.lisp
index afd3e16176a3a81f437f622a28cc7924834edfd2..1c453e1805c31b9cf8823a9f642703cdf6c6842f 100644 (file)
--- 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)