--- psiconv/trunk/lib/psiconv/list.c	2001/01/22 20:36:50	97
+++ psiconv/trunk/lib/psiconv/list.c	2001/01/29 21:57:05	98
@@ -97,6 +97,15 @@
   return 0;
 }
 
+int psiconv_list_pop(psiconv_list l, void *el)
+{
+  if (! l->cur_len)
+    return -PSICONV_E_OTHER;
+  l->cur_len --;
+  memcpy(el,((char *)(l->els)) + l->cur_len * l->el_size,l->el_size);
+  return -PSICONV_E_OK;
+}
+
 int psiconv_list_replace(psiconv_list l, psiconv_u32 indx, const void *el)
 {
   if (indx >= l->cur_len)