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