diff --git a/pd/src/g_clone.c b/pd/src/g_clone.c
index 7ef9cd49f1aea7531bb8553af21447930a388012..ade8cddd5e9f789e103030608076bee555969e27 100644
--- a/pd/src/g_clone.c
+++ b/pd/src/g_clone.c
@@ -125,7 +125,7 @@ static void clone_in_set(t_in *x, t_floatarg f)
 
 static void clone_in_all(t_in *x, t_symbol *s, int argc, t_atom *argv)
 {
-    int phasewas = x->i_owner->x_phase, i;
+    int i;
     for (i = 0; i < x->i_owner->x_n; i++)
     {
         x->i_owner->x_phase = i;
@@ -145,7 +145,7 @@ static void clone_in_vis(t_in *x, t_floatarg fn, t_floatarg vis)
 
 static void clone_out_anything(t_out *x, t_symbol *s, int argc, t_atom *argv)
 {
-    t_atom *outv, *ap;
+    t_atom *outv;
     int first =
         1 + (s != &s_list && s != &s_float && s != &s_symbol && s != &s_bang),
             outc = argc + first;
diff --git a/pd/src/m_class.c b/pd/src/m_class.c
index 00e8287826cf69f9973016b8a2830808928994da..a9ed52ad9c48003b6d2f5d8aba198242f5288041 100644
--- a/pd/src/m_class.c
+++ b/pd/src/m_class.c
@@ -601,16 +601,6 @@ t_symbol *gensym(const char *s)
     return(dogensym(s, 0));
 }
 
-static t_symbol *addfileextent(t_symbol *s)
-{
-    char namebuf[FILENAME_MAX], *str = s->s_name;
-    int ln = strlen(str);
-    if (!strcmp(str + ln - 3, ".pd")) return (s);
-    strcpy(namebuf, str);
-    strcpy(namebuf+ln, ".pd");
-    return (gensym(namebuf));
-}
-
 #define MAXOBJDEPTH 1000
 static int tryingalready;