===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/list.c,v
retrieving revision 1.6
retrieving revision 1.8
diff -u -p -r1.6 -r1.8
--- OpenXM/src/kan96xx/Kan/list.c	2005/06/16 05:07:23	1.6
+++ OpenXM/src/kan96xx/Kan/list.c	2020/10/06 11:33:46	1.8
@@ -1,12 +1,13 @@
-/* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.5 2004/09/11 01:00:42 takayama Exp $ */
+/* $OpenXM: OpenXM/src/kan96xx/Kan/list.c,v 1.7 2005/07/03 11:08:54 ohara Exp $ */
 /* list.c */
 #include <stdio.h>
+#include <stdlib.h>
 #include "datatype.h"
 #include "stackm.h"
 #include "extern.h"
 
-static errorList(char *s);
-static warningList(char *s);
+static void errorList(char *s);
+static void warningList(char *s);
 
 /* The basic data structure for list is
     struct object *,
@@ -159,7 +160,7 @@ void printObjectList(op)
   printObjectList0(op,1);
 }
 
-memberQ(list1,obj2)
+int memberQ(list1,obj2)
      struct object *list1;
      struct object obj2;
      /* If obj2 is an member of list1, the functions the position.
@@ -176,14 +177,14 @@ memberQ(list1,obj2)
   return(0);
 }
 
-static errorList(str)
+static void errorList(str)
      char *str;
 {
   fprintf(stderr,"list.c: %s\n",str);
   exit(10);
 }
 
-static warningList(str)
+static void warningList(str)
      char *str;
 {
   fprintf(stderr,"Warning. list.c: %s\n",str);