From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sat, 6 Mar 2010 17:17:09 +0000 (-0700)
Subject: Add missing ts field
X-Git-Tag: debian-2007ac.2-6~8
X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=commitdiff_plain;h=d64331903488c44604398fa2f288a2fc63a7c118

Add missing ts field
---

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