From 521486393a9ab3b83cee25cd7a4377000914b68c Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Tue, 12 Nov 2002 17:25:43 +0000
Subject: [PATCH] r3392: *** empty log message ***

---
 classes.lisp     | 12 ++++++------
 debian/changelog |  7 +++++++
 package.lisp     |  8 ++------
 3 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/classes.lisp b/classes.lisp
index aaa932a..4049043 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: classes.lisp,v 1.11 2002/11/10 22:39:15 kevin Exp $
+;;;; $Id: classes.lisp,v 1.12 2002/11/12 17:25:43 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -51,7 +51,7 @@
   (:metaclass hyperobject-class)
   (:default-initargs :def nil :sab nil)
   (:title "Definition")
-  (:ref-fields (sab find-bsab-sab))
+  (:ref-fields (sab find-usab-rsab))
   (:fields (sab :string) (def :cdata)))
 
 (defclass usat (umlsclass)
@@ -62,7 +62,7 @@
   (:metaclass hyperobject-class)
   (:default-initargs :sab nil :code nil :atn nil :atv nil)
   (:title "Simple Attribute")
-  (:ref-fields (sab find-bsab-sab))
+  (:ref-fields (sab find-usab-rsab))
   (:fields (sab :string) (code :string) (atn :string) (atv :cdata)))
 
 (defclass usab (umlsclass)
@@ -113,7 +113,7 @@
   (:metaclass hyperobject-class)
   (:default-initargs :sab nil :code nil :tty nil :srl nil)
   (:title "Source")
-  (:ref-fields (sab find-bsab-sab) (tty find-btty-tty))
+  (:ref-fields (sab find-usab-rsab) (tty find-btty-tty))
   (:fields (sab :string) (code :string) (tty :string) (srl :fixnum)))
 
 (defclass ucxt (umlsclass)
@@ -131,7 +131,7 @@
   (:default-initargs :sab nil :code nil :rnk nil :cxn nil :cxl nil :cxs nil
 		     :cui2 nil :hcd nil :rela nil :xc nil)
   (:title "Context")
-  (:ref-fields (sab find-bsab-sab) (cui2 find-ucon-cui))
+  (:ref-fields (sab find-usab-rsab) (cui2 find-ucon-cui))
   (:fields 
    (sab :string) (code :string) (rnk :fixnum) (cxn :fixnum) (cxl :string)
    (hcd :string) (rela :string) (xc :string) (cui2 :string fmt-cui) 
@@ -206,7 +206,7 @@
   (:default-initargs 
    :rel nil :cui1 nil :cui2 nil :pfstr2 nil :rela nil :sab nil :sl nil :mg nil)
   (:title "Relationship")
-  (:ref-fields (rel find-brel-rel) (sab find-bsab-sab) (cui2 find-ucon-cui))
+  (:ref-fields (rel find-brel-rel) (sab find-usab-rsab) (cui2 find-ucon-cui))
   (:fields (rel :string) (rela :string) (sab :string) (sl :string) 
 	   (mg :string) (cui2 :string fmt-cui) (pfstr2 :cdata)))
 	
diff --git a/debian/changelog b/debian/changelog
index 8af9096..42b323b 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+cl-umlisp (2.0.1-1) unstable; urgency=low
+
+  * Change reffields to use new usab class
+  * Remove bonus fields cruft
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Tue, 12 Nov 2002 10:24:59 -0700
+
 cl-umlisp (2.0-1) unstable; urgency=low
 
   * Support UMLS 2002AD
diff --git a/package.lisp b/package.lisp
index e8c4098..da172f9 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: package.lisp,v 1.10 2002/11/07 23:08:00 kevin Exp $
+;;;; $Id: package.lisp,v 1.11 2002/11/12 17:25:43 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -84,11 +84,7 @@
    #: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-rsab
    #:find-pfstr-cui
    #:find-ustr-in-uterm
    #:find-usty-tui
-- 
2.34.1