#define ptyp(x) (1<<(x-sp_fspec)) #define cst_ptyp 0000140 #define sym_ptyp 0000034 #define arg_ptyp 0000574 #define con_ptyp 0036000 #define val_ptyp 0037777 #define any_ptyp 0137777