4 #include "base/cl_sysdep.h"
12 #include "base/cl_N.h"
16 inline bool cl_F_p (const cl_number& x)
19 switch (cl_tag((x).word)) {
21 #if defined(CL_WIDE_POINTERS)
27 if (x.heappointer->type->flags & cl_class_flags_subclass_float)
32 const cl_F& cl_F_As (const cl_number& x, const char * filename, int line)
38 throw as_exception(x,"a floating-point number",filename,line);