;;;; Author: Kevin M. Rosenberg
;;;; Created: Apr 2000
;;;;
-;;;; $Id$
-;;;;
;;;; This file, part of UMLisp, is
-;;;; Copyright (c) 2000-2006 by Kevin M. Rosenberg, M.D.
+;;;; Copyright (c) 2000-2010 by Kevin M. Rosenberg, M.D.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
(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