201 |
*p = wrong_type_argument(sLstream, *p); |
*p = wrong_type_argument(sLstream, *p); |
202 |
} |
} |
203 |
|
|
204 |
|
/* Thankfully we can do this bit of non-lispy c stuff since we pass by reference. FIXME*/ |
205 |
void |
void |
206 |
check_type_readtable(object *p) |
check_type_readtable(object *p) { |
207 |
{ |
|
208 |
while (type_of(*p) != t_readtable) |
if (*p==Cnil) |
209 |
*p = wrong_type_argument(sLreadtable, *p); |
*p=standard_readtable; |
210 |
|
if (type_of(*p) != t_readtable) |
211 |
|
*p = wrong_type_argument(sLreadtable, *p); |
212 |
|
|
213 |
} |
} |
214 |
|
|
215 |
#ifdef UNIX |
#ifdef UNIX |