Cyclone Scheme  0.5

◆ prim

#define prim (   x)    (x && ((primitive)x)->tag == primitive_tag)