diff options
Diffstat (limited to 'src/lisp.h')
| -rw-r--r-- | src/lisp.h | 11 |
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 |