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)2185 */ |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2195 */ |
6 |
|
|
7 |
static void L1() |
static void L1() |
8 |
{register object *base=vs_base; |
{register object *base=vs_base; |
19 |
(void) (*Lnk18)(); |
(void) (*Lnk18)(); |
20 |
return; |
return; |
21 |
} |
} |
22 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2185 */ |
/* local entry for function progn 'compile2302 */ |
23 |
|
|
24 |
static void L2() |
static object LI2() |
25 |
|
|
26 |
|
{ VMB2 VMS2 VMV2 |
27 |
|
goto TTL; |
28 |
|
TTL:; |
29 |
|
vs_base=vs_top; |
30 |
|
(void) (*Lnk19)(); |
31 |
|
vs_top=sup; |
32 |
|
{object V1 = Cnil; |
33 |
|
VMR2(V1)} |
34 |
|
base[0]=base[0]; |
35 |
|
return Cnil; |
36 |
|
} |
37 |
|
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2195 */ |
38 |
|
|
39 |
|
static void L3() |
40 |
{register object *base=vs_base; |
{register object *base=vs_base; |
41 |
register object *sup=base+VM2; VC2 |
register object *sup=base+VM3; VC3 |
42 |
vs_check; |
vs_check; |
43 |
vs_top=sup; |
vs_top=sup; |
44 |
goto TTL; |
goto TTL; |
45 |
TTL:; |
TTL:; |
46 |
base[0]= VV[6]; |
base[0]= VV[6]; |
47 |
base[1]= VV[19]; |
base[1]= VV[20]; |
48 |
base[2]= VV[4]; |
base[2]= VV[4]; |
49 |
base[3]= VV[8]; |
base[3]= VV[8]; |
50 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
51 |
(void) (*Lnk18)(); |
(void) (*Lnk18)(); |
52 |
return; |
return; |
53 |
} |
} |
54 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2185 */ |
/* local entry for function progn 'compile2413 */ |
55 |
|
|
56 |
static void L3() |
static object LI4() |
57 |
|
|
58 |
|
{ VMB4 VMS4 VMV4 |
59 |
|
goto TTL; |
60 |
|
TTL:; |
61 |
|
vs_base=vs_top; |
62 |
|
(void) (*Lnk21)(); |
63 |
|
vs_top=sup; |
64 |
|
{object V2 = Cnil; |
65 |
|
VMR4(V2)} |
66 |
|
base[0]=base[0]; |
67 |
|
return Cnil; |
68 |
|
} |
69 |
|
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2195 */ |
70 |
|
|
71 |
|
static void L5() |
72 |
{register object *base=vs_base; |
{register object *base=vs_base; |
73 |
register object *sup=base+VM3; VC3 |
register object *sup=base+VM5; VC5 |
74 |
vs_check; |
vs_check; |
75 |
vs_top=sup; |
vs_top=sup; |
76 |
goto TTL; |
goto TTL; |
77 |
TTL:; |
TTL:; |
78 |
base[0]= VV[9]; |
base[0]= VV[9]; |
79 |
base[1]= VV[20]; |
base[1]= VV[22]; |
80 |
base[2]= VV[4]; |
base[2]= VV[4]; |
81 |
base[3]= VV[11]; |
base[3]= VV[11]; |
82 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
83 |
(void) (*Lnk18)(); |
(void) (*Lnk18)(); |
84 |
return; |
return; |
85 |
} |
} |
86 |
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2185 */ |
/* local entry for function progn 'compile2576 */ |
87 |
|
|
88 |
|
static object LI6() |
89 |
|
|
90 |
|
{ VMB6 VMS6 VMV6 |
91 |
|
goto TTL; |
92 |
|
TTL:; |
93 |
|
vs_base=vs_top; |
94 |
|
(void) (*Lnk23)(); |
95 |
|
vs_top=sup; |
96 |
|
{object V3 = Cnil; |
97 |
|
VMR6(V3)} |
98 |
|
base[0]=base[0]; |
99 |
|
return Cnil; |
100 |
|
} |
101 |
|
/* function definition for (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2195 */ |
102 |
|
|
103 |
static void L4() |
static void L7() |
104 |
{register object *base=vs_base; |
{register object *base=vs_base; |
105 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM7; VC7 |
106 |
vs_check; |
vs_check; |
107 |
vs_top=sup; |
vs_top=sup; |
108 |
goto TTL; |
goto TTL; |
109 |
TTL:; |
TTL:; |
110 |
base[0]= VV[12]; |
base[0]= VV[12]; |
111 |
base[1]= VV[21]; |
base[1]= VV[24]; |
112 |
base[2]= VV[4]; |
base[2]= VV[4]; |
113 |
base[3]= VV[16]; |
base[3]= VV[16]; |
114 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
115 |
(void) (*Lnk18)(); |
(void) (*Lnk18)(); |
116 |
return; |
return; |
117 |
} |
} |
118 |
|
/* local entry for function progn 'compile2803 */ |
119 |
|
|
120 |
|
static object LI8() |
121 |
|
|
122 |
|
{ VMB8 VMS8 VMV8 |
123 |
|
goto TTL; |
124 |
|
TTL:; |
125 |
|
vs_base=vs_top; |
126 |
|
(void) (*Lnk25)(); |
127 |
|
vs_top=sup; |
128 |
|
{object V4 = Cnil; |
129 |
|
VMR8(V4)} |
130 |
|
base[0]=base[0]; |
131 |
|
return Cnil; |
132 |
|
} |
133 |
|
/* local entry for function progn 'compile2807 */ |
134 |
|
|
135 |
|
static object LI9() |
136 |
|
|
137 |
|
{ VMB9 VMS9 VMV9 |
138 |
|
goto TTL; |
139 |
|
TTL:; |
140 |
|
base[0]= Ct; |
141 |
|
vs_top=(vs_base=base+0)+1; |
142 |
|
(void) (*Lnk26)(); |
143 |
|
vs_top=sup; |
144 |
|
{object V5 = Cnil; |
145 |
|
VMR9(V5)} |
146 |
|
base[0]=base[0]; |
147 |
|
return Cnil; |
148 |
|
} |
149 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
150 |
|
|
151 |
static void LC8(base0) |
static void LC13(base0) |
152 |
register object *base0; |
register object *base0; |
153 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
154 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM10; VC10 |
155 |
vs_check; |
vs_check; |
156 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
157 |
base[1]=MMcons(base[1],base[0]); |
base[1]=MMcons(base[1],base[0]); |
158 |
vs_top=sup; |
vs_top=sup; |
159 |
base[2]= |
base[2]= |
160 |
make_cclosure_new(LC9,Cnil,base[1],Cdata); |
make_cclosure_new(LC14,Cnil,base[1],Cdata); |
161 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
162 |
return; |
return; |
163 |
} |
} |
164 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
165 |
|
|
166 |
static void LC9(base0) |
static void LC14(base0) |
167 |
register object *base0; |
register object *base0; |
168 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
169 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM11; VC11 |
170 |
vs_check; |
vs_check; |
171 |
{register object V1; |
{register object V6; |
|
object V2; |
|
|
V1=(base[0]); |
|
|
V2=(base[1]); |
|
|
vs_top=sup; |
|
|
{register object V3; |
|
|
object V4; |
|
|
register object V5; |
|
|
register object V6; |
|
172 |
object V7; |
object V7; |
173 |
register object V8; |
V6=(base[0]); |
174 |
V4= CMPcar((base0[1]->c.c_car)); |
V7=(base[1]); |
|
V3= (V2); |
|
|
V5= Cnil; |
|
|
V6= Cnil; |
|
|
V7= Cnil; |
|
|
V8= Cnil; |
|
|
if(type_of(V1)==t_structure){ |
|
|
goto T29;} |
|
|
goto T27; |
|
|
goto T29; |
|
|
T29:; |
|
|
if(!(((V1)->str.str_def)==(VV[13]))){ |
|
|
goto T27;} |
|
|
V5= STREF(object,(V1),4); |
|
|
V6= STREF(object,(V1),0); |
|
|
goto T25; |
|
|
goto T27; |
|
|
T27:;{object V10; |
|
|
V10= (VV[3]->s.s_dbind); |
|
|
base[2]= small_fixnum(14); |
|
|
base[3]= (V1); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk22)(); |
|
175 |
vs_top=sup; |
vs_top=sup; |
176 |
V11= vs_base[0]; |
{register object V8; |
177 |
if(!((V10)==(CMPcar(V11)))){ |
object V9; |
178 |
goto T35;}} |
register object V10; |
179 |
V5= CMPcar(((V1))->cc.cc_turbo[12]); |
register object V11; |
180 |
V6= CMPcar(((V1))->cc.cc_turbo[13]); |
object V12; |
181 |
goto T25; |
register object V13; |
182 |
|
V9= CMPcar((base0[1]->c.c_car)); |
183 |
|
V8= (V7); |
184 |
|
V10= Cnil; |
185 |
|
V11= Cnil; |
186 |
|
V12= Cnil; |
187 |
|
V13= Cnil; |
188 |
|
if(type_of(V6)==t_structure){ |
189 |
|
goto T35;} |
190 |
|
goto T33; |
191 |
goto T35; |
goto T35; |
192 |
T35:; |
T35:; |
193 |
base[2]= (V1); |
if(!(((V6)->str.str_def)==(VV[13]))){ |
194 |
|
goto T33;} |
195 |
|
V10= STREF(object,(V6),4); |
196 |
|
V11= STREF(object,(V6),0); |
197 |
|
goto T31; |
198 |
|
goto T33; |
199 |
|
T33:;{object V15; |
200 |
|
V15= (VV[3]->s.s_dbind); |
201 |
|
base[2]= small_fixnum(14); |
202 |
|
base[3]= (V6); |
203 |
|
vs_top=(vs_base=base+2)+2; |
204 |
|
(void) (*Lnk27)(); |
205 |
|
vs_top=sup; |
206 |
|
V16= vs_base[0]; |
207 |
|
if(!((V15)==(CMPcar(V16)))){ |
208 |
|
goto T41;}} |
209 |
|
V10= CMPcar(((V6))->cc.cc_turbo[12]); |
210 |
|
V11= CMPcar(((V6))->cc.cc_turbo[13]); |
211 |
|
goto T31; |
212 |
|
goto T41; |
213 |
|
T41:; |
214 |
|
base[2]= (V6); |
215 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
216 |
(void) (*Lnk23)(); |
(void) (*Lnk28)(); |
217 |
vs_top=sup; |
vs_top=sup; |
218 |
V6= vs_base[0]; |
V11= vs_base[0]; |
219 |
goto T25; |
goto T31; |
220 |
T25:; |
T31:; |
221 |
V7= ((V6))->v.v_self[11]; |
V12= ((V11))->v.v_self[11]; |
222 |
V3= CMPcdr((V3)); |
V8= CMPcdr((V8)); |
|
{object V12; |
|
|
V12= CMPcar((V3)); |
|
|
V3= CMPcdr((V3)); |
|
|
V8= (V12);} |
|
|
(void)(((V5))->v.v_self[8]= ((V8))); |
|
|
V3= CMPcdr((V3)); |
|
|
{object V13; |
|
|
V13= CMPcar((V3)); |
|
|
V3= CMPcdr((V3)); |
|
|
V8= (V13);} |
|
|
(void)(((V5))->v.v_self[0]= ((V8))); |
|
|
V3= CMPcdr((V3)); |
|
|
{object V14; |
|
|
V14= CMPcar((V3)); |
|
|
V3= CMPcdr((V3)); |
|
|
V8= (V14);} |
|
|
(void)(((V5))->v.v_self[3]= ((V8))); |
|
|
V3= CMPcdr((V3)); |
|
|
{object V15; |
|
|
V15= CMPcar((V3)); |
|
|
V3= CMPcdr((V3)); |
|
|
V8= (V15);} |
|
|
(void)(((V5))->v.v_self[4]= ((V8))); |
|
|
V3= CMPcdr((V3)); |
|
|
{object V16; |
|
|
V16= CMPcar((V3)); |
|
|
V3= CMPcdr((V3)); |
|
|
V8= (V16);} |
|
|
(void)(((V5))->v.v_self[5]= ((V8))); |
|
|
V3= CMPcdr((V3)); |
|
223 |
{object V17; |
{object V17; |
224 |
V17= CMPcar((V3)); |
V17= CMPcar((V8)); |
225 |
V3= CMPcdr((V3)); |
V8= CMPcdr((V8)); |
226 |
V8= (V17);} |
V13= (V17);} |
227 |
(void)(((V5))->v.v_self[6]= ((V8))); |
(void)(((V10))->v.v_self[8]= ((V13))); |
228 |
if(!((((V5))->v.v_self[1])==(VV[14]))){ |
V8= CMPcdr((V8)); |
229 |
goto T95;} |
{object V18; |
230 |
V8= Cnil; |
V18= CMPcar((V8)); |
231 |
(void)(((V5))->v.v_self[1]= ((V8))); |
V8= CMPcdr((V8)); |
232 |
goto T95; |
V13= (V18);} |
233 |
T95:; |
(void)(((V10))->v.v_self[0]= ((V13))); |
234 |
if(!((((V5))->v.v_self[2])==(VV[14]))){ |
V8= CMPcdr((V8)); |
235 |
goto T100;} |
{object V19; |
236 |
V8= Cnil; |
V19= CMPcar((V8)); |
237 |
(void)(((V5))->v.v_self[2]= ((V8))); |
V8= CMPcdr((V8)); |
238 |
goto T100; |
V13= (V19);} |
239 |
T100:; |
(void)(((V10))->v.v_self[3]= ((V13))); |
240 |
if(!((((V5))->v.v_self[7])==(VV[14]))){ |
V8= CMPcdr((V8)); |
241 |
goto T105;} |
{object V20; |
242 |
V8= ((base0[0]->c.c_car))->v.v_self[9]; |
V20= CMPcar((V8)); |
243 |
(void)(((V5))->v.v_self[7]= ((V8))); |
V8= CMPcdr((V8)); |
244 |
goto T105; |
V13= (V20);} |
245 |
T105:; |
(void)(((V10))->v.v_self[4]= ((V13))); |
246 |
if(!((((V5))->v.v_self[9])==(VV[14]))){ |
V8= CMPcdr((V8)); |
247 |
goto T17;} |
{object V21; |
248 |
V8= VV[15]; |
V21= CMPcar((V8)); |
249 |
(void)(((V5))->v.v_self[9]= ((V8)));} |
V8= CMPcdr((V8)); |
250 |
goto T17; |
V13= (V21);} |
251 |
T17:; |
(void)(((V10))->v.v_self[5]= ((V13))); |
252 |
base[2]= (V2); |
V8= CMPcdr((V8)); |
253 |
|
{object V22; |
254 |
|
V22= CMPcar((V8)); |
255 |
|
V8= CMPcdr((V8)); |
256 |
|
V13= (V22);} |
257 |
|
(void)(((V10))->v.v_self[6]= ((V13))); |
258 |
|
if(!((((V10))->v.v_self[1])==(VV[14]))){ |
259 |
|
goto T101;} |
260 |
|
V13= Cnil; |
261 |
|
(void)(((V10))->v.v_self[1]= ((V13))); |
262 |
|
goto T101; |
263 |
|
T101:; |
264 |
|
if(!((((V10))->v.v_self[2])==(VV[14]))){ |
265 |
|
goto T106;} |
266 |
|
V13= Cnil; |
267 |
|
(void)(((V10))->v.v_self[2]= ((V13))); |
268 |
|
goto T106; |
269 |
|
T106:; |
270 |
|
if(!((((V10))->v.v_self[7])==(VV[14]))){ |
271 |
|
goto T111;} |
272 |
|
V13= ((base0[0]->c.c_car))->v.v_self[9]; |
273 |
|
(void)(((V10))->v.v_self[7]= ((V13))); |
274 |
|
goto T111; |
275 |
|
T111:; |
276 |
|
if(!((((V10))->v.v_self[9])==(VV[14]))){ |
277 |
|
goto T23;} |
278 |
|
V13= VV[15]; |
279 |
|
(void)(((V10))->v.v_self[9]= ((V13)));} |
280 |
|
goto T23; |
281 |
|
T23:; |
282 |
|
base[2]= (V7); |
283 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
284 |
return; |
return; |
285 |
} |
} |
286 |
} |
} |
287 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
288 |
|
|
289 |
static void LC7(base0) |
static void LC12(base0) |
290 |
register object *base0; |
register object *base0; |
291 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
292 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM12; VC12 |
293 |
vs_check; |
vs_check; |
294 |
{object V18; |
{object V23; |
295 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
296 |
V18=(base[1]); |
V23=(base[1]); |
297 |
vs_top=sup; |
vs_top=sup; |
298 |
base[2]= |
base[2]= |
299 |
make_cclosure_new(LC10,Cnil,base[0],Cdata); |
make_cclosure_new(LC15,Cnil,base[0],Cdata); |
300 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
301 |
return; |
return; |
302 |
} |
} |
303 |
} |
} |
304 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
305 |
|
|
306 |
static void LC10(base0) |
static void LC15(base0) |
307 |
register object *base0; |
register object *base0; |
308 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
309 |
register object *sup=base+VM8; VC8 |
register object *sup=base+VM13; VC13 |
310 |
vs_check; |
vs_check; |
311 |
{register object V19; |
{register object V24; |
|
object V20; |
|
|
V19=(base[0]); |
|
|
V20=(base[1]); |
|
|
vs_top=sup; |
|
|
{register object V21; |
|
|
object V22; |
|
|
register object V23; |
|
|
register object V24; |
|
312 |
object V25; |
object V25; |
313 |
register object V26; |
V24=(base[0]); |
314 |
V22= CMPcar((base0[0]->c.c_car)); |
V25=(base[1]); |
|
V21= (V20); |
|
|
V23= Cnil; |
|
|
V24= Cnil; |
|
|
V25= Cnil; |
|
|
V26= Cnil; |
|
|
if(type_of(V19)==t_structure){ |
|
|
goto T126;} |
|
|
goto T124; |
|
|
goto T126; |
|
|
T126:; |
|
|
if(!(((V19)->str.str_def)==(VV[10]))){ |
|
|
goto T124;} |
|
|
V23= STREF(object,(V19),4); |
|
|
V24= STREF(object,(V19),0); |
|
|
goto T122; |
|
|
goto T124; |
|
|
T124:;{object V28; |
|
|
V28= (VV[3]->s.s_dbind); |
|
|
base[2]= small_fixnum(14); |
|
|
base[3]= (V19); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk22)(); |
|
315 |
vs_top=sup; |
vs_top=sup; |
316 |
V29= vs_base[0]; |
{register object V26; |
317 |
if(!((V28)==(CMPcar(V29)))){ |
object V27; |
318 |
goto T132;}} |
register object V28; |
319 |
V23= CMPcar(((V19))->cc.cc_turbo[12]); |
register object V29; |
320 |
V24= CMPcar(((V19))->cc.cc_turbo[13]); |
object V30; |
321 |
goto T122; |
register object V31; |
322 |
|
V27= CMPcar((base0[0]->c.c_car)); |
323 |
|
V26= (V25); |
324 |
|
V28= Cnil; |
325 |
|
V29= Cnil; |
326 |
|
V30= Cnil; |
327 |
|
V31= Cnil; |
328 |
|
if(type_of(V24)==t_structure){ |
329 |
|
goto T132;} |
330 |
|
goto T130; |
331 |
goto T132; |
goto T132; |
332 |
T132:; |
T132:; |
333 |
base[2]= (V19); |
if(!(((V24)->str.str_def)==(VV[10]))){ |
334 |
|
goto T130;} |
335 |
|
V28= STREF(object,(V24),4); |
336 |
|
V29= STREF(object,(V24),0); |
337 |
|
goto T128; |
338 |
|
goto T130; |
339 |
|
T130:;{object V33; |
340 |
|
V33= (VV[3]->s.s_dbind); |
341 |
|
base[2]= small_fixnum(14); |
342 |
|
base[3]= (V24); |
343 |
|
vs_top=(vs_base=base+2)+2; |
344 |
|
(void) (*Lnk27)(); |
345 |
|
vs_top=sup; |
346 |
|
V34= vs_base[0]; |
347 |
|
if(!((V33)==(CMPcar(V34)))){ |
348 |
|
goto T138;}} |
349 |
|
V28= CMPcar(((V24))->cc.cc_turbo[12]); |
350 |
|
V29= CMPcar(((V24))->cc.cc_turbo[13]); |
351 |
|
goto T128; |
352 |
|
goto T138; |
353 |
|
T138:; |
354 |
|
base[2]= (V24); |
355 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
356 |
(void) (*Lnk23)(); |
(void) (*Lnk28)(); |
357 |
vs_top=sup; |
vs_top=sup; |
358 |
V24= vs_base[0]; |
V29= vs_base[0]; |
359 |
goto T122; |
goto T128; |
360 |
T122:; |
T128:; |
361 |
V25= ((V24))->v.v_self[11]; |
V30= ((V29))->v.v_self[11]; |
362 |
V21= (V20); |
V26= (V25); |
363 |
V21= CMPcdr((V21)); |
V26= CMPcdr((V26)); |
|
{object V30; |
|
|
V30= CMPcar((V21)); |
|
|
V21= CMPcdr((V21)); |
|
|
V26= (V30);} |
|
|
(void)(((V23))->v.v_self[8]= ((V26))); |
|
|
V21= CMPcdr((V21)); |
|
|
{object V31; |
|
|
V31= CMPcar((V21)); |
|
|
V21= CMPcdr((V21)); |
|
|
V26= (V31);} |
|
|
(void)(((V23))->v.v_self[0]= ((V26))); |
|
|
V21= CMPcdr((V21)); |
|
|
{object V32; |
|
|
V32= CMPcar((V21)); |
|
|
V21= CMPcdr((V21)); |
|
|
V26= (V32);} |
|
|
(void)(((V23))->v.v_self[3]= ((V26))); |
|
|
V21= CMPcdr((V21)); |
|
|
{object V33; |
|
|
V33= CMPcar((V21)); |
|
|
V21= CMPcdr((V21)); |
|
|
V26= (V33);} |
|
|
(void)(((V23))->v.v_self[4]= ((V26))); |
|
|
V21= CMPcdr((V21)); |
|
|
{object V34; |
|
|
V34= CMPcar((V21)); |
|
|
V21= CMPcdr((V21)); |
|
|
V26= (V34);} |
|
|
(void)(((V23))->v.v_self[5]= ((V26))); |
|
|
V21= CMPcdr((V21)); |
|
364 |
{object V35; |
{object V35; |
365 |
V35= CMPcar((V21)); |
V35= CMPcar((V26)); |
366 |
V21= CMPcdr((V21)); |
V26= CMPcdr((V26)); |
367 |
V26= (V35);} |
V31= (V35);} |
368 |
(void)(((V23))->v.v_self[6]= ((V26)));} |
(void)(((V28))->v.v_self[8]= ((V31))); |
369 |
base[2]= (V20); |
V26= CMPcdr((V26)); |
370 |
|
{object V36; |
371 |
|
V36= CMPcar((V26)); |
372 |
|
V26= CMPcdr((V26)); |
373 |
|
V31= (V36);} |
374 |
|
(void)(((V28))->v.v_self[0]= ((V31))); |
375 |
|
V26= CMPcdr((V26)); |
376 |
|
{object V37; |
377 |
|
V37= CMPcar((V26)); |
378 |
|
V26= CMPcdr((V26)); |
379 |
|
V31= (V37);} |
380 |
|
(void)(((V28))->v.v_self[3]= ((V31))); |
381 |
|
V26= CMPcdr((V26)); |
382 |
|
{object V38; |
383 |
|
V38= CMPcar((V26)); |
384 |
|
V26= CMPcdr((V26)); |
385 |
|
V31= (V38);} |
386 |
|
(void)(((V28))->v.v_self[4]= ((V31))); |
387 |
|
V26= CMPcdr((V26)); |
388 |
|
{object V39; |
389 |
|
V39= CMPcar((V26)); |
390 |
|
V26= CMPcdr((V26)); |
391 |
|
V31= (V39);} |
392 |
|
(void)(((V28))->v.v_self[5]= ((V31))); |
393 |
|
V26= CMPcdr((V26)); |
394 |
|
{object V40; |
395 |
|
V40= CMPcar((V26)); |
396 |
|
V26= CMPcdr((V26)); |
397 |
|
V31= (V40);} |
398 |
|
(void)(((V28))->v.v_self[6]= ((V31)));} |
399 |
|
base[2]= (V25); |
400 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
401 |
return; |
return; |
402 |
} |
} |
403 |
} |
} |
404 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
405 |
|
|
406 |
static void LC6(base0) |
static void LC11(base0) |
407 |
register object *base0; |
register object *base0; |
408 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
409 |
register object *sup=base+VM9; VC9 |
register object *sup=base+VM14; VC14 |
410 |
vs_check; |
vs_check; |
411 |
{object V36; |
{object V41; |
412 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
413 |
V36=(base[1]); |
V41=(base[1]); |
414 |
vs_top=sup; |
vs_top=sup; |
415 |
base[2]= |
base[2]= |
416 |
make_cclosure_new(LC11,Cnil,base[0],Cdata); |
make_cclosure_new(LC16,Cnil,base[0],Cdata); |
417 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
418 |
return; |
return; |
419 |
} |
} |
420 |
} |
} |
421 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
422 |
|
|
423 |
static void LC11(base0) |
static void LC16(base0) |
424 |
register object *base0; |
register object *base0; |
425 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
426 |
register object *sup=base+VM10; VC10 |
register object *sup=base+VM15; VC15 |
427 |
vs_check; |
vs_check; |
428 |
{register object V37; |
{register object V42; |
|
object V38; |
|
|
V37=(base[0]); |
|
|
V38=(base[1]); |
|
|
vs_top=sup; |
|
|
{register object V39; |
|
|
object V40; |
|
|
register object V41; |
|
|
register object V42; |
|
429 |
object V43; |
object V43; |
430 |
register object V44; |
V42=(base[0]); |
431 |
V40= CMPcar((base0[0]->c.c_car)); |
V43=(base[1]); |
|
V39= (V38); |
|
|
V41= Cnil; |
|
|
V42= Cnil; |
|
|
V43= Cnil; |
|
|
V44= Cnil; |
|
|
if(type_of(V37)==t_structure){ |
|
|
goto T205;} |
|
|
goto T203; |
|
|
goto T205; |
|
|
T205:; |
|
|
if(!(((V37)->str.str_def)==(VV[7]))){ |
|
|
goto T203;} |
|
|
V41= STREF(object,(V37),4); |
|
|
V42= STREF(object,(V37),0); |
|
|
goto T201; |
|
|
goto T203; |
|
|
T203:;{object V46; |
|
|
V46= (VV[3]->s.s_dbind); |
|
|
base[2]= small_fixnum(14); |
|
|
base[3]= (V37); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk22)(); |
|
432 |
vs_top=sup; |
vs_top=sup; |
433 |
V47= vs_base[0]; |
{register object V44; |
434 |
if(!((V46)==(CMPcar(V47)))){ |
object V45; |
435 |
goto T211;}} |
register object V46; |
436 |
V41= CMPcar(((V37))->cc.cc_turbo[12]); |
register object V47; |
437 |
V42= CMPcar(((V37))->cc.cc_turbo[13]); |
object V48; |
438 |
goto T201; |
register object V49; |
439 |
|
V45= CMPcar((base0[0]->c.c_car)); |
440 |
|
V44= (V43); |
441 |
|
V46= Cnil; |
442 |
|
V47= Cnil; |
443 |
|
V48= Cnil; |
444 |
|
V49= Cnil; |
445 |
|
if(type_of(V42)==t_structure){ |
446 |
|
goto T211;} |
447 |
|
goto T209; |
448 |
goto T211; |
goto T211; |
449 |
T211:; |
T211:; |
450 |
base[2]= (V37); |
if(!(((V42)->str.str_def)==(VV[7]))){ |
451 |
|
goto T209;} |
452 |
|
V46= STREF(object,(V42),4); |
453 |
|
V47= STREF(object,(V42),0); |
454 |
|
goto T207; |
455 |
|
goto T209; |
456 |
|
T209:;{object V51; |
457 |
|
V51= (VV[3]->s.s_dbind); |
458 |
|
base[2]= small_fixnum(14); |
459 |
|
base[3]= (V42); |
460 |
|
vs_top=(vs_base=base+2)+2; |
461 |
|
(void) (*Lnk27)(); |
462 |
|
vs_top=sup; |
463 |
|
V52= vs_base[0]; |
464 |
|
if(!((V51)==(CMPcar(V52)))){ |
465 |
|
goto T217;}} |
466 |
|
V46= CMPcar(((V42))->cc.cc_turbo[12]); |
467 |
|
V47= CMPcar(((V42))->cc.cc_turbo[13]); |
468 |
|
goto T207; |
469 |
|
goto T217; |
470 |
|
T217:; |
471 |
|
base[2]= (V42); |
472 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
473 |
(void) (*Lnk23)(); |
(void) (*Lnk28)(); |
474 |
vs_top=sup; |
vs_top=sup; |
475 |
V42= vs_base[0]; |
V47= vs_base[0]; |
476 |
goto T201; |
goto T207; |
477 |
T201:; |
T207:; |
478 |
V43= ((V42))->v.v_self[11]; |
V48= ((V47))->v.v_self[11]; |
479 |
V39= CMPcdr((V39)); |
V44= CMPcdr((V44)); |
480 |
{object V48; |
{object V53; |
481 |
V48= CMPcar((V39)); |
V53= CMPcar((V44)); |
482 |
V39= CMPcdr((V39)); |
V44= CMPcdr((V44)); |
483 |
V44= (V48);} |
V49= (V53);} |
484 |
(void)(((V41))->v.v_self[1]= ((V44))); |
(void)(((V46))->v.v_self[1]= ((V49))); |
485 |
V39= CMPcdr((V39)); |
V44= CMPcdr((V44)); |
486 |
{object V49; |
{object V54; |
487 |
V49= CMPcar((V39)); |
V54= CMPcar((V44)); |
488 |
V39= CMPcdr((V39)); |
V44= CMPcdr((V44)); |
489 |
V44= (V49);} |
V49= (V54);} |
490 |
(void)(((V41))->v.v_self[0]= ((V44)));} |
(void)(((V46))->v.v_self[0]= ((V49)));} |
491 |
base[2]= (V38); |
base[2]= (V43); |
492 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
493 |
return; |
return; |
494 |
} |
} |
495 |
} |
} |
496 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
497 |
|
|
498 |
static void LC5(base0) |
static void LC10(base0) |
499 |
register object *base0; |
register object *base0; |
500 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
501 |
register object *sup=base+VM11; VC11 |
register object *sup=base+VM16; VC16 |
502 |
vs_check; |
vs_check; |
503 |
{object V50; |
{object V55; |
504 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
505 |
V50=(base[1]); |
V55=(base[1]); |
506 |
vs_top=sup; |
vs_top=sup; |
507 |
base[2]= |
base[2]= |
508 |
make_cclosure_new(LC12,Cnil,base[0],Cdata); |
make_cclosure_new(LC17,Cnil,base[0],Cdata); |
509 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
510 |
return; |
return; |
511 |
} |
} |
512 |
} |
} |
513 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
514 |
|
|
515 |
static void LC12(base0) |
static void LC17(base0) |
516 |
register object *base0; |
register object *base0; |
517 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
518 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM17; VC17 |
519 |
vs_check; |
vs_check; |
520 |
{register object V51; |
{register object V56; |
|
object V52; |
|
|
V51=(base[0]); |
|
|
V52=(base[1]); |
|
|
vs_top=sup; |
|
|
{register object V53; |
|
|
object V54; |
|
|
register object V55; |
|
|
register object V56; |
|
521 |
object V57; |
object V57; |
522 |
register object V58; |
V56=(base[0]); |
523 |
V54= CMPcar((base0[0]->c.c_car)); |
V57=(base[1]); |
|
V53= (V52); |
|
|
V55= Cnil; |
|
|
V56= Cnil; |
|
|
V57= Cnil; |
|
|
V58= Cnil; |
|
|
if(type_of(V51)==t_structure){ |
|
|
goto T250;} |
|
|
goto T248; |
|
|
goto T250; |
|
|
T250:; |
|
|
if(!(((V51)->str.str_def)==(VV[1]))){ |
|
|
goto T248;} |
|
|
V55= STREF(object,(V51),4); |
|
|
V56= STREF(object,(V51),0); |
|
|
goto T246; |
|
|
goto T248; |
|
|
T248:;{object V60; |
|
|
V60= (VV[3]->s.s_dbind); |
|
|
base[2]= small_fixnum(14); |
|
|
base[3]= (V51); |
|
|
vs_top=(vs_base=base+2)+2; |
|
|
(void) (*Lnk22)(); |
|
524 |
vs_top=sup; |
vs_top=sup; |
525 |
V61= vs_base[0]; |
{register object V58; |
526 |
if(!((V60)==(CMPcar(V61)))){ |
object V59; |
527 |
goto T256;}} |
register object V60; |
528 |
V55= CMPcar(((V51))->cc.cc_turbo[12]); |
register object V61; |
529 |
V56= CMPcar(((V51))->cc.cc_turbo[13]); |
object V62; |
530 |
goto T246; |
register object V63; |
531 |
|
V59= CMPcar((base0[0]->c.c_car)); |
532 |
|
V58= (V57); |
533 |
|
V60= Cnil; |
534 |
|
V61= Cnil; |
535 |
|
V62= Cnil; |
536 |
|
V63= Cnil; |
537 |
|
if(type_of(V56)==t_structure){ |
538 |
|
goto T256;} |
539 |
|
goto T254; |
540 |
goto T256; |
goto T256; |
541 |
T256:; |
T256:; |
542 |
base[2]= (V51); |
if(!(((V56)->str.str_def)==(VV[1]))){ |
543 |
|
goto T254;} |
544 |
|
V60= STREF(object,(V56),4); |
545 |
|
V61= STREF(object,(V56),0); |
546 |
|
goto T252; |
547 |
|
goto T254; |
548 |
|
T254:;{object V65; |
549 |
|
V65= (VV[3]->s.s_dbind); |
550 |
|
base[2]= small_fixnum(14); |
551 |
|
base[3]= (V56); |
552 |
|
vs_top=(vs_base=base+2)+2; |
553 |
|
(void) (*Lnk27)(); |
554 |
|
vs_top=sup; |
555 |
|
V66= vs_base[0]; |
556 |
|
if(!((V65)==(CMPcar(V66)))){ |
557 |
|
goto T262;}} |
558 |
|
V60= CMPcar(((V56))->cc.cc_turbo[12]); |
559 |
|
V61= CMPcar(((V56))->cc.cc_turbo[13]); |
560 |
|
goto T252; |
561 |
|
goto T262; |
562 |
|
T262:; |
563 |
|
base[2]= (V56); |
564 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
565 |
(void) (*Lnk23)(); |
(void) (*Lnk28)(); |
566 |
vs_top=sup; |
vs_top=sup; |
567 |
V56= vs_base[0]; |
V61= vs_base[0]; |
568 |
goto T246; |
goto T252; |
569 |
T246:; |
T252:; |
570 |
V57= ((V56))->v.v_self[11]; |
V62= ((V61))->v.v_self[11]; |
571 |
V53= (V52); |
V58= (V57); |
572 |
V53= CMPcdr((V53)); |
V58= CMPcdr((V58)); |
573 |
{object V62; |
{object V67; |
574 |
V62= CMPcar((V53)); |
V67= CMPcar((V58)); |
575 |
V53= CMPcdr((V53)); |
V58= CMPcdr((V58)); |
576 |
V58= (V62);} |
V63= (V67);} |
577 |
(void)(((V55))->v.v_self[1]= ((V58))); |
(void)(((V60))->v.v_self[1]= ((V63))); |
578 |
V53= CMPcdr((V53)); |
V58= CMPcdr((V58)); |
579 |
{object V63; |
{object V68; |
580 |
V63= CMPcar((V53)); |
V68= CMPcar((V58)); |
581 |
V53= CMPcdr((V53)); |
V58= CMPcdr((V58)); |
582 |
V58= (V63);} |
V63= (V68);} |
583 |
(void)(((V55))->v.v_self[0]= ((V58)));} |
(void)(((V60))->v.v_self[0]= ((V63)));} |
584 |
base[2]= (V52); |
base[2]= (V57); |
585 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
586 |
return; |
return; |
587 |
} |
} |
588 |
} |
} |
589 |
static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* WRAPPER-OF */ |
static void LnkT28(){ call_or_link(VV[28],(void **)(void *)&Lnk28);} /* WRAPPER-OF */ |
590 |
static void LnkT22(){ call_or_link(VV[22],(void **)(void *)&Lnk22);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT27(){ call_or_link(VV[27],(void **)(void *)&Lnk27);} /* CCLOSURE-ENV-NTHCDR */ |
591 |
|
static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* COMPILE-IIS-FUNCTIONS */ |
592 |
|
static void LnkT25(){ call_or_link(VV[25],(void **)(void *)&Lnk25);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 3)2195 */ |
593 |
|
static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 2)2195 */ |
594 |
|
static void LnkT21(){ call_or_link(VV[21],(void **)(void *)&Lnk21);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 1)2195 */ |
595 |
|
static void LnkT19(){ call_or_link(VV[19],(void **)(void *)&Lnk19);} /* (PCL::PRECOMPILE-INITIALIZE-INSTANCE-SIMPLE CLCS 0)2195 */ |
596 |
static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* LOAD-PRECOMPILED-IIS-ENTRY */ |
static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* LOAD-PRECOMPILED-IIS-ENTRY */ |
597 |
|
|
598 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |