mixin-instance

Vocabulary

classes.mixin

Definition

IN: classes.mixin

TUPLE: mixin-instance class mixin ;

Methods

USING: classes.mixin definitions kernel ;

M: mixin-instance definer drop \ INSTANCE: f ;


USING: classes.mixin definitions kernel ;

M: mixin-instance definition drop f ;


USING: classes.mixin classes.mixin.private definitions kernel ;

M: mixin-instance forget*
    >mixin-instance< dup mixin-class?
    [ remove-mixin-instance ] [ 2drop ] if ;


USING: assocs classes.mixin classes.mixin.private definitions
words ;

M: mixin-instance set-where
    >mixin-instance< "instances" word-prop set-at ;


USING: accessors classes.mixin kernel prettyprint.backend see ;

M: mixin-instance synopsis*
    [ definer. ] [ class>> pprint-word ] [ mixin>> pprint-word ]
    tri ;


USING: assocs classes.mixin classes.mixin.private definitions
words ;

M: mixin-instance where
    >mixin-instance< "instances" word-prop at ;