194 |
|
|
195 |
/* Thankfully we can do this bit of non-lispy c stuff since we pass by reference. FIXME*/ |
/* Thankfully we can do this bit of non-lispy c stuff since we pass by reference. FIXME*/ |
196 |
void |
void |
197 |
|
check_type_readtable_no_default(object *p) { |
198 |
|
|
199 |
|
if (type_of(*p) != t_readtable) |
200 |
|
*p = wrong_type_argument(sLreadtable, *p); |
201 |
|
|
202 |
|
} |
203 |
|
|
204 |
|
void |
205 |
check_type_readtable(object *p) { |
check_type_readtable(object *p) { |
206 |
|
|
207 |
if (*p==Cnil) |
if (*p==Cnil) |
208 |
*p=standard_readtable; |
*p=standard_readtable; |
209 |
if (type_of(*p) != t_readtable) |
check_type_readtable_no_default(p); |
|
*p = wrong_type_argument(sLreadtable, *p); |
|
210 |
|
|
211 |
} |
} |
212 |
|
|
474 |
DEF_ORDINARY("NULL",sLnull,LISP,""); |
DEF_ORDINARY("NULL",sLnull,LISP,""); |
475 |
DEF_ORDINARY("CONS",sLcons,LISP,""); |
DEF_ORDINARY("CONS",sLcons,LISP,""); |
476 |
DEF_ORDINARY("LIST",sLlist,LISP,""); |
DEF_ORDINARY("LIST",sLlist,LISP,""); |
477 |
|
DEF_ORDINARY("PROPER-LIST",siLproper_list,SI,""); |
478 |
DEF_ORDINARY("SYMBOL",sLsymbol,LISP,""); |
DEF_ORDINARY("SYMBOL",sLsymbol,LISP,""); |
479 |
DEF_ORDINARY("ARRAY",sLarray,LISP,""); |
DEF_ORDINARY("ARRAY",sLarray,LISP,""); |
480 |
DEF_ORDINARY("VECTOR",sLvector,LISP,""); |
DEF_ORDINARY("VECTOR",sLvector,LISP,""); |