Add missing ts field

diff --git a/classes.lisp b/classes.lisp
index 587efce21883c37d561c6d36a4edf7bc1825f7cb..4df25abafb9a9664ede14c78579c20bfe155c9cb 100644 (file)
--- 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)
    (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")
   (: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
 
 (defclass uterm (umlsclass)
   ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui