19 |
object V8; |
object V8; |
20 |
object V9; |
object V9; |
21 |
if(vs_top-vs_base<5) too_few_arguments(); |
if(vs_top-vs_base<5) too_few_arguments(); |
22 |
parse_key(vs_base+5,FALSE,FALSE,5,VV[75],VV[76],VV[77],VV[78],VV[79]); |
parse_key(vs_base+5,FALSE,FALSE,5,VV[77],VV[78],VV[79],VV[80],VV[81]); |
23 |
V1=(base[0]); |
V1=(base[0]); |
24 |
V2=(base[1]); |
V2=(base[1]); |
25 |
V3=(base[2]); |
V3=(base[2]); |
44 |
base[16]= Cnil; |
base[16]= Cnil; |
45 |
base[17]= (V7); |
base[17]= (V7); |
46 |
vs_top=(vs_base=base+15)+3; |
vs_top=(vs_base=base+15)+3; |
47 |
(void) (*Lnk22)(); |
(void) (*Lnk24)(); |
48 |
if(vs_base>=vs_top){vs_top=sup;goto T7;} |
if(vs_base>=vs_top){vs_top=sup;goto T7;} |
49 |
V10= vs_base[0]; |
V10= vs_base[0]; |
50 |
vs_base++; |
vs_base++; |
82 |
base[25]= Cnil; |
base[25]= Cnil; |
83 |
base[26]= (V8); |
base[26]= (V8); |
84 |
vs_top=(vs_base=base+19)+8; |
vs_top=(vs_base=base+19)+8; |
85 |
(void) (*Lnk80)(); |
(void) (*Lnk82)(); |
86 |
if(vs_base>=vs_top){vs_top=sup;goto T20;} |
if(vs_base>=vs_top){vs_top=sup;goto T20;} |
87 |
V13= vs_base[0]; |
V13= vs_base[0]; |
88 |
vs_base++; |
vs_base++; |
148 |
return;}} |
return;}} |
149 |
} |
} |
150 |
} |
} |
151 |
/* function definition for PARSE-DEFMACRO-LAMBDA-LIST */ |
/* function definition for MAKE-KEYWORD */ |
152 |
|
|
153 |
static void L2() |
static void L2() |
154 |
{register object *base=vs_base; |
{register object *base=vs_base; |
155 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM2; VC2 |
156 |
vs_reserve(VM2); |
vs_reserve(VM2); |
157 |
{object V22; |
{object V22; |
158 |
object V23; |
check_arg(1); |
159 |
register object V24; |
V22=(base[0]); |
160 |
register object V25; |
vs_top=sup; |
161 |
object V26; |
goto TTL; |
162 |
|
TTL:; |
163 |
|
base[1]= VV[10]; |
164 |
|
base[2]= (V22); |
165 |
|
vs_top=(vs_base=base+1)+2; |
166 |
|
Lerror(); |
167 |
|
return; |
168 |
|
} |
169 |
|
} |
170 |
|
/* function definition for DEFMACRO-ERROR */ |
171 |
|
|
172 |
|
static void L3() |
173 |
|
{register object *base=vs_base; |
174 |
|
register object *sup=base+VM3; VC3 |
175 |
|
vs_reserve(VM3); |
176 |
|
{object V23; |
177 |
|
object V24; |
178 |
|
object V25; |
179 |
|
check_arg(3); |
180 |
|
V23=(base[0]); |
181 |
|
V24=(base[1]); |
182 |
|
V25=(base[2]); |
183 |
|
vs_top=sup; |
184 |
|
goto TTL; |
185 |
|
TTL:; |
186 |
|
base[3]= VV[11]; |
187 |
|
base[4]= (V23); |
188 |
|
base[5]= (V24); |
189 |
|
base[6]= (V25); |
190 |
|
vs_top=(vs_base=base+3)+4; |
191 |
|
Lerror(); |
192 |
|
return; |
193 |
|
} |
194 |
|
} |
195 |
|
/* function definition for PARSE-DEFMACRO-LAMBDA-LIST */ |
196 |
|
|
197 |
|
static void L4() |
198 |
|
{register object *base=vs_base; |
199 |
|
register object *sup=base+VM4; VC4 |
200 |
|
vs_reserve(VM4); |
201 |
|
{object V26; |
202 |
object V27; |
object V27; |
203 |
object V28; |
register object V28; |
204 |
object V29; |
register object V29; |
205 |
|
object V30; |
206 |
|
object V31; |
207 |
|
object V32; |
208 |
|
object V33; |
209 |
if(vs_top-vs_base<5) too_few_arguments(); |
if(vs_top-vs_base<5) too_few_arguments(); |
210 |
if(vs_top-vs_base>8) too_many_arguments(); |
if(vs_top-vs_base>8) too_many_arguments(); |
211 |
V22=(base[0]); |
V26=(base[0]); |
212 |
V23=(base[1]); |
V27=(base[1]); |
213 |
V24=(base[2]); |
V28=(base[2]); |
214 |
V25=(base[3]); |
V29=(base[3]); |
215 |
V26=(base[4]); |
V30=(base[4]); |
216 |
vs_base=vs_base+5; |
vs_base=vs_base+5; |
217 |
if(vs_base>=vs_top){vs_top=sup;goto T41;} |
if(vs_base>=vs_top){vs_top=sup;goto T47;} |
218 |
V27=(base[5]); |
V31=(base[5]); |
219 |
vs_base++; |
vs_base++; |
220 |
if(vs_base>=vs_top){vs_top=sup;goto T42;} |
if(vs_base>=vs_top){vs_top=sup;goto T48;} |
221 |
V28=(base[6]); |
V32=(base[6]); |
222 |
vs_base++; |
vs_base++; |
223 |
if(vs_base>=vs_top){vs_top=sup;goto T43;} |
if(vs_base>=vs_top){vs_top=sup;goto T49;} |
224 |
V29=(base[7]); |
V33=(base[7]); |
225 |
vs_top=sup; |
vs_top=sup; |
226 |
goto T44; |
goto T50; |
227 |
goto T41; |
goto T47; |
228 |
T41:; |
T47:; |
229 |
V27= Cnil; |
V31= Cnil; |
230 |
goto T42; |
goto T48; |
231 |
T42:; |
T48:; |
232 |
V28= Cnil; |
V32= Cnil; |
233 |
goto T43; |
goto T49; |
234 |
T43:; |
T49:; |
235 |
V29= Cnil; |
V33= Cnil; |
236 |
goto T44; |
goto T50; |
237 |
T44:; |
T50:; |
238 |
{register object V30; |
{register object V34; |
|
object V31; |
|
|
register object V32; |
|
|
object V33; |
|
|
object V34; |
|
239 |
object V35; |
object V35; |
240 |
object V36; |
register object V36; |
241 |
object V37; |
object V37; |
242 |
object V38; |
object V38; |
243 |
if(((V27))==Cnil){ |
object V39; |
244 |
goto T50;} |
object V40; |
245 |
V30= list(2,VV[10],(V23)); |
object V41; |
246 |
goto T48; |
object V42; |
247 |
goto T50; |
if(((V31))==Cnil){ |
248 |
T50:; |
goto T56;} |
249 |
V30= (V23); |
V34= list(2,VV[12],(V27)); |
250 |
goto T48; |
goto T54; |
251 |
T48:; |
goto T56; |
252 |
V31= VV[11]; |
T56:; |
253 |
V32= small_fixnum(0); |
V34= (V27); |
254 |
V33= small_fixnum(0); |
goto T54; |
255 |
V34= Cnil; |
T54:; |
256 |
V35= Cnil; |
V35= VV[13]; |
257 |
V36= Cnil; |
V36= small_fixnum(0); |
258 |
V37= Cnil; |
V37= small_fixnum(0); |
259 |
V38= Cnil; |
V38= Cnil; |
260 |
{object V39; |
V39= Cnil; |
261 |
V39= (V22); |
V40= Cnil; |
262 |
goto T57; |
V41= Cnil; |
263 |
T57:; |
V42= Cnil; |
264 |
if(!(type_of((V39))!=t_cons)){ |
{object V43; |
265 |
|
V43= (V26); |
266 |
|
goto T63; |
267 |
|
T63:; |
268 |
|
if(!(type_of((V43))!=t_cons)){ |
269 |
|
goto T64;} |
270 |
|
goto T58; |
271 |
|
goto T64; |
272 |
|
T64:; |
273 |
|
if(!((car((V43)))==(VV[14]))){ |
274 |
|
goto T68;} |
275 |
|
goto T61; |
276 |
|
goto T68; |
277 |
|
T68:; |
278 |
|
V43= cdr((V43)); |
279 |
|
goto T63;} |
280 |
|
goto T61; |
281 |
|
T61:; |
282 |
|
if((car((V26)))==(VV[14])){ |
283 |
goto T58;} |
goto T58;} |
284 |
goto T52; |
base[8]= VV[15]; |
285 |
goto T58; |
base[9]= (V29); |
|
T58:; |
|
|
if(!((car((V39)))==(VV[12]))){ |
|
|
goto T62;} |
|
|
goto T55; |
|
|
goto T62; |
|
|
T62:; |
|
|
V39= cdr((V39)); |
|
|
goto T57;} |
|
|
goto T55; |
|
|
T55:; |
|
|
if((car((V22)))==(VV[12])){ |
|
|
goto T52;} |
|
|
base[8]= VV[13]; |
|
|
base[9]= (V25); |
|
286 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
287 |
Lerror(); |
Lerror(); |
288 |
vs_top=sup; |
vs_top=sup; |
289 |
goto T52; |
goto T58; |
290 |
T52:; |
T58:; |
291 |
{register object V40; |
{register object V44; |
292 |
V40= (V22); |
V44= (V26); |
293 |
goto T73; |
goto T79; |
294 |
T73:; |
T79:; |
295 |
if(!(type_of((V40))!=t_cons)){ |
if(!(type_of((V44))!=t_cons)){ |
296 |
goto T74;} |
goto T80;} |
297 |
if(((V40))!=Cnil){ |
if(((V44))!=Cnil){ |
298 |
goto T78;} |
goto T84;} |
299 |
goto T71; |
goto T77; |
300 |
goto T78; |
goto T84; |
301 |
T78:; |
T84:; |
302 |
base[8]= (V40); |
base[8]= (V44); |
303 |
base[9]= (V30); |
base[9]= (V34); |
304 |
base[10]= Cnil; |
base[10]= Cnil; |
305 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
306 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
307 |
vs_top=sup; |
vs_top=sup; |
308 |
V36= Ct; |
V40= Ct; |
309 |
goto T71; |
goto T77; |
310 |
goto T74; |
goto T80; |
311 |
T74:; |
T80:; |
312 |
{register object V41; |
{register object V45; |
313 |
V41= car((V40)); |
V45= car((V44)); |
314 |
if(!(((V41))==(VV[12]))){ |
if(!(((V45))==(VV[14]))){ |
315 |
goto T89;} |
goto T95;} |
316 |
if((cdr((V40)))==Cnil){ |
if((cdr((V44)))==Cnil){ |
317 |
goto T92;} |
goto T98;} |
318 |
if(!(type_of(cadr((V40)))==t_symbol)){ |
if(!(type_of(cadr((V44)))==t_symbol)){ |
319 |
goto T92;} |
goto T98;} |
320 |
V40= cdr((V40)); |
V44= cdr((V44)); |
321 |
base[8]= car((V40)); |
base[8]= car((V44)); |
322 |
base[9]= (V23); |
base[9]= (V27); |
323 |
base[10]= Cnil; |
base[10]= Cnil; |
324 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
325 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
326 |
vs_top=sup; |
vs_top=sup; |
327 |
goto T86; |
goto T92; |
328 |
goto T92; |
goto T98; |
329 |
T92:; |
T98:; |
330 |
base[8]= VV[14]; |
base[8]= VV[16]; |
331 |
base[9]= (V25); |
base[9]= (V29); |
332 |
base[10]= (V24); |
base[10]= (V28); |
333 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
334 |
(void) (*Lnk82)(); |
(void) (*Lnk84)(); |
335 |
vs_top=sup; |
vs_top=sup; |
336 |
goto T86; |
goto T92; |
337 |
goto T89; |
goto T95; |
338 |
T89:; |
T95:; |
339 |
if(!(((V41))==(VV[15]))){ |
if(!(((V45))==(VV[17]))){ |
340 |
goto T105;} |
goto T111;} |
341 |
if(((V28))==Cnil){ |
if(((V32))==Cnil){ |
342 |
goto T109;} |
goto T115;} |
343 |
base[8]= VV[16]; |
base[8]= VV[18]; |
344 |
base[9]= (V25); |
base[9]= (V29); |
345 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
346 |
Lerror(); |
Lerror(); |
347 |
vs_top=sup; |
vs_top=sup; |
348 |
goto T107; |
goto T113; |
349 |
goto T109; |
goto T115; |
350 |
T109:; |
T115:; |
351 |
if(((V27))!=Cnil){ |
if(((V31))!=Cnil){ |
352 |
goto T107;} |
goto T113;} |
353 |
base[8]= VV[17]; |
base[8]= VV[19]; |
354 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
355 |
Lerror(); |
Lerror(); |
356 |
vs_top=sup; |
vs_top=sup; |
357 |
goto T107; |
goto T113; |
358 |
T107:; |
T113:; |
359 |
if((cdr((V40)))==Cnil){ |
if((cdr((V44)))==Cnil){ |
360 |
goto T117;} |
goto T123;} |
361 |
if(!(type_of(cadr((V40)))==t_symbol)){ |
if(!(type_of(cadr((V44)))==t_symbol)){ |
362 |
goto T117;} |
goto T123;} |
363 |
V40= cdr((V40)); |
V44= cdr((V44)); |
364 |
base[8]= car((V40)); |
base[8]= car((V44)); |
365 |
base[9]= (V29); |
base[9]= (V33); |
366 |
base[10]= Cnil; |
base[10]= Cnil; |
367 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
368 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
369 |
vs_top=sup; |
vs_top=sup; |
370 |
V38= Ct; |
V42= Ct; |
371 |
goto T86; |
goto T92; |
372 |
goto T117; |
goto T123; |
373 |
T117:; |
T123:; |
374 |
base[8]= VV[18]; |
base[8]= VV[20]; |
375 |
base[9]= (V25); |
base[9]= (V29); |
376 |
base[10]= (V24); |
base[10]= (V28); |
377 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
378 |
(void) (*Lnk82)(); |
(void) (*Lnk84)(); |
379 |
vs_top=sup; |
vs_top=sup; |
380 |
goto T86; |
goto T92; |
381 |
goto T105; |
goto T111; |
382 |
T105:; |
T111:; |
383 |
if(((V41))==(VV[19])){ |
if(((V45))==(VV[21])){ |
|
goto T131;} |
|
|
if(!(((V41))==(VV[20]))){ |
|
|
goto T132;} |
|
|
goto T131; |
|
|
T131:; |
|
|
if((cdr((V40)))==Cnil){ |
|
384 |
goto T137;} |
goto T137;} |
385 |
if(!(type_of(cadr((V40)))==t_symbol)){ |
if(!(((V45))==(VV[22]))){ |
386 |
goto T137;} |
goto T138;} |
387 |
V40= cdr((V40)); |
goto T137; |
388 |
V36= Ct; |
T137:; |
389 |
base[8]= car((V40)); |
if((cdr((V44)))==Cnil){ |
390 |
base[9]= (V30); |
goto T143;} |
391 |
|
if(!(type_of(cadr((V44)))==t_symbol)){ |
392 |
|
goto T143;} |
393 |
|
V44= cdr((V44)); |
394 |
|
V40= Ct; |
395 |
|
base[8]= car((V44)); |
396 |
|
base[9]= (V34); |
397 |
base[10]= Cnil; |
base[10]= Cnil; |
398 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
399 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
400 |
vs_top=sup; |
vs_top=sup; |
401 |
goto T86; |
goto T92; |
402 |
goto T137; |
goto T143; |
403 |
T137:; |
T143:; |
404 |
if((cdr((V40)))==Cnil){ |
if((cdr((V44)))==Cnil){ |
405 |
goto T149;} |
goto T155;} |
406 |
if(!(type_of(cadr((V40)))==t_cons)){ |
if(!(type_of(cadr((V44)))==t_cons)){ |
407 |
goto T149;} |
goto T155;} |
408 |
if(!(type_of(caadr((V40)))==t_symbol)){ |
if(!(type_of(caadr((V44)))==t_symbol)){ |
409 |
goto T149;} |
goto T155;} |
410 |
V40= cdr((V40)); |
V44= cdr((V44)); |
411 |
V36= Ct; |
V40= Ct; |
412 |
{object V42; |
{object V46; |
413 |
object V43; |
object V47; |
414 |
object V44; |
object V48; |
415 |
object V45; |
object V49; |
416 |
V42= caar((V40)); |
V46= caar((V44)); |
417 |
V43= cadar((V40)); |
V47= cadar((V44)); |
418 |
V44= caddar((V40)); |
V48= caddar((V44)); |
419 |
vs_base=vs_top; |
vs_base=vs_top; |
420 |
Lgensym(); |
Lgensym(); |
421 |
vs_top=sup; |
vs_top=sup; |
422 |
V45= vs_base[0]; |
V49= vs_base[0]; |
423 |
base[8]= (V45); |
base[8]= (V49); |
424 |
base[9]= list(2,VV[21],list(4,VV[22],(V30),(V29),(((((V44))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil))); |
base[9]= list(2,VV[23],list(4,VV[24],(V34),(V33),(((((V48))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil))); |
425 |
base[10]= Ct; |
base[10]= Ct; |
426 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
427 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
|
vs_top=sup; |
|
|
V38= Ct; |
|
|
if(((V42))==Cnil){ |
|
|
goto T169;} |
|
|
base[8]= (V42); |
|
|
base[9]= list(2,VV[23],(V45)); |
|
|
base[10]= Cnil; |
|
|
vs_top=(vs_base=base+8)+3; |
|
|
(void) (*Lnk81)(); |
|
428 |
vs_top=sup; |
vs_top=sup; |
429 |
goto T169; |
V42= Ct; |
430 |
T169:; |
if(((V46))==Cnil){ |
|
if(((V43))==Cnil){ |
|
431 |
goto T175;} |
goto T175;} |
432 |
base[8]= (V43); |
base[8]= (V46); |
433 |
base[9]= list(2,VV[24],(V45)); |
base[9]= list(2,VV[25],(V49)); |
434 |
base[10]= Cnil; |
base[10]= Cnil; |
435 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
436 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
437 |
vs_top=sup; |
vs_top=sup; |
438 |
goto T175; |
goto T175; |
439 |
T175:; |
T175:; |
440 |
if(((V44))==Cnil){ |
if(((V47))==Cnil){ |
441 |
goto T86;} |
goto T181;} |
442 |
base[8]= (V44); |
base[8]= (V47); |
443 |
base[9]= list(2,VV[25],(V45)); |
base[9]= list(2,VV[26],(V49)); |
444 |
|
base[10]= Cnil; |
445 |
|
vs_top=(vs_base=base+8)+3; |
446 |
|
(void) (*Lnk83)(); |
447 |
|
vs_top=sup; |
448 |
|
goto T181; |
449 |
|
T181:; |
450 |
|
if(((V48))==Cnil){ |
451 |
|
goto T92;} |
452 |
|
base[8]= (V48); |
453 |
|
base[9]= list(2,VV[27],(V49)); |
454 |
base[10]= Cnil; |
base[10]= Cnil; |
455 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
456 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
457 |
vs_top=sup; |
vs_top=sup; |
458 |
goto T86;} |
goto T92;} |
459 |
goto T149; |
goto T155; |
460 |
T149:; |
T155:; |
461 |
base[8]= symbol_name((V41)); |
base[8]= symbol_name((V45)); |
462 |
base[9]= (V25); |
base[9]= (V29); |
463 |
base[10]= (V24); |
base[10]= (V28); |
464 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
465 |
(void) (*Lnk82)(); |
(void) (*Lnk84)(); |
466 |
vs_top=sup; |
vs_top=sup; |
467 |
goto T86; |
goto T92; |
468 |
goto T132; |
goto T138; |
469 |
T132:; |
T138:; |
470 |
if(!(((V41))==(VV[26]))){ |
if(!(((V45))==(VV[28]))){ |
471 |
goto T190;} |
goto T196;} |
472 |
V31= VV[27]; |
V35= VV[29]; |
473 |
goto T86; |
goto T92; |
474 |
goto T190; |
goto T196; |
475 |
T190:; |
T196:; |
476 |
if(!(((V41))==(VV[28]))){ |
if(!(((V45))==(VV[30]))){ |
477 |
goto T194;} |
goto T200;} |
478 |
V31= VV[29]; |
V35= VV[31]; |
479 |
base[8]= VV[30]; |
base[8]= VV[32]; |
480 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
481 |
Lgensym(); |
Lgensym(); |
482 |
vs_top=sup; |
vs_top=sup; |
483 |
V35= vs_base[0]; |
V39= vs_base[0]; |
484 |
setq(VV[5],make_cons((V35),symbol_value(VV[5]))); |
setq(VV[5],make_cons((V39),symbol_value(VV[5]))); |
485 |
V36= Ct; |
V40= Ct; |
486 |
base[8]= (V35); |
base[8]= (V39); |
487 |
base[9]= (V30); |
base[9]= (V34); |
488 |
base[10]= Ct; |
base[10]= Ct; |
489 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
490 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
491 |
vs_top=sup; |
vs_top=sup; |
492 |
goto T86; |
goto T92; |
493 |
goto T194; |
goto T200; |
494 |
T194:; |
T200:; |
495 |
if(!(((V41))==(VV[31]))){ |
if(!(((V45))==(VV[33]))){ |
496 |
goto T209;} |
goto T215;} |
497 |
V37= Ct; |
V41= Ct; |
498 |
goto T86; |
goto T92; |
499 |
goto T209; |
goto T215; |
500 |
T209:; |
T215:; |
501 |
if(!(((V41))==(VV[32]))){ |
if(!(((V45))==(VV[34]))){ |
502 |
goto T213;} |
goto T219;} |
503 |
V31= VV[33]; |
V35= VV[35]; |
504 |
goto T86; |
goto T92; |
505 |
goto T213; |
goto T219; |
506 |
T213:; |
T219:; |
507 |
if(!(type_of((V41))==t_cons||((V41))==Cnil)){ |
if(!(type_of((V45))==t_cons||((V45))==Cnil)){ |
508 |
goto T217;} |
goto T223;} |
509 |
{object V46= (V31); |
{object V50= (V35); |
510 |
if((V46!= VV[11]))goto T219; |
if((V50!= VV[13]))goto T225; |
511 |
{object V47; |
{object V51; |
512 |
base[8]= VV[34]; |
base[8]= VV[36]; |
513 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
514 |
Lgensym(); |
Lgensym(); |
515 |
vs_top=sup; |
vs_top=sup; |
516 |
V47= vs_base[0]; |
V51= vs_base[0]; |
517 |
base[8]= (V47); |
base[8]= (V51); |
518 |
base[9]= list(2,VV[23],(V30)); |
base[9]= list(2,VV[25],(V34)); |
519 |
base[10]= (V41); |
base[10]= (V45); |
520 |
base[11]= (V24); |
base[11]= (V28); |
521 |
base[12]= (V25); |
base[12]= (V29); |
522 |
base[13]= (V26); |
base[13]= (V30); |
523 |
vs_top=(vs_base=base+8)+6; |
vs_top=(vs_base=base+8)+6; |
524 |
(void) (*Lnk83)(); |
(void) (*Lnk85)(); |
525 |
vs_top=sup; |
vs_top=sup; |
526 |
base[8]= (V41); |
base[8]= (V45); |
527 |
base[9]= (V47); |
base[9]= (V51); |
528 |
base[10]= (V24); |
base[10]= (V28); |
529 |
base[11]= (V25); |
base[11]= (V29); |
530 |
base[12]= (V26); |
base[12]= (V30); |
531 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
532 |
(void) (*Lnk80)(); |
(void) (*Lnk82)(); |
533 |
vs_top=sup;} |
vs_top=sup;} |
534 |
V30= list(2,VV[10],(V30)); |
V34= list(2,VV[12],(V34)); |
535 |
V33= number_plus((V33),small_fixnum(1)); |
V37= number_plus((V37),small_fixnum(1)); |
536 |
V32= number_plus((V32),small_fixnum(1)); |
V36= number_plus((V36),small_fixnum(1)); |
537 |
goto T86; |
goto T92; |
538 |
goto T219; |
goto T225; |
539 |
T219:; |
T225:; |
540 |
if((V46!= VV[27]))goto T240; |
if((V50!= VV[29]))goto T246; |
541 |
if(!(((long)length((V41)))>(3))){ |
if(!(((long)length((V45)))>(3))){ |
542 |
goto T241;} |
goto T247;} |
543 |
base[8]= VV[35]; |
base[8]= VV[37]; |
544 |
base[9]= VV[36]; |
base[9]= VV[38]; |
545 |
base[10]= (V41); |
base[10]= (V45); |
546 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
547 |
Lcerror(); |
Lcerror(); |
548 |
vs_top=sup; |
vs_top=sup; |
549 |
goto T241; |
goto T247; |
550 |
T241:; |
T247:; |
551 |
base[8]= car((V41)); |
base[8]= car((V45)); |
552 |
base[9]= cadr((V41)); |
base[9]= cadr((V45)); |
553 |
base[10]= caddr((V41)); |
base[10]= caddr((V45)); |
554 |
base[11]= list(2,VV[37],list(2,VV[38],(V30))); |
base[11]= list(2,VV[39],list(2,VV[40],(V34))); |
555 |
base[12]= list(2,VV[23],(V30)); |
base[12]= list(2,VV[25],(V34)); |
556 |
base[13]= (V24); |
base[13]= (V28); |
557 |
base[14]= (V25); |
base[14]= (V29); |
558 |
base[15]= (V26); |
base[15]= (V30); |
559 |
vs_top=(vs_base=base+8)+8; |
vs_top=(vs_base=base+8)+8; |
560 |
(void) (*Lnk84)(); |
(void) (*Lnk86)(); |
561 |
vs_top=sup; |
vs_top=sup; |
562 |
V30= list(2,VV[10],(V30)); |
V34= list(2,VV[12],(V34)); |
563 |
V32= number_plus((V32),small_fixnum(1)); |
V36= number_plus((V36),small_fixnum(1)); |
564 |
goto T86; |
goto T92; |
565 |
goto T240; |
goto T246; |
566 |
T240:; |
T246:; |
567 |
if((V46!= VV[29]))goto T259; |
if((V50!= VV[31]))goto T265; |
568 |
{object V48; |
{object V52; |
569 |
object V49; |
object V53; |
570 |
object V50; |
object V54; |
571 |
object V51; |
object V55; |
572 |
V48= (type_of(car((V41)))==t_cons?Ct:Cnil); |
V52= (type_of(car((V45)))==t_cons?Ct:Cnil); |
573 |
if(((V48))==Cnil){ |
if(((V52))==Cnil){ |
574 |
goto T263;} |
goto T269;} |
575 |
V49= cadar((V41)); |
V53= cadar((V45)); |
576 |
goto T261; |
goto T267; |
577 |
goto T263; |
goto T269; |
578 |
T263:; |
T269:; |
579 |
V49= car((V41)); |
V53= car((V45)); |
|
goto T261; |
|
|
T261:; |
|
|
if(((V48))==Cnil){ |
|
|
goto T267;} |
|
|
V50= caar((V41)); |
|
|
goto T265; |
|
580 |
goto T267; |
goto T267; |
581 |
T267:; |
T267:; |
582 |
base[12]= (V49); |
if(((V52))==Cnil){ |
583 |
|
goto T273;} |
584 |
|
V54= caar((V45)); |
585 |
|
goto T271; |
586 |
|
goto T273; |
587 |
|
T273:; |
588 |
|
base[12]= (V53); |
589 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
590 |
(void) (*Lnk85)(); |
(void) (*Lnk87)(); |
591 |
vs_top=sup; |
vs_top=sup; |
592 |
V50= vs_base[0]; |
V54= vs_base[0]; |
593 |
goto T265; |
goto T271; |
594 |
T265:; |
T271:; |
595 |
V51= caddr((V41)); |
V55= caddr((V45)); |
596 |
base[12]= (V49); |
base[12]= (V53); |
597 |
base[13]= cadr((V41)); |
base[13]= cadr((V45)); |
598 |
base[14]= (V51); |
base[14]= (V55); |
599 |
base[15]= list(3,VV[39],list(2,VV[40],(V50)),(V35)); |
base[15]= list(3,VV[41],list(2,VV[42],(V54)),(V39)); |
600 |
base[16]= list(3,VV[41],list(2,VV[40],(V50)),(V35)); |
base[16]= list(3,VV[43],list(2,VV[42],(V54)),(V39)); |
601 |
base[17]= (V24); |
base[17]= (V28); |
602 |
base[18]= (V25); |
base[18]= (V29); |
603 |
base[19]= (V26); |
base[19]= (V30); |
604 |
vs_top=(vs_base=base+12)+8; |
vs_top=(vs_base=base+12)+8; |
605 |
(void) (*Lnk84)(); |
(void) (*Lnk86)(); |
606 |
vs_top=sup; |
vs_top=sup; |
607 |
V34= make_cons((V50),(V34)); |
V38= make_cons((V54),(V38)); |
608 |
goto T86;} |
goto T92;} |
609 |
goto T259; |
goto T265; |
610 |
T259:; |
T265:; |
611 |
if((V46!= VV[33]))goto T281; |
if((V50!= VV[35]))goto T287; |
612 |
base[8]= car((V41)); |
base[8]= car((V45)); |
613 |
base[9]= cadr((V41)); |
base[9]= cadr((V45)); |
614 |
base[10]= Cnil; |
base[10]= Cnil; |
615 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
616 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
617 |
vs_top=sup; |
vs_top=sup; |
618 |
goto T86; |
goto T92; |
619 |
goto T281; |
goto T287; |
620 |
T281:; |
T287:; |
621 |
goto T86;} |
goto T92;} |
622 |
goto T217; |
goto T223; |
623 |
T217:; |
T223:; |
624 |
if(!(type_of((V41))==t_symbol)){ |
if(!(type_of((V45))==t_symbol)){ |
625 |
goto T286;} |
goto T292;} |
626 |
{object V52= (V31); |
{object V56= (V35); |
627 |
if((V52!= VV[11]))goto T288; |
if((V56!= VV[13]))goto T294; |
628 |
V33= number_plus((V33),small_fixnum(1)); |
V37= number_plus((V37),small_fixnum(1)); |
629 |
V32= number_plus((V32),small_fixnum(1)); |
V36= number_plus((V36),small_fixnum(1)); |
630 |
base[8]= (V41); |
base[8]= (V45); |
631 |
base[9]= list(2,VV[23],(V30)); |
base[9]= list(2,VV[25],(V34)); |
632 |
base[10]= Cnil; |
base[10]= Cnil; |
633 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
634 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
635 |
vs_top=sup; |
vs_top=sup; |
636 |
V30= list(2,VV[10],(V30)); |
V34= list(2,VV[12],(V34)); |
637 |
goto T86; |
goto T92; |
638 |
goto T288; |
goto T294; |
639 |
T288:; |
T294:; |
640 |
if((V52!= VV[27]))goto T298; |
if((V56!= VV[29]))goto T304; |
641 |
V32= number_plus((V32),small_fixnum(1)); |
V36= number_plus((V36),small_fixnum(1)); |
642 |
base[8]= (V41); |
base[8]= (V45); |
643 |
base[9]= list(2,VV[23],(V30)); |
base[9]= list(2,VV[25],(V34)); |
644 |
base[10]= Cnil; |
base[10]= Cnil; |
645 |
base[11]= list(2,VV[37],list(2,VV[38],(V30))); |
base[11]= list(2,VV[39],list(2,VV[40],(V34))); |
646 |
vs_top=(vs_base=base+8)+4; |
vs_top=(vs_base=base+8)+4; |
647 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
648 |
vs_top=sup; |
vs_top=sup; |
649 |
V30= list(2,VV[10],(V30)); |
V34= list(2,VV[12],(V34)); |
650 |
goto T86; |
goto T92; |
651 |
goto T298; |
goto T304; |
652 |
T298:; |
T304:; |
653 |
if((V52!= VV[29]))goto T307; |
if((V56!= VV[31]))goto T313; |
654 |
{object V53; |
{object V57; |
655 |
base[8]= (V41); |
base[8]= (V45); |
656 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
657 |
(void) (*Lnk85)(); |
(void) (*Lnk87)(); |
658 |
vs_top=sup; |
vs_top=sup; |
659 |
V53= vs_base[0]; |
V57= vs_base[0]; |
660 |
base[8]= (V41); |
base[8]= (V45); |
661 |
base[9]= list(3,VV[41],(V53),(V35)); |
base[9]= list(3,VV[43],(V57),(V39)); |
662 |
base[10]= Cnil; |
base[10]= Cnil; |
663 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
664 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
665 |
vs_top=sup; |
vs_top=sup; |
666 |
V34= make_cons((V53),(V34)); |
V38= make_cons((V57),(V38)); |
667 |
goto T86;} |
goto T92;} |
668 |
goto T307; |
goto T313; |
669 |
T307:; |
T313:; |
670 |
if((V52!= VV[33]))goto T315; |
if((V56!= VV[35]))goto T321; |
671 |
base[8]= (V41); |
base[8]= (V45); |
672 |
base[9]= Cnil; |
base[9]= Cnil; |
673 |
base[10]= Cnil; |
base[10]= Cnil; |
674 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
675 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
676 |
vs_top=sup; |
vs_top=sup; |
677 |
goto T86; |
goto T92; |
678 |
goto T315; |
goto T321; |
679 |
T315:; |
T321:; |
680 |
goto T86;} |
goto T92;} |
681 |
goto T286; |
goto T292; |
682 |
T286:; |
T292:; |
683 |
base[8]= VV[42]; |
base[8]= VV[44]; |
684 |
base[9]= (V41); |
base[9]= (V45); |
685 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
686 |
Lerror(); |
Lerror(); |
687 |
vs_top=sup;} |
vs_top=sup;} |
688 |
goto T86; |
goto T92; |
689 |
T86:; |
T92:; |
690 |
V40= cdr((V40)); |
V44= cdr((V44)); |
691 |
goto T73;} |
goto T79;} |
692 |
goto T71; |
goto T77; |
693 |
T71:; |
T77:; |
694 |
if(((V36))!=Cnil){ |
if(((V40))!=Cnil){ |
|
goto T324;} |
|
|
if(((V27))==Cnil){ |
|
695 |
goto T330;} |
goto T330;} |
696 |
V54= list(2,VV[10],(V23)); |
if(((V31))==Cnil){ |
697 |
goto T328; |
goto T336;} |
698 |
goto T330; |
V58= list(2,VV[12],(V27)); |
699 |
T330:; |
goto T334; |
700 |
V54= (V23); |
goto T336; |
701 |
goto T328; |
T336:; |
702 |
T328:; |
V58= (V27); |
|
V55= list(2,VV[45],list(3,VV[46],VV[47],V54)); |
|
|
if(((V36))!=Cnil){ |
|
|
goto T334;} |
|
|
V56= make_cons((V32),Cnil); |
|
|
goto T332; |
|
703 |
goto T334; |
goto T334; |
704 |
T334:; |
T334:; |
705 |
V56= Cnil; |
V59= list(2,VV[47],list(3,VV[48],VV[49],V58)); |
706 |
goto T332; |
if(((V40))!=Cnil){ |
707 |
T332:; |
goto T340;} |
708 |
V57= listA(4,VV[44],(V33),/* INLINE-ARGS */V55,V56); |
V60= make_cons((V36),Cnil); |
709 |
{object V59; |
goto T338; |
710 |
if(((V27))==Cnil){ |
goto T340; |
711 |
goto T339;} |
T340:; |
712 |
V59= list(2,VV[10],(V23)); |
V60= Cnil; |
713 |
goto T337; |
goto T338; |
714 |
goto T339; |
T338:; |
715 |
T339:; |
V61= listA(4,VV[46],(V37),/* INLINE-ARGS */V59,V60); |
716 |
V59= (V23); |
{object V63; |
717 |
goto T337; |
if(((V31))==Cnil){ |
718 |
T337:; |
goto T345;} |
719 |
if(!(((V26))==(VV[1]))){ |
V63= list(2,VV[12],(V27)); |
720 |
goto T342;} |
goto T343; |
721 |
V60= list(2,VV[40],(V25)); |
goto T345; |
722 |
V61= list(2,VV[40],(V24)); |
T345:; |
723 |
V62= list(2,VV[40],(V22)); |
V63= (V27); |
724 |
if(((V36))!=Cnil){ |
goto T343; |
725 |
goto T346;} |
T343:; |
726 |
V63= (V32); |
if(!(((V30))==(VV[1]))){ |
727 |
goto T344; |
goto T348;} |
728 |
goto T346; |
V64= list(2,VV[42],(V29)); |
729 |
T346:; |
V65= list(2,VV[42],(V28)); |
730 |
V63= Cnil; |
V66= list(2,VV[42],(V26)); |
731 |
goto T344; |
if(((V40))!=Cnil){ |
732 |
T344:; |
goto T352;} |
733 |
V58= list(7,VV[48],/* INLINE-ARGS */V60,/* INLINE-ARGS */V61,(V59),/* INLINE-ARGS */V62,(V33),V63); |
V67= (V36); |
734 |
goto T336; |
goto T350; |
735 |
goto T342; |
goto T352; |
736 |
T342:; |
T352:; |
737 |
V64= list(2,VV[40],(V25)); |
V67= Cnil; |
|
if(((V24))==Cnil){ |
|
|
goto T350;} |
|
|
V65= list(2,VV[51],list(2,VV[40],(V24))); |
|
|
goto T348; |
|
738 |
goto T350; |
goto T350; |
739 |
T350:; |
T350:; |
740 |
V65= Cnil; |
V62= list(7,VV[50],/* INLINE-ARGS */V64,/* INLINE-ARGS */V65,(V63),/* INLINE-ARGS */V66,(V37),V67); |
741 |
|
goto T342; |
742 |
goto T348; |
goto T348; |
743 |
T348:; |
T348:; |
744 |
V66= list(2,VV[40],(V22)); |
V68= list(2,VV[42],(V29)); |
745 |
if(((V36))!=Cnil){ |
if(((V28))==Cnil){ |
746 |
goto T354;} |
goto T356;} |
747 |
V67= list(2,VV[55],(V32)); |
V69= list(2,VV[53],list(2,VV[42],(V28))); |
748 |
goto T352; |
goto T354; |
749 |
|
goto T356; |
750 |
|
T356:; |
751 |
|
V69= Cnil; |
752 |
goto T354; |
goto T354; |
753 |
T354:; |
T354:; |
754 |
V67= Cnil; |
V70= list(2,VV[42],(V26)); |
755 |
goto T352; |
if(((V40))!=Cnil){ |
756 |
T352:; |
goto T360;} |
757 |
V68= listA(7,VV[52],(V59),VV[53],/* INLINE-ARGS */V66,VV[54],(V33),V67); |
V71= list(2,VV[57],(V36)); |
758 |
V58= listA(5,(V26),VV[49],VV[50],/* INLINE-ARGS */V64,append(V65,/* INLINE-ARGS */V68));} |
goto T358; |
759 |
goto T336; |
goto T360; |
760 |
T336:; |
T360:; |
761 |
V69= list(3,VV[43],/* INLINE-ARGS */V57,V58); |
V71= Cnil; |
762 |
setq(VV[2],make_cons(/* INLINE-ARGS */V69,symbol_value(VV[2]))); |
goto T358; |
763 |
goto T324; |
T358:; |
764 |
T324:; |
V72= listA(7,VV[54],(V63),VV[55],/* INLINE-ARGS */V70,VV[56],(V37),V71); |
765 |
if(((V34))==Cnil){ |
V62= listA(5,(V30),VV[51],VV[52],/* INLINE-ARGS */V68,append(V69,/* INLINE-ARGS */V72));} |
766 |
goto T356;} |
goto T342; |
767 |
{object V70; |
T342:; |
768 |
object V71; |
V73= list(3,VV[45],/* INLINE-ARGS */V61,V62); |
769 |
base[8]= VV[56]; |
setq(VV[2],make_cons(/* INLINE-ARGS */V73,symbol_value(VV[2]))); |
770 |
|
goto T330; |
771 |
|
T330:; |
772 |
|
if(((V38))==Cnil){ |
773 |
|
goto T362;} |
774 |
|
{object V74; |
775 |
|
object V75; |
776 |
|
base[8]= VV[58]; |
777 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
778 |
Lgensym(); |
Lgensym(); |
779 |
vs_top=sup; |
vs_top=sup; |
780 |
V70= vs_base[0]; |
V74= vs_base[0]; |
781 |
base[8]= VV[57]; |
base[8]= VV[59]; |
782 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
783 |
Lgensym(); |
Lgensym(); |
784 |
vs_top=sup; |
vs_top=sup; |
785 |
V71= vs_base[0]; |
V75= vs_base[0]; |
786 |
V72= list(2,(V70),(V71)); |
V76= list(2,(V74),(V75)); |
787 |
V73= list(2,VV[40],(V34)); |
V77= list(2,VV[42],(V38)); |
788 |
V74= list(4,VV[59],(V35),/* INLINE-ARGS */V73,list(2,VV[40],(V37))); |
V78= list(4,VV[61],(V39),/* INLINE-ARGS */V77,list(2,VV[42],(V41))); |
789 |
V75= list(2,VV[40],(V25)); |
V79= list(2,VV[42],(V29)); |
790 |
if(((V24))==Cnil){ |
if(((V28))==Cnil){ |
|
goto T366;} |
|
|
V76= list(2,VV[51],list(2,VV[40],(V24))); |
|
|
goto T364; |
|
|
goto T366; |
|
|
T366:; |
|
|
V76= Cnil; |
|
|
goto T364; |
|
|
T364:; |
|
|
V77= list(4,VV[62],(V70),VV[63],(V71)); |
|
|
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)))); |
|
|
setq(VV[2],make_cons(/* INLINE-ARGS */V78,symbol_value(VV[2])));} |
|
|
goto T356; |
|
|
T356:; |
|
|
base[8]= (V38); |
|
|
base[9]= (V33); |
|
|
if(((V36))!=Cnil){ |
|
791 |
goto T372;} |
goto T372;} |
792 |
base[10]= (V32); |
V80= list(2,VV[53],list(2,VV[42],(V28))); |
793 |
goto T370; |
goto T370; |
794 |
goto T372; |
goto T372; |
795 |
T372:; |
T372:; |
796 |
base[10]= Cnil; |
V80= Cnil; |
797 |
goto T370; |
goto T370; |
798 |
T370:; |
T370:; |
799 |
|
V81= list(4,VV[64],(V74),VV[65],(V75)); |
800 |
|
V82= list(4,VV[60],/* INLINE-ARGS */V76,/* INLINE-ARGS */V78,list(3,VV[62],(V74),listA(5,(V30),VV[63],VV[52],/* INLINE-ARGS */V79,append(V80,/* INLINE-ARGS */V81)))); |
801 |
|
setq(VV[2],make_cons(/* INLINE-ARGS */V82,symbol_value(VV[2])));} |
802 |
|
goto T362; |
803 |
|
T362:; |
804 |
|
base[8]= (V42); |
805 |
|
base[9]= (V37); |
806 |
|
if(((V40))!=Cnil){ |
807 |
|
goto T378;} |
808 |
|
base[10]= (V36); |
809 |
|
goto T376; |
810 |
|
goto T378; |
811 |
|
T378:; |
812 |
|
base[10]= Cnil; |
813 |
|
goto T376; |
814 |
|
T376:; |
815 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
816 |
return;} |
return;} |
817 |
} |
} |
818 |
} |
} |
819 |
/* function definition for PUSH-SUB-LIST-BINDING */ |
/* function definition for PUSH-SUB-LIST-BINDING */ |
820 |
|
|
821 |
static void L3() |
static void L5() |
822 |
{register object *base=vs_base; |
{register object *base=vs_base; |
823 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM5; VC5 |
824 |
vs_reserve(VM3); |
vs_reserve(VM5); |
825 |
{object V79; |
{object V83; |
|
object V80; |
|
|
object V81; |
|
|
object V82; |
|
|
object V83; |
|
826 |
object V84; |
object V84; |
827 |
|
object V85; |
828 |
|
object V86; |
829 |
|
object V87; |
830 |
|
object V88; |
831 |
check_arg(6); |
check_arg(6); |
832 |
V79=(base[0]); |
V83=(base[0]); |
833 |
V80=(base[1]); |
V84=(base[1]); |
834 |
V81=(base[2]); |
V85=(base[2]); |
835 |
V82=(base[3]); |
V86=(base[3]); |
836 |
V83=(base[4]); |
V87=(base[4]); |
837 |
V84=(base[5]); |
V88=(base[5]); |
838 |
vs_top=sup; |
vs_top=sup; |
839 |
goto TTL; |
goto TTL; |
840 |
TTL:; |
TTL:; |
841 |
{register object V85; |
{register object V89; |
842 |
base[6]= VV[64]; |
base[6]= VV[66]; |
843 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
844 |
Lgensym(); |
Lgensym(); |
845 |
vs_top=sup; |
vs_top=sup; |
846 |
V85= vs_base[0]; |
V89= vs_base[0]; |
847 |
V86= list(2,(V85),(V80)); |
V90= list(2,(V89),(V84)); |
848 |
V87= make_cons(/* INLINE-ARGS */V86,Cnil); |
V91= make_cons(/* INLINE-ARGS */V90,Cnil); |
849 |
V88= list(2,VV[67],(V85)); |
V92= list(2,VV[69],(V89)); |
850 |
V89= list(2,VV[40],(V83)); |
V93= list(2,VV[42],(V87)); |
851 |
if(((V82))==Cnil){ |
if(((V86))==Cnil){ |
852 |
goto T379;} |
goto T385;} |
853 |
V90= list(2,VV[51],list(2,VV[40],(V82))); |
V94= list(2,VV[53],list(2,VV[42],(V86))); |
854 |
goto T377; |
goto T383; |
855 |
goto T379; |
goto T385; |
856 |
T379:; |
T385:; |
857 |
V90= Cnil; |
V94= Cnil; |
858 |
goto T377; |
goto T383; |
859 |
T377:; |
T383:; |
860 |
V91= list(4,VV[69],(V85),VV[53],list(2,VV[40],(V81))); |
V95= list(4,VV[71],(V89),VV[55],list(2,VV[42],(V85))); |
861 |
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))))); |
V96= list(2,(V83),list(3,VV[67],/* INLINE-ARGS */V91,list(4,VV[68],/* INLINE-ARGS */V92,(V89),listA(5,(V88),VV[70],VV[52],/* INLINE-ARGS */V93,append(V94,/* INLINE-ARGS */V95))))); |
862 |
setq(VV[4],make_cons(/* INLINE-ARGS */V92,symbol_value(VV[4]))); |
setq(VV[4],make_cons(/* INLINE-ARGS */V96,symbol_value(VV[4]))); |
863 |
base[6]= symbol_value(VV[4]); |
base[6]= symbol_value(VV[4]); |
864 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
865 |
return;} |
return;} |
867 |
} |
} |
868 |
/* function definition for PUSH-LET-BINDING */ |
/* function definition for PUSH-LET-BINDING */ |
869 |
|
|
870 |
static void L4() |
static void L6() |
871 |
{register object *base=vs_base; |
{register object *base=vs_base; |
872 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM6; VC6 |
873 |
vs_reserve(VM4); |
vs_reserve(VM6); |
874 |
{object V93; |
{object V97; |
875 |
object V94; |
object V98; |
876 |
object V95; |
object V99; |
877 |
object V96; |
object V100; |
878 |
object V97; |
object V101; |
879 |
if(vs_top-vs_base<3) too_few_arguments(); |
if(vs_top-vs_base<3) too_few_arguments(); |
880 |
if(vs_top-vs_base>5) too_many_arguments(); |
if(vs_top-vs_base>5) too_many_arguments(); |
881 |
V93=(base[0]); |
V97=(base[0]); |
882 |
V94=(base[1]); |
V98=(base[1]); |
883 |
V95=(base[2]); |
V99=(base[2]); |
884 |
vs_base=vs_base+3; |
vs_base=vs_base+3; |
885 |
if(vs_base>=vs_top){vs_top=sup;goto T381;} |
if(vs_base>=vs_top){vs_top=sup;goto T387;} |
886 |
V96=(base[3]); |
V100=(base[3]); |
887 |
vs_base++; |
vs_base++; |
888 |
if(vs_base>=vs_top){vs_top=sup;goto T382;} |
if(vs_base>=vs_top){vs_top=sup;goto T388;} |
889 |
V97=(base[4]); |
V101=(base[4]); |
890 |
vs_top=sup; |
vs_top=sup; |
891 |
goto T383; |
goto T389; |
892 |
goto T381; |
goto T387; |
893 |
T381:; |
T387:; |
894 |
V96= Cnil; |
V100= Cnil; |
|
goto T382; |
|
|
T382:; |
|
|
V97= symbol_value(VV[0]); |
|
|
goto T383; |
|
|
T383:; |
|
|
{object V98; |
|
|
if(((V96))==Cnil){ |
|
|
goto T388;} |
|
|
V98= list(2,(V93),list(4,VV[66],(V96),(V94),(V97))); |
|
|
goto T386; |
|
895 |
goto T388; |
goto T388; |
896 |
T388:; |
T388:; |
897 |
V98= list(2,(V93),(V94)); |
V101= symbol_value(VV[0]); |
898 |
goto T386; |
goto T389; |
899 |
T386:; |
T389:; |
900 |
if(((V95))==Cnil){ |
{object V102; |
901 |
goto T391;} |
if(((V100))==Cnil){ |
902 |
setq(VV[4],make_cons((V98),symbol_value(VV[4]))); |
goto T394;} |
903 |
|
V102= list(2,(V97),list(4,VV[68],(V100),(V98),(V101))); |
904 |
|
goto T392; |
905 |
|
goto T394; |
906 |
|
T394:; |
907 |
|
V102= list(2,(V97),(V98)); |
908 |
|
goto T392; |
909 |
|
T392:; |
910 |
|
if(((V99))==Cnil){ |
911 |
|
goto T397;} |
912 |
|
setq(VV[4],make_cons((V102),symbol_value(VV[4]))); |
913 |
base[5]= symbol_value(VV[4]); |
base[5]= symbol_value(VV[4]); |
914 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
915 |
return; |
return; |
916 |
goto T391; |
goto T397; |
917 |
T391:; |
T397:; |
918 |
setq(VV[3],make_cons((V98),symbol_value(VV[3]))); |
setq(VV[3],make_cons((V102),symbol_value(VV[3]))); |
919 |
base[5]= symbol_value(VV[3]); |
base[5]= symbol_value(VV[3]); |
920 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
921 |
return;} |
return;} |
923 |
} |
} |
924 |
/* function definition for PUSH-OPTIONAL-BINDING */ |
/* function definition for PUSH-OPTIONAL-BINDING */ |
925 |
|
|
926 |
static void L5() |
static void L7() |
927 |
{register object *base=vs_base; |
{register object *base=vs_base; |
928 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM7; VC7 |
929 |
vs_reserve(VM5); |
vs_reserve(VM7); |
930 |
{register object V99; |
{register object V103; |
|
object V100; |
|
|
register object V101; |
|
|
object V102; |
|
|
object V103; |
|
931 |
object V104; |
object V104; |
932 |
object V105; |
register object V105; |
933 |
object V106; |
object V106; |
934 |
|
object V107; |
935 |
|
object V108; |
936 |
|
object V109; |
937 |
|
object V110; |
938 |
check_arg(8); |
check_arg(8); |
939 |
V99=(base[0]); |
V103=(base[0]); |
940 |
V100=(base[1]); |
V104=(base[1]); |
941 |
V101=(base[2]); |
V105=(base[2]); |
942 |
V102=(base[3]); |
V106=(base[3]); |
943 |
V103=(base[4]); |
V107=(base[4]); |
944 |
V104=(base[5]); |
V108=(base[5]); |
945 |
V105=(base[6]); |
V109=(base[6]); |
946 |
V106=(base[7]); |
V110=(base[7]); |
947 |
vs_top=sup; |
vs_top=sup; |
948 |
goto TTL; |
goto TTL; |
949 |
TTL:; |
TTL:; |
950 |
if(((V101))!=Cnil){ |
if(((V105))!=Cnil){ |
951 |
goto T395;} |
goto T401;} |
952 |
base[8]= VV[70]; |
base[8]= VV[72]; |
953 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
954 |
Lgensym(); |
Lgensym(); |
955 |
vs_top=sup; |
vs_top=sup; |
956 |
V101= vs_base[0]; |
V105= vs_base[0]; |
957 |
goto T395; |
goto T401; |
958 |
T395:; |
T401:; |
959 |
base[8]= (V101); |
base[8]= (V105); |
960 |
base[9]= (V102); |
base[9]= (V106); |
961 |
base[10]= Ct; |
base[10]= Ct; |
962 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
963 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
964 |
vs_top=sup; |
vs_top=sup; |
965 |
if(!(type_of((V99))==t_cons)){ |
if(!(type_of((V103))==t_cons)){ |
966 |
goto T405;} |
goto T411;} |
967 |
{object V107; |
{object V111; |
968 |
base[8]= VV[71]; |
base[8]= VV[73]; |
969 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
970 |
Lgensym(); |
Lgensym(); |
971 |
vs_top=sup; |
vs_top=sup; |
972 |
V107= vs_base[0]; |
V111= vs_base[0]; |
973 |
base[8]= (V107); |
base[8]= (V111); |
974 |
base[9]= list(4,VV[66],(V101),(V103),(V100)); |
base[9]= list(4,VV[68],(V105),(V107),(V104)); |
975 |
base[10]= (V99); |
base[10]= (V103); |
976 |
base[11]= (V104); |
base[11]= (V108); |
977 |
base[12]= (V105); |
base[12]= (V109); |
978 |
base[13]= (V106); |
base[13]= (V110); |
979 |
vs_top=(vs_base=base+8)+6; |
vs_top=(vs_base=base+8)+6; |
980 |
(void) (*Lnk83)(); |
(void) (*Lnk85)(); |
981 |
vs_top=sup; |
vs_top=sup; |
982 |
base[8]= (V99); |
base[8]= (V103); |
983 |
base[9]= (V107); |
base[9]= (V111); |
984 |
base[10]= (V104); |
base[10]= (V108); |
985 |
base[11]= (V105); |
base[11]= (V109); |
986 |
base[12]= (V106); |
base[12]= (V110); |
987 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
988 |
(void) (*Lnk80)(); |
(void) (*Lnk82)(); |
989 |
return;} |
return;} |
990 |
goto T405; |
goto T411; |
991 |
T405:; |
T411:; |
992 |
if(!(type_of((V99))==t_symbol)){ |
if(!(type_of((V103))==t_symbol)){ |
993 |
goto T422;} |
goto T428;} |
994 |
base[8]= (V99); |
base[8]= (V103); |
995 |
base[9]= (V103); |
base[9]= (V107); |
996 |
base[10]= Cnil; |
base[10]= Cnil; |
997 |
base[11]= (V101); |
base[11]= (V105); |
998 |
base[12]= (V100); |
base[12]= (V104); |
999 |
vs_top=(vs_base=base+8)+5; |
vs_top=(vs_base=base+8)+5; |
1000 |
(void) (*Lnk81)(); |
(void) (*Lnk83)(); |
1001 |
return; |
return; |
1002 |
goto T422; |
goto T428; |
1003 |
T422:; |
T428:; |
1004 |
base[8]= VV[72]; |
base[8]= VV[74]; |
1005 |
base[9]= (V99); |
base[9]= (V103); |
1006 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
1007 |
Lerror(); |
Lerror(); |
1008 |
return; |
return; |
1010 |
} |
} |
1011 |
/* function definition for PARSE-BODY */ |
/* function definition for PARSE-BODY */ |
1012 |
|
|
1013 |
static void L6() |
static void L8() |
1014 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1015 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM8; VC8 |
1016 |
vs_reserve(VM6); |
vs_reserve(VM8); |
1017 |
{object V108; |
{object V112; |
1018 |
object V109; |
object V113; |
1019 |
register object V110; |
register object V114; |
1020 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
1021 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
1022 |
V108=(base[0]); |
V112=(base[0]); |
1023 |
V109=(base[1]); |
V113=(base[1]); |
1024 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
1025 |
if(vs_base>=vs_top){vs_top=sup;goto T431;} |
if(vs_base>=vs_top){vs_top=sup;goto T437;} |
1026 |
V110=(base[2]); |
V114=(base[2]); |
1027 |
vs_top=sup; |
vs_top=sup; |
1028 |
goto T432; |
goto T438; |
1029 |
goto T431; |
goto T437; |
1030 |
T431:; |
T437:; |
1031 |
V110= Ct; |
V114= Ct; |
1032 |
goto T432; |
goto T438; |
1033 |
T432:; |
T438:; |
1034 |
{register object V111; |
{register object V115; |
1035 |
register object V112; |
register object V116; |
1036 |
V111= Cnil; |
V115= Cnil; |
1037 |
V112= Cnil; |
V116= Cnil; |
1038 |
{register object V113; |
{register object V117; |
1039 |
V113= (V108); |
V117= (V112); |
1040 |
goto T435; |
goto T441; |
1041 |
T435:; |
T441:; |
1042 |
if(!(endp_prop((V113)))){ |
if(!(endp_prop((V117)))){ |
1043 |
goto T436;} |
goto T442;} |
1044 |
base[3]= (V113); |
base[3]= (V117); |
1045 |
base[4]= nreverse((V111)); |
base[4]= nreverse((V115)); |
1046 |
base[5]= (V112); |
base[5]= (V116); |
1047 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1048 |
return; |
return; |
1049 |
goto T436; |
goto T442; |
1050 |
T436:; |
T442:; |
1051 |
{register object V114; |
{register object V118; |
1052 |
V114= car((V113)); |
V118= car((V117)); |
1053 |
if(!(type_of((V114))==t_string)){ |
if(!(type_of((V118))==t_string)){ |
1054 |
goto T446;} |
goto T452;} |
1055 |
if((cdr((V113)))==Cnil){ |
if((cdr((V117)))==Cnil){ |
1056 |
goto T446;} |
goto T452;} |
1057 |
if(((V110))==Cnil){ |
if(((V114))==Cnil){ |
1058 |
goto T451;} |
goto T457;} |
1059 |
V112= (V114); |
V116= (V118); |
1060 |
V110= Cnil; |
V114= Cnil; |
1061 |
goto T443; |
goto T449; |
1062 |
goto T451; |
goto T457; |
1063 |
T451:; |
T457:; |
1064 |
base[3]= (V113); |
base[3]= (V117); |
1065 |
base[4]= nreverse((V111)); |
base[4]= nreverse((V115)); |
1066 |
base[5]= (V112); |
base[5]= (V116); |
1067 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1068 |
return; |
return; |
1069 |
goto T446; |
goto T452; |
1070 |
T446:; |
T452:; |
1071 |
if(!(type_of((V114))==t_cons)){ |
if(!(type_of((V118))==t_cons)){ |
1072 |
goto T459;} |
goto T465;} |
1073 |
if(type_of(car((V114)))==t_symbol){ |
if(type_of(car((V118)))==t_symbol){ |
1074 |
goto T460;} |
goto T466;} |
1075 |
goto T459; |
goto T465; |
1076 |
T459:; |
T465:; |
1077 |
base[3]= (V113); |
base[3]= (V117); |
1078 |
base[4]= nreverse((V111)); |
base[4]= nreverse((V115)); |
1079 |
base[5]= (V112); |
base[5]= (V116); |
1080 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1081 |
return; |
return; |
1082 |
goto T460; |
goto T466; |
1083 |
T460:; |
T466:; |
1084 |
if(!((car((V114)))==(VV[7]))){ |
if(!((car((V118)))==(VV[7]))){ |
1085 |
goto T468;} |
goto T474;} |
1086 |
V111= make_cons((V114),(V111)); |
V115= make_cons((V118),(V115)); |
1087 |
goto T443; |
goto T449; |
1088 |
goto T468; |
goto T474; |
1089 |
T468:; |
T474:; |
1090 |
base[3]= (V113); |
base[3]= (V117); |
1091 |
base[4]= nreverse((V111)); |
base[4]= nreverse((V115)); |
1092 |
base[5]= (V112); |
base[5]= (V116); |
1093 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1094 |
return;} |
return;} |
1095 |
goto T443; |
goto T449; |
1096 |
T443:; |
T449:; |
1097 |
V113= cdr((V113)); |
V117= cdr((V117)); |
1098 |
goto T435;}} |
goto T441;}} |
1099 |
} |
} |
1100 |
} |
} |
1101 |
/* macro definition for DESTRUCTURING-BIND */ |
/* macro definition for DESTRUCTURING-BIND */ |
1102 |
|
|
1103 |
static void L7() |
static void L9() |
1104 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1105 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM9; VC9 |
1106 |
vs_reserve(VM7); |
vs_reserve(VM9); |
1107 |
check_arg(2); |
check_arg(2); |
1108 |
vs_top=sup; |
vs_top=sup; |
1109 |
{object V115=base[0]->c.c_cdr; |
{object V119=base[0]->c.c_cdr; |
1110 |
if(endp(V115))invalid_macro_call(); |
if(endp(V119))invalid_macro_call(); |
1111 |
base[2]= (V115->c.c_car); |
base[2]= (V119->c.c_car); |
1112 |
V115=V115->c.c_cdr; |
V119=V119->c.c_cdr; |
1113 |
if(endp(V115))invalid_macro_call(); |
if(endp(V119))invalid_macro_call(); |
1114 |
base[3]= (V115->c.c_car); |
base[3]= (V119->c.c_car); |
1115 |
V115=V115->c.c_cdr; |
V119=V119->c.c_cdr; |
1116 |
base[4]= V115;} |
base[4]= V119;} |
1117 |
{object V116; |
{object V120; |
1118 |
base[6]= VV[73]; |
base[6]= VV[75]; |
1119 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1120 |
Lgensym(); |
Lgensym(); |
1121 |
vs_top=sup; |
vs_top=sup; |
1122 |
V116= vs_base[0]; |
V120= vs_base[0]; |
1123 |
{object V117; |
{object V121; |
1124 |
object V118; |
object V122; |
1125 |
base[6]= base[2]; |
base[6]= base[2]; |
1126 |
base[7]= (V116); |
base[7]= (V120); |
1127 |
base[8]= base[4]; |
base[8]= base[4]; |
1128 |
base[9]= Cnil; |
base[9]= Cnil; |
1129 |
base[10]= VV[74]; |
base[10]= VV[76]; |
1130 |
base[11]= VV[75]; |
base[11]= VV[77]; |
1131 |
base[12]= Ct; |
base[12]= Ct; |
1132 |
base[13]= VV[76]; |
base[13]= VV[78]; |
1133 |
base[14]= Cnil; |
base[14]= Cnil; |
1134 |
vs_top=(vs_base=base+6)+9; |
vs_top=(vs_base=base+6)+9; |
1135 |
(void) (*Lnk86)(); |
(void) (*Lnk88)(); |
1136 |
if(vs_base>=vs_top){vs_top=sup;goto T489;} |
if(vs_base>=vs_top){vs_top=sup;goto T495;} |
1137 |
V117= vs_base[0]; |
V121= vs_base[0]; |
1138 |
vs_base++; |
vs_base++; |
1139 |
if(vs_base>=vs_top){vs_top=sup;goto T490;} |
if(vs_base>=vs_top){vs_top=sup;goto T496;} |
1140 |
V118= vs_base[0]; |
V122= vs_base[0]; |
1141 |
vs_top=sup; |
vs_top=sup; |
1142 |
goto T491; |
goto T497; |
1143 |
goto T489; |
goto T495; |
1144 |
T489:; |
T495:; |
1145 |
V117= Cnil; |
V121= Cnil; |
1146 |
goto T490; |
goto T496; |
1147 |
T490:; |
T496:; |
1148 |
V118= Cnil; |
V122= Cnil; |
1149 |
goto T491; |
goto T497; |
1150 |
T491:; |
T497:; |
1151 |
V119= list(2,(V116),base[3]); |
V123= list(2,(V120),base[3]); |
1152 |
V120= make_cons(/* INLINE-ARGS */V119,Cnil); |
V124= make_cons(/* INLINE-ARGS */V123,Cnil); |
1153 |
V121= make_cons((V117),Cnil); |
V125= make_cons((V121),Cnil); |
1154 |
base[6]= listA(3,VV[65],/* INLINE-ARGS */V120,append((V118),/* INLINE-ARGS */V121)); |
base[6]= listA(3,VV[67],/* INLINE-ARGS */V124,append((V122),/* INLINE-ARGS */V125)); |
1155 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1156 |
return;}} |
return;}} |
1157 |
} |
} |
1158 |
static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* PARSE-DEFMACRO */ |
static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* PARSE-DEFMACRO */ |
1159 |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* MAKE-KEYWORD */ |
static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* MAKE-KEYWORD */ |
1160 |
static void LnkT84(){ call_or_link(VV[84],(void **)&Lnk84);} /* PUSH-OPTIONAL-BINDING */ |
static void LnkT86(){ call_or_link(VV[86],(void **)&Lnk86);} /* PUSH-OPTIONAL-BINDING */ |
1161 |
static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* PUSH-SUB-LIST-BINDING */ |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* PUSH-SUB-LIST-BINDING */ |
1162 |
static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* DEFMACRO-ERROR */ |
static void LnkT84(){ call_or_link(VV[84],(void **)&Lnk84);} /* DEFMACRO-ERROR */ |
1163 |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* PUSH-LET-BINDING */ |
static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* PUSH-LET-BINDING */ |
1164 |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* PARSE-DEFMACRO-LAMBDA-LIST */ |
static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* PARSE-DEFMACRO-LAMBDA-LIST */ |
1165 |
static void LnkT22(){ call_or_link(VV[22],(void **)&Lnk22);} /* PARSE-BODY */ |
static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* PARSE-BODY */ |
1166 |
|
|
1167 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1168 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |