From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Dec 1994 17:49:39 +0000 (+0000)
Subject: (wrong_type_argument): Use Lisp_Type_Limit.
X-Git-Tag: emacs-19.34~5608
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04be39934fa9dc8c14f557ee462ff2cf292ba4b1;p=emacs.git

(wrong_type_argument): Use Lisp_Type_Limit.
---

diff --git a/src/data.c b/src/data.c
index 24ee967d303..5a4c26e017c 100644
--- a/src/data.c
+++ b/src/data.c
@@ -104,7 +104,7 @@ wrong_type_argument (predicate, 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)
+      if ((unsigned int) XGCTYPE (value) >= Lisp_Type_Limit)
 	abort ();
 
       value = Fsignal (Qwrong_type_argument, Fcons (predicate, Fcons (value, Qnil)));