+COS_Cons
+cos_cons (COS_object car, COS_object cdr)
+{
+ COS_Cons obj = COS_ALLOCATE_OBJECT (Cons);
+
+ if (obj == NULL)
+ return NULL;
+
+ obj->car = car;
+ obj->cdr = cdr;
+ cos_retain_object (car);
+ cos_retain_object (cdr);
+
+ return obj;
+}
+
+int
+cos_retain_cons (COS_Object obj)
+{
+ //cos_retain_object (COS_CAR (obj));
+ //cos_retain_object (COS_CDR (obj));
+ return 0;
+}
+
+int
+cos_release_cons (COS_Object obj)
+{
+ if (obj == NULL)
+ return 0;
+
+ cos_release_object (COS_CAR (obj));
+ cos_release_object (COS_CDR (obj));
+ free (obj);
+ return 0;
+}
+
+int
+cos_cons_p (COS_object obj)
+{
+ return COS_OBJECT_CONS_P (obj);
+}
+
+COS_object
+cos_car (COS_Cons pair)
+{
+ if (COS_OBJECT_CONS_P (pair))
+ return COS_CAR (pair);
+ else
+ return NULL;
+}
+
+COS_object
+cos_cdr (COS_Cons pair)
+{
+ if (COS_OBJECT_CONS_P (pair))
+ return COS_CDR (pair);
+ else
+ return NULL;
+}
+
+COS_Cons
+cos_assoc (COS_object key, COS_Cons alist)
+{
+ COS_Cons rest = alist;
+
+ while ( COS_OBJECT_CONS_P (rest) )
+ {
+ COS_Cons cell = cos_car (rest);
+
+ if ( cos_car (cell) == key )
+ return cell;
+
+ rest = cos_cdr (rest);
+ }
+ return NULL;
+}
+
+COS_object
+cos_alist_get (COS_Cons alist, COS_object key)
+{
+ return cos_cdr (cos_assoc (key, alist));
+}
+
+
+int
+cos_retain_container (COS_Object obj)
+{
+ return 0;
+}
+