X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fconcord.git;a=blobdiff_plain;f=cos.h;h=475e355ddc4d413ded272fb1056c20e367f26fed;hp=8e5822fc3811d706a93d6fbe2b056d961126fb33;hb=e99e93e4773c5f3472b088db2659f7a848cbcc21;hpb=db444c117301e58bee5271b3df8ac8af337b3662

diff --git a/cos.h b/cos.h
index 8e5822f..475e355 100644
--- a/cos.h
+++ b/cos.h
@@ -69,10 +69,17 @@ typedef struct COS_Symbol_ent* COS_Symbol;
 
 COS_Symbol cos_intern (COS_object name);
 
+int cos_symbol_p (COS_object obj);
+
 COS_String cos_symbol_name (COS_Symbol symbol);
 
 extern COS_Symbol cos_Qnil;
 extern COS_Symbol cos_Qt;
+extern COS_Symbol cos_Qcomposition;
+
+#define COS_NIL	cos_Qnil
+#define COS_T	cos_Qt
+#define COS_COMPOSITION cos_Qcomposition
 
 
 typedef struct COS_Cons_ent COS_Cons_ent;
@@ -83,6 +90,9 @@ int cos_cons_p (COS_object obj);
 COS_object cos_car (COS_Cons pair);
 COS_object cos_cdr (COS_Cons pair);
 
+COS_Cons cos_assoc (COS_object key, COS_Cons alist);
+COS_object cos_alist_get (COS_Cons alist, COS_object key);
+
 
 typedef struct COS_Container_ent COS_Container_ent;
 typedef struct COS_Container_ent* COS_Container;