382 |
#define MASK ~(~0 << 8) |
#define MASK ~(~0 << 8) |
383 |
#define WRITE_BYTEI(x,i) putc((((x) >> (i*SIZE_BYTE)) & MASK),fas_stream) |
#define WRITE_BYTEI(x,i) putc((((x) >> (i*SIZE_BYTE)) & MASK),fas_stream) |
384 |
|
|
385 |
|
#define PUTFIX(v_) Join(PUT,SIZEOF_LONG)(v_) |
386 |
|
#define GETFIX(v_) Join(GET,SIZEOF_LONG)(v_) |
387 |
|
|
388 |
#define PUT8(varx ) \ |
#define PUT8(varx ) \ |
389 |
do{unsigned long var= varx ; \ |
do{unsigned long var= varx ; \ |
390 |
DPRINTF("{8byte:varx= %ld}", var); \ |
DPRINTF("{8byte:varx= %ld}", var); \ |
668 |
|
|
669 |
static void |
static void |
670 |
write_fasd(object obj) |
write_fasd(object obj) |
671 |
{ int j,leng; |
{ fixnum j,leng; |
672 |
|
|
673 |
/* hook for writing other data in fasd file */ |
/* hook for writing other data in fasd file */ |
674 |
|
|
781 |
else |
else |
782 |
{PUT_OP(d_fixnum); |
{PUT_OP(d_fixnum); |
783 |
j=leng; |
j=leng; |
784 |
PUT4(j);} |
PUTFIX(j);} |
785 |
break; |
break; |
786 |
case DP(t_character:) |
case DP(t_character:) |
787 |
PUT_OP(d_standard_character); |
PUT_OP(d_standard_character); |
1267 |
return;} |
return;} |
1268 |
|
|
1269 |
case DP(d_fixnum:) |
case DP(d_fixnum:) |
1270 |
{int j; |
{fixnum j; |
1271 |
GET4(j); |
GETFIX(j); |
1272 |
*loc=make_fixnum(j); |
*loc=make_fixnum(j); |
1273 |
return;} |
return;} |
1274 |
case DP( d_bignum:) |
case DP( d_bignum:) |