r4924: *** empty log message ***

[hyperobject.git] / examples / person.lisp

diff --git a/examples/person.lisp b/examples/person.lisp
index 72167072cee6e117a82f335bbbe6dcfb915c3f45..646a02f07a975c46a4d5c766f1b36b2cb9058c35 100644 (file)
--- a/examples/person.lisp
+++ b/examples/person.lisp
@@ -9,7 +9,7 @@
 ;;;;
 ;;;; A simple example file for hyperobjects
 ;;;;
-;;;; $Id: person.lisp,v 1.7 2003/05/14 05:29:48 kevin Exp $
+;;;; $Id: person.lisp,v 1.8 2003/05/14 05:36:22 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -60,8 +60,7 @@
    (phones :subobject t :initarg :phones :accessor phones))
   (:metaclass hyperobject-class)
   (:default-initargs :title nil :street nil) 
-  (:user-name "Address")
-  (:user-name-plural "Addresses")
+  (:user-name "Address" "Addresses")
   (:default-print-slots title street)
   (:description "An address"))