2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_restart.h" |
#include "clcs_restart.h" |
4 |
void init_clcs_restart(){do_init(VV);} |
void init_clcs_restart(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2184 */ |
/* local entry for function progn 'compile2186 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
18 |
base[0]=base[0]; |
base[0]=base[0]; |
19 |
return Cnil; |
return Cnil; |
20 |
} |
} |
21 |
/* local entry for function progn 'compile2196 */ |
/* local entry for function progn 'compile2198 */ |
22 |
|
|
23 |
static object LI2() |
static object LI2() |
24 |
|
|
25 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
26 |
goto TTL; |
goto TTL; |
27 |
TTL:; |
TTL:; |
28 |
base[0]= VV[0]; |
if(!((VV[0])->s.s_dbind!=OBJNULL)){ |
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
29 |
goto T4;} |
goto T4;} |
30 |
goto T3; |
goto T3; |
31 |
goto T4; |
goto T4; |
33 |
vs_base=vs_top; |
vs_base=vs_top; |
34 |
Lmake_hash_table(); |
Lmake_hash_table(); |
35 |
vs_top=sup; |
vs_top=sup; |
36 |
setq(VV[0],vs_base[0]); |
(VV[0]->s.s_dbind)= vs_base[0]; |
37 |
goto T3; |
goto T3; |
38 |
T3:; |
T3:; |
39 |
{object V2 = Cnil; |
{object V2 = Cnil; |
41 |
base[0]=base[0]; |
base[0]=base[0]; |
42 |
return Cnil; |
return Cnil; |
43 |
} |
} |
44 |
/* local entry for function progn 'compile2209 */ |
/* local entry for function progn 'compile2211 */ |
45 |
|
|
46 |
static object LI3() |
static object LI3() |
47 |
|
|
52 |
VMR3(V3)} |
VMR3(V3)} |
53 |
return Cnil; |
return Cnil; |
54 |
} |
} |
55 |
/* local entry for function progn 'compile2225 */ |
/* local entry for function progn 'compile2227 */ |
56 |
|
|
57 |
static object LI4() |
static object LI4() |
58 |
|
|
68 |
base[0]=base[0]; |
base[0]=base[0]; |
69 |
return Cnil; |
return Cnil; |
70 |
} |
} |
71 |
/* local entry for function progn 'compile2237 */ |
/* local entry for function progn 'compile2239 */ |
72 |
|
|
73 |
static object LI5() |
static object LI5() |
74 |
|
|
75 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
76 |
goto TTL; |
goto TTL; |
77 |
TTL:; |
TTL:; |
78 |
base[0]= VV[1]; |
if(!((VV[1])->s.s_dbind!=OBJNULL)){ |
79 |
vs_top=(vs_base=base+0)+1; |
goto T11;} |
80 |
Lboundp(); |
goto T10; |
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T12;} |
|
|
goto T11; |
|
|
goto T12; |
|
|
T12:; |
|
|
setq(VV[1],small_fixnum(-1)); |
|
81 |
goto T11; |
goto T11; |
82 |
T11:; |
T11:; |
83 |
|
(VV[1]->s.s_dbind)= small_fixnum(-1); |
84 |
|
goto T10; |
85 |
|
T10:; |
86 |
{object V5 = Cnil; |
{object V5 = Cnil; |
87 |
VMR5(V5)} |
VMR5(V5)} |
|
base[0]=base[0]; |
|
88 |
return Cnil; |
return Cnil; |
89 |
} |
} |
90 |
/* local entry for function progn 'compile2250 */ |
/* local entry for function progn 'compile2252 */ |
91 |
|
|
92 |
static object LI6() |
static object LI6() |
93 |
|
|
107 |
goto TTL; |
goto TTL; |
108 |
TTL:;{object V9; |
TTL:;{object V9; |
109 |
base[0]= (V8); |
base[0]= (V8); |
110 |
base[1]= symbol_value(VV[0]); |
base[1]= (VV[0]->s.s_dbind); |
111 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
112 |
Lgethash(); |
Lgethash(); |
113 |
vs_top=sup; |
vs_top=sup; |
114 |
V9= vs_base[0]; |
V9= vs_base[0]; |
115 |
if(V9==Cnil)goto T17; |
if(V9==Cnil)goto T15; |
116 |
{object V10 = V9; |
{object V10 = V9; |
117 |
VMR7(V10)} |
VMR7(V10)} |
118 |
goto T17; |
goto T15; |
119 |
T17:;} |
T15:;} |
120 |
{object V12; |
{object V12; |
121 |
object V13; |
object V13; |
122 |
V12= symbol_value(VV[0]); |
V12= (VV[0]->s.s_dbind); |
123 |
setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1))); |
(VV[1]->s.s_dbind)= number_plus((VV[1]->s.s_dbind),small_fixnum(1)); |
124 |
V13= symbol_value(VV[1]); |
V13= (VV[1]->s.s_dbind); |
125 |
base[1]= V8; |
base[1]= V8; |
126 |
base[2]= (V12); |
base[2]= (V12); |
127 |
base[3]= (V13); |
base[3]= (V13); |
138 |
static void L8() |
static void L8() |
139 |
{register object *base=vs_base; |
{register object *base=vs_base; |
140 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
141 |
vs_reserve(VM8); |
vs_check; |
142 |
{object V15; |
{object V15; |
143 |
register object V16; |
register object V16; |
|
check_arg(2); |
|
144 |
V15=(base[0]); |
V15=(base[0]); |
145 |
V16=(base[1]); |
V16=(base[1]); |
146 |
vs_top=sup; |
vs_top=sup; |
150 |
register object V18; |
register object V18; |
151 |
V17= (V15); |
V17= (V15); |
152 |
V18= Cnil; |
V18= Cnil; |
153 |
goto T28; |
goto T26; |
154 |
T28:; |
T26:; |
155 |
if(((V17))==Cnil){ |
if(((V17))==Cnil){ |
156 |
goto T30;} |
goto T28;} |
157 |
{register object x= car((V17)),V19= (V16); |
{register object x= CMPcar((V17)),V19= (V16); |
158 |
while(!endp(V19)) |
while(V19!=Cnil) |
159 |
if(eql(x,V19->c.c_car)){ |
if(eql(x,V19->c.c_car)){ |
160 |
goto T29; |
goto T27; |
161 |
}else V19=V19->c.c_cdr;} |
}else V19=V19->c.c_cdr;} |
162 |
goto T30; |
goto T28; |
163 |
T30:; |
T28:; |
164 |
base[2]= nreverse((V18)); |
base[2]= nreverse((V18)); |
165 |
base[3]= (V17); |
base[3]= (V17); |
166 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
167 |
return; |
return; |
168 |
goto T29; |
goto T27; |
169 |
T29:; |
T27:; |
170 |
{object V20; |
{object V20; |
171 |
V20= cddr((V17)); |
V20= CMPcddr((V17)); |
172 |
V18= listA(3,cadr((V17)),car((V17)),(V18)); |
V18= listA(3,CMPcadr((V17)),CMPcar((V17)),(V18)); |
173 |
V17= (V20);} |
V17= (V20);} |
174 |
goto T28;} |
goto T26;} |
175 |
} |
} |
176 |
} |
} |
177 |
/* macro definition for WITH-KEYWORD-PAIRS */ |
/* macro definition for WITH-KEYWORD-PAIRS */ |
179 |
static void L9() |
static void L9() |
180 |
{register object *base=vs_base; |
{register object *base=vs_base; |
181 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
182 |
vs_reserve(VM9); |
vs_check; |
|
check_arg(2); |
|
183 |
vs_top=sup; |
vs_top=sup; |
184 |
{object V21=base[0]->c.c_cdr; |
{object V21=base[0]->c.c_cdr; |
|
if(endp(V21))invalid_macro_call(); |
|
185 |
{object V22= (V21->c.c_car); |
{object V22= (V21->c.c_car); |
|
if(endp(V22))invalid_macro_call(); |
|
186 |
base[2]= (V22->c.c_car); |
base[2]= (V22->c.c_car); |
187 |
V22=V22->c.c_cdr; |
V22=V22->c.c_cdr; |
|
if(endp(V22))invalid_macro_call(); |
|
188 |
base[3]= (V22->c.c_car); |
base[3]= (V22->c.c_car); |
189 |
V22=V22->c.c_cdr; |
V22=V22->c.c_cdr; |
190 |
if(endp(V22)){ |
if(endp(V22)){ |
191 |
base[4]= Cnil; |
base[4]= Cnil; |
192 |
} else { |
} else { |
193 |
base[4]= (V22->c.c_car); |
base[4]= (V22->c.c_car);}} |
|
V22=V22->c.c_cdr;} |
|
|
if(!endp(V22))invalid_macro_call();} |
|
194 |
V21=V21->c.c_cdr; |
V21=V21->c.c_cdr; |
195 |
base[5]= V21;} |
base[5]= V21;} |
196 |
{register object V23; |
{register object V23; |
197 |
{register object x= VV[2],V24= base[2]; |
{register object x= VV[2],V24= base[2]; |
198 |
while(!endp(V24)) |
while(V24!=Cnil) |
199 |
if(eql(x,V24->c.c_car)){ |
if(eql(x,V24->c.c_car)){ |
200 |
V23= V24; |
V23= V24; |
201 |
goto T42; |
goto T40; |
202 |
}else V24=V24->c.c_cdr; |
}else V24=V24->c.c_cdr; |
203 |
V23= Cnil;} |
V23= Cnil;} |
204 |
goto T42; |
goto T40; |
205 |
T42:; |
T40:; |
206 |
if(((long)length((V23)))==(2)){ |
if(((long)length((V23)))==(2)){ |
207 |
goto T43;} |
goto T41;} |
208 |
base[6]= VV[3]; |
base[6]= VV[3]; |
209 |
base[7]= (V23); |
base[7]= (V23); |
210 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
211 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
212 |
vs_top=sup; |
vs_top=sup; |
213 |
goto T43; |
goto T41; |
214 |
T43:; |
T41:; |
215 |
{object V25; |
{object V25; |
216 |
object V26; |
object V26; |
217 |
object V27; |
object V27; |
223 |
V25= vs_base[0]; |
V25= vs_base[0]; |
224 |
if(base[4]!=Cnil){ |
if(base[4]!=Cnil){ |
225 |
V26= base[4]; |
V26= base[4]; |
226 |
goto T51;} |
goto T49;} |
227 |
vs_base=vs_top; |
vs_base=vs_top; |
228 |
Lgensym(); |
Lgensym(); |
229 |
vs_top=sup; |
vs_top=sup; |
230 |
V26= vs_base[0]; |
V26= vs_base[0]; |
231 |
goto T51; |
goto T49; |
232 |
T51:; |
T49:; |
233 |
V27= cadr((V23)); |
V27= CMPcadr((V23)); |
234 |
{object V28; |
{object V28; |
235 |
{object V29; |
{object V29; |
236 |
object V30= (V25); |
object V30= (V25); |
237 |
if(endp(V30)){ |
if(V30==Cnil){ |
238 |
V28= Cnil; |
V28= Cnil; |
239 |
goto T53;} |
goto T51;} |
240 |
base[6]=V29=MMcons(Cnil,Cnil); |
base[6]=V29=MMcons(Cnil,Cnil); |
241 |
goto T54; |
goto T52; |
242 |
T54:; |
T52:; |
243 |
base[7]= coerce_to_string((V30->c.c_car)); |
base[7]= coerce_to_string((V30->c.c_car)); |
244 |
base[9]= VV[4]; |
base[9]= VV[4]; |
245 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
250 |
Lintern(); |
Lintern(); |
251 |
vs_top=sup; |
vs_top=sup; |
252 |
(V29->c.c_car)= vs_base[0]; |
(V29->c.c_car)= vs_base[0]; |
253 |
V30=MMcdr(V30); |
if((V30=MMcdr(V30))==Cnil){ |
|
if(endp(V30)){ |
|
254 |
V28= base[6]; |
V28= base[6]; |
255 |
goto T53;} |
goto T51;} |
256 |
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
V29=MMcdr(V29)=MMcons(Cnil,Cnil); |
257 |
goto T54;} |
goto T52;} |
258 |
goto T53; |
goto T51; |
259 |
T53:; |
T51:; |
260 |
V32= list(2,(V26),(V27)); |
V32= list(2,(V26),(V27)); |
261 |
V33= list(3,VV[6],base[3],list(2,VV[7],(V28))); |
V33= list(3,VV[6],base[3],list(2,VV[7],(V28))); |
262 |
{object V35; |
{object V35; |
263 |
object V36= (V25); |
object V36= (V25); |
264 |
object V37= (V28); |
object V37= (V28); |
265 |
if(endp(V36)||endp(V37)){ |
if(V36==Cnil||V37==Cnil){ |
266 |
V34= Cnil; |
V34= Cnil; |
267 |
goto T59;} |
goto T57;} |
268 |
base[6]=V35=MMcons(Cnil,Cnil); |
base[6]=V35=MMcons(Cnil,Cnil); |
269 |
goto T60; |
goto T58; |
270 |
T60:; |
T58:; |
271 |
(V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car))); |
(V35->c.c_car)= list(2,(V36->c.c_car),list(3,VV[9],(V26),(V37->c.c_car))); |
272 |
V36=MMcdr(V36); |
if((V36=MMcdr(V36))==Cnil||(V37=MMcdr(V37))==Cnil){ |
|
V37=MMcdr(V37); |
|
|
if(endp(V36)||endp(V37)){ |
|
273 |
V34= base[6]; |
V34= base[6]; |
274 |
goto T59;} |
goto T57;} |
275 |
V35=MMcdr(V35)=MMcons(Cnil,Cnil); |
V35=MMcdr(V35)=MMcons(Cnil,Cnil); |
276 |
goto T60;} |
goto T58;} |
277 |
goto T59; |
goto T57; |
278 |
T59:; |
T57:; |
279 |
base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5])); |
base[6]= list(4,VV[5],/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,listA(3,VV[8],V34,base[5])); |
280 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
281 |
return;}}} |
return;}}} |
282 |
} |
} |
283 |
/* local entry for function progn 'compile2351 */ |
/* local entry for function progn 'compile2353 */ |
284 |
|
|
285 |
static object LI10() |
static object LI10() |
286 |
|
|
296 |
base[0]=base[0]; |
base[0]=base[0]; |
297 |
return Cnil; |
return Cnil; |
298 |
} |
} |
299 |
/* local entry for function progn 'compile2363 */ |
/* local entry for function progn 'compile2365 */ |
300 |
|
|
301 |
static object LI11() |
static object LI11() |
302 |
|
|
303 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
304 |
goto TTL; |
goto TTL; |
305 |
TTL:; |
TTL:; |
306 |
base[0]= VV[10]; |
if(!((VV[10])->s.s_dbind!=OBJNULL)){ |
307 |
vs_top=(vs_base=base+0)+1; |
goto T63;} |
308 |
Lboundp(); |
goto T62; |
309 |
vs_top=sup; |
goto T63; |
310 |
if((vs_base[0])==Cnil){ |
T63:; |
311 |
goto T65;} |
(VV[10]->s.s_dbind)= Cnil; |
312 |
goto T64; |
goto T62; |
313 |
goto T65; |
T62:; |
|
T65:; |
|
|
setq(VV[10],Cnil); |
|
|
goto T64; |
|
|
T64:; |
|
314 |
{object V41 = Cnil; |
{object V41 = Cnil; |
315 |
VMR11(V41)} |
VMR11(V41)} |
|
base[0]=base[0]; |
|
316 |
return Cnil; |
return Cnil; |
317 |
} |
} |
318 |
/* local entry for function progn 'compile2376 */ |
/* local entry for function progn 'compile2378 */ |
319 |
|
|
320 |
static object LI12() |
static object LI12() |
321 |
|
|
335 |
{object V43; |
{object V43; |
336 |
va_start(ap,first); |
va_start(ap,first); |
337 |
narg = narg - 0; |
narg = narg - 0; |
338 |
if (narg <= 0) goto T70; |
if (narg <= 0) goto T67; |
339 |
else { |
else { |
340 |
V43= first;} |
V43= first;} |
341 |
--narg; goto T71; |
--narg; goto T68; |
342 |
goto T70; |
goto T67; |
343 |
T70:; |
T67:; |
344 |
V43= Cnil; |
V43= Cnil; |
345 |
goto T71; |
goto T68; |
346 |
T71:; |
T68:; |
347 |
base[1]= symbol_value(VV[10]); |
base[1]= (VV[10]->s.s_dbind); |
348 |
{object V45; |
{object V45; |
349 |
object V46= base[1]; |
object V46= base[1]; |
350 |
if(endp(V46)){ |
if(V46==Cnil){ |
351 |
V44= Cnil; |
V44= Cnil; |
352 |
goto T73;} |
goto T70;} |
353 |
base[0]=V45=MMcons(Cnil,Cnil); |
base[0]=V45=MMcons(Cnil,Cnil); |
354 |
goto T74; |
goto T71; |
355 |
T74:; |
T71:; |
356 |
base[2]= (V46->c.c_car); |
base[2]= (V46->c.c_car); |
357 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
358 |
Lcopy_list(); |
Lcopy_list(); |
359 |
vs_top=sup; |
vs_top=sup; |
360 |
(V45->c.c_cdr)= vs_base[0]; |
(V45->c.c_cdr)= vs_base[0]; |
361 |
{object cdr_V45=MMcdr(V45);while(!endp(cdr_V45)) {cdr_V45=MMcdr(cdr_V45);V45=MMcdr(V45);}} |
while(MMcdr(V45)!=Cnil)V45=MMcdr(V45); |
362 |
V46=MMcdr(V46); |
if((V46=MMcdr(V46))==Cnil){ |
|
if(endp(V46)){ |
|
363 |
base[0]=base[0]->c.c_cdr; |
base[0]=base[0]->c.c_cdr; |
364 |
V44= base[0]; |
V44= base[0]; |
365 |
goto T73;} |
goto T70;} |
366 |
goto T74;} |
goto T71;} |
367 |
goto T73; |
goto T70; |
368 |
T73:; |
T70:; |
369 |
V47= (*(LnkLI71))(); |
V47= (*(LnkLI71))(); |
370 |
{object V48 = nconc(V44,/* INLINE-ARGS */V47); |
{object V48 = nconc(V44,/* INLINE-ARGS */V47); |
371 |
VMR13(V48)} |
VMR13(V48)} |
378 |
static void L14() |
static void L14() |
379 |
{register object *base=vs_base; |
{register object *base=vs_base; |
380 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
381 |
vs_reserve(VM14); |
vs_check; |
382 |
{object V49; |
{object V49; |
383 |
object V50; |
object V50; |
384 |
object V51; |
object V51; |
|
check_arg(3); |
|
385 |
V49=(base[0]); |
V49=(base[0]); |
386 |
V50=(base[1]); |
V50=(base[1]); |
387 |
V51=(base[2]); |
V51=(base[2]); |
388 |
vs_top=sup; |
vs_top=sup; |
389 |
goto TTL; |
goto TTL; |
390 |
TTL:; |
TTL:; |
391 |
if((symbol_value(VV[11]))==Cnil){ |
if(((VV[11]->s.s_dbind))==Cnil){ |
392 |
goto T78;} |
goto T75;} |
393 |
base[3]= (V50); |
base[3]= (V50); |
394 |
base[4]= VV[12]; |
base[4]= VV[12]; |
395 |
base[6]= (V49); |
base[6]= (V49); |
401 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
402 |
Lformat(); |
Lformat(); |
403 |
return; |
return; |
404 |
goto T78; |
goto T75; |
405 |
T78:; |
T75:; |
406 |
base[3]= (V49); |
base[3]= (V49); |
407 |
base[4]= (V50); |
base[4]= (V50); |
408 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
410 |
return; |
return; |
411 |
} |
} |
412 |
} |
} |
413 |
/* local entry for function progn 'compile2416 */ |
/* local entry for function progn 'compile2418 */ |
414 |
|
|
415 |
static object LI15() |
static object LI15() |
416 |
|
|
471 |
base[0]=base[0]; |
base[0]=base[0]; |
472 |
return Cnil;} |
return Cnil;} |
473 |
}} |
}} |
474 |
/* local entry for function progn 'compile2436 */ |
/* local entry for function progn 'compile2438 */ |
475 |
|
|
476 |
static object LI17() |
static object LI17() |
477 |
|
|
482 |
VMR17(V58)} |
VMR17(V58)} |
483 |
return Cnil; |
return Cnil; |
484 |
} |
} |
485 |
/* local entry for function progn 'compile2452 */ |
/* local entry for function progn 'compile2454 */ |
486 |
|
|
487 |
static object LI18() |
static object LI18() |
488 |
|
|
498 |
base[0]=base[0]; |
base[0]=base[0]; |
499 |
return Cnil; |
return Cnil; |
500 |
} |
} |
501 |
/* local entry for function progn 'compile2464 */ |
/* local entry for function progn 'compile2466 */ |
502 |
|
|
503 |
static object LI19() |
static object LI19() |
504 |
|
|
505 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
506 |
goto TTL; |
goto TTL; |
507 |
TTL:; |
TTL:; |
508 |
base[0]= VV[20]; |
if(!((VV[20])->s.s_dbind!=OBJNULL)){ |
509 |
vs_top=(vs_base=base+0)+1; |
goto T108;} |
510 |
Lboundp(); |
goto T107; |
511 |
vs_top=sup; |
goto T108; |
512 |
if((vs_base[0])==Cnil){ |
T108:; |
513 |
goto T111;} |
(VV[20]->s.s_dbind)= Cnil; |
514 |
goto T110; |
goto T107; |
515 |
goto T111; |
T107:; |
|
T111:; |
|
|
setq(VV[20],Cnil); |
|
|
goto T110; |
|
|
T110:; |
|
516 |
{object V60 = Cnil; |
{object V60 = Cnil; |
517 |
VMR19(V60)} |
VMR19(V60)} |
|
base[0]=base[0]; |
|
518 |
return Cnil; |
return Cnil; |
519 |
} |
} |
520 |
/* local entry for function progn 'compile2477 */ |
/* local entry for function progn 'compile2479 */ |
521 |
|
|
522 |
static object LI20() |
static object LI20() |
523 |
|
|
554 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
555 |
goto TTL; |
goto TTL; |
556 |
TTL:;{object V70; |
TTL:;{object V70; |
557 |
{register object x= (V68),V71= symbol_value(VV[20]); |
{register object x= (V68),V71= (VV[20]->s.s_dbind); |
558 |
while(!endp(V71)) |
while(V71!=Cnil) |
559 |
if(type_of(V71->c.c_car)==t_cons &&eql(x,V71->c.c_car->c.c_car)){ |
if(eql(x,V71->c.c_car->c.c_car) &&V71->c.c_car != Cnil){ |
560 |
V70= (V71->c.c_car); |
V70= (V71->c.c_car); |
561 |
goto T120; |
goto T116; |
562 |
}else V71=V71->c.c_cdr; |
}else V71=V71->c.c_cdr; |
563 |
V70= Cnil;} |
V70= Cnil;} |
564 |
goto T120; |
goto T116; |
565 |
T120:; |
T116:; |
566 |
if(V70==Cnil)goto T119; |
if(V70==Cnil)goto T115; |
567 |
V69= V70; |
V69= V70; |
568 |
goto T118; |
goto T114; |
569 |
goto T119; |
goto T115; |
570 |
T119:;} |
T115:;} |
571 |
{object V73; |
{object V73; |
572 |
V74= (*(LnkLI75))((V68)); |
V74= (*(LnkLI75))((V68)); |
573 |
V73= make_cons((V68),/* INLINE-ARGS */V74); |
V73= make_cons((V68),/* INLINE-ARGS */V74); |
574 |
setq(VV[20],make_cons((V73),symbol_value(VV[20]))); |
(VV[20]->s.s_dbind)= make_cons((V73),(VV[20]->s.s_dbind)); |
575 |
V72= symbol_value(VV[20]);} |
V72= (VV[20]->s.s_dbind);} |
576 |
V69= car(V72); |
V69= CMPcar(V72); |
577 |
goto T118; |
goto T114; |
578 |
T118:; |
T114:; |
579 |
{object V75 = cdr(V69); |
{object V75 = CMPcdr(V69); |
580 |
VMR22(V75)} |
VMR22(V75)} |
581 |
base[0]=base[0]; |
base[0]=base[0]; |
582 |
return Cnil; |
return Cnil; |
591 |
{object V76; |
{object V76; |
592 |
object V77; |
object V77; |
593 |
object V78; |
object V78; |
594 |
base[4]= symbol_value(VV[27]); |
base[4]= (VV[27]->s.s_dbind); |
595 |
{object V79; |
{object V79; |
596 |
object V80= base[4]; |
object V80= base[4]; |
597 |
if(endp(V80)){ |
if(V80==Cnil){ |
598 |
V76= Cnil; |
V76= Cnil; |
599 |
goto T124;} |
goto T120;} |
600 |
base[3]=V79=MMcons(Cnil,Cnil); |
base[3]=V79=MMcons(Cnil,Cnil); |
601 |
goto T125; |
goto T121; |
602 |
T125:; |
T121:; |
603 |
if((cdr((V80->c.c_car)))==Cnil){ |
if((CMPcdr((V80->c.c_car)))==Cnil){ |
604 |
|
goto T124;} |
605 |
|
(V79->c.c_cdr)= make_cons(CMPcdr((V80->c.c_car)),Cnil); |
606 |
|
goto T122; |
607 |
|
goto T124; |
608 |
|
T124:; |
609 |
|
(V79->c.c_cdr)= Cnil; |
610 |
|
goto T122; |
611 |
|
T122:; |
612 |
|
while(MMcdr(V79)!=Cnil)V79=MMcdr(V79); |
613 |
|
if((V80=MMcdr(V80))==Cnil){ |
614 |
|
base[3]=base[3]->c.c_cdr; |
615 |
|
V76= base[3]; |
616 |
|
goto T120;} |
617 |
|
goto T121;} |
618 |
|
goto T120; |
619 |
|
T120:; |
620 |
|
if(((VV[25]->s.s_dbind))==Cnil){ |
621 |
goto T128;} |
goto T128;} |
622 |
(V79->c.c_cdr)= make_cons(cdr((V80->c.c_car)),Cnil); |
V77= make_cons((VV[25]->s.s_dbind),(V76)); |
623 |
goto T126; |
goto T126; |
624 |
goto T128; |
goto T128; |
625 |
T128:; |
T128:; |
626 |
(V79->c.c_cdr)= Cnil; |
V77= (V76); |
627 |
goto T126; |
goto T126; |
628 |
T126:; |
T126:; |
|
{object cdr_V79=MMcdr(V79);while(!endp(cdr_V79)) {cdr_V79=MMcdr(cdr_V79);V79=MMcdr(V79);}} |
|
|
V80=MMcdr(V80); |
|
|
if(endp(V80)){ |
|
|
base[3]=base[3]->c.c_cdr; |
|
|
V76= base[3]; |
|
|
goto T124;} |
|
|
goto T125;} |
|
|
goto T124; |
|
|
T124:; |
|
|
if((symbol_value(VV[25]))==Cnil){ |
|
|
goto T132;} |
|
|
V77= make_cons(symbol_value(VV[25]),(V76)); |
|
|
goto T130; |
|
|
goto T132; |
|
|
T132:; |
|
|
V77= (V76); |
|
|
goto T130; |
|
|
T130:; |
|
629 |
{object V82; |
{object V82; |
630 |
object V83= (V77); |
object V83= (V77); |
631 |
if(endp(V83)){ |
if(V83==Cnil){ |
632 |
V78= Cnil; |
V78= Cnil; |
633 |
goto T134;} |
goto T130;} |
634 |
base[3]=V82=MMcons(Cnil,Cnil); |
base[3]=V82=MMcons(Cnil,Cnil); |
635 |
goto T135; |
goto T131; |
636 |
T135:; |
T131:; |
637 |
(V82->c.c_car)= (*(LnkLI76))((V83->c.c_car)); |
(V82->c.c_car)= (*(LnkLI76))((V83->c.c_car)); |
638 |
V83=MMcdr(V83); |
if((V83=MMcdr(V83))==Cnil){ |
|
if(endp(V83)){ |
|
639 |
V78= base[3]; |
V78= base[3]; |
640 |
goto T134;} |
goto T130;} |
641 |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
642 |
goto T135;} |
goto T131;} |
643 |
goto T134; |
goto T130; |
644 |
T134:; |
T130:; |
645 |
{object V84; |
{object V84; |
646 |
object V85= (V77); |
object V85= (V77); |
647 |
object V86= (V78); |
object V86= (V78); |
648 |
if(endp(V85)||endp(V86)){ |
if(V85==Cnil||V86==Cnil){ |
649 |
setq(VV[20],Cnil); |
(VV[20]->s.s_dbind)= Cnil; |
650 |
goto T138;} |
goto T134;} |
651 |
base[3]=V84=MMcons(Cnil,Cnil); |
base[3]=V84=MMcons(Cnil,Cnil); |
652 |
goto T139; |
goto T135; |
653 |
T139:; |
T135:; |
654 |
(V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car)); |
(V84->c.c_car)= make_cons((V85->c.c_car),(V86->c.c_car)); |
655 |
V85=MMcdr(V85); |
if((V85=MMcdr(V85))==Cnil||(V86=MMcdr(V86))==Cnil){ |
656 |
V86=MMcdr(V86); |
(VV[20]->s.s_dbind)= base[3]; |
657 |
if(endp(V85)||endp(V86)){ |
goto T134;} |
|
setq(VV[20],base[3]); |
|
|
goto T138;} |
|
658 |
V84=MMcdr(V84)=MMcons(Cnil,Cnil); |
V84=MMcdr(V84)=MMcons(Cnil,Cnil); |
659 |
goto T139;} |
goto T135;} |
660 |
goto T138; |
goto T134; |
661 |
T138:; |
T134:; |
662 |
{object V87 = (V78); |
{object V87 = (V78); |
663 |
VMR23(V87)}} |
VMR23(V87)}} |
664 |
base[0]=base[0]; |
base[0]=base[0]; |
669 |
static void L25() |
static void L25() |
670 |
{register object *base=vs_base; |
{register object *base=vs_base; |
671 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
672 |
vs_reserve(VM24); |
vs_check; |
673 |
{object V88; |
{object V88; |
|
check_arg(2); |
|
674 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
675 |
V88=(base[1]); |
V88=(base[1]); |
676 |
vs_top=sup; |
vs_top=sup; |
677 |
{object V89; |
{object V89; |
678 |
V89= structure_ref((base[0]->c.c_car),VV[13],2); |
V89= STREF(object,(base[0]->c.c_car),8); |
679 |
if(((V89))==Cnil){ |
if(((V89))==Cnil){ |
680 |
goto T144;} |
goto T140;} |
681 |
base[2]= (V89); |
base[2]= (V89); |
682 |
goto T141; |
goto T137; |
683 |
goto T144; |
goto T140; |
684 |
T144:; |
T140:; |
685 |
base[3]= structure_ref((base[0]->c.c_car),VV[13],0); |
base[3]= STREF(object,(base[0]->c.c_car),0); |
686 |
base[3]=MMcons(base[3],base[0]); |
base[3]=MMcons(base[3],base[0]); |
687 |
base[2]= |
base[2]= |
688 |
make_cclosure_new(LC40,Cnil,base[3],Cdata);} |
make_cclosure_new(LC40,Cnil,base[3],Cdata);} |
689 |
goto T141; |
goto T137; |
690 |
T141:; |
T137:; |
691 |
base[3]= (V88); |
base[3]= (V88); |
692 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
693 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
702 |
static void L26() |
static void L26() |
703 |
{register object *base=vs_base; |
{register object *base=vs_base; |
704 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
705 |
vs_reserve(VM25); |
vs_check; |
|
check_arg(2); |
|
706 |
vs_top=sup; |
vs_top=sup; |
707 |
{object V90=base[0]->c.c_cdr; |
{object V90=base[0]->c.c_cdr; |
|
if(endp(V90))invalid_macro_call(); |
|
708 |
base[2]= (V90->c.c_car); |
base[2]= (V90->c.c_car); |
709 |
V90=V90->c.c_cdr; |
V90=V90->c.c_cdr; |
710 |
base[3]= V90;} |
base[3]= V90;} |
711 |
{object V92; |
{object V92; |
712 |
object V93= base[2]; |
object V93= base[2]; |
713 |
if(endp(V93)){ |
if(V93==Cnil){ |
714 |
V91= Cnil; |
V91= Cnil; |
715 |
goto T148;} |
goto T144;} |
716 |
base[4]=V92=MMcons(Cnil,Cnil); |
base[4]=V92=MMcons(Cnil,Cnil); |
717 |
goto T149; |
goto T145; |
718 |
T149:; |
T145:; |
719 |
(V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],car((V93->c.c_car))),VV[23],cadr((V93->c.c_car)),cddr((V93->c.c_car))); |
(V92->c.c_car)= listA(6,VV[39],VV[21],list(2,VV[7],CMPcar((V93->c.c_car))),VV[23],CMPcadr((V93->c.c_car)),CMPcddr((V93->c.c_car))); |
720 |
V93=MMcdr(V93); |
if((V93=MMcdr(V93))==Cnil){ |
|
if(endp(V93)){ |
|
721 |
V91= base[4]; |
V91= base[4]; |
722 |
goto T148;} |
goto T144;} |
723 |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
V92=MMcdr(V92)=MMcons(Cnil,Cnil); |
724 |
goto T149;} |
goto T145;} |
725 |
goto T148; |
goto T144; |
726 |
T148:; |
T144:; |
727 |
V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10])); |
V95= list(2,VV[10],list(3,VV[37],make_cons(VV[38],V91),VV[10])); |
728 |
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]); |
base[4]= listA(3,VV[8],make_cons(/* INLINE-ARGS */V95,Cnil),base[3]); |
729 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
738 |
{register object V97; |
{register object V97; |
739 |
object V98; |
object V98; |
740 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <1) too_few_arguments(); |
|
741 |
V97= V96; |
V97= V96; |
742 |
narg = narg - 1; |
narg = narg - 1; |
743 |
if (narg <= 0) goto T151; |
if (narg <= 0) goto T147; |
744 |
else { |
else { |
745 |
V98= first;} |
V98= first;} |
746 |
--narg; goto T152; |
--narg; goto T148; |
747 |
goto T151; |
goto T147; |
748 |
T151:; |
T147:; |
749 |
V98= Cnil; |
V98= Cnil; |
750 |
goto T152; |
goto T148; |
751 |
T152:; |
T148:; |
752 |
{register object V99; |
{register object V99; |
753 |
object V100; |
object V100; |
754 |
V99= symbol_value(VV[10]); |
V99= (VV[10]->s.s_dbind); |
755 |
V100= car((V99)); |
V100= CMPcar((V99)); |
|
goto T158; |
|
|
T158:; |
|
|
if(!(endp_prop((V99)))){ |
|
|
goto T159;} |
|
756 |
goto T154; |
goto T154; |
757 |
goto T159; |
T154:; |
758 |
T159:; |
if(!(((V99))==Cnil)){ |
759 |
|
goto T155;} |
760 |
|
goto T150; |
761 |
|
goto T155; |
762 |
|
T155:; |
763 |
{register object V101; |
{register object V101; |
764 |
register object V102; |
register object V102; |
765 |
V101= (V100); |
V101= (V100); |
766 |
V102= car((V101)); |
V102= CMPcar((V101)); |
|
goto T167; |
|
|
T167:; |
|
|
if(!(endp_prop((V101)))){ |
|
|
goto T168;} |
|
767 |
goto T163; |
goto T163; |
768 |
|
T163:; |
769 |
|
if(!(((V101))==Cnil)){ |
770 |
|
goto T164;} |
771 |
|
goto T159; |
772 |
|
goto T164; |
773 |
|
T164:; |
774 |
|
if(((V102))==((V97))){ |
775 |
|
goto T169;} |
776 |
|
if(!((STREF(object,(V102),0))==((V97)))){ |
777 |
|
goto T168;} |
778 |
|
goto T169; |
779 |
|
T169:; |
780 |
|
{object V103 = (V102); |
781 |
|
VMR26(V103)} |
782 |
goto T168; |
goto T168; |
783 |
T168:; |
T168:; |
784 |
if(((V102))==((V97))){ |
V101= CMPcdr((V101)); |
785 |
goto T173;} |
V102= CMPcar((V101)); |
786 |
V103= structure_ref((V102),VV[13],0); |
goto T163;} |
787 |
if(!((/* INLINE-ARGS */V103)==((V97)))){ |
goto T159; |
788 |
goto T172;} |
T159:; |
789 |
goto T173; |
V99= CMPcdr((V99)); |
790 |
T173:; |
V100= CMPcar((V99)); |
791 |
{object V104 = (V102); |
goto T154;} |
792 |
VMR26(V104)} |
goto T150; |
793 |
goto T172; |
T150:; |
794 |
T172:; |
{object V104; |
795 |
V101= cdr((V101)); |
V104= (*(LnkLI71))(); |
796 |
V102= car((V101)); |
{register object V105; |
797 |
goto T167;} |
register object V106; |
798 |
goto T163; |
V105= (V104); |
799 |
T163:; |
V106= CMPcar((V105)); |
800 |
V99= cdr((V99)); |
goto T187; |
801 |
V100= car((V99)); |
T187:; |
802 |
goto T158;} |
if(!(((V105))==Cnil)){ |
803 |
goto T154; |
goto T188;} |
804 |
T154:; |
{object V107 = Cnil; |
805 |
{object V105; |
VMR26(V107)} |
806 |
V105= (*(LnkLI71))(); |
goto T188; |
807 |
{register object V106; |
T188:; |
808 |
register object V107; |
if(((V106))==((V97))){ |
809 |
V106= (V105); |
goto T193;} |
810 |
V107= car((V106)); |
if(!((STREF(object,(V106),0))==((V97)))){ |
|
goto T191; |
|
|
T191:; |
|
|
if(!(endp_prop((V106)))){ |
|
811 |
goto T192;} |
goto T192;} |
812 |
{object V108 = Cnil; |
goto T193; |
813 |
|
T193:; |
814 |
|
{object V108 = (V106); |
815 |
VMR26(V108)} |
VMR26(V108)} |
816 |
goto T192; |
goto T192; |
817 |
T192:; |
T192:; |
818 |
if(((V107))==((V97))){ |
V105= CMPcdr((V105)); |
819 |
goto T197;} |
V106= CMPcar((V105)); |
820 |
V109= structure_ref((V107),VV[13],0); |
goto T187;}} |
|
if(!((/* INLINE-ARGS */V109)==((V97)))){ |
|
|
goto T196;} |
|
|
goto T197; |
|
|
T197:; |
|
|
{object V110 = (V107); |
|
|
VMR26(V110)} |
|
|
goto T196; |
|
|
T196:; |
|
|
V106= cdr((V106)); |
|
|
V107= car((V106)); |
|
|
goto T191;}} |
|
821 |
va_end(ap); |
va_end(ap); |
822 |
base[0]=base[0]; |
base[0]=base[0]; |
823 |
return Cnil;} |
return Cnil;} |
827 |
static void L28() |
static void L28() |
828 |
{register object *base=vs_base; |
{register object *base=vs_base; |
829 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
830 |
vs_reserve(VM27); |
vs_check; |
831 |
{object V111; |
{object V109; |
832 |
object V112; |
object V110; |
833 |
if(vs_top-vs_base<1) too_few_arguments(); |
V109=(base[0]); |
|
V111=(base[0]); |
|
834 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
835 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
836 |
{object *p=vs_top; |
{object *p=vs_top; |
837 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
838 |
V112=(base[1]); |
V110=(base[1]); |
839 |
vs_top=sup; |
vs_top=sup; |
840 |
{object V113;{object V114; |
{object V111;{object V112; |
841 |
V114= (VFUN_NARGS=1,(*(LnkLI77))((V111))); |
V112= (VFUN_NARGS=1,(*(LnkLI77))((V109))); |
842 |
if(V114==Cnil)goto T207; |
if(V112==Cnil)goto T203; |
843 |
V113= V114; |
V111= V112; |
844 |
goto T206; |
goto T202; |
845 |
goto T207; |
goto T203; |
846 |
T207:;} |
T203:;} |
847 |
base[2]= VV[40]; |
base[2]= VV[40]; |
848 |
base[3]= (V111); |
base[3]= (V109); |
849 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
850 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
851 |
vs_top=sup; |
vs_top=sup; |
852 |
V113= vs_base[0]; |
V111= vs_base[0]; |
853 |
goto T206; |
goto T202; |
854 |
T206:; |
T202:; |
855 |
base[2]= structure_ref((V113),VV[13],1); |
base[2]= STREF(object,(V111),4); |
856 |
{object V115; |
{object V113; |
857 |
V115= (V112); |
V113= (V110); |
858 |
vs_top=base+3; |
vs_top=base+3; |
859 |
while(!endp(V115)) |
while(V113!=Cnil) |
860 |
{vs_push(car(V115));V115=cdr(V115);} |
{vs_push((V113)->c.c_car);V113=(V113)->c.c_cdr;} |
861 |
vs_base=base+3;} |
vs_base=base+3;} |
862 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
863 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
871 |
static void L29() |
static void L29() |
872 |
{register object *base=vs_base; |
{register object *base=vs_base; |
873 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
874 |
vs_reserve(VM28); |
vs_check; |
875 |
{object V116; |
{object V114; |
876 |
check_arg(1); |
V114=(base[0]); |
|
V116=(base[0]); |
|
877 |
vs_top=sup; |
vs_top=sup; |
878 |
goto TTL; |
goto TTL; |
879 |
TTL:; |
TTL:; |
880 |
{object V117;{object V118; |
{object V115;{object V116; |
881 |
V118= (VFUN_NARGS=1,(*(LnkLI77))((V116))); |
V116= (VFUN_NARGS=1,(*(LnkLI77))((V114))); |
882 |
if(V118==Cnil)goto T214; |
if(V116==Cnil)goto T210; |
883 |
V117= V118; |
V115= V116; |
884 |
goto T213; |
goto T209; |
885 |
goto T214; |
goto T210; |
886 |
T214:;} |
T210:;} |
887 |
base[1]= VV[41]; |
base[1]= VV[41]; |
888 |
base[2]= (V116); |
base[2]= (V114); |
889 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
890 |
(void) (*Lnk70)(); |
(void) (*Lnk70)(); |
891 |
vs_top=sup; |
vs_top=sup; |
892 |
V117= vs_base[0]; |
V115= vs_base[0]; |
893 |
goto T213; |
goto T209; |
894 |
T213:; |
T209:; |
895 |
base[1]= structure_ref((V117),VV[13],1); |
base[1]= STREF(object,(V115),4); |
896 |
{object V119; |
{object V117; |
897 |
{object V120; |
{object V118; |
898 |
V120= structure_ref((V117),VV[13],3); |
V118= STREF(object,(V115),12); |
899 |
if(((V120))==Cnil){ |
if(((V118))==Cnil){ |
900 |
goto T222;} |
goto T218;} |
901 |
vs_base=vs_top; |
vs_base=vs_top; |
902 |
{object _funobj = (V120);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V118);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
903 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
904 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
905 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
906 |
vs_top=sup; |
vs_top=sup; |
907 |
V119= vs_base[0]; |
V117= vs_base[0]; |
908 |
goto T219; |
goto T215; |
909 |
goto T222; |
goto T218; |
910 |
T222:; |
T218:; |
911 |
V119= Cnil;} |
V117= Cnil;} |
912 |
goto T219; |
goto T215; |
913 |
T219:; |
T215:; |
914 |
vs_top=base+2; |
vs_top=base+2; |
915 |
while(!endp(V119)) |
while(V117!=Cnil) |
916 |
{vs_push(car(V119));V119=cdr(V119);} |
{vs_push((V117)->c.c_car);V117=(V117)->c.c_cdr;} |
917 |
vs_base=base+2;} |
vs_base=base+2;} |
918 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
919 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
927 |
static void L30() |
static void L30() |
928 |
{register object *base=vs_base; |
{register object *base=vs_base; |
929 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
930 |
vs_reserve(VM29); |
vs_check; |
|
check_arg(2); |
|
931 |
vs_top=sup; |
vs_top=sup; |
932 |
{object V121=base[0]->c.c_cdr; |
{object V119=base[0]->c.c_cdr; |
933 |
if(endp(V121))invalid_macro_call(); |
base[2]= (V119->c.c_car); |
934 |
base[2]= (V121->c.c_car); |
V119=V119->c.c_cdr; |
935 |
V121=V121->c.c_cdr; |
base[3]= V119;} |
936 |
base[3]= V121;} |
{object V120; |
937 |
{object V122; |
object V121; |
938 |
object V123; |
object V122; |
|
object V124; |
|
939 |
vs_base=vs_top; |
vs_base=vs_top; |
940 |
Lgensym(); |
Lgensym(); |
941 |
vs_top=sup; |
vs_top=sup; |
942 |
V122= vs_base[0]; |
V120= vs_base[0]; |
943 |
vs_base=vs_top; |
vs_base=vs_top; |
944 |
Lgensym(); |
Lgensym(); |
945 |
vs_top=sup; |
vs_top=sup; |
946 |
V123= vs_base[0]; |
V121= vs_base[0]; |
947 |
{object V125; |
{object V123; |
948 |
object V126= base[3]; |
object V124= base[3]; |
949 |
if(endp(V126)){ |
if(V124==Cnil){ |
950 |
V124= Cnil; |
V122= Cnil; |
951 |
goto T226;} |
goto T222;} |
952 |
base[4]=V125=MMcons(Cnil,Cnil); |
base[4]=V123=MMcons(Cnil,Cnil); |
953 |
goto T227; |
goto T223; |
954 |
T227:; |
T223:; |
955 |
{object V128; |
{object V126; |
956 |
object V129; |
object V127; |
957 |
base[5]= cddr((V126->c.c_car)); |
base[5]= CMPcddr((V124->c.c_car)); |
958 |
base[6]= VV[42]; |
base[6]= VV[42]; |
959 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
960 |
(void) (*Lnk6)(); |
(void) (*Lnk6)(); |
961 |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
if(vs_base>=vs_top){vs_top=sup;goto T228;} |
962 |
V128= vs_base[0]; |
V126= vs_base[0]; |
963 |
vs_base++; |
vs_base++; |
964 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T229;} |
965 |
V129= vs_base[0]; |
V127= vs_base[0]; |
966 |
vs_top=sup; |
vs_top=sup; |
967 |
goto T234; |
goto T230; |
968 |
goto T232; |
goto T228; |
969 |
T232:; |
T228:; |
970 |
V128= Cnil; |
V126= Cnil; |
971 |
goto T233; |
goto T229; |
972 |
T233:; |
T229:; |
973 |
V129= Cnil; |
V127= Cnil; |
974 |
goto T234; |
goto T230; |
975 |
T234:; |
T230:; |
976 |
{object V130; |
{object V128; |
977 |
object V131; |
object V129; |
978 |
base[5]= (V128); |
base[5]= (V126); |
979 |
base[6]= VV[43]; |
base[6]= VV[43]; |
980 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
981 |
Lgetf(); |
Lgetf(); |
982 |
vs_top=sup; |
vs_top=sup; |
983 |
V130= vs_base[0]; |
V128= vs_base[0]; |
984 |
base[5]= (V128); |
base[5]= (V126); |
985 |
base[6]= VV[44]; |
base[6]= VV[44]; |
986 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
987 |
Lgetf(); |
Lgetf(); |
988 |
vs_top=sup; |
vs_top=sup; |
989 |
V131= vs_base[0]; |
V129= vs_base[0]; |
990 |
V132= car((V126->c.c_car)); |
V130= CMPcar((V124->c.c_car)); |
991 |
vs_base=vs_top; |
vs_base=vs_top; |
992 |
Lgensym(); |
Lgensym(); |
993 |
vs_top=sup; |
vs_top=sup; |
994 |
V133= vs_base[0]; |
V131= vs_base[0]; |
995 |
base[5]= VV[43]; |
base[5]= VV[43]; |
996 |
base[6]= (V130); |
base[6]= (V128); |
997 |
base[7]= VV[44]; |
base[7]= VV[44]; |
998 |
base[8]= (V131); |
base[8]= (V129); |
999 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1000 |
L31(base); |
L31(base); |
1001 |
vs_top=sup; |
vs_top=sup; |
1002 |
V134= vs_base[0]; |
V132= vs_base[0]; |
1003 |
(V125->c.c_car)= list(5,/* INLINE-ARGS */V132,V133,V134,cadr((V126->c.c_car)),(V129));}} |
(V123->c.c_car)= list(5,/* INLINE-ARGS */V130,V131,V132,CMPcadr((V124->c.c_car)),(V127));}} |
1004 |
V126=MMcdr(V126); |
if((V124=MMcdr(V124))==Cnil){ |
1005 |
if(endp(V126)){ |
V122= base[4]; |
1006 |
V124= base[4]; |
goto T222;} |
1007 |
goto T226;} |
V123=MMcdr(V123)=MMcons(Cnil,Cnil); |
1008 |
V125=MMcdr(V125)=MMcons(Cnil,Cnil); |
goto T223;} |
1009 |
goto T227;} |
goto T222; |
1010 |
goto T226; |
T222:; |
1011 |
T226:; |
V133= list(2,(V121),Cnil); |
1012 |
V135= list(2,(V123),Cnil); |
V134= make_cons(/* INLINE-ARGS */V133,Cnil); |
1013 |
V136= make_cons(/* INLINE-ARGS */V135,Cnil); |
{object V136; |
1014 |
{object V138; |
object V137= (V122); |
1015 |
object V139= (V124); |
if(V137==Cnil){ |
1016 |
if(endp(V139)){ |
V135= Cnil; |
1017 |
V137= Cnil; |
goto T243;} |
1018 |
goto T247;} |
base[4]=V136=MMcons(Cnil,Cnil); |
1019 |
base[4]=V138=MMcons(Cnil,Cnil); |
goto T244; |
1020 |
goto T248; |
T244:; |
1021 |
T248:; |
{object V139; |
1022 |
{object V141; |
object V140; |
1023 |
object V142; |
object V141; |
1024 |
object V143; |
V139= CMPcar((V137->c.c_car)); |
1025 |
V141= car((V139->c.c_car)); |
V140= CMPcadr((V137->c.c_car)); |
1026 |
V142= cadr((V139->c.c_car)); |
V141= CMPcaddr((V137->c.c_car)); |
1027 |
V143= caddr((V139->c.c_car)); |
V142= list(3,VV[51],(V121),VV[52]); |
1028 |
V144= list(3,VV[51],(V123),VV[52]); |
(V136->c.c_car)= listA(3,(V139),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V142,list(2,VV[53],(V140)))),(V141));} |
1029 |
(V138->c.c_car)= listA(3,(V141),list(2,VV[48],list(4,VV[49],VV[50],/* INLINE-ARGS */V144,list(2,VV[53],(V142)))),(V143));} |
if((V137=MMcdr(V137))==Cnil){ |
1030 |
V139=MMcdr(V139); |
V135= base[4]; |
1031 |
if(endp(V139)){ |
goto T243;} |
1032 |
V137= base[4]; |
V136=MMcdr(V136)=MMcons(Cnil,Cnil); |
1033 |
goto T247;} |
goto T244;} |
1034 |
V138=MMcdr(V138)=MMcons(Cnil,Cnil); |
goto T243; |
1035 |
goto T248;} |
T243:; |
1036 |
goto T247; |
V143= list(3,VV[47],V135,list(3,VV[54],(V120),base[2])); |
1037 |
T247:; |
{object V145; |
1038 |
V145= list(3,VV[47],V137,list(3,VV[54],(V122),base[2])); |
object V146= (V122); |
1039 |
{object V147; |
if(V146==Cnil){ |
1040 |
object V148= (V124); |
V144= Cnil; |
1041 |
if(endp(V148)){ |
goto T249;} |
1042 |
V146= Cnil; |
base[4]=V145=MMcons(Cnil,Cnil); |
1043 |
goto T253;} |
goto T250; |
1044 |
base[4]=V147=MMcons(Cnil,Cnil); |
T250:; |
1045 |
goto T254; |
{object V148; |
1046 |
T254:; |
object V149; |
1047 |
{object V150; |
object V150; |
1048 |
object V151; |
V148= CMPcadr((V146->c.c_car)); |
1049 |
object V152; |
V149= CMPcadddr((V146->c.c_car)); |
1050 |
V150= cadr((V148->c.c_car)); |
V150= CMPcar(CMPcddddr((V146->c.c_car))); |
1051 |
V151= cadddr((V148->c.c_car)); |
(V145->c.c_cdr)= list(2,(V148),list(3,VV[54],(V120),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V149),(V150))),(V121))));} |
1052 |
V152= car(cddddr((V148->c.c_car))); |
while(MMcdr(V145)!=Cnil)V145=MMcdr(V145); |
1053 |
(V147->c.c_cdr)= list(2,(V150),list(3,VV[54],(V122),list(3,VV[55],list(2,VV[48],listA(3,VV[49],(V151),(V152))),(V123))));} |
if((V146=MMcdr(V146))==Cnil){ |
|
{object cdr_V147=MMcdr(V147);while(!endp(cdr_V147)) {cdr_V147=MMcdr(cdr_V147);V147=MMcdr(V147);}} |
|
|
V148=MMcdr(V148); |
|
|
if(endp(V148)){ |
|
1054 |
base[4]=base[4]->c.c_cdr; |
base[4]=base[4]->c.c_cdr; |
1055 |
V146= base[4]; |
V144= base[4]; |
1056 |
goto T253;} |
goto T249;} |
1057 |
goto T254;} |
goto T250;} |
1058 |
goto T253; |
goto T249; |
1059 |
T253:; |
T249:; |
1060 |
base[4]= list(3,VV[45],(V122),list(3,VV[8],/* INLINE-ARGS */V136,listA(3,VV[46],/* INLINE-ARGS */V145,V146))); |
base[4]= list(3,VV[45],(V120),list(3,VV[8],/* INLINE-ARGS */V134,listA(3,VV[46],/* INLINE-ARGS */V143,V144))); |
1061 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1062 |
return;} |
return;} |
1063 |
} |
} |
1066 |
static void L32() |
static void L32() |
1067 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1068 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
1069 |
vs_reserve(VM30); |
vs_check; |
|
check_arg(2); |
|
1070 |
vs_top=sup; |
vs_top=sup; |
1071 |
{object V153=base[0]->c.c_cdr; |
{object V151=base[0]->c.c_cdr; |
1072 |
if(endp(V153))invalid_macro_call(); |
{object V152= (V151->c.c_car); |
1073 |
{object V154= (V153->c.c_car); |
base[2]= (V152->c.c_car); |
1074 |
if(endp(V154))invalid_macro_call(); |
V152=V152->c.c_cdr; |
1075 |
base[2]= (V154->c.c_car); |
base[3]= (V152->c.c_car); |
1076 |
V154=V154->c.c_cdr; |
V152=V152->c.c_cdr; |
1077 |
if(endp(V154))invalid_macro_call(); |
base[4]= V152;} |
1078 |
base[3]= (V154->c.c_car); |
V151=V151->c.c_cdr; |
1079 |
V154=V154->c.c_cdr; |
base[5]= V151;} |
1080 |
base[4]= V154;} |
V153= make_cons(VV[60],base[5]); |
1081 |
V153=V153->c.c_cdr; |
base[6]= list(3,VV[59],/* INLINE-ARGS */V153,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63])); |
|
base[5]= V153;} |
|
|
V155= make_cons(VV[60],base[5]); |
|
|
base[6]= list(3,VV[59],/* INLINE-ARGS */V155,list(5,base[2],Cnil,VV[43],list(3,VV[49],VV[61],listA(4,VV[62],VV[58],base[3],base[4])),VV[63])); |
|
1082 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1083 |
return; |
return; |
1084 |
} |
} |
1087 |
static void L33() |
static void L33() |
1088 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1089 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
1090 |
vs_reserve(VM31); |
vs_check; |
|
check_arg(0); |
|
1091 |
vs_top=sup; |
vs_top=sup; |
1092 |
goto TTL; |
goto TTL; |
1093 |
TTL:; |
TTL:; |
1105 |
static void L34() |
static void L34() |
1106 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1107 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
1108 |
vs_reserve(VM32); |
vs_check; |
|
check_arg(0); |
|
1109 |
vs_top=sup; |
vs_top=sup; |
1110 |
goto TTL; |
goto TTL; |
1111 |
TTL:; |
TTL:; |
1119 |
static void L35() |
static void L35() |
1120 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1121 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
1122 |
vs_reserve(VM33); |
vs_check; |
|
check_arg(0); |
|
1123 |
vs_top=sup; |
vs_top=sup; |
1124 |
goto TTL; |
goto TTL; |
1125 |
TTL:; |
TTL:; |
1133 |
static void L36() |
static void L36() |
1134 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1135 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
1136 |
vs_reserve(VM34); |
vs_check; |
1137 |
{object V156; |
{object V154; |
1138 |
check_arg(1); |
V154=(base[0]); |
|
V156=(base[0]); |
|
1139 |
vs_top=sup; |
vs_top=sup; |
1140 |
goto TTL; |
goto TTL; |
1141 |
TTL:; |
TTL:; |
1142 |
base[1]= VV[67]; |
base[1]= VV[67]; |
1143 |
base[2]= (V156); |
base[2]= (V154); |
1144 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1145 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
1146 |
return; |
return; |
1151 |
static void L37() |
static void L37() |
1152 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1153 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
1154 |
vs_reserve(VM35); |
vs_check; |
1155 |
{object V157; |
{object V155; |
1156 |
check_arg(1); |
V155=(base[0]); |
|
V157=(base[0]); |
|
1157 |
vs_top=sup; |
vs_top=sup; |
1158 |
goto TTL; |
goto TTL; |
1159 |
TTL:; |
TTL:; |
1160 |
base[1]= VV[68]; |
base[1]= VV[68]; |
1161 |
base[2]= (V157); |
base[2]= (V155); |
1162 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1163 |
(void) (*Lnk78)(); |
(void) (*Lnk78)(); |
1164 |
return; |
return; |
1170 |
register object *base0; |
register object *base0; |
1171 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1172 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
1173 |
vs_reserve(VM36); |
vs_check; |
1174 |
{register object V158; |
{register object V156; |
1175 |
object V159; |
object V157; |
1176 |
parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]); |
parse_key(vs_base,FALSE,FALSE,2,VV[43],VV[44]); |
1177 |
vs_top=sup; |
vs_top=sup; |
1178 |
V158=(base[0]); |
V156=(base[0]); |
1179 |
V159=(base[1]); |
V157=(base[1]); |
1180 |
{register object V160; |
{register object V158; |
1181 |
V160= Cnil; |
V158= Cnil; |
1182 |
if(((V158))==Cnil){ |
if(((V156))==Cnil){ |
1183 |
goto T268;} |
goto T264;} |
1184 |
if(!(type_of((V158))==t_string)){ |
if(!(type_of((V156))==t_string)){ |
1185 |
goto T274;} |
goto T270;} |
1186 |
V161= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V158),VV[58]))); |
V159= list(2,VV[48],list(3,VV[49],VV[56],list(3,VV[57],(V156),VV[58]))); |
1187 |
goto T272; |
goto T268; |
1188 |
goto T274; |
goto T270; |
1189 |
T274:; |
T270:; |
1190 |
V161= list(2,VV[48],(V158)); |
V159= list(2,VV[48],(V156)); |
|
goto T272; |
|
|
T272:; |
|
|
V160= listA(3,V161,VV[24],(V160)); |
|
1191 |
goto T268; |
goto T268; |
1192 |
T268:; |
T268:; |
1193 |
if(((V159))==Cnil){ |
V158= listA(3,V159,VV[24],(V158)); |
1194 |
goto T276;} |
goto T264; |
1195 |
V160= listA(3,list(2,VV[48],(V159)),VV[34],(V160)); |
T264:; |
1196 |
goto T276; |
if(((V157))==Cnil){ |
1197 |
T276:; |
goto T272;} |
1198 |
base[4]= nreverse((V160)); |
V158= listA(3,list(2,VV[48],(V157)),VV[34],(V158)); |
1199 |
|
goto T272; |
1200 |
|
T272:; |
1201 |
|
base[4]= nreverse((V158)); |
1202 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1203 |
return;} |
return;} |
1204 |
} |
} |
1209 |
register object *base0; |
register object *base0; |
1210 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1211 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
1212 |
vs_reserve(VM37); |
vs_check; |
1213 |
{object V162; |
{object V160; |
1214 |
check_arg(1); |
V160=(base[0]); |
|
V162=(base[0]); |
|
1215 |
vs_top=sup; |
vs_top=sup; |
1216 |
if(((base0[0]->c.c_car))==Cnil){ |
if(((base0[0]->c.c_car))==Cnil){ |
1217 |
goto T281;} |
goto T277;} |
1218 |
base[1]= (V162); |
base[1]= (V160); |
1219 |
base[2]= VV[35]; |
base[2]= VV[35]; |
1220 |
base[3]= (base0[0]->c.c_car); |
base[3]= (base0[0]->c.c_car); |
1221 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1222 |
Lformat(); |
Lformat(); |
1223 |
return; |
return; |
1224 |
goto T281; |
goto T277; |
1225 |
T281:; |
T277:; |
1226 |
base[1]= (V162); |
base[1]= (V160); |
1227 |
base[2]= VV[36]; |
base[2]= VV[36]; |
1228 |
base[3]= (base0[1]->c.c_car); |
base[3]= (base0[1]->c.c_car); |
1229 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1237 |
register object *base0; |
register object *base0; |
1238 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1239 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
1240 |
vs_reserve(VM38); |
vs_check; |
1241 |
{object V163; |
{object V161; |
1242 |
check_arg(1); |
V161=(base[0]); |
1243 |
V163=(base[0]); |
vs_top=sup; |
1244 |
vs_top=sup; |
{object V162; |
1245 |
{object V164; |
if(!(((base0[0]->c.c_car))==((VV[25]->s.s_dbind)))){ |
1246 |
if(!(((base0[0]->c.c_car))==(symbol_value(VV[25])))){ |
goto T287;} |
1247 |
goto T291;} |
V162= (VV[26]->s.s_dbind); |
1248 |
V164= symbol_value(VV[26]); |
goto T285; |
1249 |
goto T289; |
goto T287; |
1250 |
goto T291; |
T287:;{object V164; |
|
T291:;{object V166; |
|
1251 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |
1252 |
base[2]= symbol_value(VV[27]); |
base[2]= (VV[27]->s.s_dbind); |
1253 |
base[3]= VV[28]; |
base[3]= VV[28]; |
1254 |
base[4]= symbol_function(VV[79]); |
base[4]= (VV[79]->s.s_gfdef); |
1255 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1256 |
(void) (*Lnk80)(); |
(void) (*Lnk80)(); |
1257 |
vs_top=sup; |
vs_top=sup; |
1258 |
V166= vs_base[0]; |
V164= vs_base[0]; |
1259 |
if(V166==Cnil)goto T294; |
if(V164==Cnil)goto T290; |
1260 |
V165= V166; |
V163= V164; |
1261 |
goto T293; |
goto T289; |
1262 |
goto T294; |
goto T290; |
1263 |
T294:;} |
T290:;} |
1264 |
V165= VV[29]; |
V163= VV[29]; |
|
goto T293; |
|
|
T293:; |
|
|
V164= car(V165); |
|
1265 |
goto T289; |
goto T289; |
1266 |
T289:; |
T289:; |
1267 |
if(!(((V164))==(VV[30]))){ |
V162= CMPcar(V163); |
1268 |
goto T301;} |
goto T285; |
1269 |
base[1]= (V163); |
T285:; |
1270 |
|
if(!(((V162))==(VV[30]))){ |
1271 |
|
goto T297;} |
1272 |
|
base[1]= (V161); |
1273 |
base[2]= VV[31]; |
base[2]= VV[31]; |
1274 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1275 |
Lformat(); |
Lformat(); |
1276 |
return; |
return; |
1277 |
goto T301; |
goto T297; |
1278 |
T301:; |
T297:; |
1279 |
if(((V164))!=Cnil){ |
if(((V162))!=Cnil){ |
1280 |
goto T306;} |
goto T302;} |
1281 |
base[1]= (V163); |
base[1]= (V161); |
1282 |
base[2]= VV[32]; |
base[2]= VV[32]; |
1283 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1284 |
Lformat(); |
Lformat(); |
1285 |
return; |
return; |
1286 |
goto T306; |
goto T302; |
1287 |
T306:; |
T302:; |
1288 |
base[1]= (V163); |
base[1]= (V161); |
1289 |
base[2]= VV[33]; |
base[2]= VV[33]; |
1290 |
base[3]= make_fixnum((long)length((V164))); |
base[3]= CMPmake_fixnum((long)length((V162))); |
1291 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1292 |
Lformat(); |
Lformat(); |
1293 |
return;} |
return;} |
1299 |
register object *base0; |
register object *base0; |
1300 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1301 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
1302 |
vs_reserve(VM39); |
vs_check; |
|
check_arg(0); |
|
1303 |
vs_top=sup; |
vs_top=sup; |
1304 |
{frame_ptr fr; |
{frame_ptr fr; |
1305 |
V167= make_cons((base0[0]->c.c_car),Cnil); |
V165= make_cons((base0[0]->c.c_car),Cnil); |
1306 |
base[0]= car(/* INLINE-ARGS */V167); |
base[0]= CMPcar(/* INLINE-ARGS */V165); |
1307 |
fr=frs_sch_catch(base[0]); |
fr=frs_sch_catch(base[0]); |
1308 |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[0]); |
1309 |
base[1]= (base0[0]->c.c_car); |
base[1]= (base0[0]->c.c_car); |