1 files changed, 0 insertions, 11 deletions

diff --git a/src/lisp.h b/src/lisp.h
index fc924b7b1dc..ce6a3c58858 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2320,7 +2320,6 @@ extern Lisp_Object Qinteger;
 
 extern Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
 
-extern void circular_list_error (Lisp_Object) NO_RETURN;
 EXFUN (Finteractive_form, 1);
 EXFUN (Fbyteorder, 0);
 
@@ -3521,16 +3520,6 @@ extern void init_system_name (void);
       ? 0                                               \
       : (wrong_type_argument (Qlistp, (list))), 1))
 
-#define FOREACH(hare, list, tortoise, n)                \
-  for (tortoise = hare = (list), n = 0;                 \
-       !LIST_END_P (list, hare);                        \
-       (hare = XCDR (hare), ++n,                        \
-        ((n & 1) != 0                                   \
-         ? (tortoise = XCDR (tortoise),                 \
-            (EQ (hare, tortoise)                        \
-             && (circular_list_error ((list)), 1)))     \
-         : 0)))
-
 /* Use this to suppress gcc's `...may be used before initialized' warnings. */
 #ifdef lint
 # define IF_LINT(Code) Code