projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: classes.lisp,v 1.1
1 2002/11/10 22:39:15
kevin Exp $
+;;;; $Id: classes.lisp,v 1.1
2 2002/11/12 17:25:43
kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
;;;;
;;;; 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")
(:metaclass hyperobject-class)
(:default-initargs :def nil :sab nil)
(:title "Definition")
- (:ref-fields (sab find-
bsab-
sab))
+ (:ref-fields (sab find-
usab-r
sab))
(:fields (sab :string) (def :cdata)))
(defclass usat (umlsclass)
(: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")
(: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-r
sab))
(:fields (sab :string) (code :string) (atn :string) (atv :cdata)))
(defclass usab (umlsclass)
(: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")
(: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-r
sab) (tty find-btty-tty))
(:fields (sab :string) (code :string) (tty :string) (srl :fixnum)))
(defclass ucxt (umlsclass)
(: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")
(: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-r
sab) (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)
(: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")
(: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-r
sab) (cui2 find-ucon-cui))
(:fields (rel :string) (rela :string) (sab :string) (sl :string)
(mg :string) (cui2 :string fmt-cui) (pfstr2 :cdata)))
(:fields (rel :string) (rela :string) (sab :string) (sl :string)
(mg :string) (cui2 :string fmt-cui) (pfstr2 :cdata)))