comment<< ( value object -- )

Vocabulary

accessors

Inputs

value	an object
object	an object

Outputs

None

Definition

IN: accessors

GENERIC: comment<< ( value object -- )

Methods

USING: accessors http slots.private ;

M: cookie comment<< 5 set-slot ; inline


USING: accessors geobytes slots.private ;

M: country comment<< 17 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: edge-attributes comment<< 8 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: graph-attributes comment<< 13 set-slot ; inline


USING: accessors alien alien.c-types alien.syntax classes.struct
classes.struct.private compression.zlib.ffi ;

M: gz_header comment<<
    T{ struct-slot-spec
        { name "comment" }
        { offset 56 }
        { class c-ptr }
        { type pointer: uchar }
    } write-struct-slot ; inline


USING: accessors id3.private slots.private ;

M: id3 comment<< 8 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: kick comment<< 11 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: kill comment<< 10 set-slot ; inline


USING: accessors graphviz.attributes slots.private ;

M: node-attributes comment<< 5 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: part comment<< 10 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: quit comment<< 9 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: rpl-names-end comment<< 11 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: rpl-nick-collision comment<< 10 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: rpl-welcome comment<< 10 set-slot ; inline


USING: accessors irc.messages slots.private ;

M: squit comment<< 10 set-slot ; inline


USING: accessors audio.vorbis kernel ogg.vorbis slots
slots.private ;

M: vorbis-stream comment<<
    [
        dup
        vorbis-comment?
        [ \ vorbis-comment bad-slot-value ]
        unless
    ] dip 13 set-slot ; inline