projects
/
umlisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
62ce365
)
r9524:
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 30 May 2004 08:17:27 +0000
(08:17 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 30 May 2004 08:17:27 +0000
(08:17 +0000)
classes.lisp
patch
|
blob
|
history
diff --git
a/classes.lisp
b/classes.lisp
index e62c1ee190c2760c7a647aaf4f2b6bb189b65064..b00eb53a3ae332effde734455d9834f708b02534 100644
(file)
--- a/
classes.lisp
+++ b/
classes.lisp
@@
-127,7
+127,7
@@
((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui)
(cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
:hyperlink find-ucon-cui)
((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui)
(cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
:hyperlink find-ucon-cui)
- (sui :value-type fixnum :initarg :
c
ui :reader sui :print-formatter fmt-sui
+ (sui :value-type fixnum :initarg :
s
ui :reader sui :print-formatter fmt-sui
:hyperlink find-ucon-sui)
(saui :value-type string :initarg :saui :reader saui)
(sdui :value-type string :initarg :sdui :reader sdui)
:hyperlink find-ucon-sui)
(saui :value-type string :initarg :saui :reader saui)
(sdui :value-type string :initarg :sdui :reader sdui)
@@
-138,7
+138,7
@@
(srl :value-type fixnum :initarg :srl :reader srl))
(:metaclass hyperobject-class)
(:user-name "Source")
(srl :value-type fixnum :initarg :srl :reader srl))
(:metaclass hyperobject-class)
(:user-name "Source")
- (:default-print-slots aui sab code saui
a
dui scui tty srl))
+ (:default-print-slots aui sab code saui
s
dui scui tty srl))
(defclass ulo (umlsclass)
((isn :value-type string :initarg :isn :reader isn)
(defclass ulo (umlsclass)
((isn :value-type string :initarg :isn :reader isn)