}
#endif
+#include <stdlib.h>
+
+
typedef void* COS_object;
typedef struct COS_Object_ent COS_Object_ent;
typedef intptr_t COS_C_Int;
COS_object cos_make_int (COS_C_Int num);
-COS_C_Int cos_int_value (COS_object obj);
int cos_int_p (COS_object obj);
+COS_C_Int cos_int_value (COS_object obj);
COS_object cos_make_char (int code);
-int cos_char_id (COS_object obj);
int cos_char_p (COS_object obj);
+int cos_char_id (COS_object obj);
typedef struct COS_String_ent COS_String_ent;
COS_String cos_symbol_name (COS_Symbol symbol);
+extern COS_Symbol cos_Qnil;
+extern COS_Symbol cos_Qt;
+
+
+typedef struct COS_Cons_ent COS_Cons_ent;
+typedef struct COS_Cons_ent* COS_Cons;
+
+COS_Cons cos_cons (COS_object car, COS_object cdr);
+int cos_cons_p (COS_object obj);
+COS_object cos_car (COS_Cons pair);
+COS_object cos_cdr (COS_Cons pair);
+
typedef struct COS_Container_ent COS_Container_ent;
typedef struct COS_Container_ent* COS_Container;
typedef struct COS_Binary_ent COS_Binary_ent;
typedef struct COS_Binary_ent* COS_Binary;
+
+void cos_print_object (COS_object obj);
+
#if 0
{
#endif