class<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: class<< ( value object -- )

Methods

USING: accessors compiler.tree slots.private ;

M: #call class<< 7 set-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XVisualInfo class<<
    T{ struct-slot-spec
        { name "class" }
        { offset 24 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes.struct
classes.struct.private math x11.xlib ;

M: XWindowAttributes class<<
    T{ struct-slot-spec
        { name "class" }
        { offset 40 }
        { class fixnum }
        { initial 0 }
        { type int }
    } write-struct-slot ; inline


USING: accessors alien.c-types classes kernel slots
slots.private ;

M: abstract-c-type class<<
    [ dup class? [ \ class bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors kernel slots slots.private smalltalk.ast
strings ;

M: ast-foreign class<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors compiler.tree.propagation.constraints
slots.private ;

M: class-constraint class<< 3 set-slot ; inline


USING: accessors delegate.private slots.private ;

M: consultation class<< 3 set-slot ; inline


USING: accessors slots.private stack-checker.dependencies ;

M: depends-on-final class<< 2 set-slot ; inline


USING: accessors slots.private stack-checker.dependencies ;

M: depends-on-instance-predicate class<< 3 set-slot ; inline


USING: accessors slots.private stack-checker.dependencies ;

M: depends-on-method class<< 2 set-slot ; inline


USING: accessors slots.private stack-checker.dependencies ;

M: depends-on-next-method class<< 2 set-slot ; inline


USING: accessors slots.private stack-checker.dependencies ;

M: depends-on-struct-slots class<< 2 set-slot ; inline


USING: accessors slots.private stack-checker.dependencies ;

M: depends-on-tuple-layout class<< 2 set-slot ; inline


USING: accessors compiler.codegen.labels kernel math slots
slots.private ;

M: label-fixup-state class<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    3 set-slot ; inline


USING: accessors slots.private smalltalk.compiler.lexenv ;

M: lexenv class<< 6 set-slot ; inline


USING: accessors slots.private unix.users.macos ;

M: macos-passwd class<< 10 set-slot ; inline


USING: accessors classes.mixin slots.private ;

M: mixin-instance class<< 2 set-slot ; inline


USING: accessors alien classes.struct classes.struct.private
cocoa.runtime ;

M: objc-super class<<
    T{ struct-slot-spec
        { name "class" }
        { offset 8 }
        { class c-ptr }
        { type Class }
    } write-struct-slot ; inline


USING: accessors generic.single slots.private ;

M: predicate-engine class<< 2 set-slot ; inline


USING: accessors dns slots.private ;

M: query class<< 4 set-slot ; inline


USING: accessors dns slots.private ;

M: rr class<< 4 set-slot ; inline


USING: accessors slots slots.private ;

M: slot-spec class<< 4 set-slot ; inline


USING: accessors db.types slots.private ;

M: sql-spec class<< 2 set-slot ; inline


USING: accessors compiler.tree.propagation.info slots.private ;

M: value-info-state class<< 2 set-slot ; inline