diff --git a/lang/cem/cemcom.ansi/error.c b/lang/cem/cemcom.ansi/error.c
index d4280eb22..619989130 100644
--- a/lang/cem/cemcom.ansi/error.c
+++ b/lang/cem/cemcom.ansi/error.c
@@ -146,6 +146,8 @@ debug(va_alist)
 	va_start(ap);
 	{
 		_error(DO_DEBUG, dot.tk_file, dot.tk_line, ap);
+		/* _error(DO_DEBUG, NILEXPR, ap);
+		*/
 	}
 	va_end(ap);
 }
@@ -160,6 +162,8 @@ warning(va_alist)
 	va_start(ap);
 	{
 		_error(WARNING, dot.tk_file, dot.tk_line, ap);
+		/* _error(WARNING, NILEXPR, ap);
+		*/
 	}
 	va_end(ap);
 }
diff --git a/lang/cem/cemcom.ansi/idf.c b/lang/cem/cemcom.ansi/idf.c
index 2e0923640..1e0639ce5 100644
--- a/lang/cem/cemcom.ansi/idf.c
+++ b/lang/cem/cemcom.ansi/idf.c
@@ -35,7 +35,6 @@ int idfsize = IDFSIZE;
 extern char options[];
 extern arith NewLocal();
 extern char *symbol2str();
-extern char *sprint();
 
 char sp_occurred[SP_TOTAL+1];	/* indicate occurrence of special id	*/
 
diff --git a/lang/cem/cemcom.ansi/proto.c b/lang/cem/cemcom.ansi/proto.c
index af1f04cc0..44a25eee3 100644
--- a/lang/cem/cemcom.ansi/proto.c
+++ b/lang/cem/cemcom.ansi/proto.c
@@ -56,10 +56,10 @@ add_proto(pl, ds, dc, lvl)
 	int lvl;
 {
 	/*	The full typed identifier or abstract type, described
-		by the structures decspecs and declarator is turned
+		by the structures decspecs and declarator are turned
 		a into parameter type list structure.
 		The parameters will be declared at level L_FORMAL2,
-		later on it will decided whether they were prototypes
+		later on it's decided whether they were prototypes
 		or actual declarations.
 	*/
 	register struct idf *idf = dc->dc_idf;
@@ -132,7 +132,7 @@ add_proto(pl, ds, dc, lvl)
 		newdef->df_file = idf->id_file;
 		newdef->df_line = idf->id_line;
 #ifdef LINT
-		newdef->df_set = 0;
+		newdef->df_set = (type->tp_fund == ARRAY);
 		/* newdef->df_firstbrace = 0; */
 #endif
 		/*	We can't put the idf onto the stack, since these kinds
@@ -168,8 +168,8 @@ add_proto(pl, ds, dc, lvl)
 
 struct tag *
 gettag(tp, idpp)
-	struct type *tp;
-	struct idf **idpp;
+struct type *tp;
+struct idf **idpp;
 {
 	struct tag *tg = (struct tag *)0;
 	register int fund = tp->tp_fund;
@@ -317,7 +317,7 @@ update_proto(tp, otp)
  * remove them from the symbol-table
  */
 remove_proto_tag(tp)
-	struct type *tp;
+struct type *tp;
 {
 	register struct idf *ident;
 	register struct tag *tgp, **tgpp;
@@ -389,7 +389,7 @@ call_proto(expp)
 {
 	/*	If the function specified by (*expp)->OP_LEFT has a prototype,
 		the parameters are converted according the rules specified in
-		par. 3.3.2.2. I.e., the parameters are converted to the prototype
+		par. 3.3.2.2. E.i. the parameters are converted to the prototype
 		counter parts as if by assignment. For the parameters falling
 		under ellipsis clause the old parameters conversion stuff
 		applies.