src/integer/misc/cl_FN_class.cc

   1 // cl_class_fixnum.
   2
   3 // General includes.
   4 #include "base/cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cln/integer.h"
   8
   9
  10 // Implementation.
  11
  12 namespace cln {
  13
  14 cl_class cl_class_fixnum = {
  15         NULL,           // destructor not used, since not heap objects
  16         cl_class_flags_subclass_complex | cl_class_flags_subclass_real | cl_class_flags_subclass_rational
  17 };
  18
  19 AT_INITIALIZATION(ini_class_fixnum)
  20 {
  21         cl_immediate_classes[cl_FN_tag] = &cl_class_fixnum;
  22 }
  23
  24 }  // namespace cln