X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fperson.lisp;fp=examples%2Fperson.lisp;h=646a02f07a975c46a4d5c766f1b36b2cb9058c35;hb=c03522d6e56c265fc5b7d859d0a8b324805ddf73;hp=72167072cee6e117a82f335bbbe6dcfb915c3f45;hpb=04f829aab1e5caaefe60391f756e7a5db2d1282b;p=hyperobject.git

diff --git a/examples/person.lisp b/examples/person.lisp
index 7216707..646a02f 100644
--- 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"))