init-slot-class ( slot-spec class -- slot-spec )


Vocabulary
slots

Inputs
slot-specan object
classan object


Outputs
slot-specan object


Definition
USING: accessors kernel ;

IN: slots

: init-slot-class ( slot-spec class -- slot-spec )
[ >>class ] [ initial-value [ >>initial ] [ drop ] if ] bi ;