IN: accessors

GENERIC: year>> ( object -- value )

USING: accessors calendar kernel.private math slots.private ;

M: duration year>> 2 slot { real } declare ; inline

USING: accessors hamurabi.private slots.private ;

M: game year>> 2 slot ; inline

USING: accessors id3.private slots.private ;

M: id3 year>> 7 slot ; inline

USING: accessors slots.private zoneinfo ;

M: raw-leap year>> 2 slot ; inline

USING: accessors ftp.client.listing-parser slots.private ;

M: remote-file year>> 11 slot ; inline

USING: accessors calendar kernel.private math slots.private ;

M: timestamp year>> 2 slot { integer } declare ; inline

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

M: tm year>>
T{ struct-slot-spec
{ name "year" }
{ offset 20 }
{ class fixnum }
{ initial 0 }
{ type int }
} read-struct-slot ; inline

USING: accessors slots.private taxes.usa.w4 ;

M: w4 year>> 2 slot ; inline