Initial revision

[cln.git] / src / integer / misc / cl_FN_class.cc

diff --git a/src/integer/misc/cl_FN_class.cc b/src/integer/misc/cl_FN_class.cc
new file mode 100644 (file)
index 0000000..0e383a8
--- /dev/null
+++ b/src/integer/misc/cl_FN_class.cc
@@ -0,0 +1,20 @@
+// cl_class_fixnum.
+
+// General includes.
+#include "cl_sysdep.h"
+
+// Specification.
+#include "cl_integer.h"
+
+
+// Implementation.
+
+cl_class cl_class_fixnum = {
+       NULL,           // destructor not used, since not heap objects
+       cl_class_flags_subclass_complex | cl_class_flags_subclass_real | cl_class_flags_subclass_rational
+};
+
+AT_INITIALIZATION(ini_class_fixnum)
+{
+       cl_immediate_classes[cl_FN_tag] = &cl_class_fixnum;
+}