pe?<< ( value object -- )


Vocabulary
accessors

Inputs
valuean object
objectan object


Outputs
None

Definition
IN: accessors

GENERIC: pe?<< ( value object -- )


Methods
USING: accessors kernel slots slots.private xml.data ;

M: entity-decl pe?<<
[ dup boolean? [ \ boolean bad-slot-value ] unless ] dip
4 set-slot ; inline