: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)
(:metaclass hyperobject-class)
(:default-initargs :first-name "" :last-name "" :dob 0 :resume nil)
(:default-print-slots first-name last-name dob resume)
:value-constraint stringp))
(:metaclass hyperobject-class)
(:user-name "Phone Number")
:value-constraint stringp))
(:metaclass hyperobject-class)
(:user-name "Phone Number")