projects
/
umlisp-orf.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Automated commit for upstream build of version 3.3.2
[umlisp-orf.git]
/
package.lisp
diff --git
a/package.lisp
b/package.lisp
index 85650264f1031308279a9960755ccf11063da8ce..f6cee2675df2ef5b4ef4cb084e7faacad2744125 100644
(file)
--- a/
package.lisp
+++ b/
package.lisp
@@
-7,8
+7,6
@@
;;;; Author: Kevin M. Rosenberg
;;;; Created: Apr 2000
;;;;
;;;; Author: Kevin M. Rosenberg
;;;; Created: Apr 2000
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2004 by Kevin M. Rosenberg, M.D.
;;;;
@@
-40,7
+38,7
@@
#: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
#: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 #:remove-non-english-terms #:remove-english-terms
;; From class-support.lisp
#:ucon-has-tui
#:english-term-p #:remove-non-english-terms #:remove-english-terms
@@
-52,7
+50,7
@@
#:ucon-ancestors #:ucon-parents
#:mesh-number #:cxt-ancestors #:ucon-ustrs
#:lat-abbr-info #:stt-abbr-info
#:ucon-ancestors #:ucon-parents
#:mesh-number #:cxt-ancestors #:ucon-ustrs
#:lat-abbr-info #:stt-abbr-info
-
+
;; From sql.lisp
#:*umls-sql-db*
#:umls-sql-user!
;; From sql.lisp
#:*umls-sql-db*
#:umls-sql-user!
@@
-66,7
+64,7
@@
#:with-mutex-sql
#:sql-query
#:sql-execute
#:with-mutex-sql
#:sql-query
#:sql-execute
-
+
;; From utils.lisp
#:fmt-cui
#:fmt-lui
;; From utils.lisp
#:fmt-cui
#:fmt-lui
@@
-77,9
+75,9
@@
#:find-ustr-in-ucon
#:*current-srl*
#:parse-cui #:parse-lui #:parse-sui #:parse-tui #:parse-eui
#:find-ustr-in-ucon
#:*current-srl*
#:parse-cui #:parse-lui #:parse-sui #:parse-tui #:parse-eui
-
+
;; From sql-classes.lisp
;; From sql-classes.lisp
-
+
#:find-udef-cui
#:find-usty-cui
#:find-usty-word
#:find-udef-cui
#:find-usty-cui
#:find-usty-word
@@
-173,7
+171,7
@@
#:find-btty-all
#:find-btty-tty
#:find-brel-rel
#:find-btty-all
#:find-btty-tty
#:find-brel-rel
-
+
;; composite.lisp
#:tui-finding
#:tui-sign-or-symptom
;; composite.lisp
#:tui-finding
#:tui-sign-or-symptom
@@
-195,9
+193,9
@@
#:usrl_freq
)))
#:usrl_freq
)))
-(defpackage umlisp-user
+(defpackage umlisp-
orf-
user
(:use #:kmrcl #:common-lisp #:hyperobject)
(:use #:kmrcl #:common-lisp #:hyperobject)
- (:import-from :umlisp . #1#)
+ (:import-from :umlisp
-orf
. #1#)
(:export . #1#)
(:documentation "User package for UMLisp")))
(:export . #1#)
(:documentation "User package for UMLisp")))