80 |
*p = wrong_type_argument(sLfloat, *p); |
*p = wrong_type_argument(sLfloat, *p); |
81 |
} |
} |
82 |
|
|
83 |
void |
/* static void */ |
84 |
check_type_or_integer_float(object *p) |
/* check_type_or_integer_float(object *p) */ |
85 |
{ |
/* { */ |
86 |
enum type t; |
/* enum type t; */ |
87 |
|
|
88 |
while ((t = type_of(*p)) != t_fixnum && t != t_bignum && |
/* while ((t = type_of(*p)) != t_fixnum && t != t_bignum && */ |
89 |
t != t_shortfloat && t != t_longfloat) |
/* t != t_shortfloat && t != t_longfloat) */ |
90 |
*p = wrong_type_argument(TSor_integer_float, *p); |
/* *p = wrong_type_argument(TSor_integer_float, *p); */ |
91 |
} |
/* } */ |
92 |
|
|
93 |
void |
void |
94 |
check_type_or_rational_float(object *p) |
check_type_or_rational_float(object *p) |
111 |
*p = wrong_type_argument(sLnumber, *p); |
*p = wrong_type_argument(sLnumber, *p); |
112 |
} |
} |
113 |
|
|
114 |
void |
/* static void */ |
115 |
check_type_bit(object *p) |
/* check_type_bit(object *p) */ |
116 |
{ |
/* { */ |
117 |
while (type_of(*p) != t_fixnum || |
/* while (type_of(*p) != t_fixnum || */ |
118 |
(fix((*p)) != 0 && fix((*p)) != 1)) |
/* (fix((*p)) != 0 && fix((*p)) != 1)) */ |
119 |
*p = wrong_type_argument(sLbit, *p); |
/* *p = wrong_type_argument(sLbit, *p); */ |
120 |
} |
/* } */ |
121 |
|
|
122 |
void |
void |
123 |
check_type_character(object *p) |
check_type_character(object *p) |
126 |
*p = wrong_type_argument(sLcharacter, *p); |
*p = wrong_type_argument(sLcharacter, *p); |
127 |
} |
} |
128 |
|
|
129 |
void |
/* static void */ |
130 |
check_type_string_char(object *p) |
/* check_type_string_char(object *p) */ |
131 |
{ |
/* { */ |
132 |
while (type_of(*p) != t_character || |
/* while (type_of(*p) != t_character || */ |
133 |
char_font((*p)) != 0 || |
/* char_font((*p)) != 0 || */ |
134 |
char_bits((*p)) != 0) |
/* char_bits((*p)) != 0) */ |
135 |
*p = wrong_type_argument(sLcharacter, *p); |
/* *p = wrong_type_argument(sLcharacter, *p); */ |
136 |
} |
/* } */ |
137 |
|
|
138 |
void |
void |
139 |
check_type_symbol(object *p) |
check_type_symbol(object *p) |
156 |
*p = wrong_type_argument(TSor_string_symbol, *p); |
*p = wrong_type_argument(TSor_string_symbol, *p); |
157 |
} |
} |
158 |
|
|
159 |
void |
/* static void */ |
160 |
check_type_or_symbol_string_package(object *p) |
/* check_type_or_symbol_string_package(object *p) */ |
161 |
{ |
/* { */ |
162 |
while (type_of(*p) != t_symbol && |
/* while (type_of(*p) != t_symbol && */ |
163 |
type_of(*p) != t_string && |
/* type_of(*p) != t_string && */ |
164 |
type_of(*p) != t_package) |
/* type_of(*p) != t_package) */ |
165 |
*p = wrong_type_argument(TSor_symbol_string_package, |
/* *p = wrong_type_argument(TSor_symbol_string_package, */ |
166 |
*p); |
/* *p); */ |
167 |
} |
/* } */ |
168 |
|
|
169 |
void |
void |
170 |
check_type_package(object *p) |
check_type_package(object *p) |
180 |
*p = wrong_type_argument(sLstring, *p); |
*p = wrong_type_argument(sLstring, *p); |
181 |
} |
} |
182 |
|
|
183 |
void |
/* static void */ |
184 |
check_type_bit_vector(object *p) |
/* check_type_bit_vector(object *p) */ |
185 |
{ |
/* { */ |
186 |
while (type_of(*p) != t_bitvector) |
/* while (type_of(*p) != t_bitvector) */ |
187 |
*p = wrong_type_argument(sLbit_vector, *p); |
/* *p = wrong_type_argument(sLbit_vector, *p); */ |
188 |
} |
/* } */ |
189 |
|
|
190 |
void |
void |
191 |
check_type_cons(object *p) |
check_type_cons(object *p) |
263 |
} |
} |
264 |
} |
} |
265 |
|
|
266 |
void |
/* static void */ |
267 |
check_type_vector(object *p) |
/* check_type_vector(object *p) */ |
268 |
{ |
/* { */ |
269 |
BEGIN: |
/* BEGIN: */ |
270 |
switch (type_of(*p)) { |
/* switch (type_of(*p)) { */ |
271 |
case t_vector: |
/* case t_vector: */ |
272 |
case t_string: |
/* case t_string: */ |
273 |
case t_bitvector: |
/* case t_bitvector: */ |
274 |
return; |
/* return; */ |
275 |
|
|
276 |
default: |
/* default: */ |
277 |
*p = wrong_type_argument(sLvector, *p); |
/* *p = wrong_type_argument(sLvector, *p); */ |
278 |
goto BEGIN; |
/* goto BEGIN; */ |
279 |
} |
/* } */ |
280 |
} |
/* } */ |
281 |
|
|
282 |
void |
void |
283 |
check_type(object x, int t) |
check_type(object x, int t) |