r3392: *** empty log message ***

[umlisp.git] / classes.lisp

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)))