diff --git a/src/allocmds.c b/src/allocmds.c
index 0b0a800..1635b11 100644
--- a/src/allocmds.c
+++ b/src/allocmds.c
@@ -138,8 +138,6 @@ LispPTR *alloc_mdspage(register short int type) {
   extern LispPTR *Next_MDSpage_word;
   extern LispPTR *Next_Array_word;
 
-  LispPTR newpage(LispPTR base);
-
   register LispPTR *ptr; /* points Top 32 bit of the MDS page */
   LispPTR next_page;
 
diff --git a/src/array5.c b/src/array5.c
index aaf3313..1d70e44 100644
--- a/src/array5.c
+++ b/src/array5.c
@@ -46,8 +46,6 @@ LispPTR N_OP_aref2(LispPTR arrayarg, LispPTR inx0, LispPTR inx1) {
   int arindex, temp;
   LispArray *arrayblk;
   int j;
-  /*	for CREATECELL  */
-  DLword *createcell68k(unsigned int type);
 
   /*  verify array  */
   if (GetTypeNumber(arrayarg) != TYPE_TWOD_ARRAY) ERROR_EXIT(inx1);
diff --git a/src/car-cdr.c b/src/car-cdr.c
index 81d8f79..ca2bac4 100644
--- a/src/car-cdr.c
+++ b/src/car-cdr.c
@@ -183,7 +183,6 @@ LispPTR rplaca(register LispPTR x, register LispPTR y)
 static ConsCell *find_cdrable_pair(LispPTR carpart, LispPTR cdrpart); /* below... */
 static ConsCell *find_close_cell(struct conspage *page, LispPTR oldcell);
 #endif
-extern struct conspage *next_conspage(void); /* conspage.c */
 
 LispPTR rplacd(LispPTR x, register LispPTR y)
 /* cdr of x will be smashed */
diff --git a/src/dbgtool.c b/src/dbgtool.c
index b519765..0a32cae 100644
--- a/src/dbgtool.c
+++ b/src/dbgtool.c
@@ -706,10 +706,6 @@ void sff(LispPTR laddr) { sf((FX *)Addr68k_from_LADDR(laddr)); }
 #define DUMPSIZE 40
 #define FNOVERHEADWORDS (8)
 
-void nt1(LispPTR *start, int size, char *str);
-
-void ntheader(struct fnhead *fnobj);
-
 void nt(LispPTR index)
 /* atom index */
 {
diff --git a/src/ether.c b/src/ether.c
index b3ea9e8..09aa44f 100644
--- a/src/ether.c
+++ b/src/ether.c
@@ -361,8 +361,6 @@ LispPTR ether_reset(LispPTR args[])
 /*	it's OK to read packets from the network on interrupt.		*/
 /*									*/
 /************************************************************************/
-LispPTR get_packet();
-
 LispPTR ether_get(LispPTR args[])
 {
   LispPTR MaxByteCount;
diff --git a/src/gc2.c b/src/gc2.c
index ce93832..e115b55 100644
--- a/src/gc2.c
+++ b/src/gc2.c
@@ -45,7 +45,6 @@ static char *id = "$Id: gc2.c,v 1.3 1999/05/31 23:35:30 sybalsky Exp $ Copyright
 /**********************************************************************/
 
 void OP_gcscan1(void) {
-  DLword gcscan1(register int probe);
 
 #ifdef TRACE
   printPC();
@@ -63,7 +62,6 @@ void OP_gcscan1(void) {
 /**********************************************************************/
 
 void OP_gcscan2(void) {
-  DLword gcscan2(register int probe);
 
 #ifdef TRACE
   printPC();
diff --git a/src/gcfinal.c b/src/gcfinal.c
index 6976697..b61e67a 100644
--- a/src/gcfinal.c
+++ b/src/gcfinal.c
@@ -115,8 +115,6 @@ struct buf {
 };
 #endif /* BYTESWAP */
 
-void printarrayblock(LispPTR base);
-
 /************* The following procedure is common !! **************************/
 
 int integerlength(unsigned int n) {
diff --git a/src/gcmain3.c b/src/gcmain3.c
index 1b04b5a..3d3978f 100644
--- a/src/gcmain3.c
+++ b/src/gcmain3.c
@@ -57,10 +57,6 @@ static char *id = "$Id: gcmain3.c,v 1.4 1999/05/31 23:35:31 sybalsky Exp $ Copyr
 #include "inlnPS2.h"
 #endif
 
-/* from gcscan.c */
-DLword gcscan1(register int probe);
-DLword gcscan2(register int probe);
-
 #define WORDSPERCELL 2
 #define MAXHTCNT 63
 #define PADDING 4
diff --git a/src/gcrcell.c b/src/gcrcell.c
index 79a2bb6..0aaff1f 100644
--- a/src/gcrcell.c
+++ b/src/gcrcell.c
@@ -108,8 +108,6 @@ unsigned todo_uses = 0;
 unsigned todo_misses = 0;
 unsigned todo_reads = 0;
 
-void freelistcell(LispPTR cell);
-
 /************************************************************************/
 /*									*/
 /*				g c r e c c e l l			*/
diff --git a/src/initkbd.c b/src/initkbd.c
index ddf68ee..5050c72 100644
--- a/src/initkbd.c
+++ b/src/initkbd.c
@@ -339,9 +339,6 @@ u_char DOSLispKeyMap_101[0x80] = {
     /* 6*/ 89,   62,   63,   46,   90,   91,   130,  129,  131,  132,  92,   61,   0xff, 0xff, 0xff, 0xff,
     /* 7*/ 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff};
 
-void set_kbd_iopointers();
-void keyboardtype(int fd);
-
 void init_keyboard(int flg) /* if 0 init else re-init */
 {
   int keytrans;
diff --git a/src/initsout.c b/src/initsout.c
index 4cf5a16..14d9507 100644
--- a/src/initsout.c
+++ b/src/initsout.c
@@ -68,11 +68,6 @@ DLword REPLACE_atom;
 #define GCENTRY DLword
 #endif
 
-/* forward references */
-void init_for_keyhandle(void);
-void init_for_bltchar(void);
-void init_for_bitblt(void);
-
 /************************************************************************/
 /*									*/
 /*	f i x p _ v a l u e			*/
diff --git a/src/keyevent.c b/src/keyevent.c
index c3e4146..b74f95a 100644
--- a/src/keyevent.c
+++ b/src/keyevent.c
@@ -403,8 +403,6 @@ getmore:
 #endif /* DOS */
 } /* end getsignaldata */
 
-void kb_trans(u_short keycode, u_short upflg);
-
 /************************************************************************/
 /*									*/
 /*			    k b _ e v e n t				*/
diff --git a/src/keylib.c b/src/keylib.c
index 09f3e2a..0e71fe8 100644
--- a/src/keylib.c
+++ b/src/keylib.c
@@ -32,11 +32,6 @@ static char *id = "$Id: keylib.c,v 1.4 2001/12/24 01:09:03 sybalsky Exp $ Copyri
 
 #define FAILURE2 -2
 
-unsigned long make_verification(unsigned long x, unsigned long y);
-unsigned long date_integer16(const char *date);
-unsigned long idate(const char *str);
-unsigned long modify(unsigned long hostid);
-
 /* ===========================================================================
         IMOD64BIT computs (IMOD X Y).
         X is a 64-bit integer; x1 is the higher 32-bit while x0 is the lower 32-bit.
diff --git a/src/keymaker.c b/src/keymaker.c
index 0be75e8..89a0089 100644
--- a/src/keymaker.c
+++ b/src/keymaker.c
@@ -26,6 +26,8 @@ static const char *id = "$Id: keymaker.c,v 1.3 1999/05/31 23:35:35 sybalsky Exp
 #include <string.h>
 #include <ctype.h>
 
+#include "keylibdefs.h"
+
 #define GOLDEN_RATIO_HACK -478700649
 #define floadbyte(number, pos) ((number >> pos) & 0xFFFF)
 #define hash_unhash(number, hashkey) \
@@ -41,11 +43,6 @@ static const char *id = "$Id: keymaker.c,v 1.3 1999/05/31 23:35:35 sybalsky Exp
 #define FAILURE2 -2
 #define FAILURE3 -3
 
-unsigned long make_verification(unsigned long x, unsigned long y);
-unsigned long date_integer16(char *date);
-unsigned long idate(char *str);
-unsigned long modify(unsigned long hostid);
-
 /************************************************************************/
 /*									*/
 /*			w r i t e r e s u l t s				*/
diff --git a/src/keytst.c b/src/keytst.c
index 8a769f5..0d7c59f 100644
--- a/src/keytst.c
+++ b/src/keytst.c
@@ -26,6 +26,8 @@ static char *id = "$Id: keytst.c,v 1.3 1999/05/31 23:35:36 sybalsky Exp $ Copyri
 #include <string.h>
 #include <ctype.h>
 
+#include "keylibdefs.h"
+
 #ifdef HPUX
 /* On HPUX, use the UNAME syscall to get hostid */
 #include <sys/utsname.h>
@@ -51,11 +53,6 @@ static char *id = "$Id: keytst.c,v 1.3 1999/05/31 23:35:36 sybalsky Exp $ Copyri
 #define FAILURE4 -4
 #define FAILURE99 -99
 
-unsigned long make_verification(unsigned long x, unsigned long y);
-unsigned long date_integer16(char *date);
-unsigned long idate(char *str);
-unsigned long modify(unsigned long hostid);
-
 /* =====================================================================
         KEYTESTER checks the input key string.
      It returns 0 if the keys are valid, otherwise it returns non-0.
diff --git a/src/loopsops.c b/src/loopsops.c
index a0ec46e..338b856 100644
--- a/src/loopsops.c
+++ b/src/loopsops.c
@@ -35,9 +35,6 @@ static char *id = "$Id: loopsops.c,v 1.3 1999/05/31 23:35:37 sybalsky Exp $ Copy
 #include "gcarraydefs.h"
 #include "gchtfinddefs.h"
 
-LispPTR lcfuncall(register unsigned int atom_index, register int argnum, register int bytenum);
-LispPTR get_package_atom(char *char_base, DLword charlen, char *packname, DLword packlen,
-                         int externalp);
 static char il_string[] = "INTERLISP";
 #define GET_IL_ATOM(string) get_package_atom((string), (sizeof(string) - 1), il_string, 9, NIL)
 
diff --git a/src/lsthandl.c b/src/lsthandl.c
index 74f89c5..4cb81a9 100644
--- a/src/lsthandl.c
+++ b/src/lsthandl.c
@@ -76,8 +76,6 @@ LispPTR fmemb(register LispPTR item, register LispPTR list) {
  */
 /**********************************************************************/
 
-extern struct cadr_cell cadr(LispPTR cell_adr); /** declaration only **/
-
 #define SAVE_ERROR_EXIT2(topcstk, tos) \
   {                                    \
     Scratch_CSTK = topcstk;            \
diff --git a/src/main.c b/src/main.c
index 6ac388f..857b019 100644
--- a/src/main.c
+++ b/src/main.c
@@ -345,9 +345,6 @@ const char *helpstring =
  -help        Print this message\n";
 #endif /* DOS */
 
-void start_lisp();
-void print_info_lines();
-
 /************************************************************************/
 /*									*/
 /*		     M A I N   E N T R Y   P O I N T			*/
diff --git a/src/mkatom.c b/src/mkatom.c
index ccf4936..e2cf0b7 100644
--- a/src/mkatom.c
+++ b/src/mkatom.c
@@ -267,7 +267,6 @@ LispPTR make_atom(char *char_base, DLword offset, DLword length, short int non_n
   extern DLword *AtomHT;
   extern DLword *Pnamespace;
   extern DLword *AtomSpace;
-  LispPTR parse_number(char *char_base, short int length);
 
   DLword hash;
   LispPTR hash_entry; /* hash entry contents */
diff --git a/src/mkcell.c b/src/mkcell.c
index 8e52d79..98d71a4 100644
--- a/src/mkcell.c
+++ b/src/mkcell.c
@@ -46,9 +46,6 @@ static char *id = "$Id: mkcell.c,v 1.3 1999/05/31 23:35:39 sybalsky Exp $ Copyri
 static LispPTR oldoldfree;
 static LispPTR oldfree;
 
-LispPTR *alloc_mdspage(register short int type);
-LispPTR initmdspage(register LispPTR *base, register DLword size, register LispPTR prev);
-
 LispPTR N_OP_createcell(register LispPTR tos) {
   register struct dtd *dtd68k;
   register DLword *ptr, *lastptr;
diff --git a/src/mvs.c b/src/mvs.c
index b4fe861..caa3814 100644
--- a/src/mvs.c
+++ b/src/mvs.c
@@ -47,9 +47,6 @@ static char *id = "$Id: mvs.c,v 1.3 1999/05/31 23:35:40 sybalsky Exp $ Copyright
 
 LispPTR MVLIST_index;
 
-LispPTR make_value_list(int argcount, LispPTR *argarray);
-void simulate_unbind(FX2 *frame, int unbind_count, FX2 *returner);
-
 /****************************************************************/
 /*                                                              */
 /*                            VALUES                            */
diff --git a/src/storage.c b/src/storage.c
index 012f5a5..f13faac 100644
--- a/src/storage.c
+++ b/src/storage.c
@@ -156,8 +156,6 @@ static void advance_array_seg(register unsigned int nxtpage)
 /* rare page num */
 {
   unsigned int ncellsleft;
-  LispPTR mergebackward(LispPTR base);
-  LispPTR makefreearrayblock(LispPTR block, DLword length);
 
 /* Called when 8Mb are exhausted,and we want to switch array space
  into the extended area(Secondary space),starting with nextpage.
@@ -206,7 +204,6 @@ static void advance_array_seg(register unsigned int nxtpage)
 
 /* DLword */
 static void advance_storagestate(DLword flg) {
-  LispPTR dremove(LispPTR x, LispPTR l);
 #ifdef DEBUG
   printf("STORAGEFULLSTATE is now set to %d \n", flg);
 #endif
@@ -226,8 +223,6 @@ static void advance_storagestate(DLword flg) {
 */
 /*****************************************************************/
 static void set_storage_state(void) {
-  LispPTR cons(LispPTR cons_car, LispPTR cons_cdr);
-
   if ((*MACHINETYPE_word & 0xffff) == KATANA) {
     if (InterfacePage->dl24bitaddressable != 0)
       *STORAGEFULLSTATE_word = S_POSITIVE | SFS_SWITCHABLE;
diff --git a/src/testtool.c b/src/testtool.c
index ce973c3..86e8d67 100644
--- a/src/testtool.c
+++ b/src/testtool.c
@@ -74,8 +74,6 @@ extern int URaid_currentFX;
 extern FX *URaid_FXarray[];
 extern int URaid_ArrMAXIndex;
 
-void print_package_name(int index);
-
 /************************************************************************/
 /*									*/
 /*			P R I N T _ A T O M N A M E			*/
diff --git a/src/unixcomm.c b/src/unixcomm.c
index f3dfc67..3ad1a5d 100644
--- a/src/unixcomm.c
+++ b/src/unixcomm.c
@@ -399,8 +399,6 @@ int FindAvailablePty(char *Master, char *Slave) {
 return (-1);
 }
 
-void WriteLispStringToPipe(LispPTR lispstr);
-
 /************************************************************************/
 /*                                                                      */
 /*  U n i x _ h a n d l e c o m m                                       */
diff --git a/src/vars3.c b/src/vars3.c
index baee5b9..86ada2f 100644
--- a/src/vars3.c
+++ b/src/vars3.c
@@ -23,10 +23,6 @@ static char *id = "$Id: vars3.c,v 1.4 2001/12/24 01:09:07 sybalsky Exp $ Copyrig
 #include "vars3defs.h"
 #include "car-cdrdefs.h"
 
-/* def. of car_cell moved to cell.h */
-
-struct cadr_cell cadr(LispPTR cell_adr);
-
 /*******************************************
 cadr
 
diff --git a/src/xc.c b/src/xc.c
index 53f21ca..f905678 100644
--- a/src/xc.c
+++ b/src/xc.c
@@ -158,8 +158,6 @@ register LispPTR tscache asm("bx");
 #define PVARL PVar
 #define IVARL IVar
 
-extern DLword *createcell68k(unsigned int type);
-
 #ifdef DOS
 extern unsigned char inchar;
 extern unsigned short kn;
diff --git a/src/z2.c b/src/z2.c
index 88c9133..62489e7 100644
--- a/src/z2.c
+++ b/src/z2.c
@@ -44,8 +44,6 @@ static char *id = "$Id: z2.c,v 1.3 1999/05/31 23:35:47 sybalsky Exp $ Copyright
 #include "conspagedefs.h"
 #include "vars3defs.h"
 
-struct cadr_cell cadr(LispPTR cell_adr);
-
 /*   N_OP_classoc()  OP 33Q  */
 LispPTR N_OP_classoc(LispPTR key, LispPTR list) {
   REGISTER struct cadr_cell cadr1;