43 |
base[16]= Cnil; |
base[16]= Cnil; |
44 |
base[17]= (V7); |
base[17]= (V7); |
45 |
vs_top=(vs_base=base+15)+3; |
vs_top=(vs_base=base+15)+3; |
46 |
(void) (*Lnk21)(); |
(void) (*Lnk22)(); |
47 |
if(vs_base>=vs_top){vs_top=sup;goto T7;} |
if(vs_base>=vs_top){vs_top=sup;goto T7;} |
48 |
V10= vs_base[0]; |
V10= vs_base[0]; |
49 |
vs_base++; |
vs_base++; |
64 |
bds_bind(VV[2],Cnil); |
bds_bind(VV[2],Cnil); |
65 |
bds_bind(VV[3],Cnil); |
bds_bind(VV[3],Cnil); |
66 |
bds_bind(VV[4],Cnil); |
bds_bind(VV[4],Cnil); |
67 |
{object V14; |
bds_bind(VV[5],Cnil); |
68 |
|
{object V13; |
69 |
|
object V14; |
70 |
object V15; |
object V15; |
71 |
object V16; |
base[19]= (V1); |
72 |
base[18]= (V1); |
base[20]= (V2); |
73 |
base[19]= (V2); |
base[21]= (V4); |
74 |
base[20]= (V4); |
base[22]= (V5); |
75 |
base[21]= (V5); |
base[23]= (V9); |
76 |
base[22]= (V9); |
base[24]= (((V6))==Cnil?Ct:Cnil); |
77 |
base[23]= (((V6))==Cnil?Ct:Cnil); |
base[25]= Cnil; |
78 |
base[24]= Cnil; |
base[26]= (V8); |
79 |
base[25]= (V8); |
vs_top=(vs_base=base+19)+8; |
|
vs_top=(vs_base=base+18)+8; |
|
80 |
(void) (*Lnk80)(); |
(void) (*Lnk80)(); |
81 |
if(vs_base>=vs_top){vs_top=sup;goto T20;} |
if(vs_base>=vs_top){vs_top=sup;goto T20;} |
82 |
V14= vs_base[0]; |
V13= vs_base[0]; |
83 |
vs_base++; |
vs_base++; |
84 |
if(vs_base>=vs_top){vs_top=sup;goto T21;} |
if(vs_base>=vs_top){vs_top=sup;goto T21;} |
85 |
V15= vs_base[0]; |
V14= vs_base[0]; |
86 |
vs_base++; |
vs_base++; |
87 |
if(vs_base>=vs_top){vs_top=sup;goto T22;} |
if(vs_base>=vs_top){vs_top=sup;goto T22;} |
88 |
V16= vs_base[0]; |
V15= vs_base[0]; |
89 |
vs_top=sup; |
vs_top=sup; |
90 |
goto T23; |
goto T23; |
91 |
T20:; |
T20:; |
92 |
V14= Cnil; |
V13= Cnil; |
93 |
T21:; |
T21:; |
94 |
V15= Cnil; |
V14= Cnil; |
95 |
T22:; |
T22:; |
96 |
V16= Cnil; |
V15= Cnil; |
97 |
T23:; |
T23:; |
98 |
V17= nreverse((VV[4]->s.s_dbind)); |
V16= nreverse((VV[4]->s.s_dbind)); |
99 |
if((Cnil)==Cnil){ |
if(((VV[5]->s.s_dbind))==Cnil){ |
100 |
goto T28;} |
goto T28;} |
101 |
V19= list(2,VV[6],make_cons(VV[7],Cnil)); |
V18= list(2,VV[7],make_cons(VV[8],(VV[5]->s.s_dbind))); |
102 |
base[19]= make_cons(/* INLINE-ARGS */V19,Cnil); |
base[20]= make_cons(/* INLINE-ARGS */V18,Cnil); |
103 |
goto T26; |
goto T26; |
104 |
T28:; |
T28:; |
105 |
base[19]= Cnil; |
base[20]= Cnil; |
106 |
T26:; |
T26:; |
107 |
base[20]= (VV[2]->s.s_dbind); |
base[21]= (VV[2]->s.s_dbind); |
108 |
V20= nreverse((VV[3]->s.s_dbind)); |
V19= nreverse((VV[3]->s.s_dbind)); |
109 |
V21= listA(3,VV[5],/* INLINE-ARGS */V20,append((V11),(V10))); |
V20= listA(3,VV[6],/* INLINE-ARGS */V19,append((V11),(V10))); |
110 |
base[21]= make_cons(/* INLINE-ARGS */V21,Cnil); |
base[22]= make_cons(/* INLINE-ARGS */V20,Cnil); |
111 |
vs_top=(vs_base=base+19)+3; |
vs_top=(vs_base=base+20)+3; |
112 |
Lappend(); |
Lappend(); |
113 |
vs_top=sup; |
vs_top=sup; |
114 |
V18= vs_base[0]; |
V17= vs_base[0]; |
115 |
base[18]= listA(3,VV[5],/* INLINE-ARGS */V17,V18); |
base[19]= listA(3,VV[6],/* INLINE-ARGS */V16,V17); |
116 |
if(((V8))==Cnil){ |
if(((V8))==Cnil){ |
117 |
goto T34;} |
goto T34;} |
118 |
if(((V14))!=Cnil){ |
if(((V13))!=Cnil){ |
119 |
goto T34;} |
goto T34;} |
120 |
V22= list(2,VV[6],list(2,VV[8],(V8))); |
V21= list(2,VV[7],list(2,VV[9],(V8))); |
121 |
base[19]= make_cons(/* INLINE-ARGS */V22,Cnil); |
base[20]= make_cons(/* INLINE-ARGS */V21,Cnil); |
122 |
goto T32; |
goto T32; |
123 |
T34:; |
T34:; |
124 |
base[19]= Cnil; |
base[20]= Cnil; |
125 |
T32:; |
T32:; |
126 |
base[20]= (V12); |
base[21]= (V12); |
127 |
base[21]= (V15); |
base[22]= (V14); |
128 |
base[22]= (V16); |
base[23]= (V15); |
129 |
vs_top=(vs_base=base+18)+5; |
vs_top=(vs_base=base+19)+5; |
130 |
|
bds_unwind1; |
131 |
bds_unwind1; |
bds_unwind1; |
132 |
bds_unwind1; |
bds_unwind1; |
133 |
bds_unwind1; |
bds_unwind1; |
141 |
{register object *base=vs_base; |
{register object *base=vs_base; |
142 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
143 |
vs_check; |
vs_check; |
144 |
{object V23; |
{object V22; |
145 |
object V24; |
object V23; |
146 |
|
register object V24; |
147 |
register object V25; |
register object V25; |
148 |
register object V26; |
object V26; |
149 |
object V27; |
object V27; |
150 |
object V28; |
object V28; |
151 |
object V29; |
object V29; |
152 |
object V30; |
V22=(base[0]); |
153 |
V23=(base[0]); |
V23=(base[1]); |
154 |
V24=(base[1]); |
V24=(base[2]); |
155 |
V25=(base[2]); |
V25=(base[3]); |
156 |
V26=(base[3]); |
V26=(base[4]); |
|
V27=(base[4]); |
|
157 |
vs_base=vs_base+5; |
vs_base=vs_base+5; |
158 |
if(vs_base>=vs_top){vs_top=sup;goto T41;} |
if(vs_base>=vs_top){vs_top=sup;goto T41;} |
159 |
V28=(base[5]); |
V27=(base[5]); |
160 |
vs_base++; |
vs_base++; |
161 |
if(vs_base>=vs_top){vs_top=sup;goto T42;} |
if(vs_base>=vs_top){vs_top=sup;goto T42;} |
162 |
V29=(base[6]); |
V28=(base[6]); |
163 |
vs_base++; |
vs_base++; |
164 |
if(vs_base>=vs_top){vs_top=sup;goto T43;} |
if(vs_base>=vs_top){vs_top=sup;goto T43;} |
165 |
V30=(base[7]); |
V29=(base[7]); |
166 |
vs_top=sup; |
vs_top=sup; |
167 |
goto T44; |
goto T44; |
168 |
T41:; |
T41:; |
169 |
V28= Cnil; |
V27= Cnil; |
170 |
T42:; |
T42:; |
171 |
V29= Cnil; |
V28= Cnil; |
172 |
T43:; |
T43:; |
173 |
V30= Cnil; |
V29= Cnil; |
174 |
T44:; |
T44:; |
175 |
{register object V31; |
{register object V30; |
176 |
object V32; |
object V31; |
177 |
register object V33; |
register object V32; |
178 |
|
object V33; |
179 |
object V34; |
object V34; |
180 |
object V35; |
object V35; |
181 |
object V36; |
object V36; |
182 |
object V37; |
object V37; |
183 |
object V38; |
object V38; |
184 |
object V39; |
if(((V27))==Cnil){ |
|
if(((V28))==Cnil){ |
|
185 |
goto T50;} |
goto T50;} |
186 |
V31= list(2,VV[9],(V24)); |
V30= list(2,VV[10],(V23)); |
187 |
goto T48; |
goto T48; |
188 |
T50:; |
T50:; |
189 |
V31= (V24); |
V30= (V23); |
190 |
T48:; |
T48:; |
191 |
V32= VV[10]; |
V31= VV[11]; |
192 |
|
V32= small_fixnum(0); |
193 |
V33= small_fixnum(0); |
V33= small_fixnum(0); |
194 |
V34= small_fixnum(0); |
V34= Cnil; |
195 |
V35= Cnil; |
V35= Cnil; |
196 |
V36= Cnil; |
V36= Cnil; |
197 |
V37= Cnil; |
V37= Cnil; |
198 |
V38= Cnil; |
V38= Cnil; |
199 |
V39= Cnil; |
{object V39; |
200 |
{object V40; |
V39= (V22); |
|
V40= (V23); |
|
201 |
T57:; |
T57:; |
202 |
if(!(type_of((V40))!=t_cons)){ |
if(!(type_of((V39))!=t_cons)){ |
203 |
goto T58;} |
goto T58;} |
204 |
goto T52; |
goto T52; |
205 |
T58:; |
T58:; |
206 |
if(!((CMPcar((V40)))==(VV[11]))){ |
if(!((CMPcar((V39)))==(VV[12]))){ |
207 |
goto T62;} |
goto T62;} |
208 |
goto T55; |
goto T55; |
209 |
T62:; |
T62:; |
210 |
V40= CMPcdr((V40)); |
V39= CMPcdr((V39)); |
211 |
goto T57;} |
goto T57;} |
212 |
T55:; |
T55:; |
213 |
if((CMPcar((V23)))==(VV[11])){ |
if((CMPcar((V22)))==(VV[12])){ |
214 |
goto T52;} |
goto T52;} |
215 |
base[8]= VV[12]; |
base[8]= VV[13]; |
216 |
base[9]= (V26); |
base[9]= (V25); |
217 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
218 |
Lerror(); |
Lerror(); |
219 |
vs_top=sup; |
vs_top=sup; |
220 |
T52:; |
T52:; |
221 |
{register object V41; |
{register object V40; |
222 |
V41= (V23); |
V40= (V22); |
223 |
T73:; |
T73:; |
224 |
if(!(type_of((V41))!=t_cons)){ |
if(!(type_of((V40))!=t_cons)){ |
225 |
goto T74;} |
goto T74;} |
226 |
if(((V41))!=Cnil){ |
if(((V40))!=Cnil){ |
227 |
goto T78;} |
goto T78;} |
228 |
goto T71; |
goto T71; |
229 |
T78:; |
T78:; |
230 |
base[8]= (V41); |
base[8]= (V40); |
231 |
base[9]= (V31); |
base[9]= (V30); |
232 |
base[10]= Cnil; |
base[10]= Cnil; |
233 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
234 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
235 |
vs_top=sup; |
vs_top=sup; |
236 |
V37= Ct; |
V36= Ct; |
237 |
goto T71; |
goto T71; |
238 |
T74:; |
T74:; |
239 |
{register object V42; |
{register object V41; |
240 |
V42= CMPcar((V41)); |
V41= CMPcar((V40)); |
241 |
if(!(((V42))==(VV[11]))){ |
if(!(((V41))==(VV[12]))){ |
242 |
goto T89;} |
goto T89;} |
243 |
if((CMPcdr((V41)))==Cnil){ |
if((CMPcdr((V40)))==Cnil){ |
244 |
goto T92;} |
goto T92;} |
245 |
if(!(type_of(CMPcadr((V41)))==t_symbol)){ |
if(!(type_of(CMPcadr((V40)))==t_symbol)){ |
246 |
goto T92;} |
goto T92;} |
247 |
V41= CMPcdr((V41)); |
V40= CMPcdr((V40)); |
248 |
base[8]= CMPcar((V41)); |
base[8]= CMPcar((V40)); |
249 |
base[9]= (V24); |
base[9]= (V23); |
250 |
base[10]= Cnil; |
base[10]= Cnil; |
251 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
252 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
253 |
vs_top=sup; |
vs_top=sup; |
254 |
goto T86; |
goto T86; |
255 |
T92:; |
T92:; |
256 |
base[8]= VV[13]; |
base[8]= VV[14]; |
257 |
base[9]= (V26); |
base[9]= (V25); |
258 |
base[10]= (V25); |
base[10]= (V24); |
259 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
260 |
(void) (*Lnk82)(); |
(void) (*Lnk82)(); |
261 |
vs_top=sup; |
vs_top=sup; |
262 |
goto T86; |
goto T86; |
263 |
T89:; |
T89:; |
264 |
if(!(((V42))==(VV[14]))){ |
if(!(((V41))==(VV[15]))){ |
265 |
goto T105;} |
goto T105;} |
266 |
if(((V29))==Cnil){ |
if(((V28))==Cnil){ |
267 |
goto T109;} |
goto T109;} |
268 |
base[8]= VV[15]; |
base[8]= VV[16]; |
269 |
base[9]= (V26); |
base[9]= (V25); |
270 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
271 |
Lerror(); |
Lerror(); |
272 |
vs_top=sup; |
vs_top=sup; |
273 |
goto T107; |
goto T107; |
274 |
T109:; |
T109:; |
275 |
if(((V28))!=Cnil){ |
if(((V27))!=Cnil){ |
276 |
goto T107;} |
goto T107;} |
277 |
base[8]= VV[16]; |
base[8]= VV[17]; |
278 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
279 |
Lerror(); |
Lerror(); |
280 |
vs_top=sup; |
vs_top=sup; |
281 |
T107:; |
T107:; |
282 |
if((CMPcdr((V41)))==Cnil){ |
if((CMPcdr((V40)))==Cnil){ |
283 |
goto T117;} |
goto T117;} |
284 |
if(!(type_of(CMPcadr((V41)))==t_symbol)){ |
if(!(type_of(CMPcadr((V40)))==t_symbol)){ |
285 |
goto T117;} |
goto T117;} |
286 |
V41= CMPcdr((V41)); |
V40= CMPcdr((V40)); |
287 |
base[8]= CMPcar((V41)); |
base[8]= CMPcar((V40)); |
288 |
base[9]= (V30); |
base[9]= (V29); |
289 |
base[10]= Cnil; |
base[10]= Cnil; |
290 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
291 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
292 |
vs_top=sup; |
vs_top=sup; |
293 |
V39= Ct; |
V38= Ct; |
294 |
goto T86; |
goto T86; |
295 |
T117:; |
T117:; |
296 |
base[8]= VV[17]; |
base[8]= VV[18]; |
297 |
base[9]= (V26); |
base[9]= (V25); |
298 |
base[10]= (V25); |
base[10]= (V24); |
299 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
300 |
(void) (*Lnk82)(); |
(void) (*Lnk82)(); |
301 |
vs_top=sup; |
vs_top=sup; |
302 |
goto T86; |
goto T86; |
303 |
T105:; |
T105:; |
304 |
if(((V42))==(VV[18])){ |
if(((V41))==(VV[19])){ |
305 |
goto T131;} |
goto T131;} |
306 |
if(!(((V42))==(VV[19]))){ |
if(!(((V41))==(VV[20]))){ |
307 |
goto T132;} |
goto T132;} |
308 |
T131:; |
T131:; |
309 |
if((CMPcdr((V41)))==Cnil){ |
if((CMPcdr((V40)))==Cnil){ |
310 |
goto T137;} |
goto T137;} |
311 |
if(!(type_of(CMPcadr((V41)))==t_symbol)){ |
if(!(type_of(CMPcadr((V40)))==t_symbol)){ |
312 |
goto T137;} |
goto T137;} |
313 |
V41= CMPcdr((V41)); |
V40= CMPcdr((V40)); |
314 |
V37= Ct; |
V36= Ct; |
315 |
base[8]= CMPcar((V41)); |
base[8]= CMPcar((V40)); |
316 |
base[9]= (V31); |
base[9]= (V30); |
317 |
base[10]= Cnil; |
base[10]= Cnil; |
318 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
319 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
320 |
vs_top=sup; |
vs_top=sup; |
321 |
goto T86; |
goto T86; |
322 |
T137:; |
T137:; |
323 |
if((CMPcdr((V41)))==Cnil){ |
if((CMPcdr((V40)))==Cnil){ |
324 |
goto T149;} |
goto T149;} |
325 |
if(!(type_of(CMPcadr((V41)))==t_cons)){ |
if(!(type_of(CMPcadr((V40)))==t_cons)){ |
326 |
goto T149;} |
goto T149;} |
327 |
if(!(type_of(CMPcaadr((V41)))==t_symbol)){ |
if(!(type_of(CMPcaadr((V40)))==t_symbol)){ |
328 |
goto T149;} |
goto T149;} |
329 |
V41= CMPcdr((V41)); |
V40= CMPcdr((V40)); |
330 |
V37= Ct; |
V36= Ct; |
331 |
{object V43; |
{object V42; |
332 |
|
object V43; |
333 |
object V44; |
object V44; |
334 |
object V45; |
object V45; |
335 |
object V46; |
V42= CMPcaar((V40)); |
336 |
V43= CMPcaar((V41)); |
V43= CMPcadar((V40)); |
337 |
V44= CMPcadar((V41)); |
V44= CMPcaddar((V40)); |
|
V45= CMPcaddar((V41)); |
|
338 |
vs_base=vs_top; |
vs_base=vs_top; |
339 |
Lgensym(); |
Lgensym(); |
340 |
vs_top=sup; |
vs_top=sup; |
341 |
V46= vs_base[0]; |
V45= vs_base[0]; |
342 |
base[8]= (V46); |
base[8]= (V45); |
343 |
base[9]= list(2,VV[20],list(4,VV[21],(V31),(V30),(((((V45))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil))); |
base[9]= list(2,VV[21],list(4,VV[22],(V30),(V29),(((((V44))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil))); |
344 |
base[10]= Ct; |
base[10]= Ct; |
345 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
346 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
347 |
vs_top=sup; |
vs_top=sup; |
348 |
V39= Ct; |
V38= Ct; |
349 |
if(((V43))==Cnil){ |
if(((V42))==Cnil){ |
350 |
goto T169;} |
goto T169;} |
351 |
base[8]= (V43); |
base[8]= (V42); |
352 |
base[9]= list(2,VV[22],(V46)); |
base[9]= list(2,VV[23],(V45)); |
353 |
base[10]= Cnil; |
base[10]= Cnil; |
354 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
355 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
356 |
vs_top=sup; |
vs_top=sup; |
357 |
T169:; |
T169:; |
358 |
if(((V44))==Cnil){ |
if(((V43))==Cnil){ |
359 |
goto T175;} |
goto T175;} |
360 |
base[8]= (V44); |
base[8]= (V43); |
361 |
base[9]= list(2,VV[23],(V46)); |
base[9]= list(2,VV[24],(V45)); |
362 |
base[10]= Cnil; |
base[10]= Cnil; |
363 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
364 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
365 |
vs_top=sup; |
vs_top=sup; |
366 |
T175:; |
T175:; |
367 |
if(((V45))==Cnil){ |
if(((V44))==Cnil){ |
368 |
goto T86;} |
goto T86;} |
369 |
base[8]= (V45); |
base[8]= (V44); |
370 |
base[9]= list(2,VV[24],(V46)); |
base[9]= list(2,VV[25],(V45)); |
371 |
base[10]= Cnil; |
base[10]= Cnil; |
372 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
373 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
374 |
vs_top=sup; |
vs_top=sup; |
375 |
goto T86;} |
goto T86;} |
376 |
T149:; |
T149:; |
377 |
base[8]= symbol_name((V42)); |
base[8]= symbol_name((V41)); |
378 |
base[9]= (V26); |
base[9]= (V25); |
379 |
base[10]= (V25); |
base[10]= (V24); |
380 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
381 |
(void) (*Lnk82)(); |
(void) (*Lnk82)(); |
382 |
vs_top=sup; |
vs_top=sup; |
383 |
goto T86; |
goto T86; |
384 |
T132:; |
T132:; |
385 |
if(!(((V42))==(VV[25]))){ |
if(!(((V41))==(VV[26]))){ |
386 |
goto T190;} |
goto T190;} |
387 |
V32= VV[26]; |
V31= VV[27]; |
388 |
goto T86; |
goto T86; |
389 |
T190:; |
T190:; |
390 |
if(!(((V42))==(VV[27]))){ |
if(!(((V41))==(VV[28]))){ |
391 |
goto T194;} |
goto T194;} |
392 |
V32= VV[28]; |
V31= VV[29]; |
393 |
base[8]= VV[29]; |
base[8]= VV[30]; |
394 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
395 |
Lgensym(); |
Lgensym(); |
396 |
vs_top=sup; |
vs_top=sup; |
397 |
V36= vs_base[0]; |
V35= vs_base[0]; |
398 |
(VV[30]->s.s_dbind)= make_cons((V36),(VV[30]->s.s_dbind)); |
(VV[5]->s.s_dbind)= make_cons((V35),(VV[5]->s.s_dbind)); |
399 |
V37= Ct; |
V36= Ct; |
400 |
base[8]= (V36); |
base[8]= (V35); |
401 |
base[9]= (V31); |
base[9]= (V30); |
402 |
base[10]= Ct; |
base[10]= Ct; |
403 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
404 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
405 |
vs_top=sup; |
vs_top=sup; |
406 |
goto T86; |
goto T86; |
407 |
T194:; |
T194:; |
408 |
if(!(((V42))==(VV[31]))){ |
if(!(((V41))==(VV[31]))){ |
409 |
goto T209;} |
goto T209;} |
410 |
V38= Ct; |
V37= Ct; |
411 |
goto T86; |
goto T86; |
412 |
T209:; |
T209:; |
413 |
if(!(((V42))==(VV[32]))){ |
if(!(((V41))==(VV[32]))){ |
414 |
goto T213;} |
goto T213;} |
415 |
V32= VV[33]; |
V31= VV[33]; |
416 |
goto T86; |
goto T86; |
417 |
T213:; |
T213:; |
418 |
if(!(type_of((V42))==t_cons||((V42))==Cnil)){ |
if(!(type_of((V41))==t_cons||((V41))==Cnil)){ |
419 |
goto T217;} |
goto T217;} |
420 |
{object V47= (V32); |
{object V46= (V31); |
421 |
if((V47!= VV[10]))goto T219; |
if((V46!= VV[11]))goto T219; |
422 |
{object V48; |
{object V47; |
423 |
base[8]= VV[34]; |
base[8]= VV[34]; |
424 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
425 |
Lgensym(); |
Lgensym(); |
426 |
vs_top=sup; |
vs_top=sup; |
427 |
V48= vs_base[0]; |
V47= vs_base[0]; |
428 |
base[8]= (V48); |
base[8]= (V47); |
429 |
base[9]= list(2,VV[22],(V31)); |
base[9]= list(2,VV[23],(V30)); |
430 |
base[10]= (V42); |
base[10]= (V41); |
431 |
base[11]= (V25); |
base[11]= (V24); |
432 |
base[12]= (V26); |
base[12]= (V25); |
433 |
base[13]= (V27); |
base[13]= (V26); |
434 |
vs_top=(vs_base=base+8)+6; |
vs_top=(vs_base=base+8)+6; |
435 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
436 |
vs_top=sup; |
vs_top=sup; |
437 |
base[8]= (V42); |
base[8]= (V41); |
438 |
base[9]= (V48); |
base[9]= (V47); |
439 |
base[10]= (V25); |
base[10]= (V24); |
440 |
base[11]= (V26); |
base[11]= (V25); |
441 |
base[12]= (V27); |
base[12]= (V26); |
442 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
443 |
(void) (*Lnk80)(); |
(void) (*Lnk80)(); |
444 |
vs_top=sup;} |
vs_top=sup;} |
445 |
V31= list(2,VV[9],(V31)); |
V30= list(2,VV[10],(V30)); |
|
V34= number_plus((V34),small_fixnum(1)); |
|
446 |
V33= number_plus((V33),small_fixnum(1)); |
V33= number_plus((V33),small_fixnum(1)); |
447 |
|
V32= number_plus((V32),small_fixnum(1)); |
448 |
goto T86; |
goto T86; |
449 |
T219:; |
T219:; |
450 |
if((V47!= VV[26]))goto T240; |
if((V46!= VV[27]))goto T240; |
451 |
if(!((length((V42)))>(3))){ |
if(!((length((V41)))>(3))){ |
452 |
goto T241;} |
goto T241;} |
453 |
base[8]= VV[35]; |
base[8]= VV[35]; |
454 |
base[9]= VV[36]; |
base[9]= VV[36]; |
455 |
base[10]= (V42); |
base[10]= (V41); |
456 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
457 |
Lcerror(); |
Lcerror(); |
458 |
vs_top=sup; |
vs_top=sup; |
459 |
T241:; |
T241:; |
460 |
base[8]= CMPcar((V42)); |
base[8]= CMPcar((V41)); |
461 |
base[9]= CMPcadr((V42)); |
base[9]= CMPcadr((V41)); |
462 |
base[10]= CMPcaddr((V42)); |
base[10]= CMPcaddr((V41)); |
463 |
base[11]= list(2,VV[37],list(2,VV[38],(V31))); |
base[11]= list(2,VV[37],list(2,VV[38],(V30))); |
464 |
base[12]= list(2,VV[22],(V31)); |
base[12]= list(2,VV[23],(V30)); |
465 |
base[13]= (V25); |
base[13]= (V24); |
466 |
base[14]= (V26); |
base[14]= (V25); |
467 |
base[15]= (V27); |
base[15]= (V26); |
468 |
vs_top=(vs_base=base+8)+8; |
vs_top=(vs_base=base+8)+8; |
469 |
(void) (*Lnk84)(); |
(void) (*Lnk84)(); |
470 |
vs_top=sup; |
vs_top=sup; |
471 |
V31= list(2,VV[9],(V31)); |
V30= list(2,VV[10],(V30)); |
472 |
V33= number_plus((V33),small_fixnum(1)); |
V32= number_plus((V32),small_fixnum(1)); |
473 |
goto T86; |
goto T86; |
474 |
T240:; |
T240:; |
475 |
if((V47!= VV[28]))goto T259; |
if((V46!= VV[29]))goto T259; |
476 |
{object V49; |
{object V48; |
477 |
|
object V49; |
478 |
object V50; |
object V50; |
479 |
object V51; |
object V51; |
480 |
object V52; |
V48= (type_of(CMPcar((V41)))==t_cons?Ct:Cnil); |
481 |
V49= (type_of(CMPcar((V42)))==t_cons?Ct:Cnil); |
if(((V48))==Cnil){ |
|
if(((V49))==Cnil){ |
|
482 |
goto T263;} |
goto T263;} |
483 |
V50= CMPcadar((V42)); |
V49= CMPcadar((V41)); |
484 |
goto T261; |
goto T261; |
485 |
T263:; |
T263:; |
486 |
V50= CMPcar((V42)); |
V49= CMPcar((V41)); |
487 |
T261:; |
T261:; |
488 |
if(((V49))==Cnil){ |
if(((V48))==Cnil){ |
489 |
goto T267;} |
goto T267;} |
490 |
V51= CMPcaar((V42)); |
V50= CMPcaar((V41)); |
491 |
goto T265; |
goto T265; |
492 |
T267:; |
T267:; |
493 |
base[12]= (V50); |
base[12]= (V49); |
494 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
495 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
496 |
vs_top=sup; |
vs_top=sup; |
497 |
V51= vs_base[0]; |
V50= vs_base[0]; |
498 |
T265:; |
T265:; |
499 |
V52= CMPcaddr((V42)); |
V51= CMPcaddr((V41)); |
500 |
base[12]= (V50); |
base[12]= (V49); |
501 |
base[13]= CMPcadr((V42)); |
base[13]= CMPcadr((V41)); |
502 |
base[14]= (V52); |
base[14]= (V51); |
503 |
base[15]= list(3,VV[39],list(2,VV[40],(V51)),(V36)); |
base[15]= list(3,VV[39],list(2,VV[40],(V50)),(V35)); |
504 |
base[16]= list(3,VV[41],list(2,VV[40],(V51)),(V36)); |
base[16]= list(3,VV[41],list(2,VV[40],(V50)),(V35)); |
505 |
base[17]= (V25); |
base[17]= (V24); |
506 |
base[18]= (V26); |
base[18]= (V25); |
507 |
base[19]= (V27); |
base[19]= (V26); |
508 |
vs_top=(vs_base=base+12)+8; |
vs_top=(vs_base=base+12)+8; |
509 |
(void) (*Lnk84)(); |
(void) (*Lnk84)(); |
510 |
vs_top=sup; |
vs_top=sup; |
511 |
V35= make_cons((V51),(V35)); |
V34= make_cons((V50),(V34)); |
512 |
goto T86;} |
goto T86;} |
513 |
T259:; |
T259:; |
514 |
if((V47!= VV[33]))goto T281; |
if((V46!= VV[33]))goto T281; |
515 |
base[8]= CMPcar((V42)); |
base[8]= CMPcar((V41)); |
516 |
base[9]= CMPcadr((V42)); |
base[9]= CMPcadr((V41)); |
517 |
base[10]= Cnil; |
base[10]= Cnil; |
518 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
519 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
522 |
T281:; |
T281:; |
523 |
goto T86;} |
goto T86;} |
524 |
T217:; |
T217:; |
525 |
if(!(type_of((V42))==t_symbol)){ |
if(!(type_of((V41))==t_symbol)){ |
526 |
goto T286;} |
goto T286;} |
527 |
{object V53= (V32); |
{object V52= (V31); |
528 |
if((V53!= VV[10]))goto T288; |
if((V52!= VV[11]))goto T288; |
|
V34= number_plus((V34),small_fixnum(1)); |
|
529 |
V33= number_plus((V33),small_fixnum(1)); |
V33= number_plus((V33),small_fixnum(1)); |
530 |
base[8]= (V42); |
V32= number_plus((V32),small_fixnum(1)); |
531 |
base[9]= list(2,VV[22],(V31)); |
base[8]= (V41); |
532 |
|
base[9]= list(2,VV[23],(V30)); |
533 |
base[10]= Cnil; |
base[10]= Cnil; |
534 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
535 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
536 |
vs_top=sup; |
vs_top=sup; |
537 |
V31= list(2,VV[9],(V31)); |
V30= list(2,VV[10],(V30)); |
538 |
goto T86; |
goto T86; |
539 |
T288:; |
T288:; |
540 |
if((V53!= VV[26]))goto T298; |
if((V52!= VV[27]))goto T298; |
541 |
V33= number_plus((V33),small_fixnum(1)); |
V32= number_plus((V32),small_fixnum(1)); |
542 |
base[8]= (V42); |
base[8]= (V41); |
543 |
base[9]= list(2,VV[22],(V31)); |
base[9]= list(2,VV[23],(V30)); |
544 |
base[10]= Cnil; |
base[10]= Cnil; |
545 |
base[11]= list(2,VV[37],list(2,VV[38],(V31))); |
base[11]= list(2,VV[37],list(2,VV[38],(V30))); |
546 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
547 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
V31= list(2,VV[9],(V31)); |
V30= list(2,VV[10],(V30)); |
550 |
goto T86; |
goto T86; |
551 |
T298:; |
T298:; |
552 |
if((V53!= VV[28]))goto T307; |
if((V52!= VV[29]))goto T307; |
553 |
{object V54; |
{object V53; |
554 |
base[8]= (V42); |
base[8]= (V41); |
555 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
556 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
557 |
vs_top=sup; |
vs_top=sup; |
558 |
V54= vs_base[0]; |
V53= vs_base[0]; |
559 |
base[8]= (V42); |
base[8]= (V41); |
560 |
base[9]= list(3,VV[41],(V54),(V36)); |
base[9]= list(3,VV[41],(V53),(V35)); |
561 |
base[10]= Cnil; |
base[10]= Cnil; |
562 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
563 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
564 |
vs_top=sup; |
vs_top=sup; |
565 |
V35= make_cons((V54),(V35)); |
V34= make_cons((V53),(V34)); |
566 |
goto T86;} |
goto T86;} |
567 |
T307:; |
T307:; |
568 |
if((V53!= VV[33]))goto T315; |
if((V52!= VV[33]))goto T315; |
569 |
base[8]= (V42); |
base[8]= (V41); |
570 |
base[9]= Cnil; |
base[9]= Cnil; |
571 |
base[10]= Cnil; |
base[10]= Cnil; |
572 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
577 |
goto T86;} |
goto T86;} |
578 |
T286:; |
T286:; |
579 |
base[8]= VV[42]; |
base[8]= VV[42]; |
580 |
base[9]= (V42); |
base[9]= (V41); |
581 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
582 |
Lerror(); |
Lerror(); |
583 |
vs_top=sup;} |
vs_top=sup;} |
584 |
T86:; |
T86:; |
585 |
V41= CMPcdr((V41)); |
V40= CMPcdr((V40)); |
586 |
goto T73;} |
goto T73;} |
587 |
T71:; |
T71:; |
588 |
if(((V37))!=Cnil){ |
if(((V36))!=Cnil){ |
589 |
goto T324;} |
goto T324;} |
590 |
if(((V28))==Cnil){ |
if(((V27))==Cnil){ |
591 |
goto T330;} |
goto T330;} |
592 |
V55= list(2,VV[9],(V24)); |
V54= list(2,VV[10],(V23)); |
593 |
goto T328; |
goto T328; |
594 |
T330:; |
T330:; |
595 |
V55= (V24); |
V54= (V23); |
596 |
T328:; |
T328:; |
597 |
V56= list(2,VV[45],list(3,VV[46],VV[47],V55)); |
V55= list(2,VV[45],list(3,VV[46],VV[47],V54)); |
598 |
if(((V37))!=Cnil){ |
if(((V36))!=Cnil){ |
599 |
goto T334;} |
goto T334;} |
600 |
V57= make_cons((V33),Cnil); |
V56= make_cons((V32),Cnil); |
601 |
goto T332; |
goto T332; |
602 |
T334:; |
T334:; |
603 |
V57= Cnil; |
V56= Cnil; |
604 |
T332:; |
T332:; |
605 |
V58= listA(4,VV[44],(V34),/* INLINE-ARGS */V56,V57); |
V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56); |
606 |
{object V60; |
{object V59; |
607 |
if(((V28))==Cnil){ |
if(((V27))==Cnil){ |
608 |
goto T339;} |
goto T339;} |
609 |
V60= list(2,VV[9],(V24)); |
V59= list(2,VV[10],(V23)); |
610 |
goto T337; |
goto T337; |
611 |
T339:; |
T339:; |
612 |
V60= (V24); |
V59= (V23); |
613 |
T337:; |
T337:; |
614 |
if(!(((V27))==(VV[1]))){ |
if(!(((V26))==(VV[1]))){ |
615 |
goto T342;} |
goto T342;} |
616 |
V61= list(2,VV[40],(V26)); |
V60= list(2,VV[40],(V25)); |
617 |
V62= list(2,VV[40],(V25)); |
V61= list(2,VV[40],(V24)); |
618 |
V63= list(2,VV[40],(V23)); |
V62= list(2,VV[40],(V22)); |
619 |
if(((V37))!=Cnil){ |
if(((V36))!=Cnil){ |
620 |
goto T346;} |
goto T346;} |
621 |
V64= (V33); |
V63= (V32); |
622 |
goto T344; |
goto T344; |
623 |
T346:; |
T346:; |
624 |
V64= Cnil; |
V63= Cnil; |
625 |
T344:; |
T344:; |
626 |
V59= list(7,VV[48],/* INLINE-ARGS */V61,/* INLINE-ARGS */V62,(V60),/* INLINE-ARGS */V63,(V34),V64); |
V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63); |
627 |
goto T336; |
goto T336; |
628 |
T342:; |
T342:; |
629 |
V65= list(2,VV[40],(V26)); |
V64= list(2,VV[40],(V25)); |
630 |
if(((V25))==Cnil){ |
if(((V24))==Cnil){ |
631 |
goto T350;} |
goto T350;} |
632 |
V66= list(2,VV[51],list(2,VV[40],(V25))); |
V65= list(2,VV[51],list(2,VV[40],(V24))); |
633 |
goto T348; |
goto T348; |
634 |
T350:; |
T350:; |
635 |
V66= Cnil; |
V65= Cnil; |
636 |
T348:; |
T348:; |
637 |
V67= list(2,VV[40],(V23)); |
V66= list(2,VV[40],(V22)); |
638 |
if(((V37))!=Cnil){ |
if(((V36))!=Cnil){ |
639 |
goto T354;} |
goto T354;} |
640 |
V68= list(2,VV[55],(V33)); |
V67= list(2,VV[55],(V32)); |
641 |
goto T352; |
goto T352; |
642 |
T354:; |
T354:; |
643 |
V68= Cnil; |
V67= Cnil; |
644 |
T352:; |
T352:; |
645 |
V69= listA(7,VV[52],(V60),VV[53],/* INLINE-ARGS */V67,VV[54],(V34),V68); |
V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67); |
646 |
V59= listA(5,(V27),VV[49],VV[50],/* INLINE-ARGS */V65,append(V66,/* INLINE-ARGS */V69));} |
V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));} |
647 |
T336:; |
T336:; |
648 |
V70= list(3,VV[43],/* INLINE-ARGS */V58,V59); |
V69= list(3,VV[43],/* INLINE-ARGS */V57,V58); |
649 |
(VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V70,(VV[2]->s.s_dbind)); |
(VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V69,(VV[2]->s.s_dbind)); |
650 |
T324:; |
T324:; |
651 |
if(((V35))==Cnil){ |
if(((V34))==Cnil){ |
652 |
goto T356;} |
goto T356;} |
653 |
{object V71; |
{object V70; |
654 |
object V72; |
object V71; |
655 |
base[8]= VV[56]; |
base[8]= VV[56]; |
656 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
657 |
Lgensym(); |
Lgensym(); |
658 |
vs_top=sup; |
vs_top=sup; |
659 |
V71= vs_base[0]; |
V70= vs_base[0]; |
660 |
base[8]= VV[57]; |
base[8]= VV[57]; |
661 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
662 |
Lgensym(); |
Lgensym(); |
663 |
vs_top=sup; |
vs_top=sup; |
664 |
V72= vs_base[0]; |
V71= vs_base[0]; |
665 |
V73= list(2,(V71),(V72)); |
V72= list(2,(V70),(V71)); |
666 |
V74= list(2,VV[40],(V35)); |
V73= list(2,VV[40],(V34)); |
667 |
V75= list(4,VV[59],(V36),/* INLINE-ARGS */V74,list(2,VV[40],(V38))); |
V74= list(4,VV[59],(V35),/* INLINE-ARGS */V73,list(2,VV[40],(V37))); |
668 |
V76= list(2,VV[40],(V26)); |
V75= list(2,VV[40],(V25)); |
669 |
if(((V25))==Cnil){ |
if(((V24))==Cnil){ |
670 |
goto T366;} |
goto T366;} |
671 |
V77= list(2,VV[51],list(2,VV[40],(V25))); |
V76= list(2,VV[51],list(2,VV[40],(V24))); |
672 |
goto T364; |
goto T364; |
673 |
T366:; |
T366:; |
674 |
V77= Cnil; |
V76= Cnil; |
675 |
T364:; |
T364:; |
676 |
V78= list(4,VV[62],(V71),VV[63],(V72)); |
V77= list(4,VV[62],(V70),VV[63],(V71)); |
677 |
V79= list(4,VV[58],/* INLINE-ARGS */V73,/* INLINE-ARGS */V75,list(3,VV[60],(V71),listA(5,(V27),VV[61],VV[50],/* INLINE-ARGS */V76,append(V77,/* INLINE-ARGS */V78)))); |
V78= list(4,VV[58],/* INLINE-ARGS */V72,/* INLINE-ARGS */V74,list(3,VV[60],(V70),listA(5,(V26),VV[61],VV[50],/* INLINE-ARGS */V75,append(V76,/* INLINE-ARGS */V77)))); |
678 |
(VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V79,(VV[2]->s.s_dbind));} |
(VV[2]->s.s_dbind)= make_cons(/* INLINE-ARGS */V78,(VV[2]->s.s_dbind));} |
679 |
T356:; |
T356:; |
680 |
base[8]= (V39); |
base[8]= (V38); |
681 |
base[9]= (V34); |
base[9]= (V33); |
682 |
if(((V37))!=Cnil){ |
if(((V36))!=Cnil){ |
683 |
goto T372;} |
goto T372;} |
684 |
base[10]= (V33); |
base[10]= (V32); |
685 |
goto T370; |
goto T370; |
686 |
T372:; |
T372:; |
687 |
base[10]= Cnil; |
base[10]= Cnil; |
696 |
{register object *base=vs_base; |
{register object *base=vs_base; |
697 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM3; VC3 |
698 |
vs_check; |
vs_check; |
699 |
{object V80; |
{object V79; |
700 |
|
object V80; |
701 |
object V81; |
object V81; |
702 |
object V82; |
object V82; |
703 |
object V83; |
object V83; |
704 |
object V84; |
object V84; |
705 |
object V85; |
V79=(base[0]); |
706 |
V80=(base[0]); |
V80=(base[1]); |
707 |
V81=(base[1]); |
V81=(base[2]); |
708 |
V82=(base[2]); |
V82=(base[3]); |
709 |
V83=(base[3]); |
V83=(base[4]); |
710 |
V84=(base[4]); |
V84=(base[5]); |
|
V85=(base[5]); |
|
711 |
vs_top=sup; |
vs_top=sup; |
712 |
TTL:; |
TTL:; |
713 |
{register object V86; |
{register object V85; |
714 |
base[6]= VV[64]; |
base[6]= VV[64]; |
715 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
716 |
Lgensym(); |
Lgensym(); |
717 |
vs_top=sup; |
vs_top=sup; |
718 |
V86= vs_base[0]; |
V85= vs_base[0]; |
719 |
V87= list(2,(V86),(V81)); |
V86= list(2,(V85),(V80)); |
720 |
V88= make_cons(/* INLINE-ARGS */V87,Cnil); |
V87= make_cons(/* INLINE-ARGS */V86,Cnil); |
721 |
V89= list(2,VV[67],(V86)); |
V88= list(2,VV[67],(V85)); |
722 |
V90= list(2,VV[40],(V84)); |
V89= list(2,VV[40],(V83)); |
723 |
if(((V83))==Cnil){ |
if(((V82))==Cnil){ |
724 |
goto T379;} |
goto T379;} |
725 |
V91= list(2,VV[51],list(2,VV[40],(V83))); |
V90= list(2,VV[51],list(2,VV[40],(V82))); |
726 |
goto T377; |
goto T377; |
727 |
T379:; |
T379:; |
728 |
V91= Cnil; |
V90= Cnil; |
729 |
T377:; |
T377:; |
730 |
V92= list(4,VV[69],(V86),VV[53],list(2,VV[40],(V82))); |
V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81))); |
731 |
V93= list(2,(V80),list(3,VV[65],/* INLINE-ARGS */V88,list(4,VV[66],/* INLINE-ARGS */V89,(V86),listA(5,(V85),VV[68],VV[50],/* INLINE-ARGS */V90,append(V91,/* INLINE-ARGS */V92))))); |
V92= list(2,(V79),list(3,VV[65],/* INLINE-ARGS */V87,list(4,VV[66],/* INLINE-ARGS */V88,(V85),listA(5,(V84),VV[68],VV[50],/* INLINE-ARGS */V89,append(V90,/* INLINE-ARGS */V91))))); |
732 |
(VV[4]->s.s_dbind)= make_cons(/* INLINE-ARGS */V93,(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons(/* INLINE-ARGS */V92,(VV[4]->s.s_dbind)); |
733 |
base[6]= (VV[4]->s.s_dbind); |
base[6]= (VV[4]->s.s_dbind); |
734 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
735 |
return;} |
return;} |
741 |
{register object *base=vs_base; |
{register object *base=vs_base; |
742 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
743 |
vs_check; |
vs_check; |
744 |
{object V94; |
{object V93; |
745 |
|
object V94; |
746 |
object V95; |
object V95; |
747 |
object V96; |
object V96; |
748 |
object V97; |
object V97; |
749 |
object V98; |
V93=(base[0]); |
750 |
V94=(base[0]); |
V94=(base[1]); |
751 |
V95=(base[1]); |
V95=(base[2]); |
|
V96=(base[2]); |
|
752 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
753 |
if(vs_base>=vs_top){vs_top=sup;goto T381;} |
if(vs_base>=vs_top){vs_top=sup;goto T381;} |
754 |
V97=(base[3]); |
V96=(base[3]); |
755 |
vs_base++; |
vs_base++; |
756 |
if(vs_base>=vs_top){vs_top=sup;goto T382;} |
if(vs_base>=vs_top){vs_top=sup;goto T382;} |
757 |
V98=(base[4]); |
V97=(base[4]); |
758 |
vs_top=sup; |
vs_top=sup; |
759 |
goto T383; |
goto T383; |
760 |
T381:; |
T381:; |
761 |
V97= Cnil; |
V96= Cnil; |
762 |
T382:; |
T382:; |
763 |
V98= (VV[0]->s.s_dbind); |
V97= (VV[0]->s.s_dbind); |
764 |
T383:; |
T383:; |
765 |
{object V99; |
{object V98; |
766 |
if(((V97))==Cnil){ |
if(((V96))==Cnil){ |
767 |
goto T388;} |
goto T388;} |
768 |
V99= list(2,(V94),list(4,VV[66],(V97),(V95),(V98))); |
V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97))); |
769 |
goto T386; |
goto T386; |
770 |
T388:; |
T388:; |
771 |
V99= list(2,(V94),(V95)); |
V98= list(2,(V93),(V94)); |
772 |
T386:; |
T386:; |
773 |
if(((V96))==Cnil){ |
if(((V95))==Cnil){ |
774 |
goto T391;} |
goto T391;} |
775 |
(VV[4]->s.s_dbind)= make_cons((V99),(VV[4]->s.s_dbind)); |
(VV[4]->s.s_dbind)= make_cons((V98),(VV[4]->s.s_dbind)); |
776 |
base[5]= (VV[4]->s.s_dbind); |
base[5]= (VV[4]->s.s_dbind); |
777 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
778 |
return; |
return; |
779 |
T391:; |
T391:; |
780 |
(VV[3]->s.s_dbind)= make_cons((V99),(VV[3]->s.s_dbind)); |
(VV[3]->s.s_dbind)= make_cons((V98),(VV[3]->s.s_dbind)); |
781 |
base[5]= (VV[3]->s.s_dbind); |
base[5]= (VV[3]->s.s_dbind); |
782 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
783 |
return;} |
return;} |
789 |
{register object *base=vs_base; |
{register object *base=vs_base; |
790 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
791 |
vs_check; |
vs_check; |
792 |
{register object V100; |
{register object V99; |
793 |
object V101; |
object V100; |
794 |
register object V102; |
register object V101; |
795 |
|
object V102; |
796 |
object V103; |
object V103; |
797 |
object V104; |
object V104; |
798 |
object V105; |
object V105; |
799 |
object V106; |
object V106; |
800 |
object V107; |
V99=(base[0]); |
801 |
V100=(base[0]); |
V100=(base[1]); |
802 |
V101=(base[1]); |
V101=(base[2]); |
803 |
V102=(base[2]); |
V102=(base[3]); |
804 |
V103=(base[3]); |
V103=(base[4]); |
805 |
V104=(base[4]); |
V104=(base[5]); |
806 |
V105=(base[5]); |
V105=(base[6]); |
807 |
V106=(base[6]); |
V106=(base[7]); |
|
V107=(base[7]); |
|
808 |
vs_top=sup; |
vs_top=sup; |
809 |
TTL:; |
TTL:; |
810 |
if(((V102))!=Cnil){ |
if(((V101))!=Cnil){ |
811 |
goto T395;} |
goto T395;} |
812 |
base[8]= VV[70]; |
base[8]= VV[70]; |
813 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
814 |
Lgensym(); |
Lgensym(); |
815 |
vs_top=sup; |
vs_top=sup; |
816 |
V102= vs_base[0]; |
V101= vs_base[0]; |
817 |
T395:; |
T395:; |
818 |
base[8]= (V102); |
base[8]= (V101); |
819 |
base[9]= (V103); |
base[9]= (V102); |
820 |
base[10]= Ct; |
base[10]= Ct; |
821 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
822 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
823 |
vs_top=sup; |
vs_top=sup; |
824 |
if(!(type_of((V100))==t_cons)){ |
if(!(type_of((V99))==t_cons)){ |
825 |
goto T405;} |
goto T405;} |
826 |
{object V108; |
{object V107; |
827 |
base[8]= VV[71]; |
base[8]= VV[71]; |
828 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
829 |
Lgensym(); |
Lgensym(); |
830 |
vs_top=sup; |
vs_top=sup; |
831 |
V108= vs_base[0]; |
V107= vs_base[0]; |
832 |
base[8]= (V108); |
base[8]= (V107); |
833 |
base[9]= list(4,VV[66],(V102),(V104),(V101)); |
base[9]= list(4,VV[66],(V101),(V103),(V100)); |
834 |
base[10]= (V100); |
base[10]= (V99); |
835 |
base[11]= (V105); |
base[11]= (V104); |
836 |
base[12]= (V106); |
base[12]= (V105); |
837 |
base[13]= (V107); |
base[13]= (V106); |
838 |
vs_top=(vs_base=base+8)+6; |
vs_top=(vs_base=base+8)+6; |
839 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
840 |
vs_top=sup; |
vs_top=sup; |
841 |
base[8]= (V100); |
base[8]= (V99); |
842 |
base[9]= (V108); |
base[9]= (V107); |
843 |
base[10]= (V105); |
base[10]= (V104); |
844 |
base[11]= (V106); |
base[11]= (V105); |
845 |
base[12]= (V107); |
base[12]= (V106); |
846 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
847 |
(void) (*Lnk80)(); |
(void) (*Lnk80)(); |
848 |
return;} |
return;} |
849 |
T405:; |
T405:; |
850 |
if(!(type_of((V100))==t_symbol)){ |
if(!(type_of((V99))==t_symbol)){ |
851 |
goto T422;} |
goto T422;} |
852 |
base[8]= (V100); |
base[8]= (V99); |
853 |
base[9]= (V104); |
base[9]= (V103); |
854 |
base[10]= Cnil; |
base[10]= Cnil; |
855 |
base[11]= (V102); |
base[11]= (V101); |
856 |
base[12]= (V101); |
base[12]= (V100); |
857 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
858 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
859 |
return; |
return; |
860 |
T422:; |
T422:; |
861 |
base[8]= VV[72]; |
base[8]= VV[72]; |
862 |
base[9]= (V100); |
base[9]= (V99); |
863 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
864 |
Lerror(); |
Lerror(); |
865 |
return; |
return; |
871 |
{register object *base=vs_base; |
{register object *base=vs_base; |
872 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
873 |
vs_check; |
vs_check; |
874 |
{object V109; |
{object V108; |
875 |
object V110; |
object V109; |
876 |
register object V111; |
register object V110; |
877 |
V109=(base[0]); |
V108=(base[0]); |
878 |
V110=(base[1]); |
V109=(base[1]); |
879 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
880 |
if(vs_base>=vs_top){vs_top=sup;goto T431;} |
if(vs_base>=vs_top){vs_top=sup;goto T431;} |
881 |
V111=(base[2]); |
V110=(base[2]); |
882 |
vs_top=sup; |
vs_top=sup; |
883 |
goto T432; |
goto T432; |
884 |
T431:; |
T431:; |
885 |
V111= Ct; |
V110= Ct; |
886 |
T432:; |
T432:; |
887 |
{register object V112; |
{register object V111; |
888 |
register object V113; |
register object V112; |
889 |
|
V111= Cnil; |
890 |
V112= Cnil; |
V112= Cnil; |
891 |
V113= Cnil; |
{register object V113; |
892 |
{register object V114; |
V113= (V108); |
|
V114= (V109); |
|
893 |
T435:; |
T435:; |
894 |
if(!(((V114))==Cnil)){ |
if(!(((V113))==Cnil)){ |
895 |
goto T436;} |
goto T436;} |
896 |
base[3]= (V114); |
base[3]= (V113); |
897 |
base[4]= nreverse((V112)); |
base[4]= nreverse((V111)); |
898 |
base[5]= (V113); |
base[5]= (V112); |
899 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
900 |
return; |
return; |
901 |
T436:; |
T436:; |
902 |
{register object V115; |
{register object V114; |
903 |
V115= CMPcar((V114)); |
V114= CMPcar((V113)); |
904 |
if(!(type_of((V115))==t_string)){ |
if(!(type_of((V114))==t_string)){ |
905 |
goto T446;} |
goto T446;} |
906 |
if((CMPcdr((V114)))==Cnil){ |
if((CMPcdr((V113)))==Cnil){ |
907 |
goto T446;} |
goto T446;} |
908 |
if(((V111))==Cnil){ |
if(((V110))==Cnil){ |
909 |
goto T451;} |
goto T451;} |
910 |
V113= (V115); |
V112= (V114); |
911 |
V111= Cnil; |
V110= Cnil; |
912 |
goto T443; |
goto T443; |
913 |
T451:; |
T451:; |
914 |
base[3]= (V114); |
base[3]= (V113); |
915 |
base[4]= nreverse((V112)); |
base[4]= nreverse((V111)); |
916 |
base[5]= (V113); |
base[5]= (V112); |
917 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
918 |
return; |
return; |
919 |
T446:; |
T446:; |
920 |
if(!(type_of((V115))==t_cons)){ |
if(!(type_of((V114))==t_cons)){ |
921 |
goto T459;} |
goto T459;} |
922 |
if(type_of(CMPcar((V115)))==t_symbol){ |
if(type_of(CMPcar((V114)))==t_symbol){ |
923 |
goto T460;} |
goto T460;} |
924 |
T459:; |
T459:; |
925 |
base[3]= (V114); |
base[3]= (V113); |
926 |
base[4]= nreverse((V112)); |
base[4]= nreverse((V111)); |
927 |
base[5]= (V113); |
base[5]= (V112); |
928 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
929 |
return; |
return; |
930 |
T460:; |
T460:; |
931 |
if(!((CMPcar((V115)))==(VV[6]))){ |
if(!((CMPcar((V114)))==(VV[7]))){ |
932 |
goto T468;} |
goto T468;} |
933 |
V112= make_cons((V115),(V112)); |
V111= make_cons((V114),(V111)); |
934 |
goto T443; |
goto T443; |
935 |
T468:; |
T468:; |
936 |
base[3]= (V114); |
base[3]= (V113); |
937 |
base[4]= nreverse((V112)); |
base[4]= nreverse((V111)); |
938 |
base[5]= (V113); |
base[5]= (V112); |
939 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
940 |
return;} |
return;} |
941 |
T443:; |
T443:; |
942 |
V114= CMPcdr((V114)); |
V113= CMPcdr((V113)); |
943 |
goto T435;}} |
goto T435;}} |
944 |
} |
} |
945 |
} |
} |
950 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
951 |
vs_check; |
vs_check; |
952 |
vs_top=sup; |
vs_top=sup; |
953 |
{object V116=base[0]->c.c_cdr; |
{object V115=base[0]->c.c_cdr; |
954 |
base[2]= (V116->c.c_car); |
base[2]= (V115->c.c_car); |
955 |
V116=V116->c.c_cdr; |
V115=V115->c.c_cdr; |
956 |
base[3]= (V116->c.c_car); |
base[3]= (V115->c.c_car); |
957 |
V116=V116->c.c_cdr; |
V115=V115->c.c_cdr; |
958 |
base[4]= V116;} |
base[4]= V115;} |
959 |
{object V117; |
{object V116; |
960 |
base[6]= VV[73]; |
base[6]= VV[73]; |
961 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
962 |
Lgensym(); |
Lgensym(); |
963 |
vs_top=sup; |
vs_top=sup; |
964 |
V117= vs_base[0]; |
V116= vs_base[0]; |
965 |
{object V118; |
{object V117; |
966 |
object V119; |
object V118; |
967 |
base[6]= base[2]; |
base[6]= base[2]; |
968 |
base[7]= (V117); |
base[7]= (V116); |
969 |
base[8]= base[4]; |
base[8]= base[4]; |
970 |
base[9]= Cnil; |
base[9]= Cnil; |
971 |
base[10]= VV[74]; |
base[10]= VV[74]; |
976 |
vs_top=(vs_base=base+6)+9; |
vs_top=(vs_base=base+6)+9; |
977 |
(void) (*Lnk86)(); |
(void) (*Lnk86)(); |
978 |
if(vs_base>=vs_top){vs_top=sup;goto T489;} |
if(vs_base>=vs_top){vs_top=sup;goto T489;} |
979 |
V118= vs_base[0]; |
V117= vs_base[0]; |
980 |
vs_base++; |
vs_base++; |
981 |
if(vs_base>=vs_top){vs_top=sup;goto T490;} |
if(vs_base>=vs_top){vs_top=sup;goto T490;} |
982 |
V119= vs_base[0]; |
V118= vs_base[0]; |
983 |
vs_top=sup; |
vs_top=sup; |
984 |
goto T491; |
goto T491; |
985 |
T489:; |
T489:; |
986 |
V118= Cnil; |
V117= Cnil; |
987 |
T490:; |
T490:; |
988 |
V119= Cnil; |
V118= Cnil; |
989 |
T491:; |
T491:; |
990 |
V120= list(2,(V117),base[3]); |
V119= list(2,(V116),base[3]); |
991 |
V121= make_cons(/* INLINE-ARGS */V120,Cnil); |
V120= make_cons(/* INLINE-ARGS */V119,Cnil); |
992 |
V122= make_cons((V118),Cnil); |
V121= make_cons((V117),Cnil); |
993 |
base[6]= listA(3,VV[65],/* INLINE-ARGS */V121,append((V119),/* INLINE-ARGS */V122)); |
base[6]= listA(3,VV[65],/* INLINE-ARGS */V120,append((V118),/* INLINE-ARGS */V121)); |
994 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
995 |
return;}} |
return;}} |
996 |
} |
} |
1001 |
static LnkT82(){ call_or_link(VV[82],&Lnk82);} /* DEFMACRO-ERROR */ |
static LnkT82(){ call_or_link(VV[82],&Lnk82);} /* DEFMACRO-ERROR */ |
1002 |
static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* PUSH-LET-BINDING */ |
static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* PUSH-LET-BINDING */ |
1003 |
static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */ |
static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */ |
1004 |
static LnkT21(){ call_or_link(VV[21],&Lnk21);} /* PARSE-BODY */ |
static LnkT22(){ call_or_link(VV[22],&Lnk22);} /* PARSE-BODY */ |