465 |
if (NOT_OBJECT_ALIGNED(a)) |
if (NOT_OBJECT_ALIGNED(a)) |
466 |
error("Ct is not properly aligned"); |
error("Ct is not properly aligned"); |
467 |
|
|
468 |
a=(fixnum)Dotnil; |
/* a=(fixnum)Dotnil; */ |
469 |
if (NOT_OBJECT_ALIGNED(a)) |
/* if (NOT_OBJECT_ALIGNED(a)) */ |
470 |
error("Dotnil is not properly aligned"); |
/* error("Dotnil is not properly aligned"); */ |
471 |
|
|
472 |
if (NULL_OR_ON_C_STACK(&j) == 0 |
if (NULL_OR_ON_C_STACK(&j) == 0 |
473 |
|| NULL_OR_ON_C_STACK(Cnil) != 0 |
|| NULL_OR_ON_C_STACK(Cnil) != 0 |
479 |
|
|
480 |
gcl_init_alloc(); |
gcl_init_alloc(); |
481 |
|
|
482 |
Dotnil->c.c_cdr=Dotnil; |
/* Dotnil->c.c_cdr=Dotnil; */ |
483 |
Dotnil->s.s_dbind = Dotnil; |
/* Dotnil->s.s_dbind = Dotnil; */ |
484 |
Dotnil->s.s_sfdef = NOT_SPECIAL; |
/* Dotnil->s.s_sfdef = NOT_SPECIAL; */ |
485 |
Dotnil->s.s_fillp = 6; |
/* Dotnil->s.s_fillp = 6; */ |
486 |
Dotnil->s.s_self = "DOTNIL"; |
/* Dotnil->s.s_self = "DOTNIL"; */ |
487 |
Dotnil->s.s_gfdef = OBJNULL; |
/* Dotnil->s.s_gfdef = OBJNULL; */ |
488 |
Dotnil->s.s_plist = Cnil; |
/* Dotnil->s.s_plist = Cnil; */ |
489 |
Dotnil->s.s_hpack = Cnil; |
/* Dotnil->s.s_hpack = Cnil; */ |
490 |
Dotnil->s.s_stype = (short)stp_constant; |
/* Dotnil->s.s_stype = (short)stp_constant; */ |
491 |
Dotnil->s.s_mflag = FALSE; |
/* Dotnil->s.s_mflag = FALSE; */ |
492 |
Dotnil->s.s_hash = ihash_equal1(Dotnil,0); |
/* Dotnil->s.s_hash = ihash_equal1(Dotnil,0); */ |
493 |
|
|
494 |
Cnil->c.c_cdr=Cnil; |
Cnil->c.c_cdr=Cnil; |
495 |
Cnil->s.s_dbind = Cnil; |
Cnil->s.s_dbind = Cnil; |