27 |
goto T2; |
goto T2; |
28 |
T2:; |
T2:; |
29 |
{object V5; |
{object V5; |
30 |
V5= (*(LnkLI169))(); |
V5= (*(LnkLI178))(); |
31 |
V6 = (V5); |
V6= Ct; |
32 |
V7 = (V2); |
STSET(object,(V5),0, (V2)); |
33 |
V8= Ct; |
(void)((V2)); |
|
STSET(object,V6,0, V7); |
|
|
(void)(V7); |
|
|
V9 = (V5); |
|
34 |
if(((V4))==Cnil){ |
if(((V4))==Cnil){ |
35 |
goto T9;} |
goto T9;} |
36 |
base[0]= (V3); |
base[0]= (V3); |
37 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
38 |
Lcopy_seq(); |
Lcopy_seq(); |
39 |
vs_top=sup; |
vs_top=sup; |
40 |
V10= vs_base[0]; |
V7= vs_base[0]; |
41 |
goto T7; |
goto T7; |
42 |
goto T9; |
goto T9; |
43 |
T9:; |
T9:; |
45 |
base[1]= VV[2]; |
base[1]= VV[2]; |
46 |
base[2]= (VV[0]->s.s_dbind); |
base[2]= (VV[0]->s.s_dbind); |
47 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
48 |
(void) (*Lnk170)(); |
(void) (*Lnk179)(); |
49 |
vs_top=sup; |
vs_top=sup; |
50 |
V10= vs_base[0]; |
V7= vs_base[0]; |
51 |
goto T7; |
goto T7; |
52 |
T7:; |
T7:; |
53 |
V11= Ct; |
V8= Ct; |
54 |
STSET(object,V9,4, V10); |
STSET(object,(V5),4, V7); |
55 |
(void)(V10); |
(void)(V7); |
56 |
{object V12 = (V5); |
{object V9 = (V5); |
57 |
VMR1(V12)}} |
VMR1(V9)}} |
58 |
va_end(ap); |
va_end(ap); |
59 |
base[0]=base[0]; |
base[0]=base[0]; |
60 |
return Cnil;} |
return Cnil;} |
67 |
vs_check; |
vs_check; |
68 |
check_arg(2); |
check_arg(2); |
69 |
vs_top=sup; |
vs_top=sup; |
70 |
{object V13=base[0]->c.c_cdr; |
{object V10=base[0]->c.c_cdr; |
71 |
if(endp(V13))invalid_macro_call(); |
if(endp(V10))invalid_macro_call(); |
72 |
base[2]= (V13->c.c_car); |
base[2]= (V10->c.c_car); |
73 |
V13=V13->c.c_cdr; |
V10=V10->c.c_cdr; |
74 |
if(endp(V13)){ |
if(endp(V10)){ |
75 |
base[3]= Cnil; |
base[3]= Cnil; |
76 |
} else { |
} else { |
77 |
base[3]= (V13->c.c_car); |
base[3]= (V10->c.c_car); |
78 |
V13=V13->c.c_cdr;} |
V10=V10->c.c_cdr;} |
79 |
if(endp(V13)){ |
if(endp(V10)){ |
80 |
base[4]= Cnil; |
base[4]= Cnil; |
81 |
} else { |
} else { |
82 |
base[4]= (V13->c.c_car); |
base[4]= (V10->c.c_car); |
83 |
V13=V13->c.c_cdr;} |
V10=V10->c.c_cdr;} |
84 |
if(!endp(V13))invalid_macro_call();} |
if(!endp(V10))invalid_macro_call();} |
85 |
V14= list(2,VV[4],list(2,VV[5],base[2])); |
V11= list(2,VV[4],list(2,VV[5],base[2])); |
86 |
V15= make_cons(/* INLINE-ARGS */V14,Cnil); |
V12= make_cons(/* INLINE-ARGS */V11,Cnil); |
87 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
88 |
goto T19;} |
goto T19;} |
89 |
V16= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]); |
V13= list(4,VV[6],base[3],list(2,VV[7],base[4]),VV[8]); |
90 |
goto T17; |
goto T17; |
91 |
goto T19; |
goto T19; |
92 |
T19:; |
T19:; |
93 |
V16= VV[9]; |
V13= VV[9]; |
94 |
goto T17; |
goto T17; |
95 |
T17:; |
T17:; |
96 |
base[5]= list(3,VV[3],/* INLINE-ARGS */V15,V16); |
base[5]= list(3,VV[3],/* INLINE-ARGS */V12,V13); |
97 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
98 |
return; |
return; |
99 |
} |
} |
100 |
/* local entry for function ALLOCATE-FUNCALLABLE-INSTANCE */ |
/* local entry for function ALLOCATE-FUNCALLABLE-INSTANCE */ |
101 |
|
|
102 |
static object LI3(object V17,object first,...) |
static object LI3(object V14,object first,...) |
103 |
{ |
{ |
104 |
va_list ap; |
va_list ap; |
105 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
int narg = VFUN_NARGS; VMB3 VMS3 VMV3 |
106 |
{object V18; |
{object V15; |
107 |
object V19; |
object V16; |
108 |
object V20; |
object V17; |
109 |
va_start(ap,first); |
va_start(ap,first); |
110 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
111 |
V18= V17; |
V15= V14; |
112 |
narg = narg - 1; |
narg = narg - 1; |
113 |
if (narg <= 0) goto T21; |
if (narg <= 0) goto T21; |
114 |
else { |
else { |
115 |
V19= first;} |
V16= first;} |
116 |
V20= Ct; |
V17= Ct; |
117 |
--narg; goto T22; |
--narg; goto T22; |
118 |
goto T21; |
goto T21; |
119 |
T21:; |
T21:; |
120 |
V19= Cnil; |
V16= Cnil; |
121 |
V20= Cnil; |
V17= Cnil; |
122 |
goto T22; |
goto T22; |
123 |
T22:; |
T22:; |
124 |
base[0]= (*(LnkLI171))(); |
base[0]= (*(LnkLI180))(); |
125 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
126 |
V21 = (base[0]->c.c_car); |
V18= |
|
V22= |
|
127 |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
make_cclosure_new(LC45,Cnil,base[0],Cdata); |
128 |
(void)((*(LnkLI172))(V21,V22)); |
(void)((*(LnkLI181))((base[0]->c.c_car),V18)); |
129 |
|
{object V19; |
130 |
|
V19= ((base[0]->c.c_car))->cc.cc_turbo[13]; |
131 |
|
((V19))->c.c_car = V15;} |
132 |
|
{object V21; |
133 |
|
object V22; |
134 |
|
V21= ((base[0]->c.c_car))->cc.cc_turbo[12]; |
135 |
{object V23; |
{object V23; |
136 |
V23= ((base[0]->c.c_car))->cc.cc_turbo[13]; |
V23= ((V15))->v.v_self[12]; |
137 |
((V23))->c.c_car = V18;} |
if(((V17))==Cnil){ |
|
{object V25; |
|
|
object V26; |
|
|
V25= ((base[0]->c.c_car))->cc.cc_turbo[12]; |
|
|
{object V27; |
|
|
V27= ((V18))->v.v_self[12]; |
|
|
if(((V20))==Cnil){ |
|
138 |
goto T35;} |
goto T35;} |
139 |
base[3]= (V19); |
base[3]= (V16); |
140 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
141 |
Lcopy_seq(); |
Lcopy_seq(); |
142 |
vs_top=sup; |
vs_top=sup; |
143 |
V26= vs_base[0]; |
V22= vs_base[0]; |
144 |
goto T32; |
goto T32; |
145 |
goto T35; |
goto T35; |
146 |
T35:; |
T35:; |
147 |
base[3]= (V27); |
base[3]= (V23); |
148 |
base[4]= VV[2]; |
base[4]= VV[2]; |
149 |
base[5]= (VV[0]->s.s_dbind); |
base[5]= (VV[0]->s.s_dbind); |
150 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
151 |
(void) (*Lnk170)(); |
(void) (*Lnk179)(); |
152 |
vs_top=sup; |
vs_top=sup; |
153 |
V26= vs_base[0];} |
V22= vs_base[0];} |
154 |
goto T32; |
goto T32; |
155 |
T32:; |
T32:; |
156 |
((V25))->c.c_car = (V26);} |
((V21))->c.c_car = (V22);} |
157 |
{object V28 = (base[0]->c.c_car); |
{object V24 = (base[0]->c.c_car); |
158 |
VMR3(V28)} |
VMR3(V24)} |
159 |
va_end(ap); |
va_end(ap); |
160 |
base[0]=base[0]; |
base[0]=base[0]; |
161 |
return Cnil;} |
return Cnil;} |
162 |
} |
} |
163 |
/* local entry for function ALLOCATE-STRUCTURE-INSTANCE */ |
/* local entry for function ALLOCATE-STRUCTURE-INSTANCE */ |
164 |
|
|
165 |
static object LI4(object V29,object first,...) |
static object LI4(object V25,object first,...) |
166 |
{ |
{ |
167 |
va_list ap; |
va_list ap; |
168 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
169 |
{object V30; |
{object V26; |
170 |
object V31; |
object V27; |
171 |
object V32; |
object V28; |
172 |
va_start(ap,first); |
va_start(ap,first); |
173 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
174 |
V30= V29; |
V26= V25; |
175 |
narg = narg - 1; |
narg = narg - 1; |
176 |
if (narg <= 0) goto T42; |
if (narg <= 0) goto T42; |
177 |
else { |
else { |
178 |
V31= first;} |
V27= first;} |
179 |
V32= Ct; |
V28= Ct; |
180 |
--narg; goto T43; |
--narg; goto T43; |
181 |
goto T42; |
goto T42; |
182 |
T42:; |
T42:; |
183 |
V31= Cnil; |
V27= Cnil; |
184 |
V32= Cnil; |
V28= Cnil; |
185 |
goto T43; |
goto T43; |
186 |
T43:; |
T43:; |
187 |
{object V33; |
{object V29; |
188 |
object V34; |
object V30; |
189 |
V33= ((V30))->v.v_self[11]; |
V29= ((V26))->v.v_self[11]; |
190 |
base[2]= (V33); |
base[2]= (V29); |
191 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
192 |
(void) (*Lnk174)(Lclptr174); |
(void) (*Lnk183)(Lclptr183); |
193 |
vs_top=sup; |
vs_top=sup; |
194 |
V34= vs_base[0]; |
V30= vs_base[0]; |
195 |
if(((V34))==Cnil){ |
if(((V30))==Cnil){ |
196 |
goto T49;} |
goto T49;} |
197 |
{object V35; |
{object V31; |
198 |
register object V36; |
register object V32; |
199 |
V35= ( |
V31= ( |
200 |
(type_of((V34)) == t_sfun ?(*(((V34))->sfn.sfn_self)): |
(type_of((V30)) == t_sfun ?(*(((V30))->sfn.sfn_self)): |
201 |
(fcall.argd=0,type_of((V34))==t_vfun) ? |
(fcall.argd=0,type_of((V30))==t_vfun) ? |
202 |
(*(((V34))->sfn.sfn_self)): |
(*(((V30))->sfn.sfn_self)): |
203 |
(fcall.fun=((V34)),fcalln))()); |
(fcall.fun=((V30)),fcalln))()); |
204 |
base[2]= (V33); |
base[2]= (V29); |
205 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
206 |
(void) (*Lnk175)(Lclptr175); |
(void) (*Lnk184)(Lclptr184); |
207 |
vs_top=sup; |
vs_top=sup; |
208 |
V36= vs_base[0]; |
V32= vs_base[0]; |
209 |
if(((V32))==Cnil){ |
if(((V28))==Cnil){ |
210 |
goto T54;} |
goto T54;} |
211 |
{long V37; |
{long V33; |
212 |
register long V38; |
register long V34; |
213 |
V37= (long)length((V31)); |
V33= (long)length((V27)); |
214 |
V38= 0; |
V34= 0; |
215 |
goto T60; |
goto T60; |
216 |
T60:; |
T60:; |
217 |
if(!((V38)>=(V37))){ |
if(!((V34)>=(V33))){ |
218 |
goto T61;} |
goto T61;} |
219 |
goto T54; |
goto T54; |
220 |
goto T61; |
goto T61; |
221 |
T61:; |
T61:; |
222 |
{register object V39; |
{register object V35; |
223 |
{register object V40; |
{register object V36; |
224 |
V40= CMPcar((V36)); |
V36= CMPcar((V32)); |
225 |
V36= CMPcdr((V36)); |
V32= CMPcdr((V32)); |
226 |
V39= (V40);} |
V35= (V36);} |
227 |
{register object V41; |
{register object V37; |
228 |
register object V42; |
register object V38; |
229 |
register object V43; |
register object V39; |
230 |
register object V44; |
register object V40; |
231 |
V41= (V33); |
V37= (V29); |
232 |
V42= (V35); |
V38= (V31); |
233 |
V43= (V39); |
V39= (V35); |
234 |
V44= ((V31))->v.v_self[V38]; |
V40= ((V27))->v.v_self[V34]; |
235 |
V45= ({object _tmp=get(VV[176],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[176])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[176])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V41= ({object _tmp=get(VV[185],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[185])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[185])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V46 = (V44); |
|
|
V47 = (V41); |
|
|
V48 = (V42); |
|
|
V49 = (V43); |
|
236 |
(void)(( |
(void)(( |
237 |
V50 = V45, |
V42 = V41, |
238 |
(type_of(V50) == t_sfun ?(*((V50)->sfn.sfn_self)): |
(type_of(V42) == t_sfun ?(*((V42)->sfn.sfn_self)): |
239 |
(fcall.argd=4,type_of(V50)==t_vfun) ? |
(fcall.argd=4,type_of(V42)==t_vfun) ? |
240 |
(*((V50)->sfn.sfn_self)): |
(*((V42)->sfn.sfn_self)): |
241 |
(fcall.fun=(V50),fcalln))(V46,V47,V48,V49)));}} |
(fcall.fun=(V42),fcalln))((V40),(V37),(V38),(V39))));}} |
242 |
V38= (long)(V38)+1; |
V34= (long)(V34)+1; |
243 |
goto T60;} |
goto T60;} |
244 |
goto T54; |
goto T54; |
245 |
T54:; |
T54:; |
246 |
{object V51 = (V35); |
{object V43 = (V31); |
247 |
VMR4(V51)}} |
VMR4(V43)}} |
248 |
goto T49; |
goto T49; |
249 |
T49:; |
T49:; |
250 |
base[2]= VV[11]; |
base[2]= VV[11]; |
251 |
base[4]= (V33); |
base[4]= (V29); |
252 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
253 |
(void) (*Lnk177)(Lclptr177); |
(void) (*Lnk186)(Lclptr186); |
254 |
vs_top=sup; |
vs_top=sup; |
255 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
256 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
257 |
Lerror(); |
Lerror(); |
258 |
vs_top=sup; |
vs_top=sup; |
259 |
{object V52 = vs_base[0]; |
{object V44 = vs_base[0]; |
260 |
VMR4(V52)}} |
VMR4(V44)}} |
261 |
va_end(ap); |
va_end(ap); |
262 |
base[0]=base[0]; |
base[0]=base[0]; |
263 |
return Cnil;} |
return Cnil;} |
270 |
vs_check; |
vs_check; |
271 |
check_arg(2); |
check_arg(2); |
272 |
vs_top=sup; |
vs_top=sup; |
273 |
{object V53=base[0]->c.c_cdr; |
{object V45=base[0]->c.c_cdr; |
274 |
base[2]= V53;} |
base[2]= V45;} |
275 |
{object V55; |
{object V47; |
276 |
object V56= base[2]; |
object V48= base[2]; |
277 |
if(V56==Cnil){ |
if(V48==Cnil){ |
278 |
V54= Cnil; |
V46= Cnil; |
279 |
goto T80;} |
goto T80;} |
280 |
base[3]=V55=MMcons(Cnil,Cnil); |
base[3]=V47=MMcons(Cnil,Cnil); |
281 |
goto T81; |
goto T81; |
282 |
T81:; |
T81:; |
283 |
{register object V57; |
{register object V49; |
284 |
V57= (V56->c.c_car); |
V49= (V48->c.c_car); |
285 |
{object V58; |
{object V50; |
286 |
base[5]= Cnil; |
base[5]= Cnil; |
287 |
base[6]= VV[13]; |
base[6]= VV[13]; |
288 |
base[7]= (V57); |
base[7]= (V49); |
289 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
290 |
Lformat(); |
Lformat(); |
291 |
vs_top=sup; |
vs_top=sup; |
294 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
295 |
Lintern(); |
Lintern(); |
296 |
vs_top=sup; |
vs_top=sup; |
297 |
V58= vs_base[0]; |
V50= vs_base[0]; |
298 |
V59 = (V58); |
if(!(((V49))==(VV[16]))){ |
|
if(!(((V57))==(VV[16]))){ |
|
299 |
goto T91;} |
goto T91;} |
300 |
V60= VV[17]; |
V51= VV[17]; |
301 |
goto T89; |
goto T89; |
302 |
goto T91; |
goto T91; |
303 |
T91:; |
T91:; |
304 |
V60= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V57)))); |
V51= list(2,VV[18],list(2,VV[19],list(2,VV[20],(V49)))); |
305 |
goto T89; |
goto T89; |
306 |
T89:; |
T89:; |
307 |
V61 = (V57); |
if(!(((V49))==(VV[16]))){ |
|
if(!(((V57))==(VV[16]))){ |
|
308 |
goto T95;} |
goto T95;} |
309 |
V62= VV[22]; |
V52= VV[22]; |
310 |
goto T93; |
goto T93; |
311 |
goto T95; |
goto T95; |
312 |
T95:; |
T95:; |
313 |
V62= VV[23]; |
V52= VV[23]; |
314 |
goto T93; |
goto T93; |
315 |
T93:; |
T93:; |
316 |
V63= list(2,VV[21],V62); |
V53= list(2,VV[21],V52); |
317 |
V64= list(2,VV[24],(V58)); |
V54= list(2,VV[24],(V50)); |
318 |
V65 = (V57); |
(V47->c.c_car)= list(9,VV[15],(V50),V51,(V49),/* INLINE-ARGS */V53,/* INLINE-ARGS */V54,(V49),list(2,VV[25],list(2,VV[20],(V49))),(V49));}} |
319 |
V66 = (V57); |
if((V48=MMcdr(V48))==Cnil){ |
320 |
(V55->c.c_car)= list(9,VV[15],V59,V60,V61,/* INLINE-ARGS */V63,/* INLINE-ARGS */V64,V65,list(2,VV[25],list(2,VV[20],(V57))),V66);}} |
V46= base[3]; |
|
if((V56=MMcdr(V56))==Cnil){ |
|
|
V54= base[3]; |
|
321 |
goto T80;} |
goto T80;} |
322 |
V55=MMcdr(V55)=MMcons(Cnil,Cnil); |
V47=MMcdr(V47)=MMcons(Cnil,Cnil); |
323 |
goto T81;} |
goto T81;} |
324 |
goto T80; |
goto T80; |
325 |
T80:; |
T80:; |
326 |
base[3]= make_cons(VV[12],V54); |
base[3]= make_cons(VV[12],V46); |
327 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
328 |
return; |
return; |
329 |
} |
} |
335 |
bds_check; |
bds_check; |
336 |
goto TTL; |
goto TTL; |
337 |
TTL:; |
TTL:; |
338 |
{object V68; |
{object V56; |
339 |
V68= (VFUN_NARGS=1,(*(LnkLI178))(VV[26])); |
V56= (VFUN_NARGS=1,(*(LnkLI187))(VV[26])); |
340 |
{object V70; |
{object V58; |
341 |
V70= VV[179]; |
V58= VV[188]; |
342 |
V71= ({object _tmp=get(VV[180],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[180])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[180])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V59= ({object _tmp=get(VV[189],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[189])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[189])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V72 = (V70); |
|
|
V73 = V68; |
|
343 |
(void)(( |
(void)(( |
344 |
V74 = V71, |
V60 = V59, |
345 |
(type_of(V74) == t_sfun ?(*((V74)->sfn.sfn_self)): |
(type_of(V60) == t_sfun ?(*((V60)->sfn.sfn_self)): |
346 |
(fcall.argd=2,type_of(V74)==t_vfun) ? |
(fcall.argd=2,type_of(V60)==t_vfun) ? |
347 |
(*((V74)->sfn.sfn_self)): |
(*((V60)->sfn.sfn_self)): |
348 |
(fcall.fun=(V74),fcalln))(V72,V73)));} |
(fcall.fun=(V60),fcalln))((V58),V56)));} |
349 |
(void)((*(LnkLI181))(VV[26],(V68)));} |
(void)((*(LnkLI190))(VV[26],(V56)));} |
350 |
{object V75; |
{object V61; |
351 |
|
object V62; |
352 |
|
object V63; |
353 |
|
object V64; |
354 |
|
object V65; |
355 |
|
object V66; |
356 |
|
object V67; |
357 |
|
object V68; |
358 |
|
object V69; |
359 |
|
object V70; |
360 |
|
object V71; |
361 |
|
object V72; |
362 |
|
object V73; |
363 |
|
object V74; |
364 |
|
object V75; |
365 |
object V76; |
object V76; |
366 |
object V77; |
object V77; |
367 |
object V78; |
object V78; |
|
object V79; |
|
|
object V80; |
|
|
object V81; |
|
|
object V82; |
|
|
object V83; |
|
|
object V84; |
|
|
object V85; |
|
|
object V86; |
|
|
object V87; |
|
|
object V88; |
|
|
object V89; |
|
|
object V90; |
|
|
object V91; |
|
|
object V92; |
|
368 |
bds_bind(VV[27],Cnil); |
bds_bind(VV[27],Cnil); |
369 |
|
V61= Cnil; |
370 |
|
V62= Cnil; |
371 |
|
V63= Cnil; |
372 |
|
V64= Cnil; |
373 |
|
V65= Cnil; |
374 |
|
V66= Cnil; |
375 |
|
V67= Cnil; |
376 |
|
V68= Cnil; |
377 |
|
V69= Cnil; |
378 |
|
V70= Cnil; |
379 |
|
V71= Cnil; |
380 |
|
V72= Cnil; |
381 |
|
V73= Cnil; |
382 |
|
V74= Cnil; |
383 |
V75= Cnil; |
V75= Cnil; |
384 |
V76= Cnil; |
V76= Cnil; |
385 |
V77= Cnil; |
V77= Cnil; |
386 |
V78= Cnil; |
V78= Cnil; |
387 |
V79= Cnil; |
V79 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28])); |
388 |
V80= Cnil; |
V61= (VFUN_NARGS=1,(*(LnkLI18))(V79)); |
389 |
V81= Cnil; |
V62= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
390 |
V82= Cnil; |
(void)(((V61))->v.v_self[11]= ((V62))); |
391 |
V83= Cnil; |
V82= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V84= Cnil; |
|
|
V85= Cnil; |
|
|
V86= Cnil; |
|
|
V87= Cnil; |
|
|
V88= Cnil; |
|
|
V89= Cnil; |
|
|
V90= Cnil; |
|
|
V91= Cnil; |
|
|
V92= Cnil; |
|
|
V93 = CMPmake_fixnum((long)(*(LnkLI19))(VV[28])); |
|
|
V75= (VFUN_NARGS=1,(*(LnkLI18))(V93)); |
|
|
V76= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
|
|
(void)(((V75))->v.v_self[11]= ((V76))); |
|
|
V96= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
|
V97 = V76; |
|
|
V98 = VV[28]; |
|
392 |
(void)(( |
(void)(( |
393 |
V99 = V96, |
V83 = V82, |
394 |
(type_of(V99) == t_sfun ?(*((V99)->sfn.sfn_self)): |
(type_of(V83) == t_sfun ?(*((V83)->sfn.sfn_self)): |
395 |
(fcall.argd=2,type_of(V99)==t_vfun) ? |
(fcall.argd=2,type_of(V83)==t_vfun) ? |
396 |
(*((V99)->sfn.sfn_self)): |
(*((V83)->sfn.sfn_self)): |
397 |
(fcall.fun=(V99),fcalln))(V97,V98))); |
(fcall.fun=(V83),fcalln))(V62,VV[28]))); |
398 |
V100 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29])); |
V84 = CMPmake_fixnum((long)(*(LnkLI19))(VV[29])); |
399 |
V77= (VFUN_NARGS=1,(*(LnkLI18))(V100)); |
V63= (VFUN_NARGS=1,(*(LnkLI18))(V84)); |
400 |
V78= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
V64= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
401 |
(void)(((V77))->v.v_self[11]= ((V78))); |
(void)(((V63))->v.v_self[11]= ((V64))); |
402 |
V103= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V87= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V104 = V78; |
|
|
V105 = VV[29]; |
|
403 |
(void)(( |
(void)(( |
404 |
V106 = V103, |
V88 = V87, |
405 |
(type_of(V106) == t_sfun ?(*((V106)->sfn.sfn_self)): |
(type_of(V88) == t_sfun ?(*((V88)->sfn.sfn_self)): |
406 |
(fcall.argd=2,type_of(V106)==t_vfun) ? |
(fcall.argd=2,type_of(V88)==t_vfun) ? |
407 |
(*((V106)->sfn.sfn_self)): |
(*((V88)->sfn.sfn_self)): |
408 |
(fcall.fun=(V106),fcalln))(V104,V105))); |
(fcall.fun=(V88),fcalln))(V64,VV[29]))); |
409 |
V107 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30])); |
V89 = CMPmake_fixnum((long)(*(LnkLI19))(VV[30])); |
410 |
V79= (VFUN_NARGS=1,(*(LnkLI18))(V107)); |
V65= (VFUN_NARGS=1,(*(LnkLI18))(V89)); |
411 |
V80= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
V66= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
412 |
(void)(((V79))->v.v_self[11]= ((V80))); |
(void)(((V65))->v.v_self[11]= ((V66))); |
413 |
V110= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V92= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V111 = V80; |
|
|
V112 = VV[30]; |
|
414 |
(void)(( |
(void)(( |
415 |
V113 = V110, |
V93 = V92, |
416 |
(type_of(V113) == t_sfun ?(*((V113)->sfn.sfn_self)): |
(type_of(V93) == t_sfun ?(*((V93)->sfn.sfn_self)): |
417 |
(fcall.argd=2,type_of(V113)==t_vfun) ? |
(fcall.argd=2,type_of(V93)==t_vfun) ? |
418 |
(*((V113)->sfn.sfn_self)): |
(*((V93)->sfn.sfn_self)): |
419 |
(fcall.fun=(V113),fcalln))(V111,V112))); |
(fcall.fun=(V93),fcalln))(V66,VV[30]))); |
420 |
V114 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31])); |
V94 = CMPmake_fixnum((long)(*(LnkLI19))(VV[31])); |
421 |
V81= (VFUN_NARGS=1,(*(LnkLI18))(V114)); |
V67= (VFUN_NARGS=1,(*(LnkLI18))(V94)); |
422 |
V82= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
V68= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
423 |
(void)(((V81))->v.v_self[11]= ((V82))); |
(void)(((V67))->v.v_self[11]= ((V68))); |
424 |
V117= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V97= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V118 = V82; |
|
|
V119 = VV[31]; |
|
425 |
(void)(( |
(void)(( |
426 |
V120 = V117, |
V98 = V97, |
427 |
(type_of(V120) == t_sfun ?(*((V120)->sfn.sfn_self)): |
(type_of(V98) == t_sfun ?(*((V98)->sfn.sfn_self)): |
428 |
(fcall.argd=2,type_of(V120)==t_vfun) ? |
(fcall.argd=2,type_of(V98)==t_vfun) ? |
429 |
(*((V120)->sfn.sfn_self)): |
(*((V98)->sfn.sfn_self)): |
430 |
(fcall.fun=(V120),fcalln))(V118,V119))); |
(fcall.fun=(V98),fcalln))(V68,VV[31]))); |
431 |
V121 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32])); |
V99 = CMPmake_fixnum((long)(*(LnkLI19))(VV[32])); |
432 |
V83= (VFUN_NARGS=1,(*(LnkLI18))(V121)); |
V69= (VFUN_NARGS=1,(*(LnkLI18))(V99)); |
433 |
V84= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
V70= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
434 |
(void)(((V83))->v.v_self[11]= ((V84))); |
(void)(((V69))->v.v_self[11]= ((V70))); |
435 |
V124= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V102= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V125 = V84; |
|
|
V126 = VV[32]; |
|
436 |
(void)(( |
(void)(( |
437 |
V127 = V124, |
V103 = V102, |
438 |
(type_of(V127) == t_sfun ?(*((V127)->sfn.sfn_self)): |
(type_of(V103) == t_sfun ?(*((V103)->sfn.sfn_self)): |
439 |
(fcall.argd=2,type_of(V127)==t_vfun) ? |
(fcall.argd=2,type_of(V103)==t_vfun) ? |
440 |
(*((V127)->sfn.sfn_self)): |
(*((V103)->sfn.sfn_self)): |
441 |
(fcall.fun=(V127),fcalln))(V125,V126))); |
(fcall.fun=(V103),fcalln))(V70,VV[32]))); |
442 |
V128 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33])); |
V104 = CMPmake_fixnum((long)(*(LnkLI19))(VV[33])); |
443 |
V85= (VFUN_NARGS=1,(*(LnkLI18))(V128)); |
V71= (VFUN_NARGS=1,(*(LnkLI18))(V104)); |
444 |
V86= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
V72= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
445 |
(void)(((V85))->v.v_self[11]= ((V86))); |
(void)(((V71))->v.v_self[11]= ((V72))); |
446 |
V131= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V107= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V132 = V86; |
|
|
V133 = VV[33]; |
|
447 |
(void)(( |
(void)(( |
448 |
V134 = V131, |
V108 = V107, |
449 |
(type_of(V134) == t_sfun ?(*((V134)->sfn.sfn_self)): |
(type_of(V108) == t_sfun ?(*((V108)->sfn.sfn_self)): |
450 |
(fcall.argd=2,type_of(V134)==t_vfun) ? |
(fcall.argd=2,type_of(V108)==t_vfun) ? |
451 |
(*((V134)->sfn.sfn_self)): |
(*((V108)->sfn.sfn_self)): |
452 |
(fcall.fun=(V134),fcalln))(V132,V133))); |
(fcall.fun=(V108),fcalln))(V72,VV[33]))); |
453 |
V135 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34])); |
V109 = CMPmake_fixnum((long)(*(LnkLI19))(VV[34])); |
454 |
V87= (VFUN_NARGS=1,(*(LnkLI18))(V135)); |
V73= (VFUN_NARGS=1,(*(LnkLI18))(V109)); |
455 |
V88= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
V74= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
456 |
(void)(((V87))->v.v_self[11]= ((V88))); |
(void)(((V73))->v.v_self[11]= ((V74))); |
457 |
V138= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V112= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V139 = V88; |
|
|
V140 = VV[34]; |
|
458 |
(void)(( |
(void)(( |
459 |
V141 = V138, |
V113 = V112, |
460 |
(type_of(V141) == t_sfun ?(*((V141)->sfn.sfn_self)): |
(type_of(V113) == t_sfun ?(*((V113)->sfn.sfn_self)): |
461 |
(fcall.argd=2,type_of(V141)==t_vfun) ? |
(fcall.argd=2,type_of(V113)==t_vfun) ? |
462 |
(*((V141)->sfn.sfn_self)): |
(*((V113)->sfn.sfn_self)): |
463 |
(fcall.fun=(V141),fcalln))(V139,V140))); |
(fcall.fun=(V113),fcalln))(V74,VV[34]))); |
464 |
V142 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35])); |
V114 = CMPmake_fixnum((long)(*(LnkLI19))(VV[35])); |
465 |
V89= (VFUN_NARGS=1,(*(LnkLI18))(V142)); |
V75= (VFUN_NARGS=1,(*(LnkLI18))(V114)); |
466 |
V90= (VFUN_NARGS=1,(*(LnkLI21))((V75))); |
V76= (VFUN_NARGS=1,(*(LnkLI21))((V61))); |
467 |
(void)(((V89))->v.v_self[11]= ((V90))); |
(void)(((V75))->v.v_self[11]= ((V76))); |
468 |
V145= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V117= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V146 = V90; |
|
|
V147 = VV[35]; |
|
469 |
(void)(( |
(void)(( |
470 |
V148 = V145, |
V118 = V117, |
471 |
(type_of(V148) == t_sfun ?(*((V148)->sfn.sfn_self)): |
(type_of(V118) == t_sfun ?(*((V118)->sfn.sfn_self)): |
472 |
(fcall.argd=2,type_of(V148)==t_vfun) ? |
(fcall.argd=2,type_of(V118)==t_vfun) ? |
473 |
(*((V148)->sfn.sfn_self)): |
(*((V118)->sfn.sfn_self)): |
474 |
(fcall.fun=(V148),fcalln))(V146,V147))); |
(fcall.fun=(V118),fcalln))(V76,VV[35]))); |
475 |
V91= (VV[17]->s.s_dbind); |
V77= (VV[17]->s.s_dbind); |
476 |
V92= (VFUN_NARGS=1,(*(LnkLI21))((V77))); |
V78= (VFUN_NARGS=1,(*(LnkLI21))((V63))); |
477 |
(void)(((V91))->v.v_self[11]= ((V92))); |
(void)(((V77))->v.v_self[11]= ((V78))); |
478 |
V151= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V121= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V152 = V92; |
|
|
V153 = VV[16]; |
|
479 |
(void)(( |
(void)(( |
480 |
V154 = V151, |
V122 = V121, |
481 |
(type_of(V154) == t_sfun ?(*((V154)->sfn.sfn_self)): |
(type_of(V122) == t_sfun ?(*((V122)->sfn.sfn_self)): |
482 |
(fcall.argd=2,type_of(V154)==t_vfun) ? |
(fcall.argd=2,type_of(V122)==t_vfun) ? |
483 |
(*((V154)->sfn.sfn_self)): |
(*((V122)->sfn.sfn_self)): |
484 |
(fcall.fun=(V154),fcalln))(V152,V153))); |
(fcall.fun=(V122),fcalln))(V78,VV[16]))); |
485 |
{object V155; |
{object V123; |
486 |
object V156; |
object V124; |
487 |
V155= (VV[36]->s.s_dbind); |
V123= (VV[36]->s.s_dbind); |
488 |
V156= CMPcar((V155)); |
V124= CMPcar((V123)); |
489 |
goto T187; |
goto T187; |
490 |
T187:; |
T187:; |
491 |
if(!(((V155))==Cnil)){ |
if(!(((V123))==Cnil)){ |
492 |
goto T188;} |
goto T188;} |
493 |
goto T183; |
goto T183; |
494 |
goto T188; |
goto T188; |
495 |
T188:; |
T188:; |
496 |
{object V157; |
{object V125; |
497 |
object V158; |
object V126; |
498 |
object V159; |
object V127; |
499 |
object V160; |
object V128; |
500 |
V157= (*(LnkLI182))((V156)); |
V125= (*(LnkLI191))((V124)); |
501 |
V158= (*(LnkLI183))((V156)); |
V126= (*(LnkLI192))((V124)); |
502 |
{object V161= (V158); |
{object V130= V126; |
503 |
if((V161!= VV[30]))goto T196; |
if((V130!= VV[30]))goto T196; |
504 |
V159= (V79); |
V127= (V65); |
505 |
goto T195; |
goto T195; |
506 |
goto T196; |
goto T196; |
507 |
T196:; |
T196:; |
508 |
if((V161!= VV[28]))goto T197; |
if((V130!= VV[28]))goto T197; |
509 |
V159= (V75); |
V127= (V61); |
510 |
goto T195; |
goto T195; |
511 |
goto T197; |
goto T197; |
512 |
T197:; |
T197:; |
513 |
if((V161!= VV[29]))goto T198; |
if((V130!= VV[29]))goto T198; |
514 |
V159= (V77); |
V127= (V63); |
515 |
goto T195; |
goto T195; |
516 |
goto T198; |
goto T198; |
517 |
T198:; |
T198:; |
518 |
if((V161!= VV[31]))goto T199; |
if((V130!= VV[31]))goto T199; |
519 |
V159= (V81); |
V127= (V67); |
520 |
goto T195; |
goto T195; |
521 |
goto T199; |
goto T199; |
522 |
T199:; |
T199:; |
523 |
if((V161!= VV[32]))goto T200; |
if((V130!= VV[32]))goto T200; |
524 |
V159= (V83); |
V127= (V69); |
525 |
goto T195; |
goto T195; |
526 |
goto T200; |
goto T200; |
527 |
T200:; |
T200:; |
528 |
FEerror("The ECASE key value ~s is illegal.",1,V161); |
base[6]= VV[37]; |
529 |
V159= Cnil; |
base[7]= VV[38]; |
530 |
goto T195;} |
base[8]= VV[39]; |
531 |
|
base[9]= VV[40]; |
532 |
|
base[10]= V126; |
533 |
|
base[11]= VV[41]; |
534 |
|
base[12]= VV[42]; |
535 |
|
base[13]= VV[43]; |
536 |
|
base[14]= VV[44]; |
537 |
|
vs_top=(vs_base=base+6)+9; |
538 |
|
(void) (*Lnk193)(); |
539 |
|
vs_top=sup; |
540 |
|
V127= vs_base[0];} |
541 |
goto T195; |
goto T195; |
542 |
T195:;{object V162; |
T195:;{object V131; |
543 |
V162= (VFUN_NARGS=2,(*(LnkLI25))((V157),Cnil)); |
V131= (VFUN_NARGS=2,(*(LnkLI25))((V125),Cnil)); |
544 |
if(V162==Cnil)goto T202; |
if(V131==Cnil)goto T211; |
545 |
V160= V162; |
V128= V131; |
546 |
goto T201; |
goto T210; |
547 |
goto T202; |
goto T211; |
548 |
T202:;} |
T211:;} |
549 |
V160= (VFUN_NARGS=1,(*(LnkLI21))((V159))); |
V128= (VFUN_NARGS=1,(*(LnkLI21))((V127))); |
550 |
goto T201; |
goto T210; |
551 |
T201:; |
T210:; |
552 |
if(((V158))==(VV[28])){ |
if(((V126))==(VV[28])){ |
553 |
goto T205;} |
goto T214;} |
554 |
if(!(((V158))==(VV[29]))){ |
if(!(((V126))==(VV[29]))){ |
555 |
goto T204;} |
goto T213;} |
556 |
goto T205; |
goto T214; |
557 |
T205:; |
T214:; |
558 |
(void)((*(LnkLI184))((V157))); |
(void)((*(LnkLI194))((V125))); |
559 |
goto T204; |
goto T213; |
560 |
T204:; |
T213:; |
561 |
V165= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V134= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V166 = V160; |
|
|
V167 = V157; |
|
562 |
(void)(( |
(void)(( |
563 |
V168 = V165, |
V135 = V134, |
564 |
(type_of(V168) == t_sfun ?(*((V168)->sfn.sfn_self)): |
(type_of(V135) == t_sfun ?(*((V135)->sfn.sfn_self)): |
565 |
(fcall.argd=2,type_of(V168)==t_vfun) ? |
(fcall.argd=2,type_of(V135)==t_vfun) ? |
566 |
(*((V168)->sfn.sfn_self)): |
(*((V135)->sfn.sfn_self)): |
567 |
(fcall.fun=(V168),fcalln))(V166,V167)));} |
(fcall.fun=(V135),fcalln))(V128,V125)));} |
568 |
V155= CMPcdr((V155)); |
V123= CMPcdr((V123)); |
569 |
V156= CMPcar((V155)); |
V124= CMPcar((V123)); |
570 |
goto T187;} |
goto T187;} |
571 |
goto T183; |
goto T183; |
572 |
T183:; |
T183:; |
573 |
{object V169; |
{object V136; |
574 |
register object V170; |
register object V137; |
575 |
V169= (VV[36]->s.s_dbind); |
V136= (VV[36]->s.s_dbind); |
576 |
V170= CMPcar((V169)); |
V137= CMPcar((V136)); |
577 |
goto T219; |
goto T228; |
578 |
T219:; |
T228:; |
579 |
if(!(((V169))==Cnil)){ |
if(!(((V136))==Cnil)){ |
580 |
goto T220;} |
goto T229;} |
581 |
goto T215; |
goto T224; |
582 |
goto T220; |
goto T229; |
583 |
T220:; |
T229:; |
584 |
{register object V171; |
{register object V138; |
585 |
register object V172; |
register object V139; |
586 |
object V173; |
object V140; |
587 |
object V174; |
object V141; |
588 |
object V175; |
object V142; |
589 |
object V176; |
object V143; |
590 |
V171= (*(LnkLI182))((V170)); |
V138= (*(LnkLI191))((V137)); |
591 |
V172= (*(LnkLI183))((V170)); |
V139= (*(LnkLI192))((V137)); |
592 |
V173= (*(LnkLI185))((V170)); |
V140= (*(LnkLI195))((V137)); |
593 |
V174= (*(LnkLI186))((V170)); |
V141= (*(LnkLI196))((V137)); |
594 |
V175= (*(LnkLI187))((V170)); |
V142= (*(LnkLI197))((V137)); |
595 |
V176= (*(LnkLI188))((V170)); |
V143= (*(LnkLI198))((V137)); |
596 |
{object V177; |
{object V144; |
597 |
base[2]= (V176); |
base[2]= (V143); |
598 |
base[3]= VV[37]; |
base[3]= VV[45]; |
599 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
600 |
Lgetf(); |
Lgetf(); |
601 |
vs_top=sup; |
vs_top=sup; |
602 |
V177= vs_base[0]; |
V144= vs_base[0]; |
603 |
{register object V178; |
{register object V145; |
604 |
object V179; |
object V146; |
605 |
object V180; |
object V147; |
606 |
object V181; |
object V148; |
607 |
base[2]= (V171); |
base[2]= (V138); |
608 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
609 |
(void) (*Lnk189)(); |
(void) (*Lnk199)(); |
610 |
if(vs_base>=vs_top){vs_top=sup;goto T236;} |
if(vs_base>=vs_top){vs_top=sup;goto T245;} |
611 |
V178= vs_base[0]; |
V145= vs_base[0]; |
612 |
vs_base++; |
vs_base++; |
613 |
if(vs_base>=vs_top){vs_top=sup;goto T237;} |
if(vs_base>=vs_top){vs_top=sup;goto T246;} |
614 |
V179= vs_base[0]; |
V146= vs_base[0]; |
615 |
vs_base++; |
vs_base++; |
616 |
if(vs_base>=vs_top){vs_top=sup;goto T238;} |
if(vs_base>=vs_top){vs_top=sup;goto T247;} |
617 |
V180= vs_base[0]; |
V147= vs_base[0]; |
618 |
vs_base++; |
vs_base++; |
619 |
if(vs_base>=vs_top){vs_top=sup;goto T239;} |
if(vs_base>=vs_top){vs_top=sup;goto T248;} |
620 |
V181= vs_base[0]; |
V148= vs_base[0]; |
621 |
vs_top=sup; |
vs_top=sup; |
622 |
goto T240; |
goto T249; |
623 |
goto T236; |
goto T245; |
624 |
T236:; |
T245:; |
625 |
V178= Cnil; |
V145= Cnil; |
626 |
goto T237; |
goto T246; |
627 |
T237:; |
T246:; |
628 |
V179= Cnil; |
V146= Cnil; |
|
goto T238; |
|
|
T238:; |
|
|
V180= Cnil; |
|
|
goto T239; |
|
|
T239:; |
|
|
V181= Cnil; |
|
|
goto T240; |
|
|
T240:; |
|
|
{register object V182; |
|
|
register object V183; |
|
|
object V184; |
|
|
V182= (VFUN_NARGS=1,(*(LnkLI25))((V171))); |
|
|
if(!(((V182))==((V80)))){ |
|
|
goto T244;} |
|
|
V183= (V79); |
|
|
goto T242; |
|
|
goto T244; |
|
|
T244:; |
|
|
if(!(((V182))==((V76)))){ |
|
|
goto T247;} |
|
|
V183= (V75); |
|
|
goto T242; |
|
629 |
goto T247; |
goto T247; |
630 |
T247:; |
T247:; |
631 |
if(!(((V182))==((V78)))){ |
V147= Cnil; |
632 |
goto T250;} |
goto T248; |
633 |
V183= (V77); |
T248:; |
634 |
goto T242; |
V148= Cnil; |
635 |
goto T250; |
goto T249; |
636 |
T250:; |
T249:; |
637 |
if(!(((V182))==((V86)))){ |
{register object V149; |
638 |
|
register object V150; |
639 |
|
object V151; |
640 |
|
V149= (VFUN_NARGS=1,(*(LnkLI25))((V138))); |
641 |
|
if(!(((V149))==((V66)))){ |
642 |
goto T253;} |
goto T253;} |
643 |
V183= (V85); |
V150= (V65); |
644 |
goto T242; |
goto T251; |
645 |
goto T253; |
goto T253; |
646 |
T253:; |
T253:; |
647 |
if(!(((V182))==((V88)))){ |
if(!(((V149))==((V62)))){ |
648 |
goto T256;} |
goto T256;} |
649 |
V183= (V87); |
V150= (V61); |
650 |
goto T242; |
goto T251; |
651 |
goto T256; |
goto T256; |
652 |
T256:; |
T256:; |
653 |
if(!(((V182))==((V82)))){ |
if(!(((V149))==((V64)))){ |
654 |
goto T259;} |
goto T259;} |
655 |
V183= (V81); |
V150= (V63); |
656 |
goto T242; |
goto T251; |
657 |
goto T259; |
goto T259; |
658 |
T259:; |
T259:; |
659 |
if(!(((V182))==((V84)))){ |
if(!(((V149))==((V72)))){ |
660 |
goto T262;} |
goto T262;} |
661 |
V183= (V83); |
V150= (V71); |
662 |
goto T242; |
goto T251; |
663 |
goto T262; |
goto T262; |
664 |
T262:; |
T262:; |
665 |
if(!(((V182))==((V90)))){ |
if(!(((V149))==((V74)))){ |
666 |
goto T265;} |
goto T265;} |
667 |
V183= (V89); |
V150= (V73); |
668 |
goto T242; |
goto T251; |
669 |
goto T265; |
goto T265; |
670 |
T265:; |
T265:; |
671 |
if(!(((V182))==((V92)))){ |
if(!(((V149))==((V68)))){ |
672 |
goto T268;} |
goto T268;} |
673 |
V183= (V91); |
V150= (V67); |
674 |
goto T242; |
goto T251; |
675 |
goto T268; |
goto T268; |
676 |
T268:; |
T268:; |
677 |
V185 = CMPmake_fixnum((long)length((V178))); |
if(!(((V149))==((V70)))){ |
|
V183= (VFUN_NARGS=2,(*(LnkLI18))(V185,(V182))); |
|
|
goto T242; |
|
|
T242:; |
|
|
V184= Cnil; |
|
|
if(!(((V171))==(Ct))){ |
|
678 |
goto T271;} |
goto T271;} |
679 |
(VV[38]->s.s_dbind)= (V183); |
V150= (V69); |
680 |
|
goto T251; |
681 |
goto T271; |
goto T271; |
682 |
T271:; |
T271:; |
683 |
|
if(!(((V149))==((V76)))){ |
684 |
|
goto T274;} |
685 |
|
V150= (V75); |
686 |
|
goto T251; |
687 |
|
goto T274; |
688 |
|
T274:; |
689 |
|
if(!(((V149))==((V78)))){ |
690 |
|
goto T277;} |
691 |
|
V150= (V77); |
692 |
|
goto T251; |
693 |
|
goto T277; |
694 |
|
T277:; |
695 |
|
V152 = CMPmake_fixnum((long)length((V145))); |
696 |
|
V150= (VFUN_NARGS=2,(*(LnkLI18))(V152,(V149))); |
697 |
|
goto T251; |
698 |
|
T251:; |
699 |
|
V151= Cnil; |
700 |
|
if(!(((V138))==(Ct))){ |
701 |
|
goto T280;} |
702 |
|
(VV[46]->s.s_dbind)= (V150); |
703 |
|
goto T280; |
704 |
|
T280:; |
705 |
base[6]= Cnil; |
base[6]= Cnil; |
706 |
base[7]= VV[39]; |
base[7]= VV[47]; |
707 |
base[8]= symbol_name((V171)); |
base[8]= symbol_name((V138)); |
708 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
709 |
Lformat(); |
Lformat(); |
710 |
vs_top=sup; |
vs_top=sup; |
714 |
Lintern(); |
Lintern(); |
715 |
vs_top=sup; |
vs_top=sup; |
716 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
717 |
base[5]= (V182); |
base[5]= (V149); |
718 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
719 |
Lset(); |
Lset(); |
720 |
vs_top=sup; |
vs_top=sup; |
721 |
{register object V186; |
{register object V153; |
722 |
object V187; |
object V154; |
723 |
V186= (V178); |
V153= (V145); |
724 |
V187= CMPcar((V186)); |
V154= CMPcar((V153)); |
725 |
goto T287; |
goto T296; |
726 |
T287:; |
T296:; |
727 |
if(!(((V186))==Cnil)){ |
if(!(((V153))==Cnil)){ |
728 |
goto T288;} |
goto T297;} |
729 |
goto T283; |
goto T292; |
730 |
goto T288; |
goto T297; |
731 |
T288:; |
T297:; |
732 |
base[5]= (V187); |
base[5]= (V154); |
733 |
base[6]= VV[40]; |
base[6]= VV[48]; |
734 |
base[7]= VV[41]; |
base[7]= VV[49]; |
735 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
736 |
Lgetf(); |
Lgetf(); |
737 |
vs_top=sup; |
vs_top=sup; |
738 |
V188= vs_base[0]; |
V155= vs_base[0]; |
739 |
if((V188)==(VV[41])){ |
if((V155)==(VV[49])){ |
740 |
goto T292;} |
goto T301;} |
741 |
base[5]= VV[42]; |
base[5]= VV[50]; |
742 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
743 |
Lerror(); |
Lerror(); |
744 |
vs_top=sup; |
vs_top=sup; |
745 |
|
goto T301; |
746 |
|
T301:; |
747 |
|
V153= CMPcdr((V153)); |
748 |
|
V154= CMPcar((V153)); |
749 |
|
goto T296;} |
750 |
goto T292; |
goto T292; |
751 |
T292:; |
T292:; |
752 |
V186= CMPcdr((V186)); |
base[5]=VV[200]->s.s_gfdef; |
753 |
V187= CMPcar((V186)); |
{object V157; |
754 |
goto T287;} |
object V158= (V145); |
755 |
goto T283; |
if(V158==Cnil){ |
756 |
T283:; |
V156= Cnil; |
757 |
V189 = (V183); |
goto T316;} |
758 |
base[5]=VV[190]->s.s_gfdef; |
base[4]=V157=MMcons(Cnil,Cnil); |
759 |
{object V191; |
goto T317; |
760 |
object V192= (V178); |
T317:; |
761 |
if(V192==Cnil){ |
base[6]= (V158->c.c_car); |
|
V190= Cnil; |
|
|
goto T307;} |
|
|
base[4]=V191=MMcons(Cnil,Cnil); |
|
|
goto T308; |
|
|
T308:; |
|
|
base[6]= (V192->c.c_car); |
|
762 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
763 |
(void) (*Lnk190)(); |
(void) (*Lnk200)(); |
764 |
vs_top=sup; |
vs_top=sup; |
765 |
(V191->c.c_car)= vs_base[0]; |
(V157->c.c_car)= vs_base[0]; |
766 |
if((V192=MMcdr(V192))==Cnil){ |
if((V158=MMcdr(V158))==Cnil){ |
767 |
V190= base[4]; |
V156= base[4]; |
768 |
goto T307;} |
goto T316;} |
769 |
V191=MMcdr(V191)=MMcons(Cnil,Cnil); |
V157=MMcdr(V157)=MMcons(Cnil,Cnil); |
770 |
goto T308;} |
goto T317;} |
771 |
goto T307; |
goto T316; |
772 |
T307:; |
T316:; |
773 |
(void)((V189)->v.v_self[9]= (V190)); |
(void)(((V150))->v.v_self[9]= (V156)); |
774 |
(void)(((V183))->v.v_self[10]= (Cnil)); |
(void)(((V150))->v.v_self[10]= (Cnil)); |
775 |
if(!(((V172))==(VV[29]))){ |
if(!(((V139))==(VV[29]))){ |
776 |
goto T314;} |
goto T323;} |
777 |
V184= (VFUN_NARGS=1,(*(LnkLI191))((V183))); |
V151= (VFUN_NARGS=1,(*(LnkLI201))((V150))); |
|
goto T312; |
|
|
goto T314; |
|
|
T314:; |
|
|
V184= (VFUN_NARGS=1,(*(LnkLI21))((V183))); |
|
|
goto T312; |
|
|
T312:; |
|
|
V175= (*(LnkLI192))((V171),(V182),(V175),(V85),Cnil); |
|
|
V178= (*(LnkLI192))((V171),(V182),(V178),(V87),Ct); |
|
|
{object V193= (V172); |
|
|
if((V193!= VV[28]) |
|
|
&& (V193!= VV[29]))goto T320; |
|
|
(void)((VFUN_NARGS=14,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184),(V175),(V178),(V177),(V180)))); |
|
|
goto T224; |
|
|
goto T320; |
|
|
T320:; |
|
|
if((V193!= VV[31]))goto T321; |
|
|
(void)((VFUN_NARGS=10,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184)))); |
|
|
goto T224; |
|
778 |
goto T321; |
goto T321; |
|
T321:; |
|
|
if((V193!= VV[30]))goto T322; |
|
|
(void)((VFUN_NARGS=10,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183),(V184)))); |
|
|
goto T224; |
|
|
goto T322; |
|
|
T322:; |
|
|
if((V193!= VV[32]))goto T323; |
|
|
(void)((VFUN_NARGS=9,(*(LnkLI193))((V172),(V182),(V171),(V89),(V173),(V174),(V181),(V179),(V183)))); |
|
|
goto T224; |
|
779 |
goto T323; |
goto T323; |
780 |
T323:;}}}}} |
T323:; |
781 |
|
V151= (VFUN_NARGS=1,(*(LnkLI21))((V150))); |
782 |
|
goto T321; |
783 |
|
T321:; |
784 |
|
V142= (*(LnkLI202))((V138),(V149),(V142),(V71),Cnil); |
785 |
|
V145= (*(LnkLI202))((V138),(V149),(V145),(V73),Ct); |
786 |
|
{object V159= (V139); |
787 |
|
if((V159!= VV[28]) |
788 |
|
&& (V159!= VV[29]))goto T329; |
789 |
|
(void)((VFUN_NARGS=14,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151),(V142),(V145),(V144),(V147)))); |
790 |
|
goto T233; |
791 |
|
goto T329; |
792 |
|
T329:; |
793 |
|
if((V159!= VV[31]))goto T330; |
794 |
|
(void)((VFUN_NARGS=10,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151)))); |
795 |
|
goto T233; |
796 |
|
goto T330; |
797 |
|
T330:; |
798 |
|
if((V159!= VV[30]))goto T331; |
799 |
|
(void)((VFUN_NARGS=10,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150),(V151)))); |
800 |
|
goto T233; |
801 |
|
goto T331; |
802 |
|
T331:; |
803 |
|
if((V159!= VV[32]))goto T332; |
804 |
|
(void)((VFUN_NARGS=9,(*(LnkLI203))((V139),(V149),(V138),(V75),(V140),(V141),(V148),(V146),(V150)))); |
805 |
|
goto T233; |
806 |
|
goto T332; |
807 |
|
T332:;}}}}} |
808 |
|
goto T233; |
809 |
|
T233:; |
810 |
|
V136= CMPcdr((V136)); |
811 |
|
V137= CMPcar((V136)); |
812 |
|
goto T228;} |
813 |
goto T224; |
goto T224; |
814 |
T224:; |
T224:; |
815 |
V169= CMPcdr((V169)); |
{object V160; |
816 |
V170= CMPcar((V169)); |
object V161; |
817 |
goto T219;} |
V160= (VFUN_NARGS=1,(*(LnkLI25))(VV[51])); |
818 |
goto T215; |
if(type_of(V160)==t_structure){ |
819 |
T215:; |
goto T344;} |
820 |
{object V194; |
goto T342; |
821 |
object V195; |
goto T344; |
822 |
V194= (VFUN_NARGS=1,(*(LnkLI25))(VV[43])); |
T344:; |
823 |
if(type_of(V194)==t_structure){ |
if(!(((V160)->str.str_def)==(VV[52]))){ |
824 |
goto T335;} |
goto T342;} |
825 |
goto T333; |
V162= STREF(object,(V160),4); |
826 |
goto T335; |
goto T340; |
827 |
T335:; |
goto T342; |
828 |
if(!(((V194)->str.str_def)==(VV[44]))){ |
T342:;{object V164; |
829 |
goto T333;} |
V164= (VV[53]->s.s_dbind); |
|
V196= STREF(object,(V194),4); |
|
|
goto T331; |
|
|
goto T333; |
|
|
T333:;{object V198; |
|
|
V198= (VV[45]->s.s_dbind); |
|
830 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
831 |
base[5]= (V194); |
base[5]= (V160); |
832 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
833 |
(void) (*Lnk194)(); |
(void) (*Lnk204)(); |
834 |
vs_top=sup; |
vs_top=sup; |
835 |
V199= vs_base[0]; |
V165= vs_base[0]; |
836 |
if(!((V198)==(CMPcar(V199)))){ |
if(!((V164)==(CMPcar(V165)))){ |
837 |
goto T338;}} |
goto T347;}} |
838 |
V196= CMPcar(((V194))->cc.cc_turbo[12]); |
V162= CMPcar(((V160))->cc.cc_turbo[12]); |
839 |
goto T331; |
goto T340; |
840 |
goto T338; |
goto T347; |
841 |
T338:; |
T347:; |
842 |
base[4]= VV[46]; |
base[4]= VV[54]; |
843 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
844 |
Lerror(); |
Lerror(); |
845 |
vs_top=sup; |
vs_top=sup; |
846 |
V196= vs_base[0]; |
V162= vs_base[0]; |
847 |
goto T331; |
goto T340; |
848 |
T331:; |
T340:; |
849 |
V200= (*(LnkLI195))(VV[28],VV[47]); |
V166= (*(LnkLI205))(VV[28],VV[55]); |
850 |
V195= (V196)->v.v_self[fix(/* INLINE-ARGS */V200)]; |
V161= (V162)->v.v_self[fix(/* INLINE-ARGS */V166)]; |
851 |
base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V195))); |
base[3]= (VFUN_NARGS=1,(*(LnkLI21))((V161))); |
852 |
base[4]= VV[48]; |
base[4]= VV[56]; |
853 |
vs_base=vs_top; |
vs_base=vs_top; |
854 |
(void) (*Lnk196)(); |
(void) (*Lnk206)(); |
855 |
vs_top=sup; |
vs_top=sup; |
856 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
857 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
858 |
L7(base); |
L7(base); |
859 |
vs_top=sup; |
vs_top=sup; |
860 |
base[4]= VV[49]; |
base[4]= VV[57]; |
861 |
base[5]= VV[50]; |
base[5]= VV[58]; |
862 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
863 |
L7(base); |
L7(base); |
864 |
vs_top=sup; |
vs_top=sup; |
865 |
base[4]= VV[51]; |
base[4]= VV[59]; |
866 |
base[5]= VV[52]; |
base[5]= VV[60]; |
867 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
868 |
L7(base); |
L7(base); |
869 |
vs_top=sup; |
vs_top=sup; |
870 |
base[4]= VV[53]; |
base[4]= VV[61]; |
871 |
base[5]= Cnil; |
base[5]= Cnil; |
872 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
873 |
L7(base); |
L7(base); |
874 |
vs_top=sup; |
vs_top=sup; |
875 |
(VV[54]->s.s_dbind)= base[3]; |
(VV[62]->s.s_dbind)= base[3]; |
876 |
{object V201 = (VV[54]->s.s_dbind); |
{object V167 = (VV[62]->s.s_dbind); |
877 |
bds_unwind1; |
bds_unwind1; |
878 |
VMR6(V201)}}} |
VMR6(V167)}}} |
879 |
base[0]=base[0]; |
base[0]=base[0]; |
880 |
return Cnil; |
return Cnil; |
881 |
} |
} |
882 |
/* local entry for function BOOTSTRAP-INITIALIZE-CLASS */ |
/* local entry for function BOOTSTRAP-INITIALIZE-CLASS */ |
883 |
|
|
884 |
static object LI8(object V210,object V209,object V208,object V207,object V206,object V205,object V204,object V203,object V202,object first,...) |
static object LI8(object V176,object V175,object V174,object V173,object V172,object V171,object V170,object V169,object V168,object first,...) |
885 |
{ |
{ |
886 |
va_list ap; |
va_list ap; |
887 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
int narg = VFUN_NARGS; VMB7 VMS7 VMV7 |
888 |
{register object V211; |
{register object V177; |
889 |
object V212; |
object V178; |
890 |
object V213; |
object V179; |
891 |
object V214; |
object V180; |
892 |
object V215; |
object V181; |
893 |
object V216; |
register object V182; |
894 |
object V217; |
register object V183; |
895 |
object V218; |
object V184; |
896 |
object V219; |
object V185; |
897 |
object V220; |
object V186; |
898 |
object V221; |
register object V187; |
899 |
object V222; |
register object V188; |
900 |
va_start(ap,first); |
va_start(ap,first); |
901 |
if(narg <9) too_few_arguments(); |
if(narg <9) too_few_arguments(); |
902 |
base[0]= V210; |
base[0]= V176; |
903 |
base[1]= V209; |
base[1]= V175; |
904 |
V211= V208; |
V177= V174; |
905 |
V212= V207; |
V178= V173; |
906 |
V213= V206; |
V179= V172; |
907 |
V214= V205; |
V180= V171; |
908 |
V215= V204; |
V181= V170; |
909 |
V216= V203; |
V182= V169; |
910 |
V217= V202; |
V183= V168; |
911 |
narg = narg - 9; |
narg = narg - 9; |
912 |
if (narg <= 0) goto T358; |
if (narg <= 0) goto T367; |
913 |
else { |
else { |
914 |
V218= first;} |
V184= first;} |
915 |
if (--narg <= 0) goto T359; |
if (--narg <= 0) goto T368; |
916 |
else { |
else { |
917 |
V219= va_arg(ap,object);} |
V185= va_arg(ap,object);} |
918 |
if (--narg <= 0) goto T360; |
if (--narg <= 0) goto T369; |
919 |
else { |
else { |
920 |
V220= va_arg(ap,object);} |
V186= va_arg(ap,object);} |
921 |
if (--narg <= 0) goto T361; |
if (--narg <= 0) goto T370; |
922 |
else { |
else { |
923 |
V221= va_arg(ap,object);} |
V187= va_arg(ap,object);} |
924 |
if (--narg <= 0) goto T362; |
if (--narg <= 0) goto T371; |
925 |
else { |
else { |
926 |
V222= va_arg(ap,object);} |
V188= va_arg(ap,object);} |
927 |
--narg; goto T363; |
--narg; goto T372; |
928 |
goto T358; |
goto T367; |
929 |
T358:; |
T367:; |
930 |
V218= Cnil; |
V184= Cnil; |
931 |
goto T359; |
goto T368; |
932 |
T359:; |
T368:; |
933 |
V219= Cnil; |
V185= Cnil; |
934 |
goto T360; |
goto T369; |
935 |
T360:; |
T369:; |
936 |
V220= Cnil; |
V186= Cnil; |
937 |
goto T361; |
goto T370; |
938 |
T361:; |
T370:; |
939 |
V221= Cnil; |
V187= Cnil; |
940 |
goto T362; |
goto T371; |
941 |
T362:; |
T371:; |
942 |
V222= Cnil; |
V188= Cnil; |
943 |
goto T363; |
goto T372; |
944 |
T363:; |
T372:; |
945 |
base[14]= VV[55]; |
base[14]= VV[63]; |
946 |
base[15]= (V211); |
base[15]= (V177); |
947 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
948 |
L10(base); |
L10(base); |
949 |
vs_top=sup; |
vs_top=sup; |
950 |
base[14]= VV[48]; |
base[14]= VV[56]; |
951 |
base[15]= (V213); |
base[15]= (V179); |
952 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
953 |
L10(base); |
L10(base); |
954 |
vs_top=sup; |
vs_top=sup; |
955 |
base[14]= VV[49]; |
base[14]= VV[57]; |
956 |
V223 = base[1]; |
V189= (VFUN_NARGS=1,(*(LnkLI25))(Ct)); |
957 |
V224= (VFUN_NARGS=1,(*(LnkLI25))(Ct)); |
if(!((base[1])==(/* INLINE-ARGS */V189))){ |
958 |
if(!((V223)==(/* INLINE-ARGS */V224))){ |
goto T388;} |
|
goto T379;} |
|
959 |
base[15]= Ct; |
base[15]= Ct; |
960 |
goto T377; |
goto T386; |
961 |
goto T379; |
goto T388; |
962 |
T379:; |
T388:; |
963 |
base[15]= list(2,VV[26],base[1]); |
base[15]= list(2,VV[26],base[1]); |
964 |
goto T377; |
goto T386; |
965 |
T377:; |
T386:; |
966 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
967 |
L10(base); |
L10(base); |
968 |
vs_top=sup; |
vs_top=sup; |
969 |
base[14]= VV[35]; |
base[14]= VV[35]; |
970 |
{object V225; |
{object V190; |
971 |
V225= (VFUN_NARGS=1,(*(LnkLI21))((V212))); |
V190= (VFUN_NARGS=1,(*(LnkLI21))((V178))); |
972 |
V226= list(2,VV[56],base[1]); |
V191= list(2,VV[64],base[1]); |
973 |
(void)((*(LnkLI197))(VV[35],(V225),VV[49],/* INLINE-ARGS */V226)); |
(void)((*(LnkLI207))(VV[35],(V190),VV[57],/* INLINE-ARGS */V191)); |
974 |
(void)((*(LnkLI197))(VV[35],(V225),VV[57],base[1])); |
(void)((*(LnkLI207))(VV[35],(V190),VV[65],base[1])); |
975 |
base[15]= (V225);} |
base[15]= (V190);} |
976 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
977 |
L10(base); |
L10(base); |
978 |
vs_top=sup; |
vs_top=sup; |
979 |
base[14]= VV[58]; |
base[14]= VV[66]; |
980 |
base[16]= (V216); |
base[16]= (V182); |
981 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
982 |
L9(base); |
L9(base); |
983 |
vs_top=sup; |
vs_top=sup; |
985 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
986 |
L10(base); |
L10(base); |
987 |
vs_top=sup; |
vs_top=sup; |
988 |
base[14]= VV[59]; |
base[14]= VV[67]; |
989 |
base[16]= CMPcdr((V216)); |
base[16]= CMPcdr((V182)); |
990 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
991 |
L9(base); |
L9(base); |
992 |
vs_top=sup; |
vs_top=sup; |
994 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
995 |
L10(base); |
L10(base); |
996 |
vs_top=sup; |
vs_top=sup; |
997 |
base[14]= VV[60]; |
base[14]= VV[68]; |
998 |
base[15]= Cnil; |
base[15]= Cnil; |
999 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1000 |
L10(base); |
L10(base); |
1001 |
vs_top=sup; |
vs_top=sup; |
1002 |
base[14]= VV[61]; |
base[14]= VV[69]; |
1003 |
base[16]= (V214); |
base[16]= (V180); |
1004 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1005 |
L9(base); |
L9(base); |
1006 |
vs_top=sup; |
vs_top=sup; |
1008 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1009 |
L10(base); |
L10(base); |
1010 |
vs_top=sup; |
vs_top=sup; |
1011 |
base[14]= VV[62]; |
base[14]= VV[70]; |
1012 |
base[16]= (V215); |
base[16]= (V181); |
1013 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1014 |
L9(base); |
L9(base); |
1015 |
vs_top=sup; |
vs_top=sup; |
1017 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1018 |
L10(base); |
L10(base); |
1019 |
vs_top=sup; |
vs_top=sup; |
1020 |
base[14]= VV[63]; |
base[14]= VV[71]; |
1021 |
base[15]= make_cons(Cnil,Cnil); |
base[15]= make_cons(Cnil,Cnil); |
1022 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1023 |
L10(base); |
L10(base); |
1024 |
vs_top=sup; |
vs_top=sup; |
1025 |
base[14]= VV[47]; |
base[14]= VV[55]; |
1026 |
base[15]= (V217); |
base[15]= (V183); |
1027 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1028 |
L10(base); |
L10(base); |
1029 |
vs_top=sup; |
vs_top=sup; |
1030 |
base[14]= VV[64];{object V227; |
base[14]= VV[72];{object V192; |
1031 |
{register object x= (V211),V229= (VV[65]->s.s_dbind); |
{register object x= (V177),V194= (VV[73]->s.s_dbind); |
1032 |
while(V229!=Cnil) |
while(V194!=Cnil) |
1033 |
if(eql(x,V229->c.c_car->c.c_car) &&V229->c.c_car != Cnil){ |
if(eql(x,V194->c.c_car->c.c_car) &&V194->c.c_car != Cnil){ |
1034 |
V228= (V229->c.c_car); |
V193= (V194->c.c_car); |
1035 |
goto T417; |
goto T426; |
1036 |
}else V229=V229->c.c_cdr; |
}else V194=V194->c.c_cdr; |
1037 |
V228= Cnil;} |
V193= Cnil;} |
1038 |
goto T417; |
goto T426; |
1039 |
T417:; |
T426:; |
1040 |
V227= CMPcadr(V228); |
V192= CMPcadr(V193); |
1041 |
if(V227==Cnil)goto T415; |
if(V192==Cnil)goto T424; |
1042 |
base[15]= V227; |
base[15]= V192; |
1043 |
goto T414; |
goto T423; |
1044 |
goto T415; |
goto T424; |
1045 |
T415:;} |
T424:;} |
1046 |
base[16]= (V211); |
base[16]= (V177); |
1047 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1048 |
(void) (*Lnk198)(); |
(void) (*Lnk208)(); |
1049 |
vs_top=sup; |
vs_top=sup; |
1050 |
base[15]= vs_base[0]; |
base[15]= vs_base[0]; |
1051 |
goto T414; |
goto T423; |
1052 |
T414:; |
T423:; |
1053 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1054 |
L10(base); |
L10(base); |
1055 |
vs_top=sup; |
vs_top=sup; |
1056 |
base[14]= VV[66]; |
base[14]= VV[74]; |
1057 |
if((V221)==Cnil){ |
if((V187)==Cnil){ |
1058 |
V230= Cnil; |
V195= Cnil; |
1059 |
goto T422;} |
goto T431;} |
1060 |
V230= list(2,VV[67],(V221)); |
V195= list(2,VV[75],(V187)); |
1061 |
goto T422; |
goto T431; |
1062 |
T422:; |
T431:; |
1063 |
if((V222)==Cnil){ |
if((V188)==Cnil){ |
1064 |
V231= Cnil; |
V196= Cnil; |
1065 |
goto T423;} |
goto T432;} |
1066 |
V231= list(2,VV[68],(V222)); |
V196= list(2,VV[76],(V188)); |
1067 |
goto T423; |
goto T432; |
1068 |
T423:; |
T432:; |
1069 |
base[15]= append(V230,V231); |
base[15]= append(V195,V196); |
1070 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1071 |
L10(base); |
L10(base); |
1072 |
vs_top=sup; |
vs_top=sup; |
1073 |
{register object x= base[0],V232= VV[69]; |
{register object x= base[0],V197= VV[77]; |
1074 |
while(V232!=Cnil) |
while(V197!=Cnil) |
1075 |
if(x==(V232->c.c_car)){ |
if(x==(V197->c.c_car)){ |
1076 |
goto T426; |
goto T435; |
1077 |
}else V232=V232->c.c_cdr; |
}else V197=V197->c.c_cdr; |
1078 |
goto T424;} |
goto T433;} |
1079 |
goto T426; |
goto T435; |
1080 |
T426:; |
T435:; |
1081 |
base[14]= VV[70]; |
base[14]= VV[78]; |
1082 |
base[15]= (V219); |
base[15]= (V185); |
1083 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1084 |
L10(base); |
L10(base); |
1085 |
vs_top=sup; |
vs_top=sup; |
1086 |
base[14]= VV[71]; |
base[14]= VV[79]; |
1087 |
base[15]= (V220); |
base[15]= (V186); |
1088 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1089 |
L10(base); |
L10(base); |
1090 |
vs_top=sup; |
vs_top=sup; |
1091 |
base[14]= VV[72]; |
base[14]= VV[80]; |
1092 |
base[15]= Cnil; |
base[15]= Cnil; |
1093 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1094 |
L10(base); |
L10(base); |
1095 |
vs_top=sup; |
vs_top=sup; |
1096 |
goto T424; |
goto T433; |
1097 |
T424:; |
T433:; |
1098 |
if(!((base[0])==(VV[32]))){ |
if(!((base[0])==(VV[32]))){ |
1099 |
goto T437;} |
goto T446;} |
1100 |
base[14]= VV[64];{object V234; |
base[14]= VV[72];{object V199; |
1101 |
{register object x= (V211),V236= (VV[65]->s.s_dbind); |
{register object x= (V177),V201= (VV[73]->s.s_dbind); |
1102 |
while(V236!=Cnil) |
while(V201!=Cnil) |
1103 |
if(eql(x,V236->c.c_car->c.c_car) &&V236->c.c_car != Cnil){ |
if(eql(x,V201->c.c_car->c.c_car) &&V201->c.c_car != Cnil){ |
1104 |
V235= (V236->c.c_car); |
V200= (V201->c.c_car); |
1105 |
goto T444; |
goto T453; |
1106 |
}else V236=V236->c.c_cdr; |
}else V201=V201->c.c_cdr; |
1107 |
V235= Cnil;} |
V200= Cnil;} |
1108 |
goto T444; |
goto T453; |
1109 |
T444:; |
T453:; |
1110 |
V234= CMPcadr(V235); |
V199= CMPcadr(V200); |
1111 |
if(V234==Cnil)goto T442; |
if(V199==Cnil)goto T451; |
1112 |
base[15]= V234; |
base[15]= V199; |
1113 |
goto T441; |
goto T450; |
1114 |
goto T442; |
goto T451; |
1115 |
T442:;} |
T451:;} |
1116 |
base[16]= (V211); |
base[16]= (V177); |
1117 |
vs_top=(vs_base=base+16)+1; |
vs_top=(vs_base=base+16)+1; |
1118 |
(void) (*Lnk198)(); |
(void) (*Lnk208)(); |
1119 |
vs_top=sup; |
vs_top=sup; |
1120 |
base[15]= vs_base[0]; |
base[15]= vs_base[0]; |
1121 |
goto T441; |
goto T450; |
1122 |
T441:; |
T450:; |
1123 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1124 |
L10(base); |
L10(base); |
1125 |
vs_top=sup; |
vs_top=sup; |
1126 |
base[14]= VV[74]; |
base[14]= VV[82]; |
1127 |
base[15]= list(2,VV[75],list(2,VV[76],list(2,VV[77],VV[73]))); |
base[15]= list(2,VV[83],list(2,VV[84],list(2,VV[85],VV[81]))); |
1128 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1129 |
L10(base); |
L10(base); |
1130 |
vs_top=sup; |
vs_top=sup; |
1131 |
base[14]= VV[78]; |
base[14]= VV[86]; |
1132 |
base[15]= VV[73]; |
base[15]= VV[81]; |
1133 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1134 |
L10(base); |
L10(base); |
1135 |
vs_top=sup; |
vs_top=sup; |
1136 |
base[14]= VV[79]; |
base[14]= VV[87]; |
1137 |
base[15]= Ct; |
base[15]= Ct; |
1138 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1139 |
L10(base); |
L10(base); |
1140 |
vs_top=sup; |
vs_top=sup; |
1141 |
base[14]= VV[66]; |
base[14]= VV[74]; |
1142 |
base[15]= Cnil; |
base[15]= Cnil; |
1143 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1144 |
L10(base); |
L10(base); |
1145 |
vs_top=sup; |
vs_top=sup; |
1146 |
base[14]= VV[80]; |
base[14]= VV[88]; |
1147 |
vs_base=vs_top; |
vs_base=vs_top; |
1148 |
{object _funobj = VV[73];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = VV[81];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1149 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1150 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1151 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1154 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1155 |
L10(base); |
L10(base); |
1156 |
vs_top=sup; |
vs_top=sup; |
1157 |
goto T435; |
goto T444; |
1158 |
goto T437; |
goto T446; |
1159 |
T437:; |
T446:; |
1160 |
base[14]= VV[80]; |
base[14]= VV[88]; |
1161 |
if((V218)!=Cnil){ |
if((V184)!=Cnil){ |
1162 |
base[15]= (V218); |
base[15]= (V184); |
1163 |
goto T461;} |
goto T470;} |
1164 |
base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V217))); |
base[15]= (VFUN_NARGS=1,(*(LnkLI21))((V183))); |
1165 |
goto T461; |
goto T470; |
1166 |
T461:; |
T470:; |
1167 |
vs_top=(vs_base=base+14)+2; |
vs_top=(vs_base=base+14)+2; |
1168 |
L10(base); |
L10(base); |
1169 |
vs_top=sup; |
vs_top=sup; |
1170 |
goto T435; |
goto T444; |
1171 |
T435:; |
T444:; |
1172 |
{object V237 = base[1]; |
{object V202 = base[1]; |
1173 |
VMR7(V237)} |
VMR7(V202)} |
1174 |
va_end(ap); |
va_end(ap); |
1175 |
base[0]=base[0]; |
base[0]=base[0]; |
1176 |
return Cnil;} |
return Cnil;} |
1177 |
} |
} |
1178 |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
1179 |
|
|
1180 |
static object LI11(V243,V244,V245,V246,V247) |
static object LI11(V208,V209,V210,V211,V212) |
1181 |
|
|
1182 |
object V243;object V244;object V245;object V246;object V247; |
object V208;object V209;object V210;object V211;object V212; |
1183 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
1184 |
goto TTL; |
goto TTL; |
1185 |
TTL:; |
TTL:; |
1186 |
{object V248; |
{object V213; |
1187 |
V248= small_fixnum(-1); |
V213= small_fixnum(-1); |
1188 |
{object V249; |
{object V214; |
1189 |
object V250= (V245); |
object V215= (V210); |
1190 |
if(V250==Cnil){ |
if(V215==Cnil){ |
1191 |
{object V251 = Cnil; |
{object V216 = Cnil; |
1192 |
VMR8(V251)}} |
VMR8(V216)}} |
1193 |
base[0]=V249=MMcons(Cnil,Cnil); |
base[0]=V214=MMcons(Cnil,Cnil); |
1194 |
goto T462; |
goto T471; |
1195 |
T462:; |
T471:; |
1196 |
V248= number_plus((V248),small_fixnum(1)); |
V213= number_plus((V213),small_fixnum(1)); |
1197 |
(V249->c.c_car)= (*(LnkLI199))((V243),(V244),(V250->c.c_car),(V246),(V247),(V248)); |
(V214->c.c_car)= (*(LnkLI209))((V208),(V209),(V215->c.c_car),(V211),(V212),(V213)); |
1198 |
if((V250=MMcdr(V250))==Cnil){ |
if((V215=MMcdr(V215))==Cnil){ |
1199 |
{object V253 = base[0]; |
{object V218 = base[0]; |
1200 |
VMR8(V253)}} |
VMR8(V218)}} |
1201 |
V249=MMcdr(V249)=MMcons(Cnil,Cnil); |
V214=MMcdr(V214)=MMcons(Cnil,Cnil); |
1202 |
goto T462;}} |
goto T471;}} |
1203 |
base[0]=base[0]; |
base[0]=base[0]; |
1204 |
return Cnil; |
return Cnil; |
1205 |
} |
} |
1206 |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
/* local entry for function BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
1207 |
|
|
1208 |
static object LI15(V260,V261,V262,V263,V264,V265) |
static object LI15(V225,V226,V227,V228,V229,V230) |
1209 |
|
|
1210 |
object V260;object V261;object V262;object V263;register object V264;register object V265; |
register object V225;register object V226;object V227;object V228;register object V229;register object V230; |
1211 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
1212 |
goto TTL; |
goto TTL; |
1213 |
TTL:; |
TTL:; |
1214 |
base[0]= (V262); |
base[0]= (V227); |
1215 |
{register object V266; |
{register object V231; |
1216 |
if(((V264))==Cnil){ |
if(((V229))==Cnil){ |
1217 |
goto T468;} |
goto T477;} |
1218 |
base[1]= VV[34]; |
base[1]= VV[34]; |
1219 |
goto T466; |
goto T475; |
1220 |
goto T468; |
goto T477; |
1221 |
T468:; |
T477:; |
1222 |
base[1]= VV[33]; |
base[1]= VV[33]; |
1223 |
goto T466; |
goto T475; |
1224 |
T466:; |
T475:; |
1225 |
base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V263))); |
base[2]= (VFUN_NARGS=1,(*(LnkLI21))((V228))); |
1226 |
base[4]= base[0]; |
base[4]= base[0]; |
1227 |
base[5]= VV[81]; |
base[5]= VV[38]; |
1228 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1229 |
Lgetf(); |
Lgetf(); |
1230 |
vs_top=sup; |
vs_top=sup; |
1231 |
V266= vs_base[0]; |
V231= vs_base[0]; |
1232 |
base[4]= VV[55]; |
base[4]= VV[63]; |
1233 |
base[5]= (V266); |
base[5]= (V231); |
1234 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1235 |
L17(base); |
L17(base); |
1236 |
vs_top=sup; |
vs_top=sup; |
1237 |
base[4]= VV[82]; |
base[4]= VV[89]; |
1238 |
base[6]= VV[83]; |
base[6]= VV[90]; |
1239 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1240 |
L16(base); |
L16(base); |
1241 |
vs_top=sup; |
vs_top=sup; |
1243 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1244 |
L17(base); |
L17(base); |
1245 |
vs_top=sup; |
vs_top=sup; |
1246 |
base[4]= VV[84]; |
base[4]= VV[91]; |
1247 |
base[6]= VV[85]; |
base[6]= VV[92]; |
1248 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1249 |
L16(base); |
L16(base); |
1250 |
vs_top=sup; |
vs_top=sup; |
1252 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1253 |
L17(base); |
L17(base); |
1254 |
vs_top=sup; |
vs_top=sup; |
1255 |
base[4]= VV[86]; |
base[4]= VV[93]; |
1256 |
base[6]= VV[87]; |
base[6]= VV[94]; |
1257 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1258 |
L16(base); |
L16(base); |
1259 |
vs_top=sup; |
vs_top=sup; |
1261 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1262 |
L17(base); |
L17(base); |
1263 |
vs_top=sup; |
vs_top=sup; |
1264 |
base[4]= VV[88]; |
base[4]= VV[95]; |
1265 |
base[6]= VV[89]; |
base[6]= VV[96]; |
1266 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1267 |
L16(base); |
L16(base); |
1268 |
vs_top=sup; |
vs_top=sup; |
1270 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1271 |
L17(base); |
L17(base); |
1272 |
vs_top=sup; |
vs_top=sup; |
1273 |
base[4]= VV[90]; |
base[4]= VV[97]; |
1274 |
base[6]= VV[91]; |
base[6]= VV[98]; |
1275 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1276 |
L16(base); |
L16(base); |
1277 |
vs_top=sup; |
vs_top=sup; |
1279 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1280 |
L17(base); |
L17(base); |
1281 |
vs_top=sup; |
vs_top=sup; |
1282 |
base[4]= VV[92]; |
base[4]= VV[99]; |
1283 |
base[5]= VV[41]; |
base[5]= VV[49]; |
1284 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1285 |
L17(base); |
L17(base); |
1286 |
vs_top=sup; |
vs_top=sup; |
1287 |
base[4]= VV[49];{object V267; |
base[4]= VV[57];{object V232; |
1288 |
base[6]= VV[93]; |
base[6]= VV[100]; |
1289 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1290 |
L16(base); |
L16(base); |
1291 |
vs_top=sup; |
vs_top=sup; |
1292 |
V267= vs_base[0]; |
V232= vs_base[0]; |
1293 |
if(V267==Cnil)goto T503; |
if(V232==Cnil)goto T512; |
1294 |
base[5]= V267; |
base[5]= V232; |
1295 |
goto T502; |
goto T511; |
1296 |
goto T503; |
goto T512; |
1297 |
T503:;} |
T512:;} |
1298 |
base[5]= Ct; |
base[5]= Ct; |
1299 |
goto T502; |
goto T511; |
1300 |
T502:; |
T511:; |
1301 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1302 |
L17(base); |
L17(base); |
1303 |
vs_top=sup; |
vs_top=sup; |
1304 |
base[4]= VV[51];{object V268; |
base[4]= VV[59];{object V233; |
1305 |
base[6]= VV[94]; |
base[6]= VV[101]; |
1306 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1307 |
L16(base); |
L16(base); |
1308 |
vs_top=sup; |
vs_top=sup; |
1309 |
V268= vs_base[0]; |
V233= vs_base[0]; |
1310 |
if(V268==Cnil)goto T509; |
if(V233==Cnil)goto T518; |
1311 |
base[5]= V268; |
base[5]= V233; |
1312 |
goto T508; |
goto T517; |
1313 |
goto T509; |
goto T518; |
1314 |
T509:;} |
T518:;} |
1315 |
base[5]= VV[95]; |
base[5]= VV[102]; |
1316 |
goto T508; |
goto T517; |
1317 |
T508:; |
T517:; |
1318 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1319 |
L17(base); |
L17(base); |
1320 |
vs_top=sup; |
vs_top=sup; |
1321 |
base[4]= VV[26]; |
base[4]= VV[26]; |
1322 |
base[5]= (V261); |
base[5]= (V226); |
1323 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1324 |
L17(base); |
L17(base); |
1325 |
vs_top=sup; |
vs_top=sup; |
1326 |
if(((V264))==Cnil){ |
if(((V229))==Cnil){ |
1327 |
goto T515;} |
goto T524;} |
1328 |
base[4]= VV[96]; |
base[4]= VV[103]; |
1329 |
base[5]= (V265); |
base[5]= (V230); |
1330 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1331 |
L17(base); |
L17(base); |
1332 |
vs_top=sup; |
vs_top=sup; |
1333 |
base[4]= VV[97]; |
base[4]= VV[104]; |
1334 |
base[6]= Cnil; |
base[6]= Cnil; |
1335 |
base[7]= (V266); |
base[7]= (V231); |
1336 |
base[8]= (V265); |
base[8]= (V230); |
1337 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1338 |
(void) (*Lnk200)(); |
(void) (*Lnk210)(); |
1339 |
vs_top=sup; |
vs_top=sup; |
1340 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1341 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1342 |
L17(base); |
L17(base); |
1343 |
vs_top=sup; |
vs_top=sup; |
1344 |
base[4]= VV[98]; |
base[4]= VV[105]; |
1345 |
base[6]= Cnil; |
base[6]= Cnil; |
1346 |
base[7]= (V266); |
base[7]= (V231); |
1347 |
base[8]= (V265); |
base[8]= (V230); |
1348 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1349 |
(void) (*Lnk201)(); |
(void) (*Lnk211)(); |
1350 |
vs_top=sup; |
vs_top=sup; |
1351 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1352 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1353 |
L17(base); |
L17(base); |
1354 |
vs_top=sup; |
vs_top=sup; |
1355 |
base[4]= VV[99]; |
base[4]= VV[106]; |
1356 |
base[6]= Cnil; |
base[6]= Cnil; |
1357 |
base[7]= (V266); |
base[7]= (V231); |
1358 |
base[8]= (V265); |
base[8]= (V230); |
1359 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1360 |
(void) (*Lnk202)(); |
(void) (*Lnk212)(); |
1361 |
vs_top=sup; |
vs_top=sup; |
1362 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
1363 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1364 |
L17(base); |
L17(base); |
1365 |
vs_top=sup; |
vs_top=sup; |
1366 |
base[4]= VV[100]; |
base[4]= VV[107]; |
1367 |
base[5]= small_fixnum(7); |
base[5]= small_fixnum(7); |
1368 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1369 |
L17(base); |
L17(base); |
1370 |
vs_top=sup; |
vs_top=sup; |
1371 |
{object V270;{object V271; |
{object V235;{object V236; |
1372 |
base[4]= (V266); |
base[4]= (V231); |
1373 |
base[5]= (VV[101]->s.s_dbind); |
base[5]= (VV[108]->s.s_dbind); |
1374 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1375 |
Lgethash(); |
Lgethash(); |
1376 |
vs_top=sup; |
vs_top=sup; |
1377 |
V271= vs_base[0]; |
V236= vs_base[0]; |
1378 |
if(V271==Cnil)goto T543; |
if(V236==Cnil)goto T552; |
1379 |
V270= V271; |
V235= V236; |
1380 |
goto T542; |
goto T551; |
1381 |
goto T543; |
goto T552; |
1382 |
T543:;} |
T552:;} |
1383 |
{object V273; |
{object V238; |
1384 |
object V274; |
object V239; |
1385 |
V273= (VV[101]->s.s_dbind); |
V238= (VV[108]->s.s_dbind); |
1386 |
base[5]= VV[102]; |
base[5]= VV[109]; |
1387 |
base[6]= VV[103]; |
base[6]= VV[110]; |
1388 |
base[7]= VV[104]; |
base[7]= VV[111]; |
1389 |
base[8]= small_fixnum(5); |
base[8]= small_fixnum(5); |
1390 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
1391 |
Lmake_hash_table(); |
Lmake_hash_table(); |
1392 |
vs_top=sup; |
vs_top=sup; |
1393 |
V274= vs_base[0]; |
V239= vs_base[0]; |
1394 |
base[5]= V266; |
base[5]= V231; |
1395 |
base[6]= (V273); |
base[6]= (V238); |
1396 |
base[7]= (V274); |
base[7]= (V239); |
1397 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1398 |
siLhash_set(); |
siLhash_set(); |
1399 |
vs_top=sup; |
vs_top=sup; |
1400 |
V270= vs_base[0];} |
V235= vs_base[0];} |
1401 |
goto T542; |
goto T551; |
1402 |
T542:; |
T551:; |
1403 |
base[4]= V261; |
base[4]= V226; |
1404 |
base[5]= V270; |
base[5]= V235; |
1405 |
base[6]= base[2]; |
base[6]= base[2]; |
1406 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
1407 |
siLhash_set(); |
siLhash_set(); |
1408 |
vs_top=sup;} |
vs_top=sup;} |
1409 |
goto T515; |
goto T524; |
1410 |
T515:; |
T524:; |
1411 |
if(!(((V260))==(VV[28]))){ |
if(!(((V225))==(VV[28]))){ |
1412 |
goto T559;} |
goto T568;} |
1413 |
if(!(((V266))==(VV[71]))){ |
if(!(((V231))==(VV[79]))){ |
1414 |
goto T559;} |
goto T568;} |
1415 |
if(((V264))==Cnil){ |
if(((V229))==Cnil){ |
1416 |
goto T559;} |
goto T568;} |
1417 |
(VV[105]->s.s_dbind)= base[2]; |
(VV[112]->s.s_dbind)= base[2]; |
1418 |
goto T559; |
goto T568; |
1419 |
T559:; |
T568:; |
1420 |
if(!(((V260))==(VV[29]))){ |
if(!(((V225))==(VV[29]))){ |
1421 |
goto T567;} |
goto T576;} |
1422 |
if(!(((V266))==(VV[71]))){ |
if(!(((V231))==(VV[79]))){ |
1423 |
goto T567;} |
goto T576;} |
1424 |
if(((V264))==Cnil){ |
if(((V229))==Cnil){ |
1425 |
goto T567;} |
goto T576;} |
1426 |
(VV[106]->s.s_dbind)= base[2]; |
(VV[113]->s.s_dbind)= base[2]; |
1427 |
goto T567; |
goto T576; |
1428 |
T567:; |
T576:; |
1429 |
{object V278 = base[2]; |
{object V243 = base[2]; |
1430 |
VMR9(V278)}} |
VMR9(V243)}} |
1431 |
base[0]=base[0]; |
base[0]=base[0]; |
1432 |
return Cnil; |
return Cnil; |
1433 |
} |
} |
1434 |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */ |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS */ |
1435 |
|
|
1436 |
static object LI18(V280) |
static object LI18(V245) |
1437 |
|
|
1438 |
object V280; |
object V245; |
1439 |
{ VMB10 VMS10 VMV10 |
{ VMB10 VMS10 VMV10 |
1440 |
bds_check; |
bds_check; |
1441 |
goto TTL; |
goto TTL; |
1442 |
TTL:; |
TTL:; |
1443 |
bds_bind(VV[107],(V280)); |
bds_bind(VV[114],(V245)); |
1444 |
{register object V281; |
{register object V246; |
1445 |
register object V282; |
register object V247; |
1446 |
V281= (VV[36]->s.s_dbind); |
V246= (VV[36]->s.s_dbind); |
1447 |
V282= CMPcar((V281)); |
V247= CMPcar((V246)); |
1448 |
goto T578; |
goto T587; |
1449 |
T578:; |
T587:; |
1450 |
if(!(((V281))==Cnil)){ |
if(!(((V246))==Cnil)){ |
1451 |
goto T579;} |
goto T588;} |
1452 |
{object V283 = Cnil; |
{object V248 = Cnil; |
1453 |
bds_unwind1; |
bds_unwind1; |
1454 |
VMR10(V283)} |
VMR10(V248)} |
1455 |
goto T579; |
goto T588; |
1456 |
T579:; |
T588:; |
1457 |
{object V284; |
{object V249; |
1458 |
object V285; |
object V250; |
1459 |
V284= (*(LnkLI182))((V282)); |
V249= (*(LnkLI191))((V247)); |
1460 |
V285= (*(LnkLI183))((V282)); |
V250= (*(LnkLI192))((V247)); |
1461 |
if(((V285))==(VV[31])){ |
if(((V250))==(VV[31])){ |
1462 |
goto T583;} |
goto T592;} |
1463 |
{object V286; |
{object V251; |
1464 |
V286= (*(LnkLI187))((V282)); |
V251= (*(LnkLI197))((V247)); |
1465 |
{register object V287; |
{register object V252; |
1466 |
register object V288; |
register object V253; |
1467 |
V287= (V286); |
V252= (V251); |
1468 |
V288= CMPcar((V287)); |
V253= CMPcar((V252)); |
1469 |
|
goto T601; |
1470 |
|
T601:; |
1471 |
|
if(!(((V252))==Cnil)){ |
1472 |
|
goto T602;} |
1473 |
goto T592; |
goto T592; |
1474 |
T592:; |
goto T602; |
1475 |
if(!(((V287))==Cnil)){ |
T602:; |
1476 |
goto T593;} |
{register object V254; |
1477 |
goto T583; |
register object V255; |
1478 |
goto T593; |
register object V256; |
1479 |
T593:; |
base[3]= (V253); |
1480 |
{register object V289; |
base[4]= VV[38]; |
|
register object V290; |
|
|
register object V291; |
|
|
base[3]= (V288); |
|
|
base[4]= VV[81]; |
|
1481 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1482 |
Lgetf(); |
Lgetf(); |
1483 |
vs_top=sup; |
vs_top=sup; |
1484 |
V289= vs_base[0]; |
V254= vs_base[0]; |
1485 |
base[3]= (V288); |
base[3]= (V253); |
1486 |
base[4]= VV[89]; |
base[4]= VV[96]; |
1487 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1488 |
Lgetf(); |
Lgetf(); |
1489 |
vs_top=sup; |
vs_top=sup; |
1490 |
V290= vs_base[0]; |
V255= vs_base[0]; |
1491 |
base[3]= (V288); |
base[3]= (V253); |
1492 |
base[4]= VV[91]; |
base[4]= VV[98]; |
1493 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1494 |
Lgetf(); |
Lgetf(); |
1495 |
vs_top=sup; |
vs_top=sup; |
1496 |
V291= vs_base[0]; |
V256= vs_base[0]; |
1497 |
(void)((*(LnkLI203))((V284),(V289),(V290),(V291),Cnil)); |
(void)((*(LnkLI213))((V249),(V254),(V255),(V256),Cnil)); |
1498 |
V292= (*(LnkLI204))((V289)); |
V257= (*(LnkLI214))((V254)); |
1499 |
V293= make_cons(/* INLINE-ARGS */V292,Cnil); |
V258= make_cons(/* INLINE-ARGS */V257,Cnil); |
1500 |
V294= (*(LnkLI205))((V289)); |
V259= (*(LnkLI215))((V254)); |
1501 |
V295= make_cons(/* INLINE-ARGS */V294,Cnil); |
V260= make_cons(/* INLINE-ARGS */V259,Cnil); |
1502 |
V296= (*(LnkLI206))((V289)); |
V261= (*(LnkLI216))((V254)); |
1503 |
V297= make_cons(/* INLINE-ARGS */V296,Cnil); |
V262= make_cons(/* INLINE-ARGS */V261,Cnil); |
1504 |
(void)((*(LnkLI203))(VV[108],(V289),/* INLINE-ARGS */V293,/* INLINE-ARGS */V295,/* INLINE-ARGS */V297));} |
(void)((*(LnkLI213))(VV[115],(V254),/* INLINE-ARGS */V258,/* INLINE-ARGS */V260,/* INLINE-ARGS */V262));} |
1505 |
V287= CMPcdr((V287)); |
V252= CMPcdr((V252)); |
1506 |
V288= CMPcar((V287)); |
V253= CMPcar((V252)); |
1507 |
goto T592;}}} |
goto T601;}}} |
1508 |
goto T583; |
goto T592; |
1509 |
T583:; |
T592:; |
1510 |
V281= CMPcdr((V281)); |
V246= CMPcdr((V246)); |
1511 |
V282= CMPcar((V281)); |
V247= CMPcar((V246)); |
1512 |
goto T578;} |
goto T587;} |
1513 |
base[0]=base[0]; |
base[0]=base[0]; |
1514 |
return Cnil; |
return Cnil; |
1515 |
} |
} |
1519 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1520 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM11; VC11 |
1521 |
vs_check; |
vs_check; |
1522 |
{register object V298; |
{register object V263; |
1523 |
object V299; |
object V264; |
1524 |
object V300; |
object V265; |
1525 |
object V301; |
object V266; |
1526 |
check_arg(4); |
check_arg(4); |
1527 |
V298=(base[0]); |
V263=(base[0]); |
1528 |
V299=(base[1]); |
V264=(base[1]); |
1529 |
V300=(base[2]); |
V265=(base[2]); |
1530 |
V301=(base[3]); |
V266=(base[3]); |
1531 |
vs_top=sup; |
vs_top=sup; |
1532 |
goto TTL; |
goto TTL; |
1533 |
TTL:; |
TTL:; |
1534 |
{object V302; |
{object V267; |
1535 |
object V303; |
object V268; |
1536 |
object V304; |
object V269; |
1537 |
object V305; |
object V270; |
1538 |
object V306; |
object V271; |
1539 |
{object V307= (V301); |
{object V273= V266; |
1540 |
if((V307!= VV[120]))goto T619; |
if((V273!= VV[129]))goto T628; |
1541 |
base[4]= VV[109]; |
base[4]= VV[116]; |
1542 |
base[5]= (VV[207]->s.s_gfdef); |
base[5]= (VV[217]->s.s_gfdef); |
1543 |
base[6]= make_cons((V298),Cnil); |
base[6]= make_cons((V263),Cnil); |
1544 |
base[7]= make_cons((V298),Cnil); |
base[7]= make_cons((V263),Cnil); |
1545 |
base[8]= VV[110]; |
base[8]= VV[117]; |
1546 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1547 |
goto T618; |
goto T627; |
1548 |
goto T619; |
goto T628; |
1549 |
T619:; |
T628:; |
1550 |
if((V307!= VV[121]))goto T625; |
if((V273!= VV[130]))goto T634; |
1551 |
base[4]= VV[111]; |
base[4]= VV[118]; |
1552 |
base[5]= (VV[208]->s.s_gfdef); |
base[5]= (VV[218]->s.s_gfdef); |
1553 |
base[6]= list(2,VV[112],(V298)); |
base[6]= list(2,VV[119],(V263)); |
1554 |
base[7]= list(2,Ct,(V298)); |
base[7]= list(2,Ct,(V263)); |
1555 |
base[8]= VV[113]; |
base[8]= VV[120]; |
1556 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1557 |
goto T618; |
goto T627; |
1558 |
goto T625; |
goto T634; |
1559 |
T625:; |
T634:; |
1560 |
if((V307!= VV[122]))goto T631; |
if((V273!= VV[131]))goto T640; |
1561 |
base[4]= VV[114]; |
base[4]= VV[121]; |
1562 |
base[5]= (VV[209]->s.s_gfdef); |
base[5]= (VV[219]->s.s_gfdef); |
1563 |
base[6]= make_cons((V298),Cnil); |
base[6]= make_cons((V263),Cnil); |
1564 |
base[7]= make_cons((V298),Cnil); |
base[7]= make_cons((V263),Cnil); |
1565 |
base[8]= VV[115]; |
base[8]= VV[122]; |
1566 |
vs_top=(vs_base=base+4)+5; |
vs_top=(vs_base=base+4)+5; |
1567 |
goto T618; |
goto T627; |
1568 |
goto T631; |
goto T640; |
1569 |
T631:; |
T640:; |
1570 |
FEerror("The ECASE key value ~s is illegal.",1,V307); |
base[4]= VV[37]; |
1571 |
base[4]= Cnil; |
base[5]= VV[38]; |
1572 |
vs_top=(vs_base=base+4)+1; |
base[6]= VV[39]; |
1573 |
goto T618;} |
base[7]= VV[40]; |
1574 |
goto T618; |
base[8]= V266; |
1575 |
T618:; |
base[9]= VV[41]; |
1576 |
if(vs_base>=vs_top){vs_top=sup;goto T637;} |
base[10]= VV[123]; |
1577 |
V302= vs_base[0]; |
base[11]= VV[43]; |
1578 |
|
base[12]= VV[124]; |
1579 |
|
vs_top=(vs_base=base+4)+9; |
1580 |
|
(void) (*Lnk193)();} |
1581 |
|
goto T627; |
1582 |
|
T627:; |
1583 |
|
if(vs_base>=vs_top){vs_top=sup;goto T655;} |
1584 |
|
V267= vs_base[0]; |
1585 |
vs_base++; |
vs_base++; |
1586 |
if(vs_base>=vs_top){vs_top=sup;goto T638;} |
if(vs_base>=vs_top){vs_top=sup;goto T656;} |
1587 |
V303= vs_base[0]; |
V268= vs_base[0]; |
1588 |
vs_base++; |
vs_base++; |
1589 |
if(vs_base>=vs_top){vs_top=sup;goto T639;} |
if(vs_base>=vs_top){vs_top=sup;goto T657;} |
1590 |
V304= vs_base[0]; |
V269= vs_base[0]; |
1591 |
vs_base++; |
vs_base++; |
1592 |
if(vs_base>=vs_top){vs_top=sup;goto T640;} |
if(vs_base>=vs_top){vs_top=sup;goto T658;} |
1593 |
V305= vs_base[0]; |
V270= vs_base[0]; |
1594 |
vs_base++; |
vs_base++; |
1595 |
if(vs_base>=vs_top){vs_top=sup;goto T641;} |
if(vs_base>=vs_top){vs_top=sup;goto T659;} |
1596 |
V306= vs_base[0]; |
V271= vs_base[0]; |
1597 |
vs_top=sup; |
vs_top=sup; |
1598 |
goto T642; |
goto T660; |
1599 |
goto T637; |
goto T655; |
1600 |
T637:; |
T655:; |
1601 |
V302= Cnil; |
V267= Cnil; |
1602 |
goto T638; |
goto T656; |
1603 |
T638:; |
T656:; |
1604 |
V303= Cnil; |
V268= Cnil; |
1605 |
goto T639; |
goto T657; |
1606 |
T639:; |
T657:; |
1607 |
V304= Cnil; |
V269= Cnil; |
1608 |
goto T640; |
goto T658; |
1609 |
T640:; |
T658:; |
1610 |
V305= Cnil; |
V270= Cnil; |
1611 |
goto T641; |
goto T659; |
1612 |
T641:; |
T659:; |
1613 |
V306= Cnil; |
V271= Cnil; |
1614 |
goto T642; |
goto T660; |
1615 |
T642:; |
T660:; |
1616 |
{register object V308; |
{register object V274; |
1617 |
base[4]= (V299); |
base[4]= (V264); |
1618 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1619 |
(void) (*Lnk210)(); |
(void) (*Lnk220)(); |
1620 |
vs_top=sup; |
vs_top=sup; |
1621 |
V308= vs_base[0]; |
V274= vs_base[0]; |
1622 |
base[4]= (V305); |
base[4]= (V270); |
1623 |
if(type_of(V308)==t_structure){ |
if(type_of(V274)==t_structure){ |
1624 |
goto T654;} |
goto T672;} |
1625 |
goto T652; |
goto T670; |
1626 |
goto T654; |
goto T672; |
1627 |
T654:; |
T672:; |
1628 |
if(!(((V308)->str.str_def)==(VV[116]))){ |
if(!(((V274)->str.str_def)==(VV[125]))){ |
1629 |
goto T652;} |
goto T670;} |
1630 |
V309= STREF(object,(V308),4); |
V275= STREF(object,(V274),4); |
1631 |
goto T650; |
goto T668; |
1632 |
goto T652; |
goto T670; |
1633 |
T652:;{object V311; |
T670:;{object V277; |
1634 |
V311= (VV[45]->s.s_dbind); |
V277= (VV[53]->s.s_dbind); |
1635 |
base[6]= small_fixnum(14); |
base[6]= small_fixnum(14); |
1636 |
base[7]= (V308); |
base[7]= (V274); |
1637 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1638 |
(void) (*Lnk194)(); |
(void) (*Lnk204)(); |
1639 |
vs_top=sup; |
vs_top=sup; |
1640 |
V312= vs_base[0]; |
V278= vs_base[0]; |
1641 |
if(!((V311)==(CMPcar(V312)))){ |
if(!((V277)==(CMPcar(V278)))){ |
1642 |
goto T657;}} |
goto T675;}} |
1643 |
V309= CMPcar(((V308))->cc.cc_turbo[12]); |
V275= CMPcar(((V274))->cc.cc_turbo[12]); |
1644 |
goto T650; |
goto T668; |
1645 |
goto T657; |
goto T675; |
1646 |
T657:; |
T675:; |
1647 |
base[6]= VV[46]; |
base[6]= VV[54]; |
1648 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1649 |
Lerror(); |
Lerror(); |
1650 |
vs_top=sup; |
vs_top=sup; |
1651 |
V309= vs_base[0]; |
V275= vs_base[0]; |
1652 |
goto T650; |
goto T668; |
1653 |
T650:; |
T668:; |
1654 |
V313 = (VV[117]->s.s_dbind); |
base[5]= (V275)->v.v_self[fix((VV[126]->s.s_dbind))]; |
1655 |
base[5]= (V309)->v.v_self[fix(V313)]; |
base[6]= VV[127]; |
1656 |
base[6]= VV[118]; |
base[7]= (VV[221]->s.s_gfdef); |
1657 |
base[7]= (VV[211]->s.s_gfdef); |
base[8]= VV[109]; |
1658 |
base[8]= VV[102]; |
base[9]= (VV[222]->s.s_gfdef); |
|
base[9]= (VV[212]->s.s_gfdef); |
|
1659 |
vs_top=(vs_base=base+4)+6; |
vs_top=(vs_base=base+4)+6; |
1660 |
(void) (*Lnk213)(); |
(void) (*Lnk223)(); |
1661 |
vs_top=sup; |
vs_top=sup; |
1662 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1663 |
goto T646;} |
goto T664;} |
1664 |
{register object x= (V299),V314= (VV[119]->s.s_dbind); |
{register object x= (V264),V279= (VV[128]->s.s_dbind); |
1665 |
while(V314!=Cnil) |
while(V279!=Cnil) |
1666 |
if(equal(x,V314->c.c_car->c.c_car) &&V314->c.c_car != Cnil){ |
if(equal(x,V279->c.c_car->c.c_car) &&V279->c.c_car != Cnil){ |
1667 |
goto T668; |
goto T686; |
1668 |
}else V314=V314->c.c_cdr;} |
}else V279=V279->c.c_cdr;} |
1669 |
base[4]= (VFUN_NARGS=1,(*(LnkLI214))((V308))); |
base[4]= (VFUN_NARGS=1,(*(LnkLI224))((V274))); |
1670 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1671 |
return; |
return; |
1672 |
goto T668; |
goto T686; |
1673 |
T668:; |
T686:; |
1674 |
base[4]= Cnil; |
base[4]= Cnil; |
1675 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1676 |
return; |
return; |
1677 |
goto T646; |
goto T664; |
1678 |
T646:; |
T664:; |
1679 |
base[4]=(VV[215]->s.s_gfdef); |
base[4]=(VV[225]->s.s_gfdef); |
1680 |
base[5]= (V308); |
base[5]= (V274); |
1681 |
base[7]=(VV[216]->s.s_gfdef); |
base[7]=(VV[226]->s.s_gfdef); |
1682 |
base[8]= (V302); |
base[8]= (V267); |
1683 |
base[9]= Cnil; |
base[9]= Cnil; |
1684 |
base[10]= (V304); |
base[10]= (V269); |
1685 |
base[11]= (V305); |
base[11]= (V270); |
1686 |
base[13]= (V298); |
base[13]= (V263); |
1687 |
base[14]= (V300); |
base[14]= (V265); |
1688 |
vs_top=(vs_base=base+13)+2; |
vs_top=(vs_base=base+13)+2; |
1689 |
{object _funobj = (V303);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (V268);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1690 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1691 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1692 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1693 |
vs_top=sup; |
vs_top=sup; |
1694 |
base[12]= vs_base[0]; |
base[12]= vs_base[0]; |
1695 |
base[13]= (V306); |
base[13]= (V271); |
1696 |
base[14]= (V300); |
base[14]= (V265); |
1697 |
base[6]= simple_lispcall(base+7,7); |
base[6]= simple_lispcall(base+7,7); |
1698 |
lispcall(base+4,2); |
lispcall(base+4,2); |
1699 |
return;}} |
return;}} |
1701 |
} |
} |
1702 |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
/* local entry for function BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
1703 |
|
|
1704 |
static object LI24(V320,V321,V322,V323,V324) |
static object LI24(V285,V286,V287,V288,V289) |
1705 |
|
|
1706 |
object V320;object V321;object V322;object V323;object V324; |
object V285;object V286;object V287;object V288;object V289; |
1707 |
{ VMB12 VMS12 VMV12 |
{ VMB12 VMS12 VMV12 |
1708 |
goto TTL; |
goto TTL; |
1709 |
TTL:; |
TTL:; |
1710 |
base[0]= (V321); |
base[0]= (V286); |
1711 |
base[1]= (V320); |
base[1]= (V285); |
1712 |
{register object V325; |
{register object V290; |
1713 |
register object V326; |
object V291; |
1714 |
V325= (V322); |
V290= (V287); |
1715 |
V326= CMPcar((V325)); |
V291= CMPcar((V290)); |
1716 |
goto T685; |
goto T703; |
1717 |
T685:; |
T703:; |
1718 |
if(!(((V325))==Cnil)){ |
if(!(((V290))==Cnil)){ |
1719 |
goto T686;} |
goto T704;} |
1720 |
goto T681; |
goto T699; |
1721 |
goto T686; |
goto T704; |
1722 |
T686:; |
T704:; |
1723 |
base[3]= (V326); |
base[3]= (V291); |
1724 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1725 |
L25(base); |
L25(base); |
1726 |
vs_top=sup; |
vs_top=sup; |
1727 |
V325= CMPcdr((V325)); |
V290= CMPcdr((V290)); |
1728 |
V326= CMPcar((V325)); |
V291= CMPcar((V290)); |
1729 |
goto T685;} |
goto T703;} |
1730 |
goto T681; |
goto T699; |
1731 |
T681:; |
T699:; |
1732 |
{register object V327; |
{register object V292; |
1733 |
register object V328; |
object V293; |
1734 |
V327= (V323); |
V292= (V288); |
1735 |
V328= CMPcar((V327)); |
V293= CMPcar((V292)); |
1736 |
goto T701; |
goto T719; |
1737 |
T701:; |
T719:; |
1738 |
if(!(((V327))==Cnil)){ |
if(!(((V292))==Cnil)){ |
1739 |
goto T702;} |
goto T720;} |
1740 |
goto T697; |
goto T715; |
1741 |
goto T702; |
goto T720; |
1742 |
T702:; |
T720:; |
1743 |
base[3]= (V328); |
base[3]= (V293); |
1744 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1745 |
L26(base); |
L26(base); |
1746 |
vs_top=sup; |
vs_top=sup; |
1747 |
V327= CMPcdr((V327)); |
V292= CMPcdr((V292)); |
1748 |
V328= CMPcar((V327)); |
V293= CMPcar((V292)); |
1749 |
goto T701;} |
goto T719;} |
1750 |
goto T697; |
goto T715; |
1751 |
T697:; |
T715:; |
1752 |
{register object V329; |
{register object V294; |
1753 |
register object V330; |
object V295; |
1754 |
V329= (V324); |
V294= (V289); |
1755 |
V330= CMPcar((V329)); |
V295= CMPcar((V294)); |
1756 |
goto T716; |
goto T734; |
1757 |
T716:; |
T734:; |
1758 |
if(!(((V329))==Cnil)){ |
if(!(((V294))==Cnil)){ |
1759 |
goto T717;} |
goto T735;} |
1760 |
{object V331 = Cnil; |
{object V296 = Cnil; |
1761 |
VMR12(V331)} |
VMR12(V296)} |
1762 |
goto T717; |
goto T735; |
1763 |
T717:; |
T735:; |
1764 |
base[3]= (V330); |
base[3]= (V295); |
1765 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1766 |
L27(base); |
L27(base); |
1767 |
vs_top=sup; |
vs_top=sup; |
1768 |
V329= CMPcdr((V329)); |
V294= CMPcdr((V294)); |
1769 |
V330= CMPcar((V329)); |
V295= CMPcar((V294)); |
1770 |
goto T716;} |
goto T734;} |
1771 |
base[0]=base[0]; |
base[0]=base[0]; |
1772 |
return Cnil; |
return Cnil; |
1773 |
} |
} |
1774 |
/* local entry for function BOOTSTRAP-CLASS-PREDICATES */ |
/* local entry for function BOOTSTRAP-CLASS-PREDICATES */ |
1775 |
|
|
1776 |
static object LI28(V333) |
static object LI28(V298) |
1777 |
|
|
1778 |
object V333; |
object V298; |
1779 |
{ VMB13 VMS13 VMV13 |
{ VMB13 VMS13 VMV13 |
1780 |
bds_check; |
bds_check; |
1781 |
goto TTL; |
goto TTL; |
1782 |
TTL:; |
TTL:; |
1783 |
bds_bind(VV[107],(V333)); |
bds_bind(VV[114],(V298)); |
1784 |
{register object V334; |
{register object V299; |
1785 |
register object V335; |
register object V300; |
1786 |
V334= (VV[36]->s.s_dbind); |
V299= (VV[36]->s.s_dbind); |
1787 |
V335= CMPcar((V334)); |
V300= CMPcar((V299)); |
1788 |
goto T731; |
goto T749; |
1789 |
T731:; |
T749:; |
1790 |
if(!(((V334))==Cnil)){ |
if(!(((V299))==Cnil)){ |
1791 |
goto T732;} |
goto T750;} |
1792 |
{object V336 = Cnil; |
{object V301 = Cnil; |
1793 |
bds_unwind1; |
bds_unwind1; |
1794 |
VMR13(V336)} |
VMR13(V301)} |
1795 |
goto T732; |
goto T750; |
1796 |
T732:; |
T750:; |
1797 |
{register object V337; |
{register object V302; |
1798 |
register object V338; |
register object V303; |
1799 |
V337= (*(LnkLI182))((V335)); |
V302= (*(LnkLI191))((V300)); |
1800 |
V338= (VFUN_NARGS=1,(*(LnkLI25))((V337))); |
V303= (VFUN_NARGS=1,(*(LnkLI25))((V302))); |
1801 |
{register object V339; |
{register object V304; |
1802 |
register object V340; |
register object V305; |
1803 |
V339= (V337); |
V304= (V302); |
1804 |
V341 = (V338); |
base[5]= (V303); |
|
base[5]= (V338); |
|
1805 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1806 |
(void) (*Lnk218)(Lclptr218); |
(void) (*Lnk228)(Lclptr228); |
1807 |
vs_top=sup; |
vs_top=sup; |
1808 |
V342= vs_base[0]; |
V306= vs_base[0]; |
1809 |
V340= (*(LnkLI217))(V341,V342); |
V305= (*(LnkLI227))((V303),V306); |
1810 |
V343= ({object _tmp=get(VV[219],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[219])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[219])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V307= ({object _tmp=get(VV[229],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[229])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[229])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V344 = (V340); |
|
|
V345 = (V339); |
|
1811 |
(void)(( |
(void)(( |
1812 |
V346 = V343, |
V308 = V307, |
1813 |
(type_of(V346) == t_sfun ?(*((V346)->sfn.sfn_self)): |
(type_of(V308) == t_sfun ?(*((V308)->sfn.sfn_self)): |
1814 |
(fcall.argd=2,type_of(V346)==t_vfun) ? |
(fcall.argd=2,type_of(V308)==t_vfun) ? |
1815 |
(*((V346)->sfn.sfn_self)): |
(*((V308)->sfn.sfn_self)): |
1816 |
(fcall.fun=(V346),fcalln))(V344,V345)));}} |
(fcall.fun=(V308),fcalln))((V305),(V304))));}} |
1817 |
V334= CMPcdr((V334)); |
V299= CMPcdr((V299)); |
1818 |
V335= CMPcar((V334)); |
V300= CMPcar((V299)); |
1819 |
goto T731;} |
goto T749;} |
1820 |
base[0]=base[0]; |
base[0]=base[0]; |
1821 |
return Cnil; |
return Cnil; |
1822 |
} |
} |
1827 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
1828 |
goto TTL; |
goto TTL; |
1829 |
TTL:; |
TTL:; |
1830 |
{register object V347; |
{register object V309; |
1831 |
object V348; |
object V310; |
1832 |
V347= (VV[123]->s.s_dbind); |
V309= (VV[132]->s.s_dbind); |
1833 |
V348= CMPcar((V347)); |
V310= CMPcar((V309)); |
1834 |
goto T753; |
goto T771; |
1835 |
T753:; |
T771:; |
1836 |
if(!(((V347))==Cnil)){ |
if(!(((V309))==Cnil)){ |
1837 |
goto T754;} |
goto T772;} |
|
goto T749; |
|
|
goto T754; |
|
|
T754:; |
|
|
{register object V349; |
|
|
register object V350; |
|
|
V349= CMPcadr((V348)); |
|
|
V350= CMPcar((V349)); |
|
|
goto T762; |
|
|
T762:; |
|
|
if(!(((V349))==Cnil)){ |
|
|
goto T763;} |
|
|
goto T758; |
|
|
goto T763; |
|
|
T763:; |
|
|
if(((V350))==(Ct)){ |
|
|
goto T767;} |
|
|
{register object x= (V350),V351= (VV[123]->s.s_dbind); |
|
|
while(V351!=Cnil) |
|
|
if(EQ(x,V351->c.c_car->c.c_car) &&V351->c.c_car != Cnil){ |
|
1838 |
goto T767; |
goto T767; |
1839 |
}else V351=V351->c.c_cdr;} |
goto T772; |
1840 |
base[3]= VV[124]; |
T772:; |
1841 |
base[4]= CMPcar((V348)); |
{register object V311; |
1842 |
base[5]= (V350); |
register object V312; |
1843 |
base[6]= (V350); |
V311= CMPcadr((V310)); |
1844 |
|
V312= CMPcar((V311)); |
1845 |
|
goto T780; |
1846 |
|
T780:; |
1847 |
|
if(!(((V311))==Cnil)){ |
1848 |
|
goto T781;} |
1849 |
|
goto T776; |
1850 |
|
goto T781; |
1851 |
|
T781:; |
1852 |
|
if(((V312))==(Ct)){ |
1853 |
|
goto T785;} |
1854 |
|
{register object x= (V312),V313= (VV[132]->s.s_dbind); |
1855 |
|
while(V313!=Cnil) |
1856 |
|
if(EQ(x,V313->c.c_car->c.c_car) &&V313->c.c_car != Cnil){ |
1857 |
|
goto T785; |
1858 |
|
}else V313=V313->c.c_cdr;} |
1859 |
|
base[3]= VV[133]; |
1860 |
|
base[4]= CMPcar((V310)); |
1861 |
|
base[5]= (V312); |
1862 |
|
base[6]= (V312); |
1863 |
vs_top=(vs_base=base+3)+4; |
vs_top=(vs_base=base+3)+4; |
1864 |
Lerror(); |
Lerror(); |
1865 |
vs_top=sup; |
vs_top=sup; |
1866 |
|
goto T785; |
1867 |
|
T785:; |
1868 |
|
V311= CMPcdr((V311)); |
1869 |
|
V312= CMPcar((V311)); |
1870 |
|
goto T780;} |
1871 |
|
goto T776; |
1872 |
|
T776:; |
1873 |
|
V309= CMPcdr((V309)); |
1874 |
|
V310= CMPcar((V309)); |
1875 |
|
goto T771;} |
1876 |
goto T767; |
goto T767; |
1877 |
T767:; |
T767:; |
1878 |
V349= CMPcdr((V349)); |
{object V314; |
1879 |
V350= CMPcar((V349)); |
object V315; |
1880 |
goto T762;} |
V314= (VFUN_NARGS=1,(*(LnkLI25))(VV[31])); |
1881 |
goto T758; |
base[2]= (V314); |
|
T758:; |
|
|
V347= CMPcdr((V347)); |
|
|
V348= CMPcar((V347)); |
|
|
goto T753;} |
|
|
goto T749; |
|
|
T749:; |
|
|
{object V352; |
|
|
object V353; |
|
|
V352= (VFUN_NARGS=1,(*(LnkLI25))(VV[31])); |
|
|
base[2]= (V352); |
|
1882 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1883 |
(void) (*Lnk220)(Lclptr220); |
(void) (*Lnk230)(Lclptr230); |
1884 |
vs_top=sup; |
vs_top=sup; |
1885 |
V353= vs_base[0]; |
V315= vs_base[0]; |
1886 |
{register object V354; |
{register object V316; |
1887 |
object V355; |
object V317; |
1888 |
V354= (VV[123]->s.s_dbind); |
V316= (VV[132]->s.s_dbind); |
1889 |
V355= CMPcar((V354)); |
V317= CMPcar((V316)); |
1890 |
goto T793; |
goto T811; |
1891 |
T793:; |
T811:; |
1892 |
if(!(((V354))==Cnil)){ |
if(!(((V316))==Cnil)){ |
1893 |
goto T794;} |
goto T812;} |
1894 |
goto T786; |
goto T804; |
1895 |
goto T794; |
goto T812; |
1896 |
T794:; |
T812:; |
1897 |
{object V356; |
{object V318; |
1898 |
V356= (VFUN_NARGS=1,(*(LnkLI21))((V353))); |
V318= (VFUN_NARGS=1,(*(LnkLI21))((V315))); |
1899 |
{object V357; |
{object V319; |
1900 |
V357= CMPcar((V355)); |
V319= CMPcar((V317)); |
1901 |
V359= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V321= ({object _tmp=get(VV[25],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[25])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[25])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V360 = V356; |
|
|
V361 = (V357); |
|
1902 |
(void)(( |
(void)(( |
1903 |
V362 = V359, |
V322 = V321, |
1904 |
(type_of(V362) == t_sfun ?(*((V362)->sfn.sfn_self)): |
(type_of(V322) == t_sfun ?(*((V322)->sfn.sfn_self)): |
1905 |
(fcall.argd=2,type_of(V362)==t_vfun) ? |
(fcall.argd=2,type_of(V322)==t_vfun) ? |
1906 |
(*((V362)->sfn.sfn_self)): |
(*((V322)->sfn.sfn_self)): |
1907 |
(fcall.fun=(V362),fcalln))(V360,V361)));}} |
(fcall.fun=(V322),fcalln))(V318,(V319))));}} |
1908 |
V354= CMPcdr((V354)); |
V316= CMPcdr((V316)); |
1909 |
V355= CMPcar((V354)); |
V317= CMPcar((V316)); |
1910 |
goto T793;}} |
goto T811;}} |
1911 |
goto T786; |
goto T804; |
1912 |
T786:; |
T804:; |
1913 |
{object V363; |
{object V323; |
1914 |
base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35])); |
base[0]= (VFUN_NARGS=1,(*(LnkLI25))(VV[35])); |
1915 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1916 |
(void) (*Lnk220)(Lclptr220); |
(void) (*Lnk230)(Lclptr230); |
1917 |
vs_top=sup; |
vs_top=sup; |
1918 |
V363= vs_base[0]; |
V323= vs_base[0]; |
1919 |
{register object V364; |
{register object V324; |
1920 |
object V365; |
object V325; |
1921 |
V364= (VV[123]->s.s_dbind); |
V324= (VV[132]->s.s_dbind); |
1922 |
V365= CMPcar((V364)); |
V325= CMPcar((V324)); |
1923 |
goto T813; |
goto T831; |
1924 |
T813:; |
T831:; |
1925 |
if(!(((V364))==Cnil)){ |
if(!(((V324))==Cnil)){ |
1926 |
goto T814;} |
goto T832;} |
1927 |
goto T807; |
goto T825; |
1928 |
goto T814; |
goto T832; |
1929 |
T814:; |
T832:; |
1930 |
{object V366; |
{object V326; |
1931 |
object V367; |
object V327; |
1932 |
object V368; |
object V328; |
1933 |
object V369; |
object V329; |
1934 |
register object V370; |
register object V330; |
1935 |
register object V371; |
register object V331; |
1936 |
V366= Cnil; |
V326= Cnil; |
1937 |
V367= Cnil; |
V327= Cnil; |
1938 |
V368= Cnil; |
V328= Cnil; |
1939 |
V369= Cnil; |
V329= Cnil; |
1940 |
V370= Cnil; |
V330= Cnil; |
1941 |
V371= Cnil; |
V331= Cnil; |
1942 |
V371= (V365); |
V331= (V325); |
1943 |
V370= CMPcar((V371)); |
V330= CMPcar((V331)); |
1944 |
V371= CMPcdr((V371)); |
V331= CMPcdr((V331)); |
1945 |
V369= CMPcar((V371)); |
V329= CMPcar((V331)); |
1946 |
V371= CMPcdr((V371)); |
V331= CMPcdr((V331)); |
1947 |
V368= CMPcar((V371)); |
V328= CMPcar((V331)); |
1948 |
V371= CMPcdr((V371)); |
V331= CMPcdr((V331)); |
1949 |
V367= CMPcar((V371)); |
V327= CMPcar((V331)); |
1950 |
V371= CMPcdr((V371)); |
V331= CMPcdr((V331)); |
1951 |
V366= CMPcar((V371)); |
V326= CMPcar((V331)); |
1952 |
{object V372; |
{object V332; |
1953 |
register object V373; |
register object V333; |
1954 |
V372= (VFUN_NARGS=1,(*(LnkLI25))((V370))); |
V332= (VFUN_NARGS=1,(*(LnkLI25))((V330))); |
1955 |
V373= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V372))); |
V333= (VFUN_NARGS=2,(*(LnkLI18))(small_fixnum(0),(V332))); |
1956 |
base[3]= (*(LnkLI221))((V370)); |
base[3]= (*(LnkLI231))((V330)); |
1957 |
base[4]= (V372); |
base[4]= (V332); |
1958 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1959 |
Lset(); |
Lset(); |
1960 |
vs_top=sup; |
vs_top=sup; |
1961 |
base[3]= (*(LnkLI222))((V370)); |
base[3]= (*(LnkLI232))((V330)); |
1962 |
base[4]= (V373); |
base[4]= (V333); |
1963 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
1964 |
Lset(); |
Lset(); |
1965 |
vs_top=sup; |
vs_top=sup; |
1966 |
(void)(((V373))->v.v_self[9]= (Cnil)); |
(void)(((V333))->v.v_self[9]= (Cnil)); |
1967 |
(void)(((V373))->v.v_self[10]= (Cnil)); |
(void)(((V333))->v.v_self[10]= (Cnil)); |
1968 |
V374= make_cons((V370),(V367)); |
V334= make_cons((V330),(V327)); |
1969 |
(void)((VFUN_NARGS=10,(*(LnkLI193))(VV[31],(V372),(V370),(V363),Cnil,(V369),(V368),/* INLINE-ARGS */V374,(V373),(V366))));}} |
(void)((VFUN_NARGS=10,(*(LnkLI203))(VV[31],(V332),(V330),(V323),Cnil,(V329),(V328),/* INLINE-ARGS */V334,(V333),(V326))));}} |
1970 |
V364= CMPcdr((V364)); |
V324= CMPcdr((V324)); |
1971 |
V365= CMPcar((V364)); |
V325= CMPcar((V324)); |
1972 |
goto T813;}} |
goto T831;}} |
1973 |
goto T807; |
goto T825; |
1974 |
T807:; |
T825:; |
1975 |
{register object V375; |
{register object V335; |
1976 |
object V376; |
object V336; |
1977 |
V375= (VV[123]->s.s_dbind); |
V335= (VV[132]->s.s_dbind); |
1978 |
V376= CMPcar((V375)); |
V336= CMPcar((V335)); |
1979 |
goto T859; |
goto T877; |
1980 |
T859:; |
T877:; |
1981 |
if(!(((V375))==Cnil)){ |
if(!(((V335))==Cnil)){ |
1982 |
goto T860;} |
goto T878;} |
1983 |
{object V377 = Cnil; |
{object V337 = Cnil; |
1984 |
VMR14(V377)} |
VMR14(V337)} |
1985 |
goto T860; |
goto T878; |
1986 |
T860:; |
T878:; |
1987 |
{object V378; |
{object V338; |
1988 |
object V379; |
object V339; |
1989 |
V378= CMPcar((V376)); |
V338= CMPcar((V336)); |
1990 |
V379= (VFUN_NARGS=1,(*(LnkLI25))((V378))); |
V339= (VFUN_NARGS=1,(*(LnkLI25))((V338))); |
1991 |
{object V381; |
{object V341; |
1992 |
V382 = (V379); |
base[4]= (V339); |
|
base[4]= (V379); |
|
1993 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1994 |
(void) (*Lnk218)(Lclptr218); |
(void) (*Lnk228)(Lclptr228); |
1995 |
vs_top=sup; |
vs_top=sup; |
1996 |
V383= vs_base[0]; |
V342= vs_base[0]; |
1997 |
V381= (*(LnkLI217))(V382,V383); |
V341= (*(LnkLI227))((V339),V342); |
1998 |
V384= ({object _tmp=get(VV[219],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[219])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[219])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V343= ({object _tmp=get(VV[229],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[229])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[229])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V385 = (V381); |
|
|
V386 = V378; |
|
1999 |
(void)(( |
(void)(( |
2000 |
V387 = V384, |
V344 = V343, |
2001 |
(type_of(V387) == t_sfun ?(*((V387)->sfn.sfn_self)): |
(type_of(V344) == t_sfun ?(*((V344)->sfn.sfn_self)): |
2002 |
(fcall.argd=2,type_of(V387)==t_vfun) ? |
(fcall.argd=2,type_of(V344)==t_vfun) ? |
2003 |
(*((V387)->sfn.sfn_self)): |
(*((V344)->sfn.sfn_self)): |
2004 |
(fcall.fun=(V387),fcalln))(V385,V386)));}} |
(fcall.fun=(V344),fcalln))((V341),V338)));}} |
2005 |
V375= CMPcdr((V375)); |
V335= CMPcdr((V335)); |
2006 |
V376= CMPcar((V375)); |
V336= CMPcar((V335)); |
2007 |
goto T859;} |
goto T877;} |
2008 |
base[0]=base[0]; |
base[0]=base[0]; |
2009 |
return Cnil; |
return Cnil; |
2010 |
} |
} |
2011 |
/* local entry for function WRAPPER-FOR-STRUCTURE */ |
/* local entry for function WRAPPER-FOR-STRUCTURE */ |
2012 |
|
|
2013 |
static object LI30(V389) |
static object LI30(V346) |
2014 |
|
|
2015 |
object V389; |
object V346; |
2016 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
2017 |
goto TTL; |
goto TTL; |
2018 |
TTL:; |
TTL:; |
2019 |
{register object V390; |
{register object V347; |
2020 |
if(type_of((V389))==t_structure){ |
if(type_of((V346))==t_structure){ |
2021 |
goto T877;} |
goto T895;} |
2022 |
V390= Cnil; |
V347= Cnil; |
2023 |
goto T876; |
goto T894; |
|
goto T877; |
|
|
T877:; |
|
|
V390= ((V389))->str.str_def->str.str_self[0]; |
|
|
goto T876; |
|
|
T876:; |
|
|
if(!(type_of((V390))==t_symbol)){ |
|
|
goto T879;} |
|
|
if(!(((V390))==(VV[1]))){ |
|
|
goto T883;} |
|
|
{object V391 = STREF(object,(V389),0); |
|
|
VMR15(V391)} |
|
|
goto T883; |
|
|
T883:; |
|
|
if(!(((V390))==((VV[125]->s.s_dbind)))){ |
|
|
goto T886;} |
|
|
{object V392 = (VV[126]->s.s_dbind); |
|
|
VMR15(V392)} |
|
|
goto T886; |
|
|
T886:; |
|
|
if(!(((V390))==((VV[127]->s.s_dbind)))){ |
|
|
goto T889;} |
|
|
{object V393 = (VV[128]->s.s_dbind); |
|
|
VMR15(V393)} |
|
|
goto T889; |
|
|
T889:; |
|
|
(VV[127]->s.s_dbind)= (VV[125]->s.s_dbind); |
|
|
(VV[128]->s.s_dbind)= (VV[126]->s.s_dbind); |
|
|
goto T879; |
|
|
T879:; |
|
|
{object V394; |
|
|
object V395; |
|
|
object V396; |
|
|
V394= (VFUN_NARGS=1,(*(LnkLI224))((V390)));{object V397; |
|
|
V397= CMPcar((V394)); |
|
|
if(V397==Cnil)goto T896; |
|
|
V395= V397; |
|
|
goto T895; |
|
|
goto T896; |
|
|
T896:;} |
|
|
V395= (VFUN_NARGS=2,(*(LnkLI225))((V390),(V394))); |
|
2024 |
goto T895; |
goto T895; |
2025 |
T895:; |
T895:; |
2026 |
if(((V395))==Cnil){ |
V347= ((V346))->str.str_def->str.str_self[0]; |
2027 |
goto T900;} |
goto T894; |
2028 |
base[3]= (V395); |
T894:; |
2029 |
|
if(!(type_of((V347))==t_symbol)){ |
2030 |
|
goto T897;} |
2031 |
|
if(!(((V347))==(VV[1]))){ |
2032 |
|
goto T901;} |
2033 |
|
{object V348 = STREF(object,(V346),0); |
2034 |
|
VMR15(V348)} |
2035 |
|
goto T901; |
2036 |
|
T901:; |
2037 |
|
if(!(((V347))==((VV[134]->s.s_dbind)))){ |
2038 |
|
goto T904;} |
2039 |
|
{object V349 = (VV[135]->s.s_dbind); |
2040 |
|
VMR15(V349)} |
2041 |
|
goto T904; |
2042 |
|
T904:; |
2043 |
|
if(!(((V347))==((VV[136]->s.s_dbind)))){ |
2044 |
|
goto T907;} |
2045 |
|
{object V350 = (VV[137]->s.s_dbind); |
2046 |
|
VMR15(V350)} |
2047 |
|
goto T907; |
2048 |
|
T907:; |
2049 |
|
(VV[136]->s.s_dbind)= (VV[134]->s.s_dbind); |
2050 |
|
(VV[137]->s.s_dbind)= (VV[135]->s.s_dbind); |
2051 |
|
goto T897; |
2052 |
|
T897:; |
2053 |
|
{object V351; |
2054 |
|
object V352; |
2055 |
|
object V353; |
2056 |
|
V351= (VFUN_NARGS=1,(*(LnkLI234))((V347)));{object V354; |
2057 |
|
V354= CMPcar((V351)); |
2058 |
|
if(V354==Cnil)goto T914; |
2059 |
|
V352= V354; |
2060 |
|
goto T913; |
2061 |
|
goto T914; |
2062 |
|
T914:;} |
2063 |
|
V352= (VFUN_NARGS=2,(*(LnkLI235))((V347),(V351))); |
2064 |
|
goto T913; |
2065 |
|
T913:; |
2066 |
|
if(((V352))==Cnil){ |
2067 |
|
goto T918;} |
2068 |
|
base[3]= (V352); |
2069 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2070 |
(void) (*Lnk220)(Lclptr220); |
(void) (*Lnk230)(Lclptr230); |
2071 |
vs_top=sup; |
vs_top=sup; |
2072 |
V396= vs_base[0]; |
V353= vs_base[0]; |
2073 |
goto T898; |
goto T916; |
2074 |
goto T900; |
goto T918; |
2075 |
T900:; |
T918:; |
2076 |
V396= (VV[38]->s.s_dbind); |
V353= (VV[46]->s.s_dbind); |
2077 |
goto T898; |
goto T916; |
2078 |
T898:; |
T916:; |
2079 |
if(!(type_of((V390))==t_symbol)){ |
if(!(type_of((V347))==t_symbol)){ |
2080 |
goto T903;} |
goto T921;} |
2081 |
(VV[125]->s.s_dbind)= (V390); |
(VV[134]->s.s_dbind)= (V347); |
2082 |
(VV[126]->s.s_dbind)= (V396); |
(VV[135]->s.s_dbind)= (V353); |
2083 |
goto T903; |
goto T921; |
2084 |
T903:; |
T921:; |
2085 |
{object V398 = (V396); |
{object V355 = (V353); |
2086 |
VMR15(V398)}}} |
VMR15(V355)}}} |
2087 |
base[0]=base[0]; |
base[0]=base[0]; |
2088 |
return Cnil; |
return Cnil; |
2089 |
} |
} |
2090 |
/* local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */ |
/* local entry for function BUILT-IN-OR-STRUCTURE-WRAPPER1 */ |
2091 |
|
|
2092 |
static object LI31(V400) |
static object LI31(V357) |
2093 |
|
|
2094 |
object V400; |
object V357; |
2095 |
{ VMB16 VMS16 VMV16 |
{ VMB16 VMS16 VMV16 |
2096 |
goto TTL; |
goto TTL; |
2097 |
TTL:; |
TTL:; |
2098 |
{object V401;{object V402; |
{object V358;{object V359; |
2099 |
V402= (*(LnkLI226))((V400)); |
V359= (*(LnkLI236))((V357)); |
2100 |
if(V402==Cnil)goto T910; |
if(V359==Cnil)goto T928; |
2101 |
V401= V402; |
V358= V359; |
2102 |
goto T909; |
goto T927; |
2103 |
goto T910; |
goto T928; |
2104 |
T910:;} |
T928:;} |
2105 |
V401= (VV[38]->s.s_dbind); |
V358= (VV[46]->s.s_dbind); |
2106 |
goto T909; |
goto T927; |
2107 |
T909:;{object V403; |
T927:;{object V360; |
2108 |
if(((V401))==((VV[38]->s.s_dbind))){ |
if(((V358))==((VV[46]->s.s_dbind))){ |
2109 |
goto T914;} |
goto T932;} |
2110 |
V403= Cnil; |
V360= Cnil; |
2111 |
goto T913; |
goto T931; |
2112 |
goto T914; |
goto T932; |
2113 |
T914:; |
T932:; |
2114 |
if(type_of((V400))==t_structure){ |
if(type_of((V357))==t_structure){ |
2115 |
goto T916;} |
goto T934;} |
2116 |
V403= Cnil; |
V360= Cnil; |
2117 |
goto T913; |
goto T931; |
2118 |
goto T916; |
goto T934; |
2119 |
T916:; |
T934:; |
2120 |
{object V404; |
{object V361; |
2121 |
object V405; |
object V362; |
2122 |
base[2]= (V400); |
base[2]= (V357); |
2123 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2124 |
Ltype_of(); |
Ltype_of(); |
2125 |
vs_top=sup; |
vs_top=sup; |
2126 |
V404= vs_base[0]; |
V361= vs_base[0]; |
2127 |
V405= (VFUN_NARGS=2,(*(LnkLI25))((V404),Cnil)); |
V362= (VFUN_NARGS=2,(*(LnkLI25))((V361),Cnil)); |
2128 |
if((V405)==Cnil){ |
if((V362)==Cnil){ |
2129 |
V403= Cnil; |
V360= Cnil; |
2130 |
goto T913;} |
goto T931;} |
2131 |
base[2]= (V405); |
base[2]= (V362); |
2132 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2133 |
(void) (*Lnk220)(Lclptr220); |
(void) (*Lnk230)(Lclptr230); |
2134 |
vs_top=sup; |
vs_top=sup; |
2135 |
V403= vs_base[0];} |
V360= vs_base[0];} |
2136 |
goto T913; |
goto T931; |
2137 |
T913:; |
T931:; |
2138 |
if(V403==Cnil)goto T912; |
if(V360==Cnil)goto T930; |
2139 |
{object V406 = V403; |
{object V363 = V360; |
2140 |
VMR16(V406)} |
VMR16(V363)} |
2141 |
goto T912; |
goto T930; |
2142 |
T912:;} |
T930:;} |
2143 |
{object V407 = (V401); |
{object V364 = (V358); |
2144 |
VMR16(V407)}} |
VMR16(V364)}} |
2145 |
base[0]=base[0]; |
base[0]=base[0]; |
2146 |
return Cnil; |
return Cnil; |
2147 |
} |
} |
2148 |
/* local entry for function CLASS-OF */ |
/* local entry for function CLASS-OF */ |
2149 |
|
|
2150 |
static object LI32(V409) |
static object LI32(V366) |
2151 |
|
|
2152 |
register object V409; |
register object V366; |
2153 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
2154 |
goto TTL; |
goto TTL; |
2155 |
TTL:; |
TTL:; |
2156 |
if(type_of(V409)==t_structure){ |
if(type_of(V366)==t_structure){ |
2157 |
goto T926;} |
goto T944;} |
2158 |
goto T924; |
goto T942; |
2159 |
goto T926; |
goto T944; |
2160 |
T926:; |
T944:; |
2161 |
if(!(((V409)->str.str_def)==(VV[129]))){ |
if(!(((V366)->str.str_def)==(VV[138]))){ |
2162 |
goto T924;} |
goto T942;} |
2163 |
V410= STREF(object,(V409),0); |
V367= STREF(object,(V366),0); |
2164 |
goto T922; |
goto T940; |
2165 |
goto T924; |
goto T942; |
2166 |
T924:;{object V412; |
T942:;{object V369; |
2167 |
V412= (VV[45]->s.s_dbind); |
V369= (VV[53]->s.s_dbind); |
2168 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
2169 |
base[1]= (V409); |
base[1]= (V366); |
2170 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2171 |
(void) (*Lnk194)(); |
(void) (*Lnk204)(); |
2172 |
vs_top=sup; |
vs_top=sup; |
2173 |
V413= vs_base[0]; |
V370= vs_base[0]; |
2174 |
if(!((V412)==(CMPcar(V413)))){ |
if(!((V369)==(CMPcar(V370)))){ |
2175 |
goto T929;}} |
goto T947;}} |
2176 |
V410= CMPcar(((V409))->cc.cc_turbo[13]); |
V367= CMPcar(((V366))->cc.cc_turbo[13]); |
2177 |
goto T922; |
goto T940; |
2178 |
goto T929; |
goto T947; |
2179 |
T929:; |
T947:; |
2180 |
if(!(type_of((V409))==t_structure)){ |
if(!(type_of((V366))==t_structure)){ |
2181 |
goto T935;} |
goto T953;} |
2182 |
V410= (*(LnkLI227))((V409)); |
V367= (*(LnkLI237))((V366)); |
2183 |
goto T922; |
goto T940; |
2184 |
goto T935; |
goto T953; |
2185 |
T935:; |
T953:; |
2186 |
if(!(type_of((V409))==t_symbol)){ |
if(!(type_of((V366))==t_symbol)){ |
2187 |
goto T938;} |
goto T956;} |
2188 |
if(((V409))==Cnil){ |
if(((V366))==Cnil){ |
2189 |
goto T941;} |
goto T959;} |
2190 |
V410= (VV[130]->s.s_dbind); |
V367= (VV[139]->s.s_dbind); |
2191 |
goto T922; |
goto T940; |
2192 |
goto T941; |
goto T959; |
2193 |
T941:; |
T959:; |
2194 |
V410= (VV[131]->s.s_dbind); |
V367= (VV[140]->s.s_dbind); |
2195 |
goto T922; |
goto T940; |
2196 |
goto T938; |
goto T956; |
2197 |
T938:; |
T956:; |
2198 |
V410= (*(LnkLI226))((V409)); |
V367= (*(LnkLI236))((V366)); |
2199 |
goto T922; |
goto T940; |
2200 |
T922:; |
T940:; |
2201 |
{object V414 = (V410)->v.v_self[11]; |
{object V371 = (V367)->v.v_self[11]; |
2202 |
VMR17(V414)} |
VMR17(V371)} |
2203 |
base[0]=base[0]; |
base[0]=base[0]; |
2204 |
return Cnil; |
return Cnil; |
2205 |
} |
} |
2206 |
/* local entry for function WRAPPER-OF */ |
/* local entry for function WRAPPER-OF */ |
2207 |
|
|
2208 |
static object LI33(V416) |
static object LI33(V373) |
2209 |
|
|
2210 |
register object V416; |
register object V373; |
2211 |
{ VMB18 VMS18 VMV18 |
{ VMB18 VMS18 VMV18 |
2212 |
goto TTL; |
goto TTL; |
2213 |
TTL:; |
TTL:; |
2214 |
if(type_of(V416)==t_structure){ |
if(type_of(V373)==t_structure){ |
2215 |
goto T946;} |
goto T964;} |
2216 |
goto T944; |
goto T962; |
2217 |
goto T946; |
goto T964; |
2218 |
T946:; |
T964:; |
2219 |
if(!(((V416)->str.str_def)==(VV[132]))){ |
if(!(((V373)->str.str_def)==(VV[141]))){ |
2220 |
goto T944;} |
goto T962;} |
2221 |
{object V418 = STREF(object,(V416),0); |
{object V375 = STREF(object,(V373),0); |
2222 |
VMR18(V418)} |
VMR18(V375)} |
2223 |
goto T944; |
goto T962; |
2224 |
T944:;{object V419; |
T962:;{object V376; |
2225 |
V419= (VV[45]->s.s_dbind); |
V376= (VV[53]->s.s_dbind); |
2226 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
2227 |
base[1]= (V416); |
base[1]= (V373); |
2228 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2229 |
(void) (*Lnk194)(); |
(void) (*Lnk204)(); |
2230 |
vs_top=sup; |
vs_top=sup; |
2231 |
V420= vs_base[0]; |
V377= vs_base[0]; |
2232 |
if(!((V419)==(CMPcar(V420)))){ |
if(!((V376)==(CMPcar(V377)))){ |
2233 |
goto T949;}} |
goto T967;}} |
2234 |
{object V421 = CMPcar(((V416))->cc.cc_turbo[13]); |
{object V378 = CMPcar(((V373))->cc.cc_turbo[13]); |
2235 |
VMR18(V421)} |
VMR18(V378)} |
2236 |
goto T949; |
goto T967; |
2237 |
T949:; |
T967:; |
2238 |
if(!(type_of((V416))==t_structure)){ |
if(!(type_of((V373))==t_structure)){ |
2239 |
goto T955;} |
goto T973;} |
2240 |
{object V422 = (*(LnkLI227))((V416)); |
{object V379 = (*(LnkLI237))((V373)); |
2241 |
VMR18(V422)} |
VMR18(V379)} |
2242 |
goto T955; |
goto T973; |
2243 |
T955:; |
T973:; |
2244 |
if(!(type_of((V416))==t_symbol)){ |
if(!(type_of((V373))==t_symbol)){ |
2245 |
goto T958;} |
goto T976;} |
2246 |
if(((V416))==Cnil){ |
if(((V373))==Cnil){ |
2247 |
goto T961;} |
goto T979;} |
2248 |
{object V423 = (VV[130]->s.s_dbind); |
{object V380 = (VV[139]->s.s_dbind); |
2249 |
VMR18(V423)} |
VMR18(V380)} |
2250 |
goto T961; |
goto T979; |
2251 |
T961:; |
T979:; |
2252 |
{object V424 = (VV[131]->s.s_dbind); |
{object V381 = (VV[140]->s.s_dbind); |
2253 |
VMR18(V424)} |
VMR18(V381)} |
2254 |
goto T958; |
goto T976; |
2255 |
T958:; |
T976:; |
2256 |
{object V425 = (*(LnkLI226))((V416)); |
{object V382 = (*(LnkLI236))((V373)); |
2257 |
VMR18(V425)} |
VMR18(V382)} |
2258 |
base[0]=base[0]; |
base[0]=base[0]; |
2259 |
return Cnil; |
return Cnil; |
2260 |
} |
} |
2264 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2265 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
2266 |
vs_check; |
vs_check; |
2267 |
{object V426; |
{object V383; |
2268 |
check_arg(1); |
check_arg(1); |
2269 |
V426=(base[0]); |
V383=(base[0]); |
2270 |
vs_top=sup; |
vs_top=sup; |
2271 |
goto TTL; |
goto TTL; |
2272 |
TTL:; |
TTL:; |
2273 |
if(type_of((V426))==t_structure){ |
if(type_of((V383))==t_structure){ |
2274 |
goto T965;} |
goto T983;} |
2275 |
V427= Cnil; |
V384= Cnil; |
2276 |
goto T964; |
goto T982; |
2277 |
goto T965; |
goto T983; |
2278 |
T965:; |
T983:; |
2279 |
V427= ((V426))->str.str_def->str.str_self[0]; |
V384= ((V383))->str.str_def->str.str_self[0]; |
2280 |
goto T964; |
goto T982; |
2281 |
T964:; |
T982:; |
2282 |
base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V427)); |
base[1]= (VFUN_NARGS=1,(*(LnkLI25))(V384)); |
2283 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2284 |
(void) (*Lnk220)(Lclptr220); |
(void) (*Lnk230)(Lclptr230); |
2285 |
return; |
return; |
2286 |
} |
} |
2287 |
} |
} |
2288 |
/* local entry for function EVAL-FORM */ |
/* local entry for function EVAL-FORM */ |
2289 |
|
|
2290 |
static object LI36(V429) |
static object LI36(V386) |
2291 |
|
|
2292 |
object V429; |
object V386; |
2293 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
2294 |
goto TTL; |
goto TTL; |
2295 |
TTL:; |
TTL:; |
2296 |
base[0]=MMcons((V429),Cnil); |
base[0]=MMcons((V386),Cnil); |
2297 |
{object V430 = |
{object V387 = |
2298 |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
make_cclosure_new(LC47,Cnil,base[0],Cdata); |
2299 |
VMR20(V430)} |
VMR20(V387)} |
2300 |
base[0]=base[0]; |
base[0]=base[0]; |
2301 |
return Cnil; |
return Cnil; |
2302 |
} |
} |
2303 |
/* local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
/* local entry for function SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
2304 |
|
|
2305 |
static object LI37(V432) |
static object LI37(V389) |
2306 |
|
|
2307 |
register object V432; |
register object V389; |
2308 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
2309 |
goto TTL; |
goto TTL; |
2310 |
TTL:; |
TTL:; |
2311 |
base[0]= VV[81]; |
base[0]= VV[38]; |
2312 |
base[1]= (*(LnkLI228))((V432)); |
base[1]= (*(LnkLI238))((V389)); |
2313 |
base[2]= VV[133]; |
base[2]= VV[142]; |
2314 |
base[3]= (*(LnkLI229))((V432)); |
base[3]= (*(LnkLI239))((V389)); |
2315 |
base[4]= VV[134]; |
base[4]= VV[143]; |
2316 |
base[5]= (*(LnkLI230))((V432)); |
base[5]= (*(LnkLI240))((V389)); |
2317 |
base[6]= VV[135]; |
base[6]= VV[144]; |
2318 |
base[7]= (*(LnkLI231))((V432)); |
base[7]= (*(LnkLI241))((V389)); |
2319 |
base[8]= VV[93];{object V433; |
base[8]= VV[100];{object V390; |
2320 |
V433= (*(LnkLI232))((V432)); |
V390= (*(LnkLI242))((V389)); |
2321 |
if(V433==Cnil)goto T977; |
if(V390==Cnil)goto T995; |
2322 |
base[9]= V433; |
base[9]= V390; |
2323 |
goto T976; |
goto T994; |
2324 |
goto T977; |
goto T995; |
2325 |
T977:;} |
T995:;} |
2326 |
base[9]= Ct; |
base[9]= Ct; |
2327 |
goto T976; |
goto T994; |
2328 |
T976:; |
T994:; |
2329 |
base[10]= VV[83]; |
base[10]= VV[90]; |
2330 |
base[12]= (V432); |
base[12]= (V389); |
2331 |
vs_top=(vs_base=base+12)+1; |
vs_top=(vs_base=base+12)+1; |
2332 |
(void) (*Lnk233)(); |
(void) (*Lnk243)(); |
2333 |
vs_top=sup; |
vs_top=sup; |
2334 |
base[11]= vs_base[0]; |
base[11]= vs_base[0]; |
2335 |
base[12]= VV[85]; |
base[12]= VV[92]; |
2336 |
base[14]= (V432); |
base[14]= (V389); |
2337 |
vs_top=(vs_base=base+14)+1; |
vs_top=(vs_base=base+14)+1; |
2338 |
(void) (*Lnk233)(); |
(void) (*Lnk243)(); |
2339 |
vs_top=sup; |
vs_top=sup; |
2340 |
V434= vs_base[0]; |
V391= vs_base[0]; |
2341 |
base[13]= (*(LnkLI234))(V434); |
base[13]= (*(LnkLI244))(V391); |
2342 |
vs_top=(vs_base=base+0)+14; |
vs_top=(vs_base=base+0)+14; |
2343 |
Llist(); |
Llist(); |
2344 |
vs_top=sup; |
vs_top=sup; |
2345 |
{object V435 = vs_base[0]; |
{object V392 = vs_base[0]; |
2346 |
VMR21(V435)} |
VMR21(V392)} |
2347 |
base[0]=base[0]; |
base[0]=base[0]; |
2348 |
return Cnil; |
return Cnil; |
2349 |
} |
} |
2354 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
2355 |
vs_check; |
vs_check; |
2356 |
bds_check; |
bds_check; |
2357 |
{register object V436; |
{register object V393; |
2358 |
check_arg(1); |
check_arg(1); |
2359 |
V436=(base[0]); |
V393=(base[0]); |
2360 |
vs_top=sup; |
vs_top=sup; |
2361 |
goto TTL; |
goto TTL; |
2362 |
TTL:; |
TTL:; |
2363 |
if(((*(LnkLI235))((V436)))==Cnil){ |
if(((*(LnkLI245))((V393)))==Cnil){ |
2364 |
goto T987;} |
goto T1005;} |
2365 |
if(((VV[136]->s.s_dbind))==((V436))){ |
if(((VV[145]->s.s_dbind))==((V393))){ |
2366 |
goto T990;} |
goto T1008;} |
2367 |
bds_bind(VV[136],(V436)); |
bds_bind(VV[145],(V393)); |
2368 |
base[2]= (V436); |
base[2]= (V393); |
2369 |
base[3]= VV[137]; |
base[3]= VV[146]; |
2370 |
base[4]= VV[32]; |
base[4]= VV[32]; |
2371 |
base[5]= VV[81]; |
base[5]= VV[38]; |
2372 |
base[6]= (V436); |
base[6]= (V393); |
2373 |
base[7]= VV[138]; |
base[7]= VV[147]; |
2374 |
if(((*(LnkLI236))((V436)))==Cnil){ |
if(((*(LnkLI246))((V393)))==Cnil){ |
2375 |
goto T1000;} |
goto T1018;} |
2376 |
V437= (*(LnkLI236))((V436)); |
V394= (*(LnkLI246))((V393)); |
2377 |
base[8]= make_cons(/* INLINE-ARGS */V437,Cnil); |
base[8]= make_cons(/* INLINE-ARGS */V394,Cnil); |
2378 |
goto T998; |
goto T1016; |
2379 |
goto T1000; |
goto T1018; |
2380 |
T1000:; |
T1018:; |
2381 |
base[8]= Cnil; |
base[8]= Cnil; |
2382 |
goto T998; |
goto T1016; |
2383 |
T998:; |
T1016:; |
2384 |
base[9]= VV[139]; |
base[9]= VV[148]; |
2385 |
V440= (*(LnkLI237))((V436)); |
V397= (*(LnkLI247))((V393)); |
2386 |
{object V438; |
{object V395; |
2387 |
object V439= /* INLINE-ARGS */V440; |
object V396= /* INLINE-ARGS */V397; |
2388 |
if(V439==Cnil){ |
if(V396==Cnil){ |
2389 |
base[10]= Cnil; |
base[10]= Cnil; |
2390 |
goto T1003;} |
goto T1021;} |
2391 |
base[11]=V438=MMcons(Cnil,Cnil); |
base[11]=V395=MMcons(Cnil,Cnil); |
2392 |
goto T1004; |
goto T1022; |
2393 |
T1004:; |
T1022:; |
2394 |
(V438->c.c_car)= (*(LnkLI238))((V439->c.c_car)); |
(V395->c.c_car)= (*(LnkLI248))((V396->c.c_car)); |
2395 |
if((V439=MMcdr(V439))==Cnil){ |
if((V396=MMcdr(V396))==Cnil){ |
2396 |
base[10]= base[11]; |
base[10]= base[11]; |
2397 |
goto T1003;} |
goto T1021;} |
2398 |
V438=MMcdr(V438)=MMcons(Cnil,Cnil); |
V395=MMcdr(V395)=MMcons(Cnil,Cnil); |
2399 |
goto T1004;} |
goto T1022;} |
2400 |
goto T1003; |
goto T1021; |
2401 |
T1003:; |
T1021:; |
2402 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
2403 |
(void) (*Lnk239)(); |
(void) (*Lnk249)(); |
2404 |
bds_unwind1; |
bds_unwind1; |
2405 |
return; |
return; |
2406 |
goto T990; |
goto T1008; |
2407 |
T990:; |
T1008:; |
2408 |
base[1]= Cnil; |
base[1]= Cnil; |
2409 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2410 |
return; |
return; |
2411 |
goto T987; |
goto T1005; |
2412 |
T987:; |
T1005:; |
2413 |
base[1]= VV[140]; |
base[1]= VV[149]; |
2414 |
base[2]= (V436); |
base[2]= (V393); |
2415 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2416 |
Lerror(); |
Lerror(); |
2417 |
return; |
return; |
2419 |
} |
} |
2420 |
/* local entry for function BUILT-IN-WRAPPER-OF */ |
/* local entry for function BUILT-IN-WRAPPER-OF */ |
2421 |
|
|
2422 |
static object LI39(V442) |
static object LI39(V399) |
2423 |
|
|
2424 |
register object V442; |
register object V399; |
2425 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
2426 |
goto TTL; |
goto TTL; |
2427 |
TTL:;{object V443; |
TTL:;{object V400; |
2428 |
if(type_of((V442))==t_symbol){ |
if(type_of((V399))==t_symbol){ |
2429 |
goto T1010;} |
goto T1028;} |
2430 |
V443= Cnil; |
V400= Cnil; |
2431 |
goto T1009; |
goto T1027; |
|
goto T1010; |
|
|
T1010:;{object V444; |
|
|
if(((V442))==Cnil){ |
|
|
goto T1014;} |
|
|
V444= Cnil; |
|
|
goto T1013; |
|
|
goto T1014; |
|
|
T1014:; |
|
|
V444= (VV[131]->s.s_dbind); |
|
|
goto T1013; |
|
|
T1013:; |
|
|
if(V444==Cnil)goto T1012; |
|
|
V443= V444; |
|
|
goto T1009; |
|
|
goto T1012; |
|
|
T1012:;} |
|
|
V443= (VV[130]->s.s_dbind); |
|
|
goto T1009; |
|
|
T1009:; |
|
|
if(V443==Cnil)goto T1008; |
|
|
{object V445 = V443; |
|
|
VMR23(V445)} |
|
|
goto T1008; |
|
|
T1008:;}{object V446; |
|
|
if(type_of((V442))==t_character){ |
|
|
goto T1018;} |
|
|
V446= Cnil; |
|
|
goto T1017; |
|
|
goto T1018; |
|
|
T1018:; |
|
|
V446= (VV[141]->s.s_dbind); |
|
|
goto T1017; |
|
|
T1017:; |
|
|
if(V446==Cnil)goto T1016; |
|
|
{object V447 = V446; |
|
|
VMR23(V447)} |
|
|
goto T1016; |
|
|
T1016:;}{object V448; |
|
|
if(type_of((V442))==t_array|| |
|
|
type_of((V442))==t_vector|| |
|
|
type_of((V442))==t_string|| |
|
|
type_of((V442))==t_bitvector){ |
|
|
goto T1022;} |
|
|
V448= Cnil; |
|
|
goto T1021; |
|
|
goto T1022; |
|
|
T1022:;{object V449; |
|
|
if(type_of((V442))==t_vector|| |
|
|
type_of((V442))==t_string|| |
|
|
type_of((V442))==t_bitvector){ |
|
|
goto T1026;} |
|
|
V449= Cnil; |
|
|
goto T1025; |
|
|
goto T1026; |
|
|
T1026:;{object V450; |
|
|
if((type_of((V442))==t_bitvector)){ |
|
|
goto T1030;} |
|
|
V450= Cnil; |
|
|
goto T1029; |
|
|
goto T1030; |
|
|
T1030:; |
|
|
V450= (VV[144]->s.s_dbind); |
|
|
goto T1029; |
|
|
T1029:; |
|
|
if(V450==Cnil)goto T1028; |
|
|
V449= V450; |
|
|
goto T1025; |
|
2432 |
goto T1028; |
goto T1028; |
2433 |
T1028:;}{object V451; |
T1028:;{object V401; |
2434 |
if(type_of((V442))==t_string){ |
if(((V399))==Cnil){ |
2435 |
goto T1034;} |
goto T1032;} |
2436 |
V451= Cnil; |
V401= Cnil; |
2437 |
goto T1033; |
goto T1031; |
|
goto T1034; |
|
|
T1034:; |
|
|
V451= (VV[145]->s.s_dbind); |
|
|
goto T1033; |
|
|
T1033:; |
|
|
if(V451==Cnil)goto T1032; |
|
|
V449= V451; |
|
|
goto T1025; |
|
2438 |
goto T1032; |
goto T1032; |
2439 |
T1032:;} |
T1032:; |
2440 |
V449= (VV[143]->s.s_dbind); |
V401= (VV[140]->s.s_dbind); |
2441 |
goto T1025; |
goto T1031; |
2442 |
T1025:; |
T1031:; |
2443 |
if(V449==Cnil)goto T1024; |
if(V401==Cnil)goto T1030; |
2444 |
V448= V449; |
V400= V401; |
2445 |
goto T1021; |
goto T1027; |
2446 |
goto T1024; |
goto T1030; |
2447 |
T1024:;} |
T1030:;} |
2448 |
V448= (VV[142]->s.s_dbind); |
V400= (VV[139]->s.s_dbind); |
2449 |
goto T1021; |
goto T1027; |
2450 |
T1021:; |
T1027:; |
2451 |
if(V448==Cnil)goto T1020; |
if(V400==Cnil)goto T1026; |
2452 |
{object V452 = V448; |
{object V402 = V400; |
2453 |
VMR23(V452)} |
VMR23(V402)} |
2454 |
goto T1020; |
goto T1026; |
2455 |
T1020:;}{object V453; |
T1026:;}{object V403; |
2456 |
if(!(type_of(V442)==t_cons||(V442)==Cnil)){ |
if(type_of((V399))==t_character){ |
2457 |
|
goto T1036;} |
2458 |
|
V403= Cnil; |
2459 |
|
goto T1035; |
2460 |
|
goto T1036; |
2461 |
|
T1036:; |
2462 |
|
V403= (VV[150]->s.s_dbind); |
2463 |
|
goto T1035; |
2464 |
|
T1035:; |
2465 |
|
if(V403==Cnil)goto T1034; |
2466 |
|
{object V404 = V403; |
2467 |
|
VMR23(V404)} |
2468 |
|
goto T1034; |
2469 |
|
T1034:;}{object V405; |
2470 |
|
if(type_of((V399))==t_array|| |
2471 |
|
type_of((V399))==t_vector|| |
2472 |
|
type_of((V399))==t_string|| |
2473 |
|
type_of((V399))==t_bitvector){ |
2474 |
goto T1040;} |
goto T1040;} |
2475 |
goto T1038; |
V405= Cnil; |
2476 |
|
goto T1039; |
2477 |
goto T1040; |
goto T1040; |
2478 |
T1040:; |
T1040:;{object V406; |
2479 |
if(type_of(V442)==t_vector|| |
if(type_of((V399))==t_vector|| |
2480 |
type_of(V442)==t_string|| |
type_of((V399))==t_string|| |
2481 |
type_of(V442)==t_bitvector){ |
type_of((V399))==t_bitvector){ |
|
goto T1038;} |
|
|
V453= Cnil; |
|
|
goto T1037; |
|
|
goto T1038; |
|
|
T1038:;{object V455; |
|
|
if(type_of((V442))==t_vector|| |
|
|
type_of((V442))==t_string|| |
|
|
type_of((V442))==t_bitvector){ |
|
2482 |
goto T1044;} |
goto T1044;} |
2483 |
V455= Cnil; |
V406= Cnil; |
2484 |
goto T1043; |
goto T1043; |
2485 |
goto T1044; |
goto T1044; |
2486 |
T1044:;{object V456; |
T1044:;{object V407; |
2487 |
if((type_of((V442))==t_bitvector)){ |
if((type_of((V399))==t_bitvector)){ |
2488 |
goto T1048;} |
goto T1048;} |
2489 |
V456= Cnil; |
V407= Cnil; |
2490 |
goto T1047; |
goto T1047; |
2491 |
goto T1048; |
goto T1048; |
2492 |
T1048:; |
T1048:; |
2493 |
V456= (VV[144]->s.s_dbind); |
V407= (VV[153]->s.s_dbind); |
2494 |
goto T1047; |
goto T1047; |
2495 |
T1047:; |
T1047:; |
2496 |
if(V456==Cnil)goto T1046; |
if(V407==Cnil)goto T1046; |
2497 |
V455= V456; |
V406= V407; |
2498 |
goto T1043; |
goto T1043; |
2499 |
goto T1046; |
goto T1046; |
2500 |
T1046:;}{object V457; |
T1046:;}{object V408; |
2501 |
if(type_of((V442))==t_string){ |
if(type_of((V399))==t_string){ |
2502 |
goto T1052;} |
goto T1052;} |
2503 |
V457= Cnil; |
V408= Cnil; |
2504 |
goto T1051; |
goto T1051; |
2505 |
goto T1052; |
goto T1052; |
2506 |
T1052:; |
T1052:; |
2507 |
V457= (VV[145]->s.s_dbind); |
V408= (VV[154]->s.s_dbind); |
2508 |
goto T1051; |
goto T1051; |
2509 |
T1051:; |
T1051:; |
2510 |
if(V457==Cnil)goto T1050; |
if(V408==Cnil)goto T1050; |
2511 |
V455= V457; |
V406= V408; |
2512 |
goto T1043; |
goto T1043; |
2513 |
goto T1050; |
goto T1050; |
2514 |
T1050:;} |
T1050:;} |
2515 |
V455= (VV[143]->s.s_dbind); |
V406= (VV[152]->s.s_dbind); |
2516 |
goto T1043; |
goto T1043; |
2517 |
T1043:; |
T1043:; |
2518 |
if(V455==Cnil)goto T1042; |
if(V406==Cnil)goto T1042; |
2519 |
V453= V455; |
V405= V406; |
2520 |
goto T1037; |
goto T1039; |
2521 |
goto T1042; |
goto T1042; |
2522 |
T1042:;}{object V458; |
T1042:;} |
2523 |
if(!(type_of(V442)==t_cons)){ |
V405= (VV[151]->s.s_dbind); |
2524 |
|
goto T1039; |
2525 |
|
T1039:; |
2526 |
|
if(V405==Cnil)goto T1038; |
2527 |
|
{object V409 = V405; |
2528 |
|
VMR23(V409)} |
2529 |
|
goto T1038; |
2530 |
|
T1038:;}{object V410; |
2531 |
|
if(!(type_of(V399)==t_cons||(V399)==Cnil)){ |
2532 |
goto T1058;} |
goto T1058;} |
2533 |
goto T1056; |
goto T1056; |
2534 |
goto T1058; |
goto T1058; |
2535 |
T1058:; |
T1058:; |
2536 |
if((V442)==Cnil){ |
if(type_of(V399)==t_vector|| |
2537 |
|
type_of(V399)==t_string|| |
2538 |
|
type_of(V399)==t_bitvector){ |
2539 |
goto T1056;} |
goto T1056;} |
2540 |
V458= Cnil; |
V410= Cnil; |
2541 |
goto T1055; |
goto T1055; |
2542 |
goto T1056; |
goto T1056; |
2543 |
T1056:;{object V460; |
T1056:;{object V412; |
2544 |
if(((V442))==Cnil){ |
if(type_of((V399))==t_vector|| |
2545 |
|
type_of((V399))==t_string|| |
2546 |
|
type_of((V399))==t_bitvector){ |
2547 |
goto T1062;} |
goto T1062;} |
2548 |
V460= Cnil; |
V412= Cnil; |
2549 |
goto T1061; |
goto T1061; |
2550 |
goto T1062; |
goto T1062; |
2551 |
T1062:; |
T1062:;{object V413; |
2552 |
V460= (VV[131]->s.s_dbind); |
if((type_of((V399))==t_bitvector)){ |
|
goto T1061; |
|
|
T1061:; |
|
|
if(V460==Cnil)goto T1060; |
|
|
V458= V460; |
|
|
goto T1055; |
|
|
goto T1060; |
|
|
T1060:;}{object V461; |
|
|
if(type_of((V442))==t_cons){ |
|
2553 |
goto T1066;} |
goto T1066;} |
2554 |
V461= Cnil; |
V413= Cnil; |
2555 |
goto T1065; |
goto T1065; |
2556 |
goto T1066; |
goto T1066; |
2557 |
T1066:; |
T1066:; |
2558 |
V461= (VV[148]->s.s_dbind); |
V413= (VV[153]->s.s_dbind); |
2559 |
goto T1065; |
goto T1065; |
2560 |
T1065:; |
T1065:; |
2561 |
if(V461==Cnil)goto T1064; |
if(V413==Cnil)goto T1064; |
2562 |
V458= V461; |
V412= V413; |
2563 |
goto T1055; |
goto T1061; |
2564 |
goto T1064; |
goto T1064; |
2565 |
T1064:;} |
T1064:;}{object V414; |
2566 |
V458= (VV[147]->s.s_dbind); |
if(type_of((V399))==t_string){ |
|
goto T1055; |
|
|
T1055:; |
|
|
if(V458==Cnil)goto T1054; |
|
|
V453= V458; |
|
|
goto T1037; |
|
|
goto T1054; |
|
|
T1054:;} |
|
|
V453= (VV[146]->s.s_dbind); |
|
|
goto T1037; |
|
|
T1037:; |
|
|
if(V453==Cnil)goto T1036; |
|
|
{object V462 = V453; |
|
|
VMR23(V462)} |
|
|
goto T1036; |
|
|
T1036:;}{object V463; |
|
|
if(type_of((V442))==t_fixnum|| |
|
|
type_of((V442))==t_bignum|| |
|
|
type_of((V442))==t_ratio|| |
|
|
type_of((V442))==t_shortfloat|| |
|
|
type_of((V442))==t_longfloat|| |
|
|
type_of((V442))==t_complex){ |
|
2567 |
goto T1070;} |
goto T1070;} |
2568 |
V463= Cnil; |
V414= Cnil; |
2569 |
goto T1069; |
goto T1069; |
2570 |
goto T1070; |
goto T1070; |
2571 |
T1070:;{object V464; |
T1070:; |
2572 |
base[0]= (V442); |
V414= (VV[154]->s.s_dbind); |
2573 |
base[1]= VV[156]; |
goto T1069; |
2574 |
vs_top=(vs_base=base+0)+2; |
T1069:; |
2575 |
(void) (*Lnk240)(); |
if(V414==Cnil)goto T1068; |
2576 |
vs_top=sup; |
V412= V414; |
2577 |
if((vs_base[0])!=Cnil){ |
goto T1061; |
2578 |
|
goto T1068; |
2579 |
|
T1068:;} |
2580 |
|
V412= (VV[152]->s.s_dbind); |
2581 |
|
goto T1061; |
2582 |
|
T1061:; |
2583 |
|
if(V412==Cnil)goto T1060; |
2584 |
|
V410= V412; |
2585 |
|
goto T1055; |
2586 |
|
goto T1060; |
2587 |
|
T1060:;}{object V415; |
2588 |
|
if(!(type_of(V399)==t_cons)){ |
2589 |
|
goto T1076;} |
2590 |
|
goto T1074; |
2591 |
|
goto T1076; |
2592 |
|
T1076:; |
2593 |
|
if((V399)==Cnil){ |
2594 |
goto T1074;} |
goto T1074;} |
2595 |
V464= Cnil; |
V415= Cnil; |
2596 |
goto T1073; |
goto T1073; |
2597 |
goto T1074; |
goto T1074; |
2598 |
T1074:;{object V465; |
T1074:;{object V417; |
2599 |
base[0]= (V442); |
if(((V399))==Cnil){ |
|
vs_top=(vs_base=base+0)+1; |
|
|
(void) (*Lnk241)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])!=Cnil){ |
|
2600 |
goto T1080;} |
goto T1080;} |
2601 |
V465= Cnil; |
V417= Cnil; |
2602 |
goto T1079; |
goto T1079; |
2603 |
goto T1080; |
goto T1080; |
2604 |
T1080:;{object V466; |
T1080:; |
2605 |
if(type_of((V442))==t_ratio){ |
V417= (VV[140]->s.s_dbind); |
|
goto T1085;} |
|
|
V466= Cnil; |
|
|
goto T1084; |
|
|
goto T1085; |
|
|
T1085:; |
|
|
V466= (VV[152]->s.s_dbind); |
|
|
goto T1084; |
|
|
T1084:; |
|
|
if(V466==Cnil)goto T1083; |
|
|
V465= V466; |
|
|
goto T1079; |
|
|
goto T1083; |
|
|
T1083:;}{object V467; |
|
|
if(type_of((V442))==t_fixnum||type_of((V442))==t_bignum){ |
|
|
goto T1089;} |
|
|
V467= Cnil; |
|
|
goto T1088; |
|
|
goto T1089; |
|
|
T1089:; |
|
|
V467= (VV[153]->s.s_dbind); |
|
|
goto T1088; |
|
|
T1088:; |
|
|
if(V467==Cnil)goto T1087; |
|
|
V465= V467; |
|
|
goto T1079; |
|
|
goto T1087; |
|
|
T1087:;} |
|
|
V465= (VV[151]->s.s_dbind); |
|
2606 |
goto T1079; |
goto T1079; |
2607 |
T1079:; |
T1079:; |
2608 |
if(V465==Cnil)goto T1078; |
if(V417==Cnil)goto T1078; |
2609 |
V464= V465; |
V415= V417; |
2610 |
goto T1073; |
goto T1073; |
2611 |
goto T1078; |
goto T1078; |
2612 |
T1078:;}{object V468; |
T1078:;}{object V418; |
2613 |
if(type_of((V442))==t_shortfloat||type_of((V442))==t_longfloat){ |
if(type_of((V399))==t_cons){ |
2614 |
goto T1093;} |
goto T1084;} |
2615 |
V468= Cnil; |
V418= Cnil; |
2616 |
goto T1092; |
goto T1083; |
2617 |
goto T1093; |
goto T1084; |
2618 |
T1093:; |
T1084:; |
2619 |
V468= (VV[154]->s.s_dbind); |
V418= (VV[157]->s.s_dbind); |
2620 |
goto T1092; |
goto T1083; |
2621 |
T1092:; |
T1083:; |
2622 |
if(V468==Cnil)goto T1091; |
if(V418==Cnil)goto T1082; |
2623 |
V464= V468; |
V415= V418; |
2624 |
goto T1073; |
goto T1073; |
2625 |
goto T1091; |
goto T1082; |
2626 |
T1091:;} |
T1082:;} |
2627 |
V464= (VV[150]->s.s_dbind); |
V415= (VV[156]->s.s_dbind); |
2628 |
goto T1073; |
goto T1073; |
2629 |
T1073:; |
T1073:; |
2630 |
if(V464==Cnil)goto T1072; |
if(V415==Cnil)goto T1072; |
2631 |
V463= V464; |
V410= V415; |
2632 |
goto T1069; |
goto T1055; |
2633 |
goto T1072; |
goto T1072; |
2634 |
T1072:;}{object V469; |
T1072:;} |
2635 |
base[0]= (V442); |
V410= (VV[155]->s.s_dbind); |
2636 |
|
goto T1055; |
2637 |
|
T1055:; |
2638 |
|
if(V410==Cnil)goto T1054; |
2639 |
|
{object V419 = V410; |
2640 |
|
VMR23(V419)} |
2641 |
|
goto T1054; |
2642 |
|
T1054:;}{object V420; |
2643 |
|
if(type_of((V399))==t_fixnum|| |
2644 |
|
type_of((V399))==t_bignum|| |
2645 |
|
type_of((V399))==t_ratio|| |
2646 |
|
type_of((V399))==t_shortfloat|| |
2647 |
|
type_of((V399))==t_longfloat|| |
2648 |
|
type_of((V399))==t_complex){ |
2649 |
|
goto T1088;} |
2650 |
|
V420= Cnil; |
2651 |
|
goto T1087; |
2652 |
|
goto T1088; |
2653 |
|
T1088:;{object V421; |
2654 |
|
base[0]= (V399); |
2655 |
|
base[1]= VV[165]; |
2656 |
|
vs_top=(vs_base=base+0)+2; |
2657 |
|
(void) (*Lnk250)(); |
2658 |
|
vs_top=sup; |
2659 |
|
if((vs_base[0])!=Cnil){ |
2660 |
|
goto T1092;} |
2661 |
|
V421= Cnil; |
2662 |
|
goto T1091; |
2663 |
|
goto T1092; |
2664 |
|
T1092:;{object V422; |
2665 |
|
base[0]= (V399); |
2666 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2667 |
Lcomplexp(); |
(void) (*Lnk251)(); |
2668 |
vs_top=sup; |
vs_top=sup; |
2669 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2670 |
goto T1097;} |
goto T1098;} |
2671 |
V469= Cnil; |
V422= Cnil; |
2672 |
goto T1096; |
goto T1097; |
2673 |
|
goto T1098; |
2674 |
|
T1098:;{object V423; |
2675 |
|
if(type_of((V399))==t_ratio){ |
2676 |
|
goto T1103;} |
2677 |
|
V423= Cnil; |
2678 |
|
goto T1102; |
2679 |
|
goto T1103; |
2680 |
|
T1103:; |
2681 |
|
V423= (VV[161]->s.s_dbind); |
2682 |
|
goto T1102; |
2683 |
|
T1102:; |
2684 |
|
if(V423==Cnil)goto T1101; |
2685 |
|
V422= V423; |
2686 |
|
goto T1097; |
2687 |
|
goto T1101; |
2688 |
|
T1101:;}{object V424; |
2689 |
|
if(type_of((V399))==t_fixnum||type_of((V399))==t_bignum){ |
2690 |
|
goto T1107;} |
2691 |
|
V424= Cnil; |
2692 |
|
goto T1106; |
2693 |
|
goto T1107; |
2694 |
|
T1107:; |
2695 |
|
V424= (VV[162]->s.s_dbind); |
2696 |
|
goto T1106; |
2697 |
|
T1106:; |
2698 |
|
if(V424==Cnil)goto T1105; |
2699 |
|
V422= V424; |
2700 |
|
goto T1097; |
2701 |
|
goto T1105; |
2702 |
|
T1105:;} |
2703 |
|
V422= (VV[160]->s.s_dbind); |
2704 |
goto T1097; |
goto T1097; |
2705 |
T1097:; |
T1097:; |
2706 |
V469= (VV[155]->s.s_dbind); |
if(V422==Cnil)goto T1096; |
2707 |
|
V421= V422; |
2708 |
|
goto T1091; |
2709 |
goto T1096; |
goto T1096; |
2710 |
T1096:; |
T1096:;}{object V425; |
2711 |
if(V469==Cnil)goto T1095; |
if(type_of((V399))==t_shortfloat||type_of((V399))==t_longfloat){ |
2712 |
V463= V469; |
goto T1111;} |
2713 |
goto T1069; |
V425= Cnil; |
2714 |
goto T1095; |
goto T1110; |
2715 |
T1095:;} |
goto T1111; |
2716 |
V463= (VV[149]->s.s_dbind); |
T1111:; |
2717 |
goto T1069; |
V425= (VV[163]->s.s_dbind); |
2718 |
T1069:; |
goto T1110; |
2719 |
if(V463==Cnil)goto T1068; |
T1110:; |
2720 |
{object V470 = V463; |
if(V425==Cnil)goto T1109; |
2721 |
VMR23(V470)} |
V421= V425; |
2722 |
goto T1068; |
goto T1091; |
2723 |
T1068:;} |
goto T1109; |
2724 |
{object V471 = (VV[38]->s.s_dbind); |
T1109:;} |
2725 |
VMR23(V471)} |
V421= (VV[159]->s.s_dbind); |
2726 |
|
goto T1091; |
2727 |
|
T1091:; |
2728 |
|
if(V421==Cnil)goto T1090; |
2729 |
|
V420= V421; |
2730 |
|
goto T1087; |
2731 |
|
goto T1090; |
2732 |
|
T1090:;}{object V426; |
2733 |
|
base[0]= (V399); |
2734 |
|
vs_top=(vs_base=base+0)+1; |
2735 |
|
Lcomplexp(); |
2736 |
|
vs_top=sup; |
2737 |
|
if((vs_base[0])!=Cnil){ |
2738 |
|
goto T1115;} |
2739 |
|
V426= Cnil; |
2740 |
|
goto T1114; |
2741 |
|
goto T1115; |
2742 |
|
T1115:; |
2743 |
|
V426= (VV[164]->s.s_dbind); |
2744 |
|
goto T1114; |
2745 |
|
T1114:; |
2746 |
|
if(V426==Cnil)goto T1113; |
2747 |
|
V420= V426; |
2748 |
|
goto T1087; |
2749 |
|
goto T1113; |
2750 |
|
T1113:;} |
2751 |
|
V420= (VV[158]->s.s_dbind); |
2752 |
|
goto T1087; |
2753 |
|
T1087:; |
2754 |
|
if(V420==Cnil)goto T1086; |
2755 |
|
{object V427 = V420; |
2756 |
|
VMR23(V427)} |
2757 |
|
goto T1086; |
2758 |
|
T1086:;} |
2759 |
|
{object V428 = (VV[46]->s.s_dbind); |
2760 |
|
VMR23(V428)} |
2761 |
base[0]=base[0]; |
base[0]=base[0]; |
2762 |
return Cnil; |
return Cnil; |
2763 |
} |
} |
2764 |
/* local entry for function METHOD-FUNCTION-RETURNING-NIL */ |
/* local entry for function METHOD-FUNCTION-RETURNING-NIL */ |
2765 |
|
|
2766 |
static object LI40(V474,V475) |
static object LI40(V431,V432) |
2767 |
|
|
2768 |
object V474;object V475; |
object V431;object V432; |
2769 |
{ VMB24 VMS24 VMV24 |
{ VMB24 VMS24 VMV24 |
2770 |
goto TTL; |
goto TTL; |
2771 |
TTL:; |
TTL:; |
2772 |
{object V476 = Cnil; |
{object V433 = Cnil; |
2773 |
VMR24(V476)} |
VMR24(V433)} |
2774 |
return Cnil; |
return Cnil; |
2775 |
} |
} |
2776 |
/* local entry for function METHOD-FUNCTION-RETURNING-T */ |
/* local entry for function METHOD-FUNCTION-RETURNING-T */ |
2777 |
|
|
2778 |
static object LI41(V479,V480) |
static object LI41(V436,V437) |
2779 |
|
|
2780 |
object V479;object V480; |
object V436;object V437; |
2781 |
{ VMB25 VMS25 VMV25 |
{ VMB25 VMS25 VMV25 |
2782 |
goto TTL; |
goto TTL; |
2783 |
TTL:; |
TTL:; |
2784 |
{object V481 = Ct; |
{object V438 = Ct; |
2785 |
VMR25(V481)} |
VMR25(V438)} |
2786 |
return Cnil; |
return Cnil; |
2787 |
} |
} |
2788 |
/* local entry for function MAKE-CLASS-PREDICATE */ |
/* local entry for function MAKE-CLASS-PREDICATE */ |
2789 |
|
|
2790 |
static object LI42(V484,V485) |
static object LI42(V441,V442) |
2791 |
|
|
2792 |
object V484;object V485; |
object V441;object V442; |
2793 |
{ VMB26 VMS26 VMV26 |
{ VMB26 VMS26 VMV26 |
2794 |
goto TTL; |
goto TTL; |
2795 |
TTL:; |
TTL:; |
2796 |
{register object V486; |
{register object V443; |
2797 |
object V487; |
object V444; |
2798 |
base[2]= (V485); |
base[2]= (V442); |
2799 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2800 |
(void) (*Lnk210)(); |
(void) (*Lnk220)(); |
2801 |
vs_top=sup; |
vs_top=sup; |
2802 |
V486= vs_base[0]; |
V443= vs_base[0]; |
2803 |
if(!(((VV[157]->s.s_dbind))==(VV[158]))){ |
if(!(((VV[166]->s.s_dbind))==(VV[167]))){ |
2804 |
goto T1104;} |
goto T1122;} |
2805 |
base[2]= (V486); |
base[2]= (V443); |
2806 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2807 |
(void) (*Lnk242)(Lclptr242); |
(void) (*Lnk252)(Lclptr252); |
2808 |
vs_top=sup; |
vs_top=sup; |
2809 |
V487= vs_base[0]; |
V444= vs_base[0]; |
2810 |
goto T1102; |
goto T1120; |
2811 |
goto T1104; |
goto T1122; |
2812 |
T1104:; |
T1122:; |
2813 |
if(type_of(V486)==t_structure){ |
if(type_of(V443)==t_structure){ |
2814 |
goto T1111;} |
goto T1129;} |
2815 |
goto T1109; |
goto T1127; |
2816 |
goto T1111; |
goto T1129; |
2817 |
T1111:; |
T1129:; |
2818 |
if(!(((V486)->str.str_def)==(VV[159]))){ |
if(!(((V443)->str.str_def)==(VV[168]))){ |
2819 |
goto T1109;} |
goto T1127;} |
2820 |
V488= STREF(object,(V486),4); |
V445= STREF(object,(V443),4); |
2821 |
goto T1107; |
goto T1125; |
2822 |
goto T1109; |
goto T1127; |
2823 |
T1109:;{object V490; |
T1127:;{object V447; |
2824 |
V490= (VV[45]->s.s_dbind); |
V447= (VV[53]->s.s_dbind); |
2825 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2826 |
base[3]= (V486); |
base[3]= (V443); |
2827 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2828 |
(void) (*Lnk194)(); |
(void) (*Lnk204)(); |
2829 |
vs_top=sup; |
vs_top=sup; |
2830 |
V491= vs_base[0]; |
V448= vs_base[0]; |
2831 |
if(!((V490)==(CMPcar(V491)))){ |
if(!((V447)==(CMPcar(V448)))){ |
2832 |
goto T1114;}} |
goto T1132;}} |
2833 |
V488= CMPcar(((V486))->cc.cc_turbo[12]); |
V445= CMPcar(((V443))->cc.cc_turbo[12]); |
2834 |
goto T1107; |
goto T1125; |
2835 |
goto T1114; |
goto T1132; |
2836 |
T1114:; |
T1132:; |
2837 |
base[2]= VV[46]; |
base[2]= VV[54]; |
2838 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2839 |
Lerror(); |
Lerror(); |
2840 |
vs_top=sup; |
vs_top=sup; |
2841 |
V488= vs_base[0]; |
V445= vs_base[0]; |
2842 |
goto T1107; |
goto T1125; |
2843 |
T1107:; |
T1125:; |
2844 |
V492 = (VV[117]->s.s_dbind); |
V444= (V445)->v.v_self[fix((VV[126]->s.s_dbind))]; |
2845 |
V487= (V488)->v.v_self[fix(V492)]; |
goto T1120; |
2846 |
goto T1102; |
T1120:; |
2847 |
T1102:; |
if(((V444))!=Cnil){ |
2848 |
if(((V487))!=Cnil){ |
goto T1138;} |
2849 |
goto T1120;} |
if(((V441))==((VV[169]->s.s_dbind))){ |
2850 |
if(((V484))==((VV[160]->s.s_dbind))){ |
goto T1141;} |
2851 |
goto T1123;} |
{object V449; |
2852 |
{object V493; |
object V450; |
2853 |
object V494; |
object V451; |
2854 |
object V495; |
V449= (VV[253]->s.s_gfdef); |
2855 |
V493= (VV[243]->s.s_gfdef); |
V450= list(2,VV[170],(V449)); |
2856 |
V494= list(2,VV[161],(V493)); |
base[5]= VV[171]; |
|
base[5]= VV[162]; |
|
2857 |
base[6]= Cnil; |
base[6]= Cnil; |
2858 |
base[7]= make_cons(VV[57],Cnil); |
base[7]= make_cons(VV[65],Cnil); |
2859 |
base[8]= make_cons((VV[160]->s.s_dbind),Cnil); |
base[8]= make_cons((VV[169]->s.s_dbind),Cnil); |
2860 |
base[9]= (V494); |
base[9]= (V450); |
2861 |
base[10]= VV[163]; |
base[10]= VV[172]; |
2862 |
V495= simple_symlispcall(VV[216],base+5,6); |
V451= simple_symlispcall(VV[226],base+5,6); |
2863 |
V499= ({object _tmp=get(VV[244],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[244])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[244])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V455= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V500 = Cnil; |
|
|
V501 = V493; |
|
|
V502 = VV[164]; |
|
2864 |
(void)(( |
(void)(( |
2865 |
V503 = V499, |
V456 = V455, |
2866 |
(type_of(V503) == t_sfun ?(*((V503)->sfn.sfn_self)): |
(type_of(V456) == t_sfun ?(*((V456)->sfn.sfn_self)): |
2867 |
(fcall.argd=3,type_of(V503)==t_vfun) ? |
(fcall.argd=3,type_of(V456)==t_vfun) ? |
2868 |
(*((V503)->sfn.sfn_self)): |
(*((V456)->sfn.sfn_self)): |
2869 |
(fcall.fun=(V503),fcalln))(V500,V501,V502))); |
(fcall.fun=(V456),fcalln))(Cnil,V449,VV[173]))); |
2870 |
base[5]= (V486); |
base[5]= (V443); |
2871 |
base[6]= (V495); |
base[6]= (V451); |
2872 |
(void)simple_symlispcall(VV[215],base+5,2);} |
(void)simple_symlispcall(VV[225],base+5,2);} |
2873 |
goto T1123; |
goto T1141; |
2874 |
T1123:; |
T1141:; |
2875 |
{object V504; |
{object V457; |
2876 |
object V505; |
object V458; |
2877 |
object V506; |
object V459; |
2878 |
V504= (VV[245]->s.s_gfdef); |
V457= (VV[255]->s.s_gfdef); |
2879 |
V505= list(2,VV[161],(V504)); |
V458= list(2,VV[170],(V457)); |
2880 |
base[5]= VV[162]; |
base[5]= VV[171]; |
2881 |
base[6]= Cnil; |
base[6]= Cnil; |
2882 |
base[7]= make_cons(VV[57],Cnil); |
base[7]= make_cons(VV[65],Cnil); |
2883 |
base[8]= make_cons((V484),Cnil); |
base[8]= make_cons((V441),Cnil); |
2884 |
base[9]= (V505); |
base[9]= (V458); |
2885 |
base[10]= VV[165]; |
base[10]= VV[174]; |
2886 |
V506= simple_symlispcall(VV[216],base+5,6); |
V459= simple_symlispcall(VV[226],base+5,6); |
2887 |
V510= ({object _tmp=get(VV[244],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[244])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[244])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V463= ({object _tmp=get(VV[254],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[254])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[254])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V511 = Ct; |
|
|
V512 = V504; |
|
|
V513 = VV[164]; |
|
2888 |
(void)(( |
(void)(( |
2889 |
V514 = V510, |
V464 = V463, |
2890 |
(type_of(V514) == t_sfun ?(*((V514)->sfn.sfn_self)): |
(type_of(V464) == t_sfun ?(*((V464)->sfn.sfn_self)): |
2891 |
(fcall.argd=3,type_of(V514)==t_vfun) ? |
(fcall.argd=3,type_of(V464)==t_vfun) ? |
2892 |
(*((V514)->sfn.sfn_self)): |
(*((V464)->sfn.sfn_self)): |
2893 |
(fcall.fun=(V514),fcalln))(V511,V512,V513))); |
(fcall.fun=(V464),fcalln))(Ct,V457,VV[173]))); |
2894 |
base[5]= (V486); |
base[5]= (V443); |
2895 |
base[6]= (V506); |
base[6]= (V459); |
2896 |
(void)simple_symlispcall(VV[215],base+5,2);} |
(void)simple_symlispcall(VV[225],base+5,2);} |
2897 |
goto T1120; |
goto T1138; |
2898 |
T1120:; |
T1138:; |
2899 |
{object V515 = (V486); |
{object V465 = (V443); |
2900 |
VMR26(V515)}} |
VMR26(V465)}} |
2901 |
base[0]=base[0]; |
base[0]=base[0]; |
2902 |
return Cnil; |
return Cnil; |
2903 |
} |
} |
2904 |
/* function definition for G5599 */ |
/* function definition for G5978 */ |
2905 |
|
|
2906 |
static void L43() |
static void L43() |
2907 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2911 |
vs_top=sup; |
vs_top=sup; |
2912 |
goto TTL; |
goto TTL; |
2913 |
TTL:; |
TTL:; |
2914 |
base[0]= VV[166]; |
base[0]= VV[175]; |
2915 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
2916 |
return; |
return; |
2917 |
} |
} |
2921 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2922 |
register object *sup=base+VM28; VC28 |
register object *sup=base+VM28; VC28 |
2923 |
vs_check; |
vs_check; |
2924 |
{object V516; |
{object V466; |
2925 |
object V517; |
object V467; |
2926 |
object V518; |
register object V468; |
2927 |
object V519; |
object V469; |
2928 |
check_arg(4); |
check_arg(4); |
2929 |
V516=(base[0]); |
V466=(base[0]); |
2930 |
V517=(base[1]); |
V467=(base[1]); |
2931 |
V518=(base[2]); |
V468=(base[2]); |
2932 |
V519=(base[3]); |
V469=(base[3]); |
2933 |
vs_top=sup; |
vs_top=sup; |
2934 |
goto TTL; |
goto TTL; |
2935 |
TTL:; |
TTL:; |
2936 |
base[4]= VV[167]; |
base[4]= VV[176]; |
2937 |
base[5]= VV[168]; |
base[5]= VV[177]; |
2938 |
base[6]= (V518); |
base[6]= (V468); |
2939 |
base[7]= V519; |
base[7]= V469; |
2940 |
vs_top=(vs_base=base+4)+4; |
vs_top=(vs_base=base+4)+4; |
2941 |
Lcerror(); |
Lcerror(); |
2942 |
vs_top=sup; |
vs_top=sup; |
2943 |
base[4]= (V518); |
base[4]= (V468); |
2944 |
{object V522; |
{object V472; |
2945 |
V522= V519; |
V472= V469; |
2946 |
vs_top=base+5; |
vs_top=base+5; |
2947 |
while(V522!=Cnil) |
while(V472!=Cnil) |
2948 |
{vs_push((V522)->c.c_car);V522=(V522)->c.c_cdr;} |
{vs_push((V472)->c.c_car);V472=(V472)->c.c_cdr;} |
2949 |
vs_base=base+5;} |
vs_base=base+5;} |
2950 |
{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)) |
2951 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2975 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2976 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM30; VC30 |
2977 |
vs_check; |
vs_check; |
2978 |
{object V523; |
{object V473; |
2979 |
check_arg(1); |
check_arg(1); |
2980 |
V523=(base[0]); |
V473=(base[0]); |
2981 |
vs_top=sup; |
vs_top=sup; |
2982 |
goto TTL; |
goto TTL; |
2983 |
TTL:; |
TTL:; |
2984 |
base[1]= base0[1]; |
base[1]= base0[1]; |
2985 |
base[2]= (V523); |
base[2]= (V473); |
2986 |
base[3]= base0[0]; |
base[3]= base0[0]; |
2987 |
base[4]= VV[122]; |
base[4]= VV[131]; |
2988 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
2989 |
(void) (*Lnk246)(); |
(void) (*Lnk256)(); |
2990 |
return; |
return; |
2991 |
} |
} |
2992 |
} |
} |
2997 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
2998 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM31; VC31 |
2999 |
vs_check; |
vs_check; |
3000 |
{object V524; |
{object V474; |
3001 |
check_arg(1); |
check_arg(1); |
3002 |
V524=(base[0]); |
V474=(base[0]); |
3003 |
vs_top=sup; |
vs_top=sup; |
3004 |
goto TTL; |
goto TTL; |
3005 |
TTL:; |
TTL:; |
3006 |
base[1]= base0[1]; |
base[1]= base0[1]; |
3007 |
base[2]= (V524); |
base[2]= (V474); |
3008 |
base[3]= base0[0]; |
base[3]= base0[0]; |
3009 |
base[4]= VV[121]; |
base[4]= VV[130]; |
3010 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3011 |
(void) (*Lnk246)(); |
(void) (*Lnk256)(); |
3012 |
return; |
return; |
3013 |
} |
} |
3014 |
} |
} |
3019 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3020 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM32; VC32 |
3021 |
vs_check; |
vs_check; |
3022 |
{object V525; |
{object V475; |
3023 |
check_arg(1); |
check_arg(1); |
3024 |
V525=(base[0]); |
V475=(base[0]); |
3025 |
vs_top=sup; |
vs_top=sup; |
3026 |
goto TTL; |
goto TTL; |
3027 |
TTL:; |
TTL:; |
3028 |
base[1]= base0[1]; |
base[1]= base0[1]; |
3029 |
base[2]= (V525); |
base[2]= (V475); |
3030 |
base[3]= base0[0]; |
base[3]= base0[0]; |
3031 |
base[4]= VV[120]; |
base[4]= VV[129]; |
3032 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3033 |
(void) (*Lnk246)(); |
(void) (*Lnk256)(); |
3034 |
return; |
return; |
3035 |
} |
} |
3036 |
} |
} |
3041 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3042 |
register object *sup=base+VM33; VC33 |
register object *sup=base+VM33; VC33 |
3043 |
vs_check; |
vs_check; |
3044 |
{object V526; |
{object V476; |
3045 |
object V527; |
object V477; |
3046 |
check_arg(2); |
check_arg(2); |
3047 |
V526=(base[0]); |
V476=(base[0]); |
3048 |
V527=(base[1]); |
V477=(base[1]); |
3049 |
vs_top=sup; |
vs_top=sup; |
3050 |
goto TTL; |
goto TTL; |
3051 |
TTL:; |
TTL:; |
3052 |
base[2]= (*(LnkLI197))(base0[1],base0[2],(V526),(V527)); |
base[2]= (*(LnkLI207))(base0[1],base0[2],(V476),(V477)); |
3053 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3054 |
return; |
return; |
3055 |
} |
} |
3061 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3062 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
3063 |
vs_check; |
vs_check; |
3064 |
{object V528; |
{object V478; |
3065 |
check_arg(1); |
check_arg(1); |
3066 |
V528=(base[0]); |
V478=(base[0]); |
3067 |
vs_top=sup; |
vs_top=sup; |
3068 |
goto TTL; |
goto TTL; |
3069 |
TTL:; |
TTL:; |
3070 |
base[1]= base0[0]; |
base[1]= base0[0]; |
3071 |
base[2]= (V528); |
base[2]= (V478); |
3072 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
3073 |
Lgetf(); |
Lgetf(); |
3074 |
return; |
return; |
3081 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3082 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
3083 |
vs_check; |
vs_check; |
3084 |
{object V529; |
{object V479; |
3085 |
object V530; |
object V480; |
3086 |
check_arg(2); |
check_arg(2); |
3087 |
V529=(base[0]); |
V479=(base[0]); |
3088 |
V530=(base[1]); |
V480=(base[1]); |
3089 |
vs_top=sup; |
vs_top=sup; |
3090 |
goto TTL; |
goto TTL; |
3091 |
TTL:; |
TTL:; |
3092 |
base[2]= (*(LnkLI197))(base0[0],base0[1],(V529),(V530)); |
base[2]= (*(LnkLI207))(base0[0],base0[1],(V479),(V480)); |
3093 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3094 |
return; |
return; |
3095 |
} |
} |
3101 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3102 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
3103 |
vs_check; |
vs_check; |
3104 |
{object V531; |
{object V481; |
3105 |
check_arg(1); |
check_arg(1); |
3106 |
V531=(base[0]); |
V481=(base[0]); |
3107 |
vs_top=sup; |
vs_top=sup; |
3108 |
goto TTL; |
goto TTL; |
3109 |
TTL:; |
TTL:; |
3110 |
base[2]=VV[25]->s.s_gfdef; |
base[2]=VV[25]->s.s_gfdef; |
3111 |
{object V532; |
{object V482; |
3112 |
object V533= (V531); |
object V483= (V481); |
3113 |
if(V533==Cnil){ |
if(V483==Cnil){ |
3114 |
base[3]= Cnil; |
base[3]= Cnil; |
3115 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3116 |
return;} |
return;} |
3117 |
base[1]=V532=MMcons(Cnil,Cnil); |
base[1]=V482=MMcons(Cnil,Cnil); |
3118 |
goto T1177; |
goto T1194; |
3119 |
T1177:; |
T1194:; |
3120 |
base[3]= (V533->c.c_car); |
base[3]= (V483->c.c_car); |
3121 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3122 |
(void) (*Lnk25)(); |
(void) (*Lnk25)(); |
3123 |
vs_top=sup; |
vs_top=sup; |
3124 |
(V532->c.c_car)= vs_base[0]; |
(V482->c.c_car)= vs_base[0]; |
3125 |
if((V533=MMcdr(V533))==Cnil){ |
if((V483=MMcdr(V483))==Cnil){ |
3126 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3127 |
return;} |
return;} |
3128 |
V532=MMcdr(V532)=MMcons(Cnil,Cnil); |
V482=MMcdr(V482)=MMcons(Cnil,Cnil); |
3129 |
goto T1177;} |
goto T1194;} |
3130 |
} |
} |
3131 |
} |
} |
3132 |
/* local function SET-SLOT */ |
/* local function SET-SLOT */ |
3136 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3137 |
register object *sup=base+VM37; VC37 |
register object *sup=base+VM37; VC37 |
3138 |
vs_check; |
vs_check; |
3139 |
{object V534; |
{object V484; |
3140 |
object V535; |
object V485; |
3141 |
check_arg(2); |
check_arg(2); |
3142 |
V534=(base[0]); |
V484=(base[0]); |
3143 |
V535=(base[1]); |
V485=(base[1]); |
3144 |
vs_top=sup; |
vs_top=sup; |
3145 |
goto TTL; |
goto TTL; |
3146 |
TTL:; |
TTL:; |
3147 |
base[2]= (*(LnkLI197))(VV[43],base0[3],(V534),(V535)); |
base[2]= (*(LnkLI207))(VV[51],base0[3],(V484),(V485)); |
3148 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3149 |
return; |
return; |
3150 |
} |
} |
3156 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3157 |
register object *sup=base+VM38; VC38 |
register object *sup=base+VM38; VC38 |
3158 |
vs_check; |
vs_check; |
3159 |
{object V536; |
{object V486; |
3160 |
check_arg(1); |
check_arg(1); |
3161 |
V536=(base[0]); |
V486=(base[0]); |
3162 |
vs_top=sup; |
vs_top=sup; |
3163 |
base[1]= Ct; |
base[1]= Ct; |
3164 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
3172 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
3173 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM39; VC39 |
3174 |
vs_check; |
vs_check; |
3175 |
{object V537; |
{object V487; |
3176 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
3177 |
{object *p=vs_top; |
{object *p=vs_top; |
3178 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
3179 |
V537=(base[0]); |
V487=(base[0]); |
3180 |
vs_top=sup; |
vs_top=sup; |
3181 |
base[1]= VV[10]; |
base[1]= VV[10]; |
3182 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
3186 |
} |
} |
3187 |
} |
} |
3188 |
static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* FIND-CLASS */ |
static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* FIND-CLASS */ |
3189 |
static void LnkT246(){ call_or_link(VV[246],(void **)(void *)&Lnk246);} /* BOOTSTRAP-ACCESSOR-DEFINITION */ |
static void LnkT256(){ call_or_link(VV[256],(void **)(void *)&Lnk256);} /* BOOTSTRAP-ACCESSOR-DEFINITION */ |
3190 |
static void LnkT242(ptr) object *ptr;{ call_or_link_closure(VV[242],(void **)(void *)&Lnk242,(void **)(void *)&Lclptr242);} /* GENERIC-FUNCTION-METHODS */ |
static void LnkT252(ptr) object *ptr;{ call_or_link_closure(VV[252],(void **)(void *)&Lnk252,(void **)(void *)&Lclptr252);} /* GENERIC-FUNCTION-METHODS */ |
3191 |
static void LnkT241(){ call_or_link(VV[241],(void **)(void *)&Lnk241);} /* RATIONALP */ |
static void LnkT251(){ call_or_link(VV[251],(void **)(void *)&Lnk251);} /* RATIONALP */ |
3192 |
static void LnkT240(){ call_or_link(VV[240],(void **)(void *)&Lnk240);} /* TYPEP */ |
static void LnkT250(){ call_or_link(VV[250],(void **)(void *)&Lnk250);} /* TYPEP */ |
3193 |
static void LnkT239(){ call_or_link(VV[239],(void **)(void *)&Lnk239);} /* ENSURE-CLASS */ |
static void LnkT249(){ call_or_link(VV[249],(void **)(void *)&Lnk249);} /* ENSURE-CLASS */ |
3194 |
static object LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
static object LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[248],(void **)(void *)&LnkLI248,1,first,ap);va_end(ap);return V1;} /* SLOT-INITARGS-FROM-STRUCTURE-SLOTD */ |
3195 |
static object LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-SLOT-DESCRIPTION-LIST */ |
3196 |
static object LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-INCLUDED-TYPE-NAME */ |
3197 |
static object LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[235],(void **)(void *)&LnkLI235,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */ |
static object LnkTLI245(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[245],(void **)(void *)&LnkLI245,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-TYPE-P */ |
3198 |
static object LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[234],(void **)(void *)&LnkLI234,1,first,ap);va_end(ap);return V1;} /* EVAL-FORM */ |
static object LnkTLI244(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[244],(void **)(void *)&LnkLI244,1,first,ap);va_end(ap);return V1;} /* EVAL-FORM */ |
3199 |
static void LnkT233(){ call_or_link(VV[233],(void **)(void *)&Lnk233);} /* STRUCTURE-SLOTD-INIT-FORM */ |
static void LnkT243(){ call_or_link(VV[243],(void **)(void *)&Lnk243);} /* STRUCTURE-SLOTD-INIT-FORM */ |
3200 |
static object LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */ |
static object LnkTLI242(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[242],(void **)(void *)&LnkLI242,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-TYPE */ |
3201 |
static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */ |
static object LnkTLI241(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[241],(void **)(void *)&LnkLI241,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-WRITER-FUNCTION */ |
3202 |
static object LnkTLI230(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[230],(void **)(void *)&LnkLI230,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */ |
static object LnkTLI240(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[240],(void **)(void *)&LnkLI240,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-READER-FUNCTION */ |
3203 |
static object LnkTLI229(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[229],(void **)(void *)&LnkLI229,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
static object LnkTLI239(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[239],(void **)(void *)&LnkLI239,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-ACCESSOR-SYMBOL */ |
3204 |
static object LnkTLI228(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[228],(void **)(void *)&LnkLI228,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */ |
static object LnkTLI238(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[238],(void **)(void *)&LnkLI238,1,first,ap);va_end(ap);return V1;} /* STRUCTURE-SLOTD-NAME */ |
3205 |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |
static object LnkTLI237(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[237],(void **)(void *)&LnkLI237,1,first,ap);va_end(ap);return V1;} /* WRAPPER-FOR-STRUCTURE */ |
3206 |
static object LnkTLI226(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[226],(void **)(void *)&LnkLI226,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */ |
static object LnkTLI236(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[236],(void **)(void *)&LnkLI236,1,first,ap);va_end(ap);return V1;} /* BUILT-IN-WRAPPER-OF */ |
3207 |
static object LnkTLI225(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[225],(void **)(void *)&LnkLI225,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
static object LnkTLI235(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[235],(void **)(void *)&LnkLI235,first,ap);va_end(ap);return V1;} /* FIND-CLASS-FROM-CELL */ |
3208 |
static object LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
static object LnkTLI234(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[234],(void **)(void *)&LnkLI234,first,ap);va_end(ap);return V1;} /* FIND-CLASS-CELL */ |
3209 |
static object LnkTLI223(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[223],(void **)(void *)&LnkLI223,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */ |
static object LnkTLI233(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[233],(void **)(void *)&LnkLI233,1,first,ap);va_end(ap);return V1;} /* %STRUCTURE-NAME */ |
3210 |
static object LnkTLI222(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[222],(void **)(void *)&LnkLI222,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-WRAPPER-SYMBOL */ |
static object LnkTLI232(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[232],(void **)(void *)&LnkLI232,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-WRAPPER-SYMBOL */ |
3211 |
static object LnkTLI221(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[221],(void **)(void *)&LnkLI221,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-CLASS-SYMBOL */ |
static object LnkTLI231(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[231],(void **)(void *)&LnkLI231,1,first,ap);va_end(ap);return V1;} /* GET-BUILT-IN-CLASS-SYMBOL */ |
3212 |
static void LnkT220(ptr) object *ptr;{ call_or_link_closure(VV[220],(void **)(void *)&Lnk220,(void **)(void *)&Lclptr220);} /* CLASS-WRAPPER */ |
static void LnkT230(ptr) object *ptr;{ call_or_link_closure(VV[230],(void **)(void *)&Lnk230,(void **)(void *)&Lclptr230);} /* CLASS-WRAPPER */ |
3213 |
static void LnkT218(ptr) object *ptr;{ call_or_link_closure(VV[218],(void **)(void *)&Lnk218,(void **)(void *)&Lclptr218);} /* CLASS-PREDICATE-NAME */ |
static void LnkT228(ptr) object *ptr;{ call_or_link_closure(VV[228],(void **)(void *)&Lnk228,(void **)(void *)&Lclptr228);} /* CLASS-PREDICATE-NAME */ |
3214 |
static object LnkTLI217(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[217],(void **)(void *)&LnkLI217,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */ |
static object LnkTLI227(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[227],(void **)(void *)&LnkLI227,2,first,ap);va_end(ap);return V1;} /* MAKE-CLASS-PREDICATE */ |
3215 |
static object LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[214],(void **)(void *)&LnkLI214,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
static object LnkTLI224(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[224],(void **)(void *)&LnkLI224,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
3216 |
static void LnkT213(){ call_or_link(VV[213],(void **)(void *)&Lnk213);} /* FIND */ |
static void LnkT223(){ call_or_link(VV[223],(void **)(void *)&Lnk223);} /* FIND */ |
3217 |
static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* ENSURE-GENERIC-FUNCTION */ |
static void LnkT220(){ call_or_link(VV[220],(void **)(void *)&Lnk220);} /* ENSURE-GENERIC-FUNCTION */ |
3218 |
static object LnkTLI206(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[206],(void **)(void *)&LnkLI206,1,first,ap);va_end(ap);return V1;} /* SLOT-BOUNDP-SYMBOL */ |
static object LnkTLI216(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[216],(void **)(void *)&LnkLI216,1,first,ap);va_end(ap);return V1;} /* SLOT-BOUNDP-SYMBOL */ |
3219 |
static object LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,1,first,ap);va_end(ap);return V1;} /* SLOT-WRITER-SYMBOL */ |
static object LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,1,first,ap);va_end(ap);return V1;} /* SLOT-WRITER-SYMBOL */ |
3220 |
static object LnkTLI204(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[204],(void **)(void *)&LnkLI204,1,first,ap);va_end(ap);return V1;} /* SLOT-READER-SYMBOL */ |
static object LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[214],(void **)(void *)&LnkLI214,1,first,ap);va_end(ap);return V1;} /* SLOT-READER-SYMBOL */ |
3221 |
static object LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[203],(void **)(void *)&LnkLI203,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
static object LnkTLI213(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[213],(void **)(void *)&LnkLI213,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-ACCESSOR-DEFINITIONS1 */ |
3222 |
static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION */ |
static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* MAKE-OPTIMIZED-STD-BOUNDP-METHOD-FUNCTION */ |
3223 |
static void LnkT201(){ call_or_link(VV[201],(void **)(void *)&Lnk201);} /* MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION */ |
static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* MAKE-OPTIMIZED-STD-WRITER-METHOD-FUNCTION */ |
3224 |
static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION */ |
static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* MAKE-OPTIMIZED-STD-READER-METHOD-FUNCTION */ |
3225 |
static object LnkTLI199(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[199],(void **)(void *)&LnkLI199,6,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
static object LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[209],(void **)(void *)&LnkLI209,6,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITION */ |
3226 |
static void LnkT198(){ call_or_link(VV[198],(void **)(void *)&Lnk198);} /* MAKE-CLASS-PREDICATE-NAME */ |
static void LnkT208(){ call_or_link(VV[208],(void **)(void *)&Lnk208);} /* MAKE-CLASS-PREDICATE-NAME */ |
3227 |
static object LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[197],(void **)(void *)&LnkLI197,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
static object LnkTLI207(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[207],(void **)(void *)&LnkLI207,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
3228 |
static void LnkT196(){ call_or_link(VV[196],(void **)(void *)&Lnk196);} /* LOAD-TRUENAME */ |
static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* LOAD-TRUENAME */ |
3229 |
static object LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
static object LnkTLI205(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[205],(void **)(void *)&LnkLI205,2,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SLOT-INDEX */ |
3230 |
static void LnkT194(){ call_or_link(VV[194],(void **)(void *)&Lnk194);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT204(){ call_or_link(VV[204],(void **)(void *)&Lnk204);} /* CCLOSURE-ENV-NTHCDR */ |
3231 |
static object LnkTLI193(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[193],(void **)(void *)&LnkLI193,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-INITIALIZE-CLASS */ |
static object LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)(void *)&LnkLI203,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-INITIALIZE-CLASS */ |
3232 |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
static object LnkTLI202(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[202],(void **)(void *)&LnkLI202,5,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-MAKE-SLOT-DEFINITIONS */ |
3233 |
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[191],(void **)(void *)&LnkLI191,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */ |
static object LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[201],(void **)(void *)&LnkLI201,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */ |
3234 |
static void LnkT190(){ call_or_link(VV[190],(void **)(void *)&Lnk190);} /* CANONICAL-SLOT-NAME */ |
static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* CANONICAL-SLOT-NAME */ |
3235 |
static void LnkT189(){ call_or_link(VV[189],(void **)(void *)&Lnk189);} /* EARLY-COLLECT-INHERITANCE */ |
static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* EARLY-COLLECT-INHERITANCE */ |
3236 |
static object LnkTLI188(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[188],(void **)(void *)&LnkLI188,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */ |
static object LnkTLI198(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[198],(void **)(void *)&LnkLI198,1,first,ap);va_end(ap);return V1;} /* ECD-OTHER-INITARGS */ |
3237 |
static object LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[187],(void **)(void *)&LnkLI187,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */ |
static object LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[197],(void **)(void *)&LnkLI197,1,first,ap);va_end(ap);return V1;} /* ECD-CANONICAL-SLOTS */ |
3238 |
static object LnkTLI186(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[186],(void **)(void *)&LnkLI186,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */ |
static object LnkTLI196(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[196],(void **)(void *)&LnkLI196,1,first,ap);va_end(ap);return V1;} /* ECD-SUPERCLASS-NAMES */ |
3239 |
static object LnkTLI185(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[185],(void **)(void *)&LnkLI185,1,first,ap);va_end(ap);return V1;} /* ECD-SOURCE */ |
static object LnkTLI195(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[195],(void **)(void *)&LnkLI195,1,first,ap);va_end(ap);return V1;} /* ECD-SOURCE */ |
3240 |
static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[184],(void **)(void *)&LnkLI184,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */ |
static object LnkTLI194(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[194],(void **)(void *)&LnkLI194,1,first,ap);va_end(ap);return V1;} /* INFORM-TYPE-SYSTEM-ABOUT-STD-CLASS */ |
3241 |
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[25],(void **)(void *)&LnkLI25,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
3242 |
static object LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,1,first,ap);va_end(ap);return V1;} /* ECD-METACLASS */ |
static void LnkT193(){ call_or_link(VV[193],(void **)(void *)&Lnk193);} /* ERROR */ |
3243 |
static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */ |
static object LnkTLI192(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[192],(void **)(void *)&LnkLI192,1,first,ap);va_end(ap);return V1;} /* ECD-METACLASS */ |
3244 |
|
static object LnkTLI191(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[191],(void **)(void *)&LnkLI191,1,first,ap);va_end(ap);return V1;} /* ECD-CLASS-NAME */ |
3245 |
static object LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[21],(void **)(void *)&LnkLI21,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
static object LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[21],(void **)(void *)&LnkLI21,first,ap);va_end(ap);return V1;} /* ALLOCATE-STANDARD-INSTANCE */ |
3246 |
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,257,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SIZE */ |
static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,257,first,ap);va_end(ap);return V1;} /* EARLY-CLASS-SIZE */ |
3247 |
static object LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[18],(void **)(void *)&LnkLI18,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */ |
static object LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[18],(void **)(void *)&LnkLI18,first,ap);va_end(ap);return V1;} /* MAKE-WRAPPER */ |
3248 |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */ |
static object LnkTLI190(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[190],(void **)(void *)&LnkLI190,2,first,ap);va_end(ap);return V1;} /* DO-SATISFIES-DEFTYPE */ |
3249 |
static object LnkTLI178(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[178],(void **)(void *)&LnkLI178,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */ |
static object LnkTLI187(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[187],(void **)(void *)&LnkLI187,first,ap);va_end(ap);return V1;} /* MAKE-TYPE-PREDICATE-NAME */ |
3250 |
static void LnkT177(ptr) object *ptr;{ call_or_link_closure(VV[177],(void **)(void *)&Lnk177,(void **)(void *)&Lclptr177);} /* CLASS-NAME */ |
static void LnkT186(ptr) object *ptr;{ call_or_link_closure(VV[186],(void **)(void *)&Lnk186,(void **)(void *)&Lclptr186);} /* CLASS-NAME */ |
3251 |
static void LnkT175(ptr) object *ptr;{ call_or_link_closure(VV[175],(void **)(void *)&Lnk175,(void **)(void *)&Lclptr175);} /* CLASS-SLOTS */ |
static void LnkT184(ptr) object *ptr;{ call_or_link_closure(VV[184],(void **)(void *)&Lnk184,(void **)(void *)&Lclptr184);} /* CLASS-SLOTS */ |
3252 |
static void LnkT174(ptr) object *ptr;{ call_or_link_closure(VV[174],(void **)(void *)&Lnk174,(void **)(void *)&Lclptr174);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
static void LnkT183(ptr) object *ptr;{ call_or_link_closure(VV[183],(void **)(void *)&Lnk183,(void **)(void *)&Lclptr183);} /* CLASS-DEFSTRUCT-CONSTRUCTOR */ |
3253 |
static object LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
3254 |
static object LnkTLI172(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[172],(void **)(void *)&LnkLI172,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
static object LnkTLI181(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[181],(void **)(void *)&LnkLI181,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
3255 |
static object LnkTLI171(){return call_proc0(VV[171],(void **)(void *)&LnkLI171);} /* ALLOCATE-FUNCALLABLE-INSTANCE-1 */ |
static object LnkTLI180(){return call_proc0(VV[180],(void **)(void *)&LnkLI180);} /* ALLOCATE-FUNCALLABLE-INSTANCE-1 */ |
3256 |
static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* MAKE-ARRAY */ |
static void LnkT179(){ call_or_link(VV[179],(void **)(void *)&Lnk179);} /* MAKE-ARRAY */ |
3257 |
static object LnkTLI169(){return call_proc0(VV[169],(void **)(void *)&LnkLI169);} /* %%ALLOCATE-INSTANCE--CLASS */ |
static object LnkTLI178(){return call_proc0(VV[178],(void **)(void *)&LnkLI178);} /* %%ALLOCATE-INSTANCE--CLASS */ |
3258 |
|
|
3259 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
3260 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |