;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: composite.lisp,v 1.15 2002/11/24 19:03:34 kevin Exp $
+;;;; $Id: composite.lisp,v 1.16 2002/11/25 07:45:36 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(format nil "select count(*) from MRSO where SAB='~a'"
(sab usrl)))))))
(push (make-instance 'usrl_freq :usrl usrl :freq freq) freqs)))
- (sort freqs #'> :key #'usrl_freq-freq)))
+ (sort freqs #'> :key #'freq)))
(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"