X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=package.lisp;h=2d4d6affa70efee431296e91ea06663b845ead7a;hb=f1ceffd73c7e181db3b2a739b7dbc64243cfca2d;hp=e4e013d56f4d7f1df81b160bab814b75dbb620a3;hpb=5b34425d5eb813ef3fec3722779673cf2fd4436e;p=umlisp.git diff --git a/package.lisp b/package.lisp index e4e013d..2d4d6af 100644 --- a/package.lisp +++ b/package.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: package.lisp,v 1.6 2002/10/14 19:26:36 kevin Exp $ +;;;; $Id: package.lisp,v 1.15 2002/12/13 07:34:20 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -20,7 +20,7 @@ (defpackage umlisp (:nicknames :u) - (:use #:kmrcl #:common-lisp) + (:use #:kmrcl #:common-lisp #:hyperobject) (:export ;; From classes.lisp @@ -28,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 @@ -62,13 +65,15 @@ #:find-ulo-cui #:suistr #:find-uatx-cui - #:display-umls-obj + #:print-umlsclass #:find-ucon-cui + #:find-ucon-cui-sans-pfstr #: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 @@ -82,11 +87,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 @@ -124,9 +127,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 @@ -179,6 +182,8 @@ #:sstr #:sstre1 #:sstre2 + + #:english-term-p ))