r7860: add new function, rename old function

[umlisp.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index ded476c886cc689aaec5d22770b338fd114956e2..1d01ccc199d3a08f1bc5762007bf8e3c36b8c10f 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.28 2003/07/21 08:41:44 kevin Exp $
+;;;; $Id$
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2003 by Kevin M. Rosenberg, M.D.
@@ -52,6 +52,7 @@
    #:lat-abbr-info #:stt-abbr-info
    
    ;; From sql.lisp
+   #:*umls-sql-db*
    #:umls-sql-user!
    #:umls-sql-passwd!
    #:umls-sql-db!
@@ -80,6 +81,7 @@
    #:find-usty-cui
    #:find-usty-word
    #:find-urel-cui
+   #:find-cui2-urel-cui
    #:find-urel-cui2
    #:find-ucon-rel-cui2
    #:find-ucoc-cui
@@ -97,6 +99,7 @@
    #:find-ucon-cuisui
    #:find-ucon-str
    #:find-ucon-all
+   #:find-cui-ucon-all
    #:map-ucon-all
    #:find-uterm-cui
    #:find-uterm-lui
@@ -125,6 +128,9 @@
    #:find-ucon-tui
    #:find-ucon-word
    #:find-ucon-normalized-word
+   #:find-cui-normalized-word
+   #:find-lui-normalized-word
+   #:find-sui-normalized-word
    #:find-ustr-word
    #:find-ustr-normalized-word
    #:find-uterm-multiword
@@ -157,8 +163,15 @@
    #:display-con
    #:display-term
    #:display-str
+   #:find-ustats-all
+   #:find-ustats-srl
+   #:find-bsab-sab
+   #:find-bsab-all
+   #:find-btty-all
+   #:find-btty-tty
+   #:find-brel-rel
    
-   ;; composite.cl
+   ;; composite.lisp
    #:tui-finding
    #:tui-sign-or-symptom
    #:tui-disease-or-syndrome