(phones :subobject t :initarg :phones :accessor phones))
(:metaclass hyperobject-class)
(:default-initargs :title nil :street nil)
(phones :subobject t :initarg :phones :accessor phones))
(:metaclass hyperobject-class)
(:default-initargs :title nil :street nil)