+ctypeList ctypeList_add (ctypeList s, ctype el)
+{
+ llassert (ctypeListBASESIZE > 0);
+
+ if (ctypeList_isUndefined (s))
+ {
+ s = ctypeList_new ();
+ }
+
+ ctypeList_addh (s, el);
+ return s;
+}
+
+ctypeList ctypeList_append (ctypeList s1, ctypeList s2)
+{
+ ctypeList res = s1;
+
+ ctypeList_elements (s2, el)
+ {
+ res = ctypeList_add (res, el);
+ } end_ctypeList_elements;
+
+ return res;
+}
+