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

diff --git a/examples/person.lisp b/examples/person.lisp
index 7216707..5a91b6a 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$
 ;;;;
 ;;;; 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"))