From ba1b340988ab79a1173f402f8f66bff06e0dd7c5 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 1 Jan 2019 11:41:16 -0800 Subject: [PATCH] Be consistent about list length fixnum overflow * src/fns.c (Flength, Fproper_list_p): Use overflow_error to report the (typically impossible) fixnum overflow. --- src/fns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fns.c b/src/fns.c index e40eb2e54a4..7791310a313 100644 --- a/src/fns.c +++ b/src/fns.c @@ -118,7 +118,7 @@ To get the number of bytes, use `string-bytes'. */) i++; CHECK_LIST_END (sequence, sequence); if (MOST_POSITIVE_FIXNUM < i) - error ("List too long"); + overflow_error (); val = make_fixnum (i); } else if (NILP (sequence)) @@ -161,7 +161,7 @@ A proper list is neither circular nor dotted (i.e., its last cdr is nil). */ if (!NILP (last_tail)) return Qnil; if (MOST_POSITIVE_FIXNUM < len) - xsignal0 (Qoverflow_error); + overflow_error (); return make_fixnum (len); } -- 2.39.5