;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: package.lisp
-;;;; Purpose: Package definition for UMLisp
-;;;; Programmer: Kevin M. Rosenberg
-;;;; Date Started: Apr 2000
+;;;; Name: package.lisp
+;;;; Purpose: Package definition for UMLisp
+;;;; Author: Kevin M. Rosenberg
+;;;; Created: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.16 2003/05/02 05:37:16 kevin Exp $
+;;;; $Id$
;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
;;;; *************************************************************************
-(in-package :cl-user)
+(in-package #:cl-user)
-(defpackage umlisp
- (:nicknames :u)
+(eval-when (:compile-toplevel :load-toplevel :execute) ;; enclose reader macro
+ (defpackage #:umlisp
+ (:nicknames #:u)
(:use #:kmrcl #:common-lisp #:hyperobject)
- (:export
-
+ (:export
+ #:dummy
+ .
;; From classes.lisp
- #:umlsclass
- #:ucon #:uterm #:ustr #:usrl #:uso #:ucxt #:urank #:udef #:usat #:usab #:ulo #:urel
- #:ucoc #:usty #:uatx #:uxw #:uxnw #:uxns
- #:lexterm #:labr #:lagr #:lcmp #:lmod #:lnom #:lprn #:lprp #:lspl #:ltrm #:ltyp #:lwd
- #:sdef #:sstr #:sstre1 #:sstre2
- #:sty #:tui #:def #:sab #:srl #:tty #:rank #:supres #:atn #:atv #:vcui #:rcui #:vsab
- #:rl #:sty2 #:ui #:ui2 #:ui3 #:eui #:bas #:eui2 #:bas2
- #:cui #:lui #:sui #:wd #:lat #:nstr :cuilist
- #:rsab
- #:lat
- #:s#def #:s#sty #:s#term #:s#str #:s#atx #:s#lo #:s#sat #:s#rel #:s#coc #:s#so #:s#cxt
-
+ #1=(#:umlsclass
+ #:ucon #:uterm #:ustr #:usrl #:uso #:ucxt #:urank #:udef #:usat #:usab #:ulo
+ #:urel #:ucoc #:usty #:uxw #:uxnw #:uxns
+ #:lexterm #:labr #:lagr #:lcmp #:lmod #:lnom #:lprn #:lprp #:lspl #:ltrm
+ #:ltyp #:lwd #:sdef #:sstr #:sstre1 #:sstre2
+ #:sty #:tui #:def #:sab #:srl #:tty #:rank #:supres #:atn #:atv #:vcui
+ #:rcui #:vsab #:code #:saui :scui :sdui
+ #:rl #:sty2 #:ui #:ui2 #:ui3 #:eui #:bas #:eui2 #:bas2 #:rui
+ #:cui #:aui #:lui #:sui #:wd #:lat #:nstr :cuilist
+ #:rsab #:lat
+ #:s#def #:s#sty #:s#term #:s#str #:s#lo #:s#sat #:s#rel #:s#coc
+ #:s#so #:s#cxt
+ #:pfstr #:pfstr2 #:lrl #:def #:ts #:cui1 #:cui2 #:rela #:sl #:mg #:rel
+ #:soc #:cot #:cof #:coa #:isn #:fr #:un #:sna #:soui #:hcd #:stt #:str
+
;; From class-support.lisp
#:ucon-has-tui
- #:english-term-p
+ #:english-term-p #:remove-non-english-terms #:remove-english-terms
#:fmt-cui #:fmt-tui #:fmt-sui #:fmt-eui #:fmt-tui
#:display-con #:display-term #:display-str
-
+ #:pfstr #:pf-ustr
+ #:cui-p #:lui-p #:sui-p #:tui-p #:eui-p
+ #:rel-abbr-info #:filter-urels-by-rel
+ #:mesh-number #:cxt-ancestors #:ucon-ustrs
+ #:lat-abbr-info #:stt-abbr-info
+ #:uso-unique-codes #:ucon-has-sab
+
;; From sql.lisp
+ #:*umls-sql-db*
#:umls-sql-user!
#:umls-sql-passwd!
#:umls-sql-db!
#:umls-sql-host!
- #:with-sql-connection
- #:mutex-sql-execute
- #:mutex-sql-query
- #:sql-query
- #:sql-execute
-
+ #:umls-sql-type!
+
;; From utils.lisp
#:fmt-cui
#:fmt-lui
#:fmt-sui
#:fmt-tui
-
+ #:find-uterm-in-ucon
+ #:find-ustr-in-uterm
+ #:find-ustr-in-ucon
#:*current-srl*
-
+ #:parse-cui #:parse-lui #:parse-sui #:parse-tui #:parse-eui
+
;; From sql-classes.lisp
-
+
#:find-udef-cui
#:find-usty-cui
#:find-usty-word
#:find-urel-cui
+ #:find-cui2-urel-cui
#:find-urel-cui2
#:find-ucon-rel-cui2
#:find-ucoc-cui
#:find-usty-sty
#:find-ulo-cui
#:suistr
- #:find-uatx-cui
#: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
+ #:find-cui-ucon-all
#:map-ucon-all
#:find-uterm-cui
#:find-uterm-lui
#:find-ustr-all
#:find-string-sui
#:find-uso-cuisui
+ #:find-uso-cui
+ #:find-uso-aui
#:find-ucxt-cuisui
#:find-usat-ui
#:find-usab-all
#: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
+ #:find-uterm-word
+ #:find-uterm-normalized-word
#:find-ucon-multiword
#:find-ucon-normalized-multiword
#:find-ustr-multiword
#:display-con
#:display-term
#:display-str
-
- ;; composite.cl
+ #:find-ustats-all
+ #:find-ustats-srl
+ #:find-bsab-sab
+ #:find-bsab-all
+ #:find-btty-all
+ #:find-btty-tty
+ #:find-brel-rel
+
+ ;; composite.lisp
#:tui-finding
#:tui-sign-or-symptom
#:tui-disease-or-syndrome
#:ustr_freq
#:usty_freq
#:usrl_freq
-
- #:urank
- #:urel
- #:usat
- #:uso
- #:ucxt
- #:ustr
- #:ulo
- #:uterm
- #:usty
- #:urel
- #:ucoc
- #:uatx
- #:ucon
- #:uxw
- #:uxnw
- #:uxns
- #:lexterm
- #:labr
- #:lagr
- #:lcmp
- #:lmod
- #:lmod
- #:lprn
- #:prp
- #:lspl
- #:ltrm
- #:ltyp
- #:sdef
- #:sstr
- #:sstre1
- #:sstre2
-
- #:english-term-p
- ))
-
+ )))
+(defpackage umlisp-user
+ (:use #:kmrcl #:common-lisp #:hyperobject)
+ (:import-from :umlisp . #1#)
+ (:export . #1#)
+ (:documentation "User package for UMLisp")))