src/integer/misc/cl_FN_class.cc

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