X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=composite.lisp;h=1c453e1805c31b9cf8823a9f642703cdf6c6842f;hp=84d47213ba58090f5c1f0e21787224407e83cec7;hb=HEAD;hpb=01888d11a058ecc8c1dcde23291f9cfbb3a307c0;ds=sidebyside

diff --git a/composite.lisp b/composite.lisp
index 84d4721..1c453e1 100644
--- a/composite.lisp
+++ b/composite.lisp
@@ -7,10 +7,8 @@
 ;;;; Author:   Kevin M. Rosenberg
 ;;;; Created:  Apr 2000
 ;;;;
-;;;; $Id$
-;;;;
 ;;;; This file, part of UMLisp, is
-;;;;    Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
+;;;;    Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
 ;;;;
 ;;;; UMLisp users are granted the rights to distribute and use this software
 ;;;; as governed by the terms of the GNU General Public License.
@@ -52,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))
 
@@ -126,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))
@@ -147,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))
@@ -180,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)