From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Dec 1994 17:28:51 +0000 (+0000)
Subject: (wrong_type_argument): Abort if VALUE is invalid Lisp object.
X-Git-Tag: emacs-19.34~5611
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e1351ff7c37a80c5822333264e5a82818bc588d8;p=emacs.git

(wrong_type_argument): Abort if VALUE is invalid Lisp object.
---

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);
     }