+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));
+}
+