Remove obsolute uso class, simply loop exit

[umlisp.git] / classes.lisp

diff --git a/classes.lisp b/classes.lisp
index ba0f51c06ac9f4267bc97d25fc616d1ddb51fcbb..db6def56141adae1ae2aaeb42c4459b65f934b10 100644 (file)
--- a/classes.lisp
+++ b/classes.lisp
@@ -7,10 +7,8 @@
 ;;;; 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.
@@ -128,26 +126,6 @@
   (:default-print-slots sui stt lrl str suppress))
 
 
-(defclass uso (umlsclass)
-  ((aui :value-type fixnum :initarg :aui :reader aui :print-formatter fmt-aui
-        :hyperlink find-ucon-aui)
-   (cui :value-type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
-        :hyperlink find-ucon-cui)
-   (sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui
-        :hyperlink find-ucon-sui)
-   (saui :value-type string :initarg :saui :reader saui)
-   (sdui :value-type string :initarg :sdui :reader sdui)
-   (scui :value-type string :initarg :scui :reader scui)
-   (tty :value-type string :initarg :tty :reader tty)
-   (code :value-type string :initarg :code :reader code)
-   (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))
-  (:metaclass hyperobject-class)
-  (:user-name "Source")
-  (:default-print-slots aui sab code saui sdui scui tty srl))
-
 (defclass uterm (umlsclass)
   ((lui :value-type fixnum :initarg :lui :reader lui :print-formatter fmt-lui
         :hyperlink find-uterm-lui)