From e5894e5b81b95ac07b8c5e7b216fb530b0dd2a84 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Sat, 14 Jan 2023 11:57:27 -0800
Subject: [PATCH] Remove unused variable 'before' in check_dtd_chain()

---
 src/testtool.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/testtool.c b/src/testtool.c
index 7ec32a6..1f49fd0 100644
--- a/src/testtool.c
+++ b/src/testtool.c
@@ -1235,7 +1235,6 @@ void dtd_chain(DLword type) {
 void check_dtd_chain(DLword type)
 {
   LispPTR next, onext;
-  LispPTR before;
 
   onext = 0;
   next = ((struct dtd *)GetDTD(type))->dtd_free;