2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_precom.h" |
#include "clcs_precom.h" |
4 |
void init_clcs_precom(){do_init(VV);} |
void init_clcs_precom(){do_init(VV);} |
5 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)1788 */ |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2193 */ |
6 |
|
|
7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
13 |
goto TTL; |
goto TTL; |
14 |
TTL:; |
TTL:; |
15 |
base[0]= VV[0]; |
base[0]= VV[0]; |
16 |
base[1]= VV[23]; |
base[1]= VV[17]; |
17 |
base[2]= VV[4]; |
base[2]= VV[4]; |
18 |
base[3]= VV[5]; |
base[3]= VV[5]; |
19 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
20 |
(void) (*Lnk24)(); |
(void) (*Lnk18)(); |
21 |
return; |
return; |
22 |
} |
} |
23 |
/* local entry for function progn 'compile1791 */ |
/* local entry for function progn 'compile2300 */ |
24 |
|
|
25 |
static object LI2() |
static object LI2() |
26 |
|
|
28 |
goto TTL; |
goto TTL; |
29 |
TTL:; |
TTL:; |
30 |
vs_base=vs_top; |
vs_base=vs_top; |
31 |
(void) (*Lnk25)(); |
(void) (*Lnk19)(); |
32 |
vs_top=sup; |
vs_top=sup; |
33 |
{object V1 = Cnil; |
{object V1 = Cnil; |
34 |
VMR2(V1)} |
VMR2(V1)} |
35 |
base[0]=base[0]; |
base[0]=base[0]; |
36 |
return Cnil; |
return Cnil; |
37 |
} |
} |
38 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)1788 */ |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2193 */ |
39 |
|
|
40 |
static void L3() |
static void L3() |
41 |
{register object *base=vs_base; |
{register object *base=vs_base; |
46 |
goto TTL; |
goto TTL; |
47 |
TTL:; |
TTL:; |
48 |
base[0]= VV[6]; |
base[0]= VV[6]; |
49 |
base[1]= VV[26]; |
base[1]= VV[20]; |
50 |
base[2]= VV[4]; |
base[2]= VV[4]; |
51 |
base[3]= VV[8]; |
base[3]= VV[8]; |
52 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
53 |
(void) (*Lnk24)(); |
(void) (*Lnk18)(); |
54 |
return; |
return; |
55 |
} |
} |
56 |
/* local entry for function progn 'compile1794 */ |
/* local entry for function progn 'compile2411 */ |
57 |
|
|
58 |
static object LI4() |
static object LI4() |
59 |
|
|
61 |
goto TTL; |
goto TTL; |
62 |
TTL:; |
TTL:; |
63 |
vs_base=vs_top; |
vs_base=vs_top; |
64 |
(void) (*Lnk27)(); |
(void) (*Lnk21)(); |
65 |
vs_top=sup; |
vs_top=sup; |
66 |
{object V2 = Cnil; |
{object V2 = Cnil; |
67 |
VMR4(V2)} |
VMR4(V2)} |
68 |
base[0]=base[0]; |
base[0]=base[0]; |
69 |
return Cnil; |
return Cnil; |
70 |
} |
} |
71 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)1788 */ |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2193 */ |
72 |
|
|
73 |
static void L5() |
static void L5() |
74 |
{register object *base=vs_base; |
{register object *base=vs_base; |
79 |
goto TTL; |
goto TTL; |
80 |
TTL:; |
TTL:; |
81 |
base[0]= VV[9]; |
base[0]= VV[9]; |
82 |
base[1]= VV[28]; |
base[1]= VV[22]; |
83 |
base[2]= VV[4]; |
base[2]= VV[4]; |
84 |
base[3]= VV[11]; |
base[3]= VV[11]; |
85 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
86 |
(void) (*Lnk24)(); |
(void) (*Lnk18)(); |
87 |
return; |
return; |
88 |
} |
} |
89 |
/* local entry for function progn 'compile1801 */ |
/* local entry for function progn 'compile2574 */ |
90 |
|
|
91 |
static object LI6() |
static object LI6() |
92 |
|
|
94 |
goto TTL; |
goto TTL; |
95 |
TTL:; |
TTL:; |
96 |
vs_base=vs_top; |
vs_base=vs_top; |
97 |
(void) (*Lnk29)(); |
(void) (*Lnk23)(); |
98 |
vs_top=sup; |
vs_top=sup; |
99 |
{object V3 = Cnil; |
{object V3 = Cnil; |
100 |
VMR6(V3)} |
VMR6(V3)} |
101 |
base[0]=base[0]; |
base[0]=base[0]; |
102 |
return Cnil; |
return Cnil; |
103 |
} |
} |
104 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)1788 */ |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2193 */ |
105 |
|
|
106 |
static void L7() |
static void L7() |
107 |
{register object *base=vs_base; |
{register object *base=vs_base; |
112 |
goto TTL; |
goto TTL; |
113 |
TTL:; |
TTL:; |
114 |
base[0]= VV[12]; |
base[0]= VV[12]; |
115 |
base[1]= VV[30]; |
base[1]= VV[24]; |
116 |
base[2]= VV[4]; |
base[2]= VV[4]; |
117 |
base[3]= VV[16]; |
base[3]= VV[16]; |
118 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
119 |
(void) (*Lnk24)(); |
(void) (*Lnk18)(); |
120 |
return; |
return; |
121 |
} |
} |
122 |
/* local entry for function progn 'compile1808 */ |
/* local entry for function progn 'compile2801 */ |
123 |
|
|
124 |
static object LI8() |
static object LI8() |
125 |
|
|
127 |
goto TTL; |
goto TTL; |
128 |
TTL:; |
TTL:; |
129 |
vs_base=vs_top; |
vs_base=vs_top; |
130 |
(void) (*Lnk31)(); |
(void) (*Lnk25)(); |
131 |
vs_top=sup; |
vs_top=sup; |
132 |
{object V4 = Cnil; |
{object V4 = Cnil; |
133 |
VMR8(V4)} |
VMR8(V4)} |
134 |
base[0]=base[0]; |
base[0]=base[0]; |
135 |
return Cnil; |
return Cnil; |
136 |
} |
} |
137 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 4)1788 */ |
/* local entry for function progn 'compile2805 */ |
|
|
|
|
static void L9() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM9; VC9 |
|
|
vs_reserve(VM9); |
|
|
check_arg(0); |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[17]; |
|
|
base[1]= VV[32]; |
|
|
base[2]= VV[4]; |
|
|
base[3]= VV[19]; |
|
|
vs_top=(vs_base=base+0)+4; |
|
|
(void) (*Lnk24)(); |
|
|
return; |
|
|
} |
|
|
/* local entry for function progn 'compile1810 */ |
|
|
|
|
|
static object LI10() |
|
|
|
|
|
{ VMB10 VMS10 VMV10 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk33)(); |
|
|
vs_top=sup; |
|
|
{object V5 = Cnil; |
|
|
VMR10(V5)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 5)1788 */ |
|
|
|
|
|
static void L11() |
|
|
{register object *base=vs_base; |
|
|
register object *sup=base+VM11; VC11 |
|
|
vs_reserve(VM11); |
|
|
check_arg(0); |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= VV[20]; |
|
|
base[1]= VV[34]; |
|
|
base[2]= VV[4]; |
|
|
base[3]= VV[22]; |
|
|
vs_top=(vs_base=base+0)+4; |
|
|
(void) (*Lnk24)(); |
|
|
return; |
|
|
} |
|
|
/* local entry for function progn 'compile1812 */ |
|
|
|
|
|
static object LI12() |
|
|
|
|
|
{ VMB12 VMS12 VMV12 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
vs_base=vs_top; |
|
|
(void) (*Lnk35)(); |
|
|
vs_top=sup; |
|
|
{object V6 = Cnil; |
|
|
VMR12(V6)} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function progn 'compile1812 */ |
|
138 |
|
|
139 |
static object LI13() |
static object LI9() |
140 |
|
|
141 |
{ VMB13 VMS13 VMV13 |
{ VMB9 VMS9 VMV9 |
142 |
goto TTL; |
goto TTL; |
143 |
TTL:; |
TTL:; |
144 |
base[0]= Ct; |
base[0]= Ct; |
145 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
146 |
(void) (*Lnk36)(); |
(void) (*Lnk26)(); |
147 |
vs_top=sup; |
vs_top=sup; |
148 |
{object V7 = Cnil; |
{object V5 = Cnil; |
149 |
VMR13(V7)} |
VMR9(V5)} |
150 |
base[0]=base[0]; |
base[0]=base[0]; |
151 |
return Cnil; |
return Cnil; |
152 |
} |
} |
153 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
154 |
|
|
155 |
static void LC19(base0) |
static void LC13(base0) |
156 |
register object *base0; |
register object *base0; |
157 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
158 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM10; VC10 |
159 |
vs_reserve(VM14); |
vs_reserve(VM10); |
|
{object V8; |
|
160 |
check_arg(2); |
check_arg(2); |
161 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
162 |
V8=(base[1]); |
base[1]=MMcons(base[1],base[0]); |
163 |
vs_top=sup; |
vs_top=sup; |
164 |
base[2]= |
base[2]= |
165 |
make_cclosure_new(LC20,Cnil,base[0],Cdata); |
make_cclosure_new(LC14,Cnil,base[1],Cdata); |
166 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
167 |
return; |
return; |
|
} |
|
168 |
} |
} |
169 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
170 |
|
|
171 |
static void LC20(base0) |
static void LC14(base0) |
172 |
register object *base0; |
register object *base0; |
173 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
174 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM11; VC11 |
175 |
vs_reserve(VM15); |
vs_reserve(VM11); |
176 |
{register object V9; |
{register object V6; |
177 |
object V10; |
object V7; |
178 |
check_arg(2); |
check_arg(2); |
179 |
V9=(base[0]); |
V6=(base[0]); |
180 |
V10=(base[1]); |
V7=(base[1]); |
181 |
vs_top=sup; |
vs_top=sup; |
182 |
{register object V11; |
{register object V8; |
183 |
|
object V9; |
184 |
|
register object V10; |
185 |
|
register object V11; |
186 |
object V12; |
object V12; |
187 |
register object V13; |
register object V13; |
188 |
register object V14; |
V9= CMPcar((base0[1]->c.c_car)); |
189 |
object V15; |
V8= (V7); |
190 |
object V16; |
V10= Cnil; |
191 |
V12= CMPcar((base0[0]->c.c_car)); |
V11= Cnil; |
192 |
V11= (V10); |
V12= Cnil; |
193 |
V13= Cnil; |
V13= Cnil; |
194 |
V14= Cnil; |
if(type_of(V6)==t_structure){ |
195 |
V15= Cnil; |
goto T35;} |
196 |
V16= Cnil; |
goto T33; |
197 |
if(type_of(V9)==t_structure){ |
goto T35; |
198 |
goto T45;} |
T35:; |
199 |
goto T43; |
if(!(((V6)->str.str_def)==(VV[13]))){ |
200 |
goto T45; |
goto T33;} |
201 |
T45:; |
V10= STREF(object,(V6),4); |
202 |
if(!(((V9)->str.str_def)==(VV[21]))){ |
V11= STREF(object,(V6),0); |
203 |
goto T43;} |
goto T31; |
204 |
V13= STREF(object,(V9),4); |
goto T33; |
205 |
V14= STREF(object,(V9),0); |
T33:;{object V15; |
206 |
goto T41; |
V15= (VV[3]->s.s_dbind); |
|
goto T43; |
|
|
T43:;{object V18; |
|
|
V18= (VV[3]->s.s_dbind); |
|
207 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
208 |
base[3]= (V9); |
base[3]= (V6); |
209 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
210 |
(void) (*Lnk37)(); |
(void) (*Lnk27)(); |
211 |
vs_top=sup; |
vs_top=sup; |
212 |
V19= vs_base[0]; |
V16= vs_base[0]; |
213 |
if(!((V18)==(CMPcar(V19)))){ |
if(!((V15)==(CMPcar(V16)))){ |
214 |
goto T51;}} |
goto T41;}} |
215 |
V13= CMPcar(((V9))->cc.cc_turbo[12]); |
V10= CMPcar(((V6))->cc.cc_turbo[12]); |
216 |
V14= CMPcar(((V9))->cc.cc_turbo[13]); |
V11= CMPcar(((V6))->cc.cc_turbo[13]); |
217 |
|
goto T31; |
218 |
goto T41; |
goto T41; |
219 |
goto T51; |
T41:; |
220 |
T51:; |
base[2]= (V6); |
|
base[2]= (V9); |
|
221 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
222 |
(void) (*Lnk38)(); |
(void) (*Lnk28)(); |
223 |
vs_top=sup; |
vs_top=sup; |
224 |
V14= vs_base[0]; |
V11= vs_base[0]; |
225 |
goto T41; |
goto T31; |
226 |
T41:; |
T31:; |
227 |
V15= ((V14))->v.v_self[11]; |
V12= ((V11))->v.v_self[11]; |
228 |
V11= CMPcdr(CMPcddddr((V11))); |
V8= CMPcdr((V8)); |
229 |
|
{object V17; |
230 |
|
V17= CMPcar((V8)); |
231 |
|
V8= CMPcdr((V8)); |
232 |
|
V13= (V17);} |
233 |
|
(void)(((V10))->v.v_self[8]= ((V13))); |
234 |
|
V8= CMPcdr((V8)); |
235 |
|
{object V18; |
236 |
|
V18= CMPcar((V8)); |
237 |
|
V8= CMPcdr((V8)); |
238 |
|
V13= (V18);} |
239 |
|
(void)(((V10))->v.v_self[0]= ((V13))); |
240 |
|
V8= CMPcdr((V8)); |
241 |
|
{object V19; |
242 |
|
V19= CMPcar((V8)); |
243 |
|
V8= CMPcdr((V8)); |
244 |
|
V13= (V19);} |
245 |
|
(void)(((V10))->v.v_self[3]= ((V13))); |
246 |
|
V8= CMPcdr((V8)); |
247 |
{object V20; |
{object V20; |
248 |
V20= CMPcar((V11)); |
V20= CMPcar((V8)); |
249 |
V11= CMPcdr((V11)); |
V8= CMPcdr((V8)); |
250 |
V16= (V20);} |
V13= (V20);} |
251 |
(void)(((V13))->v.v_self[1]= ((V16)));} |
(void)(((V10))->v.v_self[4]= ((V13))); |
252 |
base[2]= (V10); |
V8= CMPcdr((V8)); |
253 |
|
{object V21; |
254 |
|
V21= CMPcar((V8)); |
255 |
|
V8= CMPcdr((V8)); |
256 |
|
V13= (V21);} |
257 |
|
(void)(((V10))->v.v_self[5]= ((V13))); |
258 |
|
V8= CMPcdr((V8)); |
259 |
|
{object V22; |
260 |
|
V22= CMPcar((V8)); |
261 |
|
V8= CMPcdr((V8)); |
262 |
|
V13= (V22);} |
263 |
|
(void)(((V10))->v.v_self[6]= ((V13))); |
264 |
|
if(!((((V10))->v.v_self[1])==(VV[14]))){ |
265 |
|
goto T101;} |
266 |
|
V13= Cnil; |
267 |
|
(void)(((V10))->v.v_self[1]= ((V13))); |
268 |
|
goto T101; |
269 |
|
T101:; |
270 |
|
if(!((((V10))->v.v_self[2])==(VV[14]))){ |
271 |
|
goto T106;} |
272 |
|
V13= Cnil; |
273 |
|
(void)(((V10))->v.v_self[2]= ((V13))); |
274 |
|
goto T106; |
275 |
|
T106:; |
276 |
|
if(!((((V10))->v.v_self[7])==(VV[14]))){ |
277 |
|
goto T111;} |
278 |
|
V13= ((base0[0]->c.c_car))->v.v_self[9]; |
279 |
|
(void)(((V10))->v.v_self[7]= ((V13))); |
280 |
|
goto T111; |
281 |
|
T111:; |
282 |
|
if(!((((V10))->v.v_self[9])==(VV[14]))){ |
283 |
|
goto T23;} |
284 |
|
V13= VV[15]; |
285 |
|
(void)(((V10))->v.v_self[9]= ((V13)));} |
286 |
|
goto T23; |
287 |
|
T23:; |
288 |
|
base[2]= (V7); |
289 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
290 |
return; |
return; |
291 |
} |
} |
292 |
} |
} |
293 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
294 |
|
|
295 |
static void LC18(base0) |
static void LC12(base0) |
296 |
register object *base0; |
register object *base0; |
297 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
298 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM12; VC12 |
299 |
vs_reserve(VM16); |
vs_reserve(VM12); |
300 |
|
{object V23; |
301 |
check_arg(2); |
check_arg(2); |
302 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
303 |
base[1]=MMcons(base[1],base[0]); |
V23=(base[1]); |
304 |
vs_top=sup; |
vs_top=sup; |
305 |
base[2]= |
base[2]= |
306 |
make_cclosure_new(LC21,Cnil,base[1],Cdata); |
make_cclosure_new(LC15,Cnil,base[0],Cdata); |
307 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
308 |
return; |
return; |
309 |
|
} |
310 |
} |
} |
311 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
312 |
|
|
313 |
static void LC21(base0) |
static void LC15(base0) |
314 |
register object *base0; |
register object *base0; |
315 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
316 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM13; VC13 |
317 |
vs_reserve(VM17); |
vs_reserve(VM13); |
318 |
{register object V21; |
{register object V24; |
319 |
object V22; |
object V25; |
320 |
check_arg(2); |
check_arg(2); |
321 |
V21=(base[0]); |
V24=(base[0]); |
322 |
V22=(base[1]); |
V25=(base[1]); |
323 |
vs_top=sup; |
vs_top=sup; |
324 |
{register object V23; |
{register object V26; |
|
object V24; |
|
|
register object V25; |
|
|
register object V26; |
|
325 |
object V27; |
object V27; |
326 |
register object V28; |
register object V28; |
327 |
V24= CMPcar((base0[1]->c.c_car)); |
register object V29; |
328 |
V23= (V22); |
object V30; |
329 |
V25= Cnil; |
register object V31; |
330 |
V26= Cnil; |
V27= CMPcar((base0[0]->c.c_car)); |
331 |
V27= Cnil; |
V26= (V25); |
332 |
V28= Cnil; |
V28= Cnil; |
333 |
if(type_of(V21)==t_structure){ |
V29= Cnil; |
334 |
goto T82;} |
V30= Cnil; |
335 |
goto T80; |
V31= Cnil; |
336 |
goto T82; |
if(type_of(V24)==t_structure){ |
337 |
T82:; |
goto T132;} |
338 |
if(!(((V21)->str.str_def)==(VV[18]))){ |
goto T130; |
339 |
goto T80;} |
goto T132; |
340 |
V25= STREF(object,(V21),4); |
T132:; |
341 |
V26= STREF(object,(V21),0); |
if(!(((V24)->str.str_def)==(VV[10]))){ |
342 |
goto T78; |
goto T130;} |
343 |
goto T80; |
V28= STREF(object,(V24),4); |
344 |
T80:;{object V30; |
V29= STREF(object,(V24),0); |
345 |
V30= (VV[3]->s.s_dbind); |
goto T128; |
346 |
|
goto T130; |
347 |
|
T130:;{object V33; |
348 |
|
V33= (VV[3]->s.s_dbind); |
349 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
350 |
base[3]= (V21); |
base[3]= (V24); |
351 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
352 |
(void) (*Lnk37)(); |
(void) (*Lnk27)(); |
353 |
vs_top=sup; |
vs_top=sup; |
354 |
V31= vs_base[0]; |
V34= vs_base[0]; |
355 |
if(!((V30)==(CMPcar(V31)))){ |
if(!((V33)==(CMPcar(V34)))){ |
356 |
goto T88;}} |
goto T138;}} |
357 |
V25= CMPcar(((V21))->cc.cc_turbo[12]); |
V28= CMPcar(((V24))->cc.cc_turbo[12]); |
358 |
V26= CMPcar(((V21))->cc.cc_turbo[13]); |
V29= CMPcar(((V24))->cc.cc_turbo[13]); |
|
goto T78; |
|
|
goto T88; |
|
|
T88:; |
|
|
base[2]= (V21); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk38)(); |
|
|
vs_top=sup; |
|
|
V26= vs_base[0]; |
|
|
goto T78; |
|
|
T78:; |
|
|
V27= ((V26))->v.v_self[11]; |
|
|
V23= CMPcdr(CMPcddddr((V23))); |
|
|
{object V32; |
|
|
V32= CMPcar((V23)); |
|
|
V23= CMPcdr((V23)); |
|
|
V28= (V32);} |
|
|
(void)(((V25))->v.v_self[1]= ((V28))); |
|
|
if(!((((V25))->v.v_self[0])==(VV[14]))){ |
|
|
goto T108;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[0]= ((V28))); |
|
|
goto T108; |
|
|
T108:; |
|
|
if(!((((V25))->v.v_self[2])==(VV[14]))){ |
|
|
goto T113;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[2]= ((V28))); |
|
|
goto T113; |
|
|
T113:; |
|
|
if(!((((V25))->v.v_self[3])==(VV[14]))){ |
|
|
goto T118;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[3]= ((V28))); |
|
|
goto T118; |
|
|
T118:; |
|
|
if(!((((V25))->v.v_self[4])==(VV[14]))){ |
|
|
goto T123;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[4]= ((V28))); |
|
|
goto T123; |
|
|
T123:; |
|
|
if(!((((V25))->v.v_self[5])==(VV[14]))){ |
|
|
goto T128;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[5]= ((V28))); |
|
359 |
goto T128; |
goto T128; |
|
T128:; |
|
|
if(!((((V25))->v.v_self[6])==(VV[14]))){ |
|
|
goto T133;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[6]= ((V28))); |
|
|
goto T133; |
|
|
T133:; |
|
|
if(!((((V25))->v.v_self[7])==(VV[14]))){ |
|
|
goto T138;} |
|
|
V28= ( |
|
|
V33 = ((base0[0]->c.c_car))->v.v_self[8], |
|
|
(type_of(V33) == t_sfun ?(*((V33)->sfn.sfn_self)): |
|
|
(fcall.fun=(V33),fcall.argd=0,fcalln))()); |
|
|
(void)(((V25))->v.v_self[7]= ((V28))); |
|
360 |
goto T138; |
goto T138; |
361 |
T138:; |
T138:; |
362 |
if(!((((V25))->v.v_self[8])==(VV[14]))){ |
base[2]= (V24); |
|
goto T143;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[8]= ((V28))); |
|
|
goto T143; |
|
|
T143:; |
|
|
if(!((((V25))->v.v_self[10])==(VV[14]))){ |
|
|
goto T148;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[10]= ((V28))); |
|
|
goto T148; |
|
|
T148:; |
|
|
if(!((((V25))->v.v_self[11])==(VV[14]))){ |
|
|
goto T153;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[11]= ((V28))); |
|
|
goto T153; |
|
|
T153:; |
|
|
if(!((((V25))->v.v_self[12])==(VV[14]))){ |
|
|
goto T158;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[12]= ((V28))); |
|
|
goto T158; |
|
|
T158:; |
|
|
if(!((((V25))->v.v_self[13])==(VV[14]))){ |
|
|
goto T163;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[13]= ((V28))); |
|
|
goto T163; |
|
|
T163:; |
|
|
if(!((((V25))->v.v_self[14])==(VV[14]))){ |
|
|
goto T168;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[14]= ((V28))); |
|
|
goto T168; |
|
|
T168:; |
|
|
if(!((((V25))->v.v_self[15])==(VV[14]))){ |
|
|
goto T173;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[15]= ((V28))); |
|
|
goto T173; |
|
|
T173:; |
|
|
if(!((((V25))->v.v_self[16])==(VV[14]))){ |
|
|
goto T70;} |
|
|
V28= Cnil; |
|
|
(void)(((V25))->v.v_self[16]= ((V28)));} |
|
|
goto T70; |
|
|
T70:; |
|
|
base[2]= (V22); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
|
} |
|
|
} |
|
|
/* local function CLOSURE */ |
|
|
|
|
|
static void LC17(base0) |
|
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM18; VC18 |
|
|
vs_reserve(VM18); |
|
|
check_arg(2); |
|
|
base[0]=MMcons(base[0],Cnil); |
|
|
base[1]=MMcons(base[1],base[0]); |
|
|
vs_top=sup; |
|
|
base[2]= |
|
|
make_cclosure_new(LC22,Cnil,base[1],Cdata); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
|
} |
|
|
/* local function CLOSURE */ |
|
|
|
|
|
static void LC22(base0) |
|
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM19; VC19 |
|
|
vs_reserve(VM19); |
|
|
{register object V34; |
|
|
object V35; |
|
|
check_arg(2); |
|
|
V34=(base[0]); |
|
|
V35=(base[1]); |
|
|
vs_top=sup; |
|
|
{register object V36; |
|
|
object V37; |
|
|
register object V38; |
|
|
register object V39; |
|
|
object V40; |
|
|
register object V41; |
|
|
V37= CMPcar((base0[1]->c.c_car)); |
|
|
V36= (V35); |
|
|
V38= Cnil; |
|
|
V39= Cnil; |
|
|
V40= Cnil; |
|
|
V41= Cnil; |
|
|
if(type_of(V34)==t_structure){ |
|
|
goto T194;} |
|
|
goto T192; |
|
|
goto T194; |
|
|
T194:; |
|
|
if(!(((V34)->str.str_def)==(VV[13]))){ |
|
|
goto T192;} |
|
|
V38= STREF(object,(V34),4); |
|
|
V39= STREF(object,(V34),0); |
|
|
goto T190; |
|
|
goto T192; |
|
|
T192:;{object V43; |
|
|
V43= (VV[3]->s.s_dbind); |
|
|
base[2]= small_fixnum(14); |
|
|
base[3]= (V34); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk37)(); |
|
|
vs_top=sup; |
|
|
V44= vs_base[0]; |
|
|
if(!((V43)==(CMPcar(V44)))){ |
|
|
goto T200;}} |
|
|
V38= CMPcar(((V34))->cc.cc_turbo[12]); |
|
|
V39= CMPcar(((V34))->cc.cc_turbo[13]); |
|
|
goto T190; |
|
|
goto T200; |
|
|
T200:; |
|
|
base[2]= (V34); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk38)(); |
|
|
vs_top=sup; |
|
|
V39= vs_base[0]; |
|
|
goto T190; |
|
|
T190:; |
|
|
V40= ((V39))->v.v_self[11]; |
|
|
V36= CMPcdr((V36)); |
|
|
{object V45; |
|
|
V45= CMPcar((V36)); |
|
|
V36= CMPcdr((V36)); |
|
|
V41= (V45);} |
|
|
(void)(((V38))->v.v_self[8]= ((V41))); |
|
|
V36= CMPcdr((V36)); |
|
|
{object V46; |
|
|
V46= CMPcar((V36)); |
|
|
V36= CMPcdr((V36)); |
|
|
V41= (V46);} |
|
|
(void)(((V38))->v.v_self[0]= ((V41))); |
|
|
V36= CMPcdr((V36)); |
|
|
{object V47; |
|
|
V47= CMPcar((V36)); |
|
|
V36= CMPcdr((V36)); |
|
|
V41= (V47);} |
|
|
(void)(((V38))->v.v_self[3]= ((V41))); |
|
|
V36= CMPcdr((V36)); |
|
|
{object V48; |
|
|
V48= CMPcar((V36)); |
|
|
V36= CMPcdr((V36)); |
|
|
V41= (V48);} |
|
|
(void)(((V38))->v.v_self[4]= ((V41))); |
|
|
V36= CMPcdr((V36)); |
|
|
{object V49; |
|
|
V49= CMPcar((V36)); |
|
|
V36= CMPcdr((V36)); |
|
|
V41= (V49);} |
|
|
(void)(((V38))->v.v_self[5]= ((V41))); |
|
|
V36= CMPcdr((V36)); |
|
|
{object V50; |
|
|
V50= CMPcar((V36)); |
|
|
V36= CMPcdr((V36)); |
|
|
V41= (V50);} |
|
|
(void)(((V38))->v.v_self[6]= ((V41))); |
|
|
if(!((((V38))->v.v_self[1])==(VV[14]))){ |
|
|
goto T260;} |
|
|
V41= Cnil; |
|
|
(void)(((V38))->v.v_self[1]= ((V41))); |
|
|
goto T260; |
|
|
T260:; |
|
|
if(!((((V38))->v.v_self[2])==(VV[14]))){ |
|
|
goto T265;} |
|
|
V41= Cnil; |
|
|
(void)(((V38))->v.v_self[2]= ((V41))); |
|
|
goto T265; |
|
|
T265:; |
|
|
if(!((((V38))->v.v_self[7])==(VV[14]))){ |
|
|
goto T270;} |
|
|
V41= ((base0[0]->c.c_car))->v.v_self[9]; |
|
|
(void)(((V38))->v.v_self[7]= ((V41))); |
|
|
goto T270; |
|
|
T270:; |
|
|
if(!((((V38))->v.v_self[9])==(VV[14]))){ |
|
|
goto T182;} |
|
|
V41= VV[15]; |
|
|
(void)(((V38))->v.v_self[9]= ((V41)));} |
|
|
goto T182; |
|
|
T182:; |
|
|
base[2]= (V35); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
return; |
|
|
} |
|
|
} |
|
|
/* local function CLOSURE */ |
|
|
|
|
|
static void LC16(base0) |
|
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM20; VC20 |
|
|
vs_reserve(VM20); |
|
|
{object V51; |
|
|
check_arg(2); |
|
|
base[0]=MMcons(base[0],Cnil); |
|
|
V51=(base[1]); |
|
|
vs_top=sup; |
|
|
base[2]= |
|
|
make_cclosure_new(LC23,Cnil,base[0],Cdata); |
|
363 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
364 |
return; |
(void) (*Lnk28)(); |
|
} |
|
|
} |
|
|
/* local function CLOSURE */ |
|
|
|
|
|
static void LC23(base0) |
|
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM21; VC21 |
|
|
vs_reserve(VM21); |
|
|
{register object V52; |
|
|
object V53; |
|
|
check_arg(2); |
|
|
V52=(base[0]); |
|
|
V53=(base[1]); |
|
365 |
vs_top=sup; |
vs_top=sup; |
366 |
{register object V54; |
V29= vs_base[0]; |
367 |
object V55; |
goto T128; |
368 |
register object V56; |
T128:; |
369 |
register object V57; |
V30= ((V29))->v.v_self[11]; |
370 |
object V58; |
V26= (V25); |
371 |
register object V59; |
V26= CMPcdr((V26)); |
372 |
V55= CMPcar((base0[0]->c.c_car)); |
{object V35; |
373 |
V54= (V53); |
V35= CMPcar((V26)); |
374 |
V56= Cnil; |
V26= CMPcdr((V26)); |
375 |
V57= Cnil; |
V31= (V35);} |
376 |
V58= Cnil; |
(void)(((V28))->v.v_self[8]= ((V31))); |
377 |
V59= Cnil; |
V26= CMPcdr((V26)); |
378 |
if(type_of(V52)==t_structure){ |
{object V36; |
379 |
goto T291;} |
V36= CMPcar((V26)); |
380 |
goto T289; |
V26= CMPcdr((V26)); |
381 |
goto T291; |
V31= (V36);} |
382 |
T291:; |
(void)(((V28))->v.v_self[0]= ((V31))); |
383 |
if(!(((V52)->str.str_def)==(VV[10]))){ |
V26= CMPcdr((V26)); |
384 |
goto T289;} |
{object V37; |
385 |
V56= STREF(object,(V52),4); |
V37= CMPcar((V26)); |
386 |
V57= STREF(object,(V52),0); |
V26= CMPcdr((V26)); |
387 |
goto T287; |
V31= (V37);} |
388 |
goto T289; |
(void)(((V28))->v.v_self[3]= ((V31))); |
389 |
T289:;{object V61; |
V26= CMPcdr((V26)); |
390 |
V61= (VV[3]->s.s_dbind); |
{object V38; |
391 |
base[2]= small_fixnum(14); |
V38= CMPcar((V26)); |
392 |
base[3]= (V52); |
V26= CMPcdr((V26)); |
393 |
vs_top=(vs_base=base+2)+2; |
V31= (V38);} |
394 |
(void) (*Lnk37)(); |
(void)(((V28))->v.v_self[4]= ((V31))); |
395 |
vs_top=sup; |
V26= CMPcdr((V26)); |
396 |
V62= vs_base[0]; |
{object V39; |
397 |
if(!((V61)==(CMPcar(V62)))){ |
V39= CMPcar((V26)); |
398 |
goto T297;}} |
V26= CMPcdr((V26)); |
399 |
V56= CMPcar(((V52))->cc.cc_turbo[12]); |
V31= (V39);} |
400 |
V57= CMPcar(((V52))->cc.cc_turbo[13]); |
(void)(((V28))->v.v_self[5]= ((V31))); |
401 |
goto T287; |
V26= CMPcdr((V26)); |
402 |
goto T297; |
{object V40; |
403 |
T297:; |
V40= CMPcar((V26)); |
404 |
base[2]= (V52); |
V26= CMPcdr((V26)); |
405 |
vs_top=(vs_base=base+2)+1; |
V31= (V40);} |
406 |
(void) (*Lnk38)(); |
(void)(((V28))->v.v_self[6]= ((V31)));} |
407 |
vs_top=sup; |
base[2]= (V25); |
|
V57= vs_base[0]; |
|
|
goto T287; |
|
|
T287:; |
|
|
V58= ((V57))->v.v_self[11]; |
|
|
V54= (V53); |
|
|
V54= CMPcdr((V54)); |
|
|
{object V63; |
|
|
V63= CMPcar((V54)); |
|
|
V54= CMPcdr((V54)); |
|
|
V59= (V63);} |
|
|
(void)(((V56))->v.v_self[8]= ((V59))); |
|
|
V54= CMPcdr((V54)); |
|
|
{object V64; |
|
|
V64= CMPcar((V54)); |
|
|
V54= CMPcdr((V54)); |
|
|
V59= (V64);} |
|
|
(void)(((V56))->v.v_self[0]= ((V59))); |
|
|
V54= CMPcdr((V54)); |
|
|
{object V65; |
|
|
V65= CMPcar((V54)); |
|
|
V54= CMPcdr((V54)); |
|
|
V59= (V65);} |
|
|
(void)(((V56))->v.v_self[3]= ((V59))); |
|
|
V54= CMPcdr((V54)); |
|
|
{object V66; |
|
|
V66= CMPcar((V54)); |
|
|
V54= CMPcdr((V54)); |
|
|
V59= (V66);} |
|
|
(void)(((V56))->v.v_self[4]= ((V59))); |
|
|
V54= CMPcdr((V54)); |
|
|
{object V67; |
|
|
V67= CMPcar((V54)); |
|
|
V54= CMPcdr((V54)); |
|
|
V59= (V67);} |
|
|
(void)(((V56))->v.v_self[5]= ((V59))); |
|
|
V54= CMPcdr((V54)); |
|
|
{object V68; |
|
|
V68= CMPcar((V54)); |
|
|
V54= CMPcdr((V54)); |
|
|
V59= (V68);} |
|
|
(void)(((V56))->v.v_self[6]= ((V59)));} |
|
|
base[2]= (V53); |
|
408 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
409 |
return; |
return; |
410 |
} |
} |
411 |
} |
} |
412 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
413 |
|
|
414 |
static void LC15(base0) |
static void LC11(base0) |
415 |
register object *base0; |
register object *base0; |
416 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
417 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM14; VC14 |
418 |
vs_reserve(VM22); |
vs_reserve(VM14); |
419 |
{object V69; |
{object V41; |
420 |
check_arg(2); |
check_arg(2); |
421 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
422 |
V69=(base[1]); |
V41=(base[1]); |
423 |
vs_top=sup; |
vs_top=sup; |
424 |
base[2]= |
base[2]= |
425 |
make_cclosure_new(LC24,Cnil,base[0],Cdata); |
make_cclosure_new(LC16,Cnil,base[0],Cdata); |
426 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
427 |
return; |
return; |
428 |
} |
} |
429 |
} |
} |
430 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
431 |
|
|
432 |
static void LC24(base0) |
static void LC16(base0) |
433 |
register object *base0; |
register object *base0; |
434 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
435 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM15; VC15 |
436 |
vs_reserve(VM23); |
vs_reserve(VM15); |
437 |
{register object V70; |
{register object V42; |
438 |
object V71; |
object V43; |
439 |
check_arg(2); |
check_arg(2); |
440 |
V70=(base[0]); |
V42=(base[0]); |
441 |
V71=(base[1]); |
V43=(base[1]); |
442 |
vs_top=sup; |
vs_top=sup; |
443 |
{register object V72; |
{register object V44; |
444 |
object V73; |
object V45; |
445 |
register object V74; |
register object V46; |
446 |
register object V75; |
register object V47; |
447 |
object V76; |
object V48; |
448 |
register object V77; |
register object V49; |
449 |
V73= CMPcar((base0[0]->c.c_car)); |
V45= CMPcar((base0[0]->c.c_car)); |
450 |
V72= (V71); |
V44= (V43); |
451 |
V74= Cnil; |
V46= Cnil; |
452 |
V75= Cnil; |
V47= Cnil; |
453 |
V76= Cnil; |
V48= Cnil; |
454 |
V77= Cnil; |
V49= Cnil; |
455 |
if(type_of(V70)==t_structure){ |
if(type_of(V42)==t_structure){ |
456 |
goto T370;} |
goto T211;} |
457 |
goto T368; |
goto T209; |
458 |
goto T370; |
goto T211; |
459 |
T370:; |
T211:; |
460 |
if(!(((V70)->str.str_def)==(VV[7]))){ |
if(!(((V42)->str.str_def)==(VV[7]))){ |
461 |
goto T368;} |
goto T209;} |
462 |
V74= STREF(object,(V70),4); |
V46= STREF(object,(V42),4); |
463 |
V75= STREF(object,(V70),0); |
V47= STREF(object,(V42),0); |
464 |
goto T366; |
goto T207; |
465 |
goto T368; |
goto T209; |
466 |
T368:;{object V79; |
T209:;{object V51; |
467 |
V79= (VV[3]->s.s_dbind); |
V51= (VV[3]->s.s_dbind); |
468 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
469 |
base[3]= (V70); |
base[3]= (V42); |
470 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
471 |
(void) (*Lnk37)(); |
(void) (*Lnk27)(); |
472 |
vs_top=sup; |
vs_top=sup; |
473 |
V80= vs_base[0]; |
V52= vs_base[0]; |
474 |
if(!((V79)==(CMPcar(V80)))){ |
if(!((V51)==(CMPcar(V52)))){ |
475 |
goto T376;}} |
goto T217;}} |
476 |
V74= CMPcar(((V70))->cc.cc_turbo[12]); |
V46= CMPcar(((V42))->cc.cc_turbo[12]); |
477 |
V75= CMPcar(((V70))->cc.cc_turbo[13]); |
V47= CMPcar(((V42))->cc.cc_turbo[13]); |
478 |
goto T366; |
goto T207; |
479 |
goto T376; |
goto T217; |
480 |
T376:; |
T217:; |
481 |
base[2]= (V70); |
base[2]= (V42); |
482 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
483 |
(void) (*Lnk38)(); |
(void) (*Lnk28)(); |
484 |
vs_top=sup; |
vs_top=sup; |
485 |
V75= vs_base[0]; |
V47= vs_base[0]; |
486 |
goto T366; |
goto T207; |
487 |
T366:; |
T207:; |
488 |
V76= ((V75))->v.v_self[11]; |
V48= ((V47))->v.v_self[11]; |
489 |
V72= CMPcdr((V72)); |
V44= CMPcdr((V44)); |
490 |
{object V81; |
{object V53; |
491 |
V81= CMPcar((V72)); |
V53= CMPcar((V44)); |
492 |
V72= CMPcdr((V72)); |
V44= CMPcdr((V44)); |
493 |
V77= (V81);} |
V49= (V53);} |
494 |
(void)(((V74))->v.v_self[1]= ((V77))); |
(void)(((V46))->v.v_self[1]= ((V49))); |
495 |
V72= CMPcdr((V72)); |
V44= CMPcdr((V44)); |
496 |
{object V82; |
{object V54; |
497 |
V82= CMPcar((V72)); |
V54= CMPcar((V44)); |
498 |
V72= CMPcdr((V72)); |
V44= CMPcdr((V44)); |
499 |
V77= (V82);} |
V49= (V54);} |
500 |
(void)(((V74))->v.v_self[0]= ((V77)));} |
(void)(((V46))->v.v_self[0]= ((V49)));} |
501 |
base[2]= (V71); |
base[2]= (V43); |
502 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
503 |
return; |
return; |
504 |
} |
} |
505 |
} |
} |
506 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
507 |
|
|
508 |
static void LC14(base0) |
static void LC10(base0) |
509 |
register object *base0; |
register object *base0; |
510 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
511 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM16; VC16 |
512 |
vs_reserve(VM24); |
vs_reserve(VM16); |
513 |
{object V83; |
{object V55; |
514 |
check_arg(2); |
check_arg(2); |
515 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
516 |
V83=(base[1]); |
V55=(base[1]); |
517 |
vs_top=sup; |
vs_top=sup; |
518 |
base[2]= |
base[2]= |
519 |
make_cclosure_new(LC25,Cnil,base[0],Cdata); |
make_cclosure_new(LC17,Cnil,base[0],Cdata); |
520 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
521 |
return; |
return; |
522 |
} |
} |
523 |
} |
} |
524 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
525 |
|
|
526 |
static void LC25(base0) |
static void LC17(base0) |
527 |
register object *base0; |
register object *base0; |
528 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
529 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM17; VC17 |
530 |
vs_reserve(VM25); |
vs_reserve(VM17); |
531 |
{register object V84; |
{register object V56; |
532 |
object V85; |
object V57; |
533 |
check_arg(2); |
check_arg(2); |
534 |
V84=(base[0]); |
V56=(base[0]); |
535 |
V85=(base[1]); |
V57=(base[1]); |
536 |
vs_top=sup; |
vs_top=sup; |
537 |
{register object V86; |
{register object V58; |
538 |
object V87; |
object V59; |
539 |
register object V88; |
register object V60; |
540 |
register object V89; |
register object V61; |
541 |
object V90; |
object V62; |
542 |
register object V91; |
register object V63; |
543 |
V87= CMPcar((base0[0]->c.c_car)); |
V59= CMPcar((base0[0]->c.c_car)); |
544 |
V86= (V85); |
V58= (V57); |
545 |
V88= Cnil; |
V60= Cnil; |
546 |
V89= Cnil; |
V61= Cnil; |
547 |
V90= Cnil; |
V62= Cnil; |
548 |
V91= Cnil; |
V63= Cnil; |
549 |
if(type_of(V84)==t_structure){ |
if(type_of(V56)==t_structure){ |
550 |
goto T415;} |
goto T256;} |
551 |
goto T413; |
goto T254; |
552 |
goto T415; |
goto T256; |
553 |
T415:; |
T256:; |
554 |
if(!(((V84)->str.str_def)==(VV[1]))){ |
if(!(((V56)->str.str_def)==(VV[1]))){ |
555 |
goto T413;} |
goto T254;} |
556 |
V88= STREF(object,(V84),4); |
V60= STREF(object,(V56),4); |
557 |
V89= STREF(object,(V84),0); |
V61= STREF(object,(V56),0); |
558 |
goto T411; |
goto T252; |
559 |
goto T413; |
goto T254; |
560 |
T413:;{object V93; |
T254:;{object V65; |
561 |
V93= (VV[3]->s.s_dbind); |
V65= (VV[3]->s.s_dbind); |
562 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
563 |
base[3]= (V84); |
base[3]= (V56); |
564 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
565 |
(void) (*Lnk37)(); |
(void) (*Lnk27)(); |
566 |
vs_top=sup; |
vs_top=sup; |
567 |
V94= vs_base[0]; |
V66= vs_base[0]; |
568 |
if(!((V93)==(CMPcar(V94)))){ |
if(!((V65)==(CMPcar(V66)))){ |
569 |
goto T421;}} |
goto T262;}} |
570 |
V88= CMPcar(((V84))->cc.cc_turbo[12]); |
V60= CMPcar(((V56))->cc.cc_turbo[12]); |
571 |
V89= CMPcar(((V84))->cc.cc_turbo[13]); |
V61= CMPcar(((V56))->cc.cc_turbo[13]); |
572 |
goto T411; |
goto T252; |
573 |
goto T421; |
goto T262; |
574 |
T421:; |
T262:; |
575 |
base[2]= (V84); |
base[2]= (V56); |
576 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
577 |
(void) (*Lnk38)(); |
(void) (*Lnk28)(); |
578 |
vs_top=sup; |
vs_top=sup; |
579 |
V89= vs_base[0]; |
V61= vs_base[0]; |
580 |
goto T411; |
goto T252; |
581 |
T411:; |
T252:; |
582 |
V90= ((V89))->v.v_self[11]; |
V62= ((V61))->v.v_self[11]; |
583 |
V86= (V85); |
V58= (V57); |
584 |
V86= CMPcdr((V86)); |
V58= CMPcdr((V58)); |
585 |
{object V95; |
{object V67; |
586 |
V95= CMPcar((V86)); |
V67= CMPcar((V58)); |
587 |
V86= CMPcdr((V86)); |
V58= CMPcdr((V58)); |
588 |
V91= (V95);} |
V63= (V67);} |
589 |
(void)(((V88))->v.v_self[1]= ((V91))); |
(void)(((V60))->v.v_self[1]= ((V63))); |
590 |
V86= CMPcdr((V86)); |
V58= CMPcdr((V58)); |
591 |
{object V96; |
{object V68; |
592 |
V96= CMPcar((V86)); |
V68= CMPcar((V58)); |
593 |
V86= CMPcdr((V86)); |
V58= CMPcdr((V58)); |
594 |
V91= (V96);} |
V63= (V68);} |
595 |
(void)(((V88))->v.v_self[0]= ((V91)));} |
(void)(((V60))->v.v_self[0]= ((V63)));} |
596 |
base[2]= (V85); |
base[2]= (V57); |
597 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
598 |
return; |
return; |
599 |
} |
} |
600 |
} |
} |
601 |
static void LnkT38(){ call_or_link(VV[38],(void **)&Lnk38);} /* WRAPPER-OF */ |
static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* WRAPPER-OF */ |
602 |
static void LnkT37(){ call_or_link(VV[37],(void **)&Lnk37);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* CCLOSURE-ENV-NTHCDR */ |
603 |
static void LnkT36(){ call_or_link(VV[36],(void **)&Lnk36);} /* COMPILE-IIS-FUNCTIONS */ |
static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* COMPILE-IIS-FUNCTIONS */ |
604 |
static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 5)1788 */ |
static void LnkT25(){ call_or_link(VV[25],(void **)&Lnk25);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2193 */ |
605 |
static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 4)1788 */ |
static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2193 */ |
606 |
static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)1788 */ |
static void LnkT21(){ call_or_link(VV[21],(void **)&Lnk21);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2193 */ |
607 |
static void LnkT29(){ call_or_link(VV[29],(void **)&Lnk29);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)1788 */ |
static void LnkT19(){ call_or_link(VV[19],(void **)&Lnk19);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2193 */ |
608 |
static void LnkT27(){ call_or_link(VV[27],(void **)&Lnk27);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)1788 */ |
static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* LOAD-PRECOMPILED-IIS-ENTRY */ |
|
static void LnkT25(){ call_or_link(VV[25],(void **)&Lnk25);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)1788 */ |
|
|
static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* LOAD-PRECOMPILED-IIS-ENTRY */ |
|
609 |
|
|
610 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
611 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |