1 |
|
|
2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "defmacro.h" |
#include "defmacro.h" |
4 |
init_defmacro(){do_init(VV);} |
void init_defmacro(){do_init(VV);} |
5 |
/* function definition for GET-&ENVIRONMENT */ |
/* function definition for GET-&ENVIRONMENT */ |
6 |
|
|
7 |
static L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
9 |
register object *sup=base+VM1; VC1 |
register object *sup=base+VM1; VC1 |
10 |
vs_reserve(VM1); |
vs_reserve(VM1); |
12 |
check_arg(1); |
check_arg(1); |
13 |
V1=(base[0]); |
V1=(base[0]); |
14 |
vs_top=sup; |
vs_top=sup; |
15 |
|
goto TTL; |
16 |
TTL:; |
TTL:; |
17 |
{object V2; |
{object V2; |
18 |
V2= Cnil; |
V2= Cnil; |
21 |
goto T3;} |
goto T3;} |
22 |
V3= Cnil; |
V3= Cnil; |
23 |
goto T2; |
goto T2; |
24 |
|
goto T3; |
25 |
T3:; |
T3:; |
26 |
{register object V4; |
{register object V4; |
27 |
V4= (V1); |
V4= (V1); |
28 |
|
goto T6; |
29 |
T6:; |
T6:; |
30 |
if(type_of((V4))==t_cons){ |
if(type_of((V4))==t_cons){ |
31 |
goto T7;} |
goto T7;} |
32 |
V3= Cnil; |
V3= Cnil; |
33 |
goto T2; |
goto T2; |
34 |
|
goto T7; |
35 |
T7:; |
T7:; |
36 |
if(!((VV[0])==(car((V4))))){ |
if(!((VV[0])==(car((V4))))){ |
37 |
goto T11;} |
goto T11;} |
38 |
V3= (V4); |
V3= (V4); |
39 |
goto T2; |
goto T2; |
40 |
|
goto T11; |
41 |
T11:; |
T11:; |
42 |
V4= cdr((V4)); |
V4= cdr((V4)); |
43 |
goto T6;} |
goto T6;} |
44 |
|
goto T2; |
45 |
T2:; |
T2:; |
46 |
if(((V3))==Cnil){ |
if(((V3))==Cnil){ |
47 |
goto T17;} |
goto T17;} |
53 |
vs_top=sup; |
vs_top=sup; |
54 |
V5= vs_base[0]; |
V5= vs_base[0]; |
55 |
V1= append(V5,cddr((V3))); |
V1= append(V5,cddr((V3))); |
56 |
|
goto T17; |
57 |
T17:; |
T17:; |
58 |
base[1]= (V1); |
base[1]= (V1); |
59 |
base[2]= (V2); |
base[2]= (V2); |
68 |
object V9;register object V10;register object V11; |
object V9;register object V10;register object V11; |
69 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
70 |
bds_check; |
bds_check; |
71 |
|
goto TTL; |
72 |
TTL:; |
TTL:; |
73 |
{object V12; |
{object V12; |
74 |
object V13; |
object V13; |
90 |
if(((V18))==Cnil){ |
if(((V18))==Cnil){ |
91 |
goto T37;} |
goto T37;} |
92 |
goto T34; |
goto T34; |
93 |
|
goto T37; |
94 |
T37:; |
T37:; |
95 |
if(!(type_of((V10))==t_symbol)){ |
if(!(type_of((V10))==t_symbol)){ |
96 |
goto T40;} |
goto T40;} |
97 |
V10= list(2,VV[4],(V10)); |
V10= list(2,VV[4],(V10)); |
98 |
goto T34; |
goto T34; |
99 |
|
goto T40; |
100 |
T40:; |
T40:; |
101 |
base[3]= VV[5]; |
base[3]= VV[5]; |
102 |
base[4]= (V10); |
base[4]= (V10); |
103 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
104 |
Lerror(); |
Lerror(); |
105 |
vs_top=sup;} |
vs_top=sup;} |
106 |
|
goto T34; |
107 |
T34:; |
T34:; |
108 |
base[3]= (V11); |
base[3]= (V11); |
109 |
base[4]= Cnil; |
base[4]= Cnil; |
131 |
V14= cadr((V10)); |
V14= cadr((V10)); |
132 |
V10= cddr((V10)); |
V10= cddr((V10)); |
133 |
goto T49; |
goto T49; |
134 |
|
goto T51; |
135 |
T51:; |
T51:; |
136 |
vs_base=vs_top; |
vs_base=vs_top; |
137 |
Lgensym(); |
Lgensym(); |
138 |
vs_top=sup; |
vs_top=sup; |
139 |
V14= vs_base[0]; |
V14= vs_base[0]; |
140 |
|
goto T49; |
141 |
T49:; |
T49:; |
142 |
base[3]= (V10); |
base[3]= (V10); |
143 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
159 |
Lgensym(); |
Lgensym(); |
160 |
vs_top=sup; |
vs_top=sup; |
161 |
V16= vs_base[0]; |
V16= vs_base[0]; |
162 |
|
goto T64; |
163 |
T64:; |
T64:; |
164 |
(VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14)); |
(VV[1]->s.s_dbind)= list(3,VV[7],(V16),(V14)); |
165 |
V15= (*(LnkLI55))((V10),(V14),Ct); |
V15= (*(LnkLI55))((V10),(V14),Ct); |
167 |
register object V20; |
register object V20; |
168 |
V19= (VV[2]->s.s_dbind); |
V19= (VV[2]->s.s_dbind); |
169 |
V20= car((V19)); |
V20= car((V19)); |
170 |
|
goto T74; |
171 |
T74:; |
T74:; |
172 |
if(!(endp((V19)))){ |
if(!(endp((V19)))){ |
173 |
goto T75;} |
goto T75;} |
174 |
goto T70; |
goto T70; |
175 |
|
goto T75; |
176 |
T75:; |
T75:; |
177 |
V21= list(3,VV[9],car((V20)),VV[10]); |
V21= list(3,VV[9],car((V20)),VV[10]); |
178 |
V22= list(3,VV[12],car((V20)),VV[13]); |
V22= list(3,VV[12],car((V20)),VV[13]); |
182 |
V19= cdr((V19)); |
V19= cdr((V19)); |
183 |
V20= car((V19)); |
V20= car((V19)); |
184 |
goto T74;} |
goto T74;} |
185 |
|
goto T70; |
186 |
T70:; |
T70:; |
187 |
{register object V25; |
{register object V25; |
188 |
register object V26; |
register object V26; |
189 |
V25= (VV[3]->s.s_dbind); |
V25= (VV[3]->s.s_dbind); |
190 |
V26= car((V25)); |
V26= car((V25)); |
191 |
|
goto T90; |
192 |
T90:; |
T90:; |
193 |
if(!(endp((V25)))){ |
if(!(endp((V25)))){ |
194 |
goto T91;} |
goto T91;} |
195 |
goto T86; |
goto T86; |
196 |
|
goto T91; |
197 |
T91:; |
T91:; |
198 |
V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]); |
V27= list(3,VV[8],list(2,VV[19],(*(LnkLI56))(cdr((V26)),car((V26)))),VV[20]); |
199 |
V11= make_cons(/* INLINE-ARGS */V27,(V11)); |
V11= make_cons(/* INLINE-ARGS */V27,(V11)); |
200 |
V25= cdr((V25)); |
V25= cdr((V25)); |
201 |
V26= car((V25)); |
V26= car((V25)); |
202 |
goto T90;} |
goto T90;} |
203 |
|
goto T86; |
204 |
T86:; |
T86:; |
205 |
if(((V17))!=Cnil){ |
if(((V17))!=Cnil){ |
206 |
goto T102;} |
goto T102;} |
207 |
V28= list(2,VV[21],list(2,VV[22],(V16))); |
V28= list(2,VV[21],list(2,VV[22],(V16))); |
208 |
V11= make_cons(/* INLINE-ARGS */V28,(V11)); |
V11= make_cons(/* INLINE-ARGS */V28,(V11)); |
209 |
|
goto T102; |
210 |
T102:; |
T102:; |
211 |
V29= reverse((VV[1]->s.s_dbind)); |
V29= reverse((VV[1]->s.s_dbind)); |
212 |
{object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11)))); |
{object V30 = list(3,(V12),(V15),listA(4,VV[23],(V9),/* INLINE-ARGS */V29,append((V13),(V11)))); |
214 |
bds_unwind1; |
bds_unwind1; |
215 |
bds_unwind1; |
bds_unwind1; |
216 |
VMR2(V30)}} |
VMR2(V30)}} |
217 |
|
base[0]=base[0]; |
218 |
|
return Cnil; |
219 |
} |
} |
220 |
/* local entry for function DM-VL */ |
/* local entry for function DM-VL */ |
221 |
|
|
223 |
|
|
224 |
register object V34;register object V35;object V36; |
register object V34;register object V35;object V36; |
225 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
226 |
|
goto TTL; |
227 |
TTL:; |
TTL:; |
228 |
{register object V37; |
{register object V37; |
229 |
object V38; |
object V38; |
240 |
goto T108;} |
goto T108;} |
241 |
V46= small_fixnum(1); |
V46= small_fixnum(1); |
242 |
goto T106; |
goto T106; |
243 |
|
goto T108; |
244 |
T108:; |
T108:; |
245 |
V46= small_fixnum(0); |
V46= small_fixnum(0); |
246 |
|
goto T106; |
247 |
T106:; |
T106:; |
248 |
V37= Cnil; |
V37= Cnil; |
249 |
V38= Cnil; |
V38= Cnil; |
255 |
V44= Cnil; |
V44= Cnil; |
256 |
V45= Cnil; |
V45= Cnil; |
257 |
V47= Cnil; |
V47= Cnil; |
258 |
|
goto T111; |
259 |
T111:; |
T111:; |
260 |
if(type_of((V34))==t_cons){ |
if(type_of((V34))==t_cons){ |
261 |
goto T112;} |
goto T112;} |
264 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
265 |
goto T118;} |
goto T118;} |
266 |
(void)((*(LnkLI57))(VV[4])); |
(void)((*(LnkLI57))(VV[4])); |
267 |
|
goto T118; |
268 |
T118:; |
T118:; |
269 |
V48= list(2,(V34),(*(LnkLI56))((V46),(V35))); |
V48= list(2,(V34),(*(LnkLI56))((V46),(V35))); |
270 |
setq(VV[1],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[1]))); |
setq(VV[1],make_cons(/* INLINE-ARGS */V48,symbol_value(VV[1]))); |
271 |
V45= Ct; |
V45= Ct; |
272 |
|
goto T115; |
273 |
T115:; |
T115:; |
274 |
if(((V42))==Cnil){ |
if(((V42))==Cnil){ |
275 |
goto T124;} |
goto T124;} |
277 |
goto T124;} |
goto T124;} |
278 |
V49= make_cons((V42),(V44)); |
V49= make_cons((V42),(V44)); |
279 |
setq(VV[2],make_cons(/* INLINE-ARGS */V49,symbol_value(VV[2]))); |
setq(VV[2],make_cons(/* INLINE-ARGS */V49,symbol_value(VV[2]))); |
280 |
|
goto T124; |
281 |
T124:; |
T124:; |
282 |
if(((V45))!=Cnil){ |
if(((V45))!=Cnil){ |
283 |
goto T130;} |
goto T130;} |
284 |
V50= make_cons((V35),(V46)); |
V50= make_cons((V35),(V46)); |
285 |
setq(VV[3],make_cons(/* INLINE-ARGS */V50,symbol_value(VV[3]))); |
setq(VV[3],make_cons(/* INLINE-ARGS */V50,symbol_value(VV[3]))); |
286 |
|
goto T130; |
287 |
T130:; |
T130:; |
288 |
{object V51 = (V47); |
{object V51 = (V47); |
289 |
VMR3(V51)} |
VMR3(V51)} |
290 |
|
goto T112; |
291 |
T112:; |
T112:; |
292 |
{register object V52; |
{register object V52; |
293 |
V52= car((V34)); |
V52= car((V34)); |
296 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
297 |
goto T140;} |
goto T140;} |
298 |
(void)((*(LnkLI57))(VV[24])); |
(void)((*(LnkLI57))(VV[24])); |
299 |
|
goto T140; |
300 |
T140:; |
T140:; |
301 |
V37= Ct; |
V37= Ct; |
302 |
{object V53; |
{object V53; |
303 |
V53= car((V34)); |
V53= car((V34)); |
304 |
V34= cdr((V34)); |
V34= cdr((V34)); |
305 |
goto T135;} |
goto T135;} |
306 |
|
goto T138; |
307 |
T138:; |
T138:; |
308 |
if(((V52))==(VV[4])){ |
if(((V52))==(VV[4])){ |
309 |
goto T148;} |
goto T148;} |
310 |
if(!(((V52))==(VV[25]))){ |
if(!(((V52))==(VV[25]))){ |
311 |
goto T149;} |
goto T149;} |
312 |
|
goto T148; |
313 |
T148:; |
T148:; |
314 |
if(((V38))==Cnil){ |
if(((V38))==Cnil){ |
315 |
goto T153;} |
goto T153;} |
316 |
(void)((*(LnkLI57))((V52))); |
(void)((*(LnkLI57))((V52))); |
317 |
|
goto T153; |
318 |
T153:; |
T153:; |
319 |
V54= cadr((V34)); |
V54= cadr((V34)); |
320 |
V55= (*(LnkLI56))((V46),(V35)); |
V55= (*(LnkLI56))((V46),(V35)); |
329 |
goto T169;} |
goto T169;} |
330 |
V47= one_minus((V46)); |
V47= one_minus((V46)); |
331 |
goto T167; |
goto T167; |
332 |
|
goto T169; |
333 |
T169:; |
T169:; |
334 |
V47= (V46); |
V47= (V46); |
335 |
|
goto T167; |
336 |
T167:; |
T167:; |
337 |
goto T135; |
goto T135; |
338 |
|
goto T149; |
339 |
T149:; |
T149:; |
340 |
if(!(((V52))==(VV[26]))){ |
if(!(((V52))==(VV[26]))){ |
341 |
goto T172;} |
goto T172;} |
342 |
if(((V39))==Cnil){ |
if(((V39))==Cnil){ |
343 |
goto T174;} |
goto T174;} |
344 |
(void)((*(LnkLI57))(VV[26])); |
(void)((*(LnkLI57))(VV[26])); |
345 |
|
goto T174; |
346 |
T174:; |
T174:; |
347 |
vs_base=vs_top; |
vs_base=vs_top; |
348 |
Lgensym(); |
Lgensym(); |
358 |
V57= car((V34)); |
V57= car((V34)); |
359 |
V34= cdr((V34)); |
V34= cdr((V34)); |
360 |
goto T135;} |
goto T135;} |
361 |
|
goto T172; |
362 |
T172:; |
T172:; |
363 |
if(!(((V52))==(VV[27]))){ |
if(!(((V52))==(VV[27]))){ |
364 |
goto T193;} |
goto T193;} |
366 |
goto T196;} |
goto T196;} |
367 |
if(((V40))==Cnil){ |
if(((V40))==Cnil){ |
368 |
goto T195;} |
goto T195;} |
369 |
|
goto T196; |
370 |
T196:; |
T196:; |
371 |
(void)((*(LnkLI57))(VV[27])); |
(void)((*(LnkLI57))(VV[27])); |
372 |
|
goto T195; |
373 |
T195:; |
T195:; |
374 |
V40= Ct; |
V40= Ct; |
375 |
V43= Ct; |
V43= Ct; |
377 |
V58= car((V34)); |
V58= car((V34)); |
378 |
V34= cdr((V34)); |
V34= cdr((V34)); |
379 |
goto T135;} |
goto T135;} |
380 |
|
goto T193; |
381 |
T193:; |
T193:; |
382 |
if(!(((V52))==(VV[7]))){ |
if(!(((V52))==(VV[7]))){ |
383 |
goto T208;} |
goto T208;} |
384 |
if(((V41))==Cnil){ |
if(((V41))==Cnil){ |
385 |
goto T210;} |
goto T210;} |
386 |
(void)((*(LnkLI57))(VV[7])); |
(void)((*(LnkLI57))(VV[7])); |
387 |
|
goto T210; |
388 |
T210:; |
T210:; |
389 |
V41= Ct; |
V41= Ct; |
390 |
V40= Ct; |
V40= Ct; |
395 |
V59= car((V34)); |
V59= car((V34)); |
396 |
V34= cdr((V34)); |
V34= cdr((V34)); |
397 |
goto T135;} |
goto T135;} |
398 |
|
goto T208; |
399 |
T208:; |
T208:; |
400 |
if(((V41))==Cnil){ |
if(((V41))==Cnil){ |
401 |
goto T227;} |
goto T227;} |
407 |
goto T232;} |
goto T232;} |
408 |
V60= (V52); |
V60= (V52); |
409 |
goto T230; |
goto T230; |
410 |
|
goto T232; |
411 |
T232:; |
T232:; |
412 |
V60= car((V52)); |
V60= car((V52)); |
413 |
if(endp(cdr((V52)))){ |
if(endp(cdr((V52)))){ |
414 |
goto T230;} |
goto T230;} |
415 |
V61= cadr((V52)); |
V61= cadr((V52)); |
416 |
|
goto T230; |
417 |
T230:; |
T230:; |
418 |
(void)((*(LnkLI58))((V60),(V61)));} |
(void)((*(LnkLI58))((V60),(V61)));} |
419 |
{object V62; |
{object V62; |
420 |
V62= car((V34)); |
V62= car((V34)); |
421 |
V34= cdr((V34)); |
V34= cdr((V34)); |
422 |
goto T135;} |
goto T135;} |
423 |
|
goto T227; |
424 |
T227:; |
T227:; |
425 |
if(((V39))==Cnil){ |
if(((V39))==Cnil){ |
426 |
goto T244;} |
goto T244;} |
447 |
vs_top=sup; |
vs_top=sup; |
448 |
V65= vs_base[0]; |
V65= vs_base[0]; |
449 |
goto T248; |
goto T248; |
450 |
|
goto T250; |
451 |
T250:; |
T250:; |
452 |
if(!(type_of(car((V52)))==t_symbol)){ |
if(!(type_of(car((V52)))==t_symbol)){ |
453 |
goto T259;} |
goto T259;} |
459 |
vs_top=sup; |
vs_top=sup; |
460 |
V65= vs_base[0]; |
V65= vs_base[0]; |
461 |
goto T257; |
goto T257; |
462 |
|
goto T259; |
463 |
T259:; |
T259:; |
464 |
V64= cadar((V52)); |
V64= cadar((V52)); |
465 |
V65= caar((V52)); |
V65= caar((V52)); |
466 |
|
goto T257; |
467 |
T257:; |
T257:; |
468 |
if(endp(cdr((V52)))){ |
if(endp(cdr((V52)))){ |
469 |
goto T248;} |
goto T248;} |
471 |
if(endp(cddr((V52)))){ |
if(endp(cddr((V52)))){ |
472 |
goto T248;} |
goto T248;} |
473 |
V67= caddr((V52)); |
V67= caddr((V52)); |
474 |
|
goto T248; |
475 |
T248:; |
T248:; |
476 |
V68= list(4,VV[9],(V42),(V65),VV[29]); |
V68= list(4,VV[9],(V42),(V65),VV[29]); |
477 |
(void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68)); |
(void)((*(LnkLI58))((V63),/* INLINE-ARGS */V68)); |
481 |
goto T278;} |
goto T278;} |
482 |
V70= list(2,VV[33],list(3,VV[31],(V63),VV[34])); |
V70= list(2,VV[33],list(3,VV[31],(V63),VV[34])); |
483 |
(void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70)); |
(void)((*(LnkLI58))((V67),/* INLINE-ARGS */V70)); |
484 |
|
goto T278; |
485 |
T278:; |
T278:; |
486 |
V44= make_cons((V65),(V44));} |
V44= make_cons((V65),(V44));} |
487 |
{object V71; |
{object V71; |
488 |
V71= car((V34)); |
V71= car((V34)); |
489 |
V34= cdr((V34)); |
V34= cdr((V34)); |
490 |
goto T135;} |
goto T135;} |
491 |
|
goto T244; |
492 |
T244:; |
T244:; |
493 |
if(((V37))==Cnil){ |
if(((V37))==Cnil){ |
494 |
goto T286;} |
goto T286;} |
502 |
goto T291;} |
goto T291;} |
503 |
V72= (V52); |
V72= (V52); |
504 |
goto T289; |
goto T289; |
505 |
|
goto T291; |
506 |
T291:; |
T291:; |
507 |
V72= car((V52)); |
V72= car((V52)); |
508 |
if(endp(cdr((V52)))){ |
if(endp(cdr((V52)))){ |
511 |
if(endp(cddr((V52)))){ |
if(endp(cddr((V52)))){ |
512 |
goto T289;} |
goto T289;} |
513 |
V74= caddr((V52)); |
V74= caddr((V52)); |
514 |
|
goto T289; |
515 |
T289:; |
T289:; |
516 |
V75= (*(LnkLI56))((V46),(V35)); |
V75= (*(LnkLI56))((V46),(V35)); |
517 |
V76= (*(LnkLI59))((V46),(V35)); |
V76= (*(LnkLI59))((V46),(V35)); |
521 |
goto T288;} |
goto T288;} |
522 |
V78= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35)))); |
V78= list(2,VV[33],list(2,VV[35],(*(LnkLI56))((V46),(V35)))); |
523 |
(void)((*(LnkLI58))((V74),/* INLINE-ARGS */V78));} |
(void)((*(LnkLI58))((V74),/* INLINE-ARGS */V78));} |
524 |
|
goto T288; |
525 |
T288:; |
T288:; |
526 |
V46= number_plus((V46),small_fixnum(1)); |
V46= number_plus((V46),small_fixnum(1)); |
527 |
{object V79; |
{object V79; |
528 |
V79= car((V34)); |
V79= car((V34)); |
529 |
V34= cdr((V34)); |
V34= cdr((V34)); |
530 |
goto T135;} |
goto T135;} |
531 |
|
goto T286; |
532 |
T286:; |
T286:; |
533 |
V80= (*(LnkLI56))((V46),(V35)); |
V80= (*(LnkLI56))((V46),(V35)); |
534 |
V81= (*(LnkLI59))((V46),(V35)); |
V81= (*(LnkLI59))((V46),(V35)); |
538 |
{object V83; |
{object V83; |
539 |
V83= car((V34)); |
V83= car((V34)); |
540 |
V34= cdr((V34));}} |
V34= cdr((V34));}} |
541 |
|
goto T135; |
542 |
T135:; |
T135:; |
543 |
goto T111;} |
goto T111;} |
544 |
|
base[0]=base[0]; |
545 |
|
return Cnil; |
546 |
} |
} |
547 |
/* local entry for function DM-V */ |
/* local entry for function DM-V */ |
548 |
|
|
550 |
|
|
551 |
register object V86;register object V87; |
register object V86;register object V87; |
552 |
{ VMB4 VMS4 VMV4 |
{ VMB4 VMS4 VMV4 |
553 |
|
goto TTL; |
554 |
TTL:; |
TTL:; |
555 |
if(!(type_of((V86))==t_symbol)){ |
if(!(type_of((V86))==t_symbol)){ |
556 |
goto T320;} |
goto T320;} |
558 |
goto T325;} |
goto T325;} |
559 |
V88= list(2,(V86),(V87)); |
V88= list(2,(V86),(V87)); |
560 |
goto T323; |
goto T323; |
561 |
|
goto T325; |
562 |
T325:; |
T325:; |
563 |
V88= (V86); |
V88= (V86); |
564 |
|
goto T323; |
565 |
T323:; |
T323:; |
566 |
setq(VV[1],make_cons(V88,symbol_value(VV[1]))); |
setq(VV[1],make_cons(V88,symbol_value(VV[1]))); |
567 |
{object V89 = symbol_value(VV[1]); |
{object V89 = symbol_value(VV[1]); |
568 |
VMR4(V89)} |
VMR4(V89)} |
569 |
|
goto T320; |
570 |
T320:; |
T320:; |
571 |
{object V90; |
{object V90; |
572 |
vs_base=vs_top; |
vs_base=vs_top; |
577 |
goto T332;} |
goto T332;} |
578 |
V91= list(2,(V90),(V87)); |
V91= list(2,(V90),(V87)); |
579 |
goto T330; |
goto T330; |
580 |
|
goto T332; |
581 |
T332:; |
T332:; |
582 |
V91= (V90); |
V91= (V90); |
583 |
|
goto T330; |
584 |
T330:; |
T330:; |
585 |
setq(VV[1],make_cons(V91,symbol_value(VV[1]))); |
setq(VV[1],make_cons(V91,symbol_value(VV[1]))); |
586 |
{object V92 = (*(LnkLI55))((V86),(V90),Cnil); |
{object V92 = (*(LnkLI55))((V86),(V90),Cnil); |
587 |
VMR4(V92)}} |
VMR4(V92)}} |
588 |
|
base[0]=base[0]; |
589 |
|
return Cnil; |
590 |
} |
} |
591 |
/* local entry for function DM-NTH */ |
/* local entry for function DM-NTH */ |
592 |
|
|
594 |
|
|
595 |
object V95;register object V96; |
object V95;register object V96; |
596 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
597 |
|
goto TTL; |
598 |
TTL:; |
TTL:; |
599 |
{object V97; |
{object V97; |
600 |
object V98; |
object V98; |
609 |
V98= vs_base[0]; |
V98= vs_base[0]; |
610 |
vs_top=sup; |
vs_top=sup; |
611 |
goto T339; |
goto T339; |
612 |
|
goto T337; |
613 |
T337:; |
T337:; |
614 |
V97= Cnil; |
V97= Cnil; |
615 |
|
goto T338; |
616 |
T338:; |
T338:; |
617 |
V98= Cnil; |
V98= Cnil; |
618 |
|
goto T339; |
619 |
T339:; |
T339:; |
620 |
{register object V99; |
{register object V99; |
621 |
register object V100; |
register object V100; |
622 |
V99= (V97); |
V99= (V97); |
623 |
V100= small_fixnum(0); |
V100= small_fixnum(0); |
624 |
|
goto T344; |
625 |
T344:; |
T344:; |
626 |
if(!(number_compare((V100),(V99))>=0)){ |
if(!(number_compare((V100),(V99))>=0)){ |
627 |
goto T345;} |
goto T345;} |
628 |
goto T340; |
goto T340; |
629 |
|
goto T345; |
630 |
T345:; |
T345:; |
631 |
V96= list(2,VV[37],(V96)); |
V96= list(2,VV[37],(V96)); |
632 |
V100= one_plus((V100)); |
V100= one_plus((V100)); |
633 |
goto T344;} |
goto T344;} |
634 |
|
goto T340; |
635 |
T340:; |
T340:; |
636 |
{object V101= (V98); |
{object V101= (V98); |
637 |
if(!eql(V101,VV[38]))goto T354; |
if(!eql(V101,VV[38]))goto T354; |
638 |
{object V102 = list(2,VV[39],(V96)); |
{object V102 = list(2,VV[39],(V96)); |
639 |
VMR5(V102)} |
VMR5(V102)} |
640 |
|
goto T354; |
641 |
T354:; |
T354:; |
642 |
if(!eql(V101,VV[40]))goto T355; |
if(!eql(V101,VV[40]))goto T355; |
643 |
{object V103 = list(2,VV[41],(V96)); |
{object V103 = list(2,VV[41],(V96)); |
644 |
VMR5(V103)} |
VMR5(V103)} |
645 |
|
goto T355; |
646 |
T355:; |
T355:; |
647 |
if(!eql(V101,VV[42]))goto T356; |
if(!eql(V101,VV[42]))goto T356; |
648 |
{object V104 = list(2,VV[43],(V96)); |
{object V104 = list(2,VV[43],(V96)); |
649 |
VMR5(V104)} |
VMR5(V104)} |
650 |
|
goto T356; |
651 |
T356:; |
T356:; |
652 |
if(!eql(V101,VV[44]))goto T357; |
if(!eql(V101,VV[44]))goto T357; |
653 |
{object V105 = list(2,VV[45],(V96)); |
{object V105 = list(2,VV[45],(V96)); |
654 |
VMR5(V105)} |
VMR5(V105)} |
655 |
|
goto T357; |
656 |
T357:; |
T357:; |
657 |
{object V106 = Cnil; |
{object V106 = Cnil; |
658 |
VMR5(V106)}}} |
VMR5(V106)}}} |
659 |
|
base[0]=base[0]; |
660 |
|
return Cnil; |
661 |
} |
} |
662 |
/* local entry for function DM-NTH-CDR */ |
/* local entry for function DM-NTH-CDR */ |
663 |
|
|
665 |
|
|
666 |
object V109;register object V110; |
object V109;register object V110; |
667 |
{ VMB6 VMS6 VMV6 |
{ VMB6 VMS6 VMV6 |
668 |
|
goto TTL; |
669 |
TTL:; |
TTL:; |
670 |
{object V111; |
{object V111; |
671 |
object V112; |
object V112; |
680 |
V112= vs_base[0]; |
V112= vs_base[0]; |
681 |
vs_top=sup; |
vs_top=sup; |
682 |
goto T363; |
goto T363; |
683 |
|
goto T361; |
684 |
T361:; |
T361:; |
685 |
V111= Cnil; |
V111= Cnil; |
686 |
|
goto T362; |
687 |
T362:; |
T362:; |
688 |
V112= Cnil; |
V112= Cnil; |
689 |
|
goto T363; |
690 |
T363:; |
T363:; |
691 |
{register object V113; |
{register object V113; |
692 |
register object V114; |
register object V114; |
693 |
V113= (V111); |
V113= (V111); |
694 |
V114= small_fixnum(0); |
V114= small_fixnum(0); |
695 |
|
goto T368; |
696 |
T368:; |
T368:; |
697 |
if(!(number_compare((V114),(V113))>=0)){ |
if(!(number_compare((V114),(V113))>=0)){ |
698 |
goto T369;} |
goto T369;} |
699 |
goto T364; |
goto T364; |
700 |
|
goto T369; |
701 |
T369:; |
T369:; |
702 |
V110= list(2,VV[37],(V110)); |
V110= list(2,VV[37],(V110)); |
703 |
V114= one_plus((V114)); |
V114= one_plus((V114)); |
704 |
goto T368;} |
goto T368;} |
705 |
|
goto T364; |
706 |
T364:; |
T364:; |
707 |
{object V115= (V112); |
{object V115= (V112); |
708 |
if(!eql(V115,VV[38]))goto T378; |
if(!eql(V115,VV[38]))goto T378; |
709 |
{object V116 = (V110); |
{object V116 = (V110); |
710 |
VMR6(V116)} |
VMR6(V116)} |
711 |
|
goto T378; |
712 |
T378:; |
T378:; |
713 |
if(!eql(V115,VV[40]))goto T379; |
if(!eql(V115,VV[40]))goto T379; |
714 |
{object V117 = list(2,VV[46],(V110)); |
{object V117 = list(2,VV[46],(V110)); |
715 |
VMR6(V117)} |
VMR6(V117)} |
716 |
|
goto T379; |
717 |
T379:; |
T379:; |
718 |
if(!eql(V115,VV[42]))goto T380; |
if(!eql(V115,VV[42]))goto T380; |
719 |
{object V118 = list(2,VV[47],(V110)); |
{object V118 = list(2,VV[47],(V110)); |
720 |
VMR6(V118)} |
VMR6(V118)} |
721 |
|
goto T380; |
722 |
T380:; |
T380:; |
723 |
if(!eql(V115,VV[44]))goto T381; |
if(!eql(V115,VV[44]))goto T381; |
724 |
{object V119 = list(2,VV[48],(V110)); |
{object V119 = list(2,VV[48],(V110)); |
725 |
VMR6(V119)} |
VMR6(V119)} |
726 |
|
goto T381; |
727 |
T381:; |
T381:; |
728 |
{object V120 = Cnil; |
{object V120 = Cnil; |
729 |
VMR6(V120)}}} |
VMR6(V120)}}} |
730 |
|
base[0]=base[0]; |
731 |
|
return Cnil; |
732 |
} |
} |
733 |
/* local entry for function DM-BAD-KEY */ |
/* local entry for function DM-BAD-KEY */ |
734 |
|
|
736 |
|
|
737 |
object V122; |
object V122; |
738 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
739 |
|
goto TTL; |
740 |
TTL:; |
TTL:; |
741 |
base[0]= VV[49]; |
base[0]= VV[49]; |
742 |
base[1]= (V122); |
base[1]= (V122); |
745 |
vs_top=sup; |
vs_top=sup; |
746 |
{object V123 = vs_base[0]; |
{object V123 = vs_base[0]; |
747 |
VMR7(V123)} |
VMR7(V123)} |
748 |
|
base[0]=base[0]; |
749 |
|
return Cnil; |
750 |
} |
} |
751 |
/* local entry for function DM-TOO-FEW-ARGUMENTS */ |
/* local entry for function DM-TOO-FEW-ARGUMENTS */ |
752 |
|
|
753 |
static object LI8() |
static object LI8() |
754 |
|
|
755 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
756 |
|
goto TTL; |
757 |
TTL:; |
TTL:; |
758 |
base[0]= VV[50]; |
base[0]= VV[50]; |
759 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
761 |
vs_top=sup; |
vs_top=sup; |
762 |
{object V124 = vs_base[0]; |
{object V124 = vs_base[0]; |
763 |
VMR8(V124)} |
VMR8(V124)} |
764 |
|
base[0]=base[0]; |
765 |
|
return Cnil; |
766 |
} |
} |
767 |
/* local entry for function DM-TOO-MANY-ARGUMENTS */ |
/* local entry for function DM-TOO-MANY-ARGUMENTS */ |
768 |
|
|
769 |
static object LI9() |
static object LI9() |
770 |
|
|
771 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
772 |
|
goto TTL; |
773 |
TTL:; |
TTL:; |
774 |
base[0]= VV[51]; |
base[0]= VV[51]; |
775 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
777 |
vs_top=sup; |
vs_top=sup; |
778 |
{object V125 = vs_base[0]; |
{object V125 = vs_base[0]; |
779 |
VMR9(V125)} |
VMR9(V125)} |
780 |
|
base[0]=base[0]; |
781 |
|
return Cnil; |
782 |
} |
} |
783 |
/* local entry for function DM-KEY-NOT-ALLOWED */ |
/* local entry for function DM-KEY-NOT-ALLOWED */ |
784 |
|
|
786 |
|
|
787 |
object V127; |
object V127; |
788 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
789 |
|
goto TTL; |
790 |
TTL:; |
TTL:; |
791 |
base[0]= VV[52]; |
base[0]= VV[52]; |
792 |
base[1]= (V127); |
base[1]= (V127); |
795 |
vs_top=sup; |
vs_top=sup; |
796 |
{object V128 = vs_base[0]; |
{object V128 = vs_base[0]; |
797 |
VMR10(V128)} |
VMR10(V128)} |
798 |
|
base[0]=base[0]; |
799 |
|
return Cnil; |
800 |
} |
} |
801 |
/* function definition for FIND-DOC */ |
/* function definition for FIND-DOC */ |
802 |
|
|
803 |
static L11() |
static void L11() |
804 |
{register object *base=vs_base; |
{register object *base=vs_base; |
805 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
806 |
vs_reserve(VM11); |
vs_reserve(VM11); |
810 |
V129=(base[0]); |
V129=(base[0]); |
811 |
V130=(base[1]); |
V130=(base[1]); |
812 |
vs_top=sup; |
vs_top=sup; |
813 |
|
goto TTL; |
814 |
TTL:; |
TTL:; |
815 |
if(!(endp((V129)))){ |
if(!(endp((V129)))){ |
816 |
goto T389;} |
goto T389;} |
819 |
base[4]= Cnil; |
base[4]= Cnil; |
820 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
821 |
return; |
return; |
822 |
|
goto T389; |
823 |
T389:; |
T389:; |
824 |
{register object V131; |
{register object V131; |
825 |
base[2]= car((V129)); |
base[2]= car((V129)); |
833 |
goto T399;} |
goto T399;} |
834 |
if(((V130))==Cnil){ |
if(((V130))==Cnil){ |
835 |
goto T400;} |
goto T400;} |
836 |
|
goto T399; |
837 |
T399:; |
T399:; |
838 |
base[2]= Cnil; |
base[2]= Cnil; |
839 |
base[3]= Cnil; |
base[3]= Cnil; |
840 |
base[4]= make_cons((V131),cdr((V129))); |
base[4]= make_cons((V131),cdr((V129))); |
841 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
842 |
return; |
return; |
843 |
|
goto T400; |
844 |
T400:; |
T400:; |
845 |
{object V132; |
{object V132; |
846 |
object V133; |
object V133; |
859 |
V134= vs_base[0]; |
V134= vs_base[0]; |
860 |
vs_top=sup; |
vs_top=sup; |
861 |
goto T413; |
goto T413; |
862 |
|
goto T410; |
863 |
T410:; |
T410:; |
864 |
V132= Cnil; |
V132= Cnil; |
865 |
|
goto T411; |
866 |
T411:; |
T411:; |
867 |
V133= Cnil; |
V133= Cnil; |
868 |
|
goto T412; |
869 |
T412:; |
T412:; |
870 |
V134= Cnil; |
V134= Cnil; |
871 |
|
goto T413; |
872 |
T413:; |
T413:; |
873 |
base[2]= (V131); |
base[2]= (V131); |
874 |
base[3]= (V133); |
base[3]= (V133); |
875 |
base[4]= (V134); |
base[4]= (V134); |
876 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
877 |
return;} |
return;} |
878 |
|
goto T397; |
879 |
T397:; |
T397:; |
880 |
if(!(type_of((V131))==t_cons)){ |
if(!(type_of((V131))==t_cons)){ |
881 |
goto T418;} |
goto T418;} |
898 |
V137= vs_base[0]; |
V137= vs_base[0]; |
899 |
vs_top=sup; |
vs_top=sup; |
900 |
goto T428; |
goto T428; |
901 |
|
goto T425; |
902 |
T425:; |
T425:; |
903 |
V135= Cnil; |
V135= Cnil; |
904 |
|
goto T426; |
905 |
T426:; |
T426:; |
906 |
V136= Cnil; |
V136= Cnil; |
907 |
|
goto T427; |
908 |
T427:; |
T427:; |
909 |
V137= Cnil; |
V137= Cnil; |
910 |
|
goto T428; |
911 |
T428:; |
T428:; |
912 |
base[2]= (V135); |
base[2]= (V135); |
913 |
base[3]= make_cons((V131),(V136)); |
base[3]= make_cons((V131),(V136)); |
914 |
base[4]= (V137); |
base[4]= (V137); |
915 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
916 |
return;} |
return;} |
917 |
|
goto T418; |
918 |
T418:; |
T418:; |
919 |
base[2]= Cnil; |
base[2]= Cnil; |
920 |
base[3]= Cnil; |
base[3]= Cnil; |
925 |
} |
} |
926 |
/* function definition for FIND-DECLARATIONS */ |
/* function definition for FIND-DECLARATIONS */ |
927 |
|
|
928 |
static L12() |
static void L12() |
929 |
{register object *base=vs_base; |
{register object *base=vs_base; |
930 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
931 |
vs_reserve(VM12); |
vs_reserve(VM12); |
933 |
check_arg(1); |
check_arg(1); |
934 |
V138=(base[0]); |
V138=(base[0]); |
935 |
vs_top=sup; |
vs_top=sup; |
936 |
|
goto TTL; |
937 |
TTL:; |
TTL:; |
938 |
if(!(endp((V138)))){ |
if(!(endp((V138)))){ |
939 |
goto T436;} |
goto T436;} |
941 |
base[2]= Cnil; |
base[2]= Cnil; |
942 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
943 |
return; |
return; |
944 |
|
goto T436; |
945 |
T436:; |
T436:; |
946 |
{register object V139; |
{register object V139; |
947 |
base[1]= car((V138)); |
base[1]= car((V138)); |
957 |
base[2]= make_cons((V139),Cnil); |
base[2]= make_cons((V139),Cnil); |
958 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
959 |
return; |
return; |
960 |
|
goto T446; |
961 |
T446:; |
T446:; |
962 |
{object V140; |
{object V140; |
963 |
object V141; |
object V141; |
971 |
V141= vs_base[0]; |
V141= vs_base[0]; |
972 |
vs_top=sup; |
vs_top=sup; |
973 |
goto T454; |
goto T454; |
974 |
|
goto T452; |
975 |
T452:; |
T452:; |
976 |
V140= Cnil; |
V140= Cnil; |
977 |
|
goto T453; |
978 |
T453:; |
T453:; |
979 |
V141= Cnil; |
V141= Cnil; |
980 |
|
goto T454; |
981 |
T454:; |
T454:; |
982 |
base[1]= make_cons((V139),(V140)); |
base[1]= make_cons((V139),(V140)); |
983 |
base[2]= (V141); |
base[2]= (V141); |
984 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
985 |
return;} |
return;} |
986 |
|
goto T443; |
987 |
T443:; |
T443:; |
988 |
if(!(type_of((V139))==t_cons)){ |
if(!(type_of((V139))==t_cons)){ |
989 |
goto T458;} |
goto T458;} |
1001 |
V143= vs_base[0]; |
V143= vs_base[0]; |
1002 |
vs_top=sup; |
vs_top=sup; |
1003 |
goto T466; |
goto T466; |
1004 |
|
goto T464; |
1005 |
T464:; |
T464:; |
1006 |
V142= Cnil; |
V142= Cnil; |
1007 |
|
goto T465; |
1008 |
T465:; |
T465:; |
1009 |
V143= Cnil; |
V143= Cnil; |
1010 |
|
goto T466; |
1011 |
T466:; |
T466:; |
1012 |
base[1]= make_cons((V139),(V142)); |
base[1]= make_cons((V139),(V142)); |
1013 |
base[2]= (V143); |
base[2]= (V143); |
1014 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1015 |
return;} |
return;} |
1016 |
|
goto T458; |
1017 |
T458:; |
T458:; |
1018 |
base[1]= Cnil; |
base[1]= Cnil; |
1019 |
base[2]= make_cons((V139),cdr((V138))); |
base[2]= make_cons((V139),cdr((V138))); |
1021 |
return;} |
return;} |
1022 |
} |
} |
1023 |
} |
} |
1024 |
static LnkT60(){ call_or_link(VV[60],&Lnk60);} /* FIND-DECLARATIONS */ |
static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* FIND-DECLARATIONS */ |
1025 |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,2,ap);} /* DM-NTH */ |
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],(void **)&LnkLI59,2,ap);} /* DM-NTH */ |
1026 |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],&LnkLI58,2,ap);} /* DM-V */ |
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[58],(void **)&LnkLI58,2,ap);} /* DM-V */ |
1027 |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* DM-BAD-KEY */ |
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],(void **)&LnkLI57,1,ap);} /* DM-BAD-KEY */ |
1028 |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,2,ap);} /* DM-NTH-CDR */ |
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],(void **)&LnkLI56,2,ap);} /* DM-NTH-CDR */ |
1029 |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,3,ap);} /* DM-VL */ |
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],(void **)&LnkLI55,3,ap);} /* DM-VL */ |
1030 |
static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* GET-&ENVIRONMENT */ |
static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* GET-&ENVIRONMENT */ |
1031 |
static LnkT53(){ call_or_link(VV[53],&Lnk53);} /* FIND-DOC */ |
static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* FIND-DOC */ |
1032 |
|
|
1033 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1034 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |