Cyclone Scheme  0.9
#define Cyc_is_eof_object (   o)    (make_boolean(is_object_type(o) && ((list) o)->tag == eof_tag))