X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=9b1120c0cb76caa5aa6156dde16d799ea58afb96;hb=baef3e3eba503d04fe6d19ac3087bf9d3dbc37b9;hp=0bd2ad73533f482078a8b04b7eea9c189b9822c0;hpb=220be00027c02ef176e2e9f6081a6aef6d38717f;p=umlisp.git diff --git a/package.lisp b/package.lisp index 0bd2ad7..9b1120c 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.8 2002/11/03 23:05:33 kevin Exp $ +;;;; $Id: package.lisp,v 1.14 2002/12/09 14:11:09 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -35,6 +35,8 @@ ;; From sql.lisp #:umls-sql-user! #:umls-sql-passwd! + #:umls-sql-db! + #:umls-sql-host! #:with-sql-connection #:mutex-sql-execute #:mutex-sql-query @@ -63,13 +65,14 @@ #:find-ulo-cui #:suistr #:find-uatx-cui - #:display-umls-obj + #:print-umlsclass #:find-ucon-cui #:find-ucon-lui #:find-ucon-sui #:find-ucon-cuisui #:find-ucon-str #:find-ucon-all + #:map-ucon-all #:find-uterm-cui #:find-uterm-lui #:find-uterm-cuilui @@ -83,11 +86,9 @@ #:find-uso-cuisui #:find-ucxt-cuisui #:find-usat-ui - #:find-bsab-sab - #:find-bsab-all - #:find-btty-tty - #:find-btty-all - #:find-brel-rel + #:find-usab-all + #:find-usab-rsab + #:find-usab-vsab #:find-pfstr-cui #:find-ustr-in-uterm #:find-usty-tui @@ -125,9 +126,9 @@ #:find-sstr2-sty #:find-sstr-rl #:find-sstr-styrl - #:disp-con - #:disp-term - #:disp-str + #:display-con + #:display-term + #:display-str ;; composite.cl #:tui-finding @@ -180,6 +181,8 @@ #:sstr #:sstre1 #:sstre2 + + #:english-term-p ))