95 |
T12:; |
T12:; |
96 |
{register object V6; |
{register object V6; |
97 |
register object V7; |
register object V7; |
98 |
|
register object V8; |
99 |
V6= Cnil; |
V6= Cnil; |
100 |
V7= Cnil; |
V7= Cnil; |
101 |
{register object V8; |
V8= Cnil; |
102 |
V8= base[5]; |
{register object V9; |
103 |
goto T22; |
V9= base[5]; |
|
T22:; |
|
|
if(((V8))!=Cnil){ |
|
|
goto T23;} |
|
|
goto T20; |
|
104 |
goto T23; |
goto T23; |
105 |
T23:; |
T23:; |
106 |
{register object V9; |
if(((V9))!=Cnil){ |
107 |
V9= CMPcar((V8)); |
goto T24;} |
108 |
{object V10= CMPcar((V9)); |
goto T21; |
109 |
if((V10!= VV[51]))goto T29; |
goto T24; |
110 |
if(!(type_of(CMPcadr((V9)))==t_string)){ |
T24:; |
111 |
goto T32;} |
{register object V10; |
112 |
V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],CMPcadr((V9)),VV[7])); |
V10= CMPcar((V9)); |
113 |
goto T30; |
{object V11= CMPcar((V10)); |
114 |
goto T32; |
if((V11!= VV[51]))goto T30; |
115 |
T32:; |
if(!(type_of(CMPcadr((V10)))==t_string)){ |
116 |
V6= CMPcadr((V9)); |
goto T33;} |
117 |
|
V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],CMPcadr((V10)),VV[7])); |
118 |
|
goto T31; |
119 |
|
goto T33; |
120 |
|
T33:; |
121 |
|
V6= CMPcadr((V10)); |
122 |
|
goto T31; |
123 |
|
T31:; |
124 |
|
goto T28; |
125 |
goto T30; |
goto T30; |
126 |
T30:; |
T30:; |
127 |
goto T27; |
if((V11!= VV[52]))goto T35; |
128 |
goto T29; |
V7= (V10); |
129 |
T29:; |
goto T28; |
130 |
if((V10!= VV[52]))goto T34; |
goto T35; |
131 |
V7= CMPcadr((V9)); |
T35:; |
132 |
goto T27; |
if((V11!= VV[53]))goto T37; |
133 |
goto T34; |
V8= CMPcadr((V10)); |
134 |
T34:; |
goto T28; |
135 |
(void)((VFUN_NARGS=3,(*(LnkLI53))(VV[8],VV[9],(V9))));}} |
goto T37; |
136 |
goto T27; |
T37:; |
137 |
T27:; |
(void)((VFUN_NARGS=3,(*(LnkLI54))(VV[8],VV[9],(V10))));}} |
138 |
V8= CMPcdr((V8)); |
goto T28; |
139 |
goto T22;} |
T28:; |
140 |
goto T20; |
V9= CMPcdr((V9)); |
141 |
T20:; |
goto T23;} |
142 |
V11= list(4,VV[12],base[2],base[3],base[4]); |
goto T21; |
143 |
{object V13; |
T21:; |
144 |
object V14= base[4]; |
if(((V7))==Cnil){ |
145 |
if(V14==Cnil){ |
goto T44;} |
146 |
V12= Cnil; |
V12= list(5,VV[12],base[2],base[3],base[4],(V7)); |
147 |
goto T39;} |
goto T42; |
148 |
base[6]=V13=MMcons(Cnil,Cnil); |
goto T44; |
149 |
goto T40; |
T44:; |
150 |
T40:; |
V12= list(4,VV[12],base[2],base[3],base[4]); |
151 |
{object V16; |
goto T42; |
152 |
base[8]= CMPcdr((V14->c.c_car)); |
T42:; |
153 |
|
{object V14; |
154 |
|
object V15= base[4]; |
155 |
|
if(V15==Cnil){ |
156 |
|
V13= Cnil; |
157 |
|
goto T46;} |
158 |
|
base[6]=V14=MMcons(Cnil,Cnil); |
159 |
|
goto T47; |
160 |
|
T47:; |
161 |
|
{object V17; |
162 |
|
base[8]= CMPcdr((V15->c.c_car)); |
163 |
base[9]= VV[17]; |
base[9]= VV[17]; |
164 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
165 |
Lgetf(); |
Lgetf(); |
166 |
vs_top=sup; |
vs_top=sup; |
167 |
V16= vs_base[0]; |
V17= vs_base[0]; |
168 |
if(((V16))==Cnil){ |
if(((V17))==Cnil){ |
169 |
goto T46;}{object V18; |
goto T53;}{object V19; |
170 |
base[8]= CMPcdr((V14->c.c_car)); |
base[8]= CMPcdr((V15->c.c_car)); |
171 |
base[9]= VV[18]; |
base[9]= VV[18]; |
172 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
173 |
Lgetf(); |
Lgetf(); |
174 |
vs_top=sup; |
vs_top=sup; |
175 |
V18= vs_base[0]; |
V19= vs_base[0]; |
176 |
if(V18==Cnil)goto T49; |
if(V19==Cnil)goto T56; |
177 |
V17= V18; |
V18= V19; |
178 |
|
goto T55; |
179 |
|
goto T56; |
180 |
|
T56:;} |
181 |
|
V18= Ct; |
182 |
|
goto T55; |
183 |
|
T55:; |
184 |
|
V20= make_cons((V17),V18); |
185 |
|
(V14->c.c_cdr)= make_cons(/* INLINE-ARGS */V20,Cnil); |
186 |
goto T48; |
goto T48; |
187 |
goto T49; |
goto T53; |
188 |
T49:;} |
T53:; |
189 |
V17= Ct; |
(V14->c.c_cdr)= Cnil;} |
190 |
goto T48; |
goto T48; |
191 |
T48:; |
T48:; |
192 |
V19= make_cons((V16),V17); |
while(MMcdr(V14)!=Cnil)V14=MMcdr(V14); |
193 |
(V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil); |
if((V15=MMcdr(V15))==Cnil){ |
194 |
goto T41; |
base[6]=base[6]->c.c_cdr; |
195 |
|
V13= base[6]; |
196 |
|
goto T46;} |
197 |
|
goto T47;} |
198 |
goto T46; |
goto T46; |
199 |
T46:; |
T46:; |
200 |
(V13->c.c_cdr)= Cnil;} |
V21= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V13)),VV[1]); |
201 |
goto T41; |
V22= list(4,VV[13],VV[14],/* INLINE-ARGS */V21,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil)); |
|
T41:; |
|
|
while(MMcdr(V13)!=Cnil)V13=MMcdr(V13); |
|
|
if((V14=MMcdr(V14))==Cnil){ |
|
|
base[6]=base[6]->c.c_cdr; |
|
|
V12= base[6]; |
|
|
goto T39;} |
|
|
goto T40;} |
|
|
goto T39; |
|
|
T39:; |
|
|
V20= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V12)),VV[1]); |
|
|
V21= list(4,VV[13],VV[14],/* INLINE-ARGS */V20,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil)); |
|
202 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
203 |
goto T55;} |
goto T62;} |
204 |
V23= list(2,list(2,VV[24],base[2]),VV[7]); |
V24= list(2,list(2,VV[24],base[2]),VV[7]); |
205 |
V24= list(4,VV[22],VV[23],/* INLINE-ARGS */V23,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28]))); |
V25= list(4,VV[22],VV[23],/* INLINE-ARGS */V24,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28]))); |
206 |
V22= make_cons(/* INLINE-ARGS */V24,Cnil); |
V23= make_cons(/* INLINE-ARGS */V25,Cnil); |
207 |
goto T53; |
goto T60; |
208 |
goto T55; |
goto T62; |
209 |
T55:; |
T62:; |
210 |
V22= Cnil; |
V23= Cnil; |
211 |
goto T53; |
goto T60; |
212 |
T53:; |
T60:; |
213 |
V25= list(2,VV[16],base[2]); |
V26= list(2,VV[16],base[2]); |
214 |
V26= make_cons(/* INLINE-ARGS */V25,Cnil); |
V27= make_cons(/* INLINE-ARGS */V26,Cnil); |
215 |
base[6]= listA(5,VV[10],VV[11],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26)); |
base[6]= listA(5,VV[10],VV[11],V12,/* INLINE-ARGS */V22,append(V23,/* INLINE-ARGS */V27)); |
216 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
217 |
return;} |
return;} |
218 |
} |
} |
231 |
base[3]= Cnil; |
base[3]= Cnil; |
232 |
base[4]= Cnil; |
base[4]= Cnil; |
233 |
base[5]= Cnil; |
base[5]= Cnil; |
234 |
symlispcall(VV[54],base+0,6); |
symlispcall(VV[55],base+0,6); |
235 |
return; |
return; |
236 |
} |
} |
237 |
/* local entry for function progn 'compile2320 */ |
/* local entry for function progn 'compile2320 */ |
242 |
goto TTL; |
goto TTL; |
243 |
TTL:; |
TTL:; |
244 |
vs_base=vs_top; |
vs_base=vs_top; |
245 |
(void) (*Lnk55)(); |
(void) (*Lnk56)(); |
246 |
vs_top=sup; |
vs_top=sup; |
247 |
{object V27 = Cnil; |
{object V28 = Cnil; |
248 |
VMR7(V27)} |
VMR7(V28)} |
249 |
base[0]=base[0]; |
base[0]=base[0]; |
250 |
return Cnil; |
return Cnil; |
251 |
} |
} |
262 |
Ladjoin(); |
Ladjoin(); |
263 |
vs_top=sup; |
vs_top=sup; |
264 |
(VV[1]->s.s_dbind)= vs_base[0]; |
(VV[1]->s.s_dbind)= vs_base[0]; |
265 |
{object V29 = Cnil; |
{object V30 = Cnil; |
266 |
VMR8(V29)} |
VMR8(V30)} |
267 |
base[0]=base[0]; |
base[0]=base[0]; |
268 |
return Cnil; |
return Cnil; |
269 |
} |
} |
275 |
goto TTL; |
goto TTL; |
276 |
TTL:; |
TTL:; |
277 |
(void)(sputprop(VV[2],VV[31],Cnil)); |
(void)(sputprop(VV[2],VV[31],Cnil)); |
278 |
{object V30 = Cnil; |
{object V31 = Cnil; |
279 |
VMR9(V30)} |
VMR9(V31)} |
280 |
return Cnil; |
return Cnil; |
281 |
} |
} |
282 |
/* local entry for function progn 'compile2373 */ |
/* local entry for function progn 'compile2373 */ |
286 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
287 |
goto TTL; |
goto TTL; |
288 |
TTL:; |
TTL:; |
289 |
{object V31 = Cnil; |
{object V32 = Cnil; |
290 |
VMR10(V31)} |
VMR10(V32)} |
291 |
return Cnil; |
return Cnil; |
292 |
} |
} |
293 |
/* local entry for function progn 'compile2389 */ |
/* local entry for function progn 'compile2389 */ |
302 |
Lfboundp(); |
Lfboundp(); |
303 |
vs_top=sup; |
vs_top=sup; |
304 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
305 |
goto T70;} |
goto T77;} |
306 |
base[0]=VV[32]->s.s_gfdef; |
base[0]=VV[32]->s.s_gfdef; |
307 |
{ |
{ |
308 |
object V32= VV[33]; |
object V33= VV[33]; |
309 |
if(V32==Cnil){ |
if(V33==Cnil){ |
310 |
goto T70;} |
goto T77;} |
311 |
goto T74; |
goto T81; |
312 |
T74:; |
T81:; |
313 |
base[1]= (V32->c.c_car); |
base[1]= (V33->c.c_car); |
314 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
315 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
316 |
vs_top=sup; |
vs_top=sup; |
317 |
if((V32=MMcdr(V32))==Cnil){ |
if((V33=MMcdr(V33))==Cnil){ |
318 |
goto T70;} |
goto T77;} |
319 |
goto T74;} |
goto T81;} |
320 |
goto T70; |
goto T77; |
321 |
T70:; |
T77:; |
322 |
{object V33 = Cnil; |
{object V34 = Cnil; |
323 |
VMR11(V33)} |
VMR11(V34)} |
324 |
base[0]=base[0]; |
base[0]=base[0]; |
325 |
return Cnil; |
return Cnil; |
326 |
} |
} |
327 |
/* local entry for function CONDITIONP */ |
/* local entry for function CONDITIONP */ |
328 |
|
|
329 |
static object LI12(V35) |
static object LI12(V36) |
330 |
|
|
331 |
object V35; |
object V36; |
332 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
333 |
goto TTL; |
goto TTL; |
334 |
TTL:; |
TTL:; |
335 |
base[0]= (V35); |
base[0]= (V36); |
336 |
base[1]= VV[2]; |
base[1]= VV[2]; |
337 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
338 |
(void) (*Lnk56)(); |
(void) (*Lnk57)(); |
339 |
vs_top=sup; |
vs_top=sup; |
340 |
{object V36 = vs_base[0]; |
{object V37 = vs_base[0]; |
341 |
VMR12(V36)} |
VMR12(V37)} |
342 |
base[0]=base[0]; |
base[0]=base[0]; |
343 |
return Cnil; |
return Cnil; |
344 |
} |
} |
352 |
base[0]= VV[23]; |
base[0]= VV[23]; |
353 |
base[1]= VV[34]; |
base[1]= VV[34]; |
354 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
355 |
(void) (*Lnk57)(); |
(void) (*Lnk58)(); |
356 |
vs_top=sup; |
vs_top=sup; |
357 |
{object V37 = Cnil; |
{object V38 = Cnil; |
358 |
VMR13(V37)} |
VMR13(V38)} |
359 |
base[0]=base[0]; |
base[0]=base[0]; |
360 |
return Cnil; |
return Cnil; |
361 |
} |
} |
362 |
/* local entry for function (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T)) */ |
/* local entry for function (PCL::FAST-METHOD PRINT-OBJECT (CONDITION T)) */ |
363 |
|
|
364 |
static object LI14(V42,V43,V44,V45) |
static object LI14(V43,V44,V45,V46) |
365 |
|
|
366 |
object V42;object V43;register object V44;object V45; |
object V43;object V44;register object V45;object V46; |
367 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
368 |
goto TTL; |
goto TTL; |
369 |
TTL:; |
TTL:; |
370 |
if(((VV[26]->s.s_dbind))==Cnil){ |
if(((VV[26]->s.s_dbind))==Cnil){ |
371 |
goto T86;} |
goto T93;} |
372 |
base[0]= (V45); |
base[0]= (V46); |
373 |
base[1]= VV[35]; |
base[1]= VV[35]; |
374 |
base[4]= (V44); |
base[4]= (V45); |
375 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
376 |
(void) (*Lnk58)(); |
(void) (*Lnk59)(); |
377 |
vs_top=sup; |
vs_top=sup; |
378 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
379 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
380 |
(void) (*Lnk59)(Lclptr59); |
(void) (*Lnk60)(Lclptr60); |
381 |
vs_top=sup; |
vs_top=sup; |
382 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
383 |
base[3]= (*(LnkLI60))((V44)); |
base[3]= (*(LnkLI61))((V45)); |
384 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
385 |
Lformat(); |
Lformat(); |
386 |
vs_top=sup; |
vs_top=sup; |
387 |
{object V47 = vs_base[0]; |
{object V48 = vs_base[0]; |
388 |
VMR14(V47)} |
VMR14(V48)} |
389 |
goto T86; |
goto T93; |
390 |
T86:; |
T93:; |
391 |
base[0]= (V45); |
base[0]= (V46); |
392 |
base[1]= VV[36]; |
base[1]= VV[36]; |
393 |
base[3]= (V44); |
base[3]= (V45); |
394 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
395 |
Ltype_of(); |
Ltype_of(); |
396 |
vs_top=sup; |
vs_top=sup; |
398 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
399 |
Lformat(); |
Lformat(); |
400 |
vs_top=sup; |
vs_top=sup; |
401 |
{object V48 = vs_base[0]; |
{object V49 = vs_base[0]; |
402 |
VMR14(V48)} |
VMR14(V49)} |
403 |
base[0]=base[0]; |
base[0]=base[0]; |
404 |
return Cnil; |
return Cnil; |
405 |
} |
} |
415 |
base[2]= Cnil; |
base[2]= Cnil; |
416 |
base[3]= VV[38]; |
base[3]= VV[38]; |
417 |
base[4]= VV[39]; |
base[4]= VV[39]; |
418 |
V49= (VV[61]->s.s_gfdef); |
V50= (VV[62]->s.s_gfdef); |
419 |
base[5]= listA(3,VV[40],V49,VV[41]); |
base[5]= listA(3,VV[40],V50,VV[41]); |
420 |
base[6]= Cnil; |
base[6]= Cnil; |
421 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
422 |
(void) (*Lnk62)(); |
(void) (*Lnk63)(); |
423 |
vs_top=sup; |
vs_top=sup; |
424 |
{object V50 = Cnil; |
{object V51 = Cnil; |
425 |
VMR15(V50)} |
VMR15(V51)} |
426 |
base[0]=base[0]; |
base[0]=base[0]; |
427 |
return Cnil; |
return Cnil; |
428 |
} |
} |
437 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
438 |
(void) (*Lnk50)(); |
(void) (*Lnk50)(); |
439 |
vs_top=sup; |
vs_top=sup; |
440 |
{object V51 = Cnil; |
{object V52 = Cnil; |
441 |
VMR16(V51)} |
VMR16(V52)} |
442 |
base[0]=base[0]; |
base[0]=base[0]; |
443 |
return Cnil; |
return Cnil; |
444 |
} |
} |
450 |
goto TTL; |
goto TTL; |
451 |
TTL:; |
TTL:; |
452 |
if(!((VV[42])->s.s_dbind!=OBJNULL)){ |
if(!((VV[42])->s.s_dbind!=OBJNULL)){ |
453 |
goto T110;} |
goto T117;} |
454 |
goto T109; |
goto T116; |
455 |
goto T110; |
goto T117; |
456 |
T110:; |
T117:; |
457 |
base[0]= VV[2]; |
base[0]= VV[2]; |
458 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
459 |
(void) (*Lnk63)(); |
(void) (*Lnk64)(); |
460 |
vs_top=sup; |
vs_top=sup; |
461 |
(VV[42]->s.s_dbind)= vs_base[0]; |
(VV[42]->s.s_dbind)= vs_base[0]; |
462 |
goto T109; |
goto T116; |
463 |
T109:; |
T116:; |
464 |
{object V52 = Cnil; |
{object V53 = Cnil; |
465 |
VMR17(V52)} |
VMR17(V53)} |
466 |
base[0]=base[0]; |
base[0]=base[0]; |
467 |
return Cnil; |
return Cnil; |
468 |
} |
} |
473 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
474 |
goto TTL; |
goto TTL; |
475 |
TTL:; |
TTL:; |
476 |
{object V53 = Cnil; |
{object V54 = Cnil; |
477 |
VMR18(V53)} |
VMR18(V54)} |
478 |
return Cnil; |
return Cnil; |
479 |
} |
} |
480 |
/* local entry for function CONDITION-CLASS-P */ |
/* local entry for function CONDITION-CLASS-P */ |
481 |
|
|
482 |
static object LI19(V55) |
static object LI19(V56) |
483 |
|
|
484 |
register object V55; |
register object V56; |
485 |
{ VMB19 VMS19 VMV19 |
{ VMB19 VMS19 VMV19 |
486 |
goto TTL; |
goto TTL; |
487 |
TTL:; |
TTL:; |
488 |
if(!(type_of((V55))==t_symbol)){ |
if(!(type_of((V56))==t_symbol)){ |
489 |
goto T115;} |
goto T122;} |
490 |
base[0]= (V55); |
base[0]= (V56); |
491 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
492 |
(void) (*Lnk63)(); |
(void) (*Lnk64)(); |
493 |
vs_top=sup; |
vs_top=sup; |
494 |
V55= vs_base[0]; |
V56= vs_base[0]; |
495 |
goto T115; |
goto T122; |
496 |
T115:; |
T122:; |
497 |
base[0]= (V55); |
base[0]= (V56); |
498 |
base[1]= VV[29]; |
base[1]= VV[29]; |
499 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
500 |
(void) (*Lnk56)(); |
(void) (*Lnk57)(); |
501 |
vs_top=sup; |
vs_top=sup; |
502 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
503 |
goto T120;} |
goto T127;} |
504 |
{object V56 = Cnil; |
{object V57 = Cnil; |
505 |
VMR19(V56)} |
VMR19(V57)} |
506 |
goto T120; |
goto T127; |
507 |
T120:;{object V58; |
T127:;{object V59; |
508 |
V58= (VV[42]->s.s_dbind); |
V59= (VV[42]->s.s_dbind); |
509 |
base[0]= (V55); |
base[0]= (V56); |
510 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
511 |
(void) (*Lnk64)(Lclptr64); |
(void) (*Lnk65)(Lclptr65); |
512 |
vs_top=sup; |
vs_top=sup; |
513 |
V59= vs_base[0]; |
V60= vs_base[0]; |
514 |
{register object x= V58,V57= V59; |
{register object x= V59,V58= V60; |
515 |
while(V57!=Cnil) |
while(V58!=Cnil) |
516 |
if(eql(x,V57->c.c_car)){ |
if(eql(x,V58->c.c_car)){ |
517 |
{object V60 = V57; |
{object V61 = V58; |
518 |
VMR19(V60)} |
VMR19(V61)} |
519 |
}else V57=V57->c.c_cdr; |
}else V58=V58->c.c_cdr; |
520 |
{object V61 = Cnil; |
{object V62 = Cnil; |
521 |
VMR19(V61)}}} |
VMR19(V62)}}} |
522 |
base[0]=base[0]; |
base[0]=base[0]; |
523 |
return Cnil; |
return Cnil; |
524 |
} |
} |
528 |
{register object *base=vs_base; |
{register object *base=vs_base; |
529 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
530 |
vs_check; |
vs_check; |
531 |
{register object V62; |
{register object V63; |
532 |
object V63; |
object V64; |
533 |
V62=(base[0]); |
V63=(base[0]); |
534 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
535 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
536 |
{object *p=vs_top; |
{object *p=vs_top; |
537 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
538 |
V63=(base[1]); |
V64=(base[1]); |
539 |
vs_top=sup; |
vs_top=sup; |
540 |
if(((*(LnkLI65))((V62)))!=Cnil){ |
if(((*(LnkLI66))((V63)))!=Cnil){ |
541 |
goto T126;} |
goto T133;} |
542 |
base[2]= VV[43]; |
base[2]= VV[43]; |
543 |
base[3]= VV[44]; |
base[3]= VV[44]; |
544 |
base[4]= (V62); |
base[4]= (V63); |
545 |
base[5]= VV[45]; |
base[5]= VV[45]; |
546 |
base[6]= VV[46]; |
base[6]= VV[46]; |
547 |
base[7]= VV[47]; |
base[7]= VV[47]; |
548 |
base[8]= VV[48]; |
base[8]= VV[48]; |
549 |
base[9]= VV[49]; |
base[9]= VV[49]; |
550 |
base[10]= make_cons((V62),Cnil); |
base[10]= make_cons((V63),Cnil); |
551 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
552 |
(void) (*Lnk66)(); |
(void) (*Lnk67)(); |
553 |
vs_top=sup; |
vs_top=sup; |
554 |
goto T126; |
goto T133; |
555 |
T126:; |
T133:; |
556 |
base[2]=VV[67]->s.s_gfdef; |
base[2]=VV[68]->s.s_gfdef; |
557 |
base[3]= (V62); |
base[3]= (V63); |
558 |
{object V64; |
{object V65; |
559 |
V64= (V63); |
V65= (V64); |
560 |
vs_top=base+4; |
vs_top=base+4; |
561 |
while(V64!=Cnil) |
while(V65!=Cnil) |
562 |
{vs_push((V64)->c.c_car);V64=(V64)->c.c_cdr;} |
{vs_push((V65)->c.c_car);V65=(V65)->c.c_cdr;} |
563 |
vs_base=base+3;} |
vs_base=base+3;} |
564 |
(void) (*Lnk67)(Lclptr67); |
(void) (*Lnk68)(Lclptr68); |
565 |
return; |
return; |
566 |
} |
} |
567 |
} |
} |
568 |
static void LnkT67(ptr) object *ptr;{ call_or_link_closure(VV[67],(void **)(void *)&Lnk67,(void **)(void *)&Lclptr67);} /* MAKE-INSTANCE */ |
static void LnkT68(ptr) object *ptr;{ call_or_link_closure(VV[68],(void **)(void *)&Lnk68,(void **)(void *)&Lclptr68);} /* MAKE-INSTANCE */ |
569 |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* ERROR */ |
static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* ERROR */ |
570 |
static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* CONDITION-CLASS-P */ |
static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,1,first,ap);va_end(ap);return V1;} /* CONDITION-CLASS-P */ |
571 |
static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)(void *)&Lnk64,(void **)(void *)&Lclptr64);} /* CLASS-PRECEDENCE-LIST */ |
static void LnkT65(ptr) object *ptr;{ call_or_link_closure(VV[65],(void **)(void *)&Lnk65,(void **)(void *)&Lclptr65);} /* CLASS-PRECEDENCE-LIST */ |
572 |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* FIND-CLASS */ |
static void LnkT64(){ call_or_link(VV[64],(void **)(void *)&Lnk64);} /* FIND-CLASS */ |
573 |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* LOAD-DEFMETHOD */ |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* LOAD-DEFMETHOD */ |
574 |
static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */ |
static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* UNIQUE-ID */ |
575 |
static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* CLASS-NAME */ |
static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* CLASS-NAME */ |
576 |
static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* CLASS-OF */ |
static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* CLASS-OF */ |
577 |
static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* PROCLAIM-DEFGENERIC */ |
static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* PROCLAIM-DEFGENERIC */ |
578 |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* TYPEP */ |
static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* TYPEP */ |
579 |
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
580 |
static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* Defclass CONDITION2304 */ |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* Defclass CONDITION2304 */ |
581 |
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CERROR */ |
static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[54],(void **)(void *)&LnkLI54,first,ap);va_end(ap);return V1;} /* CERROR */ |
582 |
static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* *MAKE-SPECIAL */ |
static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* *MAKE-SPECIAL */ |
583 |
static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */ |
static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */ |
584 |
|
|