:value-constraint stringp
:hyperlink find-person-by-last-name :null-allowed nil)
(full-name :value-type string :stored nil)
:value-constraint stringp
:hyperlink find-person-by-last-name :null-allowed nil)
(full-name :value-type string :stored nil)
(: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")
(: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")
- ((: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 (concatenate 'string first-name " " last-name)))))
(:default-print-slots title street)
(:description "An address"))
(defclass phone (hyperobject)
(:default-print-slots title street)
(:description "An address"))
(defclass phone (hyperobject)
:value-constraint stringp))
(:metaclass hyperobject-class)
(:user-name "Phone Number")
:value-constraint stringp))
(:metaclass hyperobject-class)
(:user-name "Phone Number")
(:default-initargs :title nil :phone-number nil)
(:default-print-slots title phone-number)
(:description "A phone number"))
(:default-initargs :title nil :phone-number nil)
(:default-print-slots title phone-number)
(:description "A phone number"))