整数 functionp( 混合 arg );

　 f = (: obj, func :);

　 function pointer type　 value
　 ---------------------------------------------
　 call_other　　 FP_CALL_OTHER
　 lfun　　　 FP_LOCAL
　 efun　　　　　FP_EFUN
　 simul_efun　　 FP_SIMUL
　 functional　　 FP_FUNCTIONAL

　 另外在某些情形下, 会加上以下的值:

　 (有参数)　　 FP_HAS_ARGUMENTS
　 (创造函数的物件被摧毁)　 FP_OWNER_DESTED
　 (函数无法连结)　　 FP_NOT_BINDABLE

　 最后三个值为位元值 (bit value), 可以用位元测试.
　 FP_MASK 可以忽略这些位元值, 测试基本的函数指针类型
　

　 if ((functionp(f) & FP_MASK) == FP_EFUN) ...

　 if (functionp(f) & FP_HAS_ARGUMENTS) ...