cc<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: cc<< ( value object -- )

Methods

USING: accessors compiler.cfg.instructions slots.private ;

M: ##check-nursery-branch cc<< 3 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-float-ordered-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-float-ordered cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-float-unordered-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-float-unordered cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-imm-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-imm cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-integer-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-integer-imm-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-integer-imm cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-integer cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare-vector cc<< 6 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##compare cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##fixnum-add cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##fixnum-mul cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##fixnum-sub cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##test-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##test-imm-branch cc<< 4 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##test-imm cc<< 5 set-slot ; inline


USING: accessors compiler.cfg.instructions slots.private ;

M: ##test cc<< 5 set-slot ; inline


USING: accessors arrays kernel slots slots.private smtp ;

M: email cc<<
    [ dup array? [ \ array bad-slot-value ] unless ] dip
    4 set-slot ; inline


USING: accessors imap slots.private ;

M: parsed-email cc<< 6 set-slot ; inline