4 #include "base/cl_sysdep.h"
7 #include "cln/sfloat.h"
12 #include "base/cl_N.h"
16 inline bool cl_SF_p (const cl_number& x)
19 if (cl_tag((x).word) == cl_SF_tag)
24 const cl_SF& cl_SF_As (const cl_number& x, const char * filename, int line)
30 throw as_exception(x,"a short-float number",filename,line);