225 #define ISCOMPLEX(z) ONEOF(z, MSKCOMPLEX)  argument
226 #define ISREAL(z) ONEOF(z, MSKREAL)  argument
227 #define ISNUMERIC(z) ONEOF(z, MSKINT|MSKREAL|MSKCOMPLEX)  argument
228 #define ISICON(z) (z->tag==TCONST && ISINT(z->constblock.vtype))  argument
229 #define ISCHAR(z) (z->headblock.vtype==TYCHAR)  argument
230 #define ISINT(z)   ONEOF(z, MSKINT)  argument
231 #define ISCONST(z) (z->tag==TCONST)  argument
232 #define ISERROR(z) (z->tag==TERROR)  argument
233 #define ISPLUSOP(z) (z->tag==TEXPR && z->exprblock.opcode==OPPLUS)  argument
234 #define ISSTAROP(z) (z->tag==TEXPR && z->exprblock.opcode==OPSTAR)  argument
235 #define ISONE(z) (ISICON(z) && z->constblock.constant.ci==1)  argument
236 #define INT(z) ONEOF(z, MSKINT|MSKCHAR)  argument
237 #define ICON(z) mkintcon( (ftnint)(z) )  argument