From e1351ff7c37a80c5822333264e5a82818bc588d8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 25 Dec 1994 17:28:51 +0000 Subject: [PATCH] (wrong_type_argument): Abort if VALUE is invalid Lisp object. --- src/data.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/data.c b/src/data.c index 2f41d4ee60f..24ee967d303 100644 --- a/src/data.c +++ b/src/data.c @@ -101,6 +101,12 @@ wrong_type_argument (predicate, value) if (INTEGERP (value) && EQ (predicate, Qstringp)) return Fnumber_to_string (value); } + + /* If VALUE is not even a valid Lisp object, abort here + where we can get a backtrace showing where it came from. */ + if ((unsigned int) XGCTYPE (value) > Lisp_Window + 2) + abort (); + value = Fsignal (Qwrong_type_argument, Fcons (predicate, Fcons (value, Qnil))); tem = call1 (predicate, value); } -- 2.39.5