id<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: id<< ( value object -- )

Methods

USING: accessors alien.c-types classes.struct
classes.struct.private curses.ffi math ;

M: MEVENT id<<
    T{ struct-slot-spec
        { name "id" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type short }
    } write-struct-slot ; inline


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

M: RenderTexture2D id<<
    T{ struct-slot-spec
        { name "id" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


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

M: Shader id<<
    T{ struct-slot-spec
        { name "id" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


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

M: Texture2D id<<
    T{ struct-slot-spec
        { name "id" }
        { offset 0 }
        { class fixnum }
        { initial 0 }
        { type uint }
    } write-struct-slot ; inline


USING: accessors alien.c-types audio.aiff classes.struct
classes.struct.private kernel ;

M: aiff-chunk-header id<<
    T{ struct-slot-spec
        { name "id" }
        { offset 0 }
        { class object }
        { type { char 4 } }
    } write-struct-slot ; inline


USING: accessors slots.private webapps.planet ;

M: blog id<< 2 set-slot ; inline


USING: accessors slots.private synth.buffers ;

M: buffer id<< 4 set-slot ; inline


USING: accessors opencl slots.private ;

M: cl-device id<< 2 set-slot ; inline


USING: accessors opencl slots.private ;

M: cl-platform id<< 2 set-slot ; inline


USING: accessors slots.private webapps.mason.backend ;

M: counter id<< 2 set-slot ; inline


USING: accessors bson.constants slots.private ;

M: dbref id<< 3 set-slot ; inline


USING: accessors discord slots.private ;

M: discord-webhook id<< 3 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: edge-attributes id<< 27 set-slot ; inline


USING: accessors asn1 slots.private ;

M: element id<< 3 set-slot ; inline


USING: accessors rosetta-code.top-rank slots.private ;

M: employee id<< 3 set-slot ; inline


USING: accessors slots.private webapps.blogs ;

M: entity id<< 2 set-slot ; inline


USING: accessors slots.private webapps.pastebin ;

M: entity id<< 2 set-slot ; inline


USING: accessors bittorrent slots.private ;

M: extended id<< 2 set-slot ; inline


USING: accessors channels.remote.private slots.private ;

M: from-message id<< 2 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes id<< 29 set-slot ; inline


USING: accessors graphviz kernel slots slots.private strings ;

M: graph id<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors slots.private unix.groups ;

M: group id<< 2 set-slot ; inline


USING: accessors gravatar slots.private ;

M: info id<< 8 set-slot ; inline


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

M: inline-recursive id<< 2 set-slot ; inline


USING: accessors images.jpeg.private slots.private ;

M: jpeg-color-info id<< 8 set-slot ; inline


USING: accessors mongodb.driver slots.private ;

M: mdb-cursor id<< 2 set-slot ; inline


USING: accessors classes combinators kernel
mongodb.tuple.collection mongodb.tuple.collection.private slots
;

M: mdb-persistent id<<
    over class-of id-slot writer-word ( object value -- )
    execute-effect ;


USING: accessors dns slots.private ;

M: message id<< 2 set-slot ; inline


USING: accessors curses kernel math slots.private ;

M: mouse-event id<< [ integer>fixnum-strict ] dip 2 set-slot
    ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes id<< 14 set-slot ; inline


USING: accessors graphviz kernel slots slots.private strings ;

M: node id<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors kernel slots slots.private strings xml.data ;

M: notation-decl id<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    3 set-slot ; inline


USING: accessors peg slots.private ;

M: parser id<< 4 set-slot ; inline


USING: accessors persistency slots.private ;

M: persistent id<< 2 set-slot ; inline


USING: accessors slots.private webapps.planet ;

M: posting id<< 6 set-slot ; inline


USING: accessors channels.remote slots.private ;

M: remote-channel id<< 3 set-slot ; inline


USING: accessors concurrency.distributed slots.private ;

M: remote-thread id<< 3 set-slot ; inline


USING: accessors slots.private webapps.wiki ;

M: revision id<< 2 set-slot ; inline


USING: accessors alien.c-types audio.wav classes.struct
classes.struct.private kernel ;

M: riff-chunk-header id<<
    T{ struct-slot-spec
        { name "id" }
        { offset 0 }
        { class object }
        { type { char 4 } }
    } write-struct-slot ; inline


USING: accessors furnace.cache slots.private ;

M: server-state id<< 2 set-slot ; inline


USING: accessors slots.private subrip-subtitles ;

M: srt-chunk id<< 2 set-slot ; inline


USING: accessors graphviz kernel slots slots.private strings ;

M: subgraph id<<
    [ dup string? [ \ string bad-slot-value ] unless ] dip
    2 set-slot ; inline


USING: accessors db.tester slots.private ;

M: test-1 id<< 2 set-slot ; inline


USING: accessors db.tester slots.private ;

M: test-2 id<< 2 set-slot ; inline


USING: accessors kernel math slots slots.private threads ;

M: thread id<<
    [ dup integer? [ \ integer bad-slot-value ] unless ] dip
    5 set-slot ; inline


USING: accessors channels.remote.private slots.private ;

M: to-message id<< 2 set-slot ; inline


USING: accessors slots.private webapps.todo ;

M: todo id<< 3 set-slot ; inline


USING: accessors slots.private xmode.tokens ;

M: token id<< 3 set-slot ; inline


USING: accessors slots.private twitter ;

M: twitter-status id<< 3 set-slot ; inline


USING: accessors slots.private twitter ;

M: twitter-user id<< 2 set-slot ; inline


USING: accessors io.files.info.unix slots.private ;

M: unix-file-system-info id<< 19 set-slot ; inline


USING: accessors bittorrent slots.private ;

M: unknown id<< 2 set-slot ; inline


USING: accessors slots.private unix.utmpx ;

M: utmpx-record id<< 3 set-slot ; inline


USING: accessors slots.private webapps.mason.version.data ;

M: version id<< 2 set-slot ; inline