Remove obsolute uso class, simply loop exit

[umlisp.git] / package.lisp

diff --git a/package.lisp b/package.lisp
index 66ca559ef482d9fd3aeea7b3b9be4dc16919244b..aa02443d847d389aa73bf0a5291798c1fb6d0e2c 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -1,4 +1,4 @@
-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; Package: cl-user -*-
+;;;; -*- Mode: Lisp -*-
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
@@ -30,6 +30,7 @@
          #:lexterm #:labr #:lagr #:lcmp #:lmod #:lnom #:lprn #:lprp #:lspl #:ltrm
          #:ltyp #:lwd #:sdef #:sstr #:sstre1 #:sstre2
          #:sty #:tui #:def #:sab #:srl #:tty #:rank #:suppress #:atn #:atv #:vcui
+         #:rmeta #:imeta #:scit #:scc #:slc
          #:rcui #:vsab #:code #:saui #:scui #:sdui #:ispref
          #:rl #:sty2 #:ui #:ui2 #:ui3 #:eui #:bas #:eui2 #:bas2 #:rui
          #:cui #:aui #:lui #:sui #:wd #:lat #:nstr :cuilist
@@ -65,6 +66,10 @@
          #:set-umls-sql-host
          #:umls-sql-type
          #:set-umls-sql-type
+         #:with-sql-connection
+         #:with-sql-connection
+         #:sql-disconnect
+         #:sql-disconnect-pooled
 
          ;; From utils.lisp
          #:fmt-cui
@@ -96,9 +101,12 @@
          #:find-ucon-cui #:make-ucon-cui
          #:find-uconso-cui
          #:find-uconso-sui
+         #:find-uconso-cuisui
+         #:find-uconso-word
          #:find-uconso-code
          #:find-ucon-lui
          #:find-ucon-sui
+         #:find-ucon-cui-sui
          #:find-ucon-cuisui
          #:find-ucon-str
          #:find-ucon-all
@@ -110,6 +118,7 @@
          #:find-uterm-in-ucon
          #:find-ustr-cuilui
          #:find-ustr-cuisui
+         #:find-ustr-cui-sui
          #:find-ustr-sui
          #:find-ustr-sab
          #:find-ustr-all