X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=9b1120c0cb76caa5aa6156dde16d799ea58afb96;hb=baef3e3eba503d04fe6d19ac3087bf9d3dbc37b9;hp=7dfc9109d4b56d90e5d5713ee8858389a02c04c7;hpb=bfdd5c9d3d66970759fcdbee5a51da2ca93ddf06;p=umlisp.git diff --git a/package.lisp b/package.lisp index 7dfc910..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.4 2002/10/09 23:03:41 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. @@ -20,6 +20,7 @@ (defpackage umlisp (:nicknames :u) + (:use #:kmrcl #:common-lisp #:hyperobject) (:export ;; From classes.lisp @@ -27,12 +28,15 @@ #:ucon #:uterm #:ustr + #:usrl #:sty #:tui ;; From sql.lisp #:umls-sql-user! #:umls-sql-passwd! + #:umls-sql-db! + #:umls-sql-host! #:with-sql-connection #:mutex-sql-execute #:mutex-sql-query @@ -61,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 @@ -81,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 @@ -123,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 @@ -147,13 +150,6 @@ #:usty_freq #:usrl_freq - #:umlisp-user - #:ustats - #:usrl - #:bsab - #:btty - #:brel - #:batn #:urank #:urel #:usat @@ -185,6 +181,8 @@ #:sstr #:sstre1 #:sstre2 + + #:english-term-p ))