# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 788377779 0
# Node ID 8b95a9a6d466c32848cc6ae987248b7836f2ea16
# Parent  f59aa6fddad62b24ec3c3166834a7fb4c0923e24
(wrong_type_argument): Use Lisp_Type_Limit.

diff -r f59aa6fddad6 -r 8b95a9a6d466 src/data.c
--- a/src/data.c	Sun Dec 25 17:49:06 1994 +0000
+++ b/src/data.c	Sun Dec 25 17:49:39 1994 +0000
@@ -104,7 +104,7 @@
 
       /* 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)));