28 |
T2:; |
T2:; |
29 |
{object V5; |
{object V5; |
30 |
V5= (*(LnkLI167))(); |
V5= (*(LnkLI167))(); |
31 |
V6= Ct; |
V6 = (V5); |
32 |
STSET(object,(V5),0, (V2)); |
V7 = (V2); |
33 |
(void)((V2)); |
V8= Ct; |
34 |
|
STSET(object,V6,0, V7); |
35 |
|
(void)(V7); |
36 |
|
V9 = (V5); |
37 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
38 |
goto T9;} |
goto T9;} |
39 |
base[0]= (V3); |
base[0]= (V3); |
40 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
41 |
Lcopy_seq(); |
Lcopy_seq(); |
42 |
vs_top=sup; |
vs_top=sup; |
43 |
V7= vs_base[0]; |
V10= vs_base[0]; |
44 |
goto T7; |
goto T7; |
45 |
goto T9; |
goto T9; |
46 |
T9:; |
T9:; |
50 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
51 |
(void) (*Lnk168)(); |
(void) (*Lnk168)(); |
52 |
vs_top=sup; |
vs_top=sup; |
53 |
V7= vs_base[0]; |
V10= vs_base[0]; |
54 |
goto T7; |
goto T7; |
55 |
T7:; |
T7:; |
56 |
V8= Ct; |
V11= Ct; |
57 |
STSET(object,(V5),4, V7); |
STSET(object,V9,4, V10); |
58 |
(void)(V7); |
(void)(V10); |
59 |
{object V9 = (V5); |
{object V12 = (V5); |
60 |
VMR1(V9)}} |
VMR1(V12)}} |
61 |
va_end(ap); |
va_end(ap); |
62 |
base[0]=base[0]; |
base[0]=base[0]; |
63 |
return Cnil;} |
return Cnil;} |
70 |
vs_check; |
vs_check; |
71 |
check_arg(2); |
check_arg(2); |
72 |
vs_top=sup; |
vs_top=sup; |
73 |
{object V10=base[0]->c.c_cdr; |
{object V13=base[0]->c.c_cdr; |
74 |
if(endp(V10))invalid_macro_call(); |
if(endp(V13))invalid_macro_call(); |
75 |
base[2]= (V10->c.c_car); |
base[2]= (V13->c.c_car); |
76 |
V10=V10->c.c_cdr; |
V13=V13->c.c_cdr; |
77 |
if(endp(V10)){ |
if(endp(V13)){ |
78 |
base[3]= Cnil; |
base[3]= Cnil; |
79 |
} else { |
} else { |
80 |
base[3]= (V10->c.c_car); |
base[3]= (V13->c.c_car); |
81 |
V10=V10->c.c_cdr;} |
V13=V13->c.c_cdr;} |
82 |
if(endp(V10)){ |
if(endp(V13)){ |
83 |
base[4]= Cnil; |
base[4]= Cnil; |
84 |
} else { |
} else { |
85 |
base[4]= (V10->c.c_car); |
base[4]= (V13->c.c_car); |
86 |
V10=V10->c.c_cdr;} |
V13=V13->c.c_cdr;} |
87 |
if(!endp(V10))invalid_macro_call();} |
if(!endp(V13))invalid_macro_call();} |
88 |
V11= list(2,VV[4],list(2,VV[5],base[2])); |
V14= list(2,VV[4],list(2,VV[5],base[2])); |
89 |
V12= make_cons(/* INLINE-ARGS */V11,Cnil); |
V15= make_cons(/* INLINE-ARGS */V14,Cnil); |
90 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
91 |
goto T19;} |
goto T19;} |
92 |
V13= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]); |
V16= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]); |
93 |
goto T17; |
goto T17; |
94 |
goto T19; |
goto T19; |
95 |
T19:; |
T19:; |
96 |
V13= VV[9]; |
V16= VV[9]; |
97 |
goto T17; |
goto T17; |
98 |
T17:; |
T17:; |
99 |
base[5]= list(3,VV[3],/* INLINE-ARGS */V12,V13); |
base[5]= list(3,VV[3],/* INLINE-ARGS */V15,V16); |
100 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
101 |
return; |
return; |
102 |
} |
} |
103 |
/* local entry for function ALLOCATE-FUNCALLABLE-INSTANCE */ |
/* local entry for function ALLOCATE-FUNCALLABLE-INSTANCE */ |
104 |
|
|
105 |
static object LI3(object V14,object first,...) |
static object LI3(object V17,object first,...) |
106 |
{ |
{ |
107 |
va_list ap; |
va_list ap; |
108 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
109 |
{object V15; |
{object V18; |
110 |
object V16; |
object V19; |
111 |
object V17; |
object V20; |
112 |
va_start(ap,first); |
va_start(ap,first); |
113 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
114 |
V15= V14; |
V18= V17; |
115 |
narg = narg - 1; |
narg = narg - 1; |
116 |
if (narg <= 0) goto T21; |
if (narg <= 0) goto T21; |
117 |
else { |
else { |
118 |
V16= first;} |
V19= first;} |
119 |
V17= Ct; |
V20= Ct; |
120 |
--narg; goto T22; |
--narg; goto T22; |
121 |
goto T21; |
goto T21; |
122 |
T21:; |
T21:; |
123 |
V16= Cnil; |
V19= Cnil; |
124 |
V17= Cnil; |
V20= Cnil; |
125 |
goto T22; |
goto T22; |
126 |
T22:; |
T22:; |
127 |
base[0]= (*(LnkLI169))(); |
base[0]= (*(LnkLI169))(); |
128 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
129 |
V18= |
V21 = (base[0]->c.c_car); |
130 |
|
V22= |
131 |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
132 |
(void)((*(LnkLI170))((base[0]->c.c_car),V18)); |
(void)((*(LnkLI170))(V21,V22)); |
|
{object V19; |
|
|
V19= ((base[0]->c.c_car))->cc.cc_turbo[13]; |
|
|
((V19))->c.c_car = V15;} |
|
|
{object V21; |
|
|
object V22; |
|
|
V21= ((base[0]->c.c_car))->cc.cc_turbo[12]; |
|
133 |
{object V23; |
{object V23; |
134 |
V23= ((V15))->v.v_self[12]; |
V23= ((base[0]->c.c_car))->cc.cc_turbo[13]; |
135 |
if(((V17))==Cnil){ |
((V23))->c.c_car = V18;} |
136 |
|
{object V25; |
137 |
|
object V26; |
138 |
|
V25= ((base[0]->c.c_car))->cc.cc_turbo[12]; |
139 |
|
{object V27; |
140 |
|
V27= ((V18))->v.v_self[12]; |
141 |
|
if(((V20))==Cnil){ |
142 |
goto T35;} |
goto T35;} |
143 |
base[3]= (V16); |
base[3]= (V19); |
144 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
145 |
Lcopy_seq(); |
Lcopy_seq(); |
146 |
vs_top=sup; |
vs_top=sup; |
147 |
V22= vs_base[0]; |
V26= vs_base[0]; |
148 |
goto T32; |
goto T32; |
149 |
goto T35; |
goto T35; |
150 |
T35:; |
T35:; |
151 |
base[3]= (V23); |
base[3]= (V27); |
152 |
base[4]= VV[2]; |
base[4]= VV[2]; |
153 |
base[5]= (VV[0]->s.s_dbind); |
base[5]= (VV[0]->s.s_dbind); |
154 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
155 |
(void) (*Lnk168)(); |
(void) (*Lnk168)(); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
V22= vs_base[0];} |
V26= vs_base[0];} |
158 |
goto T32; |
goto T32; |
159 |
T32:; |
T32:; |
160 |
((V21))->c.c_car = (V22);} |
((V25))->c.c_car = (V26);} |
161 |
{object V24 = (base[0]->c.c_car); |
{object V28 = (base[0]->c.c_car); |
162 |
VMR3(V24)} |
VMR3(V28)} |
163 |
va_end(ap); |
va_end(ap); |
164 |
base[0]=base[0]; |
base[0]=base[0]; |
165 |
return Cnil;} |
return Cnil;} |
166 |
} |
} |
167 |
/* local entry for function ALLOCATE-STRUCTURE-INSTANCE */ |
/* local entry for function ALLOCATE-STRUCTURE-INSTANCE */ |
168 |
|
|
169 |
static object LI4(object V25,object first,...) |
static object LI4(object V29,object first,...) |
170 |
{ |
{ |
171 |
va_list ap; |
va_list ap; |
172 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
173 |
{object V26; |
{object V30; |
174 |
object V27; |
object V31; |
175 |
object V28; |
object V32; |
176 |
va_start(ap,first); |
va_start(ap,first); |
177 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
178 |
V26= V25; |
V30= V29; |
179 |
narg = narg - 1; |
narg = narg - 1; |
180 |
if (narg <= 0) goto T42; |
if (narg <= 0) goto T42; |
181 |
else { |
else { |
182 |
V27= first;} |
V31= first;} |
183 |
V28= Ct; |
V32= Ct; |
184 |
--narg; goto T43; |
--narg; goto T43; |
185 |
goto T42; |
goto T42; |
186 |
T42:; |
T42:; |
187 |
V27= Cnil; |
V31= Cnil; |
188 |
V28= Cnil; |
V32= Cnil; |
189 |
goto T43; |
goto T43; |
190 |
T43:; |
T43:; |
191 |
{object V29; |
{object V33; |
192 |
object V30; |
object V34; |
193 |
V29= ((V26))->v.v_self[11]; |
V33= ((V30))->v.v_self[11]; |
194 |
base[2]= (V29); |
base[2]= (V33); |
195 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
196 |
(void) (*Lnk172)(Lclptr172); |
(void) (*Lnk172)(Lclptr172); |
197 |
vs_top=sup; |
vs_top=sup; |
198 |
V30= vs_base[0]; |
V34= vs_base[0]; |
199 |
if(((V30))==Cnil){ |
if(((V34))==Cnil){ |
200 |
goto T49;} |
goto T49;} |
201 |
{object V31; |
{object V35; |
202 |
register object V32; |
register object V36; |
203 |
V31= ( |
V35= ( |
204 |
(type_of((V30)) == t_sfun ?(*(((V30))->sfn.sfn_self)): |
(type_of((V34)) == t_sfun ?(*(((V34))->sfn.sfn_self)): |
205 |
(fcall.argd=0,type_of((V30))==t_vfun) ? |
(fcall.argd=0,type_of((V34))==t_vfun) ? |
206 |
(*(((V30))->sfn.sfn_self)): |
(*(((V34))->sfn.sfn_self)): |
207 |
(fcall.fun=((V30)),fcalln))()); |
(fcall.fun=((V34)),fcalln))()); |
208 |
base[2]= (V29); |
base[2]= (V33); |
209 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
210 |
(void) (*Lnk173)(Lclptr173); |
(void) (*Lnk173)(Lclptr173); |
211 |
vs_top=sup; |
vs_top=sup; |
212 |
V32= vs_base[0]; |
V36= vs_base[0]; |
213 |
if(((V28))==Cnil){ |
if(((V32))==Cnil){ |
214 |
goto T54;} |
goto T54;} |
215 |
{long V33; |
{long V37; |
216 |
register long V34; |
register long V38; |
217 |
V33= (long)length((V27)); |
V37= (long)length((V31)); |
218 |
V34= 0; |
V38= 0; |
219 |
goto T60; |
goto T60; |
220 |
T60:; |
T60:; |
221 |
if(!((V34)>=(V33))){ |
if(!((V38)>=(V37))){ |
222 |
goto T61;} |
goto T61;} |
223 |
goto T54; |
goto T54; |
224 |
goto T61; |
goto T61; |
225 |
T61:; |
T61:; |
226 |
{register object V35; |
{register object V39; |
227 |
{register object V36; |
{register object V40; |
228 |
V36= CMPcar((V32)); |
V40= CMPcar((V36)); |
229 |
V32= CMPcdr((V32)); |
V36= CMPcdr((V36)); |
230 |
V35= (V36);} |
V39= (V40);} |
231 |
{register object V37; |
{register object V41; |
232 |
register object V38; |
register object V42; |
233 |
register object V39; |
register object V43; |
234 |
V37= (V29); |
V41= (V33); |
235 |
V38= (V31); |
V42= (V35); |
236 |
V39= (V35); |
V43= (V39); |
237 |
base[2]= ((V27))->v.v_self[V34]; |
base[2]= ((V31))->v.v_self[V38]; |
238 |
base[3]= (V37); |
base[3]= (V41); |
239 |
base[4]= (V38); |
base[4]= (V42); |
240 |
base[5]= (V39); |
base[5]= (V43); |
241 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
242 |
(void) (*Lnk174)(Lclptr174); |
(void) (*Lnk174)(Lclptr174); |
243 |
vs_top=sup;}} |
vs_top=sup;}} |
244 |
V34= (long)(V34)+1; |
V38= (long)(V38)+1; |
245 |
goto T60;} |
goto T60;} |
246 |
goto T54; |
goto T54; |
247 |
T54:; |
T54:; |
248 |
{object V40 = (V31); |
{object V44 = (V35); |
249 |
VMR4(V40)}} |
VMR4(V44)}} |
250 |
goto T49; |
goto T49; |
251 |
T49:; |
T49:; |
252 |
base[2]= VV[11]; |
base[2]= VV[11]; |
253 |
base[4]= (V29); |
base[4]= (V33); |
254 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
255 |
(void) (*Lnk175)(Lclptr175); |
(void) (*Lnk175)(Lclptr175); |
256 |
vs_top=sup; |
vs_top=sup; |
258 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
259 |
Lerror(); |
Lerror(); |
260 |
vs_top=sup; |
vs_top=sup; |
261 |
{object V41 = vs_base[0]; |
{object V45 = vs_base[0]; |
262 |
VMR4(V41)}} |
VMR4(V45)}} |
263 |
va_end(ap); |
va_end(ap); |
264 |
base[0]=base[0]; |
base[0]=base[0]; |
265 |
return Cnil;} |
return Cnil;} |
272 |
vs_check; |
vs_check; |
273 |
check_arg(2); |
check_arg(2); |
274 |
vs_top=sup; |
vs_top=sup; |
275 |
{object V42=base[0]->c.c_cdr; |
{object V46=base[0]->c.c_cdr; |
276 |
base[2]= V42;} |
base[2]= V46;} |
277 |
{object V44; |
{object V48; |
278 |
object V45= base[2]; |
object V49= base[2]; |
279 |
if(V45==Cnil){ |
if(V49==Cnil){ |
280 |
V43= Cnil; |
V47= Cnil; |
281 |
goto T79;} |
goto T79;} |
282 |
base[3]=V44=MMcons(Cnil,Cnil); |
base[3]=V48=MMcons(Cnil,Cnil); |
283 |
goto T80; |
goto T80; |
284 |
T80:; |
T80:; |
285 |
{register object V46; |
{register object V50; |
286 |
V46= (V45->c.c_car); |
V50= (V49->c.c_car); |
287 |
{object V47; |
{object V51; |
288 |
base[5]= Cnil; |
base[5]= Cnil; |
289 |
base[6]= VV[13]; |
base[6]= VV[13]; |
290 |
base[7]= (V46); |
base[7]= (V50); |
291 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
292 |
Lformat(); |
Lformat(); |
293 |
vs_top=sup; |
vs_top=sup; |
296 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
297 |
Lintern(); |
Lintern(); |
298 |
vs_top=sup; |
vs_top=sup; |
299 |
V47= vs_base[0]; |
V51= vs_base[0]; |
300 |
if(!(((V46))==(VV[16]))){ |
V52 = (V51); |
301 |
|
if(!(((V50))==(VV[16]))){ |
302 |
goto T90;} |
goto T90;} |
303 |
V48= VV[17]; |
V53= VV[17]; |
304 |
goto T88; |
goto T88; |
305 |
goto T90; |
goto T90; |
306 |
T90:; |
T90:; |
307 |
V48= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V46)))); |
V53= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V50)))); |
308 |
goto T88; |
goto T88; |
309 |
T88:; |
T88:; |
310 |
if(!(((V46))==(VV[16]))){ |
V54 = (V50); |
311 |
|
if(!(((V50))==(VV[16]))){ |
312 |
goto T94;} |
goto T94;} |
313 |
V49= VV[22]; |
V55= VV[22]; |
314 |
goto T92; |
goto T92; |
315 |
goto T94; |
goto T94; |
316 |
T94:; |
T94:; |
317 |
V49= VV[23]; |
V55= VV[23]; |
318 |
goto T92; |
goto T92; |
319 |
T92:; |
T92:; |
320 |
V50= list(2,VV[21],V49); |
V56= list(2,VV[21],V55); |
321 |
V51= list(2,VV[24],(V47)); |
V57= list(2,VV[24],(V51)); |
322 |
(V44->c.c_car)= list(9,VV[15],(V47),V48,(V46),/* INLINE-ARGS */V50,/* INLINE-ARGS */V51,(V46),list(2,VV[25],list(2,VV[20],(V46))),(V46));}} |
V58 = (V50); |
323 |
if((V45=MMcdr(V45))==Cnil){ |
V59 = (V50); |
324 |
V43= base[3]; |
(V48->c.c_car)= list(9,VV[15],V52,V53,V54,/* INLINE-ARGS */V56,/* INLINE-ARGS */V57,V58,list(2,VV[25],list(2,VV[20],(V50))),V59);}} |
325 |
|
if((V49=MMcdr(V49))==Cnil){ |
326 |
|
V47= base[3]; |
327 |
goto T79;} |
goto T79;} |
328 |
V44=MMcdr(V44)=MMcons(Cnil,Cnil); |
V48=MMcdr(V48)=MMcons(Cnil,Cnil); |
329 |
goto T80;} |
goto T80;} |
330 |
goto T79; |
goto T79; |
331 |
T79:; |
T79:; |
332 |
base[3]= make_cons(VV[12],V43); |
base[3]= make_cons(VV[12],V47); |
333 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
334 |
return; |
return; |
335 |
} |
} |
341 |
bds_check; |
bds_check; |
342 |
goto TTL; |
goto TTL; |
343 |
TTL:; |
TTL:; |
344 |
{object V53; |
{object V61; |
345 |
V53= (VFUN_NARGS=1,(*(LnkLI176))(VV[26])); |
V61= (VFUN_NARGS=1,(*(LnkLI176))(VV[26])); |
346 |
V55= VV[178]; |
V63= VV[178]; |
347 |
(void)((*(LnkLI177))(V55,V53)); |
V64 = V61; |
348 |
(void)((*(LnkLI179))(VV[26],(V53)));} |
(void)((*(LnkLI177))(V63,V64)); |
349 |
{object V56; |
(void)((*(LnkLI179))(VV[26],(V61)));} |
350 |
object V57; |
{object V65; |
|
object V58; |
|
|
object V59; |
|
|
object V60; |
|
|
object V61; |
|
|
object V62; |
|
|
object V63; |
|
|
object V64; |
|
|
object V65; |
|
351 |
object V66; |
object V66; |
352 |
object V67; |
object V67; |
353 |
object V68; |
object V68; |
356 |
object V71; |
object V71; |
357 |
object V72; |
object V72; |
358 |
object V73; |
object V73; |
359 |
|
object V74; |
360 |
|
object V75; |
361 |
|
object V76; |
362 |
|
object V77; |
363 |
|
object V78; |
364 |
|
object V79; |
365 |
|
object V80; |
366 |
|
object V81; |
367 |
|
object V82; |
368 |
bds_bind(VV[27],Cnil); |
bds_bind(VV[27],Cnil); |
|
V56= Cnil; |
|
|
V57= Cnil; |
|
|
V58= Cnil; |
|
|
V59= Cnil; |
|
|
V60= Cnil; |
|
|
V61= Cnil; |
|
|
V62= Cnil; |
|
|
V63= Cnil; |
|
|
V64= Cnil; |
|
369 |
V65= Cnil; |
V65= Cnil; |
370 |
V66= Cnil; |
V66= Cnil; |
371 |
V67= Cnil; |
V67= Cnil; |
375 |
V71= Cnil; |
V71= Cnil; |
376 |
V72= Cnil; |
V72= Cnil; |
377 |
V73= Cnil; |
V73= Cnil; |
378 |
V74 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28])); |
V74= Cnil; |
379 |
V56= (VFUN_NARGS=1,(*(LnkLI18))(V74)); |
V75= Cnil; |
380 |
V57= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
V76= Cnil; |
381 |
(void)(((V56))->v.v_self[11]= ((V57))); |
V77= Cnil; |
382 |
(void)((*(LnkLI180))(V57,VV[28])); |
V78= Cnil; |
383 |
V77 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29])); |
V79= Cnil; |
384 |
V58= (VFUN_NARGS=1,(*(LnkLI18))(V77)); |
V80= Cnil; |
385 |
V59= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
V81= Cnil; |
386 |
(void)(((V58))->v.v_self[11]= ((V59))); |
V82= Cnil; |
387 |
(void)((*(LnkLI180))(V59,VV[29])); |
V83 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28])); |
388 |
V80 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30])); |
V65= (VFUN_NARGS=1,(*(LnkLI18))(V83)); |
389 |
V60= (VFUN_NARGS=1,(*(LnkLI18))(V80)); |
V66= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
390 |
V61= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
(void)(((V65))->v.v_self[11]= ((V66))); |
391 |
(void)(((V60))->v.v_self[11]= ((V61))); |
(void)((*(LnkLI180))(V66,VV[28])); |
392 |
(void)((*(LnkLI180))(V61,VV[30])); |
V86 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29])); |
393 |
V83 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31])); |
V67= (VFUN_NARGS=1,(*(LnkLI18))(V86)); |
394 |
V62= (VFUN_NARGS=1,(*(LnkLI18))(V83)); |
V68= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
395 |
V63= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
(void)(((V67))->v.v_self[11]= ((V68))); |
396 |
(void)(((V62))->v.v_self[11]= ((V63))); |
(void)((*(LnkLI180))(V68,VV[29])); |
397 |
(void)((*(LnkLI180))(V63,VV[31])); |
V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30])); |
398 |
V86 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32])); |
V69= (VFUN_NARGS=1,(*(LnkLI18))(V89)); |
399 |
V64= (VFUN_NARGS=1,(*(LnkLI18))(V86)); |
V70= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
400 |
V65= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
(void)(((V69))->v.v_self[11]= ((V70))); |
401 |
(void)(((V64))->v.v_self[11]= ((V65))); |
(void)((*(LnkLI180))(V70,VV[30])); |
402 |
(void)((*(LnkLI180))(V65,VV[32])); |
V92 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31])); |
403 |
V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33])); |
V71= (VFUN_NARGS=1,(*(LnkLI18))(V92)); |
404 |
V66= (VFUN_NARGS=1,(*(LnkLI18))(V89)); |
V72= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
405 |
V67= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
(void)(((V71))->v.v_self[11]= ((V72))); |
406 |
(void)(((V66))->v.v_self[11]= ((V67))); |
(void)((*(LnkLI180))(V72,VV[31])); |
407 |
(void)((*(LnkLI180))(V67,VV[33])); |
V95 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32])); |
408 |
V92 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34])); |
V73= (VFUN_NARGS=1,(*(LnkLI18))(V95)); |
409 |
V68= (VFUN_NARGS=1,(*(LnkLI18))(V92)); |
V74= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
410 |
V69= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
(void)(((V73))->v.v_self[11]= ((V74))); |
411 |
(void)(((V68))->v.v_self[11]= ((V69))); |
(void)((*(LnkLI180))(V74,VV[32])); |
412 |
(void)((*(LnkLI180))(V69,VV[34])); |
V98 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33])); |
413 |
V95 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35])); |
V75= (VFUN_NARGS=1,(*(LnkLI18))(V98)); |
414 |
V70= (VFUN_NARGS=1,(*(LnkLI18))(V95)); |
V76= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
415 |
V71= (VFUN_NARGS=1,(*(LnkLI21))((V56))); |
(void)(((V75))->v.v_self[11]= ((V76))); |
416 |
(void)(((V70))->v.v_self[11]= ((V71))); |
(void)((*(LnkLI180))(V76,VV[33])); |
417 |
(void)((*(LnkLI180))(V71,VV[35])); |
V101 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34])); |
418 |
V72= (VV[17]->s.s_dbind); |
V77= (VFUN_NARGS=1,(*(LnkLI18))(V101)); |
419 |
V73= (VFUN_NARGS=1,(*(LnkLI21))((V58))); |
V78= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
420 |
(void)(((V72))->v.v_self[11]= ((V73))); |
(void)(((V77))->v.v_self[11]= ((V78))); |
421 |
(void)((*(LnkLI180))(V73,VV[16])); |
(void)((*(LnkLI180))(V78,VV[34])); |
422 |
{object V100; |
V104 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35])); |
423 |
object V101; |
V79= (VFUN_NARGS=1,(*(LnkLI18))(V104)); |
424 |
V100= (VV[36]->s.s_dbind); |
V80= (VFUN_NARGS=1,(*(LnkLI21))((V65))); |
425 |
V101= CMPcar((V100)); |
(void)(((V79))->v.v_self[11]= ((V80))); |
426 |
|
(void)((*(LnkLI180))(V80,VV[35])); |
427 |
|
V81= (VV[17]->s.s_dbind); |
428 |
|
V82= (VFUN_NARGS=1,(*(LnkLI21))((V67))); |
429 |
|
(void)(((V81))->v.v_self[11]= ((V82))); |
430 |
|
(void)((*(LnkLI180))(V82,VV[16])); |
431 |
|
{object V109; |
432 |
|
object V110; |
433 |
|
V109= (VV[36]->s.s_dbind); |
434 |
|
V110= CMPcar((V109)); |
435 |
goto T176; |
goto T176; |
436 |
T176:; |
T176:; |
437 |
if(!(((V100))==Cnil)){ |
if(!(((V109))==Cnil)){ |
438 |
goto T177;} |
goto T177;} |
439 |
goto T172; |
goto T172; |
440 |
goto T177; |
goto T177; |
441 |
T177:; |
T177:; |
442 |
{object V102; |
{object V111; |
443 |
object V103; |
object V112; |
444 |
object V104; |
object V113; |
445 |
object V105; |
object V114; |
446 |
V102= (*(LnkLI181))((V101)); |
V111= (*(LnkLI181))((V110)); |
447 |
V103= (*(LnkLI182))((V101)); |
V112= (*(LnkLI182))((V110)); |
448 |
{object V106= (V103); |
{object V115= (V112); |
449 |
if((V106!= VV[30]))goto T185; |
if((V115!= VV[30]))goto T185; |
450 |
V104= (V60); |
V113= (V69); |
451 |
goto T184; |
goto T184; |
452 |
goto T185; |
goto T185; |
453 |
T185:; |
T185:; |
454 |
if((V106!= VV[28]))goto T186; |
if((V115!= VV[28]))goto T186; |
455 |
V104= (V56); |
V113= (V65); |
456 |
goto T184; |
goto T184; |
457 |
goto T186; |
goto T186; |
458 |
T186:; |
T186:; |
459 |
if((V106!= VV[29]))goto T187; |
if((V115!= VV[29]))goto T187; |
460 |
V104= (V58); |
V113= (V67); |
461 |
goto T184; |
goto T184; |
462 |
goto T187; |
goto T187; |
463 |
T187:; |
T187:; |
464 |
if((V106!= VV[31]))goto T188; |
if((V115!= VV[31]))goto T188; |
465 |
V104= (V62); |
V113= (V71); |
466 |
goto T184; |
goto T184; |
467 |
goto T188; |
goto T188; |
468 |
T188:; |
T188:; |
469 |
if((V106!= VV[32]))goto T189; |
if((V115!= VV[32]))goto T189; |
470 |
V104= (V64); |
V113= (V73); |
471 |
goto T184; |
goto T184; |
472 |
goto T189; |
goto T189; |
473 |
T189:; |
T189:; |
474 |
FEerror("The ECASE key value ~s is illegal.",1,V106); |
FEerror("The ECASE key value ~s is illegal.",1,V115); |
475 |
V104= Cnil; |
V113= Cnil; |
476 |
goto T184;} |
goto T184;} |
477 |
goto T184; |
goto T184; |
478 |
T184:;{object V107; |
T184:;{object V116; |
479 |
V107= (VFUN_NARGS=2,(*(LnkLI25))((V102),Cnil)); |
V116= (VFUN_NARGS=2,(*(LnkLI25))((V111),Cnil)); |
480 |
if(V107==Cnil)goto T191; |
if(V116==Cnil)goto T191; |
481 |
V105= V107; |
V114= V116; |
482 |
goto T190; |
goto T190; |
483 |
goto T191; |
goto T191; |
484 |
T191:;} |
T191:;} |
485 |
V105= (VFUN_NARGS=1,(*(LnkLI21))((V104))); |
V114= (VFUN_NARGS=1,(*(LnkLI21))((V113))); |
486 |
goto T190; |
goto T190; |
487 |
T190:; |
T190:; |
488 |
if(((V103))==(VV[28])){ |
if(((V112))==(VV[28])){ |
489 |
goto T194;} |
goto T194;} |
490 |
if(!(((V103))==(VV[29]))){ |
if(!(((V112))==(VV[29]))){ |
491 |
goto T193;} |
goto T193;} |
492 |
goto T194; |
goto T194; |
493 |
T194:; |
T194:; |
494 |
(void)((*(LnkLI183))((V102))); |
(void)((*(LnkLI183))((V111))); |
495 |
goto T193; |
goto T193; |
496 |
T193:; |
T193:; |
497 |
(void)((*(LnkLI180))(V105,V102));} |
(void)((*(LnkLI180))(V114,V111));} |
498 |
V100= CMPcdr((V100)); |
V109= CMPcdr((V109)); |
499 |
V101= CMPcar((V100)); |
V110= CMPcar((V109)); |
500 |
goto T176;} |
goto T176;} |
501 |
goto T172; |
goto T172; |
502 |
T172:; |
T172:; |
503 |
{object V110; |
{object V119; |
504 |
register object V111; |
register object V120; |
505 |
V110= (VV[36]->s.s_dbind); |
V119= (VV[36]->s.s_dbind); |
506 |
V111= CMPcar((V110)); |
V120= CMPcar((V119)); |
507 |
goto T207; |
goto T207; |
508 |
T207:; |
T207:; |
509 |
if(!(((V110))==Cnil)){ |
if(!(((V119))==Cnil)){ |
510 |
goto T208;} |
goto T208;} |
511 |
goto T203; |
goto T203; |
512 |
goto T208; |
goto T208; |
513 |
T208:; |
T208:; |
514 |
{register object V112; |
{register object V121; |
515 |
register object V113; |
register object V122; |
516 |
object V114; |
object V123; |
517 |
object V115; |
object V124; |
518 |
object V116; |
object V125; |
519 |
object V117; |
object V126; |
520 |
V112= (*(LnkLI181))((V111)); |
V121= (*(LnkLI181))((V120)); |
521 |
V113= (*(LnkLI182))((V111)); |
V122= (*(LnkLI182))((V120)); |
522 |
V114= (*(LnkLI184))((V111)); |
V123= (*(LnkLI184))((V120)); |
523 |
V115= (*(LnkLI185))((V111)); |
V124= (*(LnkLI185))((V120)); |
524 |
V116= (*(LnkLI186))((V111)); |
V125= (*(LnkLI186))((V120)); |
525 |
V117= (*(LnkLI187))((V111)); |
V126= (*(LnkLI187))((V120)); |
526 |
{object V118; |
{object V127; |
527 |
base[2]= (V117); |
base[2]= (V126); |
528 |
base[3]= VV[37]; |
base[3]= VV[37]; |
529 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
530 |
Lgetf(); |
Lgetf(); |
531 |
vs_top=sup; |
vs_top=sup; |
532 |
V118= vs_base[0]; |
V127= vs_base[0]; |
533 |
{register object V119; |
{register object V128; |
534 |
object V120; |
object V129; |
535 |
object V121; |
object V130; |
536 |
object V122; |
object V131; |
537 |
base[2]= (V112); |
base[2]= (V121); |
538 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
539 |
(void) (*Lnk188)(); |
(void) (*Lnk188)(); |
540 |
if(vs_base>=vs_top){vs_top=sup;goto T224;} |
if(vs_base>=vs_top){vs_top=sup;goto T224;} |
541 |
V119= vs_base[0]; |
V128= vs_base[0]; |
542 |
vs_base++; |
vs_base++; |
543 |
if(vs_base>=vs_top){vs_top=sup;goto T225;} |
if(vs_base>=vs_top){vs_top=sup;goto T225;} |
544 |
V120= vs_base[0]; |
V129= vs_base[0]; |
545 |
vs_base++; |
vs_base++; |
546 |
if(vs_base>=vs_top){vs_top=sup;goto T226;} |
if(vs_base>=vs_top){vs_top=sup;goto T226;} |
547 |
V121= vs_base[0]; |
V130= vs_base[0]; |
548 |
vs_base++; |
vs_base++; |
549 |
if(vs_base>=vs_top){vs_top=sup;goto T227;} |
if(vs_base>=vs_top){vs_top=sup;goto T227;} |
550 |
V122= vs_base[0]; |
V131= vs_base[0]; |
551 |
vs_top=sup; |
vs_top=sup; |
552 |
goto T228; |
goto T228; |
553 |
goto T224; |
goto T224; |
554 |
T224:; |
T224:; |
555 |
V119= Cnil; |
V128= Cnil; |
556 |
goto T225; |
goto T225; |
557 |
T225:; |
T225:; |
558 |
V120= Cnil; |
V129= Cnil; |
559 |
goto T226; |
goto T226; |
560 |
T226:; |
T226:; |
561 |
V121= Cnil; |
V130= Cnil; |
562 |
goto T227; |
goto T227; |
563 |
T227:; |
T227:; |
564 |
V122= Cnil; |
V131= Cnil; |
565 |
goto T228; |
goto T228; |
566 |
T228:; |
T228:; |
567 |
{register object V123; |
{register object V132; |
568 |
register object V124; |
register object V133; |
569 |
object V125; |
object V134; |
570 |
V123= (VFUN_NARGS=1,(*(LnkLI25))((V112))); |
V132= (VFUN_NARGS=1,(*(LnkLI25))((V121))); |
571 |
if(!(((V123))==((V61)))){ |
if(!(((V132))==((V70)))){ |
572 |
goto T232;} |
goto T232;} |
573 |
V124= (V60); |
V133= (V69); |
574 |
goto T230; |
goto T230; |
575 |
goto T232; |
goto T232; |
576 |
T232:; |
T232:; |
577 |
if(!(((V123))==((V57)))){ |
if(!(((V132))==((V66)))){ |
578 |
goto T235;} |
goto T235;} |
579 |
V124= (V56); |
V133= (V65); |
580 |
goto T230; |
goto T230; |
581 |
goto T235; |
goto T235; |
582 |
T235:; |
T235:; |
583 |
if(!(((V123))==((V59)))){ |
if(!(((V132))==((V68)))){ |
584 |
goto T238;} |
goto T238;} |
585 |
V124= (V58); |
V133= (V67); |
586 |
goto T230; |
goto T230; |
587 |
goto T238; |
goto T238; |
588 |
T238:; |
T238:; |
589 |
if(!(((V123))==((V67)))){ |
if(!(((V132))==((V76)))){ |
590 |
goto T241;} |
goto T241;} |
591 |
V124= (V66); |
V133= (V75); |
592 |
goto T230; |
goto T230; |
593 |
goto T241; |
goto T241; |
594 |
T241:; |
T241:; |
595 |
if(!(((V123))==((V69)))){ |
if(!(((V132))==((V78)))){ |
596 |
goto T244;} |
goto T244;} |
597 |
V124= (V68); |
V133= (V77); |
598 |
goto T230; |
goto T230; |
599 |
goto T244; |
goto T244; |
600 |
T244:; |
T244:; |
601 |
if(!(((V123))==((V63)))){ |
if(!(((V132))==((V72)))){ |
602 |
goto T247;} |
goto T247;} |
603 |
V124= (V62); |
V133= (V71); |
604 |
goto T230; |
goto T230; |
605 |
goto T247; |
goto T247; |
606 |
T247:; |
T247:; |
607 |
if(!(((V123))==((V65)))){ |
if(!(((V132))==((V74)))){ |
608 |
goto T250;} |
goto T250;} |
609 |
V124= (V64); |
V133= (V73); |
610 |
goto T230; |
goto T230; |
611 |
goto T250; |
goto T250; |
612 |
T250:; |
T250:; |
613 |
if(!(((V123))==((V71)))){ |
if(!(((V132))==((V80)))){ |
614 |
goto T253;} |
goto T253;} |
615 |
V124= (V70); |
V133= (V79); |
616 |
goto T230; |
goto T230; |
617 |
goto T253; |
goto T253; |
618 |
T253:; |
T253:; |
619 |
if(!(((V123))==((V73)))){ |
if(!(((V132))==((V82)))){ |
620 |
goto T256;} |
goto T256;} |
621 |
V124= (V72); |
V133= (V81); |
622 |
goto T230; |
goto T230; |
623 |
goto T256; |
goto T256; |
624 |
T256:; |
T256:; |
625 |
V126 = CMPmake_fixnum((long)length((V119))); |
V135 = CMPmake_fixnum((long)length((V128))); |
626 |
V124= (VFUN_NARGS=2,(*(LnkLI18))(V126,(V123))); |
V133= (VFUN_NARGS=2,(*(LnkLI18))(V135,(V132))); |
627 |
goto T230; |
goto T230; |
628 |
T230:; |
T230:; |
629 |
V125= Cnil; |
V134= Cnil; |
630 |
if(!(((V112))==(Ct))){ |
if(!(((V121))==(Ct))){ |
631 |
goto T259;} |
goto T259;} |
632 |
(VV[38]->s.s_dbind)= (V124); |
(VV[38]->s.s_dbind)= (V133); |
633 |
goto T259; |
goto T259; |
634 |
T259:; |
T259:; |
635 |
base[6]= Cnil; |
base[6]= Cnil; |
636 |
base[7]= VV[39]; |
base[7]= VV[39]; |
637 |
base[8]= symbol_name((V112)); |
base[8]= symbol_name((V121)); |
638 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
639 |
Lformat(); |
Lformat(); |
640 |
vs_top=sup; |
vs_top=sup; |
644 |
Lintern(); |
Lintern(); |
645 |
vs_top=sup; |
vs_top=sup; |
646 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
647 |
base[5]= (V123); |
base[5]= (V132); |
648 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
649 |
Lset(); |
Lset(); |
650 |
vs_top=sup; |
vs_top=sup; |
651 |
{register object V127; |
{register object V136; |
652 |
object V128; |
object V137; |
653 |
V127= (V119); |
V136= (V128); |
654 |
V128= CMPcar((V127)); |
V137= CMPcar((V136)); |
655 |
goto T275; |
goto T275; |
656 |
T275:; |
T275:; |
657 |
if(!(((V127))==Cnil)){ |
if(!(((V136))==Cnil)){ |
658 |
goto T276;} |
goto T276;} |
659 |
goto T271; |
goto T271; |
660 |
goto T276; |
goto T276; |
661 |
T276:; |
T276:; |
662 |
base[5]= (V128); |
base[5]= (V137); |
663 |
base[6]= VV[40]; |
base[6]= VV[40]; |
664 |
base[7]= VV[41]; |
base[7]= VV[41]; |
665 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
666 |
Lgetf(); |
Lgetf(); |
667 |
vs_top=sup; |
vs_top=sup; |
668 |
V129= vs_base[0]; |
V138= vs_base[0]; |
669 |
if((V129)==(VV[41])){ |
if((V138)==(VV[41])){ |
670 |
goto T280;} |
goto T280;} |
671 |
base[5]= VV[42]; |
base[5]= VV[42]; |
672 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
674 |
vs_top=sup; |
vs_top=sup; |
675 |
goto T280; |
goto T280; |
676 |
T280:; |
T280:; |
677 |
V127= CMPcdr((V127)); |
V136= CMPcdr((V136)); |
678 |
V128= CMPcar((V127)); |
V137= CMPcar((V136)); |
679 |
goto T275;} |
goto T275;} |
680 |
goto T271; |
goto T271; |
681 |
T271:; |
T271:; |
682 |
|
V139 = (V133); |
683 |
base[5]=VV[189]->s.s_gfdef; |
base[5]=VV[189]->s.s_gfdef; |
684 |
{object V131; |
{object V141; |
685 |
object V132= (V119); |
object V142= (V128); |
686 |
if(V132==Cnil){ |
if(V142==Cnil){ |
687 |
V130= Cnil; |
V140= Cnil; |
688 |
goto T295;} |
goto T295;} |
689 |
base[4]=V131=MMcons(Cnil,Cnil); |
base[4]=V141=MMcons(Cnil,Cnil); |
690 |
goto T296; |
goto T296; |
691 |
T296:; |
T296:; |
692 |
base[6]= (V132->c.c_car); |
base[6]= (V142->c.c_car); |
693 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
694 |
(void) (*Lnk189)(); |
(void) (*Lnk189)(); |
695 |
vs_top=sup; |
vs_top=sup; |
696 |
(V131->c.c_car)= vs_base[0]; |
(V141->c.c_car)= vs_base[0]; |
697 |
if((V132=MMcdr(V132))==Cnil){ |
if((V142=MMcdr(V142))==Cnil){ |
698 |
V130= base[4]; |
V140= base[4]; |
699 |
goto T295;} |
goto T295;} |
700 |
V131=MMcdr(V131)=MMcons(Cnil,Cnil); |
V141=MMcdr(V141)=MMcons(Cnil,Cnil); |
701 |
goto T296;} |
goto T296;} |
702 |
goto T295; |
goto T295; |
703 |
T295:; |
T295:; |
704 |
(void)(((V124))->v.v_self[9]= (V130)); |
(void)((V139)->v.v_self[9]= (V140)); |
705 |
(void)(((V124))->v.v_self[10]= (Cnil)); |
(void)(((V133))->v.v_self[10]= (Cnil)); |
706 |
if(!(((V113))==(VV[29]))){ |
if(!(((V122))==(VV[29]))){ |
707 |
goto T302;} |
goto T302;} |
708 |
V125= (VFUN_NARGS=1,(*(LnkLI190))((V124))); |
V134= (VFUN_NARGS=1,(*(LnkLI190))((V133))); |
709 |
goto T300; |
goto T300; |
710 |
goto T302; |
goto T302; |
711 |
T302:; |
T302:; |
712 |
V125= (VFUN_NARGS=1,(*(LnkLI21))((V124))); |
V134= (VFUN_NARGS=1,(*(LnkLI21))((V133))); |
713 |
goto T300; |
goto T300; |
714 |
T300:; |
T300:; |
715 |
V116= (*(LnkLI191))((V112),(V123),(V116),(V66),Cnil); |
V125= (*(LnkLI191))((V121),(V132),(V125),(V75),Cnil); |
716 |
V119= (*(LnkLI191))((V112),(V123),(V119),(V68),Ct); |
V128= (*(LnkLI191))((V121),(V132),(V128),(V77),Ct); |
717 |
{object V133= (V113); |
{object V143= (V122); |
718 |
if((V133!= VV[28]) |
if((V143!= VV[28]) |
719 |
&& (V133!= VV[29]))goto T308; |
&& (V143!= VV[29]))goto T308; |
720 |
(void)((VFUN_NARGS=14,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124),(V125),(V116),(V119),(V118),(V121)))); |
(void)((VFUN_NARGS=14,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134),(V125),(V128),(V127),(V130)))); |
721 |
goto T212; |
goto T212; |
722 |
goto T308; |
goto T308; |
723 |
T308:; |
T308:; |
724 |
if((V133!= VV[31]))goto T309; |
if((V143!= VV[31]))goto T309; |
725 |
(void)((VFUN_NARGS=10,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124),(V125)))); |
(void)((VFUN_NARGS=10,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134)))); |
726 |
goto T212; |
goto T212; |
727 |
goto T309; |
goto T309; |
728 |
T309:; |
T309:; |
729 |
if((V133!= VV[30]))goto T310; |
if((V143!= VV[30]))goto T310; |
730 |
(void)((VFUN_NARGS=10,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124),(V125)))); |
(void)((VFUN_NARGS=10,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133),(V134)))); |
731 |
goto T212; |
goto T212; |
732 |
goto T310; |
goto T310; |
733 |
T310:; |
T310:; |
734 |
if((V133!= VV[32]))goto T311; |
if((V143!= VV[32]))goto T311; |
735 |
(void)((VFUN_NARGS=9,(*(LnkLI192))((V113),(V123),(V112),(V70),(V114),(V115),(V122),(V120),(V124)))); |
(void)((VFUN_NARGS=9,(*(LnkLI192))((V122),(V132),(V121),(V79),(V123),(V124),(V131),(V129),(V133)))); |
736 |
goto T212; |
goto T212; |
737 |
goto T311; |
goto T311; |
738 |
T311:;}}}}} |
T311:;}}}}} |
739 |
goto T212; |
goto T212; |
740 |
T212:; |
T212:; |
741 |
V110= CMPcdr((V110)); |
V119= CMPcdr((V119)); |
742 |
V111= CMPcar((V110)); |
V120= CMPcar((V119)); |
743 |
goto T207;} |
goto T207;} |
744 |
goto T203; |
goto T203; |
745 |
T203:; |
T203:; |
746 |
{object V134; |
{object V144; |
747 |
object V135; |
object V145; |
748 |
V134= (VFUN_NARGS=1,(*(LnkLI25))(VV[43])); |
V144= (VFUN_NARGS=1,(*(LnkLI25))(VV[43])); |
749 |
if(type_of(V134)==t_structure){ |
if(type_of(V144)==t_structure){ |
750 |
goto T323;} |
goto T323;} |
751 |
goto T321; |
goto T321; |
752 |
goto T323; |
goto T323; |
753 |
T323:; |
T323:; |
754 |
if(!(((V134)->str.str_def)==(VV[44]))){ |
if(!(((V144)->str.str_def)==(VV[44]))){ |
755 |
goto T321;} |
goto T321;} |
756 |
V136= STREF(object,(V134),4); |
V146= STREF(object,(V144),4); |
757 |
goto T319; |
goto T319; |
758 |
goto T321; |
goto T321; |
759 |
T321:;{object V138; |
T321:;{object V148; |
760 |
V138= (VV[45]->s.s_dbind); |
V148= (VV[45]->s.s_dbind); |
761 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
762 |
base[5]= (V134); |
base[5]= (V144); |
763 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
764 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
765 |
vs_top=sup; |
vs_top=sup; |
766 |
V139= vs_base[0]; |
V149= vs_base[0]; |
767 |
if(!((V138)==(CMPcar(V139)))){ |
if(!((V148)==(CMPcar(V149)))){ |
768 |
goto T326;}} |
goto T326;}} |
769 |
V136= CMPcar(((V134))->cc.cc_turbo[12]); |
V146= CMPcar(((V144))->cc.cc_turbo[12]); |
770 |
goto T319; |
goto T319; |
771 |
goto T326; |
goto T326; |
772 |
T326:; |
T326:; |
774 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
775 |
Lerror(); |
Lerror(); |
776 |
vs_top=sup; |
vs_top=sup; |
777 |
V136= vs_base[0]; |
V146= vs_base[0]; |
778 |
goto T319; |
goto T319; |
779 |
T319:; |
T319:; |
780 |
V140= (*(LnkLI194))(VV[28],VV[47]); |
V150= (*(LnkLI194))(VV[28],VV[47]); |
781 |
V135= (V136)->v.v_self[fix(/* INLINE-ARGS */V140)]; |
V145= (V146)->v.v_self[fix(/* INLINE-ARGS */V150)]; |
782 |
base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V135))); |
base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V145))); |
783 |
base[4]= VV[48]; |
base[4]= VV[48]; |
784 |
vs_base=vs_top; |
vs_base=vs_top; |
785 |
(void) (*Lnk195)(); |
(void) (*Lnk195)(); |
804 |
L7(base); |
L7(base); |
805 |
vs_top=sup; |
vs_top=sup; |
806 |
(VV[54]->s.s_dbind)= base[3]; |
(VV[54]->s.s_dbind)= base[3]; |
807 |
{object V141 = (VV[54]->s.s_dbind); |
{object V151 = (VV[54]->s.s_dbind); |
808 |
bds_unwind1; |
bds_unwind1; |
809 |
VMR6(V141)}}} |
VMR6(V151)}}} |
810 |
base[0]=base[0]; |
base[0]=base[0]; |
811 |
return Cnil; |
return Cnil; |
812 |
} |
} |
813 |
/* local entry for function BOOTSTRAP-INITIALIZE-CLASS */ |
/* local entry for function BOOTSTRAP-INITIALIZE-CLASS */ |
814 |
|
|
815 |
static object LI8(object V150,object V149,object V148,object V147,object V146,object V145,object V144,object V143,object V142,object first,...) |
static object LI8(object V160,object V159,object V158,object V157,object V156,object V155,object V154,object V153,object V152,object first,...) |
816 |
{ |
{ |
817 |
va_list ap; |
va_list ap; |
818 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
819 |
{register object V151; |
{register object V161; |
|
object V152; |
|
|
object V153; |
|
|
object V154; |
|
|
object V155; |
|
|
object V156; |
|
|
object V157; |
|
|
object V158; |
|
|
object V159; |
|
|
object V160; |
|
|
object V161; |
|
820 |
object V162; |
object V162; |
821 |
|
object V163; |
822 |
|
object V164; |
823 |
|
object V165; |
824 |
|
object V166; |
825 |
|
object V167; |
826 |
|
object V168; |
827 |
|
object V169; |
828 |
|
object V170; |
829 |
|
object V171; |
830 |
|
object V172; |
831 |
va_start(ap,first); |
va_start(ap,first); |
832 |
if(narg <9) too_few_arguments(); |
if(narg <9) too_few_arguments(); |
833 |
base[0]= V150; |
base[0]= V160; |
834 |
base[1]= V149; |
base[1]= V159; |
835 |
V151= V148; |
V161= V158; |
836 |
V152= V147; |
V162= V157; |
837 |
V153= V146; |
V163= V156; |
838 |
V154= V145; |
V164= V155; |
839 |
V155= V144; |
V165= V154; |
840 |
V156= V143; |
V166= V153; |
841 |
V157= V142; |
V167= V152; |
842 |
narg = narg - 9; |
narg = narg - 9; |
843 |
if (narg <= 0) goto T346; |
if (narg <= 0) goto T346; |
844 |
else { |
else { |
845 |
V158= first;} |
V168= first;} |
846 |
if (--narg <= 0) goto T347; |
if (--narg <= 0) goto T347; |
847 |
else { |
else { |
848 |
V159= va_arg(ap,object);} |
V169= va_arg(ap,object);} |
849 |
if (--narg <= 0) goto T348; |
if (--narg <= 0) goto T348; |
850 |
else { |
else { |
851 |
V160= va_arg(ap,object);} |
V170= va_arg(ap,object);} |
852 |
if (--narg <= 0) goto T349; |
if (--narg <= 0) goto T349; |
853 |
else { |
else { |
854 |
V161= va_arg(ap,object);} |
V171= va_arg(ap,object);} |
855 |
if (--narg <= 0) goto T350; |
if (--narg <= 0) goto T350; |
856 |
else { |
else { |
857 |
V162= va_arg(ap,object);} |
V172= va_arg(ap,object);} |
858 |
--narg; goto T351; |
--narg; goto T351; |
859 |
goto T346; |
goto T346; |
860 |
T346:; |
T346:; |
861 |
V158= Cnil; |
V168= Cnil; |
862 |
goto T347; |
goto T347; |
863 |
T347:; |
T347:; |
864 |
V159= Cnil; |
V169= Cnil; |
865 |
goto T348; |
goto T348; |
866 |
T348:; |
T348:; |
867 |
V160= Cnil; |
V170= Cnil; |
868 |
goto T349; |
goto T349; |
869 |
T349:; |
T349:; |
870 |
V161= Cnil; |
V171= Cnil; |
871 |
goto T350; |
goto T350; |
872 |
T350:; |
T350:; |
873 |
V162= Cnil; |
V172= Cnil; |
874 |
goto T351; |
goto T351; |
875 |
T351:; |
T351:; |
876 |
base[14]= VV[55]; |
base[14]= VV[55]; |
877 |
base[15]= (V151); |
base[15]= (V161); |
878 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
879 |
L10(base); |
L10(base); |
880 |
vs_top=sup; |
vs_top=sup; |
881 |
base[14]= VV[48]; |
base[14]= VV[48]; |
882 |
base[15]= (V153); |
base[15]= (V163); |
883 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
884 |
L10(base); |
L10(base); |
885 |
vs_top=sup; |
vs_top=sup; |
886 |
base[14]= VV[49]; |
base[14]= VV[49]; |
887 |
V163= (VFUN_NARGS=1,(*(LnkLI25))(Ct)); |
V173 = base[1]; |
888 |
if(!((base[1])==(/* INLINE-ARGS */V163))){ |
V174= (VFUN_NARGS=1,(*(LnkLI25))(Ct)); |
889 |
|
if(!((V173)==(/* INLINE-ARGS */V174))){ |
890 |
goto T367;} |
goto T367;} |
891 |
base[15]= Ct; |
base[15]= Ct; |
892 |
goto T365; |
goto T365; |
899 |
L10(base); |
L10(base); |
900 |
vs_top=sup; |
vs_top=sup; |
901 |
base[14]= VV[35]; |
base[14]= VV[35]; |
902 |
{object V164; |
{object V175; |
903 |
V164= (VFUN_NARGS=1,(*(LnkLI21))((V152))); |
V175= (VFUN_NARGS=1,(*(LnkLI21))((V162))); |
904 |
V165= list(2,VV[56],base[1]); |
V176= list(2,VV[56],base[1]); |
905 |
(void)((*(LnkLI196))(VV[35],(V164),VV[49],/* INLINE-ARGS */V165)); |
(void)((*(LnkLI196))(VV[35],(V175),VV[49],/* INLINE-ARGS */V176)); |
906 |
(void)((*(LnkLI196))(VV[35],(V164),VV[57],base[1])); |
(void)((*(LnkLI196))(VV[35],(V175),VV[57],base[1])); |
907 |
base[15]= (V164);} |
base[15]= (V175);} |
908 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
909 |
L10(base); |
L10(base); |
910 |
vs_top=sup; |
vs_top=sup; |
911 |
base[14]= VV[58]; |
base[14]= VV[58]; |
912 |
base[16]= (V156); |
base[16]= (V166); |
913 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
914 |
L9(base); |
L9(base); |
915 |
vs_top=sup; |
vs_top=sup; |
918 |
L10(base); |
L10(base); |
919 |
vs_top=sup; |
vs_top=sup; |
920 |
base[14]= VV[59]; |
base[14]= VV[59]; |
921 |
base[16]= CMPcdr((V156)); |
base[16]= CMPcdr((V166)); |
922 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
923 |
L9(base); |
L9(base); |
924 |
vs_top=sup; |
vs_top=sup; |
932 |
L10(base); |
L10(base); |
933 |
vs_top=sup; |
vs_top=sup; |
934 |
base[14]= VV[61]; |
base[14]= VV[61]; |
935 |
base[16]= (V154); |
base[16]= (V164); |
936 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
937 |
L9(base); |
L9(base); |
938 |
vs_top=sup; |
vs_top=sup; |
941 |
L10(base); |
L10(base); |
942 |
vs_top=sup; |
vs_top=sup; |
943 |
base[14]= VV[62]; |
base[14]= VV[62]; |
944 |
base[16]= (V155); |
base[16]= (V165); |
945 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
946 |
L9(base); |
L9(base); |
947 |
vs_top=sup; |
vs_top=sup; |
955 |
L10(base); |
L10(base); |
956 |
vs_top=sup; |
vs_top=sup; |
957 |
base[14]= VV[47]; |
base[14]= VV[47]; |
958 |
base[15]= (V157); |
base[15]= (V167); |
959 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
960 |
L10(base); |
L10(base); |
961 |
vs_top=sup; |
vs_top=sup; |
962 |
base[14]= VV[64];{object V166; |
base[14]= VV[64];{object V177; |
963 |
{register object x= (V151),V168= (VV[65]->s.s_dbind); |
{register object x= (V161),V179= (VV[65]->s.s_dbind); |
964 |
while(V168!=Cnil) |
while(V179!=Cnil) |
965 |
if(eql(x,V168->c.c_car->c.c_car) &&V168->c.c_car != Cnil){ |
if(eql(x,V179->c.c_car->c.c_car) &&V179->c.c_car != Cnil){ |
966 |
V167= (V168->c.c_car); |
V178= (V179->c.c_car); |
967 |
goto T405; |
goto T405; |
968 |
}else V168=V168->c.c_cdr; |
}else V179=V179->c.c_cdr; |
969 |
V167= Cnil;} |
V178= Cnil;} |
970 |
goto T405; |
goto T405; |
971 |
T405:; |
T405:; |
972 |
V166= CMPcadr(V167); |
V177= CMPcadr(V178); |
973 |
if(V166==Cnil)goto T403; |
if(V177==Cnil)goto T403; |
974 |
base[15]= V166; |
base[15]= V177; |
975 |
goto T402; |
goto T402; |
976 |
goto T403; |
goto T403; |
977 |
T403:;} |
T403:;} |
978 |
base[16]= (V151); |
base[16]= (V161); |
979 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
980 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
981 |
vs_top=sup; |
vs_top=sup; |
986 |
L10(base); |
L10(base); |
987 |
vs_top=sup; |
vs_top=sup; |
988 |
base[14]= VV[66]; |
base[14]= VV[66]; |
989 |
if((V161)==Cnil){ |
if((V171)==Cnil){ |
990 |
V169= Cnil; |
V180= Cnil; |
991 |
goto T410;} |
goto T410;} |
992 |
V169= list(2,VV[67],(V161)); |
V180= list(2,VV[67],(V171)); |
993 |
goto T410; |
goto T410; |
994 |
T410:; |
T410:; |
995 |
if((V162)==Cnil){ |
if((V172)==Cnil){ |
996 |
V170= Cnil; |
V181= Cnil; |
997 |
goto T411;} |
goto T411;} |
998 |
V170= list(2,VV[68],(V162)); |
V181= list(2,VV[68],(V172)); |
999 |
goto T411; |
goto T411; |
1000 |
T411:; |
T411:; |
1001 |
base[15]= append(V169,V170); |
base[15]= append(V180,V181); |
1002 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1003 |
L10(base); |
L10(base); |
1004 |
vs_top=sup; |
vs_top=sup; |
1005 |
{register object x= base[0],V171= VV[69]; |
{register object x= base[0],V182= VV[69]; |
1006 |
while(V171!=Cnil) |
while(V182!=Cnil) |
1007 |
if(x==(V171->c.c_car)){ |
if(x==(V182->c.c_car)){ |
1008 |
goto T414; |
goto T414; |
1009 |
}else V171=V171->c.c_cdr; |
}else V182=V182->c.c_cdr; |
1010 |
goto T412;} |
goto T412;} |
1011 |
goto T414; |
goto T414; |
1012 |
T414:; |
T414:; |
1013 |
base[14]= VV[70]; |
base[14]= VV[70]; |
1014 |
base[15]= (V159); |
base[15]= (V169); |
1015 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1016 |
L10(base); |
L10(base); |
1017 |
vs_top=sup; |
vs_top=sup; |
1018 |
base[14]= VV[71]; |
base[14]= VV[71]; |
1019 |
base[15]= (V160); |
base[15]= (V170); |
1020 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1021 |
L10(base); |
L10(base); |
1022 |
vs_top=sup; |
vs_top=sup; |
1029 |
T412:; |
T412:; |
1030 |
if(!((base[0])==(VV[32]))){ |
if(!((base[0])==(VV[32]))){ |
1031 |
goto T425;} |
goto T425;} |
1032 |
base[14]= VV[64];{object V173; |
base[14]= VV[64];{object V184; |
1033 |
{register object x= (V151),V175= (VV[65]->s.s_dbind); |
{register object x= (V161),V186= (VV[65]->s.s_dbind); |
1034 |
while(V175!=Cnil) |
while(V186!=Cnil) |
1035 |
if(eql(x,V175->c.c_car->c.c_car) &&V175->c.c_car != Cnil){ |
if(eql(x,V186->c.c_car->c.c_car) &&V186->c.c_car != Cnil){ |
1036 |
V174= (V175->c.c_car); |
V185= (V186->c.c_car); |
1037 |
goto T432; |
goto T432; |
1038 |
}else V175=V175->c.c_cdr; |
}else V186=V186->c.c_cdr; |
1039 |
V174= Cnil;} |
V185= Cnil;} |
1040 |
goto T432; |
goto T432; |
1041 |
T432:; |
T432:; |
1042 |
V173= CMPcadr(V174); |
V184= CMPcadr(V185); |
1043 |
if(V173==Cnil)goto T430; |
if(V184==Cnil)goto T430; |
1044 |
base[15]= V173; |
base[15]= V184; |
1045 |
goto T429; |
goto T429; |
1046 |
goto T430; |
goto T430; |
1047 |
T430:;} |
T430:;} |
1048 |
base[16]= (V151); |
base[16]= (V161); |
1049 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1050 |
(void) (*Lnk197)(); |
(void) (*Lnk197)(); |
1051 |
vs_top=sup; |
vs_top=sup; |
1090 |
goto T425; |
goto T425; |
1091 |
T425:; |
T425:; |
1092 |
base[14]= VV[80]; |
base[14]= VV[80]; |
1093 |
if((V158)!=Cnil){ |
if((V168)!=Cnil){ |
1094 |
base[15]= (V158); |
base[15]= (V168); |
1095 |
goto T449;} |
goto T449;} |
1096 |
base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V157))); |
base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V167))); |
1097 |
goto T449; |
goto T449; |
1098 |
T449:; |
T449:; |
1099 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1101 |
vs_top=sup; |
vs_top=sup; |
1102 |
goto T423; |
goto T423; |
1103 |
T423:; |
T423:; |
1104 |
{object V176 = base[1]; |
{object V187 = base[1]; |
1105 |
VMR7(V176)} |
VMR7(V187)} |
1106 |
va_end(ap); |
va_end(ap); |
1107 |
base[0]=base[0]; |
base[0]=base[0]; |
1108 |
return Cnil;} |
return Cnil;} |
1109 |
} |
} |
1110 |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
1111 |
|
|
1112 |
static object LI11(V182,V183,V184,V185,V186) |
static object LI11(V193,V194,V195,V196,V197) |
1113 |
|
|
1114 |
object V182;object V183;object V184;object V185;object V186; |
object V193;object V194;object V195;object V196;object V197; |
1115 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1116 |
goto TTL; |
goto TTL; |
1117 |
TTL:; |
TTL:; |
1118 |
{object V187; |
{object V198; |
1119 |
V187= small_fixnum(-1); |
V198= small_fixnum(-1); |
1120 |
{object V188; |
{object V199; |
1121 |
object V189= (V184); |
object V200= (V195); |
1122 |
if(V189==Cnil){ |
if(V200==Cnil){ |
1123 |
{object V190 = Cnil; |
{object V201 = Cnil; |
1124 |
VMR8(V190)}} |
VMR8(V201)}} |
1125 |
base[0]=V188=MMcons(Cnil,Cnil); |
base[0]=V199=MMcons(Cnil,Cnil); |
1126 |
goto T450; |
goto T450; |
1127 |
T450:; |
T450:; |
1128 |
V187= number_plus((V187),small_fixnum(1)); |
V198= number_plus((V198),small_fixnum(1)); |
1129 |
(V188->c.c_car)= (*(LnkLI198))((V182),(V183),(V189->c.c_car),(V185),(V186),(V187)); |
(V199->c.c_car)= (*(LnkLI198))((V193),(V194),(V200->c.c_car),(V196),(V197),(V198)); |
1130 |
if((V189=MMcdr(V189))==Cnil){ |
if((V200=MMcdr(V200))==Cnil){ |
1131 |
{object V192 = base[0]; |
{object V203 = base[0]; |
1132 |
VMR8(V192)}} |
VMR8(V203)}} |
1133 |
V188=MMcdr(V188)=MMcons(Cnil,Cnil); |
V199=MMcdr(V199)=MMcons(Cnil,Cnil); |
1134 |
goto T450;}} |
goto T450;}} |
1135 |
base[0]=base[0]; |
base[0]=base[0]; |
1136 |
return Cnil; |
return Cnil; |
1137 |
} |
} |
1138 |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
1139 |
|
|
1140 |
static object LI15(V199,V200,V201,V202,V203,V204) |
static object LI15(V210,V211,V212,V213,V214,V215) |
1141 |
|
|
1142 |
object V199;object V200;object V201;object V202;register object V203;register object V204; |
object V210;object V211;object V212;object V213;register object V214;register object V215; |
1143 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1144 |
goto TTL; |
goto TTL; |
1145 |
TTL:; |
TTL:; |
1146 |
base[0]= (V201); |
base[0]= (V212); |
1147 |
{register object V205; |
{register object V216; |
1148 |
if(((V203))==Cnil){ |
if(((V214))==Cnil){ |
1149 |
goto T456;} |
goto T456;} |
1150 |
base[1]= VV[34]; |
base[1]= VV[34]; |
1151 |
goto T454; |
goto T454; |
1154 |
base[1]= VV[33]; |
base[1]= VV[33]; |
1155 |
goto T454; |
goto T454; |
1156 |
T454:; |
T454:; |
1157 |
base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V202))); |
base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V213))); |
1158 |
base[4]= base[0]; |
base[4]= base[0]; |
1159 |
base[5]= VV[81]; |
base[5]= VV[81]; |
1160 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1161 |
Lgetf(); |
Lgetf(); |
1162 |
vs_top=sup; |
vs_top=sup; |
1163 |
V205= vs_base[0]; |
V216= vs_base[0]; |
1164 |
base[4]= VV[55]; |
base[4]= VV[55]; |
1165 |
base[5]= (V205); |
base[5]= (V216); |
1166 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1167 |
L17(base); |
L17(base); |
1168 |
vs_top=sup; |
vs_top=sup; |
1216 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1217 |
L17(base); |
L17(base); |
1218 |
vs_top=sup; |
vs_top=sup; |
1219 |
base[4]= VV[49];{object V206; |
base[4]= VV[49];{object V217; |
1220 |
base[6]= VV[93]; |
base[6]= VV[93]; |
1221 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1222 |
L16(base); |
L16(base); |
1223 |
vs_top=sup; |
vs_top=sup; |
1224 |
V206= vs_base[0]; |
V217= vs_base[0]; |
1225 |
if(V206==Cnil)goto T491; |
if(V217==Cnil)goto T491; |
1226 |
base[5]= V206; |
base[5]= V217; |
1227 |
goto T490; |
goto T490; |
1228 |
goto T491; |
goto T491; |
1229 |
T491:;} |
T491:;} |
1233 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1234 |
L17(base); |
L17(base); |
1235 |
vs_top=sup; |
vs_top=sup; |
1236 |
base[4]= VV[51];{object V207; |
base[4]= VV[51];{object V218; |
1237 |
base[6]= VV[94]; |
base[6]= VV[94]; |
1238 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1239 |
L16(base); |
L16(base); |
1240 |
vs_top=sup; |
vs_top=sup; |
1241 |
V207= vs_base[0]; |
V218= vs_base[0]; |
1242 |
if(V207==Cnil)goto T497; |
if(V218==Cnil)goto T497; |
1243 |
base[5]= V207; |
base[5]= V218; |
1244 |
goto T496; |
goto T496; |
1245 |
goto T497; |
goto T497; |
1246 |
T497:;} |
T497:;} |
1251 |
L17(base); |
L17(base); |
1252 |
vs_top=sup; |
vs_top=sup; |
1253 |
base[4]= VV[26]; |
base[4]= VV[26]; |
1254 |
base[5]= (V200); |
base[5]= (V211); |
1255 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1256 |
L17(base); |
L17(base); |
1257 |
vs_top=sup; |
vs_top=sup; |
1258 |
if(((V203))==Cnil){ |
if(((V214))==Cnil){ |
1259 |
goto T503;} |
goto T503;} |
1260 |
base[4]= VV[96]; |
base[4]= VV[96]; |
1261 |
base[5]= (V204); |
base[5]= (V215); |
1262 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1263 |
L17(base); |
L17(base); |
1264 |
vs_top=sup; |
vs_top=sup; |
1265 |
base[4]= VV[97]; |
base[4]= VV[97]; |
1266 |
base[6]= Cnil; |
base[6]= Cnil; |
1267 |
base[7]= (V205); |
base[7]= (V216); |
1268 |
base[8]= (V204); |
base[8]= (V215); |
1269 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1270 |
(void) (*Lnk199)(); |
(void) (*Lnk199)(); |
1271 |
vs_top=sup; |
vs_top=sup; |
1275 |
vs_top=sup; |
vs_top=sup; |
1276 |
base[4]= VV[98]; |
base[4]= VV[98]; |
1277 |
base[6]= Cnil; |
base[6]= Cnil; |
1278 |
base[7]= (V205); |
base[7]= (V216); |
1279 |
base[8]= (V204); |
base[8]= (V215); |
1280 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1281 |
(void) (*Lnk200)(); |
(void) (*Lnk200)(); |
1282 |
vs_top=sup; |
vs_top=sup; |
1286 |
vs_top=sup; |
vs_top=sup; |
1287 |
base[4]= VV[99]; |
base[4]= VV[99]; |
1288 |
base[6]= Cnil; |
base[6]= Cnil; |
1289 |
base[7]= (V205); |
base[7]= (V216); |
1290 |
base[8]= (V204); |
base[8]= (V215); |
1291 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1292 |
(void) (*Lnk201)(); |
(void) (*Lnk201)(); |
1293 |
vs_top=sup; |
vs_top=sup; |
1300 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1301 |
L17(base); |
L17(base); |
1302 |
vs_top=sup; |
vs_top=sup; |
1303 |
{object V209;{object V210; |
{object V220;{object V221; |
1304 |
base[4]= (V205); |
base[4]= (V216); |
1305 |
base[5]= (VV[101]->s.s_dbind); |
base[5]= (VV[101]->s.s_dbind); |
1306 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1307 |
Lgethash(); |
Lgethash(); |
1308 |
vs_top=sup; |
vs_top=sup; |
1309 |
V210= vs_base[0]; |
V221= vs_base[0]; |
1310 |
if(V210==Cnil)goto T531; |
if(V221==Cnil)goto T531; |
1311 |
V209= V210; |
V220= V221; |
1312 |
goto T530; |
goto T530; |
1313 |
goto T531; |
goto T531; |
1314 |
T531:;} |
T531:;} |
1315 |
{object V212; |
{object V223; |
1316 |
object V213; |
object V224; |
1317 |
V212= (VV[101]->s.s_dbind); |
V223= (VV[101]->s.s_dbind); |
1318 |
base[5]= VV[102]; |
base[5]= VV[102]; |
1319 |
base[6]= VV[103]; |
base[6]= VV[103]; |
1320 |
base[7]= VV[104]; |
base[7]= VV[104]; |
1322 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1323 |
Lmake_hash_table(); |
Lmake_hash_table(); |
1324 |
vs_top=sup; |
vs_top=sup; |
1325 |
V213= vs_base[0]; |
V224= vs_base[0]; |
1326 |
base[5]= V205; |
base[5]= V216; |
1327 |
base[6]= (V212); |
base[6]= (V223); |
1328 |
base[7]= (V213); |
base[7]= (V224); |
1329 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1330 |
siLhash_set(); |
siLhash_set(); |
1331 |
vs_top=sup; |
vs_top=sup; |
1332 |
V209= vs_base[0];} |
V220= vs_base[0];} |
1333 |
goto T530; |
goto T530; |
1334 |
T530:; |
T530:; |
1335 |
base[4]= V200; |
base[4]= V211; |
1336 |
base[5]= V209; |
base[5]= V220; |
1337 |
base[6]= base[2]; |
base[6]= base[2]; |
1338 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1339 |
siLhash_set(); |
siLhash_set(); |
1340 |
vs_top=sup;} |
vs_top=sup;} |
1341 |
goto T503; |
goto T503; |
1342 |
T503:; |
T503:; |
1343 |
if(!(((V199))==(VV[28]))){ |
if(!(((V210))==(VV[28]))){ |
1344 |
goto T547;} |
goto T547;} |
1345 |
if(!(((V205))==(VV[71]))){ |
if(!(((V216))==(VV[71]))){ |
1346 |
goto T547;} |
goto T547;} |
1347 |
if(((V203))==Cnil){ |
if(((V214))==Cnil){ |
1348 |
goto T547;} |
goto T547;} |
1349 |
(VV[105]->s.s_dbind)= base[2]; |
(VV[105]->s.s_dbind)= base[2]; |
1350 |
goto T547; |
goto T547; |
1351 |
T547:; |
T547:; |
1352 |
if(!(((V199))==(VV[29]))){ |
if(!(((V210))==(VV[29]))){ |
1353 |
goto T555;} |
goto T555;} |
1354 |
if(!(((V205))==(VV[71]))){ |
if(!(((V216))==(VV[71]))){ |
1355 |
goto T555;} |
goto T555;} |
1356 |
if(((V203))==Cnil){ |
if(((V214))==Cnil){ |
1357 |
goto T555;} |
goto T555;} |
1358 |
(VV[106]->s.s_dbind)= base[2]; |
(VV[106]->s.s_dbind)= base[2]; |
1359 |
goto T555; |
goto T555; |
1360 |
T555:; |
T555:; |
1361 |
{object V217 = base[2]; |
{object V228 = base[2]; |
1362 |
VMR9(V217)}} |
VMR9(V228)}} |
1363 |
base[0]=base[0]; |
base[0]=base[0]; |
1364 |
return Cnil; |
return Cnil; |
1365 |
} |
} |
1366 |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */ |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */ |
1367 |
|
|
1368 |
static object LI18(V219) |
static object LI18(V230) |
1369 |
|
|
1370 |
object V219; |
object V230; |
1371 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
1372 |
bds_check; |
bds_check; |
1373 |
goto TTL; |
goto TTL; |
1374 |
TTL:; |
TTL:; |
1375 |
bds_bind(VV[107],(V219)); |
bds_bind(VV[107],(V230)); |
1376 |
{register object V220; |
{register object V231; |
1377 |
register object V221; |
register object V232; |
1378 |
V220= (VV[36]->s.s_dbind); |
V231= (VV[36]->s.s_dbind); |
1379 |
V221= CMPcar((V220)); |
V232= CMPcar((V231)); |
1380 |
goto T566; |
goto T566; |
1381 |
T566:; |
T566:; |
1382 |
if(!(((V220))==Cnil)){ |
if(!(((V231))==Cnil)){ |
1383 |
goto T567;} |
goto T567;} |
1384 |
{object V222 = Cnil; |
{object V233 = Cnil; |
1385 |
bds_unwind1; |
bds_unwind1; |
1386 |
VMR10(V222)} |
VMR10(V233)} |
1387 |
goto T567; |
goto T567; |
1388 |
T567:; |
T567:; |
1389 |
{object V223; |
{object V234; |
1390 |
object V224; |
object V235; |
1391 |
V223= (*(LnkLI181))((V221)); |
V234= (*(LnkLI181))((V232)); |
1392 |
V224= (*(LnkLI182))((V221)); |
V235= (*(LnkLI182))((V232)); |
1393 |
if(((V224))==(VV[31])){ |
if(((V235))==(VV[31])){ |
1394 |
goto T571;} |
goto T571;} |
1395 |
{object V225; |
{object V236; |
1396 |
V225= (*(LnkLI186))((V221)); |
V236= (*(LnkLI186))((V232)); |
1397 |
{register object V226; |
{register object V237; |
1398 |
register object V227; |
register object V238; |
1399 |
V226= (V225); |
V237= (V236); |
1400 |
V227= CMPcar((V226)); |
V238= CMPcar((V237)); |
1401 |
goto T580; |
goto T580; |
1402 |
T580:; |
T580:; |
1403 |
if(!(((V226))==Cnil)){ |
if(!(((V237))==Cnil)){ |
1404 |
goto T581;} |
goto T581;} |
1405 |
goto T571; |
goto T571; |
1406 |
goto T581; |
goto T581; |
1407 |
T581:; |
T581:; |
1408 |
{register object V228; |
{register object V239; |
1409 |
register object V229; |
register object V240; |
1410 |
register object V230; |
register object V241; |
1411 |
base[3]= (V227); |
base[3]= (V238); |
1412 |
base[4]= VV[81]; |
base[4]= VV[81]; |
1413 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1414 |
Lgetf(); |
Lgetf(); |
1415 |
vs_top=sup; |
vs_top=sup; |
1416 |
V228= vs_base[0]; |
V239= vs_base[0]; |
1417 |
base[3]= (V227); |
base[3]= (V238); |
1418 |
base[4]= VV[89]; |
base[4]= VV[89]; |
1419 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1420 |
Lgetf(); |
Lgetf(); |
1421 |
vs_top=sup; |
vs_top=sup; |
1422 |
V229= vs_base[0]; |
V240= vs_base[0]; |
1423 |
base[3]= (V227); |
base[3]= (V238); |
1424 |
base[4]= VV[91]; |
base[4]= VV[91]; |
1425 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1426 |
Lgetf(); |
Lgetf(); |
1427 |
vs_top=sup; |
vs_top=sup; |
1428 |
V230= vs_base[0]; |
V241= vs_base[0]; |
1429 |
(void)((*(LnkLI202))((V223),(V228),(V229),(V230),Cnil)); |
(void)((*(LnkLI202))((V234),(V239),(V240),(V241),Cnil)); |
1430 |
V231= (*(LnkLI203))((V228)); |
V242= (*(LnkLI203))((V239)); |
1431 |
V232= make_cons(/* INLINE-ARGS */V231,Cnil); |
V243= make_cons(/* INLINE-ARGS */V242,Cnil); |
1432 |
V233= (*(LnkLI204))((V228)); |
V244= (*(LnkLI204))((V239)); |
1433 |
V234= make_cons(/* INLINE-ARGS */V233,Cnil); |
V245= make_cons(/* INLINE-ARGS */V244,Cnil); |
1434 |
V235= (*(LnkLI205))((V228)); |
V246= (*(LnkLI205))((V239)); |
1435 |
V236= make_cons(/* INLINE-ARGS */V235,Cnil); |
V247= make_cons(/* INLINE-ARGS */V246,Cnil); |
1436 |
(void)((*(LnkLI202))(VV[108],(V228),/* INLINE-ARGS */V232,/* INLINE-ARGS */V234,/* INLINE-ARGS */V236));} |
(void)((*(LnkLI202))(VV[108],(V239),/* INLINE-ARGS */V243,/* INLINE-ARGS */V245,/* INLINE-ARGS */V247));} |
1437 |
V226= CMPcdr((V226)); |
V237= CMPcdr((V237)); |
1438 |
V227= CMPcar((V226)); |
V238= CMPcar((V237)); |
1439 |
goto T580;}}} |
goto T580;}}} |
1440 |
goto T571; |
goto T571; |
1441 |
T571:; |
T571:; |
1442 |
V220= CMPcdr((V220)); |
V231= CMPcdr((V231)); |
1443 |
V221= CMPcar((V220)); |
V232= CMPcar((V231)); |
1444 |
goto T566;} |
goto T566;} |
1445 |
base[0]=base[0]; |
base[0]=base[0]; |
1446 |
return Cnil; |
return Cnil; |
1451 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1452 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1453 |
vs_check; |
vs_check; |
1454 |
{register object V237; |
{register object V248; |
1455 |
object V238; |
object V249; |
1456 |
object V239; |
object V250; |
1457 |
object V240; |
object V251; |
1458 |
check_arg(4); |
check_arg(4); |
1459 |
V237=(base[0]); |
V248=(base[0]); |
1460 |
V238=(base[1]); |
V249=(base[1]); |
1461 |
V239=(base[2]); |
V250=(base[2]); |
1462 |
V240=(base[3]); |
V251=(base[3]); |
1463 |
vs_top=sup; |
vs_top=sup; |
1464 |
goto TTL; |
goto TTL; |
1465 |
TTL:; |
TTL:; |
1466 |
{object V241; |
{object V252; |
1467 |
object V242; |
object V253; |
1468 |
object V243; |
object V254; |
1469 |
object V244; |
object V255; |
1470 |
object V245; |
object V256; |
1471 |
{object V246= (V240); |
{object V257= (V251); |
1472 |
if((V246!= VV[120]))goto T607; |
if((V257!= VV[120]))goto T607; |
1473 |
base[4]= VV[109]; |
base[4]= VV[109]; |
1474 |
base[5]= (VV[206]->s.s_gfdef); |
base[5]= (VV[206]->s.s_gfdef); |
1475 |
base[6]= make_cons((V237),Cnil); |
base[6]= make_cons((V248),Cnil); |
1476 |
base[7]= make_cons((V237),Cnil); |
base[7]= make_cons((V248),Cnil); |
1477 |
base[8]= VV[110]; |
base[8]= VV[110]; |
1478 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1479 |
goto T606; |
goto T606; |
1480 |
goto T607; |
goto T607; |
1481 |
T607:; |
T607:; |
1482 |
if((V246!= VV[121]))goto T613; |
if((V257!= VV[121]))goto T613; |
1483 |
base[4]= VV[111]; |
base[4]= VV[111]; |
1484 |
base[5]= (VV[207]->s.s_gfdef); |
base[5]= (VV[207]->s.s_gfdef); |
1485 |
base[6]= list(2,VV[112],(V237)); |
base[6]= list(2,VV[112],(V248)); |
1486 |
base[7]= list(2,Ct,(V237)); |
base[7]= list(2,Ct,(V248)); |
1487 |
base[8]= VV[113]; |
base[8]= VV[113]; |
1488 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1489 |
goto T606; |
goto T606; |
1490 |
goto T613; |
goto T613; |
1491 |
T613:; |
T613:; |
1492 |
if((V246!= VV[122]))goto T619; |
if((V257!= VV[122]))goto T619; |
1493 |
base[4]= VV[114]; |
base[4]= VV[114]; |
1494 |
base[5]= (VV[208]->s.s_gfdef); |
base[5]= (VV[208]->s.s_gfdef); |
1495 |
base[6]= make_cons((V237),Cnil); |
base[6]= make_cons((V248),Cnil); |
1496 |
base[7]= make_cons((V237),Cnil); |
base[7]= make_cons((V248),Cnil); |
1497 |
base[8]= VV[115]; |
base[8]= VV[115]; |
1498 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1499 |
goto T606; |
goto T606; |
1500 |
goto T619; |
goto T619; |
1501 |
T619:; |
T619:; |
1502 |
FEerror("The ECASE key value ~s is illegal.",1,V246); |
FEerror("The ECASE key value ~s is illegal.",1,V257); |
1503 |
base[4]= Cnil; |
base[4]= Cnil; |
1504 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1505 |
goto T606;} |
goto T606;} |
1506 |
goto T606; |
goto T606; |
1507 |
T606:; |
T606:; |
1508 |
if(vs_base>=vs_top){vs_top=sup;goto T625;} |
if(vs_base>=vs_top){vs_top=sup;goto T625;} |
1509 |
V241= vs_base[0]; |
V252= vs_base[0]; |
1510 |
vs_base++; |
vs_base++; |
1511 |
if(vs_base>=vs_top){vs_top=sup;goto T626;} |
if(vs_base>=vs_top){vs_top=sup;goto T626;} |
1512 |
V242= vs_base[0]; |
V253= vs_base[0]; |
1513 |
vs_base++; |
vs_base++; |
1514 |
if(vs_base>=vs_top){vs_top=sup;goto T627;} |
if(vs_base>=vs_top){vs_top=sup;goto T627;} |
1515 |
V243= vs_base[0]; |
V254= vs_base[0]; |
1516 |
vs_base++; |
vs_base++; |
1517 |
if(vs_base>=vs_top){vs_top=sup;goto T628;} |
if(vs_base>=vs_top){vs_top=sup;goto T628;} |
1518 |
V244= vs_base[0]; |
V255= vs_base[0]; |
1519 |
vs_base++; |
vs_base++; |
1520 |
if(vs_base>=vs_top){vs_top=sup;goto T629;} |
if(vs_base>=vs_top){vs_top=sup;goto T629;} |
1521 |
V245= vs_base[0]; |
V256= vs_base[0]; |
1522 |
vs_top=sup; |
vs_top=sup; |
1523 |
goto T630; |
goto T630; |
1524 |
goto T625; |
goto T625; |
1525 |
T625:; |
T625:; |
1526 |
V241= Cnil; |
V252= Cnil; |
1527 |
goto T626; |
goto T626; |
1528 |
T626:; |
T626:; |
1529 |
V242= Cnil; |
V253= Cnil; |
1530 |
goto T627; |
goto T627; |
1531 |
T627:; |
T627:; |
1532 |
V243= Cnil; |
V254= Cnil; |
1533 |
goto T628; |
goto T628; |
1534 |
T628:; |
T628:; |
1535 |
V244= Cnil; |
V255= Cnil; |
1536 |
goto T629; |
goto T629; |
1537 |
T629:; |
T629:; |
1538 |
V245= Cnil; |
V256= Cnil; |
1539 |
goto T630; |
goto T630; |
1540 |
T630:; |
T630:; |
1541 |
{register object V247; |
{register object V258; |
1542 |
base[4]= (V238); |
base[4]= (V249); |
1543 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1544 |
(void) (*Lnk209)(); |
(void) (*Lnk209)(); |
1545 |
vs_top=sup; |
vs_top=sup; |
1546 |
V247= vs_base[0]; |
V258= vs_base[0]; |
1547 |
base[4]= (V244); |
base[4]= (V255); |
1548 |
if(type_of(V247)==t_structure){ |
if(type_of(V258)==t_structure){ |
1549 |
goto T642;} |
goto T642;} |
1550 |
goto T640; |
goto T640; |
1551 |
goto T642; |
goto T642; |
1552 |
T642:; |
T642:; |
1553 |
if(!(((V247)->str.str_def)==(VV[116]))){ |
if(!(((V258)->str.str_def)==(VV[116]))){ |
1554 |
goto T640;} |
goto T640;} |
1555 |
V248= STREF(object,(V247),4); |
V259= STREF(object,(V258),4); |
1556 |
goto T638; |
goto T638; |
1557 |
goto T640; |
goto T640; |
1558 |
T640:;{object V250; |
T640:;{object V261; |
1559 |
V250= (VV[45]->s.s_dbind); |
V261= (VV[45]->s.s_dbind); |
1560 |
base[6]= small_fixnum(14); |
base[6]= small_fixnum(14); |
1561 |
base[7]= (V247); |
base[7]= (V258); |
1562 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1563 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
1564 |
vs_top=sup; |
vs_top=sup; |
1565 |
V251= vs_base[0]; |
V262= vs_base[0]; |
1566 |
if(!((V250)==(CMPcar(V251)))){ |
if(!((V261)==(CMPcar(V262)))){ |
1567 |
goto T645;}} |
goto T645;}} |
1568 |
V248= CMPcar(((V247))->cc.cc_turbo[12]); |
V259= CMPcar(((V258))->cc.cc_turbo[12]); |
1569 |
goto T638; |
goto T638; |
1570 |
goto T645; |
goto T645; |
1571 |
T645:; |
T645:; |
1573 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1574 |
Lerror(); |
Lerror(); |
1575 |
vs_top=sup; |
vs_top=sup; |
1576 |
V248= vs_base[0]; |
V259= vs_base[0]; |
1577 |
goto T638; |
goto T638; |
1578 |
T638:; |
T638:; |
1579 |
base[5]= (V248)->v.v_self[fix((VV[117]->s.s_dbind))]; |
V263 = (VV[117]->s.s_dbind); |
1580 |
|
base[5]= (V259)->v.v_self[fix(V263)]; |
1581 |
base[6]= VV[118]; |
base[6]= VV[118]; |
1582 |
base[7]= (VV[210]->s.s_gfdef); |
base[7]= (VV[210]->s.s_gfdef); |
1583 |
base[8]= VV[102]; |
base[8]= VV[102]; |
1587 |
vs_top=sup; |
vs_top=sup; |
1588 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1589 |
goto T634;} |
goto T634;} |
1590 |
{register object x= (V238),V252= (VV[119]->s.s_dbind); |
{register object x= (V249),V264= (VV[119]->s.s_dbind); |
1591 |
while(V252!=Cnil) |
while(V264!=Cnil) |
1592 |
if(equal(x,V252->c.c_car->c.c_car) &&V252->c.c_car != Cnil){ |
if(equal(x,V264->c.c_car->c.c_car) &&V264->c.c_car != Cnil){ |
1593 |
goto T656; |
goto T656; |
1594 |
}else V252=V252->c.c_cdr;} |
}else V264=V264->c.c_cdr;} |
1595 |
base[4]= (VFUN_NARGS=1,(*(LnkLI213))((V247))); |
base[4]= (VFUN_NARGS=1,(*(LnkLI213))((V258))); |
1596 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1597 |
return; |
return; |
1598 |
goto T656; |
goto T656; |
1603 |
goto T634; |
goto T634; |
1604 |
T634:; |
T634:; |
1605 |
base[4]=(VV[214]->s.s_gfdef); |
base[4]=(VV[214]->s.s_gfdef); |
1606 |
base[5]= (V247); |
base[5]= (V258); |
1607 |
base[7]=(VV[215]->s.s_gfdef); |
base[7]=(VV[215]->s.s_gfdef); |
1608 |
base[8]= (V241); |
base[8]= (V252); |
1609 |
base[9]= Cnil; |
base[9]= Cnil; |
1610 |
base[10]= (V243); |
base[10]= (V254); |
1611 |
base[11]= (V244); |
base[11]= (V255); |
1612 |
base[13]= (V237); |
base[13]= (V248); |
1613 |
base[14]= (V239); |
base[14]= (V250); |
1614 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1615 |
{object _funobj = (V242);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V253);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1616 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1617 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1618 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1619 |
vs_top=sup; |
vs_top=sup; |
1620 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
1621 |
base[13]= (V245); |
base[13]= (V256); |
1622 |
base[14]= (V239); |
base[14]= (V250); |
1623 |
base[6]= simple_lispcall(base+7,7); |
base[6]= simple_lispcall(base+7,7); |
1624 |
lispcall(base+4,2); |
lispcall(base+4,2); |
1625 |
return;}} |
return;}} |
1627 |
} |
} |
1628 |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
1629 |
|
|
1630 |
static object LI24(V258,V259,V260,V261,V262) |
static object LI24(V270,V271,V272,V273,V274) |
1631 |
|
|
1632 |
object V258;object V259;object V260;object V261;object V262; |
object V270;object V271;object V272;object V273;object V274; |
1633 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1634 |
goto TTL; |
goto TTL; |
1635 |
TTL:; |
TTL:; |
1636 |
base[0]= (V259); |
base[0]= (V271); |
1637 |
base[1]= (V258); |
base[1]= (V270); |
1638 |
{register object V263; |
{register object V275; |
1639 |
register object V264; |
register object V276; |
1640 |
V263= (V260); |
V275= (V272); |
1641 |
V264= CMPcar((V263)); |
V276= CMPcar((V275)); |
1642 |
goto T673; |
goto T673; |
1643 |
T673:; |
T673:; |
1644 |
if(!(((V263))==Cnil)){ |
if(!(((V275))==Cnil)){ |
1645 |
goto T674;} |
goto T674;} |
1646 |
goto T669; |
goto T669; |
1647 |
goto T674; |
goto T674; |
1648 |
T674:; |
T674:; |
1649 |
base[3]= (V264); |
base[3]= (V276); |
1650 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1651 |
L25(base); |
L25(base); |
1652 |
vs_top=sup; |
vs_top=sup; |
1653 |
V263= CMPcdr((V263)); |
V275= CMPcdr((V275)); |
1654 |
V264= CMPcar((V263)); |
V276= CMPcar((V275)); |
1655 |
goto T673;} |
goto T673;} |
1656 |
goto T669; |
goto T669; |
1657 |
T669:; |
T669:; |
1658 |
{register object V265; |
{register object V277; |
1659 |
register object V266; |
register object V278; |
1660 |
V265= (V261); |
V277= (V273); |
1661 |
V266= CMPcar((V265)); |
V278= CMPcar((V277)); |
1662 |
goto T689; |
goto T689; |
1663 |
T689:; |
T689:; |
1664 |
if(!(((V265))==Cnil)){ |
if(!(((V277))==Cnil)){ |
1665 |
goto T690;} |
goto T690;} |
1666 |
goto T685; |
goto T685; |
1667 |
goto T690; |
goto T690; |
1668 |
T690:; |
T690:; |
1669 |
base[3]= (V266); |
base[3]= (V278); |
1670 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1671 |
L26(base); |
L26(base); |
1672 |
vs_top=sup; |
vs_top=sup; |
1673 |
V265= CMPcdr((V265)); |
V277= CMPcdr((V277)); |
1674 |
V266= CMPcar((V265)); |
V278= CMPcar((V277)); |
1675 |
goto T689;} |
goto T689;} |
1676 |
goto T685; |
goto T685; |
1677 |
T685:; |
T685:; |
1678 |
{register object V267; |
{register object V279; |
1679 |
register object V268; |
register object V280; |
1680 |
V267= (V262); |
V279= (V274); |
1681 |
V268= CMPcar((V267)); |
V280= CMPcar((V279)); |
1682 |
goto T704; |
goto T704; |
1683 |
T704:; |
T704:; |
1684 |
if(!(((V267))==Cnil)){ |
if(!(((V279))==Cnil)){ |
1685 |
goto T705;} |
goto T705;} |
1686 |
{object V269 = Cnil; |
{object V281 = Cnil; |
1687 |
VMR12(V269)} |
VMR12(V281)} |
1688 |
goto T705; |
goto T705; |
1689 |
T705:; |
T705:; |
1690 |
base[3]= (V268); |
base[3]= (V280); |
1691 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1692 |
L27(base); |
L27(base); |
1693 |
vs_top=sup; |
vs_top=sup; |
1694 |
V267= CMPcdr((V267)); |
V279= CMPcdr((V279)); |
1695 |
V268= CMPcar((V267)); |
V280= CMPcar((V279)); |
1696 |
goto T704;} |
goto T704;} |
1697 |
base[0]=base[0]; |
base[0]=base[0]; |
1698 |
return Cnil; |
return Cnil; |
1699 |
} |
} |
1700 |
/* local entry for function BOOTSTRAP-CLASS-PREDICATES */ |
/* local entry for function BOOTSTRAP-CLASS-PREDICATES */ |
1701 |
|
|
1702 |
static object LI28(V271) |
static object LI28(V283) |
1703 |
|
|
1704 |
object V271; |
object V283; |
1705 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1706 |
bds_check; |
bds_check; |
1707 |
goto TTL; |
goto TTL; |
1708 |
TTL:; |
TTL:; |
1709 |
bds_bind(VV[107],(V271)); |
bds_bind(VV[107],(V283)); |
1710 |
{register object V272; |
{register object V284; |
1711 |
register object V273; |
register object V285; |
1712 |
V272= (VV[36]->s.s_dbind); |
V284= (VV[36]->s.s_dbind); |
1713 |
V273= CMPcar((V272)); |
V285= CMPcar((V284)); |
1714 |
goto T719; |
goto T719; |
1715 |
T719:; |
T719:; |
1716 |
if(!(((V272))==Cnil)){ |
if(!(((V284))==Cnil)){ |
1717 |
goto T720;} |
goto T720;} |
1718 |
{object V274 = Cnil; |
{object V286 = Cnil; |
1719 |
bds_unwind1; |
bds_unwind1; |
1720 |
VMR13(V274)} |
VMR13(V286)} |
1721 |
goto T720; |
goto T720; |
1722 |
T720:; |
T720:; |
1723 |
{register object V275; |
{register object V287; |
1724 |
register object V276; |
register object V288; |
1725 |
V275= (*(LnkLI181))((V273)); |
V287= (*(LnkLI181))((V285)); |
1726 |
V276= (VFUN_NARGS=1,(*(LnkLI25))((V275))); |
V288= (VFUN_NARGS=1,(*(LnkLI25))((V287))); |
1727 |
{register object V277; |
{register object V289; |
1728 |
register object V278; |
register object V290; |
1729 |
V277= (V275); |
V289= (V287); |
1730 |
base[5]= (V276); |
V291 = (V288); |
1731 |
|
base[5]= (V288); |
1732 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1733 |
(void) (*Lnk217)(Lclptr217); |
(void) (*Lnk217)(Lclptr217); |
1734 |
vs_top=sup; |
vs_top=sup; |
1735 |
V279= vs_base[0]; |
V292= vs_base[0]; |
1736 |
V278= (*(LnkLI216))((V276),V279); |
V290= (*(LnkLI216))(V291,V292); |
1737 |
(void)((*(LnkLI218))((V278),(V277)));}} |
(void)((*(LnkLI218))((V290),(V289)));}} |
1738 |
V272= CMPcdr((V272)); |
V284= CMPcdr((V284)); |
1739 |
V273= CMPcar((V272)); |
V285= CMPcar((V284)); |
1740 |
goto T719;} |
goto T719;} |
1741 |
base[0]=base[0]; |
base[0]=base[0]; |
1742 |
return Cnil; |
return Cnil; |
1748 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1749 |
goto TTL; |
goto TTL; |
1750 |
TTL:; |
TTL:; |
1751 |
{register object V280; |
{register object V293; |
1752 |
object V281; |
object V294; |
1753 |
V280= (VV[123]->s.s_dbind); |
V293= (VV[123]->s.s_dbind); |
1754 |
V281= CMPcar((V280)); |
V294= CMPcar((V293)); |
1755 |
goto T740; |
goto T740; |
1756 |
T740:; |
T740:; |
1757 |
if(!(((V280))==Cnil)){ |
if(!(((V293))==Cnil)){ |
1758 |
goto T741;} |
goto T741;} |
1759 |
goto T736; |
goto T736; |
1760 |
goto T741; |
goto T741; |
1761 |
T741:; |
T741:; |
1762 |
{register object V282; |
{register object V295; |
1763 |
register object V283; |
register object V296; |
1764 |
V282= CMPcadr((V281)); |
V295= CMPcadr((V294)); |
1765 |
V283= CMPcar((V282)); |
V296= CMPcar((V295)); |
1766 |
goto T749; |
goto T749; |
1767 |
T749:; |
T749:; |
1768 |
if(!(((V282))==Cnil)){ |
if(!(((V295))==Cnil)){ |
1769 |
goto T750;} |
goto T750;} |
1770 |
goto T745; |
goto T745; |
1771 |
goto T750; |
goto T750; |
1772 |
T750:; |
T750:; |
1773 |
if(((V283))==(Ct)){ |
if(((V296))==(Ct)){ |
1774 |
goto T754;} |
goto T754;} |
1775 |
{register object x= (V283),V284= (VV[123]->s.s_dbind); |
{register object x= (V296),V297= (VV[123]->s.s_dbind); |
1776 |
while(V284!=Cnil) |
while(V297!=Cnil) |
1777 |
if(EQ(x,V284->c.c_car->c.c_car) &&V284->c.c_car != Cnil){ |
if(EQ(x,V297->c.c_car->c.c_car) &&V297->c.c_car != Cnil){ |
1778 |
goto T754; |
goto T754; |
1779 |
}else V284=V284->c.c_cdr;} |
}else V297=V297->c.c_cdr;} |
1780 |
base[3]= VV[124]; |
base[3]= VV[124]; |
1781 |
base[4]= CMPcar((V281)); |
base[4]= CMPcar((V294)); |
1782 |
base[5]= (V283); |
base[5]= (V296); |
1783 |
base[6]= (V283); |
base[6]= (V296); |
1784 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1785 |
Lerror(); |
Lerror(); |
1786 |
vs_top=sup; |
vs_top=sup; |
1787 |
goto T754; |
goto T754; |
1788 |
T754:; |
T754:; |
1789 |
V282= CMPcdr((V282)); |
V295= CMPcdr((V295)); |
1790 |
V283= CMPcar((V282)); |
V296= CMPcar((V295)); |
1791 |
goto T749;} |
goto T749;} |
1792 |
goto T745; |
goto T745; |
1793 |
T745:; |
T745:; |
1794 |
V280= CMPcdr((V280)); |
V293= CMPcdr((V293)); |
1795 |
V281= CMPcar((V280)); |
V294= CMPcar((V293)); |
1796 |
goto T740;} |
goto T740;} |
1797 |
goto T736; |
goto T736; |
1798 |
T736:; |
T736:; |
1799 |
{object V285; |
{object V298; |
1800 |
object V286; |
object V299; |
1801 |
V285= (VFUN_NARGS=1,(*(LnkLI25))(VV[31])); |
V298= (VFUN_NARGS=1,(*(LnkLI25))(VV[31])); |
1802 |
base[2]= (V285); |
base[2]= (V298); |
1803 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1804 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk219)(Lclptr219); |
1805 |
vs_top=sup; |
vs_top=sup; |
1806 |
V286= vs_base[0]; |
V299= vs_base[0]; |
1807 |
{register object V287; |
{register object V300; |
1808 |
object V288; |
object V301; |
1809 |
V287= (VV[123]->s.s_dbind); |
V300= (VV[123]->s.s_dbind); |
1810 |
V288= CMPcar((V287)); |
V301= CMPcar((V300)); |
1811 |
goto T780; |
goto T780; |
1812 |
T780:; |
T780:; |
1813 |
if(!(((V287))==Cnil)){ |
if(!(((V300))==Cnil)){ |
1814 |
goto T781;} |
goto T781;} |
1815 |
goto T773; |
goto T773; |
1816 |
goto T781; |
goto T781; |
1817 |
T781:; |
T781:; |
1818 |
{object V289; |
{object V302; |
1819 |
V289= (VFUN_NARGS=1,(*(LnkLI21))((V286))); |
V302= (VFUN_NARGS=1,(*(LnkLI21))((V299))); |
1820 |
{object V290; |
{object V303; |
1821 |
V290= CMPcar((V288)); |
V303= CMPcar((V301)); |
1822 |
(void)((*(LnkLI180))(V289,(V290)));}} |
(void)((*(LnkLI180))(V302,(V303)));}} |
1823 |
V287= CMPcdr((V287)); |
V300= CMPcdr((V300)); |
1824 |
V288= CMPcar((V287)); |
V301= CMPcar((V300)); |
1825 |
goto T780;}} |
goto T780;}} |
1826 |
goto T773; |
goto T773; |
1827 |
T773:; |
T773:; |
1828 |
{object V292; |
{object V305; |
1829 |
base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35])); |
base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35])); |
1830 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1831 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk219)(Lclptr219); |
1832 |
vs_top=sup; |
vs_top=sup; |
1833 |
V292= vs_base[0]; |
V305= vs_base[0]; |
1834 |
{register object V293; |
{register object V306; |
1835 |
object V294; |
object V307; |
1836 |
V293= (VV[123]->s.s_dbind); |
V306= (VV[123]->s.s_dbind); |
1837 |
V294= CMPcar((V293)); |
V307= CMPcar((V306)); |
1838 |
goto T799; |
goto T799; |
1839 |
T799:; |
T799:; |
1840 |
if(!(((V293))==Cnil)){ |
if(!(((V306))==Cnil)){ |
1841 |
goto T800;} |
goto T800;} |
1842 |
goto T793; |
goto T793; |
1843 |
goto T800; |
goto T800; |
1844 |
T800:; |
T800:; |
1845 |
{object V295; |
{object V308; |
1846 |
object V296; |
object V309; |
1847 |
object V297; |
object V310; |
1848 |
object V298; |
object V311; |
1849 |
register object V299; |
register object V312; |
1850 |
register object V300; |
register object V313; |
1851 |
V295= Cnil; |
V308= Cnil; |
1852 |
V296= Cnil; |
V309= Cnil; |
1853 |
V297= Cnil; |
V310= Cnil; |
1854 |
V298= Cnil; |
V311= Cnil; |
1855 |
V299= Cnil; |
V312= Cnil; |
1856 |
V300= Cnil; |
V313= Cnil; |
1857 |
V300= (V294); |
V313= (V307); |
1858 |
V299= CMPcar((V300)); |
V312= CMPcar((V313)); |
1859 |
V300= CMPcdr((V300)); |
V313= CMPcdr((V313)); |
1860 |
V298= CMPcar((V300)); |
V311= CMPcar((V313)); |
1861 |
V300= CMPcdr((V300)); |
V313= CMPcdr((V313)); |
1862 |
V297= CMPcar((V300)); |
V310= CMPcar((V313)); |
1863 |
V300= CMPcdr((V300)); |
V313= CMPcdr((V313)); |
1864 |
V296= CMPcar((V300)); |
V309= CMPcar((V313)); |
1865 |
V300= CMPcdr((V300)); |
V313= CMPcdr((V313)); |
1866 |
V295= CMPcar((V300)); |
V308= CMPcar((V313)); |
1867 |
{object V301; |
{object V314; |
1868 |
register object V302; |
register object V315; |
1869 |
V301= (VFUN_NARGS=1,(*(LnkLI25))((V299))); |
V314= (VFUN_NARGS=1,(*(LnkLI25))((V312))); |
1870 |
V302= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V301))); |
V315= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V314))); |
1871 |
base[3]= (*(LnkLI220))((V299)); |
base[3]= (*(LnkLI220))((V312)); |
1872 |
base[4]= (V301); |
base[4]= (V314); |
1873 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1874 |
Lset(); |
Lset(); |
1875 |
vs_top=sup; |
vs_top=sup; |
1876 |
base[3]= (*(LnkLI221))((V299)); |
base[3]= (*(LnkLI221))((V312)); |
1877 |
base[4]= (V302); |
base[4]= (V315); |
1878 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1879 |
Lset(); |
Lset(); |
1880 |
vs_top=sup; |
vs_top=sup; |
1881 |
(void)(((V302))->v.v_self[9]= (Cnil)); |
(void)(((V315))->v.v_self[9]= (Cnil)); |
1882 |
(void)(((V302))->v.v_self[10]= (Cnil)); |
(void)(((V315))->v.v_self[10]= (Cnil)); |
1883 |
V303= make_cons((V299),(V296)); |
V316= make_cons((V312),(V309)); |
1884 |
(void)((VFUN_NARGS=10,(*(LnkLI192))(VV[31],(V301),(V299),(V292),Cnil,(V298),(V297),/* INLINE-ARGS */V303,(V302),(V295))));}} |
(void)((VFUN_NARGS=10,(*(LnkLI192))(VV[31],(V314),(V312),(V305),Cnil,(V311),(V310),/* INLINE-ARGS */V316,(V315),(V308))));}} |
1885 |
V293= CMPcdr((V293)); |
V306= CMPcdr((V306)); |
1886 |
V294= CMPcar((V293)); |
V307= CMPcar((V306)); |
1887 |
goto T799;}} |
goto T799;}} |
1888 |
goto T793; |
goto T793; |
1889 |
T793:; |
T793:; |
1890 |
{register object V304; |
{register object V317; |
1891 |
object V305; |
object V318; |
1892 |
V304= (VV[123]->s.s_dbind); |
V317= (VV[123]->s.s_dbind); |
1893 |
V305= CMPcar((V304)); |
V318= CMPcar((V317)); |
1894 |
goto T845; |
goto T845; |
1895 |
T845:; |
T845:; |
1896 |
if(!(((V304))==Cnil)){ |
if(!(((V317))==Cnil)){ |
1897 |
goto T846;} |
goto T846;} |
1898 |
{object V306 = Cnil; |
{object V319 = Cnil; |
1899 |
VMR14(V306)} |
VMR14(V319)} |
1900 |
goto T846; |
goto T846; |
1901 |
T846:; |
T846:; |
1902 |
{object V307; |
{object V320; |
1903 |
object V308; |
object V321; |
1904 |
V307= CMPcar((V305)); |
V320= CMPcar((V318)); |
1905 |
V308= (VFUN_NARGS=1,(*(LnkLI25))((V307))); |
V321= (VFUN_NARGS=1,(*(LnkLI25))((V320))); |
1906 |
{object V310; |
{object V323; |
1907 |
base[4]= (V308); |
V324 = (V321); |
1908 |
|
base[4]= (V321); |
1909 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1910 |
(void) (*Lnk217)(Lclptr217); |
(void) (*Lnk217)(Lclptr217); |
1911 |
vs_top=sup; |
vs_top=sup; |
1912 |
V311= vs_base[0]; |
V325= vs_base[0]; |
1913 |
V310= (*(LnkLI216))((V308),V311); |
V323= (*(LnkLI216))(V324,V325); |
1914 |
(void)((*(LnkLI218))((V310),V307));}} |
(void)((*(LnkLI218))((V323),V320));}} |
1915 |
V304= CMPcdr((V304)); |
V317= CMPcdr((V317)); |
1916 |
V305= CMPcar((V304)); |
V318= CMPcar((V317)); |
1917 |
goto T845;} |
goto T845;} |
1918 |
base[0]=base[0]; |
base[0]=base[0]; |
1919 |
return Cnil; |
return Cnil; |
1920 |
} |
} |
1921 |
/* local entry for function WRAPPER-FOR-STRUCTURE */ |
/* local entry for function WRAPPER-FOR-STRUCTURE */ |
1922 |
|
|
1923 |
static object LI30(V313) |
static object LI30(V327) |
1924 |
|
|
1925 |
object V313; |
object V327; |
1926 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1927 |
goto TTL; |
goto TTL; |
1928 |
TTL:; |
TTL:; |
1929 |
{register object V314; |
{register object V328; |
1930 |
if(type_of((V313))==t_structure){ |
if(type_of((V327))==t_structure){ |
1931 |
goto T862;} |
goto T862;} |
1932 |
V314= Cnil; |
V328= Cnil; |
1933 |
goto T861; |
goto T861; |
1934 |
goto T862; |
goto T862; |
1935 |
T862:; |
T862:; |
1936 |
V314= ((V313))->str.str_def->str.str_self[0]; |
V328= ((V327))->str.str_def->str.str_self[0]; |
1937 |
goto T861; |
goto T861; |
1938 |
T861:; |
T861:; |
1939 |
if(!(type_of((V314))==t_symbol)){ |
if(!(type_of((V328))==t_symbol)){ |
1940 |
goto T864;} |
goto T864;} |
1941 |
if(!(((V314))==(VV[1]))){ |
if(!(((V328))==(VV[1]))){ |
1942 |
goto T868;} |
goto T868;} |
1943 |
{object V315 = STREF(object,(V313),0); |
{object V329 = STREF(object,(V327),0); |
1944 |
VMR15(V315)} |
VMR15(V329)} |
1945 |
goto T868; |
goto T868; |
1946 |
T868:; |
T868:; |
1947 |
if(!(((V314))==((VV[125]->s.s_dbind)))){ |
if(!(((V328))==((VV[125]->s.s_dbind)))){ |
1948 |
goto T871;} |
goto T871;} |
1949 |
{object V316 = (VV[126]->s.s_dbind); |
{object V330 = (VV[126]->s.s_dbind); |
1950 |
VMR15(V316)} |
VMR15(V330)} |
1951 |
goto T871; |
goto T871; |
1952 |
T871:; |
T871:; |
1953 |
if(!(((V314))==((VV[127]->s.s_dbind)))){ |
if(!(((V328))==((VV[127]->s.s_dbind)))){ |
1954 |
goto T874;} |
goto T874;} |
1955 |
{object V317 = (VV[128]->s.s_dbind); |
{object V331 = (VV[128]->s.s_dbind); |
1956 |
VMR15(V317)} |
VMR15(V331)} |
1957 |
goto T874; |
goto T874; |
1958 |
T874:; |
T874:; |
1959 |
(VV[127]->s.s_dbind)= (VV[125]->s.s_dbind); |
(VV[127]->s.s_dbind)= (VV[125]->s.s_dbind); |
1960 |
(VV[128]->s.s_dbind)= (VV[126]->s.s_dbind); |
(VV[128]->s.s_dbind)= (VV[126]->s.s_dbind); |
1961 |
goto T864; |
goto T864; |
1962 |
T864:; |
T864:; |
1963 |
{object V318; |
{object V332; |
1964 |
object V319; |
object V333; |
1965 |
object V320; |
object V334; |
1966 |
V318= (VFUN_NARGS=1,(*(LnkLI223))((V314)));{object V321; |
V332= (VFUN_NARGS=1,(*(LnkLI223))((V328)));{object V335; |
1967 |
V321= CMPcar((V318)); |
V335= CMPcar((V332)); |
1968 |
if(V321==Cnil)goto T881; |
if(V335==Cnil)goto T881; |
1969 |
V319= V321; |
V333= V335; |
1970 |
goto T880; |
goto T880; |
1971 |
goto T881; |
goto T881; |
1972 |
T881:;} |
T881:;} |
1973 |
V319= (VFUN_NARGS=2,(*(LnkLI224))((V314),(V318))); |
V333= (VFUN_NARGS=2,(*(LnkLI224))((V328),(V332))); |
1974 |
goto T880; |
goto T880; |
1975 |
T880:; |
T880:; |
1976 |
if(((V319))==Cnil){ |
if(((V333))==Cnil){ |
1977 |
goto T885;} |
goto T885;} |
1978 |
base[3]= (V319); |
base[3]= (V333); |
1979 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1980 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk219)(Lclptr219); |
1981 |
vs_top=sup; |
vs_top=sup; |
1982 |
V320= vs_base[0]; |
V334= vs_base[0]; |
1983 |
goto T883; |
goto T883; |
1984 |
goto T885; |
goto T885; |
1985 |
T885:; |
T885:; |
1986 |
V320= (VV[38]->s.s_dbind); |
V334= (VV[38]->s.s_dbind); |
1987 |
goto T883; |
goto T883; |
1988 |
T883:; |
T883:; |
1989 |
if(!(type_of((V314))==t_symbol)){ |
if(!(type_of((V328))==t_symbol)){ |
1990 |
goto T888;} |
goto T888;} |
1991 |
(VV[125]->s.s_dbind)= (V314); |
(VV[125]->s.s_dbind)= (V328); |
1992 |
(VV[126]->s.s_dbind)= (V320); |
(VV[126]->s.s_dbind)= (V334); |
1993 |
goto T888; |
goto T888; |
1994 |
T888:; |
T888:; |
1995 |
{object V322 = (V320); |
{object V336 = (V334); |
1996 |
VMR15(V322)}}} |
VMR15(V336)}}} |
1997 |
base[0]=base[0]; |
base[0]=base[0]; |
1998 |
return Cnil; |
return Cnil; |
1999 |
} |
} |
2000 |
/* local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */ |
/* local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */ |
2001 |
|
|
2002 |
static object LI31(V324) |
static object LI31(V338) |
2003 |
|
|
2004 |
object V324; |
object V338; |
2005 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
2006 |
goto TTL; |
goto TTL; |
2007 |
TTL:; |
TTL:; |
2008 |
{object V325;{object V326; |
{object V339;{object V340; |
2009 |
V326= (*(LnkLI225))((V324)); |
V340= (*(LnkLI225))((V338)); |
2010 |
if(V326==Cnil)goto T895; |
if(V340==Cnil)goto T895; |
2011 |
V325= V326; |
V339= V340; |
2012 |
goto T894; |
goto T894; |
2013 |
goto T895; |
goto T895; |
2014 |
T895:;} |
T895:;} |
2015 |
V325= (VV[38]->s.s_dbind); |
V339= (VV[38]->s.s_dbind); |
2016 |
goto T894; |
goto T894; |
2017 |
T894:;{object V327; |
T894:;{object V341; |
2018 |
if(((V325))==((VV[38]->s.s_dbind))){ |
if(((V339))==((VV[38]->s.s_dbind))){ |
2019 |
goto T899;} |
goto T899;} |
2020 |
V327= Cnil; |
V341= Cnil; |
2021 |
goto T898; |
goto T898; |
2022 |
goto T899; |
goto T899; |
2023 |
T899:; |
T899:; |
2024 |
if(type_of((V324))==t_structure){ |
if(type_of((V338))==t_structure){ |
2025 |
goto T901;} |
goto T901;} |
2026 |
V327= Cnil; |
V341= Cnil; |
2027 |
goto T898; |
goto T898; |
2028 |
goto T901; |
goto T901; |
2029 |
T901:; |
T901:; |
2030 |
{object V328; |
{object V342; |
2031 |
object V329; |
object V343; |
2032 |
base[2]= (V324); |
base[2]= (V338); |
2033 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2034 |
Ltype_of(); |
Ltype_of(); |
2035 |
vs_top=sup; |
vs_top=sup; |
2036 |
V328= vs_base[0]; |
V342= vs_base[0]; |
2037 |
V329= (VFUN_NARGS=2,(*(LnkLI25))((V328),Cnil)); |
V343= (VFUN_NARGS=2,(*(LnkLI25))((V342),Cnil)); |
2038 |
if((V329)==Cnil){ |
if((V343)==Cnil){ |
2039 |
V327= Cnil; |
V341= Cnil; |
2040 |
goto T898;} |
goto T898;} |
2041 |
base[2]= (V329); |
base[2]= (V343); |
2042 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2043 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk219)(Lclptr219); |
2044 |
vs_top=sup; |
vs_top=sup; |
2045 |
V327= vs_base[0];} |
V341= vs_base[0];} |
2046 |
goto T898; |
goto T898; |
2047 |
T898:; |
T898:; |
2048 |
if(V327==Cnil)goto T897; |
if(V341==Cnil)goto T897; |
2049 |
{object V330 = V327; |
{object V344 = V341; |
2050 |
VMR16(V330)} |
VMR16(V344)} |
2051 |
goto T897; |
goto T897; |
2052 |
T897:;} |
T897:;} |
2053 |
{object V331 = (V325); |
{object V345 = (V339); |
2054 |
VMR16(V331)}} |
VMR16(V345)}} |
2055 |
base[0]=base[0]; |
base[0]=base[0]; |
2056 |
return Cnil; |
return Cnil; |
2057 |
} |
} |
2058 |
/* local entry for function CLASS-OF */ |
/* local entry for function CLASS-OF */ |
2059 |
|
|
2060 |
static object LI32(V333) |
static object LI32(V347) |
2061 |
|
|
2062 |
register object V333; |
register object V347; |
2063 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
2064 |
goto TTL; |
goto TTL; |
2065 |
TTL:; |
TTL:; |
2066 |
if(type_of(V333)==t_structure){ |
if(type_of(V347)==t_structure){ |
2067 |
goto T911;} |
goto T911;} |
2068 |
goto T909; |
goto T909; |
2069 |
goto T911; |
goto T911; |
2070 |
T911:; |
T911:; |
2071 |
if(!(((V333)->str.str_def)==(VV[129]))){ |
if(!(((V347)->str.str_def)==(VV[129]))){ |
2072 |
goto T909;} |
goto T909;} |
2073 |
V334= STREF(object,(V333),0); |
V348= STREF(object,(V347),0); |
2074 |
goto T907; |
goto T907; |
2075 |
goto T909; |
goto T909; |
2076 |
T909:;{object V336; |
T909:;{object V350; |
2077 |
V336= (VV[45]->s.s_dbind); |
V350= (VV[45]->s.s_dbind); |
2078 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
2079 |
base[1]= (V333); |
base[1]= (V347); |
2080 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2081 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
2082 |
vs_top=sup; |
vs_top=sup; |
2083 |
V337= vs_base[0]; |
V351= vs_base[0]; |
2084 |
if(!((V336)==(CMPcar(V337)))){ |
if(!((V350)==(CMPcar(V351)))){ |
2085 |
goto T914;}} |
goto T914;}} |
2086 |
V334= CMPcar(((V333))->cc.cc_turbo[13]); |
V348= CMPcar(((V347))->cc.cc_turbo[13]); |
2087 |
goto T907; |
goto T907; |
2088 |
goto T914; |
goto T914; |
2089 |
T914:; |
T914:; |
2090 |
if(!(type_of((V333))==t_structure)){ |
if(!(type_of((V347))==t_structure)){ |
2091 |
goto T920;} |
goto T920;} |
2092 |
V334= (*(LnkLI226))((V333)); |
V348= (*(LnkLI226))((V347)); |
2093 |
goto T907; |
goto T907; |
2094 |
goto T920; |
goto T920; |
2095 |
T920:; |
T920:; |
2096 |
if(!(type_of((V333))==t_symbol)){ |
if(!(type_of((V347))==t_symbol)){ |
2097 |
goto T923;} |
goto T923;} |
2098 |
if(((V333))==Cnil){ |
if(((V347))==Cnil){ |
2099 |
goto T926;} |
goto T926;} |
2100 |
V334= (VV[130]->s.s_dbind); |
V348= (VV[130]->s.s_dbind); |
2101 |
goto T907; |
goto T907; |
2102 |
goto T926; |
goto T926; |
2103 |
T926:; |
T926:; |
2104 |
V334= (VV[131]->s.s_dbind); |
V348= (VV[131]->s.s_dbind); |
2105 |
goto T907; |
goto T907; |
2106 |
goto T923; |
goto T923; |
2107 |
T923:; |
T923:; |
2108 |
V334= (*(LnkLI225))((V333)); |
V348= (*(LnkLI225))((V347)); |
2109 |
goto T907; |
goto T907; |
2110 |
T907:; |
T907:; |
2111 |
{object V338 = (V334)->v.v_self[11]; |
{object V352 = (V348)->v.v_self[11]; |
2112 |
VMR17(V338)} |
VMR17(V352)} |
2113 |
base[0]=base[0]; |
base[0]=base[0]; |
2114 |
return Cnil; |
return Cnil; |
2115 |
} |
} |
2116 |
/* local entry for function WRAPPER-OF */ |
/* local entry for function WRAPPER-OF */ |
2117 |
|
|
2118 |
static object LI33(V340) |
static object LI33(V354) |
2119 |
|
|
2120 |
register object V340; |
register object V354; |
2121 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
2122 |
goto TTL; |
goto TTL; |
2123 |
TTL:; |
TTL:; |
2124 |
if(type_of(V340)==t_structure){ |
if(type_of(V354)==t_structure){ |
2125 |
goto T931;} |
goto T931;} |
2126 |
goto T929; |
goto T929; |
2127 |
goto T931; |
goto T931; |
2128 |
T931:; |
T931:; |
2129 |
if(!(((V340)->str.str_def)==(VV[132]))){ |
if(!(((V354)->str.str_def)==(VV[132]))){ |
2130 |
goto T929;} |
goto T929;} |
2131 |
{object V342 = STREF(object,(V340),0); |
{object V356 = STREF(object,(V354),0); |
2132 |
VMR18(V342)} |
VMR18(V356)} |
2133 |
goto T929; |
goto T929; |
2134 |
T929:;{object V343; |
T929:;{object V357; |
2135 |
V343= (VV[45]->s.s_dbind); |
V357= (VV[45]->s.s_dbind); |
2136 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
2137 |
base[1]= (V340); |
base[1]= (V354); |
2138 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2139 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
2140 |
vs_top=sup; |
vs_top=sup; |
2141 |
V344= vs_base[0]; |
V358= vs_base[0]; |
2142 |
if(!((V343)==(CMPcar(V344)))){ |
if(!((V357)==(CMPcar(V358)))){ |
2143 |
goto T934;}} |
goto T934;}} |
2144 |
{object V345 = CMPcar(((V340))->cc.cc_turbo[13]); |
{object V359 = CMPcar(((V354))->cc.cc_turbo[13]); |
2145 |
VMR18(V345)} |
VMR18(V359)} |
2146 |
goto T934; |
goto T934; |
2147 |
T934:; |
T934:; |
2148 |
if(!(type_of((V340))==t_structure)){ |
if(!(type_of((V354))==t_structure)){ |
2149 |
goto T940;} |
goto T940;} |
2150 |
{object V346 = (*(LnkLI226))((V340)); |
{object V360 = (*(LnkLI226))((V354)); |
2151 |
VMR18(V346)} |
VMR18(V360)} |
2152 |
goto T940; |
goto T940; |
2153 |
T940:; |
T940:; |
2154 |
if(!(type_of((V340))==t_symbol)){ |
if(!(type_of((V354))==t_symbol)){ |
2155 |
goto T943;} |
goto T943;} |
2156 |
if(((V340))==Cnil){ |
if(((V354))==Cnil){ |
2157 |
goto T946;} |
goto T946;} |
2158 |
{object V347 = (VV[130]->s.s_dbind); |
{object V361 = (VV[130]->s.s_dbind); |
2159 |
VMR18(V347)} |
VMR18(V361)} |
2160 |
goto T946; |
goto T946; |
2161 |
T946:; |
T946:; |
2162 |
{object V348 = (VV[131]->s.s_dbind); |
{object V362 = (VV[131]->s.s_dbind); |
2163 |
VMR18(V348)} |
VMR18(V362)} |
2164 |
goto T943; |
goto T943; |
2165 |
T943:; |
T943:; |
2166 |
{object V349 = (*(LnkLI225))((V340)); |
{object V363 = (*(LnkLI225))((V354)); |
2167 |
VMR18(V349)} |
VMR18(V363)} |
2168 |
base[0]=base[0]; |
base[0]=base[0]; |
2169 |
return Cnil; |
return Cnil; |
2170 |
} |
} |
2174 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2175 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
2176 |
vs_check; |
vs_check; |
2177 |
{object V350; |
{object V364; |
2178 |
check_arg(1); |
check_arg(1); |
2179 |
V350=(base[0]); |
V364=(base[0]); |
2180 |
vs_top=sup; |
vs_top=sup; |
2181 |
goto TTL; |
goto TTL; |
2182 |
TTL:; |
TTL:; |
2183 |
if(type_of((V350))==t_structure){ |
if(type_of((V364))==t_structure){ |
2184 |
goto T950;} |
goto T950;} |
2185 |
V351= Cnil; |
V365= Cnil; |
2186 |
goto T949; |
goto T949; |
2187 |
goto T950; |
goto T950; |
2188 |
T950:; |
T950:; |
2189 |
V351= ((V350))->str.str_def->str.str_self[0]; |
V365= ((V364))->str.str_def->str.str_self[0]; |
2190 |
goto T949; |
goto T949; |
2191 |
T949:; |
T949:; |
2192 |
base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V351)); |
base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V365)); |
2193 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2194 |
(void) (*Lnk219)(Lclptr219); |
(void) (*Lnk219)(Lclptr219); |
2195 |
return; |
return; |
2197 |
} |
} |
2198 |
/* local entry for function EVAL-FORM */ |
/* local entry for function EVAL-FORM */ |
2199 |
|
|
2200 |
static object LI36(V353) |
static object LI36(V367) |
2201 |
|
|
2202 |
object V353; |
object V367; |
2203 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
2204 |
goto TTL; |
goto TTL; |
2205 |
TTL:; |
TTL:; |
2206 |
base[0]=MMcons((V353),Cnil); |
base[0]=MMcons((V367),Cnil); |
2207 |
{object V354 = |
{object V368 = |
2208 |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
2209 |
VMR20(V354)} |
VMR20(V368)} |
2210 |
base[0]=base[0]; |
base[0]=base[0]; |
2211 |
return Cnil; |
return Cnil; |
2212 |
} |
} |
2213 |
/* local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
/* local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
2214 |
|
|
2215 |
static object LI37(V356) |
static object LI37(V370) |
2216 |
|
|
2217 |
register object V356; |
register object V370; |
2218 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
2219 |
goto TTL; |
goto TTL; |
2220 |
TTL:; |
TTL:; |
2221 |
base[0]= VV[81]; |
base[0]= VV[81]; |
2222 |
base[1]= (*(LnkLI227))((V356)); |
base[1]= (*(LnkLI227))((V370)); |
2223 |
base[2]= VV[133]; |
base[2]= VV[133]; |
2224 |
base[3]= (*(LnkLI228))((V356)); |
base[3]= (*(LnkLI228))((V370)); |
2225 |
base[4]= VV[134]; |
base[4]= VV[134]; |
2226 |
base[5]= (*(LnkLI229))((V356)); |
base[5]= (*(LnkLI229))((V370)); |
2227 |
base[6]= VV[135]; |
base[6]= VV[135]; |
2228 |
base[7]= (*(LnkLI230))((V356)); |
base[7]= (*(LnkLI230))((V370)); |
2229 |
base[8]= VV[93];{object V357; |
base[8]= VV[93];{object V371; |
2230 |
V357= (*(LnkLI231))((V356)); |
V371= (*(LnkLI231))((V370)); |
2231 |
if(V357==Cnil)goto T962; |
if(V371==Cnil)goto T962; |
2232 |
base[9]= V357; |
base[9]= V371; |
2233 |
goto T961; |
goto T961; |
2234 |
goto T962; |
goto T962; |
2235 |
T962:;} |
T962:;} |
2237 |
goto T961; |
goto T961; |
2238 |
T961:; |
T961:; |
2239 |
base[10]= VV[83]; |
base[10]= VV[83]; |
2240 |
base[12]= (V356); |
base[12]= (V370); |
2241 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2242 |
(void) (*Lnk232)(); |
(void) (*Lnk232)(); |
2243 |
vs_top=sup; |
vs_top=sup; |
2244 |
base[11]= vs_base[0]; |
base[11]= vs_base[0]; |
2245 |
base[12]= VV[85]; |
base[12]= VV[85]; |
2246 |
base[14]= (V356); |
base[14]= (V370); |
2247 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
2248 |
(void) (*Lnk232)(); |
(void) (*Lnk232)(); |
2249 |
vs_top=sup; |
vs_top=sup; |
2250 |
V358= vs_base[0]; |
V372= vs_base[0]; |
2251 |
base[13]= (*(LnkLI233))(V358); |
base[13]= (*(LnkLI233))(V372); |
2252 |
vs_top=(vs_base=base+0)+14; |
vs_top=(vs_base=base+0)+14; |
2253 |
Llist(); |
Llist(); |
2254 |
vs_top=sup; |
vs_top=sup; |
2255 |
{object V359 = vs_base[0]; |
{object V373 = vs_base[0]; |
2256 |
VMR21(V359)} |
VMR21(V373)} |
2257 |
base[0]=base[0]; |
base[0]=base[0]; |
2258 |
return Cnil; |
return Cnil; |
2259 |
} |
} |
2264 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
2265 |
vs_check; |
vs_check; |
2266 |
bds_check; |
bds_check; |
2267 |
{register object V360; |
{register object V374; |
2268 |
check_arg(1); |
check_arg(1); |
2269 |
V360=(base[0]); |
V374=(base[0]); |
2270 |
vs_top=sup; |
vs_top=sup; |
2271 |
goto TTL; |
goto TTL; |
2272 |
TTL:; |
TTL:; |
2273 |
if(((*(LnkLI234))((V360)))==Cnil){ |
if(((*(LnkLI234))((V374)))==Cnil){ |
2274 |
goto T972;} |
goto T972;} |
2275 |
if(((VV[136]->s.s_dbind))==((V360))){ |
if(((VV[136]->s.s_dbind))==((V374))){ |
2276 |
goto T975;} |
goto T975;} |
2277 |
bds_bind(VV[136],(V360)); |
bds_bind(VV[136],(V374)); |
2278 |
base[2]= (V360); |
base[2]= (V374); |
2279 |
base[3]= VV[137]; |
base[3]= VV[137]; |
2280 |
base[4]= VV[32]; |
base[4]= VV[32]; |
2281 |
base[5]= VV[81]; |
base[5]= VV[81]; |
2282 |
base[6]= (V360); |
base[6]= (V374); |
2283 |
base[7]= VV[138]; |
base[7]= VV[138]; |
2284 |
if(((*(LnkLI235))((V360)))==Cnil){ |
if(((*(LnkLI235))((V374)))==Cnil){ |
2285 |
goto T985;} |
goto T985;} |
2286 |
V361= (*(LnkLI235))((V360)); |
V375= (*(LnkLI235))((V374)); |
2287 |
base[8]= make_cons(/* INLINE-ARGS */V361,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V375,Cnil); |
2288 |
goto T983; |
goto T983; |
2289 |
goto T985; |
goto T985; |
2290 |
T985:; |
T985:; |
2292 |
goto T983; |
goto T983; |
2293 |
T983:; |
T983:; |
2294 |
base[9]= VV[139]; |
base[9]= VV[139]; |
2295 |
V364= (*(LnkLI236))((V360)); |
V378= (*(LnkLI236))((V374)); |
2296 |
{object V362; |
{object V376; |
2297 |
object V363= /* INLINE-ARGS */V364; |
object V377= /* INLINE-ARGS */V378; |
2298 |
if(V363==Cnil){ |
if(V377==Cnil){ |
2299 |
base[10]= Cnil; |
base[10]= Cnil; |
2300 |
goto T988;} |
goto T988;} |
2301 |
base[11]=V362=MMcons(Cnil,Cnil); |
base[11]=V376=MMcons(Cnil,Cnil); |
2302 |
goto T989; |
goto T989; |
2303 |
T989:; |
T989:; |
2304 |
(V362->c.c_car)= (*(LnkLI237))((V363->c.c_car)); |
(V376->c.c_car)= (*(LnkLI237))((V377->c.c_car)); |
2305 |
if((V363=MMcdr(V363))==Cnil){ |
if((V377=MMcdr(V377))==Cnil){ |
2306 |
base[10]= base[11]; |
base[10]= base[11]; |
2307 |
goto T988;} |
goto T988;} |
2308 |
V362=MMcdr(V362)=MMcons(Cnil,Cnil); |
V376=MMcdr(V376)=MMcons(Cnil,Cnil); |
2309 |
goto T989;} |
goto T989;} |
2310 |
goto T988; |
goto T988; |
2311 |
T988:; |
T988:; |
2321 |
goto T972; |
goto T972; |
2322 |
T972:; |
T972:; |
2323 |
base[1]= VV[140]; |
base[1]= VV[140]; |
2324 |
base[2]= (V360); |
base[2]= (V374); |
2325 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2326 |
Lerror(); |
Lerror(); |
2327 |
return; |
return; |
2329 |
} |
} |
2330 |
/* local entry for function BUILT-IN-WRAPPER-OF */ |
/* local entry for function BUILT-IN-WRAPPER-OF */ |
2331 |
|
|
2332 |
static object LI39(V366) |
static object LI39(V380) |
2333 |
|
|
2334 |
register object V366; |
register object V380; |
2335 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2336 |
goto TTL; |
goto TTL; |
2337 |
TTL:;{object V367; |
TTL:;{object V381; |
2338 |
if(type_of((V366))==t_symbol){ |
if(type_of((V380))==t_symbol){ |
2339 |
goto T995;} |
goto T995;} |
2340 |
V367= Cnil; |
V381= Cnil; |
2341 |
goto T994; |
goto T994; |
2342 |
goto T995; |
goto T995; |
2343 |
T995:;{object V368; |
T995:;{object V382; |
2344 |
if(((V366))==Cnil){ |
if(((V380))==Cnil){ |
2345 |
goto T999;} |
goto T999;} |
2346 |
V368= Cnil; |
V382= Cnil; |
2347 |
goto T998; |
goto T998; |
2348 |
goto T999; |
goto T999; |
2349 |
T999:; |
T999:; |
2350 |
V368= (VV[131]->s.s_dbind); |
V382= (VV[131]->s.s_dbind); |
2351 |
goto T998; |
goto T998; |
2352 |
T998:; |
T998:; |
2353 |
if(V368==Cnil)goto T997; |
if(V382==Cnil)goto T997; |
2354 |
V367= V368; |
V381= V382; |
2355 |
goto T994; |
goto T994; |
2356 |
goto T997; |
goto T997; |
2357 |
T997:;} |
T997:;} |
2358 |
V367= (VV[130]->s.s_dbind); |
V381= (VV[130]->s.s_dbind); |
2359 |
goto T994; |
goto T994; |
2360 |
T994:; |
T994:; |
2361 |
if(V367==Cnil)goto T993; |
if(V381==Cnil)goto T993; |
2362 |
{object V369 = V367; |
{object V383 = V381; |
2363 |
VMR23(V369)} |
VMR23(V383)} |
2364 |
goto T993; |
goto T993; |
2365 |
T993:;}{object V370; |
T993:;}{object V384; |
2366 |
if(type_of((V366))==t_character){ |
if(type_of((V380))==t_character){ |
2367 |
goto T1003;} |
goto T1003;} |
2368 |
V370= Cnil; |
V384= Cnil; |
2369 |
goto T1002; |
goto T1002; |
2370 |
goto T1003; |
goto T1003; |
2371 |
T1003:; |
T1003:; |
2372 |
V370= (VV[141]->s.s_dbind); |
V384= (VV[141]->s.s_dbind); |
2373 |
goto T1002; |
goto T1002; |
2374 |
T1002:; |
T1002:; |
2375 |
if(V370==Cnil)goto T1001; |
if(V384==Cnil)goto T1001; |
2376 |
{object V371 = V370; |
{object V385 = V384; |
2377 |
VMR23(V371)} |
VMR23(V385)} |
2378 |
goto T1001; |
goto T1001; |
2379 |
T1001:;}{object V372; |
T1001:;}{object V386; |
2380 |
if(type_of((V366))==t_array|| |
if(type_of((V380))==t_array|| |
2381 |
type_of((V366))==t_vector|| |
type_of((V380))==t_vector|| |
2382 |
type_of((V366))==t_string|| |
type_of((V380))==t_string|| |
2383 |
type_of((V366))==t_bitvector){ |
type_of((V380))==t_bitvector){ |
2384 |
goto T1007;} |
goto T1007;} |
2385 |
V372= Cnil; |
V386= Cnil; |
2386 |
goto T1006; |
goto T1006; |
2387 |
goto T1007; |
goto T1007; |
2388 |
T1007:;{object V373; |
T1007:;{object V387; |
2389 |
if(type_of((V366))==t_vector|| |
if(type_of((V380))==t_vector|| |
2390 |
type_of((V366))==t_string|| |
type_of((V380))==t_string|| |
2391 |
type_of((V366))==t_bitvector){ |
type_of((V380))==t_bitvector){ |
2392 |
goto T1011;} |
goto T1011;} |
2393 |
V373= Cnil; |
V387= Cnil; |
2394 |
goto T1010; |
goto T1010; |
2395 |
goto T1011; |
goto T1011; |
2396 |
T1011:;{object V374; |
T1011:;{object V388; |
2397 |
if((type_of((V366))==t_bitvector)){ |
if((type_of((V380))==t_bitvector)){ |
2398 |
goto T1015;} |
goto T1015;} |
2399 |
V374= Cnil; |
V388= Cnil; |
2400 |
goto T1014; |
goto T1014; |
2401 |
goto T1015; |
goto T1015; |
2402 |
T1015:; |
T1015:; |
2403 |
V374= (VV[144]->s.s_dbind); |
V388= (VV[144]->s.s_dbind); |
2404 |
goto T1014; |
goto T1014; |
2405 |
T1014:; |
T1014:; |
2406 |
if(V374==Cnil)goto T1013; |
if(V388==Cnil)goto T1013; |
2407 |
V373= V374; |
V387= V388; |
2408 |
goto T1010; |
goto T1010; |
2409 |
goto T1013; |
goto T1013; |
2410 |
T1013:;}{object V375; |
T1013:;}{object V389; |
2411 |
if(type_of((V366))==t_string){ |
if(type_of((V380))==t_string){ |
2412 |
goto T1019;} |
goto T1019;} |
2413 |
V375= Cnil; |
V389= Cnil; |
2414 |
goto T1018; |
goto T1018; |
2415 |
goto T1019; |
goto T1019; |
2416 |
T1019:; |
T1019:; |
2417 |
V375= (VV[145]->s.s_dbind); |
V389= (VV[145]->s.s_dbind); |
2418 |
goto T1018; |
goto T1018; |
2419 |
T1018:; |
T1018:; |
2420 |
if(V375==Cnil)goto T1017; |
if(V389==Cnil)goto T1017; |
2421 |
V373= V375; |
V387= V389; |
2422 |
goto T1010; |
goto T1010; |
2423 |
goto T1017; |
goto T1017; |
2424 |
T1017:;} |
T1017:;} |
2425 |
V373= (VV[143]->s.s_dbind); |
V387= (VV[143]->s.s_dbind); |
2426 |
goto T1010; |
goto T1010; |
2427 |
T1010:; |
T1010:; |
2428 |
if(V373==Cnil)goto T1009; |
if(V387==Cnil)goto T1009; |
2429 |
V372= V373; |
V386= V387; |
2430 |
goto T1006; |
goto T1006; |
2431 |
goto T1009; |
goto T1009; |
2432 |
T1009:;} |
T1009:;} |
2433 |
V372= (VV[142]->s.s_dbind); |
V386= (VV[142]->s.s_dbind); |
2434 |
goto T1006; |
goto T1006; |
2435 |
T1006:; |
T1006:; |
2436 |
if(V372==Cnil)goto T1005; |
if(V386==Cnil)goto T1005; |
2437 |
{object V376 = V372; |
{object V390 = V386; |
2438 |
VMR23(V376)} |
VMR23(V390)} |
2439 |
goto T1005; |
goto T1005; |
2440 |
T1005:;}{object V377; |
T1005:;}{object V391; |
2441 |
if(!(type_of(V366)==t_cons||(V366)==Cnil)){ |
if(!(type_of(V380)==t_cons||(V380)==Cnil)){ |
2442 |
goto T1025;} |
goto T1025;} |
2443 |
goto T1023; |
goto T1023; |
2444 |
goto T1025; |
goto T1025; |
2445 |
T1025:; |
T1025:; |
2446 |
if(type_of(V366)==t_vector|| |
if(type_of(V380)==t_vector|| |
2447 |
type_of(V366)==t_string|| |
type_of(V380)==t_string|| |
2448 |
type_of(V366)==t_bitvector){ |
type_of(V380)==t_bitvector){ |
2449 |
goto T1023;} |
goto T1023;} |
2450 |
V377= Cnil; |
V391= Cnil; |
2451 |
goto T1022; |
goto T1022; |
2452 |
goto T1023; |
goto T1023; |
2453 |
T1023:;{object V379; |
T1023:;{object V393; |
2454 |
if(type_of((V366))==t_vector|| |
if(type_of((V380))==t_vector|| |
2455 |
type_of((V366))==t_string|| |
type_of((V380))==t_string|| |
2456 |
type_of((V366))==t_bitvector){ |
type_of((V380))==t_bitvector){ |
2457 |
goto T1029;} |
goto T1029;} |
2458 |
V379= Cnil; |
V393= Cnil; |
2459 |
goto T1028; |
goto T1028; |
2460 |
goto T1029; |
goto T1029; |
2461 |
T1029:;{object V380; |
T1029:;{object V394; |
2462 |
if((type_of((V366))==t_bitvector)){ |
if((type_of((V380))==t_bitvector)){ |
2463 |
goto T1033;} |
goto T1033;} |
2464 |
V380= Cnil; |
V394= Cnil; |
2465 |
goto T1032; |
goto T1032; |
2466 |
goto T1033; |
goto T1033; |
2467 |
T1033:; |
T1033:; |
2468 |
V380= (VV[144]->s.s_dbind); |
V394= (VV[144]->s.s_dbind); |
2469 |
goto T1032; |
goto T1032; |
2470 |
T1032:; |
T1032:; |
2471 |
if(V380==Cnil)goto T1031; |
if(V394==Cnil)goto T1031; |
2472 |
V379= V380; |
V393= V394; |
2473 |
goto T1028; |
goto T1028; |
2474 |
goto T1031; |
goto T1031; |
2475 |
T1031:;}{object V381; |
T1031:;}{object V395; |
2476 |
if(type_of((V366))==t_string){ |
if(type_of((V380))==t_string){ |
2477 |
goto T1037;} |
goto T1037;} |
2478 |
V381= Cnil; |
V395= Cnil; |
2479 |
goto T1036; |
goto T1036; |
2480 |
goto T1037; |
goto T1037; |
2481 |
T1037:; |
T1037:; |
2482 |
V381= (VV[145]->s.s_dbind); |
V395= (VV[145]->s.s_dbind); |
2483 |
goto T1036; |
goto T1036; |
2484 |
T1036:; |
T1036:; |
2485 |
if(V381==Cnil)goto T1035; |
if(V395==Cnil)goto T1035; |
2486 |
V379= V381; |
V393= V395; |
2487 |
goto T1028; |
goto T1028; |
2488 |
goto T1035; |
goto T1035; |
2489 |
T1035:;} |
T1035:;} |
2490 |
V379= (VV[143]->s.s_dbind); |
V393= (VV[143]->s.s_dbind); |
2491 |
goto T1028; |
goto T1028; |
2492 |
T1028:; |
T1028:; |
2493 |
if(V379==Cnil)goto T1027; |
if(V393==Cnil)goto T1027; |
2494 |
V377= V379; |
V391= V393; |
2495 |
goto T1022; |
goto T1022; |
2496 |
goto T1027; |
goto T1027; |
2497 |
T1027:;}{object V382; |
T1027:;}{object V396; |
2498 |
if(!(type_of(V366)==t_cons)){ |
if(!(type_of(V380)==t_cons)){ |
2499 |
goto T1043;} |
goto T1043;} |
2500 |
goto T1041; |
goto T1041; |
2501 |
goto T1043; |
goto T1043; |
2502 |
T1043:; |
T1043:; |
2503 |
if((V366)==Cnil){ |
if((V380)==Cnil){ |
2504 |
goto T1041;} |
goto T1041;} |
2505 |
V382= Cnil; |
V396= Cnil; |
2506 |
goto T1040; |
goto T1040; |
2507 |
goto T1041; |
goto T1041; |
2508 |
T1041:;{object V384; |
T1041:;{object V398; |
2509 |
if(((V366))==Cnil){ |
if(((V380))==Cnil){ |
2510 |
goto T1047;} |
goto T1047;} |
2511 |
V384= Cnil; |
V398= Cnil; |
2512 |
goto T1046; |
goto T1046; |
2513 |
goto T1047; |
goto T1047; |
2514 |
T1047:; |
T1047:; |
2515 |
V384= (VV[131]->s.s_dbind); |
V398= (VV[131]->s.s_dbind); |
2516 |
goto T1046; |
goto T1046; |
2517 |
T1046:; |
T1046:; |
2518 |
if(V384==Cnil)goto T1045; |
if(V398==Cnil)goto T1045; |
2519 |
V382= V384; |
V396= V398; |
2520 |
goto T1040; |
goto T1040; |
2521 |
goto T1045; |
goto T1045; |
2522 |
T1045:;}{object V385; |
T1045:;}{object V399; |
2523 |
if(type_of((V366))==t_cons){ |
if(type_of((V380))==t_cons){ |
2524 |
goto T1051;} |
goto T1051;} |
2525 |
V385= Cnil; |
V399= Cnil; |
2526 |
goto T1050; |
goto T1050; |
2527 |
goto T1051; |
goto T1051; |
2528 |
T1051:; |
T1051:; |
2529 |
V385= (VV[148]->s.s_dbind); |
V399= (VV[148]->s.s_dbind); |
2530 |
goto T1050; |
goto T1050; |
2531 |
T1050:; |
T1050:; |
2532 |
if(V385==Cnil)goto T1049; |
if(V399==Cnil)goto T1049; |
2533 |
V382= V385; |
V396= V399; |
2534 |
goto T1040; |
goto T1040; |
2535 |
goto T1049; |
goto T1049; |
2536 |
T1049:;} |
T1049:;} |
2537 |
V382= (VV[147]->s.s_dbind); |
V396= (VV[147]->s.s_dbind); |
2538 |
goto T1040; |
goto T1040; |
2539 |
T1040:; |
T1040:; |
2540 |
if(V382==Cnil)goto T1039; |
if(V396==Cnil)goto T1039; |
2541 |
V377= V382; |
V391= V396; |
2542 |
goto T1022; |
goto T1022; |
2543 |
goto T1039; |
goto T1039; |
2544 |
T1039:;} |
T1039:;} |
2545 |
V377= (VV[146]->s.s_dbind); |
V391= (VV[146]->s.s_dbind); |
2546 |
goto T1022; |
goto T1022; |
2547 |
T1022:; |
T1022:; |
2548 |
if(V377==Cnil)goto T1021; |
if(V391==Cnil)goto T1021; |
2549 |
{object V386 = V377; |
{object V400 = V391; |
2550 |
VMR23(V386)} |
VMR23(V400)} |
2551 |
goto T1021; |
goto T1021; |
2552 |
T1021:;}{object V387; |
T1021:;}{object V401; |
2553 |
if(type_of((V366))==t_fixnum|| |
if(type_of((V380))==t_fixnum|| |
2554 |
type_of((V366))==t_bignum|| |
type_of((V380))==t_bignum|| |
2555 |
type_of((V366))==t_ratio|| |
type_of((V380))==t_ratio|| |
2556 |
type_of((V366))==t_shortfloat|| |
type_of((V380))==t_shortfloat|| |
2557 |
type_of((V366))==t_longfloat|| |
type_of((V380))==t_longfloat|| |
2558 |
type_of((V366))==t_complex){ |
type_of((V380))==t_complex){ |
2559 |
goto T1055;} |
goto T1055;} |
2560 |
V387= Cnil; |
V401= Cnil; |
2561 |
goto T1054; |
goto T1054; |
2562 |
goto T1055; |
goto T1055; |
2563 |
T1055:;{object V388; |
T1055:;{object V402; |
2564 |
base[0]= (V366); |
base[0]= (V380); |
2565 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2566 |
(void) (*Lnk239)(); |
(void) (*Lnk239)(); |
2567 |
vs_top=sup; |
vs_top=sup; |
2568 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2569 |
goto T1059;} |
goto T1059;} |
2570 |
V388= Cnil; |
V402= Cnil; |
2571 |
goto T1058; |
goto T1058; |
2572 |
goto T1059; |
goto T1059; |
2573 |
T1059:;{object V389; |
T1059:;{object V403; |
2574 |
if(type_of((V366))==t_ratio){ |
if(type_of((V380))==t_ratio){ |
2575 |
goto T1064;} |
goto T1064;} |
2576 |
V389= Cnil; |
V403= Cnil; |
2577 |
goto T1063; |
goto T1063; |
2578 |
goto T1064; |
goto T1064; |
2579 |
T1064:; |
T1064:; |
2580 |
V389= (VV[151]->s.s_dbind); |
V403= (VV[151]->s.s_dbind); |
2581 |
goto T1063; |
goto T1063; |
2582 |
T1063:; |
T1063:; |
2583 |
if(V389==Cnil)goto T1062; |
if(V403==Cnil)goto T1062; |
2584 |
V388= V389; |
V402= V403; |
2585 |
goto T1058; |
goto T1058; |
2586 |
goto T1062; |
goto T1062; |
2587 |
T1062:;}{object V390; |
T1062:;}{object V404; |
2588 |
if(type_of((V366))==t_fixnum||type_of((V366))==t_bignum){ |
if(type_of((V380))==t_fixnum||type_of((V380))==t_bignum){ |
2589 |
goto T1068;} |
goto T1068;} |
2590 |
V390= Cnil; |
V404= Cnil; |
2591 |
goto T1067; |
goto T1067; |
2592 |
goto T1068; |
goto T1068; |
2593 |
T1068:; |
T1068:; |
2594 |
V390= (VV[152]->s.s_dbind); |
V404= (VV[152]->s.s_dbind); |
2595 |
goto T1067; |
goto T1067; |
2596 |
T1067:; |
T1067:; |
2597 |
if(V390==Cnil)goto T1066; |
if(V404==Cnil)goto T1066; |
2598 |
V388= V390; |
V402= V404; |
2599 |
goto T1058; |
goto T1058; |
2600 |
goto T1066; |
goto T1066; |
2601 |
T1066:;} |
T1066:;} |
2602 |
V388= (VV[150]->s.s_dbind); |
V402= (VV[150]->s.s_dbind); |
2603 |
goto T1058; |
goto T1058; |
2604 |
T1058:; |
T1058:; |
2605 |
if(V388==Cnil)goto T1057; |
if(V402==Cnil)goto T1057; |
2606 |
V387= V388; |
V401= V402; |
2607 |
goto T1054; |
goto T1054; |
2608 |
goto T1057; |
goto T1057; |
2609 |
T1057:;}{object V391; |
T1057:;}{object V405; |
2610 |
if(type_of((V366))==t_shortfloat||type_of((V366))==t_longfloat){ |
if(type_of((V380))==t_shortfloat||type_of((V380))==t_longfloat){ |
2611 |
goto T1072;} |
goto T1072;} |
2612 |
V391= Cnil; |
V405= Cnil; |
2613 |
goto T1071; |
goto T1071; |
2614 |
goto T1072; |
goto T1072; |
2615 |
T1072:; |
T1072:; |
2616 |
V391= (VV[153]->s.s_dbind); |
V405= (VV[153]->s.s_dbind); |
2617 |
goto T1071; |
goto T1071; |
2618 |
T1071:; |
T1071:; |
2619 |
if(V391==Cnil)goto T1070; |
if(V405==Cnil)goto T1070; |
2620 |
V387= V391; |
V401= V405; |
2621 |
goto T1054; |
goto T1054; |
2622 |
goto T1070; |
goto T1070; |
2623 |
T1070:;}{object V392; |
T1070:;}{object V406; |
2624 |
base[0]= (V366); |
base[0]= (V380); |
2625 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2626 |
Lcomplexp(); |
Lcomplexp(); |
2627 |
vs_top=sup; |
vs_top=sup; |
2628 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2629 |
goto T1076;} |
goto T1076;} |
2630 |
V392= Cnil; |
V406= Cnil; |
2631 |
goto T1075; |
goto T1075; |
2632 |
goto T1076; |
goto T1076; |
2633 |
T1076:; |
T1076:; |
2634 |
V392= (VV[154]->s.s_dbind); |
V406= (VV[154]->s.s_dbind); |
2635 |
goto T1075; |
goto T1075; |
2636 |
T1075:; |
T1075:; |
2637 |
if(V392==Cnil)goto T1074; |
if(V406==Cnil)goto T1074; |
2638 |
V387= V392; |
V401= V406; |
2639 |
goto T1054; |
goto T1054; |
2640 |
goto T1074; |
goto T1074; |
2641 |
T1074:;} |
T1074:;} |
2642 |
V387= (VV[149]->s.s_dbind); |
V401= (VV[149]->s.s_dbind); |
2643 |
goto T1054; |
goto T1054; |
2644 |
T1054:; |
T1054:; |
2645 |
if(V387==Cnil)goto T1053; |
if(V401==Cnil)goto T1053; |
2646 |
{object V393 = V387; |
{object V407 = V401; |
2647 |
VMR23(V393)} |
VMR23(V407)} |
2648 |
goto T1053; |
goto T1053; |
2649 |
T1053:;} |
T1053:;} |
2650 |
{object V394 = (VV[38]->s.s_dbind); |
{object V408 = (VV[38]->s.s_dbind); |
2651 |
VMR23(V394)} |
VMR23(V408)} |
2652 |
base[0]=base[0]; |
base[0]=base[0]; |
2653 |
return Cnil; |
return Cnil; |
2654 |
} |
} |
2655 |
/* local entry for function METHOD-FUNCTION-RETURNING-NIL */ |
/* local entry for function METHOD-FUNCTION-RETURNING-NIL */ |
2656 |
|
|
2657 |
static object LI40(V397,V398) |
static object LI40(V411,V412) |
2658 |
|
|
2659 |
object V397;object V398; |
object V411;object V412; |
2660 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2661 |
goto TTL; |
goto TTL; |
2662 |
TTL:; |
TTL:; |
2663 |
{object V399 = Cnil; |
{object V413 = Cnil; |
2664 |
VMR24(V399)} |
VMR24(V413)} |
2665 |
return Cnil; |
return Cnil; |
2666 |
} |
} |
2667 |
/* local entry for function METHOD-FUNCTION-RETURNING-T */ |
/* local entry for function METHOD-FUNCTION-RETURNING-T */ |
2668 |
|
|
2669 |
static object LI41(V402,V403) |
static object LI41(V416,V417) |
2670 |
|
|
2671 |
object V402;object V403; |
object V416;object V417; |
2672 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2673 |
goto TTL; |
goto TTL; |
2674 |
TTL:; |
TTL:; |
2675 |
{object V404 = Ct; |
{object V418 = Ct; |
2676 |
VMR25(V404)} |
VMR25(V418)} |
2677 |
return Cnil; |
return Cnil; |
2678 |
} |
} |
2679 |
/* local entry for function MAKE-CLASS-PREDICATE */ |
/* local entry for function MAKE-CLASS-PREDICATE */ |
2680 |
|
|
2681 |
static object LI42(V407,V408) |
static object LI42(V421,V422) |
2682 |
|
|
2683 |
object V407;object V408; |
object V421;object V422; |
2684 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
2685 |
goto TTL; |
goto TTL; |
2686 |
TTL:; |
TTL:; |
2687 |
{register object V409; |
{register object V423; |
2688 |
object V410; |
object V424; |
2689 |
base[2]= (V408); |
base[2]= (V422); |
2690 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2691 |
(void) (*Lnk209)(); |
(void) (*Lnk209)(); |
2692 |
vs_top=sup; |
vs_top=sup; |
2693 |
V409= vs_base[0]; |
V423= vs_base[0]; |
2694 |
if(!(((VV[155]->s.s_dbind))==(VV[156]))){ |
if(!(((VV[155]->s.s_dbind))==(VV[156]))){ |
2695 |
goto T1083;} |
goto T1083;} |
2696 |
base[2]= (V409); |
base[2]= (V423); |
2697 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2698 |
(void) (*Lnk240)(Lclptr240); |
(void) (*Lnk240)(Lclptr240); |
2699 |
vs_top=sup; |
vs_top=sup; |
2700 |
V410= vs_base[0]; |
V424= vs_base[0]; |
2701 |
goto T1081; |
goto T1081; |
2702 |
goto T1083; |
goto T1083; |
2703 |
T1083:; |
T1083:; |
2704 |
if(type_of(V409)==t_structure){ |
if(type_of(V423)==t_structure){ |
2705 |
goto T1090;} |
goto T1090;} |
2706 |
goto T1088; |
goto T1088; |
2707 |
goto T1090; |
goto T1090; |
2708 |
T1090:; |
T1090:; |
2709 |
if(!(((V409)->str.str_def)==(VV[157]))){ |
if(!(((V423)->str.str_def)==(VV[157]))){ |
2710 |
goto T1088;} |
goto T1088;} |
2711 |
V411= STREF(object,(V409),4); |
V425= STREF(object,(V423),4); |
2712 |
goto T1086; |
goto T1086; |
2713 |
goto T1088; |
goto T1088; |
2714 |
T1088:;{object V413; |
T1088:;{object V427; |
2715 |
V413= (VV[45]->s.s_dbind); |
V427= (VV[45]->s.s_dbind); |
2716 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2717 |
base[3]= (V409); |
base[3]= (V423); |
2718 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2719 |
(void) (*Lnk193)(); |
(void) (*Lnk193)(); |
2720 |
vs_top=sup; |
vs_top=sup; |
2721 |
V414= vs_base[0]; |
V428= vs_base[0]; |
2722 |
if(!((V413)==(CMPcar(V414)))){ |
if(!((V427)==(CMPcar(V428)))){ |
2723 |
goto T1093;}} |
goto T1093;}} |
2724 |
V411= CMPcar(((V409))->cc.cc_turbo[12]); |
V425= CMPcar(((V423))->cc.cc_turbo[12]); |
2725 |
goto T1086; |
goto T1086; |
2726 |
goto T1093; |
goto T1093; |
2727 |
T1093:; |
T1093:; |
2729 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2730 |
Lerror(); |
Lerror(); |
2731 |
vs_top=sup; |
vs_top=sup; |
2732 |
V411= vs_base[0]; |
V425= vs_base[0]; |
2733 |
goto T1086; |
goto T1086; |
2734 |
T1086:; |
T1086:; |
2735 |
V410= (V411)->v.v_self[fix((VV[117]->s.s_dbind))]; |
V429 = (VV[117]->s.s_dbind); |
2736 |
|
V424= (V425)->v.v_self[fix(V429)]; |
2737 |
goto T1081; |
goto T1081; |
2738 |
T1081:; |
T1081:; |
2739 |
if(((V410))!=Cnil){ |
if(((V424))!=Cnil){ |
2740 |
goto T1099;} |
goto T1099;} |
2741 |
if(((V407))==((VV[158]->s.s_dbind))){ |
if(((V421))==((VV[158]->s.s_dbind))){ |
2742 |
goto T1102;} |
goto T1102;} |
2743 |
{object V415; |
{object V430; |
2744 |
object V416; |
object V431; |
2745 |
object V417; |
object V432; |
2746 |
V415= (VV[241]->s.s_gfdef); |
V430= (VV[241]->s.s_gfdef); |
2747 |
V416= list(2,VV[159],(V415)); |
V431= list(2,VV[159],(V430)); |
2748 |
base[5]= VV[160]; |
base[5]= VV[160]; |
2749 |
base[6]= Cnil; |
base[6]= Cnil; |
2750 |
base[7]= make_cons(VV[57],Cnil); |
base[7]= make_cons(VV[57],Cnil); |
2751 |
base[8]= make_cons((VV[158]->s.s_dbind),Cnil); |
base[8]= make_cons((VV[158]->s.s_dbind),Cnil); |
2752 |
base[9]= (V416); |
base[9]= (V431); |
2753 |
base[10]= VV[161]; |
base[10]= VV[161]; |
2754 |
V417= simple_symlispcall(VV[215],base+5,6); |
V432= simple_symlispcall(VV[215],base+5,6); |
2755 |
(void)((*(LnkLI242))(Cnil,V415,VV[162])); |
(void)((*(LnkLI242))(Cnil,V430,VV[162])); |
2756 |
base[5]= (V409); |
base[5]= (V423); |
2757 |
base[6]= (V417); |
base[6]= (V432); |
2758 |
(void)simple_symlispcall(VV[214],base+5,2);} |
(void)simple_symlispcall(VV[214],base+5,2);} |
2759 |
goto T1102; |
goto T1102; |
2760 |
T1102:; |
T1102:; |
2761 |
{object V420; |
{object V435; |
2762 |
object V421; |
object V436; |
2763 |
object V422; |
object V437; |
2764 |
V420= (VV[243]->s.s_gfdef); |
V435= (VV[243]->s.s_gfdef); |
2765 |
V421= list(2,VV[159],(V420)); |
V436= list(2,VV[159],(V435)); |
2766 |
base[5]= VV[160]; |
base[5]= VV[160]; |
2767 |
base[6]= Cnil; |
base[6]= Cnil; |
2768 |
base[7]= make_cons(VV[57],Cnil); |
base[7]= make_cons(VV[57],Cnil); |
2769 |
base[8]= make_cons((V407),Cnil); |
base[8]= make_cons((V421),Cnil); |
2770 |
base[9]= (V421); |
base[9]= (V436); |
2771 |
base[10]= VV[163]; |
base[10]= VV[163]; |
2772 |
V422= simple_symlispcall(VV[215],base+5,6); |
V437= simple_symlispcall(VV[215],base+5,6); |
2773 |
(void)((*(LnkLI242))(Ct,V420,VV[162])); |
(void)((*(LnkLI242))(Ct,V435,VV[162])); |
2774 |
base[5]= (V409); |
base[5]= (V423); |
2775 |
base[6]= (V422); |
base[6]= (V437); |
2776 |
(void)simple_symlispcall(VV[214],base+5,2);} |
(void)simple_symlispcall(VV[214],base+5,2);} |
2777 |
goto T1099; |
goto T1099; |
2778 |
T1099:; |
T1099:; |
2779 |
{object V425 = (V409); |
{object V440 = (V423); |
2780 |
VMR26(V425)}} |
VMR26(V440)}} |
2781 |
base[0]=base[0]; |
base[0]=base[0]; |
2782 |
return Cnil; |
return Cnil; |
2783 |
} |
} |
2801 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2802 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
2803 |
vs_check; |
vs_check; |
2804 |
{object V426; |
{object V441; |
2805 |
object V427; |
object V442; |
2806 |
object V428; |
object V443; |
2807 |
object V429; |
object V444; |
2808 |
check_arg(4); |
check_arg(4); |
2809 |
V426=(base[0]); |
V441=(base[0]); |
2810 |
V427=(base[1]); |
V442=(base[1]); |
2811 |
V428=(base[2]); |
V443=(base[2]); |
2812 |
V429=(base[3]); |
V444=(base[3]); |
2813 |
vs_top=sup; |
vs_top=sup; |
2814 |
goto TTL; |
goto TTL; |
2815 |
TTL:; |
TTL:; |
2816 |
base[4]= VV[165]; |
base[4]= VV[165]; |
2817 |
base[5]= VV[166]; |
base[5]= VV[166]; |
2818 |
base[6]= (V428); |
base[6]= (V443); |
2819 |
base[7]= V429; |
base[7]= V444; |
2820 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2821 |
Lcerror(); |
Lcerror(); |
2822 |
vs_top=sup; |
vs_top=sup; |
2823 |
base[4]= (V428); |
base[4]= (V443); |
2824 |
{object V432; |
{object V447; |
2825 |
V432= V429; |
V447= V444; |
2826 |
vs_top=base+5; |
vs_top=base+5; |
2827 |
while(V432!=Cnil) |
while(V447!=Cnil) |
2828 |
{vs_push((V432)->c.c_car);V432=(V432)->c.c_cdr;} |
{vs_push((V447)->c.c_car);V447=(V447)->c.c_cdr;} |
2829 |
vs_base=base+5;} |
vs_base=base+5;} |
2830 |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2831 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2855 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2856 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
2857 |
vs_check; |
vs_check; |
2858 |
{object V433; |
{object V448; |
2859 |
check_arg(1); |
check_arg(1); |
2860 |
V433=(base[0]); |
V448=(base[0]); |
2861 |
vs_top=sup; |
vs_top=sup; |
2862 |
goto TTL; |
goto TTL; |
2863 |
TTL:; |
TTL:; |
2864 |
base[1]= base0[1]; |
base[1]= base0[1]; |
2865 |
base[2]= (V433); |
base[2]= (V448); |
2866 |
base[3]= base0[0]; |
base[3]= base0[0]; |
2867 |
base[4]= VV[122]; |
base[4]= VV[122]; |
2868 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
2877 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2878 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
2879 |
vs_check; |
vs_check; |
2880 |
{object V434; |
{object V449; |
2881 |
check_arg(1); |
check_arg(1); |
2882 |
V434=(base[0]); |
V449=(base[0]); |
2883 |
vs_top=sup; |
vs_top=sup; |
2884 |
goto TTL; |
goto TTL; |
2885 |
TTL:; |
TTL:; |
2886 |
base[1]= base0[1]; |
base[1]= base0[1]; |
2887 |
base[2]= (V434); |
base[2]= (V449); |
2888 |
base[3]= base0[0]; |
base[3]= base0[0]; |
2889 |
base[4]= VV[121]; |
base[4]= VV[121]; |
2890 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
2899 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2900 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
2901 |
vs_check; |
vs_check; |
2902 |
{object V435; |
{object V450; |
2903 |
check_arg(1); |
check_arg(1); |
2904 |
V435=(base[0]); |
V450=(base[0]); |
2905 |
vs_top=sup; |
vs_top=sup; |
2906 |
goto TTL; |
goto TTL; |
2907 |
TTL:; |
TTL:; |
2908 |
base[1]= base0[1]; |
base[1]= base0[1]; |
2909 |
base[2]= (V435); |
base[2]= (V450); |
2910 |
base[3]= base0[0]; |
base[3]= base0[0]; |
2911 |
base[4]= VV[120]; |
base[4]= VV[120]; |
2912 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
2921 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2922 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
2923 |
vs_check; |
vs_check; |
2924 |
{object V436; |
{object V451; |
2925 |
object V437; |
object V452; |
2926 |
check_arg(2); |
check_arg(2); |
2927 |
V436=(base[0]); |
V451=(base[0]); |
2928 |
V437=(base[1]); |
V452=(base[1]); |
2929 |
vs_top=sup; |
vs_top=sup; |
2930 |
goto TTL; |
goto TTL; |
2931 |
TTL:; |
TTL:; |
2932 |
base[2]= (*(LnkLI196))(base0[1],base0[2],(V436),(V437)); |
base[2]= (*(LnkLI196))(base0[1],base0[2],(V451),(V452)); |
2933 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2934 |
return; |
return; |
2935 |
} |
} |
2941 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2942 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
2943 |
vs_check; |
vs_check; |
2944 |
{object V438; |
{object V453; |
2945 |
check_arg(1); |
check_arg(1); |
2946 |
V438=(base[0]); |
V453=(base[0]); |
2947 |
vs_top=sup; |
vs_top=sup; |
2948 |
goto TTL; |
goto TTL; |
2949 |
TTL:; |
TTL:; |
2950 |
base[1]= base0[0]; |
base[1]= base0[0]; |
2951 |
base[2]= (V438); |
base[2]= (V453); |
2952 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2953 |
Lgetf(); |
Lgetf(); |
2954 |
return; |
return; |
2961 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2962 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2963 |
vs_check; |
vs_check; |
2964 |
{object V439; |
{object V454; |
2965 |
object V440; |
object V455; |
2966 |
check_arg(2); |
check_arg(2); |
2967 |
V439=(base[0]); |
V454=(base[0]); |
2968 |
V440=(base[1]); |
V455=(base[1]); |
2969 |
vs_top=sup; |
vs_top=sup; |
2970 |
goto TTL; |
goto TTL; |
2971 |
TTL:; |
TTL:; |
2972 |
base[2]= (*(LnkLI196))(base0[0],base0[1],(V439),(V440)); |
base[2]= (*(LnkLI196))(base0[0],base0[1],(V454),(V455)); |
2973 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2974 |
return; |
return; |
2975 |
} |
} |
2981 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2982 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
2983 |
vs_check; |
vs_check; |
2984 |
{object V441; |
{object V456; |
2985 |
check_arg(1); |
check_arg(1); |
2986 |
V441=(base[0]); |
V456=(base[0]); |
2987 |
vs_top=sup; |
vs_top=sup; |
2988 |
goto TTL; |
goto TTL; |
2989 |
TTL:; |
TTL:; |
2990 |
base[2]=VV[25]->s.s_gfdef; |
base[2]=VV[25]->s.s_gfdef; |
2991 |
{object V442; |
{object V457; |
2992 |
object V443= (V441); |
object V458= (V456); |
2993 |
if(V443==Cnil){ |
if(V458==Cnil){ |
2994 |
base[3]= Cnil; |
base[3]= Cnil; |
2995 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2996 |
return;} |
return;} |
2997 |
base[1]=V442=MMcons(Cnil,Cnil); |
base[1]=V457=MMcons(Cnil,Cnil); |
2998 |
goto T1154; |
goto T1154; |
2999 |
T1154:; |
T1154:; |
3000 |
base[3]= (V443->c.c_car); |
base[3]= (V458->c.c_car); |
3001 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3002 |
(void) (*Lnk25)(); |
(void) (*Lnk25)(); |
3003 |
vs_top=sup; |
vs_top=sup; |
3004 |
(V442->c.c_car)= vs_base[0]; |
(V457->c.c_car)= vs_base[0]; |
3005 |
if((V443=MMcdr(V443))==Cnil){ |
if((V458=MMcdr(V458))==Cnil){ |
3006 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3007 |
return;} |
return;} |
3008 |
V442=MMcdr(V442)=MMcons(Cnil,Cnil); |
V457=MMcdr(V457)=MMcons(Cnil,Cnil); |
3009 |
goto T1154;} |
goto T1154;} |
3010 |
} |
} |
3011 |
} |
} |
3016 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3017 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
3018 |
vs_check; |
vs_check; |
3019 |
{object V444; |
{object V459; |
3020 |
object V445; |
object V460; |
3021 |
check_arg(2); |
check_arg(2); |
3022 |
V444=(base[0]); |
V459=(base[0]); |
3023 |
V445=(base[1]); |
V460=(base[1]); |
3024 |
vs_top=sup; |
vs_top=sup; |
3025 |
goto TTL; |
goto TTL; |
3026 |
TTL:; |
TTL:; |
3027 |
base[2]= (*(LnkLI196))(VV[43],base0[3],(V444),(V445)); |
base[2]= (*(LnkLI196))(VV[43],base0[3],(V459),(V460)); |
3028 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3029 |
return; |
return; |
3030 |
} |
} |
3036 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3037 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
3038 |
vs_check; |
vs_check; |
3039 |
{object V446; |
{object V461; |
3040 |
check_arg(1); |
check_arg(1); |
3041 |
V446=(base[0]); |
V461=(base[0]); |
3042 |
vs_top=sup; |
vs_top=sup; |
3043 |
base[1]= Ct; |
base[1]= Ct; |
3044 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3052 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3053 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
3054 |
vs_check; |
vs_check; |
3055 |
{object V447; |
{object V462; |
3056 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
3057 |
{object *p=vs_top; |
{object *p=vs_top; |
3058 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
3059 |
V447=(base[0]); |
V462=(base[0]); |
3060 |
vs_top=sup; |
vs_top=sup; |
3061 |
base[1]= VV[10]; |
base[1]= VV[10]; |
3062 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |