: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)
-;; (addresses :value-type (list-of subobject) :initarg :addresses :reader addresses))
- (addresses :subobject t :initarg :addresses :reader addresses))
+;; (addresses :value-type (list-of subobject) :initarg :addresses :accessor addresses))
+ (addresses :subobject t :initarg :addresses :accessor 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")
(: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")
(: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"))