make-slot ( desc -- slot-spec )

Vocabulary

slots

Inputs

desc

an object

Outputs

slot-spec

an object

Definition

IN: slots

GENERIC: make-slot ( desc -- slot-spec )

Methods

USING: arrays kernel sequences slots ;

M: array make-slot
    <slot-spec> swap peel-off-name peel-off-class
    [ dup empty? ] [ peel-off-attributes ] until drop
    check-initial-value ;


USING: slots ;

M: slot-spec make-slot check-initial-value ;


USING: accessors kernel slots strings ;

M: string make-slot <slot-spec> swap >>name ;