;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: package.lisp,v 1.18 2003/05/06 02:14:59 kevin Exp $
+;;;; $Id: package.lisp,v 1.27 2003/07/21 00:53:27 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2003 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)
+(defpackage #:umlisp
+ (:nicknames #:u)
(:use #:kmrcl #:common-lisp #:hyperobject)
(:export
#:rsab #:lat
#:s#def #:s#sty #:s#term #:s#str #:s#atx #: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
+
;; 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
+ #:uterm-pfstr
+ #:cui-p #:lui-p #:sui-p #:tui-p #:eui-p
+ #:rel-abbr-info
;; From sql.lisp
#:umls-sql-user!
#:with-sql-connection
#:mutex-sql-execute
#:mutex-sql-query
+ #:with-mutex-sql
#:sql-query
#:sql-execute
#: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-ucon-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