Cyclone Scheme  0.9
#define mark (   x)    (((list) x)->hdr.mark)

Get an object's mark value