diff --git a/include/prototypes.h b/include/prototypes.h
index 9c112a8f..67aed982 100644
--- a/include/prototypes.h
+++ b/include/prototypes.h
@@ -471,7 +471,6 @@ extern int unitsatxy(coord, coord, int, int);
 extern int planesatxy(coord, coord, int, int);
 extern int asw_shipsatxy(coord, coord, int, int, struct plnstr *,
 			 struct shiplist **);
-extern int num_shipsatxy(coord, coord, int, int);
 extern int has_units(coord, coord, natid, struct lndstr *);
 extern int adj_units(coord, coord, natid);
 extern int islist(char *);
diff --git a/src/lib/subs/list.c b/src/lib/subs/list.c
index 6c206e69..567381e8 100644
--- a/src/lib/subs/list.c
+++ b/src/lib/subs/list.c
@@ -244,33 +244,6 @@ asw_shipsatxy(coord x, coord y, int wantflags, int nowantflags,
     return ships;
 }
 
-int
-num_shipsatxy(coord x, coord y, int wantflags, int nowantflags)
-{
-    int ships;
-    struct nstr_item ni;
-    struct mchrstr *mp;
-    struct shpstr ship;
-
-    ships = 0;
-    snxtitem_xy(&ni, EF_SHIP, x, y);
-    while (nxtitem(&ni, &ship)) {
-	if (ship.shp_effic < SHIP_MINEFF || ship.shp_own == 0)
-	    continue;
-	mp = &mchr[(int)ship.shp_type];
-	if (wantflags) {
-	    if ((mp->m_flags & wantflags) == 0)
-		continue;
-	}
-	if (nowantflags) {
-	    if (mp->m_flags & nowantflags)
-		continue;
-	}
-	ships++;
-    }
-    return ships;
-}
-
 int
 adj_units(coord x, coord y, natid own)
 {