diff options
| author | Richard M. Stallman | 1994-12-25 17:49:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-25 17:49:39 +0000 |
| commit | 04be39934fa9dc8c14f557ee462ff2cf292ba4b1 (patch) | |
| tree | 0bad1aff1dfacc865ad5df2f2317eea5aeb3c583 /src | |
| parent | eeed793e62c2b1946028d73c9ef459d53286752e (diff) | |
| download | emacs-04be39934fa9dc8c14f557ee462ff2cf292ba4b1.tar.gz emacs-04be39934fa9dc8c14f557ee462ff2cf292ba4b1.zip | |
(wrong_type_argument): Use Lisp_Type_Limit.
Diffstat (limited to 'src')
| -rw-r--r-- | src/data.c | 2 |
1 files changed, 1 insertions, 1 deletions
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) | |||
| 104 | 104 | ||
| 105 | /* If VALUE is not even a valid Lisp object, abort here | 105 | /* If VALUE is not even a valid Lisp object, abort here |
| 106 | where we can get a backtrace showing where it came from. */ | 106 | where we can get a backtrace showing where it came from. */ |
| 107 | if ((unsigned int) XGCTYPE (value) > Lisp_Window + 2) | 107 | if ((unsigned int) XGCTYPE (value) >= Lisp_Type_Limit) |
| 108 | abort (); | 108 | abort (); |
| 109 | 109 | ||
| 110 | value = Fsignal (Qwrong_type_argument, Fcons (predicate, Fcons (value, Qnil))); | 110 | value = Fsignal (Qwrong_type_argument, Fcons (predicate, Fcons (value, Qnil))); |