;;;;
;;;; 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
;;;;
(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"))