From 9f62aeb1857ab012244be221b1e6e13451fb394d Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 18 Jun 2011 17:09:24 -0700 Subject: [PATCH] * lisp.h (LIST_END_P): Remove unused macro and its bogus comment. --- src/ChangeLog | 1 + src/lisp.h | 18 ------------------ 2 files changed, 1 insertion(+), 18 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 1b4edb91d1a..2bf6cc82997 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -4,6 +4,7 @@ This didn't break anything, but it didn't help either. It's confusing to put a bogus integer in a place where the actual value does not matter. + (LIST_END_P): Remove unused macro and its bogus comment. 2011-06-18 Paul Eggert diff --git a/src/lisp.h b/src/lisp.h index e065bad10d0..54c509125f8 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -3590,24 +3590,6 @@ extern void init_system_name (void); #define SWITCH_ENUM_CAST(x) (x) -/* Loop over Lisp list LIST. Signal an error if LIST is not a proper - list, or if it contains circles. - - HARE and TORTOISE should be the names of Lisp_Object variables, and - N should be the name of an EMACS_INT variable declared in the - function where the macro is used. Each nested loop should use - its own variables. - - In the loop body, HARE is set to each cons of LIST, and N is the - length of the list processed so far. */ - -#define LIST_END_P(list, obj) \ - (NILP (obj) \ - ? 1 \ - : (CONSP (obj) \ - ? 0 \ - : (wrong_type_argument (Qlistp, (list))), 1)) - /* Use this to suppress gcc's warnings. */ #ifdef lint -- 2.39.2