47 |
goto TTL; |
goto TTL; |
48 |
TTL:; |
TTL:; |
49 |
if(type_of(V27)==t_structure){ |
if(type_of(V27)==t_structure){ |
50 |
goto T13;} |
goto T10;} |
51 |
goto T11; |
goto T8; |
52 |
goto T13; |
goto T10; |
53 |
T13:; |
T10:; |
54 |
if(!(((V27)->str.str_def)==(VV[3]))){ |
if(!(((V27)->str.str_def)==(VV[3]))){ |
55 |
goto T11;} |
goto T8;} |
56 |
V30 = (V27); |
V30= Ct; |
57 |
V31 = (V28); |
STSET(object,(V27),0, (V28)); |
58 |
V32= Ct; |
{object V31 = (V28); |
59 |
STSET(object,V30,0, V31); |
VMR4(V31)} |
60 |
{object V33 = V31; |
goto T8; |
61 |
VMR4(V33)} |
T8:;{object V32; |
62 |
goto T11; |
V32= (VV[5]->s.s_dbind); |
|
T11:;{object V34; |
|
|
V34= (VV[5]->s.s_dbind); |
|
63 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
64 |
base[1]= (V27); |
base[1]= (V27); |
65 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
66 |
(void) (*Lnk41)(); |
(void) (*Lnk56)(); |
67 |
vs_top=sup; |
vs_top=sup; |
68 |
V35= vs_base[0]; |
V33= vs_base[0]; |
69 |
if(!((V34)==(CMPcar(V35)))){ |
if(!((V32)==(CMPcar(V33)))){ |
70 |
goto T16;}} |
goto T13;}} |
71 |
{object V36; |
{object V34; |
72 |
V36= ((V27))->cc.cc_turbo[13]; |
V34= ((V27))->cc.cc_turbo[13]; |
73 |
((V36))->c.c_car = V28; |
((V34))->c.c_car = V28; |
74 |
{object V38 = V28; |
{object V36 = V28; |
75 |
VMR4(V38)}} |
VMR4(V36)}} |
76 |
goto T16; |
goto T13; |
77 |
T16:; |
T13:; |
78 |
base[0]= VV[6]; |
base[0]= VV[6]; |
79 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
80 |
Lerror(); |
Lerror(); |
81 |
vs_top=sup; |
vs_top=sup; |
82 |
{object V39 = vs_base[0]; |
{object V37 = vs_base[0]; |
83 |
VMR4(V39)} |
VMR4(V37)} |
84 |
base[0]=base[0]; |
base[0]=base[0]; |
85 |
return Cnil; |
return Cnil; |
86 |
} |
} |
87 |
/* local entry for function SWAP-WRAPPERS-AND-SLOTS */ |
/* local entry for function SWAP-WRAPPERS-AND-SLOTS */ |
88 |
|
|
89 |
static object LI5(V42,V43) |
static object LI5(V40,V41) |
90 |
|
|
91 |
register object V42;register object V43; |
register object V40;register object V41; |
92 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
93 |
goto TTL; |
goto TTL; |
94 |
TTL:; |
TTL:; |
95 |
if(type_of(V42)==t_structure){ |
if(type_of(V40)==t_structure){ |
96 |
goto T27;} |
goto T24;} |
97 |
goto T25; |
goto T22; |
98 |
goto T27; |
goto T24; |
99 |
T27:; |
T24:; |
100 |
if(!(((V42)->str.str_def)==(VV[7]))){ |
if(!(((V40)->str.str_def)==(VV[7]))){ |
101 |
goto T25;} |
goto T22;} |
102 |
{object V45; |
{object V43; |
103 |
object V46; |
object V44; |
104 |
V45= STREF(object,(V42),0); |
V43= STREF(object,(V40),0); |
105 |
V46= STREF(object,(V42),4); |
V44= STREF(object,(V40),4); |
106 |
V47 = (V42); |
V45= Ct; |
107 |
|
STSET(object,(V40),0, STREF(object,(V41),0)); |
108 |
|
(void)(STREF(object,(V41),0)); |
109 |
|
V46= Ct; |
110 |
|
STSET(object,(V40),4, STREF(object,(V41),4)); |
111 |
|
(void)(STREF(object,(V41),4)); |
112 |
|
V47= Ct; |
113 |
|
STSET(object,(V41),0, (V43)); |
114 |
|
(void)((V43)); |
115 |
V48= Ct; |
V48= Ct; |
116 |
STSET(object,V47,0, STREF(object,(V43),0)); |
STSET(object,(V41),4, (V44)); |
117 |
(void)(STREF(object,(V43),0)); |
{object V49 = (V44); |
118 |
V49 = (V42); |
VMR5(V49)}} |
119 |
V50= Ct; |
goto T22; |
120 |
STSET(object,V49,4, STREF(object,(V43),4)); |
T22:;{object V50; |
121 |
(void)(STREF(object,(V43),4)); |
V50= (VV[5]->s.s_dbind); |
|
V51 = (V43); |
|
|
V52 = (V45); |
|
|
V53= Ct; |
|
|
STSET(object,V51,0, V52); |
|
|
(void)(V52); |
|
|
V54 = (V43); |
|
|
V55 = (V46); |
|
|
V56= Ct; |
|
|
STSET(object,V54,4, V55); |
|
|
{object V57 = V55; |
|
|
VMR5(V57)}} |
|
|
goto T25; |
|
|
T25:;{object V58; |
|
|
V58= (VV[5]->s.s_dbind); |
|
122 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
123 |
base[1]= (V42); |
base[1]= (V40); |
124 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
125 |
(void) (*Lnk41)(); |
(void) (*Lnk56)(); |
126 |
vs_top=sup; |
vs_top=sup; |
127 |
V59= vs_base[0]; |
V51= vs_base[0]; |
128 |
if(!((V58)==(CMPcar(V59)))){ |
if(!((V50)==(CMPcar(V51)))){ |
129 |
goto T35;}} |
goto T32;}} |
130 |
|
{object V52; |
131 |
|
object V53; |
132 |
|
V52= CMPcar(((V40))->cc.cc_turbo[13]); |
133 |
|
V53= CMPcar(((V40))->cc.cc_turbo[12]); |
134 |
|
{object V54; |
135 |
|
object V55; |
136 |
|
V54= ((V40))->cc.cc_turbo[13]; |
137 |
|
V55= CMPcar(((V41))->cc.cc_turbo[13]); |
138 |
|
((V54))->c.c_car = (V55);} |
139 |
|
{object V56; |
140 |
|
object V57; |
141 |
|
V56= ((V40))->cc.cc_turbo[12]; |
142 |
|
V57= CMPcar(((V41))->cc.cc_turbo[12]); |
143 |
|
((V56))->c.c_car = (V57);} |
144 |
|
{object V58; |
145 |
|
V58= ((V41))->cc.cc_turbo[13]; |
146 |
|
((V58))->c.c_car = V52;} |
147 |
{object V60; |
{object V60; |
148 |
object V61; |
V60= ((V41))->cc.cc_turbo[12]; |
149 |
V60= CMPcar(((V42))->cc.cc_turbo[13]); |
((V60))->c.c_car = V53; |
150 |
V61= CMPcar(((V42))->cc.cc_turbo[12]); |
{object V62 = V53; |
151 |
{object V62; |
VMR5(V62)}}} |
152 |
object V63; |
goto T32; |
153 |
V62= ((V42))->cc.cc_turbo[13]; |
T32:; |
|
V63= CMPcar(((V43))->cc.cc_turbo[13]); |
|
|
((V62))->c.c_car = (V63);} |
|
|
{object V64; |
|
|
object V65; |
|
|
V64= ((V42))->cc.cc_turbo[12]; |
|
|
V65= CMPcar(((V43))->cc.cc_turbo[12]); |
|
|
((V64))->c.c_car = (V65);} |
|
|
{object V66; |
|
|
V66= ((V43))->cc.cc_turbo[13]; |
|
|
((V66))->c.c_car = V60;} |
|
|
{object V68; |
|
|
V68= ((V43))->cc.cc_turbo[12]; |
|
|
((V68))->c.c_car = V61; |
|
|
{object V70 = V61; |
|
|
VMR5(V70)}}} |
|
|
goto T35; |
|
|
T35:; |
|
154 |
base[0]= VV[8]; |
base[0]= VV[8]; |
155 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
156 |
Lerror(); |
Lerror(); |
157 |
vs_top=sup; |
vs_top=sup; |
158 |
{object V71 = vs_base[0]; |
{object V63 = vs_base[0]; |
159 |
VMR5(V71)} |
VMR5(V63)} |
160 |
base[0]=base[0]; |
base[0]=base[0]; |
161 |
return Cnil; |
return Cnil; |
162 |
} |
} |
166 |
{register object *base=vs_base; |
{register object *base=vs_base; |
167 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
168 |
vs_check; |
vs_check; |
169 |
{object V72; |
{object V64; |
170 |
object V73; |
object V65; |
171 |
object V74; |
object V66; |
172 |
check_arg(3); |
check_arg(3); |
173 |
V72=(base[0]); |
V64=(base[0]); |
174 |
V73=(base[1]); |
V65=(base[1]); |
175 |
V74=(base[2]); |
V66=(base[2]); |
176 |
vs_top=sup; |
vs_top=sup; |
177 |
goto TTL; |
goto TTL; |
178 |
TTL:; |
TTL:; |
179 |
{object V75; |
{object V67; |
180 |
{register object x= (V74),V76= ((V73))->v.v_self[10]; |
{register object x= (V66),V68= ((V65))->v.v_self[10]; |
181 |
while(V76!=Cnil) |
while(V68!=Cnil) |
182 |
if(eql(x,V76->c.c_car->c.c_car) &&V76->c.c_car != Cnil){ |
if(eql(x,V68->c.c_car->c.c_car) &&V68->c.c_car != Cnil){ |
183 |
V75= (V76->c.c_car); |
V67= (V68->c.c_car); |
184 |
goto T56; |
goto T53; |
185 |
}else V76=V76->c.c_cdr; |
}else V68=V68->c.c_cdr; |
186 |
V75= Cnil;} |
V67= Cnil;} |
187 |
goto T56; |
goto T53; |
188 |
T56:; |
T53:; |
189 |
if(((V75))!=Cnil){ |
if(((V67))!=Cnil){ |
190 |
goto T58;} |
goto T55;} |
191 |
base[3]= ((V73))->v.v_self[11]; |
base[3]= ((V65))->v.v_self[11]; |
192 |
base[4]= (V72); |
base[4]= (V64); |
193 |
base[5]= (V74); |
base[5]= (V66); |
194 |
base[6]= VV[9]; |
base[6]= VV[9]; |
195 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
196 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk58)(Lclptr58); |
197 |
return; |
return; |
198 |
goto T58; |
goto T55; |
199 |
T58:; |
T55:; |
200 |
if(!((CMPcdr((V75)))==((VV[10]->s.s_dbind)))){ |
if(!((CMPcdr((V67)))==((VV[10]->s.s_dbind)))){ |
201 |
goto T65;} |
goto T62;} |
202 |
base[3]= ((V73))->v.v_self[11]; |
base[3]= ((V65))->v.v_self[11]; |
203 |
base[4]= (V72); |
base[4]= (V64); |
204 |
base[5]= (V74); |
base[5]= (V66); |
205 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
206 |
(void) (*Lnk44)(Lclptr44); |
(void) (*Lnk59)(Lclptr59); |
207 |
return; |
return; |
208 |
goto T65; |
goto T62; |
209 |
T65:; |
T62:; |
210 |
base[3]= CMPcdr((V75)); |
base[3]= CMPcdr((V67)); |
211 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
212 |
return;} |
return;} |
213 |
} |
} |
218 |
{register object *base=vs_base; |
{register object *base=vs_base; |
219 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
220 |
vs_check; |
vs_check; |
221 |
{object V77; |
{object V69; |
222 |
object V78; |
object V70; |
223 |
object V79; |
object V71; |
224 |
object V80; |
object V72; |
225 |
check_arg(4); |
check_arg(4); |
226 |
V77=(base[0]); |
V69=(base[0]); |
227 |
V78=(base[1]); |
V70=(base[1]); |
228 |
V79=(base[2]); |
V71=(base[2]); |
229 |
V80=(base[3]); |
V72=(base[3]); |
230 |
vs_top=sup; |
vs_top=sup; |
231 |
goto TTL; |
goto TTL; |
232 |
TTL:; |
TTL:; |
233 |
{object V81; |
{object V73; |
234 |
{register object x= (V80),V82= ((V79))->v.v_self[10]; |
{register object x= (V72),V74= ((V71))->v.v_self[10]; |
235 |
while(V82!=Cnil) |
while(V74!=Cnil) |
236 |
if(eql(x,V82->c.c_car->c.c_car) &&V82->c.c_car != Cnil){ |
if(eql(x,V74->c.c_car->c.c_car) &&V74->c.c_car != Cnil){ |
237 |
V81= (V82->c.c_car); |
V73= (V74->c.c_car); |
238 |
goto T70; |
goto T67; |
239 |
}else V82=V82->c.c_cdr; |
}else V74=V74->c.c_cdr; |
240 |
V81= Cnil;} |
V73= Cnil;} |
241 |
goto T70; |
goto T67; |
242 |
T70:; |
T67:; |
243 |
if(((V81))!=Cnil){ |
if(((V73))!=Cnil){ |
244 |
goto T72;} |
goto T69;} |
245 |
base[4]= ((V79))->v.v_self[11]; |
base[4]= ((V71))->v.v_self[11]; |
246 |
base[5]= (V78); |
base[5]= (V70); |
247 |
base[6]= (V80); |
base[6]= (V72); |
248 |
base[7]= VV[11]; |
base[7]= VV[11]; |
249 |
base[8]= (V77); |
base[8]= (V69); |
250 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
251 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk58)(Lclptr58); |
252 |
return; |
return; |
253 |
goto T72; |
goto T69; |
254 |
T72:; |
T69:; |
255 |
(V81)->c.c_cdr = V77; |
(V73)->c.c_cdr = V69; |
256 |
base[4]= V77; |
base[4]= V69; |
257 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
258 |
return;} |
return;} |
259 |
} |
} |
264 |
{register object *base=vs_base; |
{register object *base=vs_base; |
265 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM8; VC8 |
266 |
vs_check; |
vs_check; |
267 |
{object V85; |
{object V77; |
268 |
object V86; |
object V78; |
269 |
object V87; |
register object V79; |
270 |
object V88; |
object V80; |
271 |
check_arg(4); |
check_arg(4); |
272 |
V85=(base[0]); |
V77=(base[0]); |
273 |
V86=(base[1]); |
V78=(base[1]); |
274 |
V87=(base[2]); |
V79=(base[2]); |
275 |
V88=(base[3]); |
V80=(base[3]); |
276 |
vs_top=sup; |
vs_top=sup; |
277 |
goto TTL; |
goto TTL; |
278 |
TTL:; |
TTL:; |
279 |
{object V90; |
{object V82; |
280 |
object V91; |
object V83; |
281 |
base[4]= (V87); |
base[4]= (V79); |
282 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
283 |
(void) (*Lnk45)(Lclptr45); |
(void) (*Lnk60)(Lclptr60); |
284 |
vs_top=sup; |
vs_top=sup; |
285 |
V90= vs_base[0]; |
V82= vs_base[0]; |
286 |
base[4]= (V87); |
base[4]= (V79); |
287 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
288 |
(void) (*Lnk46)(Lclptr46); |
(void) (*Lnk61)(Lclptr61); |
289 |
vs_top=sup; |
vs_top=sup; |
290 |
V91= vs_base[0]; |
V83= vs_base[0]; |
291 |
base[4]= (V91); |
base[4]= (V83); |
292 |
base[5]= (V90); |
base[5]= (V82); |
293 |
base[6]= (V88); |
base[6]= (V80); |
294 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
295 |
(void) (*Lnk47)(); |
(void) (*Lnk62)(); |
296 |
return;} |
return;} |
297 |
} |
} |
298 |
} |
} |
302 |
{register object *base=vs_base; |
{register object *base=vs_base; |
303 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM9; VC9 |
304 |
vs_check; |
vs_check; |
305 |
{object V92; |
{object V84; |
306 |
object V93; |
object V85; |
307 |
object V94; |
object V86; |
308 |
object V95; |
register object V87; |
309 |
object V96; |
object V88; |
310 |
check_arg(5); |
check_arg(5); |
311 |
V92=(base[0]); |
V84=(base[0]); |
312 |
V93=(base[1]); |
V85=(base[1]); |
313 |
V94=(base[2]); |
V86=(base[2]); |
314 |
V95=(base[3]); |
V87=(base[3]); |
315 |
V96=(base[4]); |
V88=(base[4]); |
316 |
vs_top=sup; |
vs_top=sup; |
317 |
goto TTL; |
goto TTL; |
318 |
TTL:; |
TTL:; |
319 |
{object V98; |
{object V90; |
320 |
object V99; |
object V91; |
321 |
base[5]= (V95); |
base[5]= (V87); |
322 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
323 |
(void) (*Lnk45)(Lclptr45); |
(void) (*Lnk60)(Lclptr60); |
324 |
vs_top=sup; |
vs_top=sup; |
325 |
V98= vs_base[0]; |
V90= vs_base[0]; |
326 |
base[5]= (V95); |
base[5]= (V87); |
327 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
328 |
(void) (*Lnk46)(Lclptr46); |
(void) (*Lnk61)(Lclptr61); |
329 |
vs_top=sup; |
vs_top=sup; |
330 |
V99= vs_base[0]; |
V91= vs_base[0]; |
331 |
base[5]= (V94); |
base[5]= (V86); |
332 |
base[6]= (V99); |
base[6]= (V91); |
333 |
base[7]= (V98); |
base[7]= (V90); |
334 |
base[8]= (V96); |
base[8]= (V88); |
335 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
336 |
(void) (*Lnk48)(); |
(void) (*Lnk63)(); |
337 |
return;} |
return;} |
338 |
} |
} |
339 |
} |
} |
340 |
/* local entry for function FIND-SLOT-DEFINITION */ |
/* local entry for function FIND-SLOT-DEFINITION */ |
341 |
|
|
342 |
static object LI10(V102,V103) |
static object LI10(V94,V95) |
343 |
|
|
344 |
object V102;register object V103; |
object V94;register object V95; |
345 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
346 |
goto TTL; |
goto TTL; |
347 |
TTL:; |
TTL:; |
348 |
{register object V104; |
{register object V96; |
349 |
register object V105; |
register object V97; |
350 |
base[2]= (V102); |
base[2]= (V94); |
351 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
352 |
(void) (*Lnk49)(Lclptr49); |
(void) (*Lnk64)(Lclptr64); |
353 |
vs_top=sup; |
vs_top=sup; |
354 |
V104= vs_base[0]; |
V96= vs_base[0]; |
355 |
V105= CMPcar((V104)); |
V97= CMPcar((V96)); |
356 |
goto T105; |
goto T100; |
357 |
T105:; |
T100:; |
358 |
if(!(((V104))==Cnil)){ |
if(!(((V96))==Cnil)){ |
359 |
goto T106;} |
goto T101;} |
360 |
{object V106 = Cnil; |
{object V98 = Cnil; |
361 |
VMR10(V106)} |
VMR10(V98)} |
362 |
goto T106; |
goto T101; |
363 |
T106:; |
T101:; |
364 |
V107 = (V103); |
base[2]= (V97); |
|
base[2]= (V105); |
|
365 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
366 |
(void) (*Lnk50)(Lclptr50); |
(void) (*Lnk65)(Lclptr65); |
367 |
vs_top=sup; |
vs_top=sup; |
368 |
V108= vs_base[0]; |
V99= vs_base[0]; |
369 |
if(!(eql(V107,V108))){ |
if(!(eql((V95),V99))){ |
|
goto T110;} |
|
|
{object V109 = (V105); |
|
|
VMR10(V109)} |
|
|
goto T110; |
|
|
T110:; |
|
|
V104= CMPcdr((V104)); |
|
|
V105= CMPcar((V104)); |
|
370 |
goto T105;} |
goto T105;} |
371 |
|
{object V100 = (V97); |
372 |
|
VMR10(V100)} |
373 |
|
goto T105; |
374 |
|
T105:; |
375 |
|
V96= CMPcdr((V96)); |
376 |
|
V97= CMPcar((V96)); |
377 |
|
goto T100;} |
378 |
base[0]=base[0]; |
base[0]=base[0]; |
379 |
return Cnil; |
return Cnil; |
380 |
} |
} |
384 |
{register object *base=vs_base; |
{register object *base=vs_base; |
385 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
386 |
vs_check; |
vs_check; |
387 |
{object V110; |
{object V101; |
388 |
object V111; |
object V102; |
389 |
check_arg(2); |
check_arg(2); |
390 |
V110=(base[0]); |
V101=(base[0]); |
391 |
V111=(base[1]); |
V102=(base[1]); |
392 |
vs_top=sup; |
vs_top=sup; |
393 |
goto TTL; |
goto TTL; |
394 |
TTL:; |
TTL:; |
395 |
{object V112; |
{object V103; |
396 |
object V113; |
object V104; |
397 |
V112= (*(LnkLI51))((V110)); |
V103= (*(LnkLI66))((V101)); |
398 |
V113= (*(LnkLI52))((V112),(V111)); |
V104= (*(LnkLI67))((V103),(V102)); |
399 |
if(((V113))!=Cnil){ |
if(((V104))!=Cnil){ |
400 |
goto T123;} |
goto T118;} |
401 |
base[4]= (V112); |
base[4]= (V103); |
402 |
base[5]= (V110); |
base[5]= (V101); |
403 |
base[6]= (V111); |
base[6]= (V102); |
404 |
base[7]= VV[9]; |
base[7]= VV[9]; |
405 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
406 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk58)(Lclptr58); |
407 |
return; |
return; |
408 |
goto T123; |
goto T118; |
409 |
T123:; |
T118:; |
410 |
base[4]= (V112); |
base[4]= (V103); |
411 |
base[5]= (V110); |
base[5]= (V101); |
412 |
base[6]= (V113); |
base[6]= (V104); |
413 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
414 |
(void) (*Lnk18)(Lclptr18); |
(void) (*Lnk18)(Lclptr18); |
415 |
return;} |
return;} |
421 |
{register object *base=vs_base; |
{register object *base=vs_base; |
422 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
423 |
vs_check; |
vs_check; |
424 |
{object V114; |
{object V105; |
425 |
object V115; |
object V106; |
426 |
object V116; |
object V107; |
427 |
check_arg(3); |
check_arg(3); |
428 |
V114=(base[0]); |
V105=(base[0]); |
429 |
V115=(base[1]); |
V106=(base[1]); |
430 |
V116=(base[2]); |
V107=(base[2]); |
431 |
vs_top=sup; |
vs_top=sup; |
432 |
goto TTL; |
goto TTL; |
433 |
TTL:; |
TTL:; |
434 |
{object V117; |
{object V108; |
435 |
object V118; |
object V109; |
436 |
V117= (*(LnkLI51))((V114)); |
V108= (*(LnkLI66))((V105)); |
437 |
V118= (*(LnkLI52))((V117),(V115)); |
V109= (*(LnkLI67))((V108),(V106)); |
438 |
if(((V118))!=Cnil){ |
if(((V109))!=Cnil){ |
439 |
goto T135;} |
goto T130;} |
440 |
base[5]= (V117); |
base[5]= (V108); |
441 |
base[6]= (V114); |
base[6]= (V105); |
442 |
base[7]= (V115); |
base[7]= (V106); |
443 |
base[8]= VV[11]; |
base[8]= VV[11]; |
444 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
445 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk58)(Lclptr58); |
446 |
return; |
return; |
447 |
goto T135; |
goto T130; |
448 |
T135:; |
T130:; |
449 |
base[5]= ({object _tmp=get(VV[18],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[18])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[18])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
base[5]= ({object _tmp=get(VV[18],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[18])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[18])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
450 |
base[6]= V116; |
base[6]= V107; |
451 |
base[7]= V117; |
base[7]= V108; |
452 |
base[8]= V114; |
base[8]= V105; |
453 |
base[9]= V118; |
base[9]= V109; |
454 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
455 |
{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)) |
456 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
465 |
{register object *base=vs_base; |
{register object *base=vs_base; |
466 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
467 |
vs_check; |
vs_check; |
468 |
{object V123; |
{object V114; |
469 |
object V124; |
object V115; |
470 |
check_arg(2); |
check_arg(2); |
471 |
V123=(base[0]); |
V114=(base[0]); |
472 |
V124=(base[1]); |
V115=(base[1]); |
473 |
vs_top=sup; |
vs_top=sup; |
474 |
goto TTL; |
goto TTL; |
475 |
TTL:; |
TTL:; |
476 |
{object V125; |
{object V116; |
477 |
object V126; |
object V117; |
478 |
V125= (*(LnkLI51))((V123)); |
V116= (*(LnkLI66))((V114)); |
479 |
V126= (*(LnkLI52))((V125),(V124)); |
V117= (*(LnkLI67))((V116),(V115)); |
480 |
if(((V126))!=Cnil){ |
if(((V117))!=Cnil){ |
481 |
goto T149;} |
goto T144;} |
482 |
base[4]= (V125); |
base[4]= (V116); |
483 |
base[5]= (V123); |
base[5]= (V114); |
484 |
base[6]= (V124); |
base[6]= (V115); |
485 |
base[7]= VV[12]; |
base[7]= VV[12]; |
486 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
487 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk58)(Lclptr58); |
488 |
return; |
return; |
489 |
goto T149; |
goto T144; |
490 |
T149:; |
T144:; |
491 |
base[4]= (V125); |
base[4]= (V116); |
492 |
base[5]= (V123); |
base[5]= (V114); |
493 |
base[6]= (V126); |
base[6]= (V117); |
494 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
495 |
(void) (*Lnk26)(Lclptr26); |
(void) (*Lnk28)(Lclptr28); |
496 |
return;} |
return;} |
497 |
} |
} |
498 |
} |
} |
502 |
{register object *base=vs_base; |
{register object *base=vs_base; |
503 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
504 |
vs_check; |
vs_check; |
505 |
{object V127; |
{object V118; |
506 |
object V128; |
object V119; |
507 |
check_arg(2); |
check_arg(2); |
508 |
V127=(base[0]); |
V118=(base[0]); |
509 |
V128=(base[1]); |
V119=(base[1]); |
510 |
vs_top=sup; |
vs_top=sup; |
511 |
goto TTL; |
goto TTL; |
512 |
TTL:; |
TTL:; |
513 |
{object V129; |
{object V120; |
514 |
object V130; |
object V121; |
515 |
V129= (*(LnkLI51))((V127)); |
V120= (*(LnkLI66))((V118)); |
516 |
V130= (*(LnkLI52))((V129),(V128)); |
V121= (*(LnkLI67))((V120),(V119)); |
517 |
if(((V130))!=Cnil){ |
if(((V121))!=Cnil){ |
518 |
goto T161;} |
goto T156;} |
519 |
base[4]= (V129); |
base[4]= (V120); |
520 |
base[5]= (V127); |
base[5]= (V118); |
521 |
base[6]= (V128); |
base[6]= (V119); |
522 |
base[7]= VV[13]; |
base[7]= VV[13]; |
523 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
524 |
(void) (*Lnk43)(Lclptr43); |
(void) (*Lnk58)(Lclptr58); |
525 |
return; |
return; |
526 |
goto T161; |
goto T156; |
527 |
T161:; |
T156:; |
528 |
base[4]= (V129); |
base[4]= (V120); |
529 |
base[5]= (V127); |
base[5]= (V118); |
530 |
base[6]= (V130); |
base[6]= (V121); |
531 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
532 |
(void) (*Lnk30)(Lclptr30); |
(void) (*Lnk33)(Lclptr33); |
533 |
return;} |
return;} |
534 |
} |
} |
535 |
} |
} |
536 |
/* local entry for function SLOT-EXISTS-P */ |
/* local entry for function SLOT-EXISTS-P */ |
537 |
|
|
538 |
static object LI15(V133,V134) |
static object LI15(V124,V125) |
539 |
|
|
540 |
object V133;object V134; |
object V124;object V125; |
541 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
542 |
goto TTL; |
goto TTL; |
543 |
TTL:; |
TTL:; |
544 |
{object V135; |
{object V126; |
545 |
V135= (*(LnkLI51))((V133)); |
V126= (*(LnkLI66))((V124)); |
546 |
V136= (*(LnkLI52))((V135),(V134)); |
V127= (*(LnkLI67))((V126),(V125)); |
547 |
{object V137 = ((((/* INLINE-ARGS */V136)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V128 = ((((/* INLINE-ARGS */V127)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
548 |
VMR15(V137)}} |
VMR15(V128)}} |
549 |
return Cnil; |
return Cnil; |
550 |
} |
} |
551 |
/* function definition for SLOT-VALUE-OR-DEFAULT */ |
/* function definition for SLOT-VALUE-OR-DEFAULT */ |
554 |
{register object *base=vs_base; |
{register object *base=vs_base; |
555 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
556 |
vs_check; |
vs_check; |
557 |
{object V138; |
{object V129; |
558 |
object V139; |
object V130; |
559 |
object V140; |
object V131; |
560 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
561 |
if(vs_top-vs_base>3) too_many_arguments(); |
if(vs_top-vs_base>3) too_many_arguments(); |
562 |
V138=(base[0]); |
V129=(base[0]); |
563 |
V139=(base[1]); |
V130=(base[1]); |
564 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
565 |
if(vs_base>=vs_top){vs_top=sup;goto T171;} |
if(vs_base>=vs_top){vs_top=sup;goto T166;} |
566 |
V140=(base[2]); |
V131=(base[2]); |
567 |
vs_top=sup; |
vs_top=sup; |
568 |
goto T172; |
goto T167; |
569 |
goto T171; |
goto T166; |
570 |
T171:; |
T166:; |
571 |
V140= VV[14]; |
V131= VV[14]; |
572 |
goto T172; |
goto T167; |
573 |
T172:; |
T167:; |
574 |
base[3]= (V138); |
base[3]= (V129); |
575 |
base[4]= (V139); |
base[4]= (V130); |
576 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
577 |
(void) (*Lnk12)(); |
(void) (*Lnk12)(); |
578 |
vs_top=sup; |
vs_top=sup; |
579 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
580 |
goto T175;} |
goto T170;} |
581 |
base[3]= (V138); |
base[3]= (V129); |
582 |
base[4]= (V139); |
base[4]= (V130); |
583 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
584 |
(void) (*Lnk9)(); |
(void) (*Lnk9)(); |
585 |
return; |
return; |
586 |
goto T175; |
goto T170; |
587 |
T175:; |
T170:; |
588 |
base[3]= (V140); |
base[3]= (V131); |
589 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
590 |
return; |
return; |
591 |
} |
} |
592 |
} |
} |
593 |
/* local entry for function STANDARD-INSTANCE-ACCESS */ |
/* local entry for function STANDARD-INSTANCE-ACCESS */ |
594 |
|
|
595 |
static object LI17(V143,V144) |
static object LI17(V134,V135) |
596 |
|
|
597 |
object V143;object V144; |
object V134;object V135; |
598 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
599 |
goto TTL; |
goto TTL; |
600 |
TTL:; |
TTL:; |
601 |
{object V145 = (STREF(object,(V143),4))->v.v_self[fix((V144))]; |
{object V136 = (STREF(object,(V134),4))->v.v_self[fix((V135))]; |
602 |
VMR17(V145)} |
VMR17(V136)} |
603 |
return Cnil; |
return Cnil; |
604 |
} |
} |
605 |
/* local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS */ |
/* local entry for function FUNCALLABLE-STANDARD-INSTANCE-ACCESS */ |
606 |
|
|
607 |
static object LI18(V148,V149) |
static object LI18(V139,V140) |
608 |
|
|
609 |
object V148;object V149; |
object V139;object V140; |
610 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
611 |
goto TTL; |
goto TTL; |
612 |
TTL:; |
TTL:; |
613 |
{object V150 = (CMPcar(((V148))->cc.cc_turbo[12]))->v.v_self[fix((V149))]; |
{object V141 = (CMPcar(((V139))->cc.cc_turbo[12]))->v.v_self[fix((V140))]; |
614 |
VMR18(V150)} |
VMR18(V141)} |
615 |
return Cnil; |
return Cnil; |
616 |
} |
} |
617 |
/* function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* function definition for (FAST-METHOD SLOT-VALUE-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
620 |
{register object *base=vs_base; |
{register object *base=vs_base; |
621 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
622 |
vs_check; |
vs_check; |
623 |
{object V151; |
{object V142; |
624 |
object V152; |
object V143; |
625 |
object V153; |
object V144; |
626 |
register object V154; |
register object V145; |
627 |
register object V155; |
register object V146; |
628 |
check_arg(5); |
check_arg(5); |
629 |
V151=(base[0]); |
V142=(base[0]); |
630 |
V152=(base[1]); |
V143=(base[1]); |
631 |
V153=(base[2]); |
V144=(base[2]); |
632 |
V154=(base[3]); |
V145=(base[3]); |
633 |
V155=(base[4]); |
V146=(base[4]); |
634 |
vs_top=sup; |
vs_top=sup; |
635 |
goto TTL; |
goto TTL; |
636 |
TTL:; |
TTL:; |
637 |
{register object V157; |
{register object V148; |
638 |
object V158; |
object V149; |
639 |
base[7]= (V155); |
base[7]= (V146); |
640 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
641 |
(void) (*Lnk53)(Lclptr53); |
(void) (*Lnk68)(Lclptr68); |
642 |
vs_top=sup; |
vs_top=sup; |
643 |
V157= vs_base[0]; |
V148= vs_base[0]; |
644 |
{register object V159; |
{register object V150; |
645 |
V159= (V157); |
V150= (V148); |
646 |
if(!(type_of((V159))==t_fixnum)){ |
if(!(type_of((V150))==t_fixnum)){ |
647 |
goto T190;} |
goto T182;} |
648 |
if(type_of(V154)==t_structure){ |
if(type_of(V145)==t_structure){ |
649 |
goto T195;} |
goto T187;} |
650 |
goto T193; |
goto T185; |
651 |
goto T195; |
goto T187; |
652 |
T195:; |
T187:; |
653 |
if(!(((V154)->str.str_def)==(VV[15]))){ |
if(!(((V145)->str.str_def)==(VV[19]))){ |
654 |
goto T193;} |
goto T185;} |
655 |
if((Ct)==((STREF(object,(V154),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V145),0))->v.v_self[8])){ |
656 |
goto T197;} |
goto T189;} |
657 |
(void)((*(LnkLI54))((V154))); |
(void)((*(LnkLI69))((V145))); |
658 |
goto T197; |
goto T189; |
659 |
T197:; |
T189:; |
660 |
V158= (STREF(object,(V154),4))->v.v_self[fix((V157))]; |
V149= (STREF(object,(V145),4))->v.v_self[fix((V148))]; |
661 |
goto T188; |
goto T180; |
662 |
goto T193; |
goto T185; |
663 |
T193:;{object V161; |
T185:;{object V152; |
664 |
V161= (VV[5]->s.s_dbind); |
V152= (VV[5]->s.s_dbind); |
665 |
base[7]= small_fixnum(14); |
base[7]= small_fixnum(14); |
666 |
base[8]= (V154); |
base[8]= (V145); |
667 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
668 |
(void) (*Lnk41)(); |
(void) (*Lnk56)(); |
669 |
vs_top=sup; |
vs_top=sup; |
670 |
V162= vs_base[0]; |
V153= vs_base[0]; |
671 |
if(!((V161)==(CMPcar(V162)))){ |
if(!((V152)==(CMPcar(V153)))){ |
672 |
goto T201;}} |
goto T193;}} |
673 |
if((Ct)==((CMPcar(((V154))->cc.cc_turbo[13]))->v.v_self[8])){ |
if((Ct)==((CMPcar(((V145))->cc.cc_turbo[13]))->v.v_self[8])){ |
674 |
goto T206;} |
goto T198;} |
675 |
(void)((*(LnkLI54))((V154))); |
(void)((*(LnkLI69))((V145))); |
676 |
goto T206; |
goto T198; |
677 |
T206:; |
T198:; |
678 |
V158= (CMPcar(((V154))->cc.cc_turbo[12]))->v.v_self[fix((V157))]; |
V149= (CMPcar(((V145))->cc.cc_turbo[12]))->v.v_self[fix((V148))]; |
679 |
goto T188; |
goto T180; |
680 |
goto T201; |
goto T193; |
681 |
T201:; |
T193:; |
682 |
base[7]= VV[16]; |
base[7]= VV[16]; |
683 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
684 |
Lerror(); |
Lerror(); |
685 |
vs_top=sup; |
vs_top=sup; |
686 |
V158= vs_base[0]; |
V149= vs_base[0]; |
687 |
goto T188; |
goto T180; |
688 |
goto T190; |
goto T182; |
689 |
T190:; |
T182:; |
690 |
if(!(type_of((V159))==t_cons)){ |
if(!(type_of((V150))==t_cons)){ |
691 |
goto T211;} |
goto T203;} |
692 |
V158= CMPcdr((V157)); |
V149= CMPcdr((V148)); |
693 |
goto T188; |
goto T180; |
694 |
goto T211; |
goto T203; |
695 |
T211:; |
T203:; |
696 |
base[7]= VV[17]; |
base[7]= VV[17]; |
697 |
base[8]= (V155); |
base[8]= (V146); |
698 |
base[9]= VV[18]; |
base[9]= VV[18]; |
699 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
700 |
Lerror(); |
Lerror(); |
701 |
vs_top=sup; |
vs_top=sup; |
702 |
V158= vs_base[0];} |
V149= vs_base[0];} |
703 |
goto T188; |
goto T180; |
704 |
T188:; |
T180:; |
705 |
if(!(((V158))==((VV[10]->s.s_dbind)))){ |
if(!(((V149))==((VV[10]->s.s_dbind)))){ |
706 |
goto T217;} |
goto T209;} |
707 |
base[7]= (V153); |
base[7]= (V144); |
708 |
base[8]= (V154); |
base[8]= (V145); |
709 |
base[10]= (V155); |
base[10]= (V146); |
710 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
711 |
(void) (*Lnk50)(Lclptr50); |
(void) (*Lnk65)(Lclptr65); |
712 |
vs_top=sup; |
vs_top=sup; |
713 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
714 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
715 |
(void) (*Lnk44)(Lclptr44); |
(void) (*Lnk59)(Lclptr59); |
716 |
return; |
return; |
717 |
goto T217; |
goto T209; |
718 |
T217:; |
T209:; |
719 |
base[7]= (V158); |
base[7]= (V149); |
720 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
721 |
return;} |
return;} |
722 |
} |
} |
723 |
} |
} |
724 |
/* local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD (SETF SLOT-VALUE-USING-CLASS) (T STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
725 |
|
|
726 |
static object LI20(V169,V170,V171,V172,V173,V174) |
static object LI20(V160,V161,V162,V163,V164,V165) |
727 |
|
|
728 |
object V169;object V170;object V171;object V172;register object V173;object V174; |
object V160;object V161;register object V162;object V163;register object V164;register object V165; |
729 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
730 |
goto TTL; |
goto TTL; |
731 |
TTL:; |
TTL:; |
732 |
{register object V176; |
{register object V167; |
733 |
base[0]= (V174); |
base[0]= (V165); |
734 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
735 |
(void) (*Lnk53)(Lclptr53); |
(void) (*Lnk68)(Lclptr68); |
736 |
vs_top=sup; |
vs_top=sup; |
737 |
V176= vs_base[0]; |
V167= vs_base[0]; |
738 |
{register object V177; |
{register object V168; |
739 |
V177= (V176); |
V168= (V167); |
740 |
if(!(type_of((V177))==t_fixnum)){ |
if(!(type_of((V168))==t_fixnum)){ |
741 |
goto T231;} |
goto T220;} |
742 |
if(type_of(V173)==t_structure){ |
if(type_of(V164)==t_structure){ |
743 |
goto T236;} |
goto T225;} |
744 |
goto T234; |
goto T223; |
745 |
goto T236; |
goto T225; |
746 |
T236:; |
T225:; |
747 |
if(!(((V173)->str.str_def)==(VV[19]))){ |
if(!(((V164)->str.str_def)==(VV[24]))){ |
748 |
goto T234;} |
goto T223;} |
749 |
if((Ct)==((STREF(object,(V173),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V164),0))->v.v_self[8])){ |
750 |
goto T238;} |
goto T227;} |
751 |
(void)((*(LnkLI54))((V173))); |
(void)((*(LnkLI69))((V164))); |
752 |
goto T238; |
goto T227; |
753 |
T238:; |
T227:; |
754 |
{object V179 = (STREF(object,(V173),4))->v.v_self[fix((V176))]= ((V171)); |
{object V170 = (STREF(object,(V164),4))->v.v_self[fix((V167))]= ((V162)); |
755 |
VMR20(V179)} |
VMR20(V170)} |
756 |
goto T234; |
goto T223; |
757 |
T234:;{object V180; |
T223:;{object V171; |
758 |
V180= (VV[5]->s.s_dbind); |
V171= (VV[5]->s.s_dbind); |
759 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
760 |
base[1]= (V173); |
base[1]= (V164); |
761 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
762 |
(void) (*Lnk41)(); |
(void) (*Lnk56)(); |
|
vs_top=sup; |
|
|
V181= vs_base[0]; |
|
|
if(!((V180)==(CMPcar(V181)))){ |
|
|
goto T242;}} |
|
|
if((Ct)==((CMPcar(((V173))->cc.cc_turbo[13]))->v.v_self[8])){ |
|
|
goto T247;} |
|
|
(void)((*(LnkLI54))((V173))); |
|
|
goto T247; |
|
|
T247:; |
|
|
{object V182 = (CMPcar(((V173))->cc.cc_turbo[12]))->v.v_self[fix((V176))]= ((V171)); |
|
|
VMR20(V182)} |
|
|
goto T242; |
|
|
T242:; |
|
|
base[0]= VV[20]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lerror(); |
|
763 |
vs_top=sup; |
vs_top=sup; |
764 |
{object V183 = vs_base[0]; |
V172= vs_base[0]; |
765 |
VMR20(V183)} |
if(!((V171)==(CMPcar(V172)))){ |
766 |
|
goto T231;}} |
767 |
|
if((Ct)==((CMPcar(((V164))->cc.cc_turbo[13]))->v.v_self[8])){ |
768 |
|
goto T236;} |
769 |
|
(void)((*(LnkLI69))((V164))); |
770 |
|
goto T236; |
771 |
|
T236:; |
772 |
|
{object V173 = (CMPcar(((V164))->cc.cc_turbo[12]))->v.v_self[fix((V167))]= ((V162)); |
773 |
|
VMR20(V173)} |
774 |
goto T231; |
goto T231; |
775 |
T231:; |
T231:; |
|
if(!(type_of((V177))==t_cons)){ |
|
|
goto T252;} |
|
|
(V176)->c.c_cdr = V171; |
|
|
{object V186 = V171; |
|
|
VMR20(V186)} |
|
|
goto T252; |
|
|
T252:; |
|
776 |
base[0]= VV[21]; |
base[0]= VV[21]; |
777 |
base[1]= (V174); |
vs_top=(vs_base=base+0)+1; |
778 |
base[2]= VV[22]; |
Lerror(); |
779 |
|
vs_top=sup; |
780 |
|
{object V174 = vs_base[0]; |
781 |
|
VMR20(V174)} |
782 |
|
goto T220; |
783 |
|
T220:; |
784 |
|
if(!(type_of((V168))==t_cons)){ |
785 |
|
goto T241;} |
786 |
|
(V167)->c.c_cdr = V162; |
787 |
|
{object V177 = V162; |
788 |
|
VMR20(V177)} |
789 |
|
goto T241; |
790 |
|
T241:; |
791 |
|
base[0]= VV[22]; |
792 |
|
base[1]= (V165); |
793 |
|
base[2]= VV[23]; |
794 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
795 |
Lerror(); |
Lerror(); |
796 |
vs_top=sup; |
vs_top=sup; |
797 |
{object V187 = vs_base[0]; |
{object V178 = vs_base[0]; |
798 |
VMR20(V187)}}} |
VMR20(V178)}}} |
799 |
base[0]=base[0]; |
base[0]=base[0]; |
800 |
return Cnil; |
return Cnil; |
801 |
} |
} |
802 |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
803 |
|
|
804 |
static object LI21(V193,V194,V195,V196,V197) |
static object LI21(V184,V185,V186,V187,V188) |
805 |
|
|
806 |
object V193;object V194;object V195;register object V196;object V197; |
object V184;object V185;object V186;register object V187;register object V188; |
807 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
808 |
goto TTL; |
goto TTL; |
809 |
TTL:; |
TTL:; |
810 |
{register object V199; |
{register object V190; |
811 |
object V200; |
object V191; |
812 |
base[2]= (V197); |
base[2]= (V188); |
813 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
814 |
(void) (*Lnk53)(Lclptr53); |
(void) (*Lnk68)(Lclptr68); |
815 |
vs_top=sup; |
vs_top=sup; |
816 |
V199= vs_base[0]; |
V190= vs_base[0]; |
817 |
{register object V201; |
{register object V192; |
818 |
V201= (V199); |
V192= (V190); |
819 |
if(!(type_of((V201))==t_fixnum)){ |
if(!(type_of((V192))==t_fixnum)){ |
820 |
goto T267;} |
goto T253;} |
821 |
if(type_of(V196)==t_structure){ |
if(type_of(V187)==t_structure){ |
822 |
goto T272;} |
goto T258;} |
823 |
goto T270; |
goto T256; |
824 |
goto T272; |
goto T258; |
825 |
T272:; |
T258:; |
826 |
if(!(((V196)->str.str_def)==(VV[23]))){ |
if(!(((V187)->str.str_def)==(VV[29]))){ |
827 |
goto T270;} |
goto T256;} |
828 |
if((Ct)==((STREF(object,(V196),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V187),0))->v.v_self[8])){ |
829 |
goto T274;} |
goto T260;} |
830 |
(void)((*(LnkLI54))((V196))); |
(void)((*(LnkLI69))((V187))); |
831 |
goto T274; |
goto T260; |
832 |
T274:; |
T260:; |
833 |
V200= (STREF(object,(V196),4))->v.v_self[fix((V199))]; |
V191= (STREF(object,(V187),4))->v.v_self[fix((V190))]; |
834 |
goto T265; |
goto T251; |
835 |
goto T270; |
goto T256; |
836 |
T270:;{object V203; |
T256:;{object V194; |
837 |
V203= (VV[5]->s.s_dbind); |
V194= (VV[5]->s.s_dbind); |
838 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
839 |
base[3]= (V196); |
base[3]= (V187); |
840 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
841 |
(void) (*Lnk41)(); |
(void) (*Lnk56)(); |
842 |
vs_top=sup; |
vs_top=sup; |
843 |
V204= vs_base[0]; |
V195= vs_base[0]; |
844 |
if(!((V203)==(CMPcar(V204)))){ |
if(!((V194)==(CMPcar(V195)))){ |
845 |
goto T278;}} |
goto T264;}} |
846 |
if((Ct)==((CMPcar(((V196))->cc.cc_turbo[13]))->v.v_self[8])){ |
if((Ct)==((CMPcar(((V187))->cc.cc_turbo[13]))->v.v_self[8])){ |
847 |
goto T283;} |
goto T269;} |
848 |
(void)((*(LnkLI54))((V196))); |
(void)((*(LnkLI69))((V187))); |
849 |
goto T283; |
goto T269; |
850 |
T283:; |
T269:; |
851 |
V200= (CMPcar(((V196))->cc.cc_turbo[12]))->v.v_self[fix((V199))]; |
V191= (CMPcar(((V187))->cc.cc_turbo[12]))->v.v_self[fix((V190))]; |
852 |
goto T265; |
goto T251; |
853 |
goto T278; |
goto T264; |
854 |
T278:; |
T264:; |
855 |
base[2]= VV[24]; |
base[2]= VV[26]; |
856 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
857 |
Lerror(); |
Lerror(); |
858 |
vs_top=sup; |
vs_top=sup; |
859 |
V200= vs_base[0]; |
V191= vs_base[0]; |
860 |
goto T265; |
goto T251; |
861 |
goto T267; |
goto T253; |
862 |
T267:; |
T253:; |
863 |
if(!(type_of((V201))==t_cons)){ |
if(!(type_of((V192))==t_cons)){ |
864 |
goto T288;} |
goto T274;} |
865 |
V200= CMPcdr((V199)); |
V191= CMPcdr((V190)); |
866 |
goto T265; |
goto T251; |
867 |
goto T288; |
goto T274; |
868 |
T288:; |
T274:; |
869 |
base[2]= VV[25]; |
base[2]= VV[27]; |
870 |
base[3]= (V197); |
base[3]= (V188); |
871 |
base[4]= VV[26]; |
base[4]= VV[28]; |
872 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
873 |
Lerror(); |
Lerror(); |
874 |
vs_top=sup; |
vs_top=sup; |
875 |
V200= vs_base[0];} |
V191= vs_base[0];} |
876 |
goto T265; |
goto T251; |
877 |
T265:; |
T251:; |
878 |
{object V205 = (((((V200))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V196 = (((((V191))==((VV[10]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
879 |
VMR21(V205)}} |
VMR21(V196)}} |
880 |
base[0]=base[0]; |
base[0]=base[0]; |
881 |
return Cnil; |
return Cnil; |
882 |
} |
} |
883 |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STD-CLASS STANDARD-OBJECT STANDARD-EFFECTIVE-SLOT-DEFINITION)) */ |
884 |
|
|
885 |
static object LI22(V211,V212,V213,V214,V215) |
static object LI22(V202,V203,V204,V205,V206) |
886 |
|
|
887 |
object V211;object V212;object V213;register object V214;object V215; |
object V202;object V203;object V204;register object V205;register object V206; |
888 |
{ VMB22 VMS22 VMV22 |
{ VMB22 VMS22 VMV22 |
889 |
goto TTL; |
goto TTL; |
890 |
TTL:; |
TTL:; |
891 |
{register object V217; |
{register object V208; |
892 |
base[0]= (V215); |
base[0]= (V206); |
893 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
894 |
(void) (*Lnk53)(Lclptr53); |
(void) (*Lnk68)(Lclptr68); |
895 |
vs_top=sup; |
vs_top=sup; |
896 |
V217= vs_base[0]; |
V208= vs_base[0]; |
897 |
{register object V218; |
{register object V209; |
898 |
V218= (V217); |
V209= (V208); |
899 |
if(!(type_of((V218))==t_fixnum)){ |
if(!(type_of((V209))==t_fixnum)){ |
900 |
goto T302;} |
goto T285;} |
901 |
if(type_of(V214)==t_structure){ |
if(type_of(V205)==t_structure){ |
902 |
goto T307;} |
goto T290;} |
903 |
goto T305; |
goto T288; |
904 |
goto T307; |
goto T290; |
905 |
T307:; |
T290:; |
906 |
if(!(((V214)->str.str_def)==(VV[27]))){ |
if(!(((V205)->str.str_def)==(VV[34]))){ |
907 |
goto T305;} |
goto T288;} |
908 |
if((Ct)==((STREF(object,(V214),0))->v.v_self[8])){ |
if((Ct)==((STREF(object,(V205),0))->v.v_self[8])){ |
909 |
goto T309;} |
goto T292;} |
910 |
(void)((*(LnkLI54))((V214))); |
(void)((*(LnkLI69))((V205))); |
911 |
goto T309; |
goto T292; |
912 |
T309:; |
T292:; |
913 |
(void)((STREF(object,(V214),4))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind))); |
(void)((STREF(object,(V205),4))->v.v_self[fix((V208))]= ((VV[10]->s.s_dbind))); |
914 |
goto T298; |
goto T281; |
915 |
goto T305; |
goto T288; |
916 |
T305:;{object V220; |
T288:;{object V211; |
917 |
V220= (VV[5]->s.s_dbind); |
V211= (VV[5]->s.s_dbind); |
918 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
919 |
base[1]= (V214); |
base[1]= (V205); |
920 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
921 |
(void) (*Lnk41)(); |
(void) (*Lnk56)(); |
922 |
vs_top=sup; |
vs_top=sup; |
923 |
V221= vs_base[0]; |
V212= vs_base[0]; |
924 |
if(!((V220)==(CMPcar(V221)))){ |
if(!((V211)==(CMPcar(V212)))){ |
925 |
goto T313;}} |
goto T296;}} |
926 |
if((Ct)==((CMPcar(((V214))->cc.cc_turbo[13]))->v.v_self[8])){ |
if((Ct)==((CMPcar(((V205))->cc.cc_turbo[13]))->v.v_self[8])){ |
927 |
goto T318;} |
goto T301;} |
928 |
(void)((*(LnkLI54))((V214))); |
(void)((*(LnkLI69))((V205))); |
929 |
goto T318; |
goto T301; |
930 |
T318:; |
T301:; |
931 |
(void)((CMPcar(((V214))->cc.cc_turbo[12]))->v.v_self[fix((V217))]= ((VV[10]->s.s_dbind))); |
(void)((CMPcar(((V205))->cc.cc_turbo[12]))->v.v_self[fix((V208))]= ((VV[10]->s.s_dbind))); |
932 |
goto T298; |
goto T281; |
933 |
goto T313; |
goto T296; |
934 |
T313:; |
T296:; |
935 |
base[0]= VV[28]; |
base[0]= VV[31]; |
936 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
937 |
Lerror(); |
Lerror(); |
938 |
vs_top=sup; |
vs_top=sup; |
939 |
goto T298; |
goto T281; |
940 |
goto T302; |
goto T285; |
941 |
T302:; |
T285:; |
942 |
if(!(type_of((V218))==t_cons)){ |
if(!(type_of((V209))==t_cons)){ |
943 |
goto T323;} |
goto T306;} |
944 |
{object V223; |
{object V214; |
945 |
V223= (VV[10]->s.s_dbind); |
V214= (VV[10]->s.s_dbind); |
946 |
(V217)->c.c_cdr = (V223); |
(V208)->c.c_cdr = (V214); |
947 |
goto T298;} |
goto T281;} |
948 |
goto T323; |
goto T306; |
949 |
T323:; |
T306:; |
950 |
base[0]= VV[29]; |
base[0]= VV[32]; |
951 |
base[1]= (V215); |
base[1]= (V206); |
952 |
base[2]= VV[30]; |
base[2]= VV[33]; |
953 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
954 |
Lerror(); |
Lerror(); |
955 |
vs_top=sup;}} |
vs_top=sup;}} |
956 |
goto T298; |
goto T281; |
957 |
T298:; |
T281:; |
958 |
{object V224 = Cnil; |
{object V215 = Cnil; |
959 |
VMR22(V224)} |
VMR22(V215)} |
960 |
base[0]=base[0]; |
base[0]=base[0]; |
961 |
return Cnil; |
return Cnil; |
962 |
} |
} |
966 |
{register object *base=vs_base; |
{register object *base=vs_base; |
967 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
968 |
vs_check; |
vs_check; |
969 |
{object V225; |
{object V216; |
970 |
object V226; |
object V217; |
971 |
object V227; |
object V218; |
972 |
object V228; |
register object V219; |
973 |
object V229; |
register object V220; |
974 |
check_arg(5); |
check_arg(5); |
975 |
V225=(base[0]); |
V216=(base[0]); |
976 |
V226=(base[1]); |
V217=(base[1]); |
977 |
V227=(base[2]); |
V218=(base[2]); |
978 |
V228=(base[3]); |
V219=(base[3]); |
979 |
V229=(base[4]); |
V220=(base[4]); |
980 |
vs_top=sup; |
vs_top=sup; |
981 |
goto TTL; |
goto TTL; |
982 |
TTL:; |
TTL:; |
983 |
{object V231; |
{object V222; |
984 |
object V232; |
object V223; |
985 |
base[7]= (V229); |
base[7]= (V220); |
986 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
987 |
(void) (*Lnk55)(Lclptr55); |
(void) (*Lnk70)(Lclptr70); |
988 |
vs_top=sup; |
vs_top=sup; |
989 |
V231= vs_base[0]; |
V222= vs_base[0]; |
990 |
V232= ( |
V223= ( |
991 |
(type_of((V231)) == t_sfun ?(*(((V231))->sfn.sfn_self)): |
(type_of((V222)) == t_sfun ?(*(((V222))->sfn.sfn_self)): |
992 |
(fcall.argd=1,type_of((V231))==t_vfun) ? |
(fcall.argd=1,type_of((V222))==t_vfun) ? |
993 |
(*(((V231))->sfn.sfn_self)): |
(*(((V222))->sfn.sfn_self)): |
994 |
(fcall.fun=((V231)),fcalln))((V228))); |
(fcall.fun=((V222)),fcalln))((V219))); |
995 |
if(!(((V232))==((VV[10]->s.s_dbind)))){ |
if(!(((V223))==((VV[10]->s.s_dbind)))){ |
996 |
goto T339;} |
goto T319;} |
997 |
base[7]= (V227); |
base[7]= (V218); |
998 |
base[8]= (V228); |
base[8]= (V219); |
999 |
base[10]= (V229); |
base[10]= (V220); |
1000 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1001 |
(void) (*Lnk50)(Lclptr50); |
(void) (*Lnk65)(Lclptr65); |
1002 |
vs_top=sup; |
vs_top=sup; |
1003 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
1004 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
1005 |
(void) (*Lnk44)(Lclptr44); |
(void) (*Lnk59)(Lclptr59); |
1006 |
return; |
return; |
1007 |
goto T339; |
goto T319; |
1008 |
T339:; |
T319:; |
1009 |
base[7]= (V232); |
base[7]= (V223); |
1010 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1011 |
return;} |
return;} |
1012 |
} |
} |
1017 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1018 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
1019 |
vs_check; |
vs_check; |
1020 |
{object V233; |
{object V224; |
1021 |
object V234; |
object V225; |
1022 |
object V235; |
object V226; |
1023 |
object V236; |
object V227; |
1024 |
object V237; |
object V228; |
1025 |
object V238; |
object V229; |
1026 |
check_arg(6); |
check_arg(6); |
1027 |
V233=(base[0]); |
V224=(base[0]); |
1028 |
V234=(base[1]); |
V225=(base[1]); |
1029 |
V235=(base[2]); |
V226=(base[2]); |
1030 |
V236=(base[3]); |
V227=(base[3]); |
1031 |
V237=(base[4]); |
V228=(base[4]); |
1032 |
V238=(base[5]); |
V229=(base[5]); |
1033 |
vs_top=sup; |
vs_top=sup; |
1034 |
goto TTL; |
goto TTL; |
1035 |
TTL:; |
TTL:; |
1036 |
{object V240; |
{object V231; |
1037 |
base[6]= (V238); |
base[6]= (V229); |
1038 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1039 |
(void) (*Lnk56)(Lclptr56); |
(void) (*Lnk71)(Lclptr71); |
1040 |
vs_top=sup; |
vs_top=sup; |
1041 |
V240= vs_base[0]; |
V231= vs_base[0]; |
1042 |
base[6]= (V235); |
base[6]= (V226); |
1043 |
base[7]= (V237); |
base[7]= (V228); |
1044 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1045 |
{object _funobj = (V240);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V231);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1046 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1047 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1048 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1051 |
} |
} |
1052 |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-BOUNDP-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
1053 |
|
|
1054 |
static object LI25(V246,V247,V248,V249,V250) |
static object LI25(V237,V238,V239,V240,V241) |
1055 |
|
|
1056 |
object V246;object V247;object V248;object V249;object V250; |
object V237;object V238;object V239;object V240;object V241; |
1057 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
1058 |
goto TTL; |
goto TTL; |
1059 |
TTL:; |
TTL:; |
1060 |
{object V252 = Ct; |
{object V243 = Ct; |
1061 |
VMR25(V252)} |
VMR25(V243)} |
1062 |
return Cnil; |
return Cnil; |
1063 |
} |
} |
1064 |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
/* local entry for function (FAST-METHOD SLOT-MAKUNBOUND-USING-CLASS (STRUCTURE-CLASS STRUCTURE-OBJECT STRUCTURE-EFFECTIVE-SLOT-DEFINITION)) */ |
1065 |
|
|
1066 |
static object LI26(V258,V259,V260,V261,V262) |
static object LI26(V249,V250,V251,V252,V253) |
1067 |
|
|
1068 |
object V258;object V259;object V260;object V261;object V262; |
object V249;object V250;object V251;object V252;object V253; |
1069 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
1070 |
goto TTL; |
goto TTL; |
1071 |
TTL:; |
TTL:; |
1072 |
base[0]= VV[31]; |
base[0]= VV[35]; |
1073 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1074 |
Lerror(); |
Lerror(); |
1075 |
vs_top=sup; |
vs_top=sup; |
1076 |
{object V264 = vs_base[0]; |
{object V255 = vs_base[0]; |
1077 |
VMR26(V264)} |
VMR26(V255)} |
1078 |
base[0]=base[0]; |
base[0]=base[0]; |
1079 |
return Cnil; |
return Cnil; |
1080 |
} |
} |
1081 |
/* local entry for function (FAST-METHOD SLOT-MISSING (T T T T)) */ |
/* local entry for function (FAST-METHOD SLOT-MISSING (T T T T)) */ |
1082 |
|
|
1083 |
static object LI27(V272,V273,V274,V275,V276,V277,V278) |
static object LI27(V263,V264,V265,V266,V267,V268,V269) |
1084 |
|
|
1085 |
object V272;object V273;object V274;object V275;object V276;object V277;object V278; |
object V263;object V264;object V265;object V266;object V267;object V268;object V269; |
1086 |
{ VMB27 VMS27 VMV27 |
{ VMB27 VMS27 VMV27 |
1087 |
goto TTL; |
goto TTL; |
1088 |
TTL:; |
TTL:; |
1089 |
{register object V279; |
{register object V270; |
1090 |
object V280; |
object V271; |
1091 |
V279= (V278); |
V270= (V269); |
1092 |
if(((V279))==Cnil){ |
if(((V270))==Cnil){ |
1093 |
goto T370;} |
goto T341;} |
1094 |
{object V281; |
{object V272; |
1095 |
V281= CMPcar((V279)); |
V272= CMPcar((V270)); |
1096 |
V279= CMPcdr((V279)); |
V270= CMPcdr((V270)); |
1097 |
V280= (V281); |
V271= (V272); |
1098 |
goto T368;} |
goto T339;} |
1099 |
goto T370; |
goto T341; |
1100 |
T370:; |
T341:; |
1101 |
V280= Cnil; |
V271= Cnil; |
1102 |
goto T368; |
goto T339; |
1103 |
T368:; |
T339:; |
1104 |
base[1]= VV[32]; |
base[1]= VV[36]; |
1105 |
{object V282= (V277); |
{object V274= V268; |
1106 |
if((V282!= VV[9]))goto T378; |
if((V274!= VV[9]))goto T348; |
1107 |
base[2]= VV[33]; |
base[2]= VV[37]; |
1108 |
goto T377; |
goto T347; |
1109 |
goto T378; |
goto T348; |
1110 |
T378:; |
T348:; |
1111 |
if((V282!= VV[11]))goto T379; |
if((V274!= VV[11]))goto T349; |
1112 |
base[3]= Cnil; |
base[3]= Cnil; |
1113 |
base[4]= VV[34]; |
base[4]= VV[38]; |
1114 |
base[5]= (V280); |
base[5]= (V271); |
1115 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
1116 |
Lformat(); |
Lformat(); |
1117 |
vs_top=sup; |
vs_top=sup; |
1118 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
1119 |
goto T377; |
goto T347; |
1120 |
goto T379; |
goto T349; |
1121 |
T379:; |
T349:; |
1122 |
if((V282!= VV[12]))goto T383; |
if((V274!= VV[12]))goto T353; |
1123 |
base[2]= VV[35]; |
base[2]= VV[39]; |
1124 |
goto T377; |
goto T347; |
1125 |
goto T383; |
goto T353; |
1126 |
T383:; |
T353:; |
1127 |
if((V282!= VV[13]))goto T384; |
if((V274!= VV[13]))goto T354; |
1128 |
base[2]= VV[36]; |
base[2]= VV[40]; |
1129 |
goto T377; |
goto T347; |
1130 |
goto T384; |
goto T354; |
1131 |
T384:; |
T354:; |
1132 |
FEerror("The ECASE key value ~s is illegal.",1,V282); |
base[3]= VV[41]; |
1133 |
base[2]= Cnil; |
base[4]= VV[42]; |
1134 |
goto T377;} |
base[5]= VV[43]; |
1135 |
goto T377; |
base[6]= VV[44]; |
1136 |
T377:; |
base[7]= V268; |
1137 |
base[3]= (V276); |
base[8]= VV[45]; |
1138 |
base[4]= (V275); |
base[9]= VV[49]; |
1139 |
|
base[10]= VV[47]; |
1140 |
|
base[11]= VV[50]; |
1141 |
|
vs_top=(vs_base=base+3)+9; |
1142 |
|
(void) (*Lnk72)(); |
1143 |
|
vs_top=sup; |
1144 |
|
base[2]= vs_base[0];} |
1145 |
|
goto T347; |
1146 |
|
T347:; |
1147 |
|
base[3]= (V267); |
1148 |
|
base[4]= (V266); |
1149 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
1150 |
Lerror(); |
Lerror(); |
1151 |
vs_top=sup; |
vs_top=sup; |
1152 |
{object V283 = vs_base[0]; |
{object V275 = vs_base[0]; |
1153 |
VMR27(V283)}} |
VMR27(V275)}} |
1154 |
base[0]=base[0]; |
base[0]=base[0]; |
1155 |
return Cnil; |
return Cnil; |
1156 |
} |
} |
1157 |
/* local entry for function (FAST-METHOD SLOT-UNBOUND (T T T)) */ |
/* local entry for function (FAST-METHOD SLOT-UNBOUND (T T T)) */ |
1158 |
|
|
1159 |
static object LI28(V289,V290,V291,V292,V293) |
static object LI28(V281,V282,V283,V284,V285) |
1160 |
|
|
1161 |
object V289;object V290;object V291;object V292;object V293; |
object V281;object V282;object V283;object V284;object V285; |
1162 |
{ VMB28 VMS28 VMV28 |
{ VMB28 VMS28 VMV28 |
1163 |
goto TTL; |
goto TTL; |
1164 |
TTL:; |
TTL:; |
1165 |
base[0]= VV[37]; |
base[0]= VV[51]; |
1166 |
base[1]= (V293); |
base[1]= (V285); |
1167 |
base[2]= (V292); |
base[2]= (V284); |
1168 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1169 |
Lerror(); |
Lerror(); |
1170 |
vs_top=sup; |
vs_top=sup; |
1171 |
{object V295 = vs_base[0]; |
{object V287 = vs_base[0]; |
1172 |
VMR28(V295)} |
VMR28(V287)} |
1173 |
base[0]=base[0]; |
base[0]=base[0]; |
1174 |
return Cnil; |
return Cnil; |
1175 |
} |
} |
1179 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1180 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM29; VC29 |
1181 |
vs_check; |
vs_check; |
1182 |
{object V296; |
{object V288; |
1183 |
object V297; |
object V289; |
1184 |
check_arg(2); |
check_arg(2); |
1185 |
V296=(base[0]); |
V288=(base[0]); |
1186 |
V297=(base[1]); |
V289=(base[1]); |
1187 |
vs_top=sup; |
vs_top=sup; |
1188 |
goto TTL; |
goto TTL; |
1189 |
TTL:; |
TTL:; |
1190 |
base[2]= (*(LnkLI51))((V296)); |
base[2]= (*(LnkLI66))((V288)); |
1191 |
base[3]= (V296); |
base[3]= (V288); |
1192 |
{register object V298; |
{register object V291; |
1193 |
V298= (V297); |
V291= V289; |
1194 |
if(!(type_of((V298))==t_fixnum)){ |
if(!(type_of((V291))==t_fixnum)){ |
1195 |
goto T397;} |
goto T375;} |
1196 |
V299= (*(LnkLI57))((V296)); |
V292= (*(LnkLI73))((V288)); |
1197 |
base[4]= nth(fix((V297)),(/* INLINE-ARGS */V299)->v.v_self[9]); |
base[4]= nth(fix((V289)),(/* INLINE-ARGS */V292)->v.v_self[9]); |
1198 |
goto T395; |
goto T373; |
1199 |
goto T397; |
goto T375; |
1200 |
T397:; |
T375:; |
1201 |
if(!(type_of((V298))==t_cons)){ |
if(!(type_of((V291))==t_cons)){ |
1202 |
goto T400;} |
goto T378;} |
1203 |
base[4]= CMPcar((V297)); |
base[4]= CMPcar((V289)); |
1204 |
goto T395; |
goto T373; |
1205 |
goto T400; |
goto T378; |
1206 |
T400:; |
T378:; |
1207 |
base[6]= VV[38]; |
base[5]= VV[41]; |
1208 |
base[7]= (V298); |
base[6]= VV[42]; |
1209 |
base[8]= VV[39]; |
base[7]= VV[52]; |
1210 |
vs_top=(vs_base=base+6)+3; |
base[8]= VV[44]; |
1211 |
(void) (*Lnk58)(); |
base[9]= V289; |
1212 |
vs_top=sup; |
base[10]= VV[45]; |
1213 |
base[5]= vs_base[0]; |
base[11]= VV[53]; |
1214 |
vs_top=(vs_base=base+5)+1; |
base[12]= VV[47]; |
1215 |
Lerror(); |
base[13]= VV[54]; |
1216 |
|
vs_top=(vs_base=base+5)+9; |
1217 |
|
(void) (*Lnk72)(); |
1218 |
vs_top=sup; |
vs_top=sup; |
1219 |
base[4]= vs_base[0];} |
base[4]= vs_base[0];} |
1220 |
goto T395; |
goto T373; |
1221 |
T395:; |
T373:; |
1222 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
1223 |
(void) (*Lnk44)(Lclptr44); |
(void) (*Lnk59)(Lclptr59); |
1224 |
return; |
return; |
1225 |
} |
} |
1226 |
} |
} |
1227 |
/* local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS)) */ |
/* local entry for function (FAST-METHOD ALLOCATE-INSTANCE (STANDARD-CLASS)) */ |
1228 |
|
|
1229 |
static object LI30(V304,V305,V306,V307) |
static object LI30(V297,V298,V299,V300) |
1230 |
|
|
1231 |
object V304;object V305;register object V306;object V307; |
object V297;object V298;register object V299;object V300; |
1232 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
1233 |
goto TTL; |
goto TTL; |
1234 |
TTL:; |
TTL:; |
1235 |
base[0]= (V306); |
base[0]= (V299); |
1236 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1237 |
(void) (*Lnk59)(Lclptr59); |
(void) (*Lnk74)(Lclptr74); |
1238 |
vs_top=sup; |
vs_top=sup; |
1239 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1240 |
goto T409;} |
goto T391;} |
1241 |
base[0]= (V306); |
base[0]= (V299); |
1242 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1243 |
(void) (*Lnk60)(Lclptr60); |
(void) (*Lnk75)(Lclptr75); |
1244 |
vs_top=sup; |
vs_top=sup; |
1245 |
goto T409; |
goto T391; |
1246 |
T409:; |
T391:; |
1247 |
base[0]= (V306); |
base[0]= (V299); |
1248 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1249 |
(void) (*Lnk45)(Lclptr45); |
(void) (*Lnk60)(Lclptr60); |
1250 |
vs_top=sup; |
vs_top=sup; |
1251 |
V310= vs_base[0]; |
V303= vs_base[0]; |
1252 |
{object V311 = (VFUN_NARGS=1,(*(LnkLI2))(V310)); |
{object V304 = (VFUN_NARGS=1,(*(LnkLI2))(V303)); |
1253 |
VMR30(V311)} |
VMR30(V304)} |
1254 |
base[0]=base[0]; |
base[0]=base[0]; |
1255 |
return Cnil; |
return Cnil; |
1256 |
} |
} |
1260 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1261 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
1262 |
vs_check; |
vs_check; |
1263 |
{object V312; |
{object V305; |
1264 |
object V313; |
object V306; |
1265 |
object V314; |
register object V307; |
1266 |
object V315; |
object V308; |
1267 |
check_arg(4); |
check_arg(4); |
1268 |
V312=(base[0]); |
V305=(base[0]); |
1269 |
V313=(base[1]); |
V306=(base[1]); |
1270 |
V314=(base[2]); |
V307=(base[2]); |
1271 |
V315=(base[3]); |
V308=(base[3]); |
1272 |
vs_top=sup; |
vs_top=sup; |
1273 |
goto TTL; |
goto TTL; |
1274 |
TTL:; |
TTL:; |
1275 |
{object V318; |
{object V311; |
1276 |
base[4]= (V314); |
base[4]= (V307); |
1277 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1278 |
(void) (*Lnk61)(Lclptr61); |
(void) (*Lnk76)(Lclptr76); |
1279 |
vs_top=sup; |
vs_top=sup; |
1280 |
V318= vs_base[0]; |
V311= vs_base[0]; |
1281 |
if(((V318))==Cnil){ |
if(((V311))==Cnil){ |
1282 |
goto T422;} |
goto T403;} |
1283 |
vs_base=vs_top; |
vs_base=vs_top; |
1284 |
{object _funobj = (V318);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V311);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1285 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1286 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1287 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1288 |
return; |
return; |
1289 |
goto T422; |
goto T403; |
1290 |
T422:; |
T403:; |
1291 |
base[4]= VV[40]; |
base[4]= VV[55]; |
1292 |
base[6]= (V314); |
base[6]= (V307); |
1293 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1294 |
(void) (*Lnk62)(Lclptr62); |
(void) (*Lnk77)(Lclptr77); |
1295 |
vs_top=sup; |
vs_top=sup; |
1296 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1297 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1299 |
return;} |
return;} |
1300 |
} |
} |
1301 |
} |
} |
1302 |
static void LnkT62(ptr) object *ptr;{ call_or_link_closure(VV[62],(void **)(void *)&Lnk62,(void **)(void *)&Lclptr62);} /* CLASS-NAME */ |
static void LnkT77(ptr) object *ptr;{ call_or_link_closure(VV[77],(void **)(void *)&Lnk77,(void **)(void *)&Lclptr77);} /* CLASS-NAME */ |
1303 |
static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
static void LnkT76(ptr) object *ptr;{ call_or_link_closure(VV[76],(void **)(void *)&Lnk76,(void **)(void *)&Lclptr76);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
1304 |
static object LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
static object LnkTLI2(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[2],(void **)(void *)&LnkLI2,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
1305 |
static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* FINALIZE-INHERITANCE */ |
static void LnkT75(ptr) object *ptr;{ call_or_link_closure(VV[75],(void **)(void *)&Lnk75,(void **)(void *)&Lclptr75);} /* FINALIZE-INHERITANCE */ |
1306 |
static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* CLASS-FINALIZED-P */ |
static void LnkT74(ptr) object *ptr;{ call_or_link_closure(VV[74],(void **)(void *)&Lnk74,(void **)(void *)&Lclptr74);} /* CLASS-FINALIZED-P */ |
1307 |
static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* TYPECASE-ERROR-STRING */ |
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
1308 |
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* WRAPPER-OF */ |
static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* ERROR */ |
1309 |
static void LnkT56(ptr) object *ptr;{ call_or_link_closure(VV[56],(void **)(void *)&Lnk56,(void **)(void *)&Lclptr56);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */ |
static void LnkT71(ptr) object *ptr;{ call_or_link_closure(VV[71],(void **)(void *)&Lnk71,(void **)(void *)&Lclptr71);} /* SLOT-DEFINITION-INTERNAL-WRITER-FUNCTION */ |
1310 |
static void LnkT55(ptr) object *ptr;{ call_or_link_closure(VV[55],(void **)(void *)&Lnk55,(void **)(void *)&Lclptr55);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */ |
static void LnkT70(ptr) object *ptr;{ call_or_link_closure(VV[70],(void **)(void *)&Lnk70,(void **)(void *)&Lclptr70);} /* SLOT-DEFINITION-INTERNAL-READER-FUNCTION */ |
1311 |
static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* CHECK-WRAPPER-VALIDITY */ |
1312 |
static void LnkT53(ptr) object *ptr;{ call_or_link_closure(VV[53],(void **)(void *)&Lnk53,(void **)(void *)&Lclptr53);} /* SLOT-DEFINITION-LOCATION */ |
static void LnkT68(ptr) object *ptr;{ call_or_link_closure(VV[68],(void **)(void *)&Lnk68,(void **)(void *)&Lclptr68);} /* SLOT-DEFINITION-LOCATION */ |
1313 |
static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */ |
static void LnkT9(){ call_or_link(VV[9],(void **)(void *)&Lnk9);} /* SLOT-VALUE */ |
1314 |
static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */ |
static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* SLOT-BOUNDP */ |
1315 |
static void LnkT30(ptr) object *ptr;{ call_or_link_closure(VV[30],(void **)(void *)&Lnk30,(void **)(void *)&Lclptr30);} /* SLOT-MAKUNBOUND-USING-CLASS */ |
static void LnkT33(ptr) object *ptr;{ call_or_link_closure(VV[33],(void **)(void *)&Lnk33,(void **)(void *)&Lclptr33);} /* SLOT-MAKUNBOUND-USING-CLASS */ |
1316 |
static void LnkT26(ptr) object *ptr;{ call_or_link_closure(VV[26],(void **)(void *)&Lnk26,(void **)(void *)&Lclptr26);} /* SLOT-BOUNDP-USING-CLASS */ |
static void LnkT28(ptr) object *ptr;{ call_or_link_closure(VV[28],(void **)(void *)&Lnk28,(void **)(void *)&Lclptr28);} /* SLOT-BOUNDP-USING-CLASS */ |
1317 |
static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */ |
static void LnkT18(ptr) object *ptr;{ call_or_link_closure(VV[18],(void **)(void *)&Lnk18,(void **)(void *)&Lclptr18);} /* SLOT-VALUE-USING-CLASS */ |
1318 |
static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* FIND-SLOT-DEFINITION */ |
1319 |
static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
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;} /* CLASS-OF */ |
1320 |
static void LnkT50(ptr) object *ptr;{ call_or_link_closure(VV[50],(void **)(void *)&Lnk50,(void **)(void *)&Lclptr50);} /* SLOT-DEFINITION-NAME */ |
static void LnkT65(ptr) object *ptr;{ call_or_link_closure(VV[65],(void **)(void *)&Lnk65,(void **)(void *)&Lclptr65);} /* SLOT-DEFINITION-NAME */ |
1321 |
static void LnkT49(ptr) object *ptr;{ call_or_link_closure(VV[49],(void **)(void *)&Lnk49,(void **)(void *)&Lclptr49);} /* CLASS-SLOTS */ |
static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)(void *)&Lnk64,(void **)(void *)&Lclptr64);} /* CLASS-SLOTS */ |
1322 |
static void LnkT48(){ call_or_link(VV[48],(void **)(void *)&Lnk48);} /* SET-CLASS-SLOT-VALUE-1 */ |
static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* SET-CLASS-SLOT-VALUE-1 */ |
1323 |
static void LnkT47(){ call_or_link(VV[47],(void **)(void *)&Lnk47);} /* GET-CLASS-SLOT-VALUE-1 */ |
static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* GET-CLASS-SLOT-VALUE-1 */ |
1324 |
static void LnkT46(ptr) object *ptr;{ call_or_link_closure(VV[46],(void **)(void *)&Lnk46,(void **)(void *)&Lclptr46);} /* CLASS-PROTOTYPE */ |
static void LnkT61(ptr) object *ptr;{ call_or_link_closure(VV[61],(void **)(void *)&Lnk61,(void **)(void *)&Lclptr61);} /* CLASS-PROTOTYPE */ |
1325 |
static void LnkT45(ptr) object *ptr;{ call_or_link_closure(VV[45],(void **)(void *)&Lnk45,(void **)(void *)&Lclptr45);} /* CLASS-WRAPPER */ |
static void LnkT60(ptr) object *ptr;{ call_or_link_closure(VV[60],(void **)(void *)&Lnk60,(void **)(void *)&Lclptr60);} /* CLASS-WRAPPER */ |
1326 |
static void LnkT44(ptr) object *ptr;{ call_or_link_closure(VV[44],(void **)(void *)&Lnk44,(void **)(void *)&Lclptr44);} /* SLOT-UNBOUND */ |
static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* SLOT-UNBOUND */ |
1327 |
static void LnkT43(ptr) object *ptr;{ call_or_link_closure(VV[43],(void **)(void *)&Lnk43,(void **)(void *)&Lclptr43);} /* SLOT-MISSING */ |
static void LnkT58(ptr) object *ptr;{ call_or_link_closure(VV[58],(void **)(void *)&Lnk58,(void **)(void *)&Lclptr58);} /* SLOT-MISSING */ |
1328 |
static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
1329 |
static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* CCLOSURE-ENV-NTHCDR */ |
1330 |
|
|
1331 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1332 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |