From d64331903488c44604398fa2f288a2fc63a7c118 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 6 Mar 2010 10:17:09 -0700
Subject: [PATCH] Add missing ts field

---
 classes.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
2.34.1