r3392: *** empty log message ***

diff --git a/classes.lisp b/classes.lisp
index aaa932ab7535589673fb99b12fa66c1edece8841..40490432de8de695fcc80f4f7fc4fd5e47b72e84 100644 (file)
--- 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 8af9096f081ad8250e09cb1b25a0cce95b7c1651..42b323b5ab0060c5e28302fb50da7e35884d1cfc 100644 (file)
--- 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 e8c40982d64a5f4839fc7d56e30d093ed634ab16..da172f95185b1fc3e62899cdb0202d40b8a8a5bb 100644 (file)
--- 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