diff --git a/src/bbtsub.c b/src/bbtsub.c
index af9d555..96a46e4 100644
--- a/src/bbtsub.c
+++ b/src/bbtsub.c
@@ -1281,6 +1281,8 @@ void bltchar(LispPTR *args)
       PUNT_TO_BLTCHAR;                          \
     }                                           \
   } while (0)
+#if 0
+/* see changecharset_display and sfffixy */
 #define FGetNum2(ptr, place)                    \
   do {                                          \
     if (((ptr)&SEGMASK) == S_POSITIVE) {        \
@@ -1291,6 +1293,7 @@ void bltchar(LispPTR *args)
       return (-1);                              \
     }                                           \
   } while (0)
+#endif
 
 LispPTR *TOPWDS68k;          /* Top of window stack's DS */
 LispPTR BLTCHAR_index;       /* Atom # for \PUNTBLTCHAR punt fn */
@@ -1728,7 +1731,6 @@ void ccfuncall(unsigned int atom_index, int argnum, int bytenum)
 void tedit_bltchar(LispPTR *args)
 {
 #define backwardflg 0
-#define displayflg 0
   DISPLAYDATA *displaydata68k;
   int right;
   PILOTBBT *pbt;
@@ -1775,7 +1777,6 @@ void tedit_bltchar(LispPTR *args)
     new_char_bitblt_code;
 #endif
   }
-#undef displayflg
 #undef backwardflg
 
 } /* end tedit_bltchar */
diff --git a/src/dbgtool.c b/src/dbgtool.c
index 7c114ef..70ee8f4 100644
--- a/src/dbgtool.c
+++ b/src/dbgtool.c
@@ -695,7 +695,6 @@ void sff(LispPTR laddr) { sf((FX *)NativeAligned4FromLAddr(laddr)); }
 /* nt(index): print function header and name table               */
 /*            in defcell of Atom index 'index'                   */
 /*****************************************************************/
-#define DUMPSIZE 40
 #define FNOVERHEADWORDS (8)
 
 void nt(LispPTR index)
diff --git a/src/gcfinal.c b/src/gcfinal.c
index 85ef9a6..d49f8fc 100644
--- a/src/gcfinal.c
+++ b/src/gcfinal.c
@@ -63,7 +63,6 @@
 #define Oddp(num) (((num % 2) != 0) ? 1 : 0)
 #define Evenp(num) (((num % 2) != 0) ? 0 : 1)
 #define STK_HI 1 /* This value also */
-#define WORDSPERCELL 2
 #define PADDING 4
 #define Boundp(frame_field) ((frame_field == 0) ? 1 : 0)
 #endif /* NEVER */
diff --git a/src/gcmain3.c b/src/gcmain3.c
index e010b19..b50ebd8 100644
--- a/src/gcmain3.c
+++ b/src/gcmain3.c
@@ -49,10 +49,7 @@
 #include "lsptypes.h"
 #include "stack.h"        // for Bframe, fnhead, frameex1, STK_BF, STK_FSB
 
-#define WORDSPERCELL 2
-#define MAXHTCNT 63
 #define PADDING 4
-#define FNOVERHEADWORDS 8
 #define ADD_OFFSET(ptr, dloffset) ((LispPTR *)(((DLword *)(ptr)) + (dloffset)))
 
 #ifdef BIGVM
@@ -60,7 +57,6 @@
 #define BF_FLAGS(value) ((unsigned int)(value) >> 29)
 #define PTR_BITS(entry) ((unsigned int)(entry)&POINTERMASK)
 #define GetSegnuminColl(entry1) (((entry1)&0xFFFE) >> 1)
-#define GetStkCnt(entry1) ((entry1) >> 16)
 #define StkCntIsZero(entry1) (!((entry1)&0xFFFF0000))
 #define StkrefP(entry1) ((entry1)&0x10000)
 #define SinglerefP(entry1) (((entry1)&0xFFFE0000) == 0x20000)
@@ -78,7 +74,6 @@
 #define BF_FLAGS(value) ((unsigned int)(value) >> 29)
 #define PTR_BITS(entry) ((unsigned int)((unsigned int)((entry) << 8) >> 8))
 #define GetSegnuminColl(entry1) ((entry1 & 0x01fe) >> 1)
-#define GetStkCnt(entry1) ((entry1 & 0x0fe00) >> 9)
 #define StkCntIsZero(entry1) (!((entry1)&0x0fe00))
 #define StkrefP(entry1) ((entry1)&0x0200)
 #define SinglerefP(entry1) (((entry1)&0xFC00) == 0x0400)
diff --git a/src/initdsp.c b/src/initdsp.c
index 9e1ed17..1630545 100644
--- a/src/initdsp.c
+++ b/src/initdsp.c
@@ -282,9 +282,6 @@ void flush_display_buffer(void) {
 /*	h  the height of the piece to display, in pixels		*/
 /*									*/
 /************************************************************************/
-#define BITEPER_DLBYTE 8
-#define DLBYTE_PERLINE (displaywidth / 8)
-
 void flush_display_region(int x, int y, int w, int h)
 {