r3627: *** empty log message ***

[hyperobject.git] / examples / person.lisp

diff --git a/examples/person.lisp b/examples/person.lisp
index 63a174b4f9eec111ab77d61c5a3fc3c54a166751..7a00fc1c946e550f2151b3d9d3fbb99ddd820393 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.3 2002/12/13 22:15:30 kevin Exp $
+;;;; $Id: person.lisp,v 1.4 2002/12/14 02:30:58 kevin Exp $
 ;;;;
 ;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
 ;;;;
@@ -28,15 +28,16 @@
        :value-constraint integerp :input-filter convert-to-date)
    (resume :value-type string :initarg :resume :reader resume
           :value-constraint stringp)
-   (addresses :value-type (list-of subobject) :initarg :addresses :reader addresses))
+;;   (addresses :value-type (list-of subobject) :initarg :addresses :reader addresses))
+   (addresses :subobject t :initarg :addresses :reader addresses))
   (:metaclass hyperobject-class)
   (:default-initargs :first-name "" :last-name "" :dob 0 :resume nil) 
   (:default-print-slots first-name last-name dob resume)
   (:user-name "Person")
   (:description "A Person")
   (:direct-rules
-   ((:rule-1 (:depends-on '(last-name first-name))
-             (setf full-name (concatentate 'string first-name " " last-name))))))
+   (:rule-1 (:dependants (last-name first-name) :volatile full-name)
+             (setf full-name (concatentate 'string first-name " " last-name)))))
 
 (defun format-date (ut)
   (when (typep ut 'integer)
@@ -55,7 +56,7 @@
          :value-constraint stringp)
    (street :value-type (varchar 30) :initarg :street :reader street
           :value-constraint stringp)
-   (phones :value-type (list-oj subobject) :initarg :phones :reader phones)
+   (phones :subobject t :initarg :phones :reader phones))
   (:metaclass hyperobject-class)
   (:default-initargs :title nil :street nil) 
   (:user-name "Address")