projects
/
umlisp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r3464: *** empty log message ***
[umlisp.git]
/
classes.lisp
diff --git
a/classes.lisp
b/classes.lisp
index e1cf6ccf863becf926689486fff7aebf178b36d3..dbb4bc1b8c91e7edc7131bff5b8f13560b99f7c4 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
3 2002/11/23 18:41:41
kevin Exp $
+;;;; $Id: classes.lisp,v 1.1
4 2002/11/23 22:15:13
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.
@@
-218,7
+218,7
@@
(:metaclass hyperobject-class)
(:default-initargs :sab nil :rel nil :atx nil)
(:title "Associated Expression")
(:metaclass hyperobject-class)
(:default-initargs :sab nil :rel nil :atx nil)
(:title "Associated Expression")
- (print-slots sab rel atx))
+ (
:
print-slots sab rel atx))
(defclass ucon (umlsclass)
((cui :type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
(defclass ucon (umlsclass)
((cui :type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
@@
-286,7
+286,7
@@
(:metaclass hyperobject-class)
(:default-initargs :eui nil :wrd nil)
(:title "Lexical Term")
(:metaclass hyperobject-class)
(:default-initargs :eui nil :wrd nil)
(:title "Lexical Term")
- (:print-
list
eui wrd))
+ (:print-
slots
eui wrd))
(defclass labr (umlsclass)
(defclass labr (umlsclass)
@@
-446,7
+446,7
@@
(:metaclass hyperobject-class)
(:default-initargs :ui nil :ui2 nil :ui3 nil)
(:title "Fully Inherited Set of Releatons (TUI's)")
(:metaclass hyperobject-class)
(:default-initargs :ui nil :ui2 nil :ui3 nil)
(:title "Fully Inherited Set of Releatons (TUI's)")
- (:print-slots ui ui2 ui3)
+ (:print-slots ui ui2 ui3)
)
(defclass sstre2 (umlsclass)
((sty :type string :initarg :ui :reader sty)
(defclass sstre2 (umlsclass)
((sty :type string :initarg :ui :reader sty)