locked?>> ( object -- value )


Vocabulary
accessors

Inputs
objectan object


Outputs
valuean object


Definition
IN: accessors

GENERIC: locked?>> ( object -- value )


Methods
USING: accessors models slots.private ;

M: model locked?>> 6 slot ; inline