37 |
object sSYB; |
object sSYB; |
38 |
object sSYZ; |
object sSYZ; |
39 |
|
|
40 |
void |
static void |
41 |
kwote_cdr(void) |
kwote_cdr(void) |
42 |
{ |
{ |
43 |
object x; |
object x; |
57 |
vs_head = make_cons(sLquote, vs_head); |
vs_head = make_cons(sLquote, vs_head); |
58 |
} |
} |
59 |
|
|
60 |
void |
static void |
61 |
kwote_car(void) |
kwote_car(void) |
62 |
{ |
{ |
63 |
object x; |
object x; |
87 |
APPEND the form should be applied to APPEND |
APPEND the form should be applied to APPEND |
88 |
NCONC the form should be applied to NCONC |
NCONC the form should be applied to NCONC |
89 |
*/ |
*/ |
90 |
int |
static int |
91 |
backq_cdr(object x) |
backq_cdr(object x) |
92 |
{ |
{ |
93 |
int a, d; |
int a, d; |
301 |
return(EVAL); |
return(EVAL); |
302 |
} |
} |
303 |
|
|
304 |
object |
static object |
305 |
backq(object x) |
backq(object x) |
306 |
{ |
{ |
307 |
int a; |
int a; |
314 |
return(vs_pop); |
return(vs_pop); |
315 |
} |
} |
316 |
|
|
317 |
object fLcomma_reader(object x0, object x1) |
static object fLcomma_reader(object x0, object x1) |
318 |
{ object w; |
{ object w; |
319 |
object in, c; |
object in, c; |
320 |
|
|
338 |
RETURN1(x0); |
RETURN1(x0); |
339 |
} |
} |
340 |
|
|
341 |
object fLbackquote_reader(object x0, object x1) |
static object fLbackquote_reader(object x0, object x1) |
342 |
{ |
{ |
343 |
object in; |
object in; |
344 |
|
|