17 |
{object V2= CMPcaddr(base[0]); |
{object V2= CMPcaddr(base[0]); |
18 |
if(!(type_of(V2)==t_cons||(V2)==Cnil)){ |
if(!(type_of(V2)==t_cons||(V2)==Cnil)){ |
19 |
goto T2;}} |
goto T2;}} |
20 |
base[3]= (*(LnkLI116))(base[0]); |
base[3]= (*(LnkLI123))(base[0]); |
21 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
22 |
return; |
return; |
23 |
goto T2; |
goto T2; |
24 |
T2:; |
T2:; |
25 |
base[3]= (*(LnkLI117))(base[0]); |
base[3]= (*(LnkLI124))(base[0]); |
26 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
27 |
return; |
return; |
28 |
} |
} |
29 |
|
/* function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD :AROUND (GENERIC-FUNCTION METHOD-COMBINATION T)) */ |
30 |
|
|
31 |
|
static void L2() |
32 |
|
{register object *base=vs_base; |
33 |
|
register object *sup=base+VM2; VC2 |
34 |
|
vs_check; |
35 |
|
bds_check; |
36 |
|
{object V3; |
37 |
|
register object V4; |
38 |
|
register object V5; |
39 |
|
register object V6; |
40 |
|
object V7; |
41 |
|
check_arg(5); |
42 |
|
V3=(base[0]); |
43 |
|
V4=(base[1]); |
44 |
|
V5=(base[2]); |
45 |
|
V6=(base[3]); |
46 |
|
V7=(base[4]); |
47 |
|
vs_top=sup; |
48 |
|
goto TTL; |
49 |
|
TTL:; |
50 |
|
base[5]=make_cclosure_new(LC3,Cnil,Cnil,Cdata); |
51 |
|
base[5]=MMcons(base[5],Cnil); |
52 |
|
base[6]=make_cclosure_new(LC4,Cnil,base[5],Cdata); |
53 |
|
base[6]=MMcons(base[6],base[5]); |
54 |
|
base[7]= (base[5]->c.c_car); |
55 |
|
base[8]= (base[6]->c.c_car); |
56 |
|
bds_bind(VV[0],base[7]); |
57 |
|
bds_bind(VV[1],base[8]); |
58 |
|
if(((V4))==Cnil){ |
59 |
|
goto T13;} |
60 |
|
base[9]= (V4); |
61 |
|
base[10]= VV[2]; |
62 |
|
vs_top=(vs_base=base+9)+2; |
63 |
|
(void) (*Lnk125)(); |
64 |
|
vs_top=sup; |
65 |
|
if((vs_base[0])==Cnil){ |
66 |
|
goto T17;} |
67 |
|
base[9]= STREF(object,(V4),0); |
68 |
|
base[10]= STREF(object,(V4),4); |
69 |
|
base[11]= STREF(object,(V4),8); |
70 |
|
base[12]= (V5); |
71 |
|
base[13]= (V6); |
72 |
|
base[14]= (V7); |
73 |
|
vs_top=(vs_base=base+10)+5; |
74 |
|
{object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
75 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
76 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
77 |
|
else super_funcall_no_event(_funobj);} |
78 |
|
bds_unwind1; |
79 |
|
bds_unwind1; |
80 |
|
return; |
81 |
|
goto T17; |
82 |
|
T17:; |
83 |
|
{register object V9; |
84 |
|
V9= (V4); |
85 |
|
base[9]= (V9); |
86 |
|
base[10]= VV[3]; |
87 |
|
vs_top=(vs_base=base+9)+2; |
88 |
|
(void) (*Lnk125)(); |
89 |
|
vs_top=sup; |
90 |
|
if((vs_base[0])==Cnil){ |
91 |
|
goto T28;} |
92 |
|
{object V10; |
93 |
|
object V11; |
94 |
|
register object V12; |
95 |
|
V10= STREF(object,(V4),0); |
96 |
|
V11= list(3,(V5),(V6),(V7)); |
97 |
|
V12= STREF(object,(V4),4); |
98 |
|
if(((V12))==Cnil){ |
99 |
|
goto T36;} |
100 |
|
if((CMPcdr((V12)))!=Cnil){ |
101 |
|
goto T36;} |
102 |
|
base[9]= (V11); |
103 |
|
base[10]= CMPcar((V12)); |
104 |
|
vs_top=(vs_base=base+9)+2; |
105 |
|
{object _funobj = (V10);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
106 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
107 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
108 |
|
else super_funcall_no_event(_funobj);} |
109 |
|
bds_unwind1; |
110 |
|
bds_unwind1; |
111 |
|
return; |
112 |
|
goto T36; |
113 |
|
T36:; |
114 |
|
base[9]= (V10); |
115 |
|
base[10]= (V11); |
116 |
|
{object V13; |
117 |
|
V13= (V12); |
118 |
|
vs_top=base+11; |
119 |
|
while(V13!=Cnil) |
120 |
|
{vs_push((V13)->c.c_car);V13=(V13)->c.c_cdr;} |
121 |
|
vs_base=base+10;} |
122 |
|
{object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
123 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
124 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
125 |
|
else super_funcall_no_event(_funobj);} |
126 |
|
bds_unwind1; |
127 |
|
bds_unwind1; |
128 |
|
return;} |
129 |
|
goto T28; |
130 |
|
T28:; |
131 |
|
base[9]= (V9); |
132 |
|
vs_top=(vs_base=base+9)+1; |
133 |
|
Lfunctionp(); |
134 |
|
vs_top=sup; |
135 |
|
if((vs_base[0])==Cnil){ |
136 |
|
goto T46;} |
137 |
|
base[9]= (V5); |
138 |
|
base[10]= (V6); |
139 |
|
base[11]= (V7); |
140 |
|
vs_top=(vs_base=base+9)+3; |
141 |
|
{object _funobj = (V4);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
142 |
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
143 |
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
144 |
|
else super_funcall_no_event(_funobj);} |
145 |
|
bds_unwind1; |
146 |
|
bds_unwind1; |
147 |
|
return; |
148 |
|
goto T46; |
149 |
|
T46:; |
150 |
|
base[10]= VV[4]; |
151 |
|
base[11]= (V9); |
152 |
|
base[12]= VV[5]; |
153 |
|
vs_top=(vs_base=base+10)+3; |
154 |
|
(void) (*Lnk126)(); |
155 |
|
vs_top=sup; |
156 |
|
base[9]= vs_base[0]; |
157 |
|
vs_top=(vs_base=base+9)+1; |
158 |
|
Lerror(); |
159 |
|
bds_unwind1; |
160 |
|
bds_unwind1; |
161 |
|
return;} |
162 |
|
goto T13; |
163 |
|
T13:; |
164 |
|
base[9]= VV[6]; |
165 |
|
vs_top=(vs_base=base+9)+1; |
166 |
|
Lerror(); |
167 |
|
bds_unwind1; |
168 |
|
bds_unwind1; |
169 |
|
return; |
170 |
|
} |
171 |
|
} |
172 |
/* local entry for function (FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T)) */ |
/* local entry for function (FAST-METHOD FIND-METHOD-COMBINATION (GENERIC-FUNCTION (EQL STANDARD) T)) */ |
173 |
|
|
174 |
static object LI2(V8,V9,V10,V11,V12) |
static object LI5(V19,V20,V21,V22,V23) |
175 |
|
|
176 |
object V8;object V9;object V10;object V11;object V12; |
object V19;object V20;object V21;object V22;object V23; |
177 |
{ VMB2 VMS2 VMV2 |
{ VMB3 VMS3 VMV3 |
178 |
goto TTL; |
goto TTL; |
179 |
TTL:; |
TTL:; |
180 |
if(((V12))==Cnil){ |
if(((V23))==Cnil){ |
181 |
goto T10;} |
goto T61;} |
182 |
base[0]= VV[0]; |
base[0]= VV[7]; |
183 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
184 |
(void) (*Lnk118)(); |
(void) (*Lnk127)(); |
185 |
vs_top=sup; |
vs_top=sup; |
186 |
goto T10; |
goto T61; |
187 |
T10:; |
T61:; |
188 |
{object V14 = (VV[1]->s.s_dbind); |
{object V25 = (VV[8]->s.s_dbind); |
189 |
VMR2(V14)} |
VMR3(V25)} |
190 |
base[0]=base[0]; |
base[0]=base[0]; |
191 |
return Cnil; |
return Cnil; |
192 |
} |
} |
193 |
/* function definition for Defclass SHORT-METHOD-COMBINATION8895 */ |
/* function definition for Defclass SHORT-METHOD-COMBINATION8916 */ |
194 |
|
|
195 |
static void L3() |
static void L6() |
196 |
{register object *base=vs_base; |
{register object *base=vs_base; |
197 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM4; VC4 |
198 |
vs_check; |
vs_check; |
199 |
check_arg(0); |
check_arg(0); |
200 |
vs_top=sup; |
vs_top=sup; |
201 |
goto TTL; |
goto TTL; |
202 |
TTL:; |
TTL:; |
203 |
base[0]= VV[2]; |
base[0]= VV[9]; |
204 |
base[1]= VV[3]; |
base[1]= VV[10]; |
205 |
base[2]= VV[4]; |
base[2]= VV[11]; |
206 |
V15= listA(9,VV[5],VV[6],VV[7],VV[8],VV[9],Cnil,VV[10],VV[11],Cnil); |
V26= listA(9,VV[12],VV[13],VV[14],VV[15],VV[16],Cnil,VV[17],VV[18],Cnil); |
207 |
base[3]= list(2,/* INLINE-ARGS */V15,listA(9,VV[5],VV[12],VV[7],VV[13],VV[9],Cnil,VV[10],VV[14],Cnil)); |
base[3]= list(2,/* INLINE-ARGS */V26,listA(9,VV[12],VV[19],VV[14],VV[20],VV[16],Cnil,VV[17],VV[21],Cnil)); |
208 |
base[4]= list(2,VV[15],VV[16]); |
base[4]= list(2,VV[22],VV[23]); |
209 |
base[5]= Cnil; |
base[5]= Cnil; |
210 |
symlispcall(VV[119],base+0,6); |
symlispcall(VV[128],base+0,6); |
211 |
return; |
return; |
212 |
} |
} |
213 |
/* local entry for function EXPAND-SHORT-DEFCOMBIN */ |
/* local entry for function EXPAND-SHORT-DEFCOMBIN */ |
214 |
|
|
215 |
static object LI4(V17) |
static object LI7(V28) |
216 |
|
|
217 |
register object V17; |
register object V28; |
218 |
{ VMB4 VMS4 VMV4 |
{ VMB5 VMS5 VMV5 |
219 |
goto TTL; |
goto TTL; |
220 |
TTL:; |
TTL:; |
221 |
{object V18; |
{object V29; |
222 |
object V19; |
object V30; |
223 |
object V20; |
object V31; |
224 |
object V21; |
object V32; |
225 |
V18= CMPcadr((V17)); |
V29= CMPcadr((V28)); |
226 |
base[4]= CMPcddr((V17)); |
base[4]= CMPcddr((V28)); |
227 |
base[5]= VV[17]; |
base[5]= VV[24]; |
228 |
base[6]= VV[18]; |
base[6]= VV[25]; |
229 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
230 |
Lgetf(); |
Lgetf(); |
231 |
vs_top=sup; |
vs_top=sup; |
232 |
V19= vs_base[0]; |
V30= vs_base[0]; |
233 |
base[4]= CMPcddr((V17)); |
base[4]= CMPcddr((V28)); |
234 |
base[5]= VV[19]; |
base[5]= VV[26]; |
235 |
base[6]= Cnil; |
base[6]= Cnil; |
236 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
237 |
Lgetf(); |
Lgetf(); |
238 |
vs_top=sup; |
vs_top=sup; |
239 |
V20= vs_base[0]; |
V31= vs_base[0]; |
240 |
base[4]= CMPcddr((V17)); |
base[4]= CMPcddr((V28)); |
241 |
base[5]= VV[20]; |
base[5]= VV[27]; |
242 |
base[6]= (V18); |
base[6]= (V29); |
243 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
244 |
Lgetf(); |
Lgetf(); |
245 |
vs_top=sup; |
vs_top=sup; |
246 |
V21= vs_base[0]; |
V32= vs_base[0]; |
247 |
V22= list(2,VV[21],(V18)); |
V33= list(2,VV[28],(V29)); |
248 |
V23= list(2,VV[24],(V18)); |
V34= list(2,VV[31],(V29)); |
249 |
V24= list(2,VV[24],(V21)); |
V35= list(2,VV[31],(V32)); |
250 |
V25= list(2,VV[24],(V20)); |
V36= list(2,VV[31],(V31)); |
251 |
V26= list(5,VV[23],/* INLINE-ARGS */V23,/* INLINE-ARGS */V24,/* INLINE-ARGS */V25,list(2,VV[24],(V19))); |
V37= list(5,VV[30],/* INLINE-ARGS */V34,/* INLINE-ARGS */V35,/* INLINE-ARGS */V36,list(2,VV[31],(V30))); |
252 |
{object V27 = (*(LnkLI120))(/* INLINE-ARGS */V22,VV[22],/* INLINE-ARGS */V26); |
{object V38 = (*(LnkLI129))(/* INLINE-ARGS */V33,VV[29],/* INLINE-ARGS */V37); |
253 |
VMR4(V27)}} |
VMR5(V38)}} |
254 |
base[0]=base[0]; |
base[0]=base[0]; |
255 |
return Cnil; |
return Cnil; |
256 |
} |
} |
257 |
/* function definition for LOAD-SHORT-DEFCOMBIN */ |
/* function definition for LOAD-SHORT-DEFCOMBIN */ |
258 |
|
|
259 |
static void L5() |
static void L8() |
260 |
{register object *base=vs_base; |
{register object *base=vs_base; |
261 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM6; VC6 |
262 |
vs_check; |
vs_check; |
263 |
{object V28; |
{object V39; |
264 |
check_arg(4); |
check_arg(4); |
265 |
V28=(base[0]); |
V39=(base[0]); |
266 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
267 |
base[2]=MMcons(base[2],base[1]); |
base[2]=MMcons(base[2],base[1]); |
268 |
base[3]=MMcons(base[3],base[2]); |
base[3]=MMcons(base[3],base[2]); |
269 |
vs_top=sup; |
vs_top=sup; |
270 |
{object V29; |
{object V40; |
271 |
object V30; |
object V41; |
272 |
object V31; |
object V42; |
273 |
vs_base=vs_top; |
vs_base=vs_top; |
274 |
(void) (*Lnk121)(); |
(void) (*Lnk130)(); |
275 |
vs_top=sup; |
vs_top=sup; |
276 |
V29= vs_base[0]; |
V40= vs_base[0]; |
277 |
V32= (VFUN_NARGS=1,(*(LnkLI122))(VV[25])); |
V43= (VFUN_NARGS=1,(*(LnkLI131))(VV[32])); |
278 |
V33= (*(LnkLI123))((V28)); |
V44= (*(LnkLI132))((V39)); |
279 |
V34 = (VV[26]->s.s_dbind); |
V45 = (VV[33]->s.s_dbind); |
280 |
V30= list(3,/* INLINE-ARGS */V32,/* INLINE-ARGS */V33,V34); |
V41= list(3,/* INLINE-ARGS */V43,/* INLINE-ARGS */V44,V45); |
281 |
V35= (VV[125]->s.s_gfdef); |
V46= (VV[134]->s.s_gfdef); |
282 |
V36 = (V30); |
V47 = (V41); |
283 |
V31= (VFUN_NARGS=4,(*(LnkLI124))(V35,Cnil,V36,Cnil)); |
V42= (VFUN_NARGS=4,(*(LnkLI133))(V46,Cnil,V47,Cnil)); |
284 |
base[7]=MMcons(Cnil,base[3]); |
base[7]=MMcons(Cnil,base[3]); |
285 |
base[8]= VV[27]; |
base[8]= VV[34]; |
286 |
base[9]= VV[28]; |
base[9]= VV[35]; |
287 |
base[10]= Cnil; |
base[10]= Cnil; |
288 |
base[11]= VV[29]; |
base[11]= VV[36]; |
289 |
base[12]= (V30); |
base[12]= (V41); |
290 |
base[13]= VV[30]; |
base[13]= VV[37]; |
291 |
base[14]= VV[31]; |
base[14]= VV[38]; |
292 |
base[15]= VV[32]; |
base[15]= VV[39]; |
293 |
base[16]= |
base[16]= |
294 |
make_cclosure_new(LC20,Cnil,base[7],Cdata); |
make_cclosure_new(LC23,Cnil,base[7],Cdata); |
295 |
base[17]= VV[33]; |
base[17]= VV[40]; |
296 |
base[18]= list(2,list(2,VV[21],(V28)),(V29)); |
base[18]= list(2,list(2,VV[28],(V39)),(V40)); |
297 |
vs_top=(vs_base=base+8)+11; |
vs_top=(vs_base=base+8)+11; |
298 |
(void) (*Lnk126)(Lclptr126); |
(void) (*Lnk135)(Lclptr135); |
299 |
vs_top=sup; |
vs_top=sup; |
300 |
(base[7]->c.c_car)= vs_base[0]; |
(base[7]->c.c_car)= vs_base[0]; |
301 |
if(((V31))==Cnil){ |
if(((V42))==Cnil){ |
302 |
goto T50;} |
goto T101;} |
303 |
base[8]=(VV[127]->s.s_gfdef); |
base[8]=(VV[136]->s.s_gfdef); |
304 |
base[9]= (VV[125]->s.s_gfdef); |
base[9]= (VV[134]->s.s_gfdef); |
305 |
base[10]= (V31); |
base[10]= (V42); |
306 |
(void)simple_lispcall(base+8,2); |
(void)simple_lispcall(base+8,2); |
307 |
goto T50; |
goto T101; |
308 |
T50:; |
T101:; |
309 |
base[8]=(VV[128]->s.s_gfdef); |
base[8]=(VV[137]->s.s_gfdef); |
310 |
base[9]= (VV[125]->s.s_gfdef); |
base[9]= (VV[134]->s.s_gfdef); |
311 |
base[10]= (base[7]->c.c_car); |
base[10]= (base[7]->c.c_car); |
312 |
lispcall(base+8,2); |
lispcall(base+8,2); |
313 |
return;} |
return;} |
315 |
} |
} |
316 |
/* function definition for DO-SHORT-METHOD-COMBINATION */ |
/* function definition for DO-SHORT-METHOD-COMBINATION */ |
317 |
|
|
318 |
static void L6() |
static void L9() |
319 |
{register object *base=vs_base; |
{register object *base=vs_base; |
320 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM7; VC7 |
321 |
vs_check; |
vs_check; |
322 |
{object V37; |
{object V48; |
323 |
register object V38; |
register object V49; |
324 |
object V39; |
object V50; |
325 |
object V40; |
object V51; |
326 |
object V41; |
object V52; |
327 |
object V42; |
object V53; |
328 |
check_arg(6); |
check_arg(6); |
329 |
V37=(base[0]); |
V48=(base[0]); |
330 |
V38=(base[1]); |
V49=(base[1]); |
331 |
V39=(base[2]); |
V50=(base[2]); |
332 |
V40=(base[3]); |
V51=(base[3]); |
333 |
V41=(base[4]); |
V52=(base[4]); |
334 |
V42=(base[5]); |
V53=(base[5]); |
335 |
vs_top=sup; |
vs_top=sup; |
336 |
goto TTL; |
goto TTL; |
337 |
TTL:; |
TTL:; |
338 |
if(((V38))!=Cnil){ |
if(((V49))!=Cnil){ |
339 |
goto T59;} |
goto T110;} |
340 |
V38= VV[34]; |
V49= VV[41]; |
341 |
goto T57; |
goto T108; |
342 |
goto T59; |
goto T110; |
343 |
T59:; |
T110:; |
344 |
{object V43; |
{object V54; |
345 |
V43= (equal((V38),VV[35])?Ct:Cnil); |
V54= (equal((V49),VV[42])?Ct:Cnil); |
346 |
if(((V43))==Cnil){ |
if(((V54))==Cnil){ |
347 |
goto T64;} |
goto T115;} |
348 |
goto T57; |
goto T108; |
349 |
goto T64; |
goto T115; |
350 |
T64:; |
T115:; |
351 |
{object V44; |
{object V55; |
352 |
V44= (equal((V38),VV[36])?Ct:Cnil); |
V55= (equal((V49),VV[43])?Ct:Cnil); |
353 |
if(((V44))==Cnil){ |
if(((V55))==Cnil){ |
354 |
goto T68;} |
goto T119;} |
355 |
goto T57; |
goto T108; |
356 |
goto T68; |
goto T119; |
357 |
T68:; |
T119:; |
358 |
base[6]= VV[37]; |
base[6]= VV[44]; |
359 |
base[7]= (V37); |
base[7]= (V48); |
360 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
361 |
(void) (*Lnk118)(); |
(void) (*Lnk127)(); |
362 |
vs_top=sup;}} |
vs_top=sup;}} |
363 |
goto T57; |
goto T108; |
364 |
T57:; |
T108:; |
365 |
base[6]= VV[2]; |
base[6]= VV[9]; |
366 |
base[7]= VV[38]; |
base[7]= VV[45]; |
367 |
base[8]= (V37); |
base[8]= (V48); |
368 |
base[9]= VV[39]; |
base[9]= VV[46]; |
369 |
base[10]= (V38); |
base[10]= (V49); |
370 |
base[11]= VV[20]; |
base[11]= VV[27]; |
371 |
base[12]= (V39); |
base[12]= (V50); |
372 |
base[13]= VV[19]; |
base[13]= VV[26]; |
373 |
base[14]= (V40); |
base[14]= (V51); |
374 |
base[15]= VV[33]; |
base[15]= VV[40]; |
375 |
base[16]= (V41); |
base[16]= (V52); |
376 |
base[17]= VV[17]; |
base[17]= VV[24]; |
377 |
base[18]= (V42); |
base[18]= (V53); |
378 |
vs_top=(vs_base=base+6)+13; |
vs_top=(vs_base=base+6)+13; |
379 |
(void) (*Lnk126)(Lclptr126); |
(void) (*Lnk135)(Lclptr135); |
380 |
return; |
return; |
381 |
} |
} |
382 |
} |
} |
383 |
/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) */ |
/* local entry for function (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION SHORT-METHOD-COMBINATION T)) */ |
384 |
|
|
385 |
static object LI7(V50,V51,V52,V53,V54) |
static object LI10(V61,V62,V63,V64,V65) |
386 |
|
|
387 |
object V50;object V51;object V52;object V53;object V54; |
object V61;object V62;object V63;object V64;object V65; |
388 |
{ VMB7 VMS7 VMV7 |
{ VMB8 VMS8 VMV8 |
389 |
goto TTL; |
goto TTL; |
390 |
TTL:; |
TTL:; |
391 |
{object V56; |
{object V67; |
392 |
object V57; |
object V68; |
393 |
object V58; |
object V69; |
394 |
register object V59; |
object V70; |
395 |
base[1]= (V53); |
register object V71; |
396 |
|
base[1]= (V64); |
397 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
398 |
(void) (*Lnk129)(Lclptr129); |
(void) (*Lnk138)(Lclptr138); |
399 |
vs_top=sup; |
vs_top=sup; |
400 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
401 |
base[1]= (V53); |
base[1]= (V64); |
402 |
|
vs_top=(vs_base=base+1)+1; |
403 |
|
(void) (*Lnk139)(Lclptr139); |
404 |
|
vs_top=sup; |
405 |
|
V67= vs_base[0]; |
406 |
|
base[1]= (V64); |
407 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
408 |
(void) (*Lnk130)(Lclptr130); |
(void) (*Lnk140)(Lclptr140); |
409 |
vs_top=sup; |
vs_top=sup; |
410 |
V56= vs_base[0]; |
V68= vs_base[0]; |
411 |
base[1]= (V53); |
base[1]= (V64); |
412 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
413 |
(void) (*Lnk131)(Lclptr131); |
(void) (*Lnk141)(Lclptr141); |
414 |
vs_top=sup; |
vs_top=sup; |
415 |
V57= vs_base[0]; |
V72= vs_base[0]; |
416 |
V58= Cnil; |
V69= CMPcar(V72); |
417 |
V59= Cnil; |
V70= Cnil; |
418 |
{register object V60; |
V71= Cnil; |
419 |
register object V61; |
{register object V73; |
420 |
V60= (V54); |
register object V74; |
421 |
V61= CMPcar((V60)); |
V73= (V65); |
422 |
goto T99; |
V74= CMPcar((V73)); |
423 |
T99:; |
goto T153; |
424 |
if(!(((V60))==Cnil)){ |
T153:; |
425 |
goto T100;} |
if(!(((V73))==Cnil)){ |
426 |
goto T95; |
goto T154;} |
427 |
goto T100; |
goto T149; |
428 |
T100:; |
goto T154; |
429 |
{register object V62; |
T154:; |
430 |
base[2]= (V61); |
{register object V75; |
431 |
|
base[2]= (V74); |
432 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
433 |
(void) (*Lnk132)(Lclptr132); |
(void) (*Lnk142)(Lclptr142); |
434 |
vs_top=sup; |
vs_top=sup; |
435 |
V62= vs_base[0]; |
V75= vs_base[0]; |
436 |
if(((V62))!=Cnil){ |
if(((V75))!=Cnil){ |
437 |
goto T108;} |
goto T162;} |
438 |
base[2]= (V61); |
base[2]= (V74); |
439 |
base[3]= VV[40]; |
base[3]= VV[47]; |
440 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
441 |
L8(base); |
L11(base); |
442 |
vs_top=sup; |
vs_top=sup; |
443 |
goto T104; |
goto T158; |
444 |
goto T108; |
goto T162; |
445 |
T108:; |
T162:; |
446 |
if((CMPcdr((V62)))==Cnil){ |
if((CMPcdr((V75)))==Cnil){ |
447 |
goto T113;} |
goto T167;} |
448 |
base[2]= (V61); |
base[2]= (V74); |
449 |
base[3]= VV[41]; |
base[3]= VV[48]; |
450 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
451 |
L8(base); |
L11(base); |
452 |
vs_top=sup; |
vs_top=sup; |
453 |
goto T104; |
goto T158; |
454 |
goto T113; |
goto T167; |
455 |
T113:; |
T167:; |
456 |
if(!((CMPcar((V62)))==(VV[42]))){ |
if(!((CMPcar((V75)))==(VV[49]))){ |
457 |
goto T118;} |
goto T172;} |
458 |
V58= make_cons(V61,(V58)); |
V70= make_cons(V74,(V70)); |
459 |
goto T104; |
goto T158; |
460 |
goto T118; |
goto T172; |
461 |
T118:; |
T172:; |
462 |
if(!((CMPcar((V62)))==(base[0]))){ |
if(!((CMPcar((V75)))==(base[0]))){ |
463 |
goto T122;} |
goto T176;} |
464 |
V59= make_cons(V61,(V59)); |
V71= make_cons(V74,(V71)); |
465 |
goto T104; |
goto T158; |
466 |
goto T122; |
goto T176; |
467 |
T122:; |
T176:; |
468 |
base[2]= (V61); |
base[2]= (V74); |
469 |
base[3]= VV[43]; |
base[3]= VV[50]; |
470 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
471 |
L8(base); |
L11(base); |
472 |
vs_top=sup;} |
vs_top=sup;} |
473 |
goto T104; |
goto T158; |
474 |
T104:; |
T158:; |
475 |
V60= CMPcdr((V60)); |
V73= CMPcdr((V73)); |
476 |
V61= CMPcar((V60)); |
V74= CMPcar((V73)); |
477 |
goto T99;} |
goto T153;} |
|
goto T95; |
|
|
T95:; |
|
|
V58= nreverse((V58)); |
|
|
V59= nreverse((V59)); |
|
|
{object V65; |
|
|
if((CMPcdr((V59)))!=Cnil){ |
|
|
goto T138;} |
|
|
if(((V57))==Cnil){ |
|
|
goto T138;} |
|
|
V65= list(3,VV[45],CMPcar((V59)),Cnil); |
|
|
goto T136; |
|
|
goto T138; |
|
|
T138:; |
|
|
V66 = (V56); |
|
|
{object V68; |
|
|
object V69= (V59); |
|
|
if(V69==Cnil){ |
|
|
V67= Cnil; |
|
|
goto T142;} |
|
|
base[1]=V68=MMcons(Cnil,Cnil); |
|
|
goto T143; |
|
|
T143:; |
|
|
(V68->c.c_car)= list(3,VV[45],(V69->c.c_car),Cnil); |
|
|
if((V69=MMcdr(V69))==Cnil){ |
|
|
V67= base[1]; |
|
|
goto T142;} |
|
|
V68=MMcdr(V68)=MMcons(Cnil,Cnil); |
|
|
goto T143;} |
|
|
goto T142; |
|
|
T142:; |
|
|
V65= make_cons(V66,V67); |
|
|
goto T136; |
|
|
T136:; |
|
|
if(((V59))!=Cnil){ |
|
|
goto T146;} |
|
|
V71= list(2,VV[24],base[0]); |
|
|
{object V72 = list(4,VV[46],VV[47],/* INLINE-ARGS */V71,list(2,VV[24],(V52))); |
|
|
VMR7(V72)} |
|
|
goto T146; |
|
|
T146:; |
|
|
if(((V58))!=Cnil){ |
|
|
goto T149;} |
|
|
{object V73 = (V65); |
|
|
VMR7(V73)} |
|
478 |
goto T149; |
goto T149; |
479 |
T149:; |
T149:; |
480 |
V74= CMPcar((V58)); |
V70= nreverse((V70)); |
481 |
V75= CMPcdr((V58)); |
if(((V69))==(VV[52])){ |
482 |
V76= list(2,VV[48],(V65)); |
goto T188;} |
483 |
V77= make_cons(/* INLINE-ARGS */V76,Cnil); |
V71= nreverse((V71)); |
484 |
{object V78 = list(3,VV[45],/* INLINE-ARGS */V74,append(/* INLINE-ARGS */V75,/* INLINE-ARGS */V77)); |
goto T188; |
485 |
VMR7(V78)}}} |
T188:; |
486 |
|
{object V78; |
487 |
|
if((CMPcdr((V71)))!=Cnil){ |
488 |
|
goto T194;} |
489 |
|
if(((V68))==Cnil){ |
490 |
|
goto T194;} |
491 |
|
V78= list(3,VV[53],CMPcar((V71)),Cnil); |
492 |
|
goto T192; |
493 |
|
goto T194; |
494 |
|
T194:; |
495 |
|
V79 = (V67); |
496 |
|
{object V81; |
497 |
|
object V82= (V71); |
498 |
|
if(V82==Cnil){ |
499 |
|
V80= Cnil; |
500 |
|
goto T198;} |
501 |
|
base[1]=V81=MMcons(Cnil,Cnil); |
502 |
|
goto T199; |
503 |
|
T199:; |
504 |
|
(V81->c.c_car)= list(3,VV[53],(V82->c.c_car),Cnil); |
505 |
|
if((V82=MMcdr(V82))==Cnil){ |
506 |
|
V80= base[1]; |
507 |
|
goto T198;} |
508 |
|
V81=MMcdr(V81)=MMcons(Cnil,Cnil); |
509 |
|
goto T199;} |
510 |
|
goto T198; |
511 |
|
T198:; |
512 |
|
V78= make_cons(V79,V80); |
513 |
|
goto T192; |
514 |
|
T192:; |
515 |
|
if(((V71))!=Cnil){ |
516 |
|
goto T202;} |
517 |
|
V84= list(2,VV[31],base[0]); |
518 |
|
{object V85 = list(4,VV[54],VV[55],/* INLINE-ARGS */V84,list(2,VV[31],(V63))); |
519 |
|
VMR8(V85)} |
520 |
|
goto T202; |
521 |
|
T202:; |
522 |
|
if(((V70))!=Cnil){ |
523 |
|
goto T205;} |
524 |
|
{object V86 = (V78); |
525 |
|
VMR8(V86)} |
526 |
|
goto T205; |
527 |
|
T205:; |
528 |
|
V87= CMPcar((V70)); |
529 |
|
V88= CMPcdr((V70)); |
530 |
|
V89= list(2,VV[56],(V78)); |
531 |
|
V90= make_cons(/* INLINE-ARGS */V89,Cnil); |
532 |
|
{object V91 = list(3,VV[53],/* INLINE-ARGS */V87,append(/* INLINE-ARGS */V88,/* INLINE-ARGS */V90)); |
533 |
|
VMR8(V91)}}} |
534 |
base[0]=base[0]; |
base[0]=base[0]; |
535 |
return Cnil; |
return Cnil; |
536 |
} |
} |
537 |
/* function definition for Defclass LONG-METHOD-COMBINATION8918 */ |
/* function definition for Defclass LONG-METHOD-COMBINATION8939 */ |
538 |
|
|
539 |
static void L9() |
static void L12() |
540 |
{register object *base=vs_base; |
{register object *base=vs_base; |
541 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM9; VC9 |
542 |
vs_check; |
vs_check; |
543 |
check_arg(0); |
check_arg(0); |
544 |
vs_top=sup; |
vs_top=sup; |
545 |
goto TTL; |
goto TTL; |
546 |
TTL:; |
TTL:; |
547 |
base[0]= VV[49]; |
base[0]= VV[57]; |
548 |
base[1]= VV[3]; |
base[1]= VV[10]; |
549 |
base[2]= VV[50]; |
base[2]= VV[58]; |
550 |
V79= listA(9,VV[5],VV[51],VV[7],VV[52],VV[9],Cnil,VV[10],VV[53],Cnil); |
V92= listA(9,VV[12],VV[59],VV[14],VV[60],VV[16],Cnil,VV[17],VV[61],Cnil); |
551 |
base[3]= make_cons(/* INLINE-ARGS */V79,Cnil); |
base[3]= make_cons(/* INLINE-ARGS */V92,Cnil); |
552 |
base[4]= Cnil; |
base[4]= Cnil; |
553 |
base[5]= Cnil; |
base[5]= Cnil; |
554 |
symlispcall(VV[119],base+0,6); |
symlispcall(VV[128],base+0,6); |
555 |
return; |
return; |
556 |
} |
} |
557 |
/* local entry for function EXPAND-LONG-DEFCOMBIN */ |
/* local entry for function EXPAND-LONG-DEFCOMBIN */ |
558 |
|
|
559 |
static object LI10(V81) |
static object LI13(V94) |
560 |
|
|
561 |
register object V81; |
register object V94; |
562 |
{ VMB9 VMS9 VMV9 |
{ VMB10 VMS10 VMV10 |
563 |
goto TTL; |
goto TTL; |
564 |
TTL:; |
TTL:; |
565 |
{object V82; |
{object V95; |
566 |
object V83; |
object V96; |
567 |
object V84; |
object V97; |
568 |
register object V85; |
register object V98; |
569 |
object V86; |
object V99; |
570 |
object V87; |
object V100; |
571 |
V82= CMPcadr((V81)); |
V95= CMPcadr((V94)); |
572 |
V83= CMPcaddr((V81)); |
V96= CMPcaddr((V94)); |
573 |
V84= CMPcadddr((V81)); |
V97= CMPcadddr((V94)); |
574 |
V85= CMPcddddr((V81)); |
V98= CMPcddddr((V94)); |
575 |
V86= Cnil; |
V99= Cnil; |
576 |
V87= Cnil; |
V100= Cnil; |
577 |
if(!(type_of(CMPcar((V85)))==t_cons)){ |
if(!(type_of(CMPcar((V98)))==t_cons)){ |
578 |
goto T161;} |
goto T217;} |
579 |
if(!((CMPcaar((V85)))==(VV[54]))){ |
if(!((CMPcaar((V98)))==(VV[62]))){ |
580 |
goto T161;} |
goto T217;} |
581 |
{object V89; |
{object V102; |
582 |
V89= CMPcar((V85)); |
V102= CMPcar((V98)); |
583 |
V85= CMPcdr((V85)); |
V98= CMPcdr((V98)); |
584 |
V88= (V89);} |
V101= (V102);} |
585 |
V86= CMPcdr(V88); |
V99= CMPcdr(V101); |
586 |
goto T161; |
goto T217; |
587 |
T161:; |
T217:; |
588 |
if(!(type_of(CMPcar((V85)))==t_cons)){ |
if(!(type_of(CMPcar((V98)))==t_cons)){ |
589 |
goto T171;} |
goto T227;} |
590 |
if(!((CMPcaar((V85)))==(VV[55]))){ |
if(!((CMPcaar((V98)))==(VV[63]))){ |
591 |
goto T171;} |
goto T227;} |
592 |
{object V91; |
{object V104; |
593 |
V91= CMPcar((V85)); |
V104= CMPcar((V98)); |
594 |
V85= CMPcdr((V85)); |
V98= CMPcdr((V98)); |
595 |
V90= (V91);} |
V103= (V104);} |
596 |
V87= CMPcadr(V90); |
V100= CMPcadr(V103); |
597 |
goto T171; |
goto T227; |
598 |
T171:; |
T227:; |
599 |
{object V92; |
{object V105; |
600 |
object V93; |
object V106; |
601 |
base[0]= (V82); |
base[0]= (V95); |
602 |
base[1]= (V83); |
base[1]= (V96); |
603 |
base[2]= (V84); |
base[2]= (V97); |
604 |
base[3]= (V86); |
base[3]= (V99); |
605 |
base[4]= (V87); |
base[4]= (V100); |
606 |
base[5]= (V85); |
base[5]= (V98); |
607 |
vs_top=(vs_base=base+0)+6; |
vs_top=(vs_base=base+0)+6; |
608 |
(void) (*Lnk133)(); |
(void) (*Lnk143)(); |
609 |
if(vs_base>=vs_top){vs_top=sup;goto T188;} |
if(vs_base>=vs_top){vs_top=sup;goto T244;} |
610 |
V92= vs_base[0]; |
V105= vs_base[0]; |
611 |
vs_base++; |
vs_base++; |
612 |
if(vs_base>=vs_top){vs_top=sup;goto T189;} |
if(vs_base>=vs_top){vs_top=sup;goto T245;} |
613 |
V93= vs_base[0]; |
V106= vs_base[0]; |
614 |
vs_top=sup; |
vs_top=sup; |
615 |
goto T190; |
goto T246; |
616 |
goto T188; |
goto T244; |
617 |
T188:; |
T244:; |
618 |
V92= Cnil; |
V105= Cnil; |
619 |
goto T189; |
goto T245; |
620 |
T189:; |
T245:; |
621 |
V93= Cnil; |
V106= Cnil; |
622 |
goto T190; |
goto T246; |
623 |
T190:; |
T246:; |
624 |
V94= list(2,VV[21],(V82)); |
V107= list(2,VV[28],(V95)); |
625 |
V95= list(2,VV[24],(V82)); |
V108= list(2,VV[31],(V95)); |
626 |
V96= list(2,VV[24],(V92)); |
V109= list(2,VV[31],(V105)); |
627 |
V97= list(4,VV[57],/* INLINE-ARGS */V95,/* INLINE-ARGS */V96,list(2,VV[51],(V93))); |
V110= list(4,VV[65],/* INLINE-ARGS */V108,/* INLINE-ARGS */V109,list(2,VV[59],(V106))); |
628 |
{object V98 = (*(LnkLI120))(/* INLINE-ARGS */V94,VV[56],/* INLINE-ARGS */V97); |
{object V111 = (*(LnkLI129))(/* INLINE-ARGS */V107,VV[64],/* INLINE-ARGS */V110); |
629 |
VMR9(V98)}}} |
VMR10(V111)}}} |
630 |
base[0]=base[0]; |
base[0]=base[0]; |
631 |
return Cnil; |
return Cnil; |
632 |
} |
} |
633 |
/* function definition for LOAD-LONG-DEFCOMBIN */ |
/* function definition for LOAD-LONG-DEFCOMBIN */ |
634 |
|
|
635 |
static void L11() |
static void L14() |
636 |
{register object *base=vs_base; |
{register object *base=vs_base; |
637 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM11; VC11 |
638 |
vs_check; |
vs_check; |
639 |
{object V99; |
{object V112; |
640 |
object V100; |
object V113; |
641 |
check_arg(3); |
check_arg(3); |
642 |
V99=(base[0]); |
V112=(base[0]); |
643 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
644 |
V100=(base[2]); |
V113=(base[2]); |
645 |
vs_top=sup; |
vs_top=sup; |
646 |
{object V101; |
{object V114; |
647 |
object V102; |
object V115; |
648 |
object V103; |
object V116; |
649 |
V104= (VFUN_NARGS=1,(*(LnkLI122))(VV[25])); |
V117= (VFUN_NARGS=1,(*(LnkLI131))(VV[32])); |
650 |
V105= (*(LnkLI123))((V99)); |
V118= (*(LnkLI132))((V112)); |
651 |
V106 = (VV[26]->s.s_dbind); |
V119 = (VV[33]->s.s_dbind); |
652 |
V101= list(3,/* INLINE-ARGS */V104,/* INLINE-ARGS */V105,V106); |
V114= list(3,/* INLINE-ARGS */V117,/* INLINE-ARGS */V118,V119); |
653 |
V107= (VV[125]->s.s_gfdef); |
V120= (VV[134]->s.s_gfdef); |
654 |
V108 = (V101); |
V121 = (V114); |
655 |
V102= (VFUN_NARGS=4,(*(LnkLI124))(V107,Cnil,V108,Cnil)); |
V115= (VFUN_NARGS=4,(*(LnkLI133))(V120,Cnil,V121,Cnil)); |
656 |
base[6]= VV[27]; |
base[6]= VV[34]; |
657 |
base[7]= VV[28]; |
base[7]= VV[35]; |
658 |
base[8]= Cnil; |
base[8]= Cnil; |
659 |
base[9]= VV[29]; |
base[9]= VV[36]; |
660 |
base[10]= (V101); |
base[10]= (V114); |
661 |
base[11]= VV[30]; |
base[11]= VV[37]; |
662 |
base[12]= VV[58]; |
base[12]= VV[66]; |
663 |
base[13]= VV[32]; |
base[13]= VV[39]; |
664 |
base[14]= |
base[14]= |
665 |
make_cclosure_new(LC21,Cnil,base[1],Cdata); |
make_cclosure_new(LC24,Cnil,base[1],Cdata); |
666 |
base[15]= VV[33]; |
base[15]= VV[40]; |
667 |
V109= list(2,VV[21],(V99)); |
V122= list(2,VV[28],(V112)); |
668 |
vs_base=vs_top; |
vs_base=vs_top; |
669 |
(void) (*Lnk121)(); |
(void) (*Lnk130)(); |
670 |
vs_top=sup; |
vs_top=sup; |
671 |
V110= vs_base[0]; |
V123= vs_base[0]; |
672 |
base[16]= list(2,/* INLINE-ARGS */V109,V110); |
base[16]= list(2,/* INLINE-ARGS */V122,V123); |
673 |
vs_top=(vs_base=base+6)+11; |
vs_top=(vs_base=base+6)+11; |
674 |
(void) (*Lnk126)(Lclptr126); |
(void) (*Lnk135)(Lclptr135); |
675 |
vs_top=sup; |
vs_top=sup; |
676 |
V103= vs_base[0]; |
V116= vs_base[0]; |
677 |
{object V112; |
{object V125; |
678 |
V112= (VV[59]->s.s_dbind); |
V125= (VV[67]->s.s_dbind); |
679 |
base[6]= V99; |
base[6]= V112; |
680 |
base[7]= (V112); |
base[7]= (V125); |
681 |
base[8]= V100; |
base[8]= V113; |
682 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
683 |
siLhash_set(); |
siLhash_set(); |
684 |
vs_top=sup;} |
vs_top=sup;} |
685 |
if(((V102))==Cnil){ |
if(((V115))==Cnil){ |
686 |
goto T212;} |
goto T268;} |
687 |
base[6]=(VV[127]->s.s_gfdef); |
base[6]=(VV[136]->s.s_gfdef); |
688 |
base[7]= (VV[125]->s.s_gfdef); |
base[7]= (VV[134]->s.s_gfdef); |
689 |
base[8]= (V102); |
base[8]= (V115); |
690 |
(void)simple_lispcall(base+6,2); |
(void)simple_lispcall(base+6,2); |
691 |
goto T212; |
goto T268; |
692 |
T212:; |
T268:; |
693 |
base[6]=(VV[128]->s.s_gfdef); |
base[6]=(VV[137]->s.s_gfdef); |
694 |
base[7]= (VV[125]->s.s_gfdef); |
base[7]= (VV[134]->s.s_gfdef); |
695 |
base[8]= (V103); |
base[8]= (V116); |
696 |
lispcall(base+6,2); |
lispcall(base+6,2); |
697 |
return;} |
return;} |
698 |
} |
} |
699 |
} |
} |
700 |
/* function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T)) */ |
/* function definition for (FAST-METHOD COMPUTE-EFFECTIVE-METHOD (GENERIC-FUNCTION LONG-METHOD-COMBINATION T)) */ |
701 |
|
|
702 |
static void L12() |
static void L15() |
703 |
{register object *base=vs_base; |
{register object *base=vs_base; |
704 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM12; VC12 |
705 |
vs_check; |
vs_check; |
706 |
{object V114; |
{object V127; |
707 |
object V115; |
object V128; |
708 |
object V116; |
object V129; |
709 |
object V117; |
object V130; |
710 |
object V118; |
object V131; |
711 |
check_arg(5); |
check_arg(5); |
712 |
V114=(base[0]); |
V127=(base[0]); |
713 |
V115=(base[1]); |
V128=(base[1]); |
714 |
V116=(base[2]); |
V129=(base[2]); |
715 |
V117=(base[3]); |
V130=(base[3]); |
716 |
V118=(base[4]); |
V131=(base[4]); |
717 |
vs_top=sup; |
vs_top=sup; |
718 |
goto TTL; |
goto TTL; |
719 |
TTL:; |
TTL:; |
720 |
base[7]= (V117); |
base[7]= (V130); |
721 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
722 |
(void) (*Lnk129)(Lclptr129); |
(void) (*Lnk138)(Lclptr138); |
723 |
vs_top=sup; |
vs_top=sup; |
724 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
725 |
base[7]= (VV[59]->s.s_dbind); |
base[7]= (VV[67]->s.s_dbind); |
726 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
727 |
Lgethash(); |
Lgethash(); |
728 |
vs_top=sup; |
vs_top=sup; |
729 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
730 |
base[6]= (V116); |
base[6]= (V129); |
731 |
base[7]= (V117); |
base[7]= (V130); |
732 |
base[8]= (V118); |
base[8]= (V131); |
733 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
734 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
735 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
740 |
} |
} |
741 |
/* function definition for MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
/* function definition for MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
742 |
|
|
743 |
static void L13() |
static void L16() |
744 |
{register object *base=vs_base; |
{register object *base=vs_base; |
745 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM13; VC13 |
746 |
vs_check; |
vs_check; |
747 |
{object V120; |
{object V133; |
748 |
object V121; |
object V134; |
749 |
object V122; |
object V135; |
750 |
object V123; |
object V136; |
751 |
object V124; |
object V137; |
752 |
object V125; |
object V138; |
753 |
check_arg(6); |
check_arg(6); |
754 |
V120=(base[0]); |
V133=(base[0]); |
755 |
V121=(base[1]); |
V134=(base[1]); |
756 |
V122=(base[2]); |
V135=(base[2]); |
757 |
V123=(base[3]); |
V136=(base[3]); |
758 |
V124=(base[4]); |
V137=(base[4]); |
759 |
V125=(base[5]); |
V138=(base[5]); |
760 |
vs_top=sup; |
vs_top=sup; |
761 |
goto TTL; |
goto TTL; |
762 |
TTL:; |
TTL:; |
763 |
{object V126; |
{object V139; |
764 |
object V127; |
object V140; |
765 |
object V128; |
object V141; |
766 |
base[6]= (V125); |
base[6]= (V138); |
767 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
768 |
(void) (*Lnk134)(); |
(void) (*Lnk144)(); |
769 |
if(vs_base>=vs_top){vs_top=sup;goto T232;} |
if(vs_base>=vs_top){vs_top=sup;goto T288;} |
770 |
V126= vs_base[0]; |
V139= vs_base[0]; |
771 |
vs_base++; |
vs_base++; |
772 |
if(vs_base>=vs_top){vs_top=sup;goto T233;} |
if(vs_base>=vs_top){vs_top=sup;goto T289;} |
773 |
V127= vs_base[0]; |
V140= vs_base[0]; |
774 |
vs_base++; |
vs_base++; |
775 |
if(vs_base>=vs_top){vs_top=sup;goto T234;} |
if(vs_base>=vs_top){vs_top=sup;goto T290;} |
776 |
V128= vs_base[0]; |
V141= vs_base[0]; |
777 |
vs_top=sup; |
vs_top=sup; |
778 |
goto T235; |
goto T291; |
779 |
goto T232; |
goto T288; |
780 |
T232:; |
T288:; |
781 |
V126= Cnil; |
V139= Cnil; |
782 |
goto T233; |
goto T289; |
783 |
T233:; |
T289:; |
784 |
V127= Cnil; |
V140= Cnil; |
785 |
goto T234; |
goto T290; |
786 |
T234:; |
T290:; |
787 |
V128= Cnil; |
V141= Cnil; |
788 |
goto T235; |
goto T291; |
789 |
T235:; |
T291:; |
790 |
{register object V129; |
{register object V142; |
791 |
V129= (*(LnkLI135))((V122),(V127),(V128)); |
V142= (*(LnkLI145))((V135),(V140),(V141)); |
792 |
if(((V124))==Cnil){ |
if(((V137))==Cnil){ |
793 |
goto T237;} |
goto T293;} |
794 |
{object V130; |
{object V143; |
795 |
object V132; |
object V145; |
796 |
V130= list(2,(V124),VV[60]); |
V143= list(2,(V137),VV[68]); |
797 |
V132= make_cons((V130),CMPcadr(V129)); |
V145= make_cons((V143),CMPcadr(V142)); |
798 |
(CMPcdr(V129))->c.c_car = (V132); |
(CMPcdr(V142))->c.c_car = (V145); |
799 |
(void)(CMPcdr(V129));} |
(void)(CMPcdr(V142));} |
800 |
goto T237; |
goto T293; |
801 |
T237:; |
T293:; |
802 |
if(((V123))==Cnil){ |
if(((V136))==Cnil){ |
803 |
goto T243;} |
goto T299;} |
804 |
V129= (*(LnkLI136))((V129),(V123)); |
V142= (*(LnkLI146))((V142),(V136)); |
805 |
goto T243; |
goto T299; |
806 |
T243:; |
T299:; |
807 |
if(((V121))==Cnil){ |
if(((V134))==Cnil){ |
808 |
goto T247;} |
goto T303;} |
809 |
V129= list(3,VV[61],list(2,VV[51],list(3,VV[62],(V121),(V129))),VV[63]); |
V142= list(3,VV[69],list(2,VV[59],list(3,VV[70],(V134),(V142))),VV[71]); |
810 |
goto T247; |
goto T303; |
811 |
T247:; |
T303:; |
812 |
base[6]= (V126); |
base[6]= (V139); |
813 |
base[7]= list(4,VV[62],VV[64],VV[65],list(3,VV[66],VV[67],(V129))); |
base[7]= list(4,VV[70],VV[72],VV[73],list(3,VV[74],VV[75],(V142))); |
814 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
815 |
return;}} |
return;}} |
816 |
} |
} |
817 |
} |
} |
818 |
/* local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
/* local entry for function WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
819 |
|
|
820 |
static object LI14(V136,V137,V138) |
static object LI17(V149,V150,V151) |
821 |
|
|
822 |
object V136;object V137;object V138; |
object V149;object V150;object V151; |
823 |
{ VMB13 VMS13 VMV13 |
{ VMB14 VMS14 VMV14 |
824 |
goto TTL; |
goto TTL; |
825 |
TTL:; |
TTL:; |
826 |
{object V139; |
{object V152; |
827 |
object V140; |
object V153; |
828 |
object V141; |
object V154; |
|
object V142; |
|
|
object V143; |
|
|
{object V144; |
|
|
register object V145; |
|
|
object V146; |
|
|
register object V147; |
|
|
object V148; |
|
|
register object V149; |
|
|
object V150; |
|
|
register object V151; |
|
|
object V152; |
|
|
register object V153; |
|
|
V144= Cnil; |
|
|
V145= Cnil; |
|
|
V146= Cnil; |
|
|
V147= Cnil; |
|
|
V148= Cnil; |
|
|
V149= Cnil; |
|
|
V150= Cnil; |
|
|
V151= Cnil; |
|
|
V152= Cnil; |
|
|
V153= Cnil; |
|
|
{register object V154; |
|
829 |
object V155; |
object V155; |
830 |
V154= (V136); |
object V156; |
831 |
V155= CMPcar((V154)); |
{object V157; |
|
goto T268; |
|
|
T268:; |
|
|
if(!(((V154))==Cnil)){ |
|
|
goto T269;} |
|
|
goto T264; |
|
|
goto T269; |
|
|
T269:; |
|
|
{register object V156; |
|
|
object V157; |
|
832 |
register object V158; |
register object V158; |
833 |
register object V159; |
object V159; |
834 |
object V160; |
register object V160; |
835 |
base[1]= (V155); |
object V161; |
836 |
|
register object V162; |
837 |
|
object V163; |
838 |
|
register object V164; |
839 |
|
object V165; |
840 |
|
register object V166; |
841 |
|
V157= Cnil; |
842 |
|
V158= Cnil; |
843 |
|
V159= Cnil; |
844 |
|
V160= Cnil; |
845 |
|
V161= Cnil; |
846 |
|
V162= Cnil; |
847 |
|
V163= Cnil; |
848 |
|
V164= Cnil; |
849 |
|
V165= Cnil; |
850 |
|
V166= Cnil; |
851 |
|
{register object V167; |
852 |
|
object V168; |
853 |
|
V167= (V149); |
854 |
|
V168= CMPcar((V167)); |
855 |
|
goto T324; |
856 |
|
T324:; |
857 |
|
if(!(((V167))==Cnil)){ |
858 |
|
goto T325;} |
859 |
|
goto T320; |
860 |
|
goto T325; |
861 |
|
T325:; |
862 |
|
{register object V169; |
863 |
|
object V170; |
864 |
|
register object V171; |
865 |
|
register object V172; |
866 |
|
object V173; |
867 |
|
base[1]= (V168); |
868 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
869 |
(void) (*Lnk137)(); |
(void) (*Lnk147)(); |
870 |
if(vs_base>=vs_top){vs_top=sup;goto T276;} |
if(vs_base>=vs_top){vs_top=sup;goto T332;} |
871 |
V156= vs_base[0]; |
V169= vs_base[0]; |
872 |
vs_base++; |
vs_base++; |
873 |
if(vs_base>=vs_top){vs_top=sup;goto T277;} |
if(vs_base>=vs_top){vs_top=sup;goto T333;} |
874 |
V157= vs_base[0]; |
V170= vs_base[0]; |
875 |
vs_base++; |
vs_base++; |
876 |
if(vs_base>=vs_top){vs_top=sup;goto T278;} |
if(vs_base>=vs_top){vs_top=sup;goto T334;} |
877 |
V158= vs_base[0]; |
V171= vs_base[0]; |
878 |
vs_base++; |
vs_base++; |
879 |
if(vs_base>=vs_top){vs_top=sup;goto T279;} |
if(vs_base>=vs_top){vs_top=sup;goto T335;} |
880 |
V159= vs_base[0]; |
V172= vs_base[0]; |
881 |
vs_base++; |
vs_base++; |
882 |
if(vs_base>=vs_top){vs_top=sup;goto T280;} |
if(vs_base>=vs_top){vs_top=sup;goto T336;} |
883 |
V160= vs_base[0]; |
V173= vs_base[0]; |
884 |
vs_top=sup; |
vs_top=sup; |
885 |
goto T281; |
goto T337; |
886 |
goto T276; |
goto T332; |
887 |
T276:; |
T332:; |
888 |
V156= Cnil; |
V169= Cnil; |
889 |
goto T277; |
goto T333; |
890 |
T277:; |
T333:; |
891 |
V157= Cnil; |
V170= Cnil; |
892 |
goto T278; |
goto T334; |
893 |
T278:; |
T334:; |
894 |
V158= Cnil; |
V171= Cnil; |
895 |
goto T279; |
goto T335; |
896 |
T279:; |
T335:; |
897 |
V159= Cnil; |
V172= Cnil; |
898 |
goto T280; |
goto T336; |
899 |
T280:; |
T336:; |
900 |
V160= Cnil; |
V173= Cnil; |
901 |
goto T281; |
goto T337; |
902 |
T281:; |
T337:; |
903 |
{register object V161; |
{register object V174; |
904 |
vs_base=vs_top; |
vs_base=vs_top; |
905 |
Lgensym(); |
Lgensym(); |
906 |
vs_top=sup; |
vs_top=sup; |
907 |
V161= vs_base[0]; |
V174= vs_base[0]; |
908 |
if(((V144))!=Cnil){ |
if(((V157))!=Cnil){ |
909 |
goto T285;} |
goto T341;} |
910 |
V145= make_cons(V156,Cnil); |
V158= make_cons(V169,Cnil); |
911 |
V144= (V145); |
V157= (V158); |
912 |
goto T283; |
goto T339; |
913 |
goto T285; |
goto T341; |
914 |
T285:; |
T341:; |
915 |
V164= make_cons(V156,Cnil); |
V177= make_cons(V169,Cnil); |
916 |
((V145))->c.c_cdr = /* INLINE-ARGS */V164; |
((V158))->c.c_cdr = /* INLINE-ARGS */V177; |
917 |
V163= (V145); |
V176= (V158); |
918 |
V145= CMPcdr(V163); |
V158= CMPcdr(V176); |
919 |
goto T283; |
goto T339; |
920 |
T283:; |
T339:; |
921 |
if(((V146))!=Cnil){ |
if(((V159))!=Cnil){ |
922 |
goto T293;} |
goto T349;} |
923 |
V147= make_cons(V161,Cnil); |
V160= make_cons(V174,Cnil); |
924 |
V146= (V147); |
V159= (V160); |
925 |
goto T291; |
goto T347; |
926 |
goto T293; |
goto T349; |
927 |
T293:; |
T349:; |
928 |
V167= make_cons(V161,Cnil); |
V180= make_cons(V174,Cnil); |
929 |
((V147))->c.c_cdr = /* INLINE-ARGS */V167; |
((V160))->c.c_cdr = /* INLINE-ARGS */V180; |
930 |
V166= (V147); |
V179= (V160); |
931 |
V147= CMPcdr(V166); |
V160= CMPcdr(V179); |
932 |
goto T291; |
goto T347; |
933 |
T291:; |
T347:; |
934 |
{object V168; |
{object V181; |
935 |
V169= make_cons(VV[68],(V157)); |
V182= make_cons(VV[76],(V170)); |
936 |
V170= list(3,VV[70],(V161),VV[71]); |
V183= list(3,VV[78],(V174),VV[79]); |
937 |
V171= list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[73],list(2,VV[24],(V156))))); |
V184= list(3,VV[80],VV[75],list(2,VV[31],list(3,VV[54],VV[81],list(2,VV[31],(V169))))); |
938 |
V172= list(4,VV[69],/* INLINE-ARGS */V170,/* INLINE-ARGS */V171,list(3,VV[74],(V161),VV[71])); |
V185= list(4,VV[77],/* INLINE-ARGS */V183,/* INLINE-ARGS */V184,list(3,VV[82],(V174),VV[79])); |
939 |
V168= list(3,/* INLINE-ARGS */V169,/* INLINE-ARGS */V172,list(3,VV[75],VV[76],(V156))); |
V181= list(3,/* INLINE-ARGS */V182,/* INLINE-ARGS */V185,list(3,VV[83],VV[84],(V169))); |
940 |
if(((V148))!=Cnil){ |
if(((V161))!=Cnil){ |
941 |
goto T302;} |
goto T358;} |
942 |
V149= make_cons((V168),Cnil); |
V162= make_cons((V181),Cnil); |
943 |
V148= (V149); |
V161= (V162); |
944 |
goto T299; |
goto T355; |
945 |
goto T302; |
goto T358; |
946 |
T302:; |
T358:; |
947 |
V174= make_cons((V168),Cnil); |
V187= make_cons((V181),Cnil); |
948 |
((V149))->c.c_cdr = /* INLINE-ARGS */V174; |
((V162))->c.c_cdr = /* INLINE-ARGS */V187; |
949 |
V173= (V149); |
V186= (V162); |
950 |
V149= CMPcdr(V173);} |
V162= CMPcdr(V186);} |
951 |
goto T299; |
goto T355; |
952 |
T299:; |
T355:; |
953 |
if(((V160))==Cnil){ |
if(((V173))==Cnil){ |
954 |
goto T308;} |
goto T364;} |
955 |
{object V175; |
{object V188; |
956 |
V176= list(2,VV[78],(V156)); |
V189= list(2,VV[86],(V169)); |
957 |
V175= list(3,VV[77],/* INLINE-ARGS */V176,list(3,VV[72],VV[67],list(2,VV[24],list(3,VV[46],VV[79],list(2,VV[24],(V156)))))); |
V188= list(3,VV[85],/* INLINE-ARGS */V189,list(3,VV[80],VV[75],list(2,VV[31],list(3,VV[54],VV[87],list(2,VV[31],(V169)))))); |
958 |
if(((V150))!=Cnil){ |
if(((V163))!=Cnil){ |
959 |
goto T313;} |
goto T369;} |
960 |
V151= make_cons((V175),Cnil); |
V164= make_cons((V188),Cnil); |
961 |
V150= (V151); |
V163= (V164); |
962 |
goto T308; |
goto T364; |
963 |
goto T313; |
goto T369; |
964 |
T313:; |
T369:; |
965 |
V178= make_cons((V175),Cnil); |
V191= make_cons((V188),Cnil); |
966 |
((V151))->c.c_cdr = /* INLINE-ARGS */V178; |
((V164))->c.c_cdr = /* INLINE-ARGS */V191; |
967 |
V177= (V151); |
V190= (V164); |
968 |
V151= CMPcdr(V177);} |
V164= CMPcdr(V190);} |
969 |
goto T308; |
goto T364; |
970 |
T308:; |
T364:; |
971 |
goto T321; |
goto T377; |
972 |
T321:; |
T377:; |
973 |
base[1]= (V159); |
base[1]= (V172); |
974 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
975 |
Lconstantp(); |
Lconstantp(); |
976 |
vs_top=sup; |
vs_top=sup; |
977 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
978 |
goto T323;}{object V179; |
goto T379;}{object V192; |
979 |
V179= (V159); |
V192= (V172); |
980 |
base[1]= (V159); |
base[1]= (V172); |
981 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
982 |
Leval(); |
Leval(); |
983 |
vs_top=sup; |
vs_top=sup; |
984 |
V159= vs_base[0]; |
V172= vs_base[0]; |
985 |
V180 = (V159); |
V193 = (V172); |
986 |
if((((V179)==(V180)?Ct:Cnil))==Cnil){ |
if((((V192)==(V193)?Ct:Cnil))==Cnil){ |
987 |
goto T322;}} |
goto T378;}} |
988 |
goto T323; |
goto T379; |
989 |
T323:; |
T379:; |
990 |
goto T319; |
goto T375; |
991 |
goto T322; |
goto T378; |
992 |
T322:; |
T378:; |
993 |
goto T321; |
goto T377; |
994 |
goto T319; |
goto T375; |
995 |
T319:; |
T375:; |
996 |
{object V181; |
{object V194; |
997 |
if(!(((V159))==(VV[80]))){ |
if(!(((V172))==(VV[88]))){ |
998 |
goto T333;} |
goto T389;} |
999 |
V181= list(3,VV[74],(V156),list(2,VV[81],(V156))); |
V194= list(3,VV[82],(V169),list(2,VV[89],(V169))); |
1000 |
goto T331; |
goto T387; |
1001 |
goto T333; |
goto T389; |
1002 |
T333:; |
T389:; |
1003 |
if(!(((V159))==(VV[82]))){ |
if(!(((V172))==(VV[52]))){ |
1004 |
goto T336;} |
goto T392;} |
1005 |
V181= Cnil; |
V194= Cnil; |
1006 |
goto T331; |
goto T387; |
1007 |
goto T336; |
goto T392; |
1008 |
T336:; |
T392:; |
1009 |
V181= list(4,VV[83],(V159),list(2,VV[80],list(3,VV[74],(V156),list(2,VV[81],(V156)))),VV[84]); |
V194= list(4,VV[90],(V172),list(2,VV[88],list(3,VV[82],(V169),list(2,VV[89],(V169)))),VV[91]); |
1010 |
goto T331; |
goto T387; |
1011 |
T331:; |
T387:; |
1012 |
if(((V152))!=Cnil){ |
if(((V165))!=Cnil){ |
1013 |
goto T339;} |
goto T395;} |
1014 |
V153= make_cons((V181),Cnil); |
V166= make_cons((V194),Cnil); |
1015 |
V152= (V153); |
V165= (V166); |
1016 |
goto T273; |
goto T329; |
1017 |
goto T339; |
goto T395; |
1018 |
T339:; |
T395:; |
1019 |
V183= make_cons((V181),Cnil); |
V196= make_cons((V194),Cnil); |
1020 |
((V153))->c.c_cdr = /* INLINE-ARGS */V183; |
((V166))->c.c_cdr = /* INLINE-ARGS */V196; |
1021 |
V182= (V153); |
V195= (V166); |
1022 |
V153= CMPcdr(V182);}}} |
V166= CMPcdr(V195);}}} |
1023 |
goto T273; |
goto T329; |
1024 |
T273:; |
T329:; |
1025 |
V154= CMPcdr((V154)); |
V167= CMPcdr((V167)); |
1026 |
V155= CMPcar((V154)); |
V168= CMPcar((V167)); |
1027 |
goto T268;} |
goto T324;} |
1028 |
goto T264; |
goto T320; |
1029 |
T264:; |
T320:; |
1030 |
base[0]= (V144); |
base[0]= (V157); |
1031 |
base[1]= (V146); |
base[1]= (V159); |
1032 |
base[2]= (V148); |
base[2]= (V161); |
1033 |
base[3]= (V150); |
base[3]= (V163); |
1034 |
base[4]= (V152); |
base[4]= (V165); |
1035 |
vs_top=(vs_base=base+0)+5;} |
vs_top=(vs_base=base+0)+5;} |
1036 |
if(vs_base>=vs_top){vs_top=sup;goto T355;} |
if(vs_base>=vs_top){vs_top=sup;goto T411;} |
1037 |
V139= vs_base[0]; |
V152= vs_base[0]; |
1038 |
vs_base++; |
vs_base++; |
1039 |
if(vs_base>=vs_top){vs_top=sup;goto T356;} |
if(vs_base>=vs_top){vs_top=sup;goto T412;} |
1040 |
V140= vs_base[0]; |
V153= vs_base[0]; |
1041 |
vs_base++; |
vs_base++; |
1042 |
if(vs_base>=vs_top){vs_top=sup;goto T357;} |
if(vs_base>=vs_top){vs_top=sup;goto T413;} |
1043 |
V141= vs_base[0]; |
V154= vs_base[0]; |
1044 |
vs_base++; |
vs_base++; |
1045 |
if(vs_base>=vs_top){vs_top=sup;goto T358;} |
if(vs_base>=vs_top){vs_top=sup;goto T414;} |
1046 |
V142= vs_base[0]; |
V155= vs_base[0]; |
1047 |
vs_base++; |
vs_base++; |
1048 |
if(vs_base>=vs_top){vs_top=sup;goto T359;} |
if(vs_base>=vs_top){vs_top=sup;goto T415;} |
1049 |
V143= vs_base[0]; |
V156= vs_base[0]; |
1050 |
vs_top=sup; |
vs_top=sup; |
1051 |
goto T360; |
goto T416; |
1052 |
goto T355; |
goto T411; |
1053 |
T355:; |
T411:; |
1054 |
V139= Cnil; |
V152= Cnil; |
1055 |
goto T356; |
goto T412; |
1056 |
T356:; |
T412:; |
1057 |
V140= Cnil; |
V153= Cnil; |
1058 |
goto T357; |
goto T413; |
1059 |
T357:; |
T413:; |
1060 |
V141= Cnil; |
V154= Cnil; |
1061 |
goto T358; |
goto T414; |
1062 |
T358:; |
T414:; |
1063 |
V142= Cnil; |
V155= Cnil; |
1064 |
goto T359; |
goto T415; |
1065 |
T359:; |
T415:; |
1066 |
V143= Cnil; |
V156= Cnil; |
1067 |
goto T360; |
goto T416; |
1068 |
T360:; |
T416:; |
1069 |
V184= append((V139),(V140)); |
V197= append((V152),(V153)); |
1070 |
V185= list(3,VV[86],VV[87],list(4,VV[85],VV[88],VV[89],make_cons(VV[90],(V141)))); |
V198= list(3,VV[93],VV[94],list(4,VV[92],VV[95],VV[96],make_cons(VV[97],(V154)))); |
1071 |
base[0]= (V142); |
base[0]= (V155); |
1072 |
base[1]= (V143); |
base[1]= (V156); |
1073 |
base[2]= (V138); |
base[2]= (V151); |
1074 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1075 |
Lappend(); |
Lappend(); |
1076 |
vs_top=sup; |
vs_top=sup; |
1077 |
V186= vs_base[0]; |
V199= vs_base[0]; |
1078 |
V187= make_cons(/* INLINE-ARGS */V185,V186); |
V200= make_cons(/* INLINE-ARGS */V198,V199); |
1079 |
{object V188 = listA(3,VV[85],/* INLINE-ARGS */V184,append((V137),/* INLINE-ARGS */V187)); |
{object V201 = listA(3,VV[92],/* INLINE-ARGS */V197,append((V150),/* INLINE-ARGS */V200)); |
1080 |
VMR13(V188)}} |
VMR14(V201)}} |
1081 |
base[0]=base[0]; |
base[0]=base[0]; |
1082 |
return Cnil; |
return Cnil; |
1083 |
} |
} |
1084 |
/* function definition for PARSE-METHOD-GROUP-SPECIFIER */ |
/* function definition for PARSE-METHOD-GROUP-SPECIFIER */ |
1085 |
|
|
1086 |
static void L15() |
static void L18() |
1087 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1088 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM15; VC15 |
1089 |
vs_check; |
vs_check; |
1090 |
{register object V189; |
{register object V202; |
1091 |
check_arg(1); |
check_arg(1); |
1092 |
V189=(base[0]); |
V202=(base[0]); |
1093 |
vs_top=sup; |
vs_top=sup; |
1094 |
goto TTL; |
goto TTL; |
1095 |
TTL:; |
TTL:; |
1096 |
{object V190; |
{object V203; |
1097 |
register object V191; |
register object V204; |
1098 |
object V192; |
object V205; |
1099 |
{object V193; |
{object V206; |
1100 |
V193= CMPcar((V189)); |
V206= CMPcar((V202)); |
1101 |
V189= CMPcdr((V189)); |
V202= CMPcdr((V202)); |
1102 |
V190= (V193);} |
V203= (V206);} |
1103 |
V191= Cnil; |
V204= Cnil; |
1104 |
{register object V194; |
{register object V207; |
1105 |
register object V195; |
register object V208; |
1106 |
V194= Cnil; |
V207= Cnil; |
1107 |
V195= Cnil; |
V208= Cnil; |
1108 |
goto T375; |
goto T431; |
1109 |
T375:; |
T431:; |
1110 |
if(((V189))==Cnil){ |
if(((V202))==Cnil){ |
1111 |
goto T377;} |
goto T433;} |
1112 |
{register object x= CMPcar((V189)),V196= VV[91]; |
{register object x= CMPcar((V202)),V209= VV[98]; |
1113 |
while(V196!=Cnil) |
while(V209!=Cnil) |
1114 |
if(x==(V196->c.c_car)){ |
if(x==(V209->c.c_car)){ |
1115 |
goto T381; |
goto T437; |
1116 |
}else V196=V196->c.c_cdr; |
}else V209=V209->c.c_cdr; |
1117 |
goto T378;} |
goto T434;} |
1118 |
goto T381; |
goto T437; |
1119 |
T381:; |
T437:; |
1120 |
goto T377; |
goto T433; |
1121 |
T377:; |
T433:; |
1122 |
goto T373; |
goto T429; |
1123 |
goto T378; |
goto T434; |
1124 |
T378:; |
T434:; |
1125 |
{register object V197; |
{register object V210; |
1126 |
{object V198; |
{object V211; |
1127 |
V198= CMPcar((V189)); |
V211= CMPcar((V202)); |
1128 |
V189= CMPcdr((V189)); |
V202= CMPcdr((V202)); |
1129 |
V197= (V198);} |
V210= (V211);} |
1130 |
V191= make_cons(V197,(V191)); |
V204= make_cons(V210,(V204)); |
1131 |
{register object V200; |
{register object V213; |
1132 |
V200= (*(LnkLI138))((V190),(V197)); |
V213= (*(LnkLI148))((V203),(V210)); |
1133 |
if(((V194))!=Cnil){ |
if(((V207))!=Cnil){ |
1134 |
goto T390;} |
goto T446;} |
1135 |
V195= make_cons((V200),Cnil); |
V208= make_cons((V213),Cnil); |
1136 |
V194= (V195); |
V207= (V208); |
1137 |
goto T376; |
goto T432; |
1138 |
goto T390; |
goto T446; |
1139 |
T390:; |
T446:; |
1140 |
V202= make_cons((V200),Cnil); |
V215= make_cons((V213),Cnil); |
1141 |
((V195))->c.c_cdr = /* INLINE-ARGS */V202; |
((V208))->c.c_cdr = /* INLINE-ARGS */V215; |
1142 |
V201= (V195); |
V214= (V208); |
1143 |
V195= CMPcdr(V201);}} |
V208= CMPcdr(V214);}} |
1144 |
goto T376; |
goto T432; |
1145 |
T376:; |
T432:; |
1146 |
goto T375; |
goto T431; |
1147 |
goto T373; |
goto T429; |
1148 |
T373:; |
T429:; |
1149 |
V192= (V194);} |
V205= (V207);} |
1150 |
base[3]= (V190); |
base[3]= (V203); |
1151 |
base[4]= (V192); |
base[4]= (V205); |
1152 |
base[6]= (V189); |
base[6]= (V202); |
1153 |
base[7]= VV[92]; |
base[7]= VV[99]; |
1154 |
base[8]= (*(LnkLI139))((V191)); |
base[8]= (*(LnkLI149))((V204)); |
1155 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1156 |
Lgetf(); |
Lgetf(); |
1157 |
vs_top=sup; |
vs_top=sup; |
1158 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1159 |
base[7]= (V189); |
base[7]= (V202); |
1160 |
base[8]= VV[93]; |
base[8]= VV[100]; |
1161 |
base[9]= VV[80]; |
base[9]= VV[88]; |
1162 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1163 |
Lgetf(); |
Lgetf(); |
1164 |
vs_top=sup; |
vs_top=sup; |
1165 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
1166 |
base[8]= (V189); |
base[8]= (V202); |
1167 |
base[9]= VV[94]; |
base[9]= VV[101]; |
1168 |
base[10]= Cnil; |
base[10]= Cnil; |
1169 |
vs_top=(vs_base=base+8)+3; |
vs_top=(vs_base=base+8)+3; |
1170 |
Lgetf(); |
Lgetf(); |
1176 |
} |
} |
1177 |
/* local entry for function PARSE-QUALIFIER-PATTERN */ |
/* local entry for function PARSE-QUALIFIER-PATTERN */ |
1178 |
|
|
1179 |
static object LI16(V205,V206) |
static object LI19(V218,V219) |
1180 |
|
|
1181 |
object V205;register object V206; |
object V218;register object V219; |
1182 |
{ VMB15 VMS15 VMV15 |
{ VMB16 VMS16 VMV16 |
1183 |
goto TTL; |
goto TTL; |
1184 |
TTL:; |
TTL:; |
1185 |
if(!(((V206))==(Cnil))){ |
if(!(((V219))==(Cnil))){ |
1186 |
goto T412;} |
goto T468;} |
1187 |
{object V207 = VV[95]; |
{object V220 = VV[102]; |
1188 |
VMR15(V207)} |
VMR16(V220)} |
1189 |
goto T412; |
goto T468; |
1190 |
T412:; |
T468:; |
1191 |
if(!(((V206))==(VV[96]))){ |
if(!(((V219))==(VV[103]))){ |
1192 |
goto T415;} |
goto T471;} |
1193 |
{object V208 = Ct; |
{object V221 = Ct; |
1194 |
VMR15(V208)} |
VMR16(V221)} |
1195 |
goto T415; |
goto T471; |
1196 |
T415:; |
T471:; |
1197 |
if(!(type_of((V206))==t_symbol)){ |
if(!(type_of((V219))==t_symbol)){ |
1198 |
goto T418;} |
goto T474;} |
1199 |
{object V209 = list(2,(V206),VV[97]); |
{object V222 = list(2,(V219),VV[104]); |
1200 |
VMR15(V209)} |
VMR16(V222)} |
1201 |
goto T418; |
goto T474; |
1202 |
T418:; |
T474:; |
1203 |
if(!(type_of((V206))==t_cons||((V206))==Cnil)){ |
if(!(type_of((V219))==t_cons||((V219))==Cnil)){ |
1204 |
goto T421;} |
goto T477;} |
1205 |
{object V210 = list(3,VV[98],list(2,VV[24],(V206)),VV[97]); |
{object V223 = list(3,VV[105],list(2,VV[31],(V219)),VV[104]); |
1206 |
VMR15(V210)} |
VMR16(V223)} |
1207 |
goto T421; |
goto T477; |
1208 |
T421:; |
T477:; |
1209 |
base[0]= VV[99]; |
base[0]= VV[106]; |
1210 |
base[1]= (V205); |
base[1]= (V218); |
1211 |
base[2]= (V206); |
base[2]= (V219); |
1212 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1213 |
Lerror(); |
Lerror(); |
1214 |
vs_top=sup; |
vs_top=sup; |
1215 |
{object V211 = vs_base[0]; |
{object V224 = vs_base[0]; |
1216 |
VMR15(V211)} |
VMR16(V224)} |
1217 |
base[0]=base[0]; |
base[0]=base[0]; |
1218 |
return Cnil; |
return Cnil; |
1219 |
} |
} |
1220 |
/* local entry for function QUALIFIER-CHECK-RUNTIME */ |
/* local entry for function QUALIFIER-CHECK-RUNTIME */ |
1221 |
|
|
1222 |
static object LI17(V214,V215) |
static object LI20(V227,V228) |
1223 |
|
|
1224 |
register object V214;register object V215; |
register object V227;register object V228; |
1225 |
{ VMB16 VMS16 VMV16 |
{ VMB17 VMS17 VMV17 |
1226 |
goto TTL; |
goto TTL; |
1227 |
TTL:; |
TTL:; |
1228 |
goto T427; |
goto T483; |
1229 |
T427:; |
T483:; |
1230 |
if(((V214))!=Cnil){ |
if(((V227))!=Cnil){ |
1231 |
goto T430;} |
goto T486;} |
1232 |
if(((V215))!=Cnil){ |
if(((V228))!=Cnil){ |
1233 |
goto T430;} |
goto T486;} |
1234 |
{object V216 = Ct; |
{object V229 = Ct; |
1235 |
VMR16(V216)} |
VMR17(V229)} |
1236 |
goto T430; |
goto T486; |
1237 |
T430:; |
T486:; |
1238 |
if(!(((V214))==(VV[96]))){ |
if(!(((V227))==(VV[103]))){ |
1239 |
goto T435;} |
goto T491;} |
1240 |
{object V217 = Ct; |
{object V230 = Ct; |
1241 |
VMR16(V217)} |
VMR17(V230)} |
1242 |
goto T435; |
goto T491; |
1243 |
T435:; |
T491:; |
1244 |
if(((V214))==Cnil){ |
if(((V227))==Cnil){ |
1245 |
goto T438;} |
goto T494;} |
1246 |
if(((V215))==Cnil){ |
if(((V228))==Cnil){ |
1247 |
goto T438;} |
goto T494;} |
1248 |
if(!((CMPcar((V214)))==(CMPcar((V215))))){ |
if(!((CMPcar((V227)))==(CMPcar((V228))))){ |
1249 |
goto T438;} |
goto T494;} |
1250 |
{register object V218; |
{register object V231; |
1251 |
V218= CMPcar((V214)); |
V231= CMPcar((V227)); |
1252 |
V214= CMPcdr((V214));} |
V227= CMPcdr((V227));} |
1253 |
{register object V219; |
{register object V232; |
1254 |
V219= CMPcar((V215)); |
V232= CMPcar((V228)); |
1255 |
V215= CMPcdr((V215)); |
V228= CMPcdr((V228)); |
1256 |
goto T428;} |
goto T484;} |
1257 |
goto T438; |
goto T494; |
1258 |
T438:; |
T494:; |
1259 |
{object V220 = Cnil; |
{object V233 = Cnil; |
1260 |
VMR16(V220)} |
VMR17(V233)} |
1261 |
goto T428; |
goto T484; |
1262 |
T428:; |
T484:; |
1263 |
goto T427; |
goto T483; |
1264 |
return Cnil; |
return Cnil; |
1265 |
} |
} |
1266 |
/* local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
/* local entry for function MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
1267 |
|
|
1268 |
static object LI18(V222) |
static object LI21(V235) |
1269 |
|
|
1270 |
register object V222; |
register object V235; |
1271 |
{ VMB17 VMS17 VMV17 |
{ VMB18 VMS18 VMV18 |
1272 |
goto TTL; |
goto TTL; |
1273 |
TTL:; |
TTL:; |
1274 |
if((CMPcdr((V222)))==Cnil){ |
if((CMPcdr((V235)))==Cnil){ |
1275 |
goto T453;} |
goto T509;} |
1276 |
base[0]= Cnil; |
base[0]= Cnil; |
1277 |
base[1]= VV[100]; |
base[1]= VV[107]; |
1278 |
base[3]= (V222); |
base[3]= (V235); |
1279 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1280 |
Lbutlast(); |
Lbutlast(); |
1281 |
vs_top=sup; |
vs_top=sup; |
1282 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1283 |
base[4]= (V222); |
base[4]= (V235); |
1284 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1285 |
Llast(); |
Llast(); |
1286 |
vs_top=sup; |
vs_top=sup; |
1287 |
V223= vs_base[0]; |
V236= vs_base[0]; |
1288 |
base[3]= CMPcar(V223); |
base[3]= CMPcar(V236); |
1289 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
1290 |
Lformat(); |
Lformat(); |
1291 |
vs_top=sup; |
vs_top=sup; |
1292 |
{object V224 = vs_base[0]; |
{object V237 = vs_base[0]; |
1293 |
VMR17(V224)} |
VMR18(V237)} |
1294 |
goto T453; |
goto T509; |
1295 |
T453:; |
T509:; |
1296 |
base[0]= Cnil; |
base[0]= Cnil; |
1297 |
base[1]= VV[101]; |
base[1]= VV[108]; |
1298 |
base[2]= CMPcar((V222)); |
base[2]= CMPcar((V235)); |
1299 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1300 |
Lformat(); |
Lformat(); |
1301 |
vs_top=sup; |
vs_top=sup; |
1302 |
{object V225 = vs_base[0]; |
{object V238 = vs_base[0]; |
1303 |
VMR17(V225)} |
VMR18(V238)} |
1304 |
base[0]=base[0]; |
base[0]=base[0]; |
1305 |
return Cnil; |
return Cnil; |
1306 |
} |
} |
1307 |
/* local entry for function DEAL-WITH-ARGUMENTS-OPTION */ |
/* local entry for function DEAL-WITH-ARGUMENTS-OPTION */ |
1308 |
|
|
1309 |
static object LI19(V228,V229) |
static object LI22(V241,V242) |
1310 |
|
|
1311 |
object V228;object V229; |
object V241;object V242; |
1312 |
{ VMB18 VMS18 VMV18 |
{ VMB19 VMS19 VMV19 |
1313 |
goto TTL; |
goto TTL; |
1314 |
TTL:; |
TTL:; |
|
{object V230; |
|
|
object V231; |
|
|
{register object V232; |
|
|
register object V233; |
|
|
V232= Cnil; |
|
|
V233= Cnil; |
|
|
{register object V234; |
|
|
register object V235; |
|
|
V234= (V229); |
|
|
V235= CMPcar((V234)); |
|
|
goto T472; |
|
|
T472:; |
|
|
if(!(((V234))==Cnil)){ |
|
|
goto T473;} |
|
|
goto T468; |
|
|
goto T473; |
|
|
T473:; |
|
|
{register object x= (V235),V236= VV[102]; |
|
|
while(V236!=Cnil) |
|
|
if(x==(V236->c.c_car)){ |
|
|
goto T480; |
|
|
}else V236=V236->c.c_cdr; |
|
|
goto T479;} |
|
|
goto T480; |
|
|
T480:; |
|
|
if(((V232))!=Cnil){ |
|
|
goto T482;} |
|
|
V233= make_cons(V235,Cnil); |
|
|
V232= (V233); |
|
|
goto T477; |
|
|
goto T482; |
|
|
T482:; |
|
|
V239= make_cons(V235,Cnil); |
|
|
((V233))->c.c_cdr = /* INLINE-ARGS */V239; |
|
|
V238= (V233); |
|
|
V233= CMPcdr(V238); |
|
|
goto T477; |
|
|
goto T479; |
|
|
T479:; |
|
|
{object V240; |
|
|
vs_base=vs_top; |
|
|
Lgensym(); |
|
|
vs_top=sup; |
|
|
V240= vs_base[0]; |
|
|
if(((V232))!=Cnil){ |
|
|
goto T490;} |
|
|
V233= make_cons((V240),Cnil); |
|
|
V232= (V233); |
|
|
goto T477; |
|
|
goto T490; |
|
|
T490:; |
|
|
V242= make_cons((V240),Cnil); |
|
|
((V233))->c.c_cdr = /* INLINE-ARGS */V242; |
|
|
V241= (V233); |
|
|
V233= CMPcdr(V241);} |
|
|
goto T477; |
|
|
T477:; |
|
|
V234= CMPcdr((V234)); |
|
|
V235= CMPcar((V234)); |
|
|
goto T472;} |
|
|
goto T468; |
|
|
T468:; |
|
|
V230= (V232);} |
|
1315 |
{object V243; |
{object V243; |
1316 |
register object V244; |
object V244; |
|
V243= Cnil; |
|
|
V244= Cnil; |
|
1317 |
{register object V245; |
{register object V245; |
1318 |
register object V246; |
register object V246; |
1319 |
register object V247; |
V245= Cnil; |
|
object V248; |
|
|
V245= (V229); |
|
1320 |
V246= Cnil; |
V246= Cnil; |
1321 |
V247= (V230); |
{register object V247; |
1322 |
V248= Cnil; |
register object V248; |
1323 |
goto T510; |
V247= (V242); |
1324 |
T510:; |
V248= CMPcar((V247)); |
1325 |
{object V249; |
goto T528; |
1326 |
if(!(((V245))==Cnil)){ |
T528:; |
|
goto T516;} |
|
|
goto T504; |
|
|
goto T516; |
|
|
T516:; |
|
|
V249= CMPcar((V245)); |
|
|
V245= CMPcdr((V245)); |
|
|
V246= (V249);} |
|
|
{object V250; |
|
1327 |
if(!(((V247))==Cnil)){ |
if(!(((V247))==Cnil)){ |
1328 |
goto T524;} |
goto T529;} |
|
goto T504; |
|
1329 |
goto T524; |
goto T524; |
1330 |
T524:; |
goto T529; |
1331 |
V250= CMPcar((V247)); |
T529:; |
1332 |
|
{register object x= (V248),V249= VV[109]; |
1333 |
|
while(V249!=Cnil) |
1334 |
|
if(x==(V249->c.c_car)){ |
1335 |
|
goto T536; |
1336 |
|
}else V249=V249->c.c_cdr; |
1337 |
|
goto T535;} |
1338 |
|
goto T536; |
1339 |
|
T536:; |
1340 |
|
if(((V245))!=Cnil){ |
1341 |
|
goto T538;} |
1342 |
|
V246= make_cons(V248,Cnil); |
1343 |
|
V245= (V246); |
1344 |
|
goto T533; |
1345 |
|
goto T538; |
1346 |
|
T538:; |
1347 |
|
V252= make_cons(V248,Cnil); |
1348 |
|
((V246))->c.c_cdr = /* INLINE-ARGS */V252; |
1349 |
|
V251= (V246); |
1350 |
|
V246= CMPcdr(V251); |
1351 |
|
goto T533; |
1352 |
|
goto T535; |
1353 |
|
T535:; |
1354 |
|
{object V253; |
1355 |
|
vs_base=vs_top; |
1356 |
|
Lgensym(); |
1357 |
|
vs_top=sup; |
1358 |
|
V253= vs_base[0]; |
1359 |
|
if(((V245))!=Cnil){ |
1360 |
|
goto T546;} |
1361 |
|
V246= make_cons((V253),Cnil); |
1362 |
|
V245= (V246); |
1363 |
|
goto T533; |
1364 |
|
goto T546; |
1365 |
|
T546:; |
1366 |
|
V255= make_cons((V253),Cnil); |
1367 |
|
((V246))->c.c_cdr = /* INLINE-ARGS */V255; |
1368 |
|
V254= (V246); |
1369 |
|
V246= CMPcdr(V254);} |
1370 |
|
goto T533; |
1371 |
|
T533:; |
1372 |
V247= CMPcdr((V247)); |
V247= CMPcdr((V247)); |
1373 |
V248= (V250);} |
V248= CMPcar((V247)); |
1374 |
{register object x= (V246),V251= VV[102]; |
goto T528;} |
1375 |
while(V251!=Cnil) |
goto T524; |
1376 |
if(x==(V251->c.c_car)){ |
T524:; |
1377 |
goto T511; |
V243= (V245);} |
|
}else V251=V251->c.c_cdr;} |
|
|
{object V252; |
|
|
V252= list(2,(V246),list(2,VV[24],(V248))); |
|
|
if(((V243))!=Cnil){ |
|
|
goto T532;} |
|
|
V244= make_cons((V252),Cnil); |
|
|
V243= (V244); |
|
|
goto T511; |
|
|
goto T532; |
|
|
T532:; |
|
|
V254= make_cons((V252),Cnil); |
|
|
((V244))->c.c_cdr = /* INLINE-ARGS */V254; |
|
|
V253= (V244); |
|
|
V244= CMPcdr(V253);} |
|
|
goto T511; |
|
|
T511:; |
|
|
goto T510;} |
|
|
goto T504; |
|
|
T504:; |
|
|
V231= (V243);} |
|
1378 |
{object V256; |
{object V256; |
1379 |
V256= append((V231),CMPcadr((V228))); |
register object V257; |
1380 |
(CMPcdr(V228))->c.c_car = (V256); |
V256= Cnil; |
1381 |
(void)(CMPcdr(V228));} |
V257= Cnil; |
1382 |
{object V257; |
{register object V258; |
1383 |
{register object x= VV[103],V258= (V230); |
register object V259; |
1384 |
while(V258!=Cnil) |
register object V260; |
1385 |
if(x==(V258->c.c_car)){ |
object V261; |
1386 |
V257= V258; |
V258= (V242); |
1387 |
goto T543; |
V259= Cnil; |
1388 |
}else V258=V258->c.c_cdr; |
V260= (V243); |
1389 |
V257= Cnil;} |
V261= Cnil; |
1390 |
goto T543; |
goto T566; |
1391 |
T543:; |
T566:; |
1392 |
if(((V257))==Cnil){ |
{object V262; |
1393 |
goto T545;} |
if(!(((V258))==Cnil)){ |
1394 |
goto T542; |
goto T572;} |
1395 |
goto T545; |
goto T560; |
1396 |
T545:; |
goto T572; |
1397 |
{object V259; |
T572:; |
1398 |
{register object x= VV[104],V260= (V230); |
V262= CMPcar((V258)); |
1399 |
while(V260!=Cnil) |
V258= CMPcdr((V258)); |
1400 |
if(x==(V260->c.c_car)){ |
V259= (V262);} |
1401 |
V259= V260; |
{object V263; |
1402 |
goto T547; |
if(!(((V260))==Cnil)){ |
1403 |
}else V260=V260->c.c_cdr; |
goto T580;} |
1404 |
V259= Cnil;} |
goto T560; |
1405 |
goto T547; |
goto T580; |
1406 |
T547:; |
T580:; |
1407 |
if(((V259))==Cnil){ |
V263= CMPcar((V260)); |
1408 |
goto T549;} |
V260= CMPcdr((V260)); |
1409 |
goto T542; |
V261= (V263);} |
1410 |
goto T549; |
{register object x= (V259),V264= VV[109]; |
1411 |
T549:; |
while(V264!=Cnil) |
1412 |
{register object x= VV[105],V261= (V230); |
if(x==(V264->c.c_car)){ |
1413 |
while(V261!=Cnil) |
goto T567; |
1414 |
if(x==(V261->c.c_car)){ |
}else V264=V264->c.c_cdr;} |
1415 |
goto T553; |
{object V265; |
1416 |
}else V261=V261->c.c_cdr; |
V265= list(2,(V259),list(2,VV[31],(V261))); |
1417 |
goto T552;} |
if(((V256))!=Cnil){ |
1418 |
goto T553; |
goto T588;} |
1419 |
T553:; |
V257= make_cons((V265),Cnil); |
1420 |
V230= append((V230),VV[106]); |
V256= (V257); |
1421 |
goto T542; |
goto T567; |
1422 |
goto T552; |
goto T588; |
1423 |
T552:; |
T588:; |
1424 |
V230= append((V230),VV[107]);}} |
V267= make_cons((V265),Cnil); |
1425 |
goto T542; |
((V257))->c.c_cdr = /* INLINE-ARGS */V267; |
1426 |
T542:; |
V266= (V257); |
1427 |
V262= list(2,VV[108],(V228)); |
V257= CMPcdr(V266);} |
1428 |
V263= make_cons(/* INLINE-ARGS */V262,Cnil); |
goto T567; |
1429 |
V264= list(2,VV[24],(V230)); |
T567:; |
1430 |
{register object x= VV[113],V266= (V230); |
goto T566;} |
1431 |
while(V266!=Cnil) |
goto T560; |
1432 |
if(x==(V266->c.c_car)){ |
T560:; |
1433 |
goto T559; |
V244= (V256);} |
1434 |
}else V266=V266->c.c_cdr; |
{object V269; |
1435 |
goto T558;} |
V269= append((V244),CMPcadr((V241))); |
1436 |
goto T559; |
(CMPcdr(V241))->c.c_car = (V269); |
1437 |
T559:; |
(void)(CMPcdr(V241));} |
1438 |
V265= VV[114]; |
{object V270; |
1439 |
goto T556; |
{register object x= VV[110],V271= (V243); |
1440 |
goto T558; |
while(V271!=Cnil) |
1441 |
T558:; |
if(x==(V271->c.c_car)){ |
1442 |
V265= Cnil; |
V270= V271; |
1443 |
goto T556; |
goto T599; |
1444 |
T556:; |
}else V271=V271->c.c_cdr; |
1445 |
{object V267 = list(3,VV[85],/* INLINE-ARGS */V263,list(4,VV[109],VV[110],list(3,VV[109],VV[111],list(5,VV[109],VV[112],/* INLINE-ARGS */V264,V265,VV[108])),VV[115])); |
V270= Cnil;} |
1446 |
VMR18(V267)}} |
goto T599; |
1447 |
|
T599:; |
1448 |
|
if(((V270))==Cnil){ |
1449 |
|
goto T601;} |
1450 |
|
goto T598; |
1451 |
|
goto T601; |
1452 |
|
T601:; |
1453 |
|
{object V272; |
1454 |
|
{register object x= VV[111],V273= (V243); |
1455 |
|
while(V273!=Cnil) |
1456 |
|
if(x==(V273->c.c_car)){ |
1457 |
|
V272= V273; |
1458 |
|
goto T603; |
1459 |
|
}else V273=V273->c.c_cdr; |
1460 |
|
V272= Cnil;} |
1461 |
|
goto T603; |
1462 |
|
T603:; |
1463 |
|
if(((V272))==Cnil){ |
1464 |
|
goto T605;} |
1465 |
|
goto T598; |
1466 |
|
goto T605; |
1467 |
|
T605:; |
1468 |
|
{register object x= VV[112],V274= (V243); |
1469 |
|
while(V274!=Cnil) |
1470 |
|
if(x==(V274->c.c_car)){ |
1471 |
|
goto T609; |
1472 |
|
}else V274=V274->c.c_cdr; |
1473 |
|
goto T608;} |
1474 |
|
goto T609; |
1475 |
|
T609:; |
1476 |
|
V243= append((V243),VV[113]); |
1477 |
|
goto T598; |
1478 |
|
goto T608; |
1479 |
|
T608:; |
1480 |
|
V243= append((V243),VV[114]);}} |
1481 |
|
goto T598; |
1482 |
|
T598:; |
1483 |
|
V275= list(2,VV[115],(V241)); |
1484 |
|
V276= make_cons(/* INLINE-ARGS */V275,Cnil); |
1485 |
|
V277= list(2,VV[31],(V243)); |
1486 |
|
{register object x= VV[120],V279= (V243); |
1487 |
|
while(V279!=Cnil) |
1488 |
|
if(x==(V279->c.c_car)){ |
1489 |
|
goto T615; |
1490 |
|
}else V279=V279->c.c_cdr; |
1491 |
|
goto T614;} |
1492 |
|
goto T615; |
1493 |
|
T615:; |
1494 |
|
V278= VV[121]; |
1495 |
|
goto T612; |
1496 |
|
goto T614; |
1497 |
|
T614:; |
1498 |
|
V278= Cnil; |
1499 |
|
goto T612; |
1500 |
|
T612:; |
1501 |
|
{object V280 = list(3,VV[92],/* INLINE-ARGS */V276,list(4,VV[116],VV[117],list(3,VV[116],VV[118],list(5,VV[116],VV[119],/* INLINE-ARGS */V277,V278,VV[115])),VV[122])); |
1502 |
|
VMR19(V280)}} |
1503 |
base[0]=base[0]; |
base[0]=base[0]; |
1504 |
return Cnil; |
return Cnil; |
1505 |
} |
} |
1506 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1507 |
|
|
1508 |
static void LC21(base0) |
static void LC24(base0) |
1509 |
register object *base0; |
register object *base0; |
1510 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1511 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM20; VC20 |
1512 |
vs_check; |
vs_check; |
1513 |
{object V268; |
{object V281; |
1514 |
object V269; |
object V282; |
1515 |
object V270; |
object V283; |
1516 |
check_arg(3); |
check_arg(3); |
1517 |
V268=(base[0]); |
V281=(base[0]); |
1518 |
V269=(base[1]); |
V282=(base[1]); |
1519 |
V270=(base[2]); |
V283=(base[2]); |
1520 |
vs_top=sup; |
vs_top=sup; |
1521 |
base[3]= VV[49]; |
base[3]= VV[57]; |
1522 |
base[4]= VV[38]; |
base[4]= VV[45]; |
1523 |
base[5]= (V269); |
base[5]= (V282); |
1524 |
base[6]= VV[17]; |
base[6]= VV[24]; |
1525 |
base[7]= (base0[0]->c.c_car); |
base[7]= (base0[0]->c.c_car); |
1526 |
base[8]= VV[39]; |
base[8]= VV[46]; |
1527 |
base[9]= (V270); |
base[9]= (V283); |
1528 |
vs_top=(vs_base=base+3)+7; |
vs_top=(vs_base=base+3)+7; |
1529 |
(void) (*Lnk126)(Lclptr126); |
(void) (*Lnk135)(Lclptr135); |
1530 |
return; |
return; |
1531 |
} |
} |
1532 |
} |
} |
1533 |
/* local function LOSE */ |
/* local function LOSE */ |
1534 |
|
|
1535 |
static void L8(base0) |
static void L11(base0) |
1536 |
register object *base0; |
register object *base0; |
1537 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1538 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM21; VC21 |
1539 |
vs_check; |
vs_check; |
1540 |
{register object V271; |
{register object V284; |
1541 |
object V272; |
object V285; |
1542 |
check_arg(2); |
check_arg(2); |
1543 |
V271=(base[0]); |
V284=(base[0]); |
1544 |
V272=(base[1]); |
V285=(base[1]); |
1545 |
vs_top=sup; |
vs_top=sup; |
1546 |
goto TTL; |
goto TTL; |
1547 |
TTL:; |
TTL:; |
1548 |
base[2]= (V271); |
base[2]= (V284); |
1549 |
base[3]= VV[44]; |
base[3]= VV[51]; |
1550 |
base[4]= (V271); |
base[4]= (V284); |
1551 |
base[5]= (V272); |
base[5]= (V285); |
1552 |
base[6]= base0[0]; |
base[6]= base0[0]; |
1553 |
base[7]= base0[0]; |
base[7]= base0[0]; |
1554 |
vs_top=(vs_base=base+2)+6; |
vs_top=(vs_base=base+2)+6; |
1555 |
(void) (*Lnk140)(); |
(void) (*Lnk150)(); |
1556 |
return; |
return; |
1557 |
} |
} |
1558 |
} |
} |
1559 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1560 |
|
|
1561 |
static void LC20(base0) |
static void LC23(base0) |
1562 |
register object *base0; |
register object *base0; |
1563 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1564 |
register object *sup=base+VM21; VC21 |
register object *sup=base+VM22; VC22 |
1565 |
vs_check; |
vs_check; |
1566 |
{object V273; |
{object V286; |
1567 |
object V274; |
object V287; |
1568 |
object V275; |
object V288; |
1569 |
check_arg(3); |
if(vs_top-vs_base<2) too_few_arguments(); |
1570 |
V273=(base[0]); |
V286=(base[0]); |
1571 |
V274=(base[1]); |
V287=(base[1]); |
1572 |
V275=(base[2]); |
vs_base=vs_base+2; |
1573 |
vs_top=sup; |
vs_top[0]=Cnil; |
1574 |
base[3]= (V274); |
{object *p=vs_top; |
1575 |
base[4]= (V275); |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1576 |
base[5]= (base0[3]->c.c_car); |
V288=(base[2]); |
1577 |
base[6]= (base0[2]->c.c_car); |
vs_top=sup; |
1578 |
base[7]= (base0[0]->c.c_car); |
ck_larg_exactly(3,V286); |
1579 |
base[8]= (base0[1]->c.c_car); |
base[3]=(V286)->c.c_car; |
1580 |
vs_top=(vs_base=base+3)+6; |
base[4]=((V286 |
1581 |
(void) (*Lnk141)(); |
)->c.c_cdr)->c.c_car; |
1582 |
|
base[5]=(((V286 |
1583 |
|
)->c.c_cdr |
1584 |
|
)->c.c_cdr)->c.c_car; |
1585 |
|
base[6]= base[4]; |
1586 |
|
base[7]= base[5]; |
1587 |
|
base[8]= (base0[3]->c.c_car); |
1588 |
|
base[9]= (base0[2]->c.c_car); |
1589 |
|
base[10]= (base0[0]->c.c_car); |
1590 |
|
base[11]= (base0[1]->c.c_car); |
1591 |
|
vs_top=(vs_base=base+6)+6; |
1592 |
|
(void) (*Lnk151)(); |
1593 |
|
return; |
1594 |
|
} |
1595 |
|
} |
1596 |
|
/* local function REAL-METHOD-COMBINATION-ERROR */ |
1597 |
|
|
1598 |
|
static void LC4(base0) |
1599 |
|
register object *base0; |
1600 |
|
{ register object *base=vs_base; |
1601 |
|
register object *sup=base+VM23; VC23 |
1602 |
|
vs_check; |
1603 |
|
{object V290; |
1604 |
|
object V291; |
1605 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
1606 |
|
V290=(base[0]); |
1607 |
|
vs_base=vs_base+1; |
1608 |
|
vs_top[0]=Cnil; |
1609 |
|
{object *p=vs_top; |
1610 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1611 |
|
V291=(base[1]); |
1612 |
|
vs_top=sup; |
1613 |
|
base[2]= (V290); |
1614 |
|
{object V292; |
1615 |
|
V292= (V291); |
1616 |
|
vs_top=base+3; |
1617 |
|
while(V292!=Cnil) |
1618 |
|
{vs_push((V292)->c.c_car);V292=(V292)->c.c_cdr;} |
1619 |
|
vs_base=base+2;} |
1620 |
|
Lerror(); |
1621 |
|
return; |
1622 |
|
} |
1623 |
|
} |
1624 |
|
/* local function REAL-INVALID-METHOD-ERROR */ |
1625 |
|
|
1626 |
|
static void LC3(base0) |
1627 |
|
register object *base0; |
1628 |
|
{ register object *base=vs_base; |
1629 |
|
register object *sup=base+VM24; VC24 |
1630 |
|
vs_check; |
1631 |
|
{object V293; |
1632 |
|
object V294; |
1633 |
|
object V295; |
1634 |
|
if(vs_top-vs_base<2) too_few_arguments(); |
1635 |
|
V293=(base[0]); |
1636 |
|
V294=(base[1]); |
1637 |
|
vs_base=vs_base+2; |
1638 |
|
vs_top[0]=Cnil; |
1639 |
|
{object *p=vs_top; |
1640 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1641 |
|
V295=(base[2]); |
1642 |
|
vs_top=sup; |
1643 |
|
base[3]= (V294); |
1644 |
|
{object V296; |
1645 |
|
V296= (V295); |
1646 |
|
vs_top=base+4; |
1647 |
|
while(V296!=Cnil) |
1648 |
|
{vs_push((V296)->c.c_car);V296=(V296)->c.c_cdr;} |
1649 |
|
vs_base=base+3;} |
1650 |
|
Lerror(); |
1651 |
return; |
return; |
1652 |
} |
} |
1653 |
} |
} |
1654 |
static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* DO-SHORT-METHOD-COMBINATION */ |
static void LnkT151(){ call_or_link(VV[151],(void **)(void *)&Lnk151);} /* DO-SHORT-METHOD-COMBINATION */ |
1655 |
static void LnkT140(){ call_or_link(VV[140],(void **)(void *)&Lnk140);} /* INVALID-METHOD-ERROR */ |
static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* INVALID-METHOD-ERROR */ |
1656 |
static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,1,first,ap);va_end(ap);return V1;} /* MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
static object LnkTLI149(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[149],(void **)(void *)&LnkLI149,1,first,ap);va_end(ap);return V1;} /* MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION */ |
1657 |
static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,2,first,ap);va_end(ap);return V1;} /* PARSE-QUALIFIER-PATTERN */ |
static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[148],(void **)(void *)&LnkLI148,2,first,ap);va_end(ap);return V1;} /* PARSE-QUALIFIER-PATTERN */ |
1658 |
static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* PARSE-METHOD-GROUP-SPECIFIER */ |
static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* PARSE-METHOD-GROUP-SPECIFIER */ |
1659 |
static object LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* DEAL-WITH-ARGUMENTS-OPTION */ |
static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,2,first,ap);va_end(ap);return V1;} /* DEAL-WITH-ARGUMENTS-OPTION */ |
1660 |
static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,3,first,ap);va_end(ap);return V1;} /* WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,3,first,ap);va_end(ap);return V1;} /* WRAP-METHOD-GROUP-SPECIFIER-BINDINGS */ |
1661 |
static void LnkT134(){ call_or_link(VV[134],(void **)(void *)&Lnk134);} /* EXTRACT-DECLARATIONS */ |
static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* EXTRACT-DECLARATIONS */ |
1662 |
static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
static void LnkT143(){ call_or_link(VV[143],(void **)(void *)&Lnk143);} /* MAKE-LONG-METHOD-COMBINATION-FUNCTION */ |
1663 |
static void LnkT132(ptr) object *ptr;{ call_or_link_closure(VV[132],(void **)(void *)&Lnk132,(void **)(void *)&Lclptr132);} /* METHOD-QUALIFIERS */ |
static void LnkT142(ptr) object *ptr;{ call_or_link_closure(VV[142],(void **)(void *)&Lnk142,(void **)(void *)&Lclptr142);} /* METHOD-QUALIFIERS */ |
1664 |
static void LnkT131(ptr) object *ptr;{ call_or_link_closure(VV[131],(void **)(void *)&Lnk131,(void **)(void *)&Lclptr131);} /* SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT */ |
static void LnkT141(ptr) object *ptr;{ call_or_link_closure(VV[141],(void **)(void *)&Lnk141,(void **)(void *)&Lclptr141);} /* METHOD-COMBINATION-OPTIONS */ |
1665 |
static void LnkT130(ptr) object *ptr;{ call_or_link_closure(VV[130],(void **)(void *)&Lnk130,(void **)(void *)&Lclptr130);} /* SHORT-COMBINATION-OPERATOR */ |
static void LnkT140(ptr) object *ptr;{ call_or_link_closure(VV[140],(void **)(void *)&Lnk140,(void **)(void *)&Lclptr140);} /* SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT */ |
1666 |
static void LnkT129(ptr) object *ptr;{ call_or_link_closure(VV[129],(void **)(void *)&Lnk129,(void **)(void *)&Lclptr129);} /* METHOD-COMBINATION-TYPE */ |
static void LnkT139(ptr) object *ptr;{ call_or_link_closure(VV[139],(void **)(void *)&Lnk139,(void **)(void *)&Lclptr139);} /* SHORT-COMBINATION-OPERATOR */ |
1667 |
static void LnkT126(ptr) object *ptr;{ call_or_link_closure(VV[126],(void **)(void *)&Lnk126,(void **)(void *)&Lclptr126);} /* MAKE-INSTANCE */ |
static void LnkT138(ptr) object *ptr;{ call_or_link_closure(VV[138],(void **)(void *)&Lnk138,(void **)(void *)&Lclptr138);} /* METHOD-COMBINATION-TYPE */ |
1668 |
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[124],(void **)(void *)&LnkLI124,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
static void LnkT135(ptr) object *ptr;{ call_or_link_closure(VV[135],(void **)(void *)&Lnk135,(void **)(void *)&Lclptr135);} /* MAKE-INSTANCE */ |
1669 |
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */ |
static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[133],(void **)(void *)&LnkLI133,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
1670 |
static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[122],(void **)(void *)&LnkLI122,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,1,first,ap);va_end(ap);return V1;} /* INTERN-EQL-SPECIALIZER */ |
1671 |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* LOAD-TRUENAME */ |
static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
1672 |
static object LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* LOAD-TRUENAME */ |
1673 |
static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* METHOD-COMBINATION-ERROR */ |
static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
1674 |
static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* EXPAND-SHORT-DEFCOMBIN */ |
static void LnkT127(){ call_or_link(VV[127],(void **)(void *)&Lnk127);} /* METHOD-COMBINATION-ERROR */ |
1675 |
static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* EXPAND-LONG-DEFCOMBIN */ |
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* TYPECASE-ERROR-STRING */ |
1676 |
|
static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* STRUCTURE-SUBTYPE-P */ |
1677 |
|
static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* EXPAND-SHORT-DEFCOMBIN */ |
1678 |
|
static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,1,first,ap);va_end(ap);return V1;} /* EXPAND-LONG-DEFCOMBIN */ |
1679 |
|
|
1680 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1681 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |