238 #define ISCOMPLEX(z) ONEOF(z, MSKCOMPLEX)  argument
239 #define ISREAL(z) ONEOF(z, MSKREAL)  argument
240 #define ISNUMERIC(z) ONEOF(z, MSKINT|MSKREAL|MSKCOMPLEX)  argument
241 #define ISICON(z) (z->tag==TCONST && ISINT(z->constblock.vtype))  argument
242 #define ISCHAR(z) (z->headblock.vtype==TYCHAR)  argument
243 #define ISINT(z)   ONEOF(z, MSKINT)  argument
244 #define ISCONST(z) (z->tag==TCONST)  argument
245 #define ISERROR(z) (z->tag==TERROR)  argument
246 #define ISPLUSOP(z) (z->tag==TEXPR && z->exprblock.opcode==OPPLUS)  argument
247 #define ISSTAROP(z) (z->tag==TEXPR && z->exprblock.opcode==OPSTAR)  argument
248 #define ISONE(z) (ISICON(z) && z->constblock.constant.ci==1)  argument
249 #define INT(z) ONEOF(z, MSKINT|MSKCHAR)  argument
250 #define ICON(z) mkintcon( (ftnint)(z) )  argument