From d66e2108ad5c3b338fc78f029052785b7081cf98 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 30 May 2004 08:17:27 +0000 Subject: [PATCH] r9524: --- classes.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.34.1