-(defun find-usty_freq-all ()
- (let ((usty_freqs '()))
- (dolist (tuple (mutex-sql-query "select distinct TUI from MRSTY"))
- (let* ((tui (car tuple))
- (freq (ensure-integer
- (caar (mutex-sql-query
- (format nil "select count(*) from MRSTY where TUI=~a" tui))))))
- (push (make-instance 'usty_freq :usty (find-usty-tui tui) :freq freq) usty_freqs)))
- (sort usty_freqs #'> :key #'usty_freq-freq)))
-
-
-