174 |
return(~i & 1); |
return(~i & 1); |
175 |
} |
} |
176 |
|
|
177 |
void |
LFD(Lzerop)(void) |
|
Lzerop(void) |
|
178 |
{ |
{ |
179 |
check_arg(1); |
check_arg(1); |
180 |
check_type_number(&vs_base[0]); |
check_type_number(&vs_base[0]); |
184 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
185 |
} |
} |
186 |
|
|
187 |
void |
LFD(Lplusp)(void) |
|
Lplusp(void) |
|
188 |
{ |
{ |
189 |
check_arg(1); |
check_arg(1); |
190 |
check_type_or_rational_float(&vs_base[0]); |
check_type_or_rational_float(&vs_base[0]); |
194 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
195 |
} |
} |
196 |
|
|
197 |
void |
LFD(Lminusp)(void) |
|
Lminusp(void) |
|
198 |
{ |
{ |
199 |
check_arg(1); |
check_arg(1); |
200 |
check_type_or_rational_float(&vs_base[0]); |
check_type_or_rational_float(&vs_base[0]); |
204 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
205 |
} |
} |
206 |
|
|
207 |
void |
LFD(Loddp)(void) |
|
Loddp(void) |
|
208 |
{ |
{ |
209 |
check_arg(1); |
check_arg(1); |
210 |
check_type_integer(&vs_base[0]); |
check_type_integer(&vs_base[0]); |
214 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
215 |
} |
} |
216 |
|
|
217 |
void |
LFD(Levenp)(void) |
|
Levenp(void) |
|
218 |
{ |
{ |
219 |
check_arg(1); |
check_arg(1); |
220 |
check_type_integer(&vs_base[0]); |
check_type_integer(&vs_base[0]); |