37 |
object sSYB; |
object sSYB; |
38 |
object sSYZ; |
object sSYZ; |
39 |
|
|
40 |
|
void |
41 |
|
kwote_cdr(void) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
kwote_cdr() |
|
42 |
{ |
{ |
43 |
object x; |
object x; |
44 |
|
|
57 |
vs_head = make_cons(sLquote, vs_head); |
vs_head = make_cons(sLquote, vs_head); |
58 |
} |
} |
59 |
|
|
60 |
kwote_car() |
void |
61 |
|
kwote_car(void) |
62 |
{ |
{ |
63 |
object x; |
object x; |
64 |
|
|
88 |
NCONC the form should be applied to NCONC |
NCONC the form should be applied to NCONC |
89 |
*/ |
*/ |
90 |
int |
int |
91 |
backq_cdr(x) |
backq_cdr(object x) |
|
object x; |
|
92 |
{ |
{ |
93 |
int a, d; |
int a, d; |
94 |
|
|
109 |
if (d == QUOTE) |
if (d == QUOTE) |
110 |
switch (a) { |
switch (a) { |
111 |
case QUOTE: |
case QUOTE: |
112 |
vs_pop; |
vs_popp; |
113 |
vs_head = x; |
vs_head = x; |
114 |
return(QUOTE); |
return(QUOTE); |
115 |
|
|
131 |
|
|
132 |
case APPEND: |
case APPEND: |
133 |
if (vs_head == Cnil) { |
if (vs_head == Cnil) { |
134 |
vs_pop; |
vs_popp; |
135 |
return(EVAL); |
return(EVAL); |
136 |
} |
} |
137 |
kwote_cdr(); |
kwote_cdr(); |
140 |
|
|
141 |
case NCONC: |
case NCONC: |
142 |
if (vs_head == Cnil) { |
if (vs_head == Cnil) { |
143 |
vs_pop; |
vs_popp; |
144 |
return(EVAL); |
return(EVAL); |
145 |
} |
} |
146 |
kwote_cdr(); |
kwote_cdr(); |
234 |
|
|
235 |
default: |
default: |
236 |
error("backquote botch"); |
error("backquote botch"); |
237 |
|
return(0); |
238 |
} |
} |
239 |
} |
} |
240 |
|
|
249 |
into the outer form |
into the outer form |
250 |
*/ |
*/ |
251 |
int |
int |
252 |
backq_car(x) |
backq_car(object x) |
|
object x; |
|
253 |
{ |
{ |
254 |
int d; |
int d; |
255 |
|
|
302 |
} |
} |
303 |
|
|
304 |
object |
object |
305 |
backq(x) |
backq(object x) |
|
object x; |
|
306 |
{ |
{ |
307 |
int a; |
int a; |
308 |
|
|
314 |
return(vs_pop); |
return(vs_pop); |
315 |
} |
} |
316 |
|
|
317 |
object fLcomma_reader(x0,x1) |
object fLcomma_reader(object x0, object x1) |
|
object x0,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(x0,x1) |
object fLbackquote_reader(object x0, object x1) |
|
object x0,x1; |
|
342 |
{ |
{ |
343 |
object in; |
object in; |
344 |
|
|
367 |
DEF_ORDINARY("VECTOR",sLvector,LISP,""); |
DEF_ORDINARY("VECTOR",sLvector,LISP,""); |
368 |
|
|
369 |
|
|
370 |
init_backq() |
void |
371 |
|
init_backq(void) |
372 |
{ |
{ |
373 |
object r; |
object r; |
374 |
|
|