From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 30 May 2004 08:17:27 +0000 (+0000)
Subject: r9524:
X-Git-Tag: v2006ac.2~87
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=d66e2108ad5c3b338fc78f029052785b7081cf98

r9524:
---

diff --git a/classes.lisp b/classes.lisp
index e62c1ee..b00eb53 100644
--- 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)
-   (sui :value-type fixnum :initarg :cui :reader sui :print-formatter fmt-sui
+   (sui :value-type fixnum :initarg :sui :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)
@@ -138,7 +138,7 @@
    (srl :value-type fixnum :initarg :srl :reader srl))
   (:metaclass hyperobject-class)
   (:user-name "Source")
-  (:default-print-slots aui sab code saui adui scui tty srl))
+  (:default-print-slots aui sab code saui sdui scui tty srl))
 
 (defclass ulo (umlsclass)
   ((isn :value-type string :initarg :isn :reader isn)