From 6cad51735fd1da382a03e97815beb0d6510e5ebf Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Wed, 11 Aug 2021 11:37:15 -0700
Subject: [PATCH] Fix errors preventing the use of -DDTDDEBUG for mkcell.c
 (#389)

---
 inc/testtooldefs.h | 1 +
 src/mkcell.c       | 3 +++
 src/testtool.c     | 4 ----
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/inc/testtooldefs.h b/inc/testtooldefs.h
index 1f84f1a..dab56db 100644
--- a/inc/testtooldefs.h
+++ b/inc/testtooldefs.h
@@ -33,6 +33,7 @@ LispPTR *MakeAtom68k(char *string);
 void GETTOPVAL(char *string);
 void all_stack_dump(DLword start, DLword end, DLword silent);
 void dtd_chain(DLword type);
+void check_dtd_chain(DLword type);
 void Trace_FNCall(int numargs, int atomindex, int arg1, LispPTR *tos);
 void Trace_APPLY(int atomindex);
 #endif
diff --git a/src/mkcell.c b/src/mkcell.c
index 7c87632..a156d68 100644
--- a/src/mkcell.c
+++ b/src/mkcell.c
@@ -41,6 +41,9 @@
 #include "allocmdsdefs.h"
 #include "commondefs.h"
 #include "gchtfinddefs.h"
+#ifdef DTDDEBUG
+#include "testtooldefs.h"
+#endif
 
 static LispPTR oldoldfree;
 static LispPTR oldfree;
diff --git a/src/testtool.c b/src/testtool.c
index c0347ab..a489e70 100644
--- a/src/testtool.c
+++ b/src/testtool.c
@@ -1241,8 +1241,6 @@ void dtd_chain(DLword type) {
 
 } /*  dtd_chain end **/
 
-#ifdef DTDDEBUG
-
 void check_dtd_chain(DLword type)
 {
   register LispPTR next, onext;
@@ -1270,8 +1268,6 @@ void check_dtd_chain(DLword type)
   }
 }
 
-#endif
-
 /************************************************************************/
 /*									*/
 /*			T R A C E _ F N C A L L				*/