X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=db6def56141adae1ae2aaeb42c4459b65f934b10;hb=b0307c538e2018939a9b3ab00daa2099720ab1c3;hp=587efce21883c37d561c6d36a4edf7bc1825f7cb;hpb=8dc001f5e7cf851c06006e489473a85611d348be;p=umlisp.git diff --git a/classes.lisp b/classes.lisp index 587efce..db6def5 100644 --- a/classes.lisp +++ b/classes.lisp @@ -126,26 +126,6 @@ (:default-print-slots sui stt lrl str suppress)) -(defclass uso (umlsclass) - ((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui - :hyperlink find-ucon-aui) - (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui - :hyperlink find-ucon-cui) - (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) - (scui :value-type string :initarg :scui :reader scui) - (tty :value-type string :initarg :tty :reader tty) - (code :value-type string :initarg :code :reader code) - (sab :value-type string :initarg :sab :reader sab :hyperlink find-usab-rsab) - (lat :value-type string :initarg :lat :reader lat) - (str :value-type cdata :initarg :str :reader str) - (srl :value-type fixnum :initarg :srl :reader srl)) - (:metaclass hyperobject-class) - (:user-name "Source") - (:default-print-slots aui sab code saui sdui scui tty srl)) - (defclass uterm (umlsclass) ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui :hyperlink find-uterm-lui)