Commit e1351ff7 authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent 65135ec2
......@@ -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);
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment