X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=composite.lisp;fp=composite.lisp;h=c9f8dc0deb4fe82a668d5309204caef64f16e5fc;hb=baef3e3eba503d04fe6d19ac3087bf9d3dbc37b9;hp=ee07f27bf859621daef4ee121fd6ca2ea1fb3479;hpb=4087c342d473dce4a4dfc7812704e9e5805a3669;p=umlisp.git diff --git a/composite.lisp b/composite.lisp index ee07f27..c9f8dc0 100644 --- a/composite.lisp +++ b/composite.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Apr 2000 ;;;; -;;;; $Id: composite.lisp,v 1.16 2002/11/25 07:45:36 kevin Exp $ +;;;; $Id: composite.lisp,v 1.17 2002/12/09 14:11:09 kevin Exp $ ;;;; ;;;; This file, part of UMLisp, is ;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D. @@ -69,28 +69,28 @@ ((freq :type integer :initarg :freq :accessor freq :print-formatter fmt-comma-integer)) (:metaclass hyperobject-class) (:default-initargs :freq 0) - (:title "Frequency class") + (:user-name "Frequency class") (:print-slots freq) (:description "Base class containing frequency slot, used for multi-inherited objects")) (defclass ucon_freq (ucon freq) () (:metaclass hyperobject-class) - (:title "Concept and Count") + (:user-name "Concept and Count") (:print-slots cui freq pfstr) (:description "Composite object of ucon/freq")) (defclass ustr_freq (ustr freq) () (:metaclass hyperobject-class) - (:title "String and Count") + (:user-name "String and Count") (:print-slots sui freq stt lrl str) (:description "Composite object of ustr/freq")) (defclass usty_freq (usty freq) ((freq :type fixnum :initarg :freq :accessor freq)) (:metaclass hyperobject-class) - (:title "Semantic Type and Count") + (:user-name "Semantic Type and Count") (:print-slots tui freq sty) (:description "Composite object of usty/freq")) @@ -108,7 +108,7 @@ (defclass usrl_freq (usrl freq) () (:metaclass hyperobject-class) - (:title "Source and Count") + (:user-name "Source and Count") (:print-slots sab freq srl) (:description "Composite object of usrl/freq"))