;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: classes.lisp,v 1.5 2002/10/14 15:03:43 kevin Exp $
+;;;; $Id: classes.lisp,v 1.6 2002/10/16 15:22:28 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
(funcall (funcall (kmrcl::obj-data-value-func fmt) obj) obj))))))
+(defclass usrl (umlsclass)
+ ((sab :type string :initarg :sab :reader sab)
+ (srl :type integer :initarg :srl :reader srl))
+ (:metaclass kmrcl:ml-class)
+ (:default-initargs :sab nil :srl nil)
+ (:title "Source Restriction Level")
+ (:fields (sab :string) (srl :fixnum))
+ (:documentation "Custom Table: Source Restriction Level"))
+
+
(defclass urank (umlsclass)
((rank :type fixnum :initarg :rank :reader rank)
(sab :type string :initarg :sab :reader sab)