diff --git a/src/spicelib/parser/inpptree.c b/src/spicelib/parser/inpptree.c
index 116d0a291..e41d2ac78 100644
--- a/src/spicelib/parser/inpptree.c
+++ b/src/spicelib/parser/inpptree.c
@@ -157,8 +157,6 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum)
 {
     INPparseNode *arg1 = NULL, *arg2, *newp;
 
-/* printf("differentiating: "); printTree(p); printf(" wrt var %d\n", varnum);*/
-
     switch (p->type) {
     case PT_CONSTANT:
 	newp = mkcon((double) 0);
@@ -415,7 +413,6 @@ static INPparseNode *PTdifferentiate(INPparseNode * p, int varnum)
 	break;
     }
 
-/* printf("result is: "); printTree(newp); printf("\n"); */
     return (newp);
 }
 
@@ -871,7 +868,6 @@ static INPparseNode *mkfnode(char *fname, INPparseNode * arg)
 	    p = mkb(PT_MINUS, mkfnode(fname, arg->left),
 		    mkfnode(fname, arg->right));
 	} else {
-	    /* printf("getting a node called '%s'\n", name); */
 	    INPtermInsert(circuit, &name, tables, &(temp.nValue));
 	    for (i = 0; i < numvalues; i++)
 		if ((types[i] == IF_NODE) && (values[i].nValue ==
@@ -905,7 +901,6 @@ static INPparseNode *mkfnode(char *fname, INPparseNode * arg)
 	    fprintf(stderr, "Error: badly formed branch current\n");
 	    return (NULL);
 	}
-/* printf("getting a device called '%s'\n", name); */
 	INPinsert(&name, tables);
 	for (i = 0; i < numvalues; i++)
 	    if ((types[i] == IF_INSTANCE) && (values[i].uValue ==
diff --git a/src/spicelib/parser/ptfuncs.c b/src/spicelib/parser/ptfuncs.c
index 57bf7d679..5ea2f8e61 100644
--- a/src/spicelib/parser/ptfuncs.c
+++ b/src/spicelib/parser/ptfuncs.c
@@ -249,11 +249,6 @@ PTpwl(double arg, void *data)
 {
   struct pwldata { int n; double vals[0]; } *thing = data;
 
-  //  fprintf(stderr, "%s called, data=%p, n=%d\n", __FUNCTION__, data, thing->n);
-  //  for(i=0; i<thing->n; i++)
-  //    fprintf(stderr, " %lf", thing->vals[i]);
-  //  fprintf(stderr, "\n");
-
   double y;
 
   int k0 = 0;
@@ -271,8 +266,6 @@ PTpwl(double arg, void *data)
     (thing->vals[2*k1+1] - thing->vals[2*k0+1]) *
     (arg - thing->vals[2*k0]) / (thing->vals[2*k1] - thing->vals[2*k0]);
 
-  // fprintf(stderr, "foo: interval %lf %lf %lf -> %lf\n", thing->vals[2*k0], arg, thing->vals[2*k1], y);
-
   return y;
 }
 
@@ -281,11 +274,6 @@ PTpwl_derivative(double arg, void *data)
 {
   struct pwldata { int n; double vals[0]; } *thing = data;
 
-  //  fprintf(stderr, "%s called, data=%p, n=%d\n", __FUNCTION__, data, thing->n);
-  //  for(i=0; i<thing->n; i++)
-  //    fprintf(stderr, " %lf", thing->vals[i]);
-  //  fprintf(stderr, "\n");
-
   double y;
 
   int k0 = 0;
@@ -303,7 +291,5 @@ PTpwl_derivative(double arg, void *data)
     (thing->vals[2*k1+1] - thing->vals[2*k0+1]) /
     (thing->vals[2*k1]   - thing->vals[2*k0]);
 
-  // fprintf(stderr, "bar: interval %lf %lf %lf -> %lf\n", thing->vals[2*k0], arg, thing->vals[2*k1], y);
-
   return y;
 }