Cleaned up the definition of aprogn in chaining_macros.cl.