1 |
|
|
2 |
|
#include "cmpinclude.h" |
3 |
|
#include "gcl_assert.h" |
4 |
|
void init_gcl_assert(){do_init(VV);} |
5 |
|
/* macro definition for CHECK-TYPE */ |
6 |
|
|
7 |
|
static void L1() |
8 |
|
{register object *base=vs_base; |
9 |
|
register object *sup=base+VM1; VC1 |
10 |
|
vs_reserve(VM1); |
11 |
|
check_arg(2); |
12 |
|
vs_top=sup; |
13 |
|
{object V1=base[0]->c.c_cdr; |
14 |
|
if(endp(V1))invalid_macro_call(); |
15 |
|
base[2]= (V1->c.c_car); |
16 |
|
V1=V1->c.c_cdr; |
17 |
|
if(endp(V1))invalid_macro_call(); |
18 |
|
base[3]= (V1->c.c_car); |
19 |
|
V1=V1->c.c_cdr; |
20 |
|
if(endp(V1)){ |
21 |
|
base[4]= Cnil; |
22 |
|
base[5]= Cnil; |
23 |
|
} else { |
24 |
|
base[4]= (V1->c.c_car); |
25 |
|
base[5]= Ct; |
26 |
|
V1=V1->c.c_cdr;} |
27 |
|
if(!endp(V1))invalid_macro_call();} |
28 |
|
V2= list(2,list(3,VV[2],base[2],list(2,VV[3],base[3])),Cnil); |
29 |
|
V3= list(2,VV[3],base[2]); |
30 |
|
if((base[5])==Cnil){ |
31 |
|
goto T4;} |
32 |
|
V4= base[4]; |
33 |
|
goto T2; |
34 |
|
goto T4; |
35 |
|
T4:; |
36 |
|
V4= list(2,VV[3],base[3]); |
37 |
|
goto T2; |
38 |
|
T2:; |
39 |
|
V5= list(6,VV[4],VV[5],VV[6],/* INLINE-ARGS */V3,base[2],V4); |
40 |
|
V6= (*(LnkLI53))(base[2]); |
41 |
|
base[6]= list(6,VV[0],VV[1],/* INLINE-ARGS */V2,/* INLINE-ARGS */V5,/* INLINE-ARGS */V6,VV[7]); |
42 |
|
vs_top=(vs_base=base+6)+1; |
43 |
|
return; |
44 |
|
} |
45 |
|
/* macro definition for ASSERT */ |
46 |
|
|
47 |
|
static void L2() |
48 |
|
{register object *base=vs_base; |
49 |
|
register object *sup=base+VM2; VC2 |
50 |
|
vs_reserve(VM2); |
51 |
|
check_arg(2); |
52 |
|
vs_top=sup; |
53 |
|
{object V7=base[0]->c.c_cdr; |
54 |
|
if(endp(V7))invalid_macro_call(); |
55 |
|
base[2]= (V7->c.c_car); |
56 |
|
V7=V7->c.c_cdr; |
57 |
|
if(endp(V7)){ |
58 |
|
base[3]= Cnil; |
59 |
|
} else { |
60 |
|
base[3]= (V7->c.c_car); |
61 |
|
V7=V7->c.c_cdr;} |
62 |
|
if(endp(V7)){ |
63 |
|
base[4]= Cnil; |
64 |
|
} else { |
65 |
|
base[4]= (V7->c.c_car); |
66 |
|
V7=V7->c.c_cdr;} |
67 |
|
base[5]= V7;} |
68 |
|
V8= list(2,base[2],Cnil); |
69 |
|
if((base[4])==Cnil){ |
70 |
|
goto T10;} |
71 |
|
V9= listA(4,VV[4],VV[9],base[4],base[5]); |
72 |
|
goto T8; |
73 |
|
goto T10; |
74 |
|
T10:; |
75 |
|
V9= list(4,VV[4],VV[10],VV[11],list(2,VV[3],base[2])); |
76 |
|
goto T8; |
77 |
|
T8:; |
78 |
|
{object V11; |
79 |
|
object V12= base[3]; |
80 |
|
if(endp(V12)){ |
81 |
|
V10= Cnil; |
82 |
|
goto T12;} |
83 |
|
base[6]=V11=MMcons(Cnil,Cnil); |
84 |
|
goto T13; |
85 |
|
T13:; |
86 |
|
(V11->c.c_car)= (*(LnkLI53))((V12->c.c_car)); |
87 |
|
V12=MMcdr(V12); |
88 |
|
if(endp(V12)){ |
89 |
|
V10= base[6]; |
90 |
|
goto T12;} |
91 |
|
V11=MMcdr(V11)=MMcons(Cnil,Cnil); |
92 |
|
goto T13;} |
93 |
|
goto T12; |
94 |
|
T12:; |
95 |
|
base[6]= listA(5,VV[0],VV[8],/* INLINE-ARGS */V8,V9,append(V10,VV[12])); |
96 |
|
vs_top=(vs_base=base+6)+1; |
97 |
|
return; |
98 |
|
} |
99 |
|
/* local entry for function ASK-FOR-FORM */ |
100 |
|
|
101 |
|
static object LI3(V14) |
102 |
|
|
103 |
|
object V14; |
104 |
|
{ VMB3 VMS3 VMV3 |
105 |
|
goto TTL; |
106 |
|
TTL:; |
107 |
|
V15= list(4,VV[14],VV[15],VV[16],list(2,VV[3],(V14))); |
108 |
|
{object V16 = list(4,VV[13],/* INLINE-ARGS */V15,VV[17],list(3,VV[18],(V14),VV[19])); |
109 |
|
VMR3(V16)} |
110 |
|
return Cnil; |
111 |
|
} |
112 |
|
/* macro definition for ECASE */ |
113 |
|
|
114 |
|
static void L4() |
115 |
|
{register object *base=vs_base; |
116 |
|
register object *sup=base+VM4; VC4 |
117 |
|
vs_reserve(VM4); |
118 |
|
check_arg(2); |
119 |
|
vs_top=sup; |
120 |
|
{object V17=base[0]->c.c_cdr; |
121 |
|
if(endp(V17))invalid_macro_call(); |
122 |
|
base[2]= (V17->c.c_car); |
123 |
|
V17=V17->c.c_cdr; |
124 |
|
base[3]= V17; |
125 |
|
vs_base=vs_top; |
126 |
|
Lgensym(); |
127 |
|
vs_top=sup; |
128 |
|
base[4]= vs_base[0];} |
129 |
|
{register object V18; |
130 |
|
register object V19; |
131 |
|
V18= reverse(base[3]); |
132 |
|
V20= list(2,VV[3],base[2]); |
133 |
|
{object V22; |
134 |
|
object V23= base[3]; |
135 |
|
if(endp(V23)){ |
136 |
|
V21= Cnil; |
137 |
|
goto T18;} |
138 |
|
base[5]=V22=MMcons(Cnil,Cnil); |
139 |
|
goto T19; |
140 |
|
T19:; |
141 |
|
{object V25= car((V23->c.c_car)); |
142 |
|
if(!(type_of(V25)==t_cons||(V25)==Cnil)){ |
143 |
|
goto T22;}} |
144 |
|
{object V26; |
145 |
|
object V27= car((V23->c.c_car)); |
146 |
|
if(endp(V27)){ |
147 |
|
(V22->c.c_cdr)= Cnil; |
148 |
|
goto T20;} |
149 |
|
base[6]=V26=MMcons(Cnil,Cnil); |
150 |
|
goto T24; |
151 |
|
T24:; |
152 |
|
(V26->c.c_car)= list(2,VV[3],(V27->c.c_car)); |
153 |
|
V27=MMcdr(V27); |
154 |
|
if(endp(V27)){ |
155 |
|
(V22->c.c_cdr)= base[6]; |
156 |
|
goto T20;} |
157 |
|
V26=MMcdr(V26)=MMcons(Cnil,Cnil); |
158 |
|
goto T24;} |
159 |
|
goto T22; |
160 |
|
T22:; |
161 |
|
V29= list(2,VV[3],car((V23->c.c_car))); |
162 |
|
(V22->c.c_cdr)= make_cons(/* INLINE-ARGS */V29,Cnil); |
163 |
|
goto T20; |
164 |
|
T20:; |
165 |
|
{object cdr_V22=MMcdr(V22);while(!endp(cdr_V22)) {cdr_V22=MMcdr(cdr_V22);V22=MMcdr(V22);}} |
166 |
|
V23=MMcdr(V23); |
167 |
|
if(endp(V23)){ |
168 |
|
base[5]=base[5]->c.c_cdr; |
169 |
|
V21= base[5]; |
170 |
|
goto T18;} |
171 |
|
goto T19;} |
172 |
|
goto T18; |
173 |
|
T18:; |
174 |
|
V19= list(3,VV[20],VV[21],listA(5,VV[22],VV[23],/* INLINE-ARGS */V20,base[4],V21)); |
175 |
|
goto T27; |
176 |
|
T27:; |
177 |
|
if(!(endp_prop((V18)))){ |
178 |
|
goto T28;} |
179 |
|
V30= list(2,base[4],base[2]); |
180 |
|
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V30,Cnil),(V19)); |
181 |
|
vs_top=(vs_base=base+5)+1; |
182 |
|
return; |
183 |
|
goto T28; |
184 |
|
T28:; |
185 |
|
if((caar((V18)))==Cnil){ |
186 |
|
goto T32;} |
187 |
|
{object V32= caar((V18)); |
188 |
|
if(!(type_of(V32)==t_cons||(V32)==Cnil)){ |
189 |
|
goto T38;}} |
190 |
|
V31= list(3,VV[25],base[4],list(2,VV[3],caar((V18)))); |
191 |
|
goto T36; |
192 |
|
goto T38; |
193 |
|
T38:; |
194 |
|
V31= list(3,VV[26],base[4],list(2,VV[3],caar((V18)))); |
195 |
|
goto T36; |
196 |
|
T36:; |
197 |
|
V19= list(4,VV[24],V31,make_cons(VV[13],cdar((V18))),(V19)); |
198 |
|
goto T32; |
199 |
|
T32:; |
200 |
|
V18= cdr((V18)); |
201 |
|
goto T27;} |
202 |
|
} |
203 |
|
/* macro definition for CCASE */ |
204 |
|
|
205 |
|
static void L5() |
206 |
|
{register object *base=vs_base; |
207 |
|
register object *sup=base+VM5; VC5 |
208 |
|
vs_reserve(VM5); |
209 |
|
check_arg(2); |
210 |
|
vs_top=sup; |
211 |
|
{object V33=base[0]->c.c_cdr; |
212 |
|
if(endp(V33))invalid_macro_call(); |
213 |
|
base[2]= (V33->c.c_car); |
214 |
|
V33=V33->c.c_cdr; |
215 |
|
base[3]= V33; |
216 |
|
vs_base=vs_top; |
217 |
|
Lgensym(); |
218 |
|
vs_top=sup; |
219 |
|
base[4]= vs_base[0];} |
220 |
|
V34= list(2,base[4],base[2]); |
221 |
|
V35= make_cons(/* INLINE-ARGS */V34,Cnil); |
222 |
|
{object V37; |
223 |
|
object V38= base[3]; |
224 |
|
if(endp(V38)){ |
225 |
|
V36= Cnil; |
226 |
|
goto T44;} |
227 |
|
base[5]=V37=MMcons(Cnil,Cnil); |
228 |
|
goto T45; |
229 |
|
T45:; |
230 |
|
{register object V39; |
231 |
|
V39= (V38->c.c_car); |
232 |
|
{object V41= car((V39)); |
233 |
|
if(!(type_of(V41)==t_cons||(V41)==Cnil)){ |
234 |
|
goto T49;}} |
235 |
|
V40= list(3,VV[25],base[4],list(2,VV[3],car((V39)))); |
236 |
|
goto T47; |
237 |
|
goto T49; |
238 |
|
T49:; |
239 |
|
V40= list(3,VV[26],base[4],list(2,VV[3],car((V39)))); |
240 |
|
goto T47; |
241 |
|
T47:; |
242 |
|
(V37->c.c_car)= list(3,VV[28],V40,list(2,VV[29],make_cons(VV[13],cdr((V39)))));} |
243 |
|
V38=MMcdr(V38); |
244 |
|
if(endp(V38)){ |
245 |
|
V36= base[5]; |
246 |
|
goto T44;} |
247 |
|
V37=MMcdr(V37)=MMcons(Cnil,Cnil); |
248 |
|
goto T45;} |
249 |
|
goto T44; |
250 |
|
T44:; |
251 |
|
V42= list(2,VV[3],base[2]); |
252 |
|
{object V44; |
253 |
|
object V45= base[3]; |
254 |
|
if(endp(V45)){ |
255 |
|
V43= Cnil; |
256 |
|
goto T51;} |
257 |
|
base[5]=V44=MMcons(Cnil,Cnil); |
258 |
|
goto T52; |
259 |
|
T52:; |
260 |
|
{object V47= car((V45->c.c_car)); |
261 |
|
if(!(type_of(V47)==t_cons||(V47)==Cnil)){ |
262 |
|
goto T55;}} |
263 |
|
{object V48; |
264 |
|
object V49= car((V45->c.c_car)); |
265 |
|
if(endp(V49)){ |
266 |
|
(V44->c.c_cdr)= Cnil; |
267 |
|
goto T53;} |
268 |
|
base[6]=V48=MMcons(Cnil,Cnil); |
269 |
|
goto T57; |
270 |
|
T57:; |
271 |
|
(V48->c.c_car)= list(2,VV[3],(V49->c.c_car)); |
272 |
|
V49=MMcdr(V49); |
273 |
|
if(endp(V49)){ |
274 |
|
(V44->c.c_cdr)= base[6]; |
275 |
|
goto T53;} |
276 |
|
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
277 |
|
goto T57;} |
278 |
|
goto T55; |
279 |
|
T55:; |
280 |
|
V51= list(2,VV[3],car((V45->c.c_car))); |
281 |
|
(V44->c.c_cdr)= make_cons(/* INLINE-ARGS */V51,Cnil); |
282 |
|
goto T53; |
283 |
|
T53:; |
284 |
|
{object cdr_V44=MMcdr(V44);while(!endp(cdr_V44)) {cdr_V44=MMcdr(cdr_V44);V44=MMcdr(V44);}} |
285 |
|
V45=MMcdr(V45); |
286 |
|
if(endp(V45)){ |
287 |
|
base[5]=base[5]->c.c_cdr; |
288 |
|
V43= base[5]; |
289 |
|
goto T51;} |
290 |
|
goto T52;} |
291 |
|
goto T51; |
292 |
|
T51:; |
293 |
|
V52= listA(6,VV[4],VV[31],VV[32],/* INLINE-ARGS */V42,base[4],V43); |
294 |
|
V53= (*(LnkLI53))(base[2]); |
295 |
|
V54= list(5,VV[20],VV[30],/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,VV[33]); |
296 |
|
V55= make_cons(/* INLINE-ARGS */V54,Cnil); |
297 |
|
base[5]= list(2,VV[27],listA(3,VV[20],/* INLINE-ARGS */V35,append(V36,/* INLINE-ARGS */V55))); |
298 |
|
vs_top=(vs_base=base+5)+1; |
299 |
|
return; |
300 |
|
} |
301 |
|
/* macro definition for TYPECASE */ |
302 |
|
|
303 |
|
static void L6() |
304 |
|
{register object *base=vs_base; |
305 |
|
register object *sup=base+VM6; VC6 |
306 |
|
vs_reserve(VM6); |
307 |
|
check_arg(2); |
308 |
|
vs_top=sup; |
309 |
|
{object V56=base[0]->c.c_cdr; |
310 |
|
if(endp(V56))invalid_macro_call(); |
311 |
|
base[2]= (V56->c.c_car); |
312 |
|
V56=V56->c.c_cdr; |
313 |
|
base[3]= V56;} |
314 |
|
{register object V57; |
315 |
|
register object V58; |
316 |
|
register object V59; |
317 |
|
V57= reverse(base[3]); |
318 |
|
vs_base=vs_top; |
319 |
|
Lgensym(); |
320 |
|
vs_top=sup; |
321 |
|
V59= vs_base[0]; |
322 |
|
V58= Cnil; |
323 |
|
goto T62; |
324 |
|
T62:; |
325 |
|
if(!(endp_prop((V57)))){ |
326 |
|
goto T63;} |
327 |
|
V60= list(2,(V59),base[2]); |
328 |
|
base[4]= list(3,VV[20],make_cons(/* INLINE-ARGS */V60,Cnil),(V58)); |
329 |
|
vs_top=(vs_base=base+4)+1; |
330 |
|
return; |
331 |
|
goto T63; |
332 |
|
T63:; |
333 |
|
if((caar((V57)))==(Ct)){ |
334 |
|
goto T68;} |
335 |
|
if(!((caar((V57)))==(VV[34]))){ |
336 |
|
goto T69;} |
337 |
|
goto T68; |
338 |
|
T68:; |
339 |
|
V58= make_cons(VV[13],cdar((V57))); |
340 |
|
goto T67; |
341 |
|
goto T69; |
342 |
|
T69:; |
343 |
|
V61= list(3,VV[2],(V59),list(2,VV[3],caar((V57)))); |
344 |
|
V58= list(4,VV[24],/* INLINE-ARGS */V61,make_cons(VV[13],cdar((V57))),(V58)); |
345 |
|
goto T67; |
346 |
|
T67:; |
347 |
|
V57= cdr((V57)); |
348 |
|
goto T62;} |
349 |
|
} |
350 |
|
/* macro definition for ETYPECASE */ |
351 |
|
|
352 |
|
static void L7() |
353 |
|
{register object *base=vs_base; |
354 |
|
register object *sup=base+VM7; VC7 |
355 |
|
vs_reserve(VM7); |
356 |
|
check_arg(2); |
357 |
|
vs_top=sup; |
358 |
|
{object V62=base[0]->c.c_cdr; |
359 |
|
if(endp(V62))invalid_macro_call(); |
360 |
|
base[2]= (V62->c.c_car); |
361 |
|
V62=V62->c.c_cdr; |
362 |
|
base[3]= V62; |
363 |
|
vs_base=vs_top; |
364 |
|
Lgensym(); |
365 |
|
vs_top=sup; |
366 |
|
base[4]= vs_base[0];} |
367 |
|
{register object V63; |
368 |
|
register object V64; |
369 |
|
V63= reverse(base[3]); |
370 |
|
V65= list(2,VV[3],base[2]); |
371 |
|
{object V67; |
372 |
|
object V68= base[3]; |
373 |
|
if(endp(V68)){ |
374 |
|
V66= Cnil; |
375 |
|
goto T81;} |
376 |
|
base[5]=V67=MMcons(Cnil,Cnil); |
377 |
|
goto T82; |
378 |
|
T82:; |
379 |
|
(V67->c.c_car)= car((V68->c.c_car)); |
380 |
|
V68=MMcdr(V68); |
381 |
|
if(endp(V68)){ |
382 |
|
V66= base[5]; |
383 |
|
goto T81;} |
384 |
|
V67=MMcdr(V67)=MMcons(Cnil,Cnil); |
385 |
|
goto T82;} |
386 |
|
goto T81; |
387 |
|
T81:; |
388 |
|
V64= list(2,VV[22],list(4,VV[35],/* INLINE-ARGS */V65,base[4],list(2,VV[3],V66))); |
389 |
|
goto T85; |
390 |
|
T85:; |
391 |
|
if(!(endp_prop((V63)))){ |
392 |
|
goto T86;} |
393 |
|
V70= list(2,base[4],base[2]); |
394 |
|
base[5]= list(3,VV[20],make_cons(/* INLINE-ARGS */V70,Cnil),(V64)); |
395 |
|
vs_top=(vs_base=base+5)+1; |
396 |
|
return; |
397 |
|
goto T86; |
398 |
|
T86:; |
399 |
|
V71= list(3,VV[2],base[4],list(2,VV[3],caar((V63)))); |
400 |
|
V64= list(4,VV[24],/* INLINE-ARGS */V71,make_cons(VV[13],cdar((V63))),(V64)); |
401 |
|
V63= cdr((V63)); |
402 |
|
goto T85;} |
403 |
|
} |
404 |
|
/* macro definition for CTYPECASE */ |
405 |
|
|
406 |
|
static void L8() |
407 |
|
{register object *base=vs_base; |
408 |
|
register object *sup=base+VM8; VC8 |
409 |
|
vs_reserve(VM8); |
410 |
|
check_arg(2); |
411 |
|
vs_top=sup; |
412 |
|
{object V72=base[0]->c.c_cdr; |
413 |
|
if(endp(V72))invalid_macro_call(); |
414 |
|
base[2]= (V72->c.c_car); |
415 |
|
V72=V72->c.c_cdr; |
416 |
|
base[3]= V72; |
417 |
|
vs_base=vs_top; |
418 |
|
Lgensym(); |
419 |
|
vs_top=sup; |
420 |
|
base[4]= vs_base[0];} |
421 |
|
V73= list(2,base[4],base[2]); |
422 |
|
V74= make_cons(/* INLINE-ARGS */V73,Cnil); |
423 |
|
{object V76; |
424 |
|
object V77= base[3]; |
425 |
|
if(endp(V77)){ |
426 |
|
V75= Cnil; |
427 |
|
goto T96;} |
428 |
|
base[5]=V76=MMcons(Cnil,Cnil); |
429 |
|
goto T97; |
430 |
|
T97:; |
431 |
|
V79= list(3,VV[2],base[4],list(2,VV[3],car((V77->c.c_car)))); |
432 |
|
(V76->c.c_car)= list(3,VV[28],/* INLINE-ARGS */V79,list(2,VV[29],make_cons(VV[13],cdr((V77->c.c_car))))); |
433 |
|
V77=MMcdr(V77); |
434 |
|
if(endp(V77)){ |
435 |
|
V75= base[5]; |
436 |
|
goto T96;} |
437 |
|
V76=MMcdr(V76)=MMcons(Cnil,Cnil); |
438 |
|
goto T97;} |
439 |
|
goto T96; |
440 |
|
T96:; |
441 |
|
V80= list(2,VV[3],base[2]); |
442 |
|
{object V82; |
443 |
|
object V83= base[3]; |
444 |
|
if(endp(V83)){ |
445 |
|
V81= Cnil; |
446 |
|
goto T99;} |
447 |
|
base[5]=V82=MMcons(Cnil,Cnil); |
448 |
|
goto T100; |
449 |
|
T100:; |
450 |
|
(V82->c.c_car)= car((V83->c.c_car)); |
451 |
|
V83=MMcdr(V83); |
452 |
|
if(endp(V83)){ |
453 |
|
V81= base[5]; |
454 |
|
goto T99;} |
455 |
|
V82=MMcdr(V82)=MMcons(Cnil,Cnil); |
456 |
|
goto T100;} |
457 |
|
goto T99; |
458 |
|
T99:; |
459 |
|
V85= list(3,VV[4],VV[36],list(4,VV[35],/* INLINE-ARGS */V80,base[4],list(2,VV[3],V81))); |
460 |
|
V86= make_cons(/* INLINE-ARGS */V85,Cnil); |
461 |
|
V87= listA(3,VV[20],/* INLINE-ARGS */V74,append(V75,/* INLINE-ARGS */V86)); |
462 |
|
V88= (*(LnkLI53))(base[2]); |
463 |
|
base[5]= list(4,VV[27],/* INLINE-ARGS */V87,/* INLINE-ARGS */V88,VV[37]); |
464 |
|
vs_top=(vs_base=base+5)+1; |
465 |
|
return; |
466 |
|
} |
467 |
|
/* local entry for function TYPECASE-ERROR-STRING */ |
468 |
|
|
469 |
|
static object LI9(V92,V93,V94) |
470 |
|
|
471 |
|
object V92;object V93;register object V94; |
472 |
|
{ VMB9 VMS9 VMV9 |
473 |
|
goto TTL; |
474 |
|
TTL:; |
475 |
|
{register object V95; |
476 |
|
register object V96; |
477 |
|
register object V97; |
478 |
|
V95= Cnil; |
479 |
|
V96= Cnil; |
480 |
|
V97= Cnil; |
481 |
|
goto T107; |
482 |
|
T107:; |
483 |
|
if(!(endp_prop((V94)))){ |
484 |
|
goto T108;} |
485 |
|
goto T105; |
486 |
|
goto T108; |
487 |
|
T108:; |
488 |
|
if(!(type_of(car((V94)))==t_symbol)){ |
489 |
|
goto T114;} |
490 |
|
{register object V98; |
491 |
|
V98= make_cons(car((V94)),Cnil); |
492 |
|
V95= make_cons((V98),(V95));} |
493 |
|
{register object V99; |
494 |
|
V99= car((V94)); |
495 |
|
V94= cdr((V94)); |
496 |
|
goto T112;} |
497 |
|
goto T114; |
498 |
|
T114:; |
499 |
|
{object V100= caar((V94)); |
500 |
|
if((V100!= VV[54]))goto T122; |
501 |
|
V94= append(cdar((V94)),cdr((V94))); |
502 |
|
goto T112; |
503 |
|
goto T122; |
504 |
|
T122:; |
505 |
|
if((V100!= VV[25]))goto T124; |
506 |
|
{ |
507 |
|
object V101= cdar((V94)); |
508 |
|
if(endp(V101)){ |
509 |
|
goto T125;} |
510 |
|
goto T126; |
511 |
|
T126:; |
512 |
|
{register object V102; |
513 |
|
V102= (V101->c.c_car); |
514 |
|
{register object V103; |
515 |
|
V103= list(2,VV[25],(V102)); |
516 |
|
V95= make_cons((V103),(V95));}} |
517 |
|
V101=MMcdr(V101); |
518 |
|
if(endp(V101)){ |
519 |
|
(void)(cdar((V94))); |
520 |
|
goto T125;} |
521 |
|
goto T126;} |
522 |
|
goto T125; |
523 |
|
T125:; |
524 |
|
{register object V104; |
525 |
|
V104= car((V94)); |
526 |
|
V94= cdr((V94)); |
527 |
|
goto T112;} |
528 |
|
goto T124; |
529 |
|
T124:; |
530 |
|
if((V100!= VV[55]))goto T133; |
531 |
|
{register object V105; |
532 |
|
V105= cadar((V94)); |
533 |
|
V96= make_cons((V105),(V96));} |
534 |
|
{register object V106; |
535 |
|
V106= car((V94)); |
536 |
|
V94= cdr((V94)); |
537 |
|
goto T112;} |
538 |
|
goto T133; |
539 |
|
T133:; |
540 |
|
{register object V107; |
541 |
|
V107= car((V94)); |
542 |
|
V95= make_cons((V107),(V95));} |
543 |
|
{register object V108; |
544 |
|
V108= car((V94)); |
545 |
|
V94= cdr((V94));}} |
546 |
|
goto T112; |
547 |
|
T112:; |
548 |
|
goto T107; |
549 |
|
goto T105; |
550 |
|
T105:; |
551 |
|
goto T150; |
552 |
|
T150:; |
553 |
|
if(!(endp_prop((V96)))){ |
554 |
|
goto T151;} |
555 |
|
goto T148; |
556 |
|
goto T151; |
557 |
|
T151:; |
558 |
|
if(!(type_of(car((V96)))==t_symbol)){ |
559 |
|
goto T157;} |
560 |
|
{register object V109; |
561 |
|
V109= make_cons(car((V96)),Cnil); |
562 |
|
V97= make_cons((V109),(V97));} |
563 |
|
{register object V110; |
564 |
|
V110= car((V96)); |
565 |
|
V96= cdr((V96)); |
566 |
|
goto T155;} |
567 |
|
goto T157; |
568 |
|
T157:; |
569 |
|
if(!((caar((V96)))==(VV[38]))){ |
570 |
|
goto T166;} |
571 |
|
V96= append(cdar((V96)),cdr((V96))); |
572 |
|
goto T155; |
573 |
|
goto T166; |
574 |
|
T166:; |
575 |
|
{register object V111; |
576 |
|
V111= car((V96)); |
577 |
|
V97= make_cons((V111),(V97));} |
578 |
|
{register object V112; |
579 |
|
V112= car((V96)); |
580 |
|
V96= cdr((V96));} |
581 |
|
goto T155; |
582 |
|
T155:; |
583 |
|
goto T150; |
584 |
|
goto T148; |
585 |
|
T148:; |
586 |
|
base[0]= Cnil; |
587 |
|
base[1]= VV[39]; |
588 |
|
base[2]= (V92); |
589 |
|
base[3]= (V93); |
590 |
|
base[4]= VV[40]; |
591 |
|
{object V113; |
592 |
|
object V114= (V97); |
593 |
|
if(endp(V114)){ |
594 |
|
base[5]= Cnil; |
595 |
|
goto T182;} |
596 |
|
base[6]=V113=MMcons(Cnil,Cnil); |
597 |
|
goto T183; |
598 |
|
T183:; |
599 |
|
(V113->c.c_cdr)= (*(LnkLI56))((V114->c.c_car)); |
600 |
|
{object cdr_V113=MMcdr(V113);while(!endp(cdr_V113)) {cdr_V113=MMcdr(cdr_V113);V113=MMcdr(V113);}} |
601 |
|
V114=MMcdr(V114); |
602 |
|
if(endp(V114)){ |
603 |
|
base[6]=base[6]->c.c_cdr; |
604 |
|
base[5]= base[6]; |
605 |
|
goto T182;} |
606 |
|
goto T183;} |
607 |
|
goto T182; |
608 |
|
T182:; |
609 |
|
base[6]= VV[41]; |
610 |
|
V115 = make_fixnum((long)length((V95))); |
611 |
|
V119= reverse((V95)); |
612 |
|
{object V117; |
613 |
|
object V118= /* INLINE-ARGS */V119; |
614 |
|
if(endp(V118)){ |
615 |
|
V116= Cnil; |
616 |
|
goto T187;} |
617 |
|
base[8]=V117=MMcons(Cnil,Cnil); |
618 |
|
goto T188; |
619 |
|
T188:; |
620 |
|
(V117->c.c_cdr)= (*(LnkLI56))((V118->c.c_car)); |
621 |
|
{object cdr_V117=MMcdr(V117);while(!endp(cdr_V117)) {cdr_V117=MMcdr(cdr_V117);V117=MMcdr(V117);}} |
622 |
|
V118=MMcdr(V118); |
623 |
|
if(endp(V118)){ |
624 |
|
base[8]=base[8]->c.c_cdr; |
625 |
|
V116= base[8]; |
626 |
|
goto T187;} |
627 |
|
goto T188;} |
628 |
|
goto T187; |
629 |
|
T187:; |
630 |
|
base[7]= listA(3,(V97),V115,V116); |
631 |
|
vs_top=(vs_base=base+0)+8; |
632 |
|
Lformat(); |
633 |
|
vs_top=sup; |
634 |
|
{object V120 = vs_base[0]; |
635 |
|
VMR9(V120)}} |
636 |
|
base[0]=base[0]; |
637 |
|
return Cnil; |
638 |
|
} |
639 |
|
/* local entry for function TYPECASE-ERROR-STRINGS */ |
640 |
|
|
641 |
|
static object LI10(V122) |
642 |
|
|
643 |
|
register object V122; |
644 |
|
{ VMB10 VMS10 VMV10 |
645 |
|
goto TTL; |
646 |
|
TTL:; |
647 |
|
if(!((car((V122)))==(VV[25]))){ |
648 |
|
goto T191;}switch((long)length(cdr((V122)))){ |
649 |
|
case 0: |
650 |
|
goto T194; |
651 |
|
T194:; |
652 |
|
{object V123 = VV[42]; |
653 |
|
VMR10(V123)} |
654 |
|
case 1: |
655 |
|
goto T195; |
656 |
|
T195:; |
657 |
|
{object V124 = list(2,VV[43],make_cons(cadr((V122)),Cnil)); |
658 |
|
VMR10(V124)} |
659 |
|
case 2: |
660 |
|
goto T196; |
661 |
|
T196:; |
662 |
|
{object V125 = list(2,VV[44],cdr((V122))); |
663 |
|
VMR10(V125)} |
664 |
|
default: |
665 |
|
goto T197; |
666 |
|
T197:; |
667 |
|
{object V126 = list(2,VV[45],make_cons(cdr((V122)),Cnil)); |
668 |
|
VMR10(V126)} |
669 |
|
{object V127 = Cnil; |
670 |
|
VMR10(V127)}} |
671 |
|
{object V128 = Cnil; |
672 |
|
VMR10(V128)} |
673 |
|
goto T191; |
674 |
|
T191:; |
675 |
|
if(!((car((V122)))==(VV[46]))){ |
676 |
|
goto T200;} |
677 |
|
{object V129 = list(2,VV[47],cdr((V122))); |
678 |
|
VMR10(V129)} |
679 |
|
goto T200; |
680 |
|
T200:; |
681 |
|
if(endp_prop(cdr((V122)))){ |
682 |
|
goto T202;} |
683 |
|
if(((VFUN_NARGS=2,(*(LnkLI57))(VV[48],cdr((V122)))))!=Cnil){ |
684 |
|
goto T203;} |
685 |
|
goto T202; |
686 |
|
T202:; |
687 |
|
{object V130; |
688 |
|
{register object x= car((V122)),V131= VV[49]; |
689 |
|
while(!endp(V131)) |
690 |
|
if(type_of(V131->c.c_car)==t_cons &&eql(x,V131->c.c_car->c.c_car)){ |
691 |
|
V130= (V131->c.c_car); |
692 |
|
goto T207; |
693 |
|
}else V131=V131->c.c_cdr; |
694 |
|
V130= Cnil;} |
695 |
|
goto T207; |
696 |
|
T207:; |
697 |
|
if(((V130))==Cnil){ |
698 |
|
goto T209;} |
699 |
|
{object V132 = list(2,cadr((V130)),Cnil); |
700 |
|
VMR10(V132)} |
701 |
|
goto T209; |
702 |
|
T209:; |
703 |
|
V133= (*(LnkLI58))(car((V122))); |
704 |
|
{object V134 = list(2,VV[50],list(2,/* INLINE-ARGS */V133,car((V122)))); |
705 |
|
VMR10(V134)}} |
706 |
|
goto T203; |
707 |
|
T203:; |
708 |
|
V135= (*(LnkLI58))(car((V122))); |
709 |
|
{object V136 = list(2,VV[51],list(2,/* INLINE-ARGS */V135,(V122))); |
710 |
|
VMR10(V136)} |
711 |
|
return Cnil; |
712 |
|
} |
713 |
|
/* local entry for function BOIN-P */ |
714 |
|
|
715 |
|
static object LI11(V138) |
716 |
|
|
717 |
|
object V138; |
718 |
|
{ VMB11 VMS11 VMV11 |
719 |
|
goto TTL; |
720 |
|
TTL:; |
721 |
|
V140= symbol_name((V138)); |
722 |
|
V141= elt(/* INLINE-ARGS */V140,0); |
723 |
|
{register object x= /* INLINE-ARGS */V141,V139= VV[52]; |
724 |
|
while(!endp(V139)) |
725 |
|
if(eql(x,V139->c.c_car)){ |
726 |
|
{object V142 = V139; |
727 |
|
VMR11(V142)} |
728 |
|
}else V139=V139->c.c_cdr; |
729 |
|
{object V143 = Cnil; |
730 |
|
VMR11(V143)}} |
731 |
|
return Cnil; |
732 |
|
} |
733 |
|
static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,1,first,ap);va_end(ap);return V1;} /* BOIN-P */ |
734 |
|
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[57],(void **)(void *)&LnkLI57,first,ap);va_end(ap);return V1;} /* REMOVE */ |
735 |
|
static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* TYPECASE-ERROR-STRINGS */ |
736 |
|
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* ASK-FOR-FORM */ |
737 |
|
|
738 |
|
#ifdef SYSTEM_SPECIAL_INIT |
739 |
|
SYSTEM_SPECIAL_INIT |
740 |
|
#endif |
741 |
|
|