X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;fp=classes.lisp;h=4df25abafb9a9664ede14c78579c20bfe155c9cb;hb=d64331903488c44604398fa2f288a2fc63a7c118;hp=587efce21883c37d561c6d36a4edf7bc1825f7cb;hpb=f894817b99c5b9624ebb7a0388f415ace23b8ce5;p=umlisp.git

diff --git a/classes.lisp b/classes.lisp
index 587efce..4df25ab 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -141,10 +141,11 @@
    (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))
+   (srl :value-type fixnum :initarg :srl :reader srl)
+   (ts :value-type string :initarg :ts :reader ts))
   (:metaclass hyperobject-class)
   (:user-name "Source")
-  (:default-print-slots aui sab code saui sdui scui tty srl))
+  (:default-print-slots aui sab code saui sdui scui tty srl ts))
 
 (defclass uterm (umlsclass)
   ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui