12 #include "cln/integer.h"
17 const cl_I cl_SF_to_I (const cl_SF& x)
23 SF_decode(x, { return 0; }, sign=,exp=,mant=);
24 exp = exp-(SF_mant_len+1);
25 return ash( L_to_FN(sign==0
26 ? (sintL)mant // mant als Fixnum >0
27 : -(sintL)mant // -mant als Fixnum <0