13 |
base[0]=MMcons((V4),Cnil); |
base[0]=MMcons((V4),Cnil); |
14 |
{object V6; |
{object V6; |
15 |
base[2]= |
base[2]= |
16 |
make_cclosure_new(LC128,Cnil,base[0],Cdata); |
make_cclosure_new(LC124,Cnil,base[0],Cdata); |
17 |
base[3]= (V3); |
base[3]= (V3); |
18 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
19 |
(void) (*Lnk346)(); |
(void) (*Lnk361)(); |
20 |
vs_top=sup; |
vs_top=sup; |
21 |
V6= vs_base[0]; |
V6= vs_base[0]; |
22 |
base[2]= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
base[2]= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
23 |
base[3]= (V6); |
base[3]= (V6); |
24 |
base[4]= V3; |
base[4]= V3; |
25 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
49 |
base[3]= (V8->c.c_car); |
base[3]= (V8->c.c_car); |
50 |
V8=V8->c.c_cdr; |
V8=V8->c.c_cdr; |
51 |
base[4]= V8;} |
base[4]= V8;} |
52 |
base[5]= (*(LnkLI348))(base[2],base[3],base[4]); |
base[5]= (*(LnkLI363))(base[2],base[3],base[4]); |
53 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
54 |
return; |
return; |
55 |
} |
} |
61 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
62 |
goto TTL; |
goto TTL; |
63 |
TTL:; |
TTL:; |
|
if(!(type_of((V12))==t_cons||((V12))==Cnil)){ |
|
|
goto T7;} |
|
|
(void)((*(LnkLI349))(CMPcadr((V12)))); |
|
|
goto T7; |
|
|
T7:; |
|
64 |
{register object V15; |
{register object V15; |
65 |
object V16; |
base[0]= Cnil; |
66 |
V15= Cnil; |
V15= Cnil; |
67 |
V16= Cnil; |
{register object V16; |
68 |
{register object V17; |
register object V17; |
69 |
register object V18; |
V16= (V14); |
70 |
V17= (V14); |
V17= CMPcar((V16)); |
71 |
V18= CMPcar((V17)); |
goto T12; |
72 |
goto T15; |
T12:; |
73 |
T15:; |
if(!(((V16))==Cnil)){ |
74 |
if(!(((V17))==Cnil)){ |
goto T13;} |
75 |
goto T16;} |
goto T8; |
76 |
goto T11; |
goto T13; |
77 |
goto T16; |
T13:; |
78 |
T16:; |
{object V18= CMPcar((V17)); |
79 |
{object V19= CMPcar((V18)); |
if((V18!= VV[0]))goto T18; |
|
if((V19!= VV[0]))goto T21; |
|
|
base[1]= (V15); |
|
80 |
base[2]= VV[0]; |
base[2]= VV[0]; |
81 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+2)+1; |
82 |
Lgetf(); |
L7(base); |
83 |
vs_top=sup; |
vs_top=sup; |
84 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
85 |
goto T23;} |
goto T20;} |
86 |
base[1]= VV[0]; |
base[2]= VV[0]; |
87 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+2)+1; |
88 |
L5(base); |
L5(base); |
89 |
vs_top=sup; |
vs_top=sup; |
90 |
|
goto T17; |
91 |
goto T20; |
goto T20; |
92 |
goto T23; |
T20:; |
93 |
T23:; |
base[2]= VV[0]; |
94 |
{register object V21; |
base[3]= list(2,VV[1],CMPcdr((V17))); |
|
V21= list(2,VV[1],CMPcdr((V18))); |
|
|
{object V22; |
|
|
base[2]= (V15); |
|
|
base[3]= (V21); |
|
|
base[4]= VV[0]; |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
siLput_f(); |
|
|
vs_top=sup; |
|
|
V22= vs_base[0]; |
|
|
V15= (V22); |
|
|
goto T20;}} |
|
|
goto T21; |
|
|
T21:; |
|
|
if((V19!= VV[45]))goto T35; |
|
|
{register object V24; |
|
|
V25= CMPcdr((V18)); |
|
|
base[2]= (V15); |
|
|
base[3]= VV[2]; |
|
95 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
96 |
Lgetf(); |
L7(base); |
97 |
|
vs_top=sup; |
98 |
|
goto T17; |
99 |
|
goto T18; |
100 |
|
T18:; |
101 |
|
if((V18!= VV[49]))goto T26; |
102 |
|
base[2]= CMPcdr((V17)); |
103 |
|
vs_top=(vs_base=base+2)+1; |
104 |
|
L6(base); |
105 |
vs_top=sup; |
vs_top=sup; |
106 |
V26= vs_base[0]; |
base[2]= VV[2]; |
107 |
V24= append(/* INLINE-ARGS */V25,V26); |
V19= CMPcdr((V17)); |
|
{object V27; |
|
|
base[2]= (V15); |
|
|
base[3]= (V24); |
|
108 |
base[4]= VV[2]; |
base[4]= VV[2]; |
109 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+4)+1; |
110 |
siLput_f(); |
L7(base); |
111 |
vs_top=sup; |
vs_top=sup; |
112 |
V27= vs_base[0]; |
V20= vs_base[0]; |
113 |
V15= (V27); |
base[3]= append(/* INLINE-ARGS */V19,V20); |
114 |
goto T20;}} |
vs_top=(vs_base=base+2)+2; |
115 |
goto T35; |
L7(base); |
116 |
T35:; |
vs_top=sup; |
117 |
if((V19!= VV[3]))goto T46; |
goto T17; |
118 |
base[1]= (V15); |
goto T26; |
119 |
|
T26:; |
120 |
|
if((V18!= VV[3]))goto T33; |
121 |
base[2]= VV[3]; |
base[2]= VV[3]; |
122 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+2)+1; |
123 |
Lgetf(); |
L7(base); |
124 |
vs_top=sup; |
vs_top=sup; |
125 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
126 |
goto T48;} |
goto T35;} |
127 |
base[1]= VV[3]; |
base[2]= VV[3]; |
128 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+2)+1; |
129 |
L5(base); |
L5(base); |
130 |
vs_top=sup; |
vs_top=sup; |
131 |
goto T20; |
goto T17; |
132 |
goto T48; |
goto T35; |
133 |
T48:; |
T35:; |
134 |
{register object V29; |
base[2]= VV[3]; |
135 |
V29= list(2,VV[1],CMPcadr((V18))); |
base[3]= list(2,VV[1],CMPcadr((V17))); |
136 |
{object V30; |
vs_top=(vs_base=base+2)+2; |
137 |
base[2]= (V15); |
L7(base); |
|
base[3]= (V29); |
|
|
base[4]= VV[3]; |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
siLput_f(); |
|
138 |
vs_top=sup; |
vs_top=sup; |
139 |
V30= vs_base[0]; |
goto T17; |
140 |
V15= (V30); |
goto T33; |
141 |
goto T20;}} |
T33:; |
142 |
goto T46; |
if((V18!= VV[4]))goto T41; |
|
T46:; |
|
|
if((V19!= VV[4]))goto T60; |
|
|
base[1]= (V15); |
|
143 |
base[2]= VV[4]; |
base[2]= VV[4]; |
144 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+2)+1; |
145 |
Lgetf(); |
L7(base); |
146 |
vs_top=sup; |
vs_top=sup; |
147 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
148 |
goto T62;} |
goto T43;} |
149 |
base[1]= VV[4]; |
base[2]= VV[4]; |
150 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+2)+1; |
151 |
L5(base); |
L5(base); |
152 |
vs_top=sup; |
vs_top=sup; |
153 |
goto T20; |
goto T17; |
154 |
goto T62; |
goto T43; |
155 |
T62:; |
T43:; |
156 |
{register object V32; |
base[2]= VV[4]; |
157 |
V32= list(2,VV[1],CMPcdr((V18))); |
base[3]= list(2,VV[1],CMPcdr((V17))); |
158 |
{object V33; |
vs_top=(vs_base=base+2)+2; |
159 |
base[2]= (V15); |
L7(base); |
|
base[3]= (V32); |
|
|
base[4]= VV[4]; |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
siLput_f(); |
|
160 |
vs_top=sup; |
vs_top=sup; |
161 |
V33= vs_base[0]; |
goto T17; |
162 |
V15= (V33); |
goto T41; |
163 |
goto T20;}} |
T41:; |
164 |
goto T60; |
if((V18!= VV[5]))goto T49; |
|
T60:; |
|
|
if((V19!= VV[5]))goto T74; |
|
|
base[1]= (V15); |
|
165 |
base[2]= VV[5]; |
base[2]= VV[5]; |
166 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+2)+1; |
167 |
Lgetf(); |
L7(base); |
168 |
vs_top=sup; |
vs_top=sup; |
169 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
170 |
goto T76;} |
goto T51;} |
171 |
base[1]= VV[5]; |
base[2]= VV[5]; |
172 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+2)+1; |
173 |
L5(base); |
L5(base); |
174 |
vs_top=sup; |
vs_top=sup; |
175 |
goto T20; |
goto T17; |
176 |
goto T76; |
goto T51; |
177 |
T76:; |
T51:; |
178 |
{register object V35; |
base[2]= VV[5]; |
179 |
V35= list(2,VV[1],CMPcadr((V18))); |
base[3]= list(2,VV[1],CMPcadr((V17))); |
180 |
{object V36; |
vs_top=(vs_base=base+2)+2; |
181 |
base[2]= (V15); |
L7(base); |
|
base[3]= (V35); |
|
|
base[4]= VV[5]; |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
siLput_f(); |
|
182 |
vs_top=sup; |
vs_top=sup; |
183 |
V36= vs_base[0]; |
goto T17; |
184 |
V15= (V36); |
goto T49; |
185 |
goto T20;}} |
T49:; |
186 |
goto T74; |
if((V18!= VV[6]))goto T57; |
|
T74:; |
|
|
if((V19!= VV[6]))goto T88; |
|
|
base[1]= (V15); |
|
187 |
base[2]= VV[6]; |
base[2]= VV[6]; |
188 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+2)+1; |
189 |
Lgetf(); |
L7(base); |
190 |
vs_top=sup; |
vs_top=sup; |
191 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
192 |
goto T90;} |
goto T59;} |
193 |
base[1]= VV[6]; |
base[2]= VV[6]; |
194 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+2)+1; |
195 |
L5(base); |
L5(base); |
196 |
vs_top=sup; |
vs_top=sup; |
197 |
goto T20; |
goto T17; |
198 |
goto T90; |
goto T59; |
199 |
T90:; |
T59:; |
200 |
{register object V38; |
base[2]= VV[6]; |
201 |
V38= list(2,VV[1],CMPcadr((V18))); |
base[3]= list(2,VV[1],CMPcadr((V17))); |
202 |
{object V39; |
vs_top=(vs_base=base+2)+2; |
203 |
base[2]= (V15); |
L7(base); |
|
base[3]= (V38); |
|
|
base[4]= VV[6]; |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
siLput_f(); |
|
204 |
vs_top=sup; |
vs_top=sup; |
205 |
V39= vs_base[0]; |
goto T17; |
206 |
V15= (V39); |
goto T57; |
207 |
goto T20;}} |
T57:; |
208 |
goto T88; |
if((V18!= VV[219]))goto T65; |
209 |
T88:; |
{object V21; |
210 |
if((V19!= VV[209]))goto T102; |
V21= listA(3,VV[7],(V12),CMPcdr((V17))); |
211 |
{object V40; |
V15= make_cons((V21),(V15)); |
212 |
V40= listA(3,VV[7],(V12),CMPcdr((V18))); |
goto T17;} |
213 |
V16= make_cons((V40),(V16)); |
goto T65; |
214 |
goto T20;} |
T65:; |
215 |
goto T102; |
base[2]= VV[8]; |
216 |
T102:; |
base[3]= VV[9]; |
217 |
FEerror("The ECASE key value ~s is illegal.",1,V19); |
base[4]= (V17); |
218 |
goto T20;} |
vs_top=(vs_base=base+2)+3; |
219 |
goto T20; |
(void) (*Lnk364)(); |
220 |
T20:; |
vs_top=sup;} |
221 |
V17= CMPcdr((V17)); |
goto T17; |
222 |
V18= CMPcar((V17)); |
T17:; |
223 |
goto T15;} |
V16= CMPcdr((V16)); |
224 |
goto T11; |
V17= CMPcar((V16)); |
225 |
T11:; |
goto T12;} |
226 |
{object V41; |
goto T8; |
227 |
base[0]= (V15); |
T8:; |
228 |
|
{object V22; |
229 |
base[1]= VV[2]; |
base[1]= VV[2]; |
230 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+1)+1; |
231 |
Lgetf(); |
L7(base); |
|
vs_top=sup; |
|
|
V41= vs_base[0]; |
|
|
if(((V41))==Cnil){ |
|
|
goto T10;} |
|
|
{object V43; |
|
|
V43= list(2,VV[1],(V41)); |
|
|
{object V44; |
|
|
base[1]= (V15); |
|
|
base[2]= (V43); |
|
|
base[3]= VV[2]; |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
siLput_f(); |
|
232 |
vs_top=sup; |
vs_top=sup; |
233 |
V44= vs_base[0]; |
V22= vs_base[0]; |
234 |
V15= (V44);}}} |
if(((V22))==Cnil){ |
235 |
goto T10; |
goto T7;} |
236 |
T10:; |
base[1]= VV[2]; |
237 |
V45= list(2,VV[1],(V12)); |
base[2]= list(2,VV[1],(V22)); |
238 |
V46= list(3,VV[10],/* INLINE-ARGS */V45,list(2,VV[1],(V13))); |
vs_top=(vs_base=base+1)+2; |
239 |
V47= list(2,VV[11],(V12));{object V48; |
L7(base); |
240 |
V48= (VV[12]->s.s_dbind); |
vs_top=sup;} |
241 |
V49= list(2,VV[1],(V12)); |
goto T7; |
242 |
V50= listA(4,VV[13],/* INLINE-ARGS */V49,list(2,VV[1],(V13)),(V15)); |
T7:; |
243 |
V51= (*(LnkLI350))(/* INLINE-ARGS */V47,V48,/* INLINE-ARGS */V50); |
V23= list(2,VV[1],(V12)); |
244 |
V52= list(2,VV[14],(V12)); |
V24= list(3,VV[14],/* INLINE-ARGS */V23,list(2,VV[1],(V13))); |
245 |
V53= make_cons(/* INLINE-ARGS */V52,Cnil); |
V25= list(2,VV[15],(V12));{object V26; |
246 |
{object V54 = listA(4,VV[9],/* INLINE-ARGS */V46,/* INLINE-ARGS */V51,append((V16),/* INLINE-ARGS */V53)); |
V26= (VV[16]->s.s_dbind); |
247 |
VMR3(V54)}}} |
V27= list(2,VV[1],(V12)); |
248 |
|
V28= listA(4,VV[17],/* INLINE-ARGS */V27,list(2,VV[1],(V13)),base[0]); |
249 |
|
V29= (*(LnkLI365))(/* INLINE-ARGS */V25,V26,/* INLINE-ARGS */V28); |
250 |
|
V30= list(2,VV[18],(V12)); |
251 |
|
V31= make_cons(/* INLINE-ARGS */V30,Cnil); |
252 |
|
{object V32 = listA(4,VV[13],/* INLINE-ARGS */V24,/* INLINE-ARGS */V29,append((V15),/* INLINE-ARGS */V31)); |
253 |
|
VMR3(V32)}}} |
254 |
base[0]=base[0]; |
base[0]=base[0]; |
255 |
return Cnil; |
return Cnil; |
256 |
} |
} |
257 |
/* function definition for LOAD-DEFGENERIC */ |
/* function definition for LOAD-DEFGENERIC */ |
258 |
|
|
259 |
static void L6() |
static void L8() |
260 |
{register object *base=vs_base; |
{register object *base=vs_base; |
261 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
262 |
vs_check; |
vs_check; |
263 |
{register object V55; |
{object V33; |
264 |
object V56; |
object V34; |
265 |
object V57; |
object V35; |
266 |
if(vs_top-vs_base<2) too_few_arguments(); |
if(vs_top-vs_base<2) too_few_arguments(); |
267 |
V55=(base[0]); |
V33=(base[0]); |
268 |
V56=(base[1]); |
V34=(base[1]); |
269 |
vs_base=vs_base+2; |
vs_base=vs_base+2; |
270 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
271 |
{object *p=vs_top; |
{object *p=vs_top; |
272 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
273 |
V57=(base[2]); |
V35=(base[2]); |
274 |
vs_top=sup; |
vs_top=sup; |
275 |
if(!(type_of((V55))==t_cons||((V55))==Cnil)){ |
base[3]= (V33); |
276 |
goto T122;} |
base[4]= VV[19]; |
277 |
(void)((*(LnkLI349))(CMPcadr((V55)))); |
base[5]= (V34); |
278 |
goto T122; |
base[6]= VV[20]; |
279 |
T122:; |
V37= list(2,VV[15],(V33)); |
|
base[3]= (V55); |
|
|
base[4]= VV[15]; |
|
|
base[5]= (V56); |
|
|
base[6]= VV[16]; |
|
|
V59= list(2,VV[11],(V55)); |
|
280 |
vs_base=vs_top; |
vs_base=vs_top; |
281 |
(void) (*Lnk351)(); |
(void) (*Lnk366)(); |
282 |
vs_top=sup; |
vs_top=sup; |
283 |
V60= vs_base[0]; |
V38= vs_base[0]; |
284 |
base[7]= list(2,/* INLINE-ARGS */V59,V60); |
base[7]= list(2,/* INLINE-ARGS */V37,V38); |
285 |
{object V58; |
{object V36; |
286 |
V58= (V57); |
V36= (V35); |
287 |
vs_top=base+8; |
vs_top=base+8; |
288 |
while(V58!=Cnil) |
while(V36!=Cnil) |
289 |
{vs_push((V58)->c.c_car);V58=(V58)->c.c_cdr;} |
{vs_push((V36)->c.c_car);V36=(V36)->c.c_cdr;} |
290 |
vs_base=base+3;} |
vs_base=base+3;} |
291 |
(void) (*Lnk352)(); |
(void) (*Lnk367)(); |
292 |
return; |
return; |
293 |
} |
} |
294 |
} |
} |
295 |
/* macro definition for DEFMETHOD */ |
/* macro definition for DEFMETHOD */ |
296 |
|
|
297 |
static void L7() |
static void L9() |
298 |
{register object *base=vs_base; |
{register object *base=vs_base; |
299 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
300 |
vs_check; |
vs_check; |
301 |
check_arg(2); |
check_arg(2); |
302 |
vs_top=sup; |
vs_top=sup; |
303 |
{object V61=base[0]->c.c_cdr; |
{object V39=base[0]->c.c_cdr; |
304 |
base[2]= V61;} |
base[2]= V39;} |
305 |
{object V62; |
{object V40; |
306 |
object V63; |
object V41; |
307 |
object V64; |
object V42; |
308 |
object V65; |
object V43; |
309 |
base[3]= base[2]; |
base[3]= base[2]; |
310 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
311 |
(void) (*Lnk353)(); |
(void) (*Lnk368)(); |
312 |
if(vs_base>=vs_top){vs_top=sup;goto T134;} |
if(vs_base>=vs_top){vs_top=sup;goto T91;} |
313 |
V62= vs_base[0]; |
V40= vs_base[0]; |
314 |
vs_base++; |
vs_base++; |
315 |
if(vs_base>=vs_top){vs_top=sup;goto T135;} |
if(vs_base>=vs_top){vs_top=sup;goto T92;} |
316 |
V63= vs_base[0]; |
V41= vs_base[0]; |
317 |
vs_base++; |
vs_base++; |
318 |
if(vs_base>=vs_top){vs_top=sup;goto T136;} |
if(vs_base>=vs_top){vs_top=sup;goto T93;} |
319 |
V64= vs_base[0]; |
V42= vs_base[0]; |
320 |
vs_base++; |
vs_base++; |
321 |
if(vs_base>=vs_top){vs_top=sup;goto T137;} |
if(vs_base>=vs_top){vs_top=sup;goto T94;} |
322 |
V65= vs_base[0]; |
V43= vs_base[0]; |
323 |
vs_top=sup; |
vs_top=sup; |
324 |
goto T138; |
goto T95; |
325 |
goto T134; |
goto T91; |
326 |
T134:; |
T91:; |
327 |
V62= Cnil; |
V40= Cnil; |
328 |
goto T135; |
goto T92; |
329 |
T135:; |
T92:; |
330 |
V63= Cnil; |
V41= Cnil; |
331 |
goto T136; |
goto T93; |
332 |
T136:; |
T93:; |
333 |
V64= Cnil; |
V42= Cnil; |
334 |
goto T137; |
goto T94; |
335 |
T137:; |
T94:; |
336 |
V65= Cnil; |
V43= Cnil; |
337 |
goto T138; |
goto T95; |
338 |
T138:; |
T95:; |
339 |
{object V66; |
{object V44; |
340 |
object V67; |
object V45; |
341 |
base[3]= (V62); |
base[3]= (V40); |
342 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
343 |
(void) (*Lnk354)(); |
(void) (*Lnk369)(); |
344 |
if(vs_base>=vs_top){vs_top=sup;goto T141;} |
if(vs_base>=vs_top){vs_top=sup;goto T98;} |
345 |
V66= vs_base[0]; |
V44= vs_base[0]; |
346 |
vs_base++; |
vs_base++; |
347 |
if(vs_base>=vs_top){vs_top=sup;goto T142;} |
if(vs_base>=vs_top){vs_top=sup;goto T99;} |
348 |
V67= vs_base[0]; |
V45= vs_base[0]; |
349 |
vs_top=sup; |
vs_top=sup; |
350 |
goto T143; |
goto T100; |
351 |
goto T141; |
goto T98; |
352 |
T141:; |
T98:; |
353 |
V66= Cnil; |
V44= Cnil; |
354 |
goto T142; |
goto T99; |
355 |
T142:; |
T99:; |
356 |
V67= Cnil; |
V45= Cnil; |
357 |
goto T143; |
goto T100; |
358 |
T143:; |
T100:; |
359 |
base[3]= (*(LnkLI355))((V62),(V66),(V67),(V63),(V64),(V65),base[1]); |
base[3]= (*(LnkLI370))((V40),(V44),(V45),(V41),(V42),(V43),base[1]); |
360 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
361 |
return;}} |
return;}} |
362 |
} |
} |
363 |
/* function definition for PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */ |
/* function definition for PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */ |
364 |
|
|
365 |
static void L8() |
static void L10() |
366 |
{register object *base=vs_base; |
{register object *base=vs_base; |
367 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
368 |
vs_check; |
vs_check; |
369 |
{object V68; |
{object V46; |
370 |
check_arg(1); |
check_arg(1); |
371 |
V68=(base[0]); |
V46=(base[0]); |
372 |
vs_top=sup; |
vs_top=sup; |
373 |
goto TTL; |
goto TTL; |
374 |
TTL:; |
TTL:; |
375 |
if(((VV[17]->s.s_dbind))==(VV[18])){ |
if(((VV[21]->s.s_dbind))==(VV[22])){ |
376 |
goto T145;} |
goto T102;} |
377 |
base[1]= Cnil; |
base[1]= Cnil; |
378 |
base[2]= Cnil; |
base[2]= Cnil; |
379 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
380 |
return; |
return; |
381 |
goto T145; |
goto T102; |
382 |
T145:; |
T102:; |
383 |
{register object V69; |
{register object V47; |
384 |
if(((*(LnkLI356))((V68)))!=Cnil){ |
if(((*(LnkLI371))((V46)))!=Cnil){ |
385 |
goto T150;} |
goto T107;} |
386 |
V69= Cnil; |
V47= Cnil; |
387 |
goto T149; |
goto T106; |
388 |
goto T150; |
goto T107; |
389 |
T150:; |
T107:; |
390 |
V69= (*(LnkLI347))((V68)); |
V47= (*(LnkLI362))((V46)); |
391 |
goto T149; |
goto T106; |
392 |
T149:; |
T106:; |
393 |
if(((V69))==Cnil){ |
if(((V47))==Cnil){ |
394 |
goto T152;} |
goto T109;} |
395 |
base[1]= (V69); |
base[1]= (V47); |
396 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
397 |
(void) (*Lnk357)(Lclptr357); |
(void) (*Lnk372)(Lclptr372); |
398 |
vs_top=sup; |
vs_top=sup; |
399 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
400 |
goto T153;} |
goto T110;} |
401 |
goto T152; |
goto T109; |
402 |
T152:; |
T109:; |
403 |
base[2]= (VFUN_NARGS=1,(*(LnkLI291))(VV[19])); |
base[2]= (VFUN_NARGS=1,(*(LnkLI304))(VV[23])); |
404 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
405 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
406 |
vs_top=sup; |
vs_top=sup; |
407 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
408 |
base[3]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20])); |
base[3]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24])); |
409 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
410 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
411 |
vs_top=sup; |
vs_top=sup; |
412 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
413 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
414 |
return; |
return; |
415 |
goto T153; |
goto T110; |
416 |
T153:; |
T110:; |
417 |
base[1]= (V69);{object V70; |
base[1]= (V47);{object V48; |
418 |
base[4]= (V69); |
base[4]= (V47); |
419 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
420 |
(void) (*Lnk358)(Lclptr358); |
(void) (*Lnk373)(Lclptr373); |
421 |
vs_top=sup; |
vs_top=sup; |
422 |
V70= vs_base[0]; |
V48= vs_base[0]; |
423 |
if(V70==Cnil)goto T165; |
if(V48==Cnil)goto T122; |
424 |
base[3]= V70; |
base[3]= V48; |
425 |
goto T164; |
goto T121; |
426 |
goto T165; |
goto T122; |
427 |
T165:;} |
T122:;} |
428 |
base[3]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20])); |
base[3]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24])); |
429 |
goto T164; |
goto T121; |
430 |
T164:; |
T121:; |
431 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
432 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
433 |
vs_top=sup; |
vs_top=sup; |
434 |
base[2]= vs_base[0]; |
base[2]= vs_base[0]; |
435 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
438 |
} |
} |
439 |
/* function definition for METHOD-PROTOTYPE-FOR-GF */ |
/* function definition for METHOD-PROTOTYPE-FOR-GF */ |
440 |
|
|
441 |
static void L9() |
static void L11() |
442 |
{register object *base=vs_base; |
{register object *base=vs_base; |
443 |
register object *sup=base+VM7; VC7 |
register object *sup=base+VM7; VC7 |
444 |
vs_check; |
vs_check; |
445 |
{object V71; |
{object V49; |
446 |
check_arg(1); |
check_arg(1); |
447 |
V71=(base[0]); |
V49=(base[0]); |
448 |
vs_top=sup; |
vs_top=sup; |
449 |
goto TTL; |
goto TTL; |
450 |
TTL:; |
TTL:; |
451 |
{object V72; |
{object V50; |
452 |
if(((*(LnkLI356))((V71)))!=Cnil){ |
if(((*(LnkLI371))((V49)))!=Cnil){ |
453 |
goto T169;} |
goto T126;} |
454 |
V72= Cnil; |
V50= Cnil; |
455 |
goto T168; |
goto T125; |
456 |
goto T169; |
goto T126; |
457 |
T169:; |
T126:; |
458 |
V72= (*(LnkLI347))((V71)); |
V50= (*(LnkLI362))((V49)); |
459 |
goto T168; |
goto T125; |
460 |
T168:; |
T125:; |
461 |
if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){ |
if(!(((((VV[21]->s.s_dbind))==(VV[22])?Ct:Cnil))==Cnil)){ |
462 |
goto T172;} |
goto T129;} |
463 |
base[1]= Cnil; |
base[1]= Cnil; |
464 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
465 |
return; |
return; |
466 |
goto T172; |
goto T129; |
467 |
T172:; |
T129:; |
468 |
if(((V72))==Cnil){ |
if(((V50))==Cnil){ |
469 |
goto T174;} |
goto T131;} |
470 |
base[1]= (V72); |
base[1]= (V50); |
471 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
472 |
(void) (*Lnk357)(Lclptr357); |
(void) (*Lnk372)(Lclptr372); |
473 |
vs_top=sup; |
vs_top=sup; |
474 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
475 |
goto T175;} |
goto T132;} |
476 |
goto T174; |
goto T131; |
477 |
T174:; |
T131:; |
478 |
base[1]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20])); |
base[1]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24])); |
479 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
480 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
481 |
return; |
return; |
482 |
goto T175; |
goto T132; |
483 |
T175:;{object V73; |
T132:;{object V51; |
484 |
base[2]= (V72); |
base[2]= (V50); |
485 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
486 |
(void) (*Lnk358)(Lclptr358); |
(void) (*Lnk373)(Lclptr373); |
487 |
vs_top=sup; |
vs_top=sup; |
488 |
V73= vs_base[0]; |
V51= vs_base[0]; |
489 |
if(V73==Cnil)goto T182; |
if(V51==Cnil)goto T139; |
490 |
base[1]= V73; |
base[1]= V51; |
491 |
goto T181; |
goto T138; |
492 |
goto T182; |
goto T139; |
493 |
T182:;} |
T139:;} |
494 |
base[1]= (VFUN_NARGS=1,(*(LnkLI291))(VV[20])); |
base[1]= (VFUN_NARGS=1,(*(LnkLI304))(VV[24])); |
495 |
goto T181; |
goto T138; |
496 |
T181:; |
T138:; |
497 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
498 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
499 |
return;} |
return;} |
500 |
} |
} |
501 |
} |
} |
502 |
/* local entry for function EXPAND-DEFMETHOD */ |
/* local entry for function EXPAND-DEFMETHOD */ |
503 |
|
|
504 |
static object LI10(V81,V82,V83,V84,V85,V86,V87) |
static object LI12(V59,V60,V61,V62,V63,V64,V65) |
505 |
|
|
506 |
register object V81;object V82;register object V83;object V84;object V85;object V86;object V87; |
object V59;object V60;register object V61;object V62;object V63;object V64;object V65; |
507 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
508 |
bds_check; |
bds_check; |
509 |
goto TTL; |
goto TTL; |
510 |
TTL:; |
TTL:; |
|
if(!(type_of((V81))==t_cons||((V81))==Cnil)){ |
|
|
goto T185;} |
|
|
(void)((*(LnkLI349))(CMPcadr((V81)))); |
|
|
goto T185; |
|
|
T185:; |
|
|
bds_bind(VV[21],Cnil); |
|
|
bds_bind(VV[22],Ct); |
|
|
bds_bind(VV[23],Cnil); |
|
|
bds_bind(VV[24],Cnil); |
|
511 |
bds_bind(VV[25],Cnil); |
bds_bind(VV[25],Cnil); |
512 |
{object V88; |
bds_bind(VV[26],Ct); |
513 |
object V89; |
bds_bind(VV[27],Cnil); |
514 |
object V90; |
bds_bind(VV[28],Cnil); |
515 |
base[5]= (V81); |
bds_bind(VV[29],Cnil); |
516 |
base[6]= (V84); |
{object V66; |
517 |
base[7]= (V85); |
object V67; |
518 |
base[8]= (V86); |
object V68; |
519 |
base[9]= (V87); |
base[5]= (V59); |
520 |
|
base[6]= (V62); |
521 |
|
base[7]= (V63); |
522 |
|
base[8]= (V64); |
523 |
|
base[9]= (V65); |
524 |
vs_top=(vs_base=base+5)+5; |
vs_top=(vs_base=base+5)+5; |
525 |
(void) (*Lnk359)(); |
(void) (*Lnk374)(); |
526 |
if(vs_base>=vs_top){vs_top=sup;goto T194;} |
if(vs_base>=vs_top){vs_top=sup;goto T148;} |
527 |
V88= vs_base[0]; |
V66= vs_base[0]; |
528 |
vs_base++; |
vs_base++; |
529 |
if(vs_base>=vs_top){vs_top=sup;goto T195;} |
if(vs_base>=vs_top){vs_top=sup;goto T149;} |
530 |
V89= vs_base[0]; |
V67= vs_base[0]; |
531 |
vs_base++; |
vs_base++; |
532 |
if(vs_base>=vs_top){vs_top=sup;goto T196;} |
if(vs_base>=vs_top){vs_top=sup;goto T150;} |
533 |
V90= vs_base[0]; |
V68= vs_base[0]; |
534 |
vs_top=sup; |
vs_top=sup; |
535 |
goto T197; |
goto T151; |
536 |
goto T194; |
goto T148; |
537 |
T194:; |
T148:; |
538 |
V88= Cnil; |
V66= Cnil; |
539 |
goto T195; |
goto T149; |
540 |
T195:; |
T149:; |
541 |
V89= Cnil; |
V67= Cnil; |
542 |
goto T196; |
goto T150; |
543 |
T196:; |
T150:; |
544 |
V90= Cnil; |
V68= Cnil; |
545 |
goto T197; |
goto T151; |
546 |
T197:; |
T151:; |
547 |
{object V91; |
{object V69; |
548 |
object V92; |
object V70; |
549 |
base[5]= (V82); |
base[5]= (V60); |
550 |
base[6]= (V83); |
base[6]= (V61); |
551 |
base[7]= (V88); |
base[7]= (V66); |
552 |
base[8]= (V87); |
base[8]= (V65); |
553 |
vs_top=(vs_base=base+5)+4; |
vs_top=(vs_base=base+5)+4; |
554 |
(void) (*Lnk360)(Lclptr360); |
(void) (*Lnk375)(Lclptr375); |
555 |
if(vs_base>=vs_top){vs_top=sup;goto T203;} |
if(vs_base>=vs_top){vs_top=sup;goto T157;} |
556 |
V91= vs_base[0]; |
V69= vs_base[0]; |
557 |
vs_base++; |
vs_base++; |
558 |
if(vs_base>=vs_top){vs_top=sup;goto T204;} |
if(vs_base>=vs_top){vs_top=sup;goto T158;} |
559 |
V92= vs_base[0]; |
V70= vs_base[0]; |
560 |
vs_top=sup; |
vs_top=sup; |
561 |
goto T205; |
goto T159; |
562 |
goto T203; |
goto T157; |
563 |
T203:; |
T157:; |
564 |
V91= Cnil; |
V69= Cnil; |
565 |
goto T204; |
goto T158; |
566 |
T204:; |
T158:; |
567 |
V92= Cnil; |
V70= Cnil; |
568 |
goto T205; |
goto T159; |
569 |
T205:; |
T159:; |
570 |
{object V93; |
{object V71; |
571 |
base[5]= (V82); |
base[5]= (V60); |
572 |
base[6]= (V83); |
base[6]= (V61); |
573 |
base[7]= (V91); |
base[7]= (V69); |
574 |
base[8]= (V92); |
base[8]= (V70); |
575 |
base[9]= (V87); |
base[9]= (V65); |
576 |
vs_top=(vs_base=base+5)+5; |
vs_top=(vs_base=base+5)+5; |
577 |
(void) (*Lnk361)(Lclptr361); |
(void) (*Lnk376)(Lclptr376); |
578 |
vs_top=sup; |
vs_top=sup; |
579 |
V93= vs_base[0]; |
V71= vs_base[0]; |
580 |
V94= list(2,VV[1],(V81)); |
V72= list(2,VV[1],(V59)); |
581 |
V95= list(3,VV[10],/* INLINE-ARGS */V94,list(2,VV[1],(V85))); |
V73= list(3,VV[14],/* INLINE-ARGS */V72,list(2,VV[1],(V63))); |
|
if(((VV[21]->s.s_dbind))==Cnil){ |
|
|
goto T215;} |
|
|
V97= list(2,VV[26],list(2,VV[1],(VV[21]->s.s_dbind))); |
|
|
base[5]= make_cons(/* INLINE-ARGS */V97,Cnil); |
|
|
goto T213; |
|
|
goto T215; |
|
|
T215:; |
|
|
base[5]= Cnil; |
|
|
goto T213; |
|
|
T213:; |
|
|
if(((VV[23]->s.s_dbind))!=Cnil){ |
|
|
goto T218;} |
|
|
if(((VV[24]->s.s_dbind))!=Cnil){ |
|
|
goto T218;} |
|
582 |
if(((VV[25]->s.s_dbind))==Cnil){ |
if(((VV[25]->s.s_dbind))==Cnil){ |
583 |
goto T219;} |
goto T169;} |
584 |
goto T218; |
V75= list(2,VV[30],list(2,VV[1],(VV[25]->s.s_dbind))); |
585 |
T218:; |
base[5]= make_cons(/* INLINE-ARGS */V75,Cnil); |
586 |
V98= list(2,VV[1],(VV[23]->s.s_dbind)); |
goto T167; |
587 |
V99= list(2,VV[1],(VV[24]->s.s_dbind)); |
goto T169; |
588 |
V100= list(4,VV[27],/* INLINE-ARGS */V98,/* INLINE-ARGS */V99,list(2,VV[1],(VV[25]->s.s_dbind))); |
T169:; |
589 |
base[6]= make_cons(/* INLINE-ARGS */V100,Cnil); |
base[5]= Cnil; |
590 |
goto T217; |
goto T167; |
591 |
goto T219; |
T167:; |
592 |
T219:; |
if(((VV[27]->s.s_dbind))!=Cnil){ |
593 |
|
goto T172;} |
594 |
|
if(((VV[28]->s.s_dbind))!=Cnil){ |
595 |
|
goto T172;} |
596 |
|
if(((VV[29]->s.s_dbind))==Cnil){ |
597 |
|
goto T173;} |
598 |
|
goto T172; |
599 |
|
T172:; |
600 |
|
V76= list(2,VV[1],(VV[27]->s.s_dbind)); |
601 |
|
V77= list(2,VV[1],(VV[28]->s.s_dbind)); |
602 |
|
V78= list(4,VV[31],/* INLINE-ARGS */V76,/* INLINE-ARGS */V77,list(2,VV[1],(VV[29]->s.s_dbind))); |
603 |
|
base[6]= make_cons(/* INLINE-ARGS */V78,Cnil); |
604 |
|
goto T171; |
605 |
|
goto T173; |
606 |
|
T173:; |
607 |
base[6]= Cnil; |
base[6]= Cnil; |
608 |
goto T217; |
goto T171; |
609 |
T217:; |
T171:; |
610 |
V101 = (V81); |
if(((V61))==Cnil){ |
611 |
V102 = (V84); |
goto T182;} |
612 |
V103 = (V90); |
base[8]= (*(LnkLI378))((V61)); |
|
V104 = (V89); |
|
|
if(((V83))==Cnil){ |
|
|
goto T228;} |
|
|
base[8]= (*(LnkLI363))((V83)); |
|
613 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
614 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk379)(Lclptr379); |
615 |
vs_top=sup; |
vs_top=sup; |
616 |
V105= vs_base[0]; |
V79= vs_base[0]; |
617 |
goto T226; |
goto T180; |
618 |
goto T228; |
goto T182; |
619 |
T228:; |
T182:; |
620 |
V105= VV[20]; |
V79= VV[24]; |
621 |
goto T226; |
goto T180; |
622 |
T226:; |
T180:; |
623 |
V106 = (V93); |
base[9]= (V70); |
624 |
base[9]= (V92); |
base[10]= VV[32]; |
|
base[10]= VV[28]; |
|
625 |
vs_top=(vs_base=base+9)+2; |
vs_top=(vs_base=base+9)+2; |
626 |
Lgetf(); |
Lgetf(); |
627 |
vs_top=sup; |
vs_top=sup; |
628 |
base[8]= vs_base[0]; |
base[8]= vs_base[0]; |
629 |
base[9]= VV[29]; |
base[9]= VV[33]; |
630 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
631 |
Lgetf(); |
Lgetf(); |
632 |
vs_top=sup; |
vs_top=sup; |
633 |
V107= vs_base[0]; |
V80= vs_base[0]; |
634 |
V108= (VFUN_NARGS=7,(*(LnkLI362))(V101,V102,V103,V104,V105,V106,V107)); |
V81= (VFUN_NARGS=7,(*(LnkLI377))((V59),(V62),(V68),(V67),V79,(V71),V80)); |
635 |
base[7]= make_cons(/* INLINE-ARGS */V108,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V81,Cnil); |
636 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
637 |
Lappend(); |
Lappend(); |
638 |
vs_top=sup; |
vs_top=sup; |
639 |
V96= vs_base[0]; |
V74= vs_base[0]; |
640 |
{object V109 = listA(3,VV[9],/* INLINE-ARGS */V95,V96); |
{object V82 = listA(3,VV[13],/* INLINE-ARGS */V73,V74); |
641 |
bds_unwind1; |
bds_unwind1; |
642 |
bds_unwind1; |
bds_unwind1; |
643 |
bds_unwind1; |
bds_unwind1; |
644 |
bds_unwind1; |
bds_unwind1; |
645 |
bds_unwind1; |
bds_unwind1; |
646 |
VMR8(V109)}}}} |
VMR8(V82)}}}} |
647 |
base[0]=base[0]; |
base[0]=base[0]; |
648 |
return Cnil; |
return Cnil; |
649 |
} |
} |
650 |
/* local entry for function INTERNED-SYMBOL-P */ |
/* local entry for function INTERNED-SYMBOL-P */ |
651 |
|
|
652 |
static object LI11(V111) |
static object LI13(V84) |
653 |
|
|
654 |
object V111; |
object V84; |
655 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
656 |
goto TTL; |
goto TTL; |
657 |
TTL:; |
TTL:; |
658 |
if(type_of((V111))==t_symbol){ |
if(type_of((V84))==t_symbol){ |
659 |
goto T236;} |
goto T190;} |
660 |
{object V112 = Cnil; |
{object V85 = Cnil; |
661 |
VMR9(V112)} |
VMR9(V85)} |
662 |
goto T236; |
goto T190; |
663 |
T236:; |
T190:; |
664 |
base[0]= (V111); |
base[0]= (V84); |
665 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
666 |
Lsymbol_package(); |
Lsymbol_package(); |
667 |
vs_top=sup; |
vs_top=sup; |
668 |
{object V113 = vs_base[0]; |
{object V86 = vs_base[0]; |
669 |
VMR9(V113)} |
VMR9(V86)} |
670 |
base[0]=base[0]; |
base[0]=base[0]; |
671 |
return Cnil; |
return Cnil; |
672 |
} |
} |
673 |
/* local entry for function MAKE-DEFMETHOD-FORM */ |
/* local entry for function MAKE-DEFMETHOD-FORM */ |
674 |
|
|
675 |
static object LI12(object V119,object V118,object V117,object V116,object V115,object V114,object first,...) |
static object LI14(object V92,object V91,object V90,object V89,object V88,object V87,object first,...) |
676 |
{ |
{ |
677 |
va_list ap; |
va_list ap; |
678 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
int narg = VFUN_NARGS; VMB10 VMS10 VMV10 |
679 |
bds_check; |
bds_check; |
680 |
{register object V120; |
{register object V93; |
681 |
register object V121; |
register object V94; |
682 |
register object V122; |
register object V95; |
683 |
object V123; |
object V96; |
684 |
object V124; |
object V97; |
685 |
register object V125; |
register object V98; |
686 |
object V126; |
object V99; |
687 |
va_start(ap,first); |
va_start(ap,first); |
688 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
689 |
V120= V119; |
V93= V92; |
690 |
V121= V118; |
V94= V91; |
691 |
V122= V117; |
V95= V90; |
692 |
V123= V116; |
V96= V89; |
693 |
V124= V115; |
V97= V88; |
694 |
V125= V114; |
V98= V87; |
695 |
narg = narg - 6; |
narg = narg - 6; |
696 |
if (narg <= 0) goto T239; |
if (narg <= 0) goto T193; |
697 |
else { |
else { |
698 |
V126= first;} |
V99= first;} |
699 |
--narg; goto T240; |
--narg; goto T194; |
700 |
goto T239; |
goto T193; |
701 |
T239:; |
T193:; |
702 |
V126= Cnil; |
V99= Cnil; |
703 |
goto T240; |
goto T194; |
704 |
T240:; |
T194:; |
705 |
{object V127; |
{object V100; |
706 |
register object V128; |
register object V101; |
707 |
V127= Cnil; |
V100= Cnil; |
708 |
V128= Cnil; |
V101= Cnil; |
709 |
if(!(type_of((V120))==t_cons)){ |
if(!(type_of((V93))==t_cons)){ |
710 |
goto T248;} |
goto T202;} |
711 |
if((CMPcar((V120)))==(VV[30])){ |
if((CMPcar((V93)))==(VV[34])){ |
712 |
goto T250;} |
goto T204;} |
713 |
V129= Cnil; |
V102= Cnil; |
714 |
goto T246; |
goto T200; |
715 |
goto T250; |
goto T204; |
716 |
T250:; |
T204:; |
717 |
V129= CMPcadr((V120)); |
V102= CMPcadr((V93)); |
718 |
goto T246; |
goto T200; |
719 |
goto T248; |
goto T202; |
720 |
T248:; |
T202:; |
721 |
V129= (V120); |
V102= (V93); |
722 |
goto T246; |
goto T200; |
723 |
T246:; |
T200:; |
724 |
if(((*(LnkLI365))(V129))==Cnil){ |
if(((*(LnkLI380))(V102))==Cnil){ |
725 |
goto T243;} |
goto T197;} |
726 |
base[0]= (VV[365]->s.s_gfdef); |
base[0]= (VV[380]->s.s_gfdef); |
727 |
base[1]= (V121); |
base[1]= (V94); |
728 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
729 |
(void) (*Lnk366)(); |
(void) (*Lnk381)(); |
730 |
vs_top=sup; |
vs_top=sup; |
731 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
732 |
goto T243;} |
goto T197;} |
733 |
base[0]= VV[367]; |
base[0]= VV[382]; |
734 |
base[1]= (V122); |
base[1]= (V95); |
735 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
736 |
(void) (*Lnk366)(); |
(void) (*Lnk381)(); |
737 |
vs_top=sup; |
vs_top=sup; |
738 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
739 |
goto T243;} |
goto T197;} |
740 |
if(!(type_of((V125))==t_cons)){ |
if(!(type_of((V98))==t_cons)){ |
741 |
goto T243;} |
goto T197;} |
742 |
if(!((CMPcar((V125)))==(VV[32]))){ |
if(!((CMPcar((V98)))==(VV[36]))){ |
743 |
goto T243;} |
goto T197;} |
744 |
{register object x= CMPcadr((V125)),V130= VV[33]; |
{register object x= CMPcadr((V98)),V103= VV[37]; |
745 |
while(V130!=Cnil) |
while(V103!=Cnil) |
746 |
if(x==(V130->c.c_car)){ |
if(x==(V103->c.c_car)){ |
747 |
goto T265; |
goto T219; |
748 |
}else V130=V130->c.c_cdr; |
}else V103=V103->c.c_cdr; |
749 |
goto T243;} |
goto T197;} |
750 |
goto T265; |
goto T219; |
751 |
T265:; |
T219:; |
752 |
V127= CMPcaddr((V125)); |
V100= CMPcaddr((V98)); |
753 |
V131 = (V127); |
if(!(type_of((V100))==t_cons)){ |
754 |
if(!(type_of(V131)==t_cons)){ |
goto T197;} |
755 |
goto T243;} |
if(!((CMPcar((V100)))==(VV[18]))){ |
756 |
if(!((CMPcar((V127)))==(VV[14]))){ |
goto T197;} |
757 |
goto T243;} |
V101= CMPcadr((V100)); |
758 |
V128= CMPcadr((V127)); |
if(!(type_of((V101))==t_cons)){ |
759 |
V132 = (V128); |
goto T197;} |
760 |
if(!(type_of(V132)==t_cons)){ |
if(!((CMPcar((V101)))==(VV[38]))){ |
761 |
goto T243;} |
goto T197;} |
762 |
if(!((CMPcar((V128)))==(VV[34]))){ |
{object V104; |
763 |
goto T243;} |
object V105; |
764 |
{object V133; |
object V106; |
765 |
object V134; |
{object V107; |
766 |
object V135; |
object V108= (V95); |
767 |
{object V136; |
if(V108==Cnil){ |
768 |
object V137= (V122); |
V104= Cnil; |
769 |
if(V137==Cnil){ |
goto T229;} |
770 |
V133= Cnil; |
base[3]=V107=MMcons(Cnil,Cnil); |
771 |
goto T275;} |
goto T230; |
772 |
base[3]=V136=MMcons(Cnil,Cnil); |
T230:; |
773 |
goto T276; |
{register object V109; |
774 |
T276:; |
V109= (V108->c.c_car); |
775 |
{register object V138; |
if(!(type_of((V109))==t_cons)){ |
776 |
V138= (V137->c.c_car); |
goto T233;} |
777 |
if(!(type_of((V138))==t_cons)){ |
V110= CMPcar((V109)); |
778 |
goto T279;} |
base[4]= CMPcadr((V109)); |
|
V139= CMPcar((V138)); |
|
|
base[4]= CMPcadr((V138)); |
|
779 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
780 |
Leval(); |
Leval(); |
781 |
vs_top=sup; |
vs_top=sup; |
782 |
V140= vs_base[0]; |
V111= vs_base[0]; |
783 |
(V136->c.c_car)= list(2,/* INLINE-ARGS */V139,V140); |
(V107->c.c_car)= list(2,/* INLINE-ARGS */V110,V111); |
784 |
goto T277; |
goto T231; |
785 |
goto T279; |
goto T233; |
786 |
T279:; |
T233:; |
787 |
(V136->c.c_car)= (V138);} |
(V107->c.c_car)= (V109);} |
788 |
goto T277; |
goto T231; |
789 |
T277:; |
T231:; |
790 |
if((V137=MMcdr(V137))==Cnil){ |
if((V108=MMcdr(V108))==Cnil){ |
791 |
V133= base[3]; |
V104= base[3]; |
792 |
goto T275;} |
goto T229;} |
793 |
V136=MMcdr(V136)=MMcons(Cnil,Cnil); |
V107=MMcdr(V107)=MMcons(Cnil,Cnil); |
794 |
goto T276;} |
goto T230;} |
795 |
goto T275; |
goto T229; |
796 |
T275:; |
T229:; |
797 |
if(!((CMPcadr((V125)))==(VV[35]))){ |
if(!((CMPcadr((V98)))==(VV[39]))){ |
798 |
goto T286;} |
goto T240;} |
799 |
V141= VV[36]; |
V112= VV[40]; |
800 |
goto T284; |
goto T238; |
801 |
goto T286; |
goto T240; |
802 |
T286:; |
T240:; |
803 |
V141= VV[37]; |
V112= VV[41]; |
804 |
goto T284; |
goto T238; |
805 |
T284:; |
T238:; |
806 |
V142 = (V120); |
V113= make_cons((V104),Cnil); |
807 |
V143= make_cons((V133),Cnil); |
V105= listA(3,V112,(V93),append((V94),/* INLINE-ARGS */V113)); |
808 |
V134= listA(3,V141,V142,append((V121),/* INLINE-ARGS */V143)); |
bds_bind(VV[42],Cnil); |
|
bds_bind(VV[38],Cnil); |
|
809 |
base[5]= Cnil; |
base[5]= Cnil; |
810 |
base[6]= VV[39]; |
base[6]= VV[43]; |
811 |
base[7]= (V134); |
base[7]= (V105); |
812 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
813 |
Lformat(); |
Lformat(); |
814 |
vs_top=sup; |
vs_top=sup; |
817 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
818 |
Lintern(); |
Lintern(); |
819 |
vs_top=sup; |
vs_top=sup; |
820 |
V135= vs_base[0];{object V144; |
V106= vs_base[0];{object V114; |
821 |
V144= (VV[41]->s.s_dbind); |
V114= (VV[45]->s.s_dbind); |
822 |
V145= listA(4,VV[42],(V135),CMPcadr((V128)),CMPcddr((V128))); |
V115= listA(4,VV[46],(V106),CMPcadr((V101)),CMPcddr((V101))); |
823 |
V146= list(2,VV[1],(V133)); |
V116= list(2,VV[1],(V104)); |
824 |
V147= CMPcadr((V125)); |
V117= CMPcadr((V98)); |
825 |
V148= listA(4,VV[32],/* INLINE-ARGS */V147,list(2,VV[14],(V135)),CMPcdddr((V125))); |
V118= listA(4,VV[36],/* INLINE-ARGS */V117,list(2,VV[18],(V106)),CMPcdddr((V98))); |
826 |
{object V149 = list(4,VV[40],V144,/* INLINE-ARGS */V145,(VFUN_NARGS=7,(*(LnkLI368))((V120),(V121),/* INLINE-ARGS */V146,(V123),(V124),/* INLINE-ARGS */V148,(V126)))); |
{object V119 = list(4,VV[44],V114,/* INLINE-ARGS */V115,(VFUN_NARGS=7,(*(LnkLI383))((V93),(V94),/* INLINE-ARGS */V116,(V96),(V97),/* INLINE-ARGS */V118,(V99)))); |
827 |
VMR10(V149)}}} |
VMR10(V119)}}} |
828 |
goto T243; |
goto T197; |
829 |
T243:; |
T197:; |
830 |
V150= make_cons((V122),Cnil); |
V120= make_cons((V95),Cnil); |
831 |
V151= listA(3,VV[7],(V120),append((V121),/* INLINE-ARGS */V150));{object V152; |
V121= listA(3,VV[7],(V93),append((V94),/* INLINE-ARGS */V120));{object V122; |
832 |
V152= (VV[41]->s.s_dbind); |
V122= (VV[45]->s.s_dbind); |
833 |
{object V154; |
{object V124; |
834 |
object V155= (V122); |
object V125= (V95); |
835 |
if(V155==Cnil){ |
if(V125==Cnil){ |
836 |
V153= Cnil; |
V123= Cnil; |
837 |
goto T293;} |
goto T247;} |
838 |
base[0]=V154=MMcons(Cnil,Cnil); |
base[0]=V124=MMcons(Cnil,Cnil); |
839 |
goto T294; |
goto T248; |
840 |
T294:; |
T248:; |
841 |
{register object V156; |
{register object V126; |
842 |
V156= (V155->c.c_car); |
V126= (V125->c.c_car); |
843 |
if(!(type_of((V156))==t_cons)){ |
if(!(type_of((V126))==t_cons)){ |
844 |
goto T297;} |
goto T251;} |
845 |
(V154->c.c_car)= list(3,VV[43],list(2,VV[1],CMPcar((V156))),CMPcadr((V156))); |
(V124->c.c_car)= list(3,VV[47],list(2,VV[1],CMPcar((V126))),CMPcadr((V126))); |
846 |
goto T295; |
goto T249; |
847 |
goto T297; |
goto T251; |
848 |
T297:; |
T251:; |
849 |
(V154->c.c_car)= list(2,VV[1],(V156));} |
(V124->c.c_car)= list(2,VV[1],(V126));} |
850 |
goto T295; |
goto T249; |
851 |
T295:; |
T249:; |
852 |
if((V155=MMcdr(V155))==Cnil){ |
if((V125=MMcdr(V125))==Cnil){ |
853 |
V153= base[0]; |
V123= base[0]; |
854 |
goto T293;} |
goto T247;} |
855 |
V154=MMcdr(V154)=MMcons(Cnil,Cnil); |
V124=MMcdr(V124)=MMcons(Cnil,Cnil); |
856 |
goto T294;} |
goto T248;} |
857 |
goto T293; |
goto T247; |
858 |
T293:; |
T247:; |
859 |
V157= make_cons(VV[43],V153); |
V127= make_cons(VV[47],V123); |
860 |
V158= (VFUN_NARGS=7,(*(LnkLI368))((V120),(V121),/* INLINE-ARGS */V157,(V123),(V124),(V125),(V126))); |
V128= (VFUN_NARGS=7,(*(LnkLI383))((V93),(V94),/* INLINE-ARGS */V127,(V96),(V97),(V98),(V99))); |
861 |
{object V159 = (*(LnkLI350))(/* INLINE-ARGS */V151,V152,/* INLINE-ARGS */V158); |
{object V129 = (*(LnkLI365))(/* INLINE-ARGS */V121,V122,/* INLINE-ARGS */V128); |
862 |
VMR10(V159)}}} |
VMR10(V129)}}} |
863 |
va_end(ap); |
va_end(ap); |
864 |
base[0]=base[0]; |
base[0]=base[0]; |
865 |
return Cnil;} |
return Cnil;} |
866 |
} |
} |
867 |
/* local entry for function MAKE-DEFMETHOD-FORM-INTERNAL */ |
/* local entry for function MAKE-DEFMETHOD-FORM-INTERNAL */ |
868 |
|
|
869 |
static object LI13(object V165,object V164,object V163,object V162,object V161,object V160,object first,...) |
static object LI15(object V135,object V134,object V133,object V132,object V131,object V130,object first,...) |
870 |
{ |
{ |
871 |
va_list ap; |
va_list ap; |
872 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
int narg = VFUN_NARGS; VMB11 VMS11 VMV11 |
873 |
{object V166; |
{object V136; |
874 |
object V167; |
object V137; |
875 |
object V168; |
object V138; |
876 |
object V169; |
object V139; |
877 |
object V170; |
object V140; |
878 |
object V171; |
object V141; |
879 |
object V172; |
object V142; |
880 |
va_start(ap,first); |
va_start(ap,first); |
881 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
882 |
V166= V165; |
V136= V135; |
883 |
V167= V164; |
V137= V134; |
884 |
V168= V163; |
V138= V133; |
885 |
V169= V162; |
V139= V132; |
886 |
V170= V161; |
V140= V131; |
887 |
V171= V160; |
V141= V130; |
888 |
narg = narg - 6; |
narg = narg - 6; |
889 |
if (narg <= 0) goto T299; |
if (narg <= 0) goto T253; |
890 |
else { |
else { |
891 |
V172= first;} |
V142= first;} |
892 |
--narg; goto T300; |
--narg; goto T254; |
893 |
goto T299; |
goto T253; |
894 |
T299:; |
T253:; |
895 |
V172= Cnil; |
V142= Cnil; |
896 |
goto T300; |
goto T254; |
897 |
T300:; |
T254:; |
898 |
V173= list(2,VV[1],(V170)); |
V143= list(2,VV[1],(V140)); |
899 |
V174= list(2,VV[1],(V166)); |
V144= list(2,VV[1],(V136)); |
900 |
V175= list(2,VV[1],(V167)); |
V145= list(2,VV[1],(V137)); |
901 |
V176= list(2,VV[1],(V169)); |
V146= list(2,VV[1],(V139)); |
902 |
{object V177 = list(8,VV[44],/* INLINE-ARGS */V173,/* INLINE-ARGS */V174,/* INLINE-ARGS */V175,(V168),/* INLINE-ARGS */V176,(V171),list(2,VV[1],(V172))); |
{object V147 = list(8,VV[48],/* INLINE-ARGS */V143,/* INLINE-ARGS */V144,/* INLINE-ARGS */V145,(V138),/* INLINE-ARGS */V146,(V141),list(2,VV[1],(V142))); |
903 |
VMR11(V177)} |
VMR11(V147)} |
904 |
va_end(ap); |
va_end(ap); |
905 |
return Cnil;} |
return Cnil;} |
906 |
} |
} |
907 |
/* macro definition for MAKE-METHOD-FUNCTION */ |
/* macro definition for MAKE-METHOD-FUNCTION */ |
908 |
|
|
909 |
static void L14() |
static void L16() |
910 |
{register object *base=vs_base; |
{register object *base=vs_base; |
911 |
register object *sup=base+VM12; VC12 |
register object *sup=base+VM12; VC12 |
912 |
vs_check; |
vs_check; |
913 |
check_arg(2); |
check_arg(2); |
914 |
vs_top=sup; |
vs_top=sup; |
915 |
{object V178=base[0]->c.c_cdr; |
{object V148=base[0]->c.c_cdr; |
916 |
if(endp(V178))invalid_macro_call(); |
if(endp(V148))invalid_macro_call(); |
917 |
base[2]= (V178->c.c_car); |
base[2]= (V148->c.c_car); |
918 |
V178=V178->c.c_cdr; |
V148=V148->c.c_cdr; |
919 |
if(!endp(V178))invalid_macro_call();} |
if(!endp(V148))invalid_macro_call();} |
920 |
base[3]= base[2]; |
base[3]= base[2]; |
921 |
base[4]= base[1]; |
base[4]= base[1]; |
922 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
923 |
(void) (*Lnk369)(); |
(void) (*Lnk384)(); |
924 |
return; |
return; |
925 |
} |
} |
926 |
/* function definition for MAKE-METHOD-FUNCTION-INTERNAL */ |
/* function definition for MAKE-METHOD-FUNCTION-INTERNAL */ |
927 |
|
|
928 |
static void L15() |
static void L17() |
929 |
{register object *base=vs_base; |
{register object *base=vs_base; |
930 |
register object *sup=base+VM13; VC13 |
register object *sup=base+VM13; VC13 |
931 |
vs_check; |
vs_check; |
932 |
{object V179; |
{object V149; |
933 |
object V180; |
object V150; |
934 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
935 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
936 |
V179=(base[0]); |
V149=(base[0]); |
937 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
938 |
if(vs_base>=vs_top){vs_top=sup;goto T304;} |
if(vs_base>=vs_top){vs_top=sup;goto T258;} |
939 |
V180=(base[1]); |
V150=(base[1]); |
940 |
vs_top=sup; |
vs_top=sup; |
941 |
goto T305; |
goto T259; |
942 |
goto T304; |
goto T258; |
943 |
T304:; |
T258:; |
944 |
V180= Cnil; |
V150= Cnil; |
945 |
goto T305; |
goto T259; |
946 |
T305:; |
T259:; |
947 |
{object V181; |
{object V151; |
948 |
object V182; |
object V152; |
949 |
base[2]= Cnil; |
base[2]= Cnil; |
950 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
951 |
(void) (*Lnk354)(); |
(void) (*Lnk369)(); |
952 |
if(vs_base>=vs_top){vs_top=sup;goto T309;} |
if(vs_base>=vs_top){vs_top=sup;goto T263;} |
953 |
V181= vs_base[0]; |
V151= vs_base[0]; |
954 |
vs_base++; |
vs_base++; |
955 |
if(vs_base>=vs_top){vs_top=sup;goto T310;} |
if(vs_base>=vs_top){vs_top=sup;goto T264;} |
956 |
V182= vs_base[0]; |
V152= vs_base[0]; |
957 |
vs_top=sup; |
vs_top=sup; |
958 |
goto T311; |
goto T265; |
959 |
goto T309; |
goto T263; |
960 |
T309:; |
T263:; |
961 |
V181= Cnil; |
V151= Cnil; |
962 |
goto T310; |
goto T264; |
963 |
T310:; |
T264:; |
964 |
V182= Cnil; |
V152= Cnil; |
965 |
goto T311; |
goto T265; |
966 |
T311:; |
T265:; |
967 |
{object V183; |
{object V153; |
968 |
object V184; |
object V154; |
969 |
base[2]= (V181); |
base[2]= (V151); |
970 |
base[3]= (V182); |
base[3]= (V152); |
971 |
base[4]= (V179); |
base[4]= (V149); |
972 |
base[5]= (V180); |
base[5]= (V150); |
973 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
974 |
(void) (*Lnk360)(Lclptr360); |
(void) (*Lnk375)(Lclptr375); |
975 |
if(vs_base>=vs_top){vs_top=sup;goto T317;} |
if(vs_base>=vs_top){vs_top=sup;goto T271;} |
976 |
V183= vs_base[0]; |
V153= vs_base[0]; |
977 |
vs_base++; |
vs_base++; |
978 |
if(vs_base>=vs_top){vs_top=sup;goto T318;} |
if(vs_base>=vs_top){vs_top=sup;goto T272;} |
979 |
V184= vs_base[0]; |
V154= vs_base[0]; |
980 |
vs_top=sup; |
vs_top=sup; |
981 |
goto T319; |
goto T273; |
982 |
goto T317; |
goto T271; |
983 |
T317:; |
T271:; |
984 |
V183= Cnil; |
V153= Cnil; |
985 |
goto T318; |
goto T272; |
986 |
T318:; |
T272:; |
987 |
V184= Cnil; |
V154= Cnil; |
988 |
goto T319; |
goto T273; |
989 |
T319:; |
T273:; |
990 |
base[2]= (V181); |
base[2]= (V151); |
991 |
base[3]= (V182); |
base[3]= (V152); |
992 |
base[4]= (V183); |
base[4]= (V153); |
993 |
base[5]= (V184); |
base[5]= (V154); |
994 |
base[6]= (V180); |
base[6]= (V150); |
995 |
vs_top=(vs_base=base+2)+5; |
vs_top=(vs_base=base+2)+5; |
996 |
(void) (*Lnk361)(Lclptr361); |
(void) (*Lnk376)(Lclptr376); |
997 |
return;}} |
return;}} |
998 |
} |
} |
999 |
} |
} |
1000 |
/* function definition for ADD-METHOD-DECLARATIONS */ |
/* function definition for ADD-METHOD-DECLARATIONS */ |
1001 |
|
|
1002 |
static void L16() |
static void L18() |
1003 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1004 |
register object *sup=base+VM14; VC14 |
register object *sup=base+VM14; VC14 |
1005 |
vs_check; |
vs_check; |
1006 |
{object V185; |
{object V155; |
1007 |
object V186; |
object V156; |
1008 |
object V187; |
object V157; |
1009 |
object V188; |
object V158; |
1010 |
object V189; |
object V159; |
1011 |
check_arg(5); |
check_arg(5); |
1012 |
V185=(base[0]); |
V155=(base[0]); |
1013 |
V186=(base[1]); |
V156=(base[1]); |
1014 |
V187=(base[2]); |
V157=(base[2]); |
1015 |
V188=(base[3]); |
V158=(base[3]); |
1016 |
V189=(base[4]); |
V159=(base[4]); |
1017 |
vs_top=sup; |
vs_top=sup; |
1018 |
goto TTL; |
goto TTL; |
1019 |
TTL:; |
TTL:; |
1020 |
{object V190; |
{object V160; |
1021 |
object V191; |
object V161; |
1022 |
object V192; |
object V162; |
1023 |
base[5]= (V187); |
base[5]= (V157); |
1024 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1025 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
1026 |
if(vs_base>=vs_top){vs_top=sup;goto T327;} |
if(vs_base>=vs_top){vs_top=sup;goto T281;} |
1027 |
V190= vs_base[0]; |
V160= vs_base[0]; |
1028 |
vs_base++; |
vs_base++; |
1029 |
if(vs_base>=vs_top){vs_top=sup;goto T328;} |
if(vs_base>=vs_top){vs_top=sup;goto T282;} |
1030 |
V191= vs_base[0]; |
V161= vs_base[0]; |
1031 |
vs_base++; |
vs_base++; |
1032 |
if(vs_base>=vs_top){vs_top=sup;goto T329;} |
if(vs_base>=vs_top){vs_top=sup;goto T283;} |
1033 |
V192= vs_base[0]; |
V162= vs_base[0]; |
1034 |
vs_top=sup; |
vs_top=sup; |
1035 |
goto T330; |
goto T284; |
1036 |
goto T327; |
goto T281; |
1037 |
T327:; |
T281:; |
1038 |
V190= Cnil; |
V160= Cnil; |
1039 |
goto T328; |
goto T282; |
1040 |
T328:; |
T282:; |
1041 |
V191= Cnil; |
V161= Cnil; |
1042 |
goto T329; |
goto T283; |
1043 |
T329:; |
T283:; |
1044 |
V192= Cnil; |
V162= Cnil; |
1045 |
goto T330; |
goto T284; |
1046 |
T330:; |
T284:; |
1047 |
{object V193; |
{object V163; |
1048 |
object V194; |
object V164; |
1049 |
object V195; |
object V165; |
1050 |
base[5]= (V188); |
base[5]= (V158); |
1051 |
base[6]= (V189); |
base[6]= (V159); |
1052 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1053 |
(void) (*Lnk371)(); |
(void) (*Lnk386)(); |
1054 |
if(vs_base>=vs_top){vs_top=sup;goto T334;} |
if(vs_base>=vs_top){vs_top=sup;goto T288;} |
1055 |
V193= vs_base[0]; |
V163= vs_base[0]; |
1056 |
vs_base++; |
vs_base++; |
1057 |
if(vs_base>=vs_top){vs_top=sup;goto T335;} |
if(vs_base>=vs_top){vs_top=sup;goto T289;} |
1058 |
V194= vs_base[0]; |
V164= vs_base[0]; |
1059 |
vs_base++; |
vs_base++; |
1060 |
if(vs_base>=vs_top){vs_top=sup;goto T336;} |
if(vs_base>=vs_top){vs_top=sup;goto T290;} |
1061 |
V195= vs_base[0]; |
V165= vs_base[0]; |
1062 |
vs_top=sup; |
vs_top=sup; |
1063 |
goto T337; |
goto T291; |
1064 |
goto T334; |
goto T288; |
1065 |
T334:; |
T288:; |
1066 |
V193= Cnil; |
V163= Cnil; |
1067 |
goto T335; |
goto T289; |
1068 |
T335:; |
T289:; |
1069 |
V194= Cnil; |
V164= Cnil; |
1070 |
goto T336; |
goto T290; |
1071 |
T336:; |
T290:; |
1072 |
V195= Cnil; |
V165= Cnil; |
1073 |
goto T337; |
goto T291; |
1074 |
T337:; |
T291:; |
1075 |
if(((V193))==Cnil){ |
if(((V163))==Cnil){ |
1076 |
goto T341;} |
goto T295;} |
1077 |
V196= make_cons((V193),Cnil); |
V166= make_cons((V163),Cnil); |
1078 |
goto T339; |
goto T293; |
1079 |
goto T341; |
goto T295; |
1080 |
T341:; |
T295:; |
1081 |
V196= Cnil; |
V166= Cnil; |
1082 |
goto T339; |
goto T293; |
1083 |
T339:; |
T293:; |
1084 |
V197= list(2,VV[45],list(2,VV[46],list(3,(V185),(V186),(V192)))); |
V167= list(2,VV[49],list(2,VV[50],list(3,(V155),(V156),(V162)))); |
1085 |
V198= list(2,VV[45],make_cons(VV[47],(V187))); |
V168= list(2,VV[49],make_cons(VV[51],(V157))); |
1086 |
V199= listA(3,/* INLINE-ARGS */V197,/* INLINE-ARGS */V198,append((V194),(V195))); |
V169= listA(3,/* INLINE-ARGS */V167,/* INLINE-ARGS */V168,append((V164),(V165))); |
1087 |
base[5]= listA(3,VV[34],(V191),append(V196,/* INLINE-ARGS */V199)); |
base[5]= listA(3,VV[38],(V161),append(V166,/* INLINE-ARGS */V169)); |
1088 |
base[6]= (V191); |
base[6]= (V161); |
1089 |
base[7]= (V192); |
base[7]= (V162); |
1090 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
1091 |
return;}} |
return;}} |
1092 |
} |
} |
1093 |
} |
} |
1094 |
/* local entry for function REAL-MAKE-METHOD-INITARGS-FORM */ |
/* local entry for function REAL-MAKE-METHOD-INITARGS-FORM */ |
1095 |
|
|
1096 |
static object LI17(V205,V206,V207,V208,V209) |
static object LI19(V175,V176,V177,V178,V179) |
1097 |
|
|
1098 |
object V205;object V206;register object V207;object V208;object V209; |
object V175;object V176;register object V177;object V178;object V179; |
1099 |
{ VMB15 VMS15 VMV15 |
{ VMB15 VMS15 VMV15 |
1100 |
goto TTL; |
goto TTL; |
1101 |
TTL:; |
TTL:; |
1102 |
if(!(type_of((V207))==t_cons)){ |
if(!(type_of((V177))==t_cons)){ |
1103 |
goto T346;} |
goto T300;} |
1104 |
if((CMPcar((V207)))==(VV[34])){ |
if((CMPcar((V177)))==(VV[38])){ |
1105 |
goto T345;} |
goto T299;} |
1106 |
goto T346; |
goto T300; |
1107 |
T346:; |
T300:; |
1108 |
base[0]= VV[48]; |
base[0]= VV[52]; |
1109 |
base[1]= (V207); |
base[1]= (V177); |
1110 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1111 |
Lerror(); |
Lerror(); |
1112 |
vs_top=sup; |
vs_top=sup; |
1113 |
goto T345; |
goto T299; |
1114 |
T345:; |
T299:; |
1115 |
{object V210 = (*(LnkLI372))((V207),(V208),(V209)); |
{object V180 = (*(LnkLI387))((V177),(V178),(V179)); |
1116 |
VMR15(V210)} |
VMR15(V180)} |
1117 |
base[0]=base[0]; |
base[0]=base[0]; |
1118 |
return Cnil; |
return Cnil; |
1119 |
} |
} |
1120 |
/* function definition for REAL-MAKE-METHOD-LAMBDA */ |
/* function definition for REAL-MAKE-METHOD-LAMBDA */ |
1121 |
|
|
1122 |
static void L18() |
static void L20() |
1123 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1124 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
1125 |
vs_check; |
vs_check; |
1126 |
{object V211; |
{object V181; |
1127 |
object V212; |
object V182; |
1128 |
object V213; |
object V183; |
1129 |
object V214; |
object V184; |
1130 |
check_arg(4); |
check_arg(4); |
1131 |
V211=(base[0]); |
V181=(base[0]); |
1132 |
V212=(base[1]); |
V182=(base[1]); |
1133 |
V213=(base[2]); |
V183=(base[2]); |
1134 |
V214=(base[3]); |
V184=(base[3]); |
1135 |
vs_top=sup; |
vs_top=sup; |
1136 |
goto TTL; |
goto TTL; |
1137 |
TTL:; |
TTL:; |
1138 |
base[4]= (V213); |
base[4]= (V183); |
1139 |
base[5]= (V214); |
base[5]= (V184); |
1140 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
1141 |
(void) (*Lnk373)(); |
(void) (*Lnk388)(); |
1142 |
return; |
return; |
1143 |
} |
} |
1144 |
} |
} |
1145 |
/* function definition for MAKE-METHOD-LAMBDA-INTERNAL */ |
/* function definition for MAKE-METHOD-LAMBDA-INTERNAL */ |
1146 |
|
|
1147 |
static void L19() |
static void L21() |
1148 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1149 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
1150 |
vs_check; |
vs_check; |
1151 |
{register object V215; |
{object V185; |
1152 |
object V216; |
object V186; |
1153 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
1154 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
1155 |
V215=(base[0]); |
V185=(base[0]); |
1156 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
1157 |
if(vs_base>=vs_top){vs_top=sup;goto T354;} |
if(vs_base>=vs_top){vs_top=sup;goto T308;} |
1158 |
V216=(base[1]); |
V186=(base[1]); |
1159 |
vs_top=sup; |
vs_top=sup; |
1160 |
goto T355; |
goto T309; |
1161 |
goto T354; |
goto T308; |
1162 |
T354:; |
T308:; |
1163 |
V216= Cnil; |
V186= Cnil; |
1164 |
goto T355; |
goto T309; |
1165 |
T355:; |
T309:; |
1166 |
if(!(type_of((V215))==t_cons)){ |
if(!(type_of((V185))==t_cons)){ |
1167 |
goto T358;} |
goto T312;} |
1168 |
if((CMPcar((V215)))==(VV[34])){ |
if((CMPcar((V185)))==(VV[38])){ |
1169 |
goto T357;} |
goto T311;} |
1170 |
goto T358; |
goto T312; |
1171 |
T358:; |
T312:; |
1172 |
base[2]= VV[49]; |
base[2]= VV[53]; |
1173 |
base[3]= (V215); |
base[3]= (V185); |
1174 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1175 |
Lerror(); |
Lerror(); |
1176 |
vs_top=sup; |
vs_top=sup; |
1177 |
goto T357; |
goto T311; |
1178 |
T357:; |
T311:; |
1179 |
{object V217; |
{object V187; |
1180 |
object V218; |
object V188; |
1181 |
object V219; |
object V189; |
1182 |
base[2]= CMPcddr((V215)); |
base[2]= CMPcddr((V185)); |
1183 |
base[3]= (V216); |
base[3]= (V186); |
1184 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
1185 |
(void) (*Lnk371)(); |
(void) (*Lnk386)(); |
1186 |
if(vs_base>=vs_top){vs_top=sup;goto T367;} |
if(vs_base>=vs_top){vs_top=sup;goto T321;} |
1187 |
V217= vs_base[0]; |
V187= vs_base[0]; |
1188 |
|
vs_base++; |
1189 |
|
if(vs_base>=vs_top){vs_top=sup;goto T322;} |
1190 |
|
V188= vs_base[0]; |
1191 |
|
vs_base++; |
1192 |
|
if(vs_base>=vs_top){vs_top=sup;goto T323;} |
1193 |
|
V189= vs_base[0]; |
1194 |
|
vs_top=sup; |
1195 |
|
goto T324; |
1196 |
|
goto T321; |
1197 |
|
T321:; |
1198 |
|
V187= Cnil; |
1199 |
|
goto T322; |
1200 |
|
T322:; |
1201 |
|
V188= Cnil; |
1202 |
|
goto T323; |
1203 |
|
T323:; |
1204 |
|
V189= Cnil; |
1205 |
|
goto T324; |
1206 |
|
T324:; |
1207 |
|
{object V190; |
1208 |
|
object V191; |
1209 |
|
object V192; |
1210 |
|
object V193; |
1211 |
|
object V194; |
1212 |
|
V190= (VFUN_NARGS=2,(*(LnkLI389))(VV[50],(V188))); |
1213 |
|
V191= (VFUN_NARGS=2,(*(LnkLI389))(VV[51],(V188))); |
1214 |
|
if(!(type_of((V190))==t_cons)){ |
1215 |
|
goto T329;} |
1216 |
|
V192= CMPcar((V190)); |
1217 |
|
goto T327; |
1218 |
|
goto T329; |
1219 |
|
T329:; |
1220 |
|
V192= Cnil; |
1221 |
|
goto T327; |
1222 |
|
T327:; |
1223 |
|
if(((V192))==Cnil){ |
1224 |
|
goto T333;} |
1225 |
|
V193= CMPcar((V192)); |
1226 |
|
goto T331; |
1227 |
|
goto T333; |
1228 |
|
T333:; |
1229 |
|
V193= Cnil; |
1230 |
|
goto T331; |
1231 |
|
T331:; |
1232 |
|
if((V191)!=Cnil){ |
1233 |
|
V194= (V191); |
1234 |
|
goto T335;} |
1235 |
|
V194= CMPcadr((V185)); |
1236 |
|
goto T335; |
1237 |
|
T335:; |
1238 |
|
{object V195; |
1239 |
|
register object V196; |
1240 |
|
object V197; |
1241 |
|
base[7]= (V194); |
1242 |
|
vs_top=(vs_base=base+7)+1; |
1243 |
|
(void) (*Lnk385)(); |
1244 |
|
if(vs_base>=vs_top){vs_top=sup;goto T338;} |
1245 |
|
V195= vs_base[0]; |
1246 |
vs_base++; |
vs_base++; |
1247 |
if(vs_base>=vs_top){vs_top=sup;goto T368;} |
if(vs_base>=vs_top){vs_top=sup;goto T339;} |
1248 |
V218= vs_base[0]; |
V196= vs_base[0]; |
1249 |
vs_base++; |
vs_base++; |
1250 |
if(vs_base>=vs_top){vs_top=sup;goto T369;} |
if(vs_base>=vs_top){vs_top=sup;goto T340;} |
1251 |
V219= vs_base[0]; |
V197= vs_base[0]; |
1252 |
vs_top=sup; |
vs_top=sup; |
1253 |
goto T370; |
goto T341; |
1254 |
goto T367; |
goto T338; |
1255 |
T367:; |
T338:; |
1256 |
V217= Cnil; |
V195= Cnil; |
1257 |
goto T368; |
goto T339; |
1258 |
T368:; |
T339:; |
1259 |
V218= Cnil; |
V196= Cnil; |
1260 |
goto T369; |
goto T340; |
1261 |
T369:; |
T340:; |
1262 |
V219= Cnil; |
V197= Cnil; |
1263 |
|
goto T341; |
1264 |
|
T341:; |
1265 |
|
{object V198; |
1266 |
|
object V199; |
1267 |
|
object V200; |
1268 |
|
object V201; |
1269 |
|
object V202; |
1270 |
|
object V203; |
1271 |
|
object V204; |
1272 |
|
object V205; |
1273 |
|
object V206; |
1274 |
|
object V207; |
1275 |
|
{object V208; |
1276 |
|
object V209= (V195); |
1277 |
|
object V210= (V197); |
1278 |
|
if(V209==Cnil||V210==Cnil){ |
1279 |
|
V198= Cnil; |
1280 |
|
goto T342;} |
1281 |
|
base[17]=V208=MMcons(Cnil,Cnil); |
1282 |
|
goto T343; |
1283 |
|
T343:; |
1284 |
|
(V208->c.c_car)= (V209->c.c_car); |
1285 |
|
if((V209=MMcdr(V209))==Cnil||(V210=MMcdr(V210))==Cnil){ |
1286 |
|
V198= base[17]; |
1287 |
|
goto T342;} |
1288 |
|
V208=MMcdr(V208)=MMcons(Cnil,Cnil); |
1289 |
|
goto T343;} |
1290 |
|
goto T342; |
1291 |
|
T342:; |
1292 |
|
{register object V213; |
1293 |
|
register object V214; |
1294 |
|
V213= Cnil; |
1295 |
|
V214= (V194); |
1296 |
|
{register object V215; |
1297 |
|
register object V216; |
1298 |
|
V215= Cnil; |
1299 |
|
V216= (V198); |
1300 |
|
{object V217; |
1301 |
|
register object V218; |
1302 |
|
V217= make_cons(Cnil,Cnil); |
1303 |
|
V218= (V217); |
1304 |
|
goto T349; |
1305 |
|
T349:; |
1306 |
|
if(!(((V214))==Cnil)){ |
1307 |
|
goto T351;} |
1308 |
|
goto T350; |
1309 |
|
goto T351; |
1310 |
|
T351:; |
1311 |
|
V213= CMPcar((V214)); |
1312 |
|
V214= CMPcdr((V214)); |
1313 |
|
if(!(((V216))==Cnil)){ |
1314 |
|
goto T358;} |
1315 |
|
goto T350; |
1316 |
|
goto T358; |
1317 |
|
T358:; |
1318 |
|
V215= CMPcar((V216)); |
1319 |
|
V216= CMPcdr((V216)); |
1320 |
|
if(!(type_of((V213))==t_cons||((V213))==Cnil)){ |
1321 |
|
goto T365;}{object V219; |
1322 |
|
V219= (V218); |
1323 |
|
V218= make_cons((V215),Cnil); |
1324 |
|
(V219)->c.c_cdr = (V218);} |
1325 |
|
goto T365; |
1326 |
|
T365:; |
1327 |
|
goto T349; |
1328 |
|
goto T350; |
1329 |
|
T350:; |
1330 |
|
V199= CMPcdr((V217)); |
1331 |
|
goto T345; |
1332 |
|
V199= Cnil; |
1333 |
|
goto T345;}}} |
1334 |
|
goto T345; |
1335 |
|
T345:; |
1336 |
|
{object V220; |
1337 |
|
object V221= (V198); |
1338 |
|
if(V221==Cnil){ |
1339 |
|
V200= Cnil; |
1340 |
|
goto T370;} |
1341 |
|
base[17]=V220=MMcons(Cnil,Cnil); |
1342 |
|
goto T371; |
1343 |
|
T371:; |
1344 |
|
(V220->c.c_car)= make_cons((V221->c.c_car),Cnil); |
1345 |
|
if((V221=MMcdr(V221))==Cnil){ |
1346 |
|
V200= base[17]; |
1347 |
|
goto T370;} |
1348 |
|
V220=MMcdr(V220)=MMcons(Cnil,Cnil); |
1349 |
|
goto T371;} |
1350 |
goto T370; |
goto T370; |
1351 |
T370:; |
T370:; |
1352 |
{object V220; |
V201= make_cons(Cnil,Cnil); |
1353 |
object V221; |
{object V223; |
1354 |
object V222; |
object V224= (V195); |
1355 |
object V223; |
object V225= (V197); |
1356 |
object V224; |
if(V224==Cnil||V225==Cnil){ |
|
V220= (VFUN_NARGS=2,(*(LnkLI374))(VV[46],(V218))); |
|
|
V221= (VFUN_NARGS=2,(*(LnkLI374))(VV[47],(V218))); |
|
|
if(!(type_of((V220))==t_cons)){ |
|
|
goto T375;} |
|
|
V222= CMPcar((V220)); |
|
|
goto T373; |
|
|
goto T375; |
|
|
T375:; |
|
1357 |
V222= Cnil; |
V222= Cnil; |
1358 |
goto T373; |
goto T375;} |
1359 |
T373:; |
base[17]=V223=MMcons(Cnil,Cnil); |
1360 |
if(((V222))==Cnil){ |
goto T376; |
1361 |
|
T376:; |
1362 |
|
if(!(type_of((V225->c.c_car))==t_symbol)){ |
1363 |
goto T379;} |
goto T379;} |
1364 |
V223= CMPcar((V222)); |
if(!(((((V225->c.c_car))==(Ct)?Ct:Cnil))==Cnil)){ |
1365 |
|
goto T379;} |
1366 |
|
V228= list(3,VV[54],(V224->c.c_car),(V225->c.c_car)); |
1367 |
|
(V223->c.c_cdr)= make_cons(/* INLINE-ARGS */V228,Cnil); |
1368 |
goto T377; |
goto T377; |
1369 |
goto T379; |
goto T379; |
1370 |
T379:; |
T379:; |
1371 |
V223= Cnil; |
(V223->c.c_cdr)= Cnil; |
1372 |
goto T377; |
goto T377; |
1373 |
T377:; |
T377:; |
1374 |
if((V221)!=Cnil){ |
while(MMcdr(V223)!=Cnil)V223=MMcdr(V223); |
1375 |
V224= (V221); |
if((V224=MMcdr(V224))==Cnil||(V225=MMcdr(V225))==Cnil){ |
1376 |
goto T381;} |
base[17]=base[17]->c.c_cdr; |
1377 |
V224= CMPcadr((V215)); |
V222= base[17]; |
1378 |
goto T381; |
goto T375;} |
1379 |
T381:; |
goto T376;} |
1380 |
{object V225; |
goto T375; |
1381 |
register object V226; |
T375:; |
1382 |
object V227; |
V202= make_cons(VV[49],V222); |
1383 |
base[7]= (V224); |
V229= list(2,VV[49],make_cons(VV[55],(V199))); |
1384 |
vs_top=(vs_base=base+7)+1; |
if(!(type_of((V193))==t_cons||((V193))==Cnil)){ |
1385 |
(void) (*Lnk370)(); |
goto T386;} |
1386 |
if(vs_base>=vs_top){vs_top=sup;goto T384;} |
V230= CMPcadr((V193)); |
|
V225= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T385;} |
|
|
V226= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T386;} |
|
|
V227= vs_base[0]; |
|
|
vs_top=sup; |
|
|
goto T387; |
|
1387 |
goto T384; |
goto T384; |
|
T384:; |
|
|
V225= Cnil; |
|
|
goto T385; |
|
|
T385:; |
|
|
V226= Cnil; |
|
1388 |
goto T386; |
goto T386; |
1389 |
T386:; |
T386:; |
1390 |
V227= Cnil; |
V230= (V193); |
1391 |
goto T387; |
goto T384; |
1392 |
T387:; |
T384:; |
1393 |
{object V228; |
V231= listA(3,VV[56],V230,(V189)); |
1394 |
object V229; |
V232= make_cons(/* INLINE-ARGS */V231,Cnil); |
1395 |
object V230; |
V203= listA(5,VV[38],(V196),/* INLINE-ARGS */V229,(V202),append((V188),/* INLINE-ARGS */V232)); |
1396 |
object V231; |
if((CMPcdr((V189)))==Cnil){ |
|
object V232; |
|
|
object V233; |
|
|
object V234; |
|
|
register object V235; |
|
|
register object V236; |
|
|
object V237; |
|
|
{object V238; |
|
|
object V239= (V225); |
|
|
object V240= (V227); |
|
|
if(V239==Cnil||V240==Cnil){ |
|
|
V228= Cnil; |
|
|
goto T388;} |
|
|
base[17]=V238=MMcons(Cnil,Cnil); |
|
|
goto T389; |
|
|
T389:; |
|
|
(V238->c.c_car)= (V239->c.c_car); |
|
|
if((V239=MMcdr(V239))==Cnil||(V240=MMcdr(V240))==Cnil){ |
|
|
V228= base[17]; |
|
|
goto T388;} |
|
|
V238=MMcdr(V238)=MMcons(Cnil,Cnil); |
|
1397 |
goto T389;} |
goto T389;} |
1398 |
|
V204= Cnil; |
1399 |
goto T388; |
goto T388; |
1400 |
T388:; |
goto T389; |
1401 |
{object V243; |
T389:; |
1402 |
object V244= (V228); |
base[17]= CMPcar((V189)); |
|
if(V244==Cnil){ |
|
|
V229= Cnil; |
|
|
goto T391;} |
|
|
base[17]=V243=MMcons(Cnil,Cnil); |
|
|
goto T392; |
|
|
T392:; |
|
|
(V243->c.c_car)= make_cons((V244->c.c_car),Cnil); |
|
|
if((V244=MMcdr(V244))==Cnil){ |
|
|
V229= base[17]; |
|
|
goto T391;} |
|
|
V243=MMcdr(V243)=MMcons(Cnil,Cnil); |
|
|
goto T392;} |
|
|
goto T391; |
|
|
T391:; |
|
|
V230= make_cons(Cnil,Cnil); |
|
|
V231= (*(LnkLI375))((V224),(V228),(V218),(V222),(V227)); |
|
|
base[17]= Cnil; |
|
|
{object V246; |
|
|
object V247= (V225); |
|
|
object V248= (V227); |
|
|
if(V247==Cnil||V248==Cnil){ |
|
|
base[18]= Cnil; |
|
|
goto T399;} |
|
|
base[19]=V246=MMcons(Cnil,Cnil); |
|
|
goto T400; |
|
|
T400:; |
|
|
if(type_of((V248->c.c_car))==t_symbol){ |
|
|
goto T402;} |
|
|
(V246->c.c_car)= Cnil; |
|
|
goto T401; |
|
|
goto T402; |
|
|
T402:; |
|
|
if(((((V248->c.c_car))==(Ct)?Ct:Cnil))==Cnil){ |
|
|
goto T404;} |
|
|
(V246->c.c_car)= Cnil; |
|
|
goto T401; |
|
|
goto T404; |
|
|
T404:; |
|
|
(V246->c.c_car)= list(3,VV[50],(V247->c.c_car),(V248->c.c_car)); |
|
|
goto T401; |
|
|
T401:; |
|
|
if((V247=MMcdr(V247))==Cnil||(V248=MMcdr(V248))==Cnil){ |
|
|
base[18]= base[19]; |
|
|
goto T399;} |
|
|
V246=MMcdr(V246)=MMcons(Cnil,Cnil); |
|
|
goto T400;} |
|
|
goto T399; |
|
|
T399:; |
|
|
vs_top=(vs_base=base+17)+2; |
|
|
(void) (*Lnk376)(); |
|
|
vs_top=sup; |
|
|
V245= vs_base[0]; |
|
|
V232= make_cons(VV[45],V245); |
|
|
V251= make_cons(VV[9],(V231)); |
|
|
if(!(type_of((V223))==t_cons||((V223))==Cnil)){ |
|
|
goto T409;} |
|
|
V252= CMPcadr((V223)); |
|
|
goto T407; |
|
|
goto T409; |
|
|
T409:; |
|
|
V252= (V223); |
|
|
goto T407; |
|
|
T407:; |
|
|
V253 = (V219); |
|
|
V254= list(2,/* INLINE-ARGS */V251,listA(3,VV[51],V252,V253)); |
|
|
V233= listA(4,VV[34],(V226),(V232),append((V218),/* INLINE-ARGS */V254)); |
|
|
if((CMPcdr((V219)))==Cnil){ |
|
|
goto T412;} |
|
|
V234= Cnil; |
|
|
goto T411; |
|
|
goto T412; |
|
|
T412:; |
|
|
base[17]= CMPcar((V219)); |
|
1403 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1404 |
Lconstantp(); |
Lconstantp(); |
1405 |
vs_top=sup; |
vs_top=sup; |
1406 |
V234= vs_base[0]; |
V204= vs_base[0]; |
1407 |
goto T411; |
goto T388; |
1408 |
T411:; |
T388:; |
1409 |
if((V234)==Cnil){ |
if((V204)==Cnil){ |
1410 |
V235= Cnil; |
V205= Cnil; |
1411 |
goto T415;} |
goto T392;} |
1412 |
base[17]= CMPcar((V219)); |
base[17]= CMPcar((V189)); |
1413 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1414 |
Leval(); |
Leval(); |
1415 |
vs_top=sup; |
vs_top=sup; |
1416 |
V235= vs_base[0]; |
V205= vs_base[0]; |
1417 |
goto T415; |
goto T392; |
1418 |
T415:; |
T392:; |
1419 |
if(((V234))==Cnil){ |
if(((V204))==Cnil){ |
1420 |
goto T419;} |
goto T396;} |
1421 |
base[17]= (V235); |
base[17]= (V205); |
1422 |
base[18]= VV[52]; |
base[18]= VV[57]; |
1423 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1424 |
(void) (*Lnk121)(); |
(void) (*Lnk126)(); |
1425 |
vs_top=sup; |
vs_top=sup; |
1426 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
1427 |
goto T418;} |
goto T395;} |
1428 |
if(!(type_of((V235))==t_symbol)){ |
if(!(type_of((V205))==t_symbol)){ |
1429 |
goto T419;} |
goto T396;} |
1430 |
base[17]= (V235); |
base[17]= (V205); |
1431 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1432 |
Lsymbol_package(); |
Lsymbol_package(); |
1433 |
vs_top=sup; |
vs_top=sup; |
1434 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1435 |
goto T419;} |
goto T396;} |
1436 |
goto T418; |
goto T395; |
1437 |
T418:; |
T395:; |
1438 |
V236= list(2,VV[53],(V235)); |
V206= list(2,VV[58],(V205)); |
1439 |
goto T417; |
goto T394; |
1440 |
goto T419; |
goto T396; |
1441 |
T419:; |
T396:; |
1442 |
V236= Cnil; |
V206= Cnil; |
1443 |
goto T417; |
goto T394; |
1444 |
T417:; |
T394:; |
1445 |
{register object V255; |
base[17]= (V203); |
1446 |
register object V256; |
base[18]= (V198); |
1447 |
V255= (V226); |
base[19]= (V186); |
1448 |
V256= CMPcar((V255)); |
base[20]= (V200); |
1449 |
goto T434; |
base[21]= (V201); |
|
T434:; |
|
|
if(!(((V255))==Cnil)){ |
|
|
goto T435;} |
|
|
V237= Cnil; |
|
|
goto T430; |
|
|
goto T435; |
|
|
T435:; |
|
|
{register object x= (V256),V257= VV[54]; |
|
|
while(V257!=Cnil) |
|
|
if(x==(V257->c.c_car)){ |
|
|
goto T442; |
|
|
}else V257=V257->c.c_cdr; |
|
|
goto T441;} |
|
|
goto T442; |
|
|
T442:; |
|
|
V237= Ct; |
|
|
goto T430; |
|
|
goto T441; |
|
|
T441:; |
|
|
if(!(((V256))==(VV[55]))){ |
|
|
goto T439;} |
|
|
V237= Cnil; |
|
|
goto T430; |
|
|
goto T439; |
|
|
T439:; |
|
|
V255= CMPcdr((V255)); |
|
|
V256= CMPcar((V255)); |
|
|
goto T434;} |
|
|
goto T430; |
|
|
T430:; |
|
|
{object V258; |
|
|
object V259; |
|
|
object V260; |
|
|
object V261; |
|
|
base[17]= (V233); |
|
|
base[18]= (V228); |
|
|
base[19]= (V216); |
|
|
base[20]= (V229); |
|
|
base[21]= (V230); |
|
1450 |
vs_top=(vs_base=base+17)+5; |
vs_top=(vs_base=base+17)+5; |
1451 |
(void) (*Lnk377)(); |
(void) (*Lnk390)(); |
1452 |
if(vs_base>=vs_top){vs_top=sup;goto T456;} |
vs_top=sup; |
1453 |
V258= vs_base[0]; |
V207= vs_base[0]; |
1454 |
vs_base++; |
{object V233; |
1455 |
if(vs_base>=vs_top){vs_top=sup;goto T457;} |
object V234; |
1456 |
V259= vs_base[0]; |
object V235; |
1457 |
|
base[17]= CMPcddr((V207)); |
1458 |
|
vs_top=(vs_base=base+17)+1; |
1459 |
|
(void) (*Lnk386)(); |
1460 |
|
if(vs_base>=vs_top){vs_top=sup;goto T415;} |
1461 |
|
V233= vs_base[0]; |
1462 |
vs_base++; |
vs_base++; |
1463 |
if(vs_base>=vs_top){vs_top=sup;goto T458;} |
if(vs_base>=vs_top){vs_top=sup;goto T416;} |
1464 |
V260= vs_base[0]; |
V234= vs_base[0]; |
1465 |
vs_base++; |
vs_base++; |
1466 |
if(vs_base>=vs_top){vs_top=sup;goto T459;} |
if(vs_base>=vs_top){vs_top=sup;goto T417;} |
1467 |
V261= vs_base[0]; |
V235= vs_base[0]; |
1468 |
vs_top=sup; |
vs_top=sup; |
1469 |
goto T460; |
goto T418; |
1470 |
goto T456; |
goto T415; |
1471 |
T456:; |
T415:; |
1472 |
V258= Cnil; |
V233= Cnil; |
1473 |
goto T457; |
goto T416; |
1474 |
T457:; |
T416:; |
1475 |
V259= Cnil; |
V234= Cnil; |
1476 |
goto T458; |
goto T417; |
1477 |
T458:; |
T417:; |
1478 |
V260= Cnil; |
V235= Cnil; |
1479 |
goto T459; |
goto T418; |
1480 |
T459:; |
T418:; |
1481 |
V261= Cnil; |
base[17]= (VV[391]->s.s_gfdef); |
1482 |
goto T460; |
base[18]= (V200); |
|
T460:; |
|
|
{object V262; |
|
|
object V263; |
|
|
object V264; |
|
|
base[17]= CMPcddr((V258)); |
|
|
vs_top=(vs_base=base+17)+1; |
|
|
(void) (*Lnk371)(); |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T463;} |
|
|
V262= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T464;} |
|
|
V263= vs_base[0]; |
|
|
vs_base++; |
|
|
if(vs_base>=vs_top){vs_top=sup;goto T465;} |
|
|
V264= vs_base[0]; |
|
|
vs_top=sup; |
|
|
goto T466; |
|
|
goto T463; |
|
|
T463:; |
|
|
V262= Cnil; |
|
|
goto T464; |
|
|
T464:; |
|
|
V263= Cnil; |
|
|
goto T465; |
|
|
T465:; |
|
|
V264= Cnil; |
|
|
goto T466; |
|
|
T466:; |
|
|
if(((V261))!=Cnil){ |
|
|
goto T468;} |
|
|
if(((V259))==Cnil){ |
|
|
goto T467;} |
|
|
goto T468; |
|
|
T468:; |
|
|
V236= listA(3,VV[56],Ct,(V236)); |
|
|
goto T467; |
|
|
T467:; |
|
|
base[17]= (VV[378]->s.s_gfdef); |
|
|
base[18]= (V229); |
|
1483 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1484 |
(void) (*Lnk379)(); |
(void) (*Lnk392)(); |
1485 |
vs_top=sup; |
vs_top=sup; |
1486 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
1487 |
goto T473;} |
goto T419;} |
1488 |
{object V265; |
{object V236; |
1489 |
object V266; |
object V237; |
1490 |
base[17]= (V229); |
base[17]= (V200); |
1491 |
base[18]= (V230); |
base[18]= (V201); |
1492 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1493 |
(void) (*Lnk380)(); |
(void) (*Lnk393)(); |
1494 |
if(vs_base>=vs_top){vs_top=sup;goto T481;} |
if(vs_base>=vs_top){vs_top=sup;goto T427;} |
1495 |
V265= vs_base[0]; |
V236= vs_base[0]; |
1496 |
vs_base++; |
vs_base++; |
1497 |
if(vs_base>=vs_top){vs_top=sup;goto T482;} |
if(vs_base>=vs_top){vs_top=sup;goto T428;} |
1498 |
V266= vs_base[0]; |
V237= vs_base[0]; |
1499 |
vs_top=sup; |
vs_top=sup; |
1500 |
goto T483; |
goto T429; |
1501 |
goto T481; |
goto T427; |
1502 |
T481:; |
T427:; |
1503 |
V265= Cnil; |
V236= Cnil; |
1504 |
goto T482; |
goto T428; |
1505 |
T482:; |
T428:; |
1506 |
V266= Cnil; |
V237= Cnil; |
1507 |
goto T483; |
goto T429; |
1508 |
T483:; |
T429:; |
1509 |
{object V267; |
{object V238; |
1510 |
base[17]= VV[57]; |
base[17]= VV[59]; |
1511 |
vs_top=(vs_base=base+17)+1; |
vs_top=(vs_base=base+17)+1; |
1512 |
Lmake_symbol(); |
Lmake_symbol(); |
1513 |
vs_top=sup; |
vs_top=sup; |
1514 |
V267= vs_base[0]; |
V238= vs_base[0]; |
1515 |
if(((V265))==Cnil){ |
if(((V236))==Cnil){ |
1516 |
goto T490;} |
goto T436;} |
1517 |
base[17]= list(2,VV[58],(V265)); |
base[17]= list(2,VV[60],(V236)); |
1518 |
goto T488; |
goto T434; |
1519 |
goto T490; |
goto T436; |
1520 |
T490:; |
T436:; |
1521 |
base[17]= Cnil; |
base[17]= Cnil; |
1522 |
goto T488; |
goto T434; |
1523 |
T488:; |
T434:; |
1524 |
if(((V266))==Cnil){ |
if(((V237))==Cnil){ |
1525 |
goto T494;} |
goto T440;} |
1526 |
base[18]= list(2,VV[59],(V266)); |
base[18]= list(2,VV[61],(V237)); |
1527 |
goto T492; |
goto T438; |
1528 |
goto T494; |
goto T440; |
1529 |
T494:; |
T440:; |
1530 |
base[18]= Cnil; |
base[18]= Cnil; |
1531 |
goto T492; |
goto T438; |
1532 |
T492:; |
T438:; |
1533 |
base[19]= listA(3,VV[29],(V267),(V236)); |
base[19]= listA(3,VV[33],(V238),(V206)); |
1534 |
vs_top=(vs_base=base+17)+3; |
vs_top=(vs_base=base+17)+3; |
1535 |
Lappend(); |
Lappend(); |
1536 |
vs_top=sup; |
vs_top=sup; |
1537 |
V236= vs_base[0]; |
V206= vs_base[0]; |
1538 |
V268= listA(3,VV[60],list(3,(V228),(V265),(V267)),(V264)); |
V239= listA(3,VV[62],list(3,(V198),(V236),(V238)),(V235)); |
1539 |
V264= make_cons(/* INLINE-ARGS */V268,Cnil);}} |
V235= make_cons(/* INLINE-ARGS */V239,Cnil);}} |
1540 |
goto T473; |
goto T419; |
1541 |
T473:; |
T419:; |
1542 |
{register object x= VV[61],V269= (V226); |
{register object x= VV[63],V240= (V196); |
1543 |
while(V269!=Cnil) |
while(V240!=Cnil) |
1544 |
if(x==(V269->c.c_car)){ |
if(x==(V240->c.c_car)){ |
1545 |
goto T501; |
goto T447; |
1546 |
}else V269=V269->c.c_cdr; |
}else V240=V240->c.c_cdr; |
1547 |
goto T498;} |
goto T444;} |
1548 |
goto T501; |
goto T447; |
1549 |
T501:; |
T447:; |
1550 |
{register object x= VV[62],V270= (V226); |
{register object x= VV[64],V241= (V196); |
1551 |
while(V270!=Cnil) |
while(V241!=Cnil) |
1552 |
if(x==(V270->c.c_car)){ |
if(x==(V241->c.c_car)){ |
1553 |
goto T498; |
goto T444; |
1554 |
}else V270=V270->c.c_cdr;} |
}else V241=V241->c.c_cdr;} |
1555 |
{object V271; |
{object V242; |
1556 |
{register object x= VV[55],V272= (V226); |
{register object x= VV[65],V243= (V196); |
1557 |
while(V272!=Cnil) |
while(V243!=Cnil) |
1558 |
if(x==(V272->c.c_car)){ |
if(x==(V243->c.c_car)){ |
1559 |
V271= V272; |
V242= V243; |
1560 |
goto T503; |
goto T449; |
1561 |
}else V272=V272->c.c_cdr; |
}else V243=V243->c.c_cdr; |
1562 |
V271= Cnil;} |
V242= Cnil;} |
1563 |
goto T503; |
goto T449; |
1564 |
T503:; |
T449:; |
1565 |
base[18]= (V226); |
base[18]= (V196); |
1566 |
base[19]= (V271); |
base[19]= (V242); |
1567 |
vs_top=(vs_base=base+18)+2; |
vs_top=(vs_base=base+18)+2; |
1568 |
Lldiff(); |
Lldiff(); |
1569 |
vs_top=sup; |
vs_top=sup; |
1570 |
base[17]= vs_base[0]; |
base[17]= vs_base[0]; |
1571 |
base[18]= make_cons(VV[62],Cnil); |
base[18]= make_cons(VV[64],Cnil); |
1572 |
base[19]= (V271); |
base[19]= (V242); |
1573 |
vs_top=(vs_base=base+17)+3; |
vs_top=(vs_base=base+17)+3; |
1574 |
Lnconc(); |
Lnconc(); |
1575 |
vs_top=sup; |
vs_top=sup; |
1576 |
V226= vs_base[0];} |
V196= vs_base[0];} |
1577 |
goto T498; |
goto T444; |
1578 |
T498:; |
T444:; |
1579 |
base[18]= (V226); |
V244= list(5,(V196),VV[68],VV[69],VV[70],(V190)); |
1580 |
base[19]= VV[65]; |
base[17]= list(3,VV[38],VV[66],listA(3,VV[67],/* INLINE-ARGS */V244,append((V234),(V235)))); |
1581 |
base[20]= VV[66]; |
if(((V206))==Cnil){ |
1582 |
base[21]= VV[67]; |
goto T460;} |
1583 |
base[22]= (V259); |
V245= list(2,VV[32],(V206)); |
1584 |
base[23]= VV[68]; |
goto T458; |
1585 |
base[24]= (V261); |
goto T460; |
1586 |
base[25]= VV[69]; |
T460:; |
1587 |
base[26]= (V260); |
V245= Cnil; |
1588 |
base[27]= VV[70]; |
goto T458; |
1589 |
base[28]= (V237); |
T458:; |
1590 |
vs_top=(vs_base=base+18)+11; |
if(((V187))==Cnil){ |
1591 |
Llist(); |
goto T464;} |
1592 |
vs_top=sup; |
V246= list(2,VV[3],(V187)); |
1593 |
V273= vs_base[0]; |
goto T462; |
1594 |
base[17]= list(3,VV[34],VV[63],listA(3,VV[64],V273,append((V263),(V264)))); |
goto T464; |
1595 |
if(((V236))==Cnil){ |
T464:; |
1596 |
goto T526;} |
V246= Cnil; |
1597 |
V274= list(2,VV[28],(V236)); |
goto T462; |
1598 |
goto T524; |
T462:; |
1599 |
goto T526; |
base[18]= append(V245,V246); |
|
T526:; |
|
|
V274= Cnil; |
|
|
goto T524; |
|
|
T524:; |
|
|
if(((V217))==Cnil){ |
|
|
goto T530;} |
|
|
V275= list(2,VV[3],(V217)); |
|
|
goto T528; |
|
|
goto T530; |
|
|
T530:; |
|
|
V275= Cnil; |
|
|
goto T528; |
|
|
T528:; |
|
|
base[18]= append(V274,V275); |
|
1600 |
vs_top=(vs_base=base+17)+2; |
vs_top=(vs_base=base+17)+2; |
1601 |
return;}}}}}} |
return;}}}}} |
1602 |
} |
} |
1603 |
} |
} |
1604 |
/* macro definition for SIMPLE-LEXICAL-METHOD-FUNCTIONS */ |
/* macro definition for SIMPLE-LEXICAL-METHOD-FUNCTIONS */ |
1605 |
|
|
1606 |
static void L20() |
static void L22() |
1607 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1608 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
1609 |
vs_check; |
vs_check; |
1610 |
check_arg(2); |
check_arg(2); |
1611 |
vs_top=sup; |
vs_top=sup; |
1612 |
{object V276=base[0]->c.c_cdr; |
{object V247=base[0]->c.c_cdr; |
1613 |
if(endp(V276))invalid_macro_call(); |
if(endp(V247))invalid_macro_call(); |
1614 |
{object V277= (V276->c.c_car); |
{object V248= (V247->c.c_car); |
1615 |
if(endp(V277))invalid_macro_call(); |
if(endp(V248))invalid_macro_call(); |
1616 |
base[2]= (V277->c.c_car); |
base[2]= (V248->c.c_car); |
1617 |
V277=V277->c.c_cdr; |
V248=V248->c.c_cdr; |
1618 |
if(endp(V277))invalid_macro_call(); |
if(endp(V248))invalid_macro_call(); |
1619 |
base[3]= (V277->c.c_car); |
base[3]= (V248->c.c_car); |
1620 |
V277=V277->c.c_cdr; |
V248=V248->c.c_cdr; |
1621 |
if(endp(V277))invalid_macro_call(); |
if(endp(V248))invalid_macro_call(); |
1622 |
base[4]= (V277->c.c_car); |
base[4]= (V248->c.c_car); |
1623 |
V277=V277->c.c_cdr; |
V248=V248->c.c_cdr; |
1624 |
base[5]= V277;} |
base[5]= V248;} |
1625 |
V276=V276->c.c_cdr; |
V247=V247->c.c_cdr; |
1626 |
base[6]= V276;} |
base[6]= V247;} |
1627 |
V278= list(2,base[3],base[4]); |
V249= list(2,base[3],base[4]); |
1628 |
base[7]= list(4,VV[9],base[3],base[4],list(3,VV[71],/* INLINE-ARGS */V278,list(3,VV[72],base[5],listA(3,VV[73],list(2,base[2],base[3]),base[6])))); |
base[7]= list(4,VV[13],base[3],base[4],list(3,VV[71],/* INLINE-ARGS */V249,list(3,VV[72],base[5],listA(3,VV[73],list(2,base[2],base[3]),base[6])))); |
1629 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
1630 |
return; |
return; |
1631 |
} |
} |
1632 |
/* macro definition for FAST-LEXICAL-METHOD-FUNCTIONS */ |
/* macro definition for FAST-LEXICAL-METHOD-FUNCTIONS */ |
1633 |
|
|
1634 |
static void L21() |
static void L23() |
1635 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1636 |
register object *sup=base+VM19; VC19 |
register object *sup=base+VM19; VC19 |
1637 |
vs_check; |
vs_check; |
1638 |
check_arg(2); |
check_arg(2); |
1639 |
vs_top=sup; |
vs_top=sup; |
1640 |
{object V279=base[0]->c.c_cdr; |
{object V250=base[0]->c.c_cdr; |
1641 |
if(endp(V279))invalid_macro_call(); |
if(endp(V250))invalid_macro_call(); |
1642 |
{object V280= (V279->c.c_car); |
{object V251= (V250->c.c_car); |
1643 |
if(endp(V280))invalid_macro_call(); |
if(endp(V251))invalid_macro_call(); |
1644 |
base[2]= (V280->c.c_car); |
base[2]= (V251->c.c_car); |
1645 |
V280=V280->c.c_cdr; |
V251=V251->c.c_cdr; |
1646 |
if(endp(V280))invalid_macro_call(); |
if(endp(V251))invalid_macro_call(); |
1647 |
base[3]= (V280->c.c_car); |
base[3]= (V251->c.c_car); |
1648 |
V280=V280->c.c_cdr; |
V251=V251->c.c_cdr; |
1649 |
if(endp(V280))invalid_macro_call(); |
if(endp(V251))invalid_macro_call(); |
1650 |
base[4]= (V280->c.c_car); |
base[4]= (V251->c.c_car); |
1651 |
V280=V280->c.c_cdr; |
V251=V251->c.c_cdr; |
1652 |
if(endp(V280))invalid_macro_call(); |
if(endp(V251))invalid_macro_call(); |
1653 |
base[5]= (V280->c.c_car); |
base[5]= (V251->c.c_car); |
1654 |
V280=V280->c.c_cdr; |
V251=V251->c.c_cdr; |
1655 |
base[6]= V280;} |
base[6]= V251;} |
1656 |
V279=V279->c.c_cdr; |
V250=V250->c.c_cdr; |
1657 |
base[7]= V279;} |
base[7]= V250;} |
1658 |
V281= list(3,base[4],base[5],base[3]); |
V252= list(3,base[4],base[5],base[3]); |
1659 |
V282 = CMPmake_fixnum((long)length(base[4])); |
V253 = CMPmake_fixnum((long)length(base[4])); |
1660 |
base[8]= list(3,VV[74],/* INLINE-ARGS */V281,list(3,VV[72],base[6],listA(3,VV[73],list(2,nthcdr(fix(V282),base[2]),base[5]),base[7]))); |
base[8]= list(3,VV[74],/* INLINE-ARGS */V252,list(3,VV[72],base[6],listA(3,VV[73],list(2,nthcdr(fix(V253),base[2]),base[5]),base[7]))); |
1661 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
1662 |
return; |
return; |
1663 |
} |
} |
1664 |
/* macro definition for BIND-SIMPLE-LEXICAL-METHOD-MACROS */ |
/* function definition for CALL-NO-NEXT-METHOD */ |
1665 |
|
|
1666 |
static void L22() |
static void L24() |
1667 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1668 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
1669 |
vs_check; |
vs_check; |
1670 |
|
{object V254; |
1671 |
|
object V255; |
1672 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
1673 |
|
V254=(base[0]); |
1674 |
|
vs_base=vs_base+1; |
1675 |
|
vs_top[0]=Cnil; |
1676 |
|
{object *p=vs_top; |
1677 |
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1678 |
|
V255=(base[1]); |
1679 |
|
vs_top=sup; |
1680 |
|
{register object V256; |
1681 |
|
V256= CMPcar((V254)); |
1682 |
|
base[2]= small_fixnum(3); |
1683 |
|
base[3]= CMPmake_fixnum((long)length((V256))); |
1684 |
|
base[4]= small_fixnum(3); |
1685 |
|
vs_top=(vs_base=base+2)+3; |
1686 |
|
Lmonotonically_nondecreasing(); |
1687 |
|
vs_top=sup; |
1688 |
|
if((vs_base[0])!=Cnil){ |
1689 |
|
goto T467;} |
1690 |
|
base[2]= VV[75]; |
1691 |
|
base[3]= Cnil; |
1692 |
|
base[4]= (V256); |
1693 |
|
base[5]= VV[76]; |
1694 |
|
base[6]= small_fixnum(3); |
1695 |
|
base[7]= small_fixnum(3); |
1696 |
|
vs_top=(vs_base=base+2)+6; |
1697 |
|
(void) (*Lnk394)(); |
1698 |
|
vs_top=sup; |
1699 |
|
goto T467; |
1700 |
|
T467:; |
1701 |
|
{object V257; |
1702 |
|
object V258; |
1703 |
|
object V259; |
1704 |
|
V257= CMPcar((V256)); |
1705 |
|
V258= CMPcar(CMPcdr((V256))); |
1706 |
|
V259= CMPcar(CMPcdr(CMPcdr((V256)))); |
1707 |
|
{object V260; |
1708 |
|
base[5]= (*(LnkLI362))((V257)); |
1709 |
|
base[6]= (V258); |
1710 |
|
base[7]= (V259); |
1711 |
|
vs_top=(vs_base=base+5)+3; |
1712 |
|
(void) (*Lnk395)(Lclptr395); |
1713 |
|
vs_top=sup; |
1714 |
|
V260= vs_base[0]; |
1715 |
|
base[5]=VV[396]->s.s_gfdef; |
1716 |
|
base[7]= (V260); |
1717 |
|
vs_top=(vs_base=base+7)+1; |
1718 |
|
(void) (*Lnk397)(Lclptr397); |
1719 |
|
vs_top=sup; |
1720 |
|
base[6]= vs_base[0]; |
1721 |
|
base[7]= (V260); |
1722 |
|
{object V261; |
1723 |
|
V261= (V255); |
1724 |
|
vs_top=base+8; |
1725 |
|
while(V261!=Cnil) |
1726 |
|
{vs_push((V261)->c.c_car);V261=(V261)->c.c_cdr;} |
1727 |
|
vs_base=base+6;} |
1728 |
|
(void) (*Lnk396)(Lclptr396); |
1729 |
|
return;}}} |
1730 |
|
} |
1731 |
|
} |
1732 |
|
/* macro definition for BIND-SIMPLE-LEXICAL-METHOD-MACROS */ |
1733 |
|
|
1734 |
|
static void L25() |
1735 |
|
{register object *base=vs_base; |
1736 |
|
register object *sup=base+VM21; VC21 |
1737 |
|
vs_check; |
1738 |
check_arg(2); |
check_arg(2); |
1739 |
vs_top=sup; |
vs_top=sup; |
1740 |
{object V283=base[0]->c.c_cdr; |
{object V262=base[0]->c.c_cdr; |
1741 |
if(endp(V283))invalid_macro_call(); |
if(endp(V262))invalid_macro_call(); |
1742 |
{object V284= (V283->c.c_car); |
{object V263= (V262->c.c_car); |
1743 |
if(endp(V284))invalid_macro_call(); |
if(endp(V263))invalid_macro_call(); |
1744 |
base[2]= (V284->c.c_car); |
base[2]= (V263->c.c_car); |
1745 |
V284=V284->c.c_cdr; |
V263=V263->c.c_cdr; |
1746 |
if(endp(V284))invalid_macro_call(); |
if(endp(V263))invalid_macro_call(); |
1747 |
base[3]= (V284->c.c_car); |
base[3]= (V263->c.c_car); |
1748 |
V284=V284->c.c_cdr; |
V263=V263->c.c_cdr; |
1749 |
if(!endp(V284))invalid_macro_call();} |
if(!endp(V263))invalid_macro_call();} |
1750 |
V283=V283->c.c_cdr; |
V262=V262->c.c_cdr; |
1751 |
base[4]= V283;} |
base[4]= V262;} |
1752 |
V285= list(3,VV[43],VV[79],list(3,VV[43],VV[80],list(2,VV[1],base[3]))); |
V264= list(3,VV[47],VV[81],list(3,VV[47],VV[82],list(2,VV[1],base[3]))); |
1753 |
V286= list(2,VV[1],base[3]); |
V265= list(2,VV[1],base[3]); |
1754 |
V287= list(3,VV[43],/* INLINE-ARGS */V285,list(3,VV[43],/* INLINE-ARGS */V286,list(3,VV[43],VV[81],list(2,VV[1],base[3])))); |
V266= list(3,VV[47],/* INLINE-ARGS */V264,list(3,VV[47],/* INLINE-ARGS */V265,list(3,VV[47],VV[83],list(2,VV[1],base[3])))); |
1755 |
V288= list(3,VV[76],VV[77],list(6,VV[32],VV[78],/* INLINE-ARGS */V287,VV[82],list(2,VV[1],base[3]),VV[83])); |
V267= list(3,VV[78],VV[79],list(6,VV[36],VV[80],/* INLINE-ARGS */V266,VV[84],list(2,VV[1],base[3]),VV[85])); |
1756 |
V289= list(4,VV[43],VV[90],VV[91],list(2,VV[1],base[2])); |
V268= list(4,VV[47],VV[92],VV[93],list(2,VV[1],base[2])); |
1757 |
base[5]= listA(3,VV[75],list(3,/* INLINE-ARGS */V288,list(3,VV[84],VV[85],list(5,VV[43],VV[86],VV[87],list(5,VV[43],VV[88],VV[89],/* INLINE-ARGS */V289,list(2,VV[1],base[3])),VV[92])),VV[93]),base[4]); |
V269= list(5,VV[47],VV[90],VV[91],/* INLINE-ARGS */V268,list(2,VV[1],base[3])); |
1758 |
|
base[5]= listA(3,VV[77],list(3,/* INLINE-ARGS */V267,list(3,VV[86],VV[87],list(5,VV[47],VV[88],VV[89],/* INLINE-ARGS */V269,list(5,VV[47],VV[94],VV[95],VV[96],list(4,VV[47],VV[97],VV[93],list(2,VV[1],base[2]))))),VV[98]),base[4]); |
1759 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1760 |
return; |
return; |
1761 |
} |
} |
1762 |
/* local entry for function MAKE-METHOD-CALL */ |
/* local entry for function MAKE-METHOD-CALL */ |
1763 |
|
|
1764 |
static object LI23(object first,...) |
static object LI26(object first,...) |
1765 |
{ |
{ |
1766 |
va_list ap; |
va_list ap; |
1767 |
int narg = VFUN_NARGS; VMB21 VMS21 VMV21 |
int narg = VFUN_NARGS; VMB22 VMS22 VMV22 |
1768 |
{object V290; |
{object V270; |
1769 |
object V291; |
object V271; |
1770 |
va_start(ap,first); |
va_start(ap,first); |
1771 |
narg= narg - 0; |
narg= narg - 0; |
1772 |
{ |
{ |
1773 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI23key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
1774 |
if(Vcs[0]==0){ |
if(Vcs[0]==0){ |
1775 |
V290= (VV[382]->s.s_gfdef); |
V270= (VV[399]->s.s_gfdef); |
1776 |
}else{ |
}else{ |
1777 |
V290=(Vcs[0]);} |
V270=(Vcs[0]);} |
1778 |
V291=(Vcs[1]); |
V271=(Vcs[1]); |
1779 |
base[0]= VV[94]; |
base[0]= VV[99]; |
1780 |
base[1]= (V290); |
base[1]= (V270); |
1781 |
base[2]= (V291); |
base[2]= (V271); |
1782 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1783 |
siLmake_structure(); |
siLmake_structure(); |
1784 |
vs_top=sup; |
vs_top=sup; |
1785 |
{object V292 = vs_base[0]; |
{object V272 = vs_base[0]; |
1786 |
VMR21(V292)} |
VMR22(V272)} |
1787 |
va_end(ap); |
va_end(ap); |
1788 |
base[0]=base[0]; |
base[0]=base[0]; |
1789 |
return Cnil;} |
return Cnil;} |
1790 |
}} |
}} |
1791 |
/* macro definition for INVOKE-METHOD-CALL1 */ |
/* macro definition for INVOKE-METHOD-CALL1 */ |
1792 |
|
|
1793 |
static void L24() |
static void L27() |
1794 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1795 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM23; VC23 |
1796 |
vs_check; |
vs_check; |
1797 |
check_arg(2); |
check_arg(2); |
1798 |
vs_top=sup; |
vs_top=sup; |
1799 |
{object V293=base[0]->c.c_cdr; |
{object V273=base[0]->c.c_cdr; |
1800 |
if(endp(V293))invalid_macro_call(); |
if(endp(V273))invalid_macro_call(); |
1801 |
base[2]= (V293->c.c_car); |
base[2]= (V273->c.c_car); |
1802 |
V293=V293->c.c_cdr; |
V273=V273->c.c_cdr; |
1803 |
if(endp(V293))invalid_macro_call(); |
if(endp(V273))invalid_macro_call(); |
1804 |
base[3]= (V293->c.c_car); |
base[3]= (V273->c.c_car); |
1805 |
V293=V293->c.c_cdr; |
V273=V273->c.c_cdr; |
1806 |
if(endp(V293))invalid_macro_call(); |
if(endp(V273))invalid_macro_call(); |
1807 |
base[4]= (V293->c.c_car); |
base[4]= (V273->c.c_car); |
1808 |
V293=V293->c.c_cdr; |
V273=V273->c.c_cdr; |
1809 |
if(!endp(V293))invalid_macro_call();} |
if(!endp(V273))invalid_macro_call();} |
1810 |
V294= list(2,VV[96],base[2]); |
V274= list(2,VV[101],base[2]); |
1811 |
V295= list(2,VV[97],base[3]); |
V275= list(2,VV[102],base[3]); |
1812 |
base[5]= listA(3,VV[95],list(3,/* INLINE-ARGS */V294,/* INLINE-ARGS */V295,list(2,VV[98],base[4])),VV[99]); |
base[5]= list(3,VV[100],list(3,/* INLINE-ARGS */V274,/* INLINE-ARGS */V275,list(2,VV[103],base[4])),VV[104]); |
1813 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1814 |
return; |
return; |
1815 |
} |
} |
1816 |
/* macro definition for INVOKE-METHOD-CALL */ |
/* macro definition for INVOKE-METHOD-CALL */ |
1817 |
|
|
1818 |
static void L25() |
static void L28() |
1819 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1820 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM24; VC24 |
1821 |
vs_check; |
vs_check; |
1822 |
check_arg(2); |
check_arg(2); |
1823 |
vs_top=sup; |
vs_top=sup; |
1824 |
{object V296=base[0]->c.c_cdr; |
{object V276=base[0]->c.c_cdr; |
1825 |
if(endp(V296))invalid_macro_call(); |
if(endp(V276))invalid_macro_call(); |
1826 |
base[2]= (V296->c.c_car); |
base[2]= (V276->c.c_car); |
1827 |
V296=V296->c.c_cdr; |
V276=V276->c.c_cdr; |
1828 |
if(endp(V296))invalid_macro_call(); |
if(endp(V276))invalid_macro_call(); |
1829 |
base[3]= (V296->c.c_car); |
base[3]= (V276->c.c_car); |
1830 |
V296=V296->c.c_cdr; |
V276=V276->c.c_cdr; |
1831 |
base[4]= V296;} |
base[4]= V276;} |
1832 |
V297= list(2,VV[101],base[2]); |
V277= list(2,VV[106],base[2]); |
1833 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
1834 |
goto T538;} |
goto T496;} |
1835 |
V298= make_cons(VV[32],base[4]); |
V278= make_cons(VV[36],base[4]); |
1836 |
goto T536; |
goto T494; |
1837 |
goto T538; |
goto T496; |
1838 |
T538:; |
T496:; |
1839 |
V298= make_cons(VV[43],base[4]); |
V278= make_cons(VV[47],base[4]); |
1840 |
goto T536; |
goto T494; |
1841 |
T536:; |
T494:; |
1842 |
base[5]= list(4,VV[100],/* INLINE-ARGS */V297,V298,list(2,VV[102],base[2])); |
base[5]= list(4,VV[105],/* INLINE-ARGS */V277,V278,list(2,VV[107],base[2])); |
1843 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
1844 |
return; |
return; |
1845 |
} |
} |
1846 |
/* local entry for function MAKE-FAST-METHOD-CALL */ |
/* local entry for function MAKE-FAST-METHOD-CALL */ |
1847 |
|
|
1848 |
static object LI26(object first,...) |
static object LI29(object first,...) |
1849 |
{ |
{ |
1850 |
va_list ap; |
va_list ap; |
1851 |
int narg = VFUN_NARGS; VMB24 VMS24 VMV24 |
int narg = VFUN_NARGS; VMB25 VMS25 VMV25 |
1852 |
{object V299; |
{object V279; |
1853 |
object V300; |
object V280; |
1854 |
object V301; |
object V281; |
1855 |
object V302; |
object V282; |
1856 |
va_start(ap,first); |
va_start(ap,first); |
1857 |
narg= narg - 0; |
narg= narg - 0; |
1858 |
{ |
{ |
1859 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI26key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI29key,first,ap); |
1860 |
if(Vcs[0]==0){ |
if(Vcs[0]==0){ |
1861 |
V299= (VV[382]->s.s_gfdef); |
V279= (VV[399]->s.s_gfdef); |
1862 |
}else{ |
}else{ |
1863 |
V299=(Vcs[0]);} |
V279=(Vcs[0]);} |
1864 |
V300=(Vcs[1]); |
V280=(Vcs[1]); |
1865 |
V301=(Vcs[2]); |
V281=(Vcs[2]); |
1866 |
V302=(Vcs[3]); |
V282=(Vcs[3]); |
1867 |
base[0]= VV[103]; |
base[0]= VV[108]; |
1868 |
base[1]= (V299); |
base[1]= (V279); |
1869 |
base[2]= (V300); |
base[2]= (V280); |
1870 |
base[3]= (V301); |
base[3]= (V281); |
1871 |
base[4]= (V302); |
base[4]= (V282); |
1872 |
vs_top=(vs_base=base+0)+5; |
vs_top=(vs_base=base+0)+5; |
1873 |
siLmake_structure(); |
siLmake_structure(); |
1874 |
vs_top=sup; |
vs_top=sup; |
1875 |
{object V303 = vs_base[0]; |
{object V283 = vs_base[0]; |
1876 |
VMR24(V303)} |
VMR25(V283)} |
1877 |
va_end(ap); |
va_end(ap); |
1878 |
base[0]=base[0]; |
base[0]=base[0]; |
1879 |
return Cnil;} |
return Cnil;} |
1880 |
}} |
}} |
1881 |
/* macro definition for INVOKE-FAST-METHOD-CALL */ |
/* macro definition for INVOKE-FAST-METHOD-CALL */ |
1882 |
|
|
1883 |
static void L27() |
static void L30() |
1884 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1885 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM26; VC26 |
1886 |
vs_check; |
vs_check; |
1887 |
check_arg(2); |
check_arg(2); |
1888 |
vs_top=sup; |
vs_top=sup; |
1889 |
{object V304=base[0]->c.c_cdr; |
{object V284=base[0]->c.c_cdr; |
1890 |
if(endp(V304))invalid_macro_call(); |
if(endp(V284))invalid_macro_call(); |
1891 |
base[2]= (V304->c.c_car); |
base[2]= (V284->c.c_car); |
1892 |
V304=V304->c.c_cdr; |
V284=V284->c.c_cdr; |
1893 |
base[3]= V304;} |
base[3]= V284;} |
1894 |
V305= list(2,VV[105],base[2]); |
V285= list(2,VV[110],base[2]); |
1895 |
V306= list(2,VV[106],base[2]); |
V286= list(2,VV[111],base[2]); |
1896 |
base[4]= listA(5,VV[104],/* INLINE-ARGS */V305,/* INLINE-ARGS */V306,list(2,VV[107],base[2]),base[3]); |
base[4]= listA(5,VV[109],/* INLINE-ARGS */V285,/* INLINE-ARGS */V286,list(2,VV[112],base[2]),base[3]); |
1897 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
1898 |
return; |
return; |
1899 |
} |
} |
1900 |
/* local entry for function MAKE-FAST-INSTANCE-BOUNDP */ |
/* local entry for function MAKE-FAST-INSTANCE-BOUNDP */ |
1901 |
|
|
1902 |
static object LI28(object first,...) |
static object LI31(object first,...) |
1903 |
{ |
{ |
1904 |
va_list ap; |
va_list ap; |
1905 |
int narg = VFUN_NARGS; VMB26 VMS26 VMV26 |
int narg = VFUN_NARGS; VMB27 VMS27 VMV27 |
1906 |
{object V307; |
{object V287; |
1907 |
va_start(ap,first); |
va_start(ap,first); |
1908 |
narg= narg - 0; |
narg= narg - 0; |
1909 |
{ |
{ |
1910 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI28key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI31key,first,ap); |
1911 |
V307=(Vcs[0]); |
V287=(Vcs[0]); |
1912 |
base[0]= VV[108]; |
base[0]= VV[113]; |
1913 |
base[1]= (V307); |
base[1]= (V287); |
1914 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1915 |
siLmake_structure(); |
siLmake_structure(); |
1916 |
vs_top=sup; |
vs_top=sup; |
1917 |
{object V308 = vs_base[0]; |
{object V288 = vs_base[0]; |
1918 |
VMR26(V308)} |
VMR27(V288)} |
1919 |
va_end(ap); |
va_end(ap); |
1920 |
base[0]=base[0]; |
base[0]=base[0]; |
1921 |
return Cnil;} |
return Cnil;} |
1922 |
}} |
}} |
1923 |
/* local entry for function SHOW-EMF-CALL-TRACE */ |
/* local entry for function SHOW-EMF-CALL-TRACE */ |
1924 |
|
|
1925 |
static object LI29() |
static object LI32() |
1926 |
|
|
1927 |
{ VMB27 VMS27 VMV27 |
{ VMB28 VMS28 VMV28 |
1928 |
bds_check; |
bds_check; |
1929 |
goto TTL; |
goto TTL; |
1930 |
TTL:; |
TTL:; |
1931 |
if(((VV[109]->s.s_dbind))==Cnil){ |
if(((VV[114]->s.s_dbind))==Cnil){ |
1932 |
goto T549;} |
goto T507;} |
1933 |
{register object V309; |
{register object V289; |
1934 |
V309= (VV[110]->s.s_dbind); |
V289= (VV[115]->s.s_dbind); |
1935 |
bds_bind(VV[111],Cnil); |
bds_bind(VV[116],Cnil); |
1936 |
base[1]= Ct; |
base[1]= Ct; |
1937 |
base[2]= VV[112]; |
base[2]= VV[117]; |
1938 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
1939 |
Lformat(); |
Lformat(); |
1940 |
vs_top=sup; |
vs_top=sup; |
1941 |
{register long V310; |
{register long V290; |
1942 |
register long V311; |
register long V291; |
1943 |
V310= fix((VV[113]->s.s_dbind)); |
V290= fix((VV[118]->s.s_dbind)); |
1944 |
V311= 0; |
V291= 0; |
1945 |
goto T557; |
goto T515; |
1946 |
T557:; |
T515:; |
1947 |
if(!((V311)>=(V310))){ |
if(!((V291)>=(V290))){ |
1948 |
goto T558;} |
goto T516;} |
1949 |
{object V312 = Cnil; |
{object V292 = Cnil; |
1950 |
bds_unwind1; |
bds_unwind1; |
1951 |
VMR27(V312)} |
VMR28(V292)} |
1952 |
goto T558; |
goto T516; |
1953 |
T558:; |
T516:; |
1954 |
{register object V313; |
{register object V293; |
1955 |
V313= aref1((VV[109]->s.s_dbind),fix((V309))); |
V293= aref1((VV[114]->s.s_dbind),fix((V289))); |
1956 |
if(((V313))==Cnil){ |
if(((V293))==Cnil){ |
1957 |
goto T561;} |
goto T519;} |
1958 |
(void)(print((V313),Cnil));} |
(void)(print((V293),Cnil));} |
1959 |
goto T561; |
goto T519; |
1960 |
T561:; |
T519:; |
1961 |
V309= number_plus((V309),small_fixnum(1)); |
V289= number_plus((V289),small_fixnum(1)); |
1962 |
if(!(number_compare((V309),(VV[113]->s.s_dbind))==0)){ |
if(!(number_compare((V289),(VV[118]->s.s_dbind))==0)){ |
1963 |
goto T567;} |
goto T525;} |
1964 |
V309= small_fixnum(0); |
V289= small_fixnum(0); |
1965 |
goto T567; |
goto T525; |
1966 |
T567:; |
T525:; |
1967 |
V311= (long)(V311)+1; |
V291= (long)(V291)+1; |
1968 |
goto T557;}} |
goto T515;}} |
1969 |
goto T549; |
goto T507; |
1970 |
T549:; |
T507:; |
1971 |
{object V314 = Cnil; |
{object V294 = Cnil; |
1972 |
VMR27(V314)} |
VMR28(V294)} |
1973 |
base[0]=base[0]; |
base[0]=base[0]; |
1974 |
return Cnil; |
return Cnil; |
1975 |
} |
} |
1976 |
/* local entry for function TRACE-EMF-CALL-INTERNAL */ |
/* local entry for function TRACE-EMF-CALL-INTERNAL */ |
1977 |
|
|
1978 |
static object LI30(V318,V319,V320) |
static object LI33(V298,V299,V300) |
1979 |
|
|
1980 |
object V318;object V319;object V320; |
object V298;object V299;object V300; |
1981 |
{ VMB28 VMS28 VMV28 |
{ VMB29 VMS29 VMV29 |
1982 |
goto TTL; |
goto TTL; |
1983 |
TTL:; |
TTL:; |
1984 |
if(((VV[109]->s.s_dbind))!=Cnil){ |
if(((VV[114]->s.s_dbind))!=Cnil){ |
1985 |
goto T574;} |
goto T532;} |
1986 |
base[0]= (VV[113]->s.s_dbind); |
base[0]= (VV[118]->s.s_dbind); |
1987 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1988 |
(void) (*Lnk388)(); |
(void) (*Lnk405)(); |
1989 |
vs_top=sup; |
vs_top=sup; |
1990 |
(VV[109]->s.s_dbind)= vs_base[0]; |
(VV[114]->s.s_dbind)= vs_base[0]; |
1991 |
goto T574; |
goto T532; |
1992 |
T574:;{object V321; |
T532:;{object V301; |
1993 |
V321= (VV[109]->s.s_dbind);{object V322; |
V301= (VV[114]->s.s_dbind);{object V302; |
1994 |
V322= (VV[110]->s.s_dbind); |
V302= (VV[115]->s.s_dbind); |
1995 |
V323= listA(3,(V318),(V319),(V320)); |
V303= listA(3,(V298),(V299),(V300)); |
1996 |
(void)(aset1(V321,fix(V322),/* INLINE-ARGS */V323));}} |
(void)(aset1(V301,fix(V302),/* INLINE-ARGS */V303));}} |
1997 |
(VV[110]->s.s_dbind)= number_plus((VV[110]->s.s_dbind),small_fixnum(1)); |
(VV[115]->s.s_dbind)= number_plus((VV[115]->s.s_dbind),small_fixnum(1)); |
1998 |
if(!(number_compare((VV[110]->s.s_dbind),(VV[113]->s.s_dbind))==0)){ |
if(!(number_compare((VV[115]->s.s_dbind),(VV[118]->s.s_dbind))==0)){ |
1999 |
goto T583;} |
goto T541;} |
2000 |
(VV[110]->s.s_dbind)= small_fixnum(0); |
(VV[115]->s.s_dbind)= small_fixnum(0); |
2001 |
{object V324 = small_fixnum(0); |
{object V304 = small_fixnum(0); |
2002 |
VMR28(V324)} |
VMR29(V304)} |
2003 |
goto T583; |
goto T541; |
2004 |
T583:; |
T541:; |
2005 |
{object V325 = Cnil; |
{object V305 = Cnil; |
2006 |
VMR28(V325)} |
VMR29(V305)} |
2007 |
base[0]=base[0]; |
base[0]=base[0]; |
2008 |
return Cnil; |
return Cnil; |
2009 |
} |
} |
2010 |
/* macro definition for TRACE-EMF-CALL */ |
/* macro definition for TRACE-EMF-CALL */ |
2011 |
|
|
2012 |
static void L31() |
static void L34() |
2013 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2014 |
register object *sup=base+VM29; VC29 |
register object *sup=base+VM30; VC30 |
2015 |
vs_check; |
vs_check; |
2016 |
check_arg(2); |
check_arg(2); |
2017 |
vs_top=sup; |
vs_top=sup; |
2018 |
{object V326=base[0]->c.c_cdr; |
{object V306=base[0]->c.c_cdr; |
2019 |
if(endp(V326))invalid_macro_call(); |
if(endp(V306))invalid_macro_call(); |
2020 |
base[2]= (V326->c.c_car); |
base[2]= (V306->c.c_car); |
2021 |
V326=V326->c.c_cdr; |
V306=V306->c.c_cdr; |
2022 |
if(endp(V326))invalid_macro_call(); |
if(endp(V306))invalid_macro_call(); |
2023 |
base[3]= (V326->c.c_car); |
base[3]= (V306->c.c_car); |
2024 |
V326=V326->c.c_cdr; |
V306=V306->c.c_cdr; |
2025 |
if(endp(V326))invalid_macro_call(); |
if(endp(V306))invalid_macro_call(); |
2026 |
base[4]= (V326->c.c_car); |
base[4]= (V306->c.c_car); |
2027 |
V326=V326->c.c_cdr; |
V306=V306->c.c_cdr; |
2028 |
if(!endp(V326))invalid_macro_call();} |
if(!endp(V306))invalid_macro_call();} |
2029 |
if(((VV[114]->s.s_dbind))==Cnil){ |
if(((VV[119]->s.s_dbind))==Cnil){ |
2030 |
goto T587;} |
goto T545;} |
2031 |
base[5]= list(3,VV[115],VV[111],list(4,VV[116],base[2],base[3],base[4])); |
base[5]= list(3,VV[120],VV[116],list(4,VV[121],base[2],base[3],base[4])); |
2032 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2033 |
return; |
return; |
2034 |
goto T587; |
goto T545; |
2035 |
T587:; |
T545:; |
2036 |
base[5]= Cnil; |
base[5]= Cnil; |
2037 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2038 |
return; |
return; |
2039 |
} |
} |
2040 |
/* macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST */ |
/* macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION-FAST */ |
2041 |
|
|
2042 |
static void L32() |
static void L35() |
2043 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2044 |
register object *sup=base+VM30; VC30 |
register object *sup=base+VM31; VC31 |
2045 |
vs_check; |
vs_check; |
2046 |
check_arg(2); |
check_arg(2); |
2047 |
vs_top=sup; |
vs_top=sup; |
2048 |
{object V327=base[0]->c.c_cdr; |
{object V307=base[0]->c.c_cdr; |
2049 |
if(endp(V327))invalid_macro_call(); |
if(endp(V307))invalid_macro_call(); |
2050 |
base[2]= (V327->c.c_car); |
base[2]= (V307->c.c_car); |
2051 |
V327=V327->c.c_cdr; |
V307=V307->c.c_cdr; |
2052 |
if(endp(V327))invalid_macro_call(); |
if(endp(V307))invalid_macro_call(); |
2053 |
base[3]= (V327->c.c_car); |
base[3]= (V307->c.c_car); |
2054 |
V327=V327->c.c_cdr; |
V307=V307->c.c_cdr; |
2055 |
base[4]= V327;} |
base[4]= V307;} |
2056 |
V328= list(4,VV[117],base[2],base[3],make_cons(VV[43],base[4])); |
V308= list(4,VV[122],base[2],base[3],make_cons(VV[47],base[4])); |
2057 |
base[5]= list(3,VV[9],/* INLINE-ARGS */V328,listA(3,VV[118],base[2],base[4])); |
base[5]= list(3,VV[13],/* INLINE-ARGS */V308,listA(3,VV[123],base[2],base[4])); |
2058 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2059 |
return; |
return; |
2060 |
} |
} |
2061 |
/* macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION */ |
/* macro definition for INVOKE-EFFECTIVE-METHOD-FUNCTION */ |
2062 |
|
|
2063 |
static void L33() |
static void L36() |
2064 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2065 |
register object *sup=base+VM31; VC31 |
register object *sup=base+VM32; VC32 |
2066 |
vs_check; |
vs_check; |
2067 |
check_arg(2); |
check_arg(2); |
2068 |
vs_top=sup; |
vs_top=sup; |
2069 |
{object V329=base[0]->c.c_cdr; |
{object V309=base[0]->c.c_cdr; |
2070 |
if(endp(V329))invalid_macro_call(); |
if(endp(V309))invalid_macro_call(); |
2071 |
base[2]= (V329->c.c_car); |
base[2]= (V309->c.c_car); |
2072 |
V329=V329->c.c_cdr; |
V309=V309->c.c_cdr; |
2073 |
if(endp(V329))invalid_macro_call(); |
if(endp(V309))invalid_macro_call(); |
2074 |
base[3]= (V329->c.c_car); |
base[3]= (V309->c.c_car); |
2075 |
V329=V329->c.c_cdr; |
V309=V309->c.c_cdr; |
2076 |
base[4]= V329;} |
base[4]= V309;} |
2077 |
base[5]= base[3]; |
base[5]= base[3]; |
2078 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2079 |
Lconstantp(); |
Lconstantp(); |
2080 |
vs_top=sup; |
vs_top=sup; |
2081 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
2082 |
goto T589;} |
goto T547;} |
2083 |
base[5]= VV[119]; |
base[5]= VV[124]; |
2084 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2085 |
Lerror(); |
Lerror(); |
2086 |
vs_top=sup; |
vs_top=sup; |
2087 |
goto T589; |
goto T547; |
2088 |
T589:; |
T547:; |
2089 |
base[5]= base[3]; |
base[5]= base[3]; |
2090 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2091 |
Leval(); |
Leval(); |
2092 |
vs_top=sup; |
vs_top=sup; |
2093 |
base[3]= vs_base[0]; |
base[3]= vs_base[0]; |
2094 |
V330= list(4,VV[117],base[2],base[3],make_cons(VV[43],base[4])); |
V310= list(4,VV[122],base[2],base[3],make_cons(VV[47],base[4])); |
2095 |
V331= list(3,VV[121],base[2],VV[122]); |
V311= list(3,VV[126],base[2],VV[127]); |
2096 |
V332= list(2,/* INLINE-ARGS */V331,listA(3,VV[118],base[2],base[4])); |
V312= list(2,/* INLINE-ARGS */V311,listA(3,VV[123],base[2],base[4])); |
2097 |
if((base[3])!=Cnil){ |
if((base[3])!=Cnil){ |
2098 |
goto T600;} |
goto T558;} |
2099 |
if(!((1)==((long)length(base[4])))){ |
if(!((1)==((long)length(base[4])))){ |
2100 |
goto T600;} |
goto T558;} |
2101 |
V334= list(3,VV[121],base[2],VV[123]); |
V314= list(3,VV[126],base[2],VV[128]); |
2102 |
V335= list(2,VV[125],list(2,VV[126],CMPcar(base[4]))); |
V315= list(2,VV[130],list(2,VV[131],CMPcar(base[4]))); |
2103 |
V336= list(2,/* INLINE-ARGS */V335,list(2,VV[127],list(3,VV[115],VV[125],list(3,VV[128],VV[125],base[2])))); |
V316= list(2,/* INLINE-ARGS */V315,list(2,VV[132],list(3,VV[120],VV[130],list(3,VV[133],VV[130],base[2])))); |
2104 |
V337= list(3,VV[130],VV[127],list(2,VV[1],(VV[131]->s.s_dbind))); |
V317= list(3,VV[135],VV[132],list(2,VV[1],(VV[136]->s.s_dbind))); |
2105 |
V338= list(2,/* INLINE-ARGS */V334,list(3,VV[124],/* INLINE-ARGS */V336,list(4,VV[129],/* INLINE-ARGS */V337,list(3,VV[132],CMPcar(base[4]),base[2]),VV[127]))); |
V318= list(2,/* INLINE-ARGS */V314,list(3,VV[129],/* INLINE-ARGS */V316,list(4,VV[134],/* INLINE-ARGS */V317,list(3,VV[137],CMPcar(base[4]),base[2]),VV[132]))); |
2106 |
base[5]= make_cons(/* INLINE-ARGS */V338,Cnil); |
base[5]= make_cons(/* INLINE-ARGS */V318,Cnil); |
2107 |
goto T598; |
goto T556; |
2108 |
goto T600; |
goto T558; |
2109 |
T600:; |
T558:; |
2110 |
base[5]= Cnil; |
base[5]= Cnil; |
2111 |
goto T598; |
goto T556; |
2112 |
T598:; |
T556:; |
2113 |
if((base[3])!=Cnil){ |
if((base[3])!=Cnil){ |
2114 |
goto T606;} |
goto T564;} |
2115 |
if(!((2)==((long)length(base[4])))){ |
if(!((2)==((long)length(base[4])))){ |
2116 |
goto T606;} |
goto T564;} |
2117 |
V339= list(3,VV[121],base[2],VV[133]); |
V319= list(3,VV[126],base[2],VV[138]); |
2118 |
V340= list(2,VV[134],CMPcar(base[4])); |
V320= list(2,VV[139],CMPcar(base[4])); |
2119 |
V341= list(2,/* INLINE-ARGS */V340,list(2,VV[125],list(2,VV[126],CMPcar(base[4])))); |
V321= list(2,/* INLINE-ARGS */V320,list(2,VV[130],list(2,VV[131],CMPcar(base[4])))); |
2120 |
V342= list(2,/* INLINE-ARGS */V339,list(3,VV[95],/* INLINE-ARGS */V341,list(3,VV[115],VV[125],list(3,VV[30],list(3,VV[128],VV[125],base[2]),VV[134])))); |
V322= list(2,/* INLINE-ARGS */V319,list(3,VV[100],/* INLINE-ARGS */V321,list(3,VV[120],VV[130],list(3,VV[34],list(3,VV[133],VV[130],base[2]),VV[139])))); |
2121 |
base[6]= make_cons(/* INLINE-ARGS */V342,Cnil); |
base[6]= make_cons(/* INLINE-ARGS */V322,Cnil); |
2122 |
goto T604; |
goto T562; |
2123 |
goto T606; |
goto T564; |
2124 |
T606:; |
T564:; |
2125 |
base[6]= Cnil; |
base[6]= Cnil; |
2126 |
goto T604; |
goto T562; |
2127 |
T604:; |
T562:; |
2128 |
V343= list(2,VV[94],listA(4,VV[136],base[2],base[3],base[4])); |
V323= list(2,VV[99],listA(4,VV[141],base[2],base[3],base[4])); |
2129 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
2130 |
goto T613;} |
goto T571;} |
2131 |
V344= listA(3,VV[137],list(3,VV[138],VV[14],base[2]),base[4]); |
V324= listA(3,VV[142],list(3,VV[143],VV[18],base[2]),base[4]); |
2132 |
goto T611; |
goto T569; |
2133 |
goto T613; |
goto T571; |
2134 |
T613:; |
T571:; |
2135 |
V344= listA(3,VV[139],list(3,VV[138],VV[14],base[2]),base[4]); |
V324= listA(3,VV[144],list(3,VV[143],VV[18],base[2]),base[4]); |
2136 |
goto T611; |
goto T569; |
2137 |
T611:; |
T569:; |
2138 |
V345= list(2,Ct,list(4,VV[135],base[2],/* INLINE-ARGS */V343,list(2,VV[14],V344))); |
V325= list(2,Ct,list(4,VV[140],base[2],/* INLINE-ARGS */V323,list(2,VV[18],V324))); |
2139 |
base[7]= make_cons(/* INLINE-ARGS */V345,Cnil); |
base[7]= make_cons(/* INLINE-ARGS */V325,Cnil); |
2140 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
2141 |
Lappend(); |
Lappend(); |
2142 |
vs_top=sup; |
vs_top=sup; |
2143 |
V333= vs_base[0]; |
V313= vs_base[0]; |
2144 |
base[5]= list(3,VV[9],/* INLINE-ARGS */V330,listA(3,VV[120],/* INLINE-ARGS */V332,V333)); |
base[5]= list(3,VV[13],/* INLINE-ARGS */V310,listA(3,VV[125],/* INLINE-ARGS */V312,V313)); |
2145 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2146 |
return; |
return; |
2147 |
} |
} |
2148 |
/* function definition for INVOKE-EMF */ |
/* function definition for INVOKE-EMF */ |
2149 |
|
|
2150 |
static void L34() |
static void L37() |
2151 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2152 |
register object *sup=base+VM32; VC32 |
register object *sup=base+VM33; VC33 |
2153 |
vs_check; |
vs_check; |
2154 |
{register object V346; |
{register object V326; |
2155 |
register object V347; |
register object V327; |
2156 |
check_arg(2); |
check_arg(2); |
2157 |
V346=(base[0]); |
V326=(base[0]); |
2158 |
V347=(base[1]); |
V327=(base[1]); |
2159 |
vs_top=sup; |
vs_top=sup; |
2160 |
goto TTL; |
goto TTL; |
2161 |
TTL:; |
TTL:; |
2162 |
{register object V348; |
{register object V329; |
2163 |
V348= (V346); |
V329= V326; |
2164 |
base[2]= (V348); |
base[2]= (V329); |
2165 |
base[3]= VV[103]; |
base[3]= VV[108]; |
2166 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2167 |
(void) (*Lnk389)(); |
(void) (*Lnk406)(); |
2168 |
vs_top=sup; |
vs_top=sup; |
2169 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2170 |
goto T617;} |
goto T575;} |
2171 |
{object V349; |
{object V330; |
2172 |
object V350; |
object V331; |
2173 |
register object V351; |
register object V332; |
2174 |
V349= STREF(object,(V346),12); |
V330= STREF(object,(V326),12); |
2175 |
V350= CMPcdr((V349)); |
V331= CMPcdr((V330)); |
2176 |
V351= CMPcar((V349)); |
V332= CMPcar((V330)); |
2177 |
if(((V350))==Cnil){ |
if(((V331))==Cnil){ |
2178 |
goto T625;} |
goto T583;} |
2179 |
{object V352; |
{object V333; |
2180 |
object V353; |
object V334; |
2181 |
V352= nthcdr(fix((V351)),(V347)); |
V333= nthcdr(fix((V332)),(V327)); |
2182 |
base[7]= (V347); |
base[7]= (V327); |
2183 |
base[8]= (V352); |
base[8]= (V333); |
2184 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
2185 |
Lldiff(); |
Lldiff(); |
2186 |
vs_top=sup; |
vs_top=sup; |
2187 |
V353= vs_base[0]; |
V334= vs_base[0]; |
2188 |
base[7]= STREF(object,(V346),0); |
base[7]= STREF(object,(V326),0); |
2189 |
base[8]= STREF(object,(V346),4); |
base[8]= STREF(object,(V326),4); |
2190 |
base[9]= STREF(object,(V346),8); |
base[9]= STREF(object,(V326),8); |
2191 |
{object V354; |
{object V335; |
2192 |
V355= make_cons((V352),Cnil); |
V336= make_cons((V333),Cnil); |
2193 |
V354= nconc((V353),/* INLINE-ARGS */V355); |
V335= nconc((V334),/* INLINE-ARGS */V336); |
2194 |
vs_top=base+10; |
vs_top=base+10; |
2195 |
while(V354!=Cnil) |
while(V335!=Cnil) |
2196 |
{vs_push((V354)->c.c_car);V354=(V354)->c.c_cdr;} |
{vs_push((V335)->c.c_car);V335=(V335)->c.c_cdr;} |
2197 |
vs_base=base+8;} |
vs_base=base+8;} |
2198 |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[7];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2199 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2200 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2201 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2202 |
return;} |
return;} |
2203 |
goto T625; |
goto T583; |
2204 |
T625:; |
T583:; |
2205 |
if(((V347))!=Cnil){ |
if(((V327))!=Cnil){ |
2206 |
goto T636;} |
goto T594;} |
2207 |
if(!(eql((V351),small_fixnum(0)))){ |
if(!(eql((V332),small_fixnum(0)))){ |
2208 |
goto T639;} |
goto T597;} |
2209 |
base[5]= STREF(object,(V346),0); |
base[5]= STREF(object,(V326),0); |
2210 |
base[6]= STREF(object,(V346),4); |
base[6]= STREF(object,(V326),4); |
2211 |
base[7]= STREF(object,(V346),8); |
base[7]= STREF(object,(V326),8); |
2212 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
2213 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2214 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2215 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2216 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2217 |
return; |
return; |
2218 |
goto T639; |
goto T597; |
2219 |
T639:; |
T597:; |
2220 |
base[5]= VV[140]; |
base[5]= VV[145]; |
2221 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2222 |
Lerror(); |
Lerror(); |
2223 |
return; |
return; |
2224 |
goto T636; |
goto T594; |
2225 |
T636:; |
T594:; |
2226 |
if((CMPcdr((V347)))!=Cnil){ |
if((CMPcdr((V327)))!=Cnil){ |
2227 |
goto T646;} |
goto T604;} |
2228 |
if(!(eql((V351),small_fixnum(1)))){ |
if(!(eql((V332),small_fixnum(1)))){ |
2229 |
goto T649;} |
goto T607;} |
2230 |
base[5]= STREF(object,(V346),0); |
base[5]= STREF(object,(V326),0); |
2231 |
base[6]= STREF(object,(V346),4); |
base[6]= STREF(object,(V326),4); |
2232 |
base[7]= STREF(object,(V346),8); |
base[7]= STREF(object,(V326),8); |
2233 |
base[8]= CMPcar((V347)); |
base[8]= CMPcar((V327)); |
2234 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
2235 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2236 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2237 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2238 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2239 |
return; |
return; |
2240 |
goto T649; |
goto T607; |
2241 |
T649:; |
T607:; |
2242 |
base[5]= VV[141]; |
base[5]= VV[146]; |
2243 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2244 |
Lerror(); |
Lerror(); |
2245 |
return; |
return; |
2246 |
goto T646; |
goto T604; |
2247 |
T646:; |
T604:; |
2248 |
if((CMPcddr((V347)))!=Cnil){ |
if((CMPcddr((V327)))!=Cnil){ |
2249 |
goto T657;} |
goto T615;} |
2250 |
if(!(eql((V351),small_fixnum(2)))){ |
if(!(eql((V332),small_fixnum(2)))){ |
2251 |
goto T660;} |
goto T618;} |
2252 |
base[5]= STREF(object,(V346),0); |
base[5]= STREF(object,(V326),0); |
2253 |
base[6]= STREF(object,(V346),4); |
base[6]= STREF(object,(V326),4); |
2254 |
base[7]= STREF(object,(V346),8); |
base[7]= STREF(object,(V326),8); |
2255 |
base[8]= CMPcar((V347)); |
base[8]= CMPcar((V327)); |
2256 |
base[9]= CMPcadr((V347)); |
base[9]= CMPcadr((V327)); |
2257 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
2258 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2259 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2260 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2261 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2262 |
return; |
return; |
2263 |
goto T660; |
goto T618; |
2264 |
T660:; |
T618:; |
2265 |
base[5]= VV[142]; |
base[5]= VV[147]; |
2266 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
2267 |
Lerror(); |
Lerror(); |
2268 |
return; |
return; |
2269 |
goto T657; |
goto T615; |
2270 |
T657:; |
T615:; |
2271 |
base[5]= STREF(object,(V346),0); |
base[5]= STREF(object,(V326),0); |
2272 |
base[6]= STREF(object,(V346),4); |
base[6]= STREF(object,(V326),4); |
2273 |
base[7]= STREF(object,(V346),8); |
base[7]= STREF(object,(V326),8); |
2274 |
{object V356; |
{object V337; |
2275 |
V356= (V347); |
V337= (V327); |
2276 |
vs_top=base+8; |
vs_top=base+8; |
2277 |
while(V356!=Cnil) |
while(V337!=Cnil) |
2278 |
{vs_push((V356)->c.c_car);V356=(V356)->c.c_cdr;} |
{vs_push((V337)->c.c_car);V337=(V337)->c.c_cdr;} |
2279 |
vs_base=base+6;} |
vs_base=base+6;} |
2280 |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[5];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2281 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2282 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2283 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2284 |
return;} |
return;} |
2285 |
goto T617; |
goto T575; |
2286 |
T617:; |
T575:; |
2287 |
base[2]= (V348); |
base[2]= (V329); |
2288 |
base[3]= VV[94]; |
base[3]= VV[99]; |
2289 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2290 |
(void) (*Lnk389)(); |
(void) (*Lnk406)(); |
2291 |
vs_top=sup; |
vs_top=sup; |
2292 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2293 |
goto T673;} |
goto T631;} |
2294 |
base[2]= STREF(object,(V346),0); |
base[2]= STREF(object,(V326),0); |
2295 |
base[3]= (V347); |
base[3]= (V327); |
2296 |
{object V357; |
{object V338; |
2297 |
V357= STREF(object,(V346),4); |
V338= STREF(object,(V326),4); |
2298 |
vs_top=base+4; |
vs_top=base+4; |
2299 |
while(V357!=Cnil) |
while(V338!=Cnil) |
2300 |
{vs_push((V357)->c.c_car);V357=(V357)->c.c_cdr;} |
{vs_push((V338)->c.c_car);V338=(V338)->c.c_cdr;} |
2301 |
vs_base=base+3;} |
vs_base=base+3;} |
2302 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2303 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2304 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2305 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2306 |
return; |
return; |
2307 |
goto T673; |
goto T631; |
2308 |
T673:; |
T631:; |
2309 |
if(!(type_of((V348))==t_fixnum)){ |
if(!(type_of((V329))==t_fixnum)){ |
2310 |
goto T681;} |
goto T639;} |
2311 |
if(((V347))!=Cnil){ |
if(((V327))!=Cnil){ |
2312 |
goto T684;} |
goto T642;} |
2313 |
base[2]= VV[143]; |
base[2]= VV[148]; |
2314 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2315 |
Lerror(); |
Lerror(); |
2316 |
return; |
return; |
2317 |
goto T684; |
goto T642; |
2318 |
T684:; |
T642:; |
2319 |
if((CMPcdr((V347)))!=Cnil){ |
if((CMPcdr((V327)))!=Cnil){ |
2320 |
goto T688;} |
goto T646;} |
2321 |
{object V358; |
{object V339; |
2322 |
{object V360; |
{object V341; |
2323 |
V360= CMPcar((V347)); |
V341= CMPcar((V327)); |
2324 |
if(type_of((V360))==t_structure){ |
if(type_of((V341))==t_structure){ |
2325 |
goto T696;} |
goto T654;} |
2326 |
goto T693; |
goto T651; |
2327 |
goto T696; |
goto T654; |
2328 |
T696:; |
T654:; |
2329 |
if(!((((V360))->str.str_def)==(VV[144]))){ |
if(!((((V341))->str.str_def)==(VV[149]))){ |
2330 |
goto T693;}} |
goto T651;}} |
2331 |
V359= STREF(object,CMPcar((V347)),4); |
V340= STREF(object,CMPcar((V327)),4); |
2332 |
goto T691; |
goto T649; |
2333 |
goto T693; |
goto T651; |
2334 |
T693:;{object V361; |
T651:;{object V342; |
2335 |
V361= (VV[146]->s.s_dbind); |
V342= (VV[151]->s.s_dbind); |
2336 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2337 |
base[3]= CMPcar((V347)); |
base[3]= CMPcar((V327)); |
2338 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2339 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
2340 |
vs_top=sup; |
vs_top=sup; |
2341 |
V362= vs_base[0]; |
V343= vs_base[0]; |
2342 |
if(!((V361)==(CMPcar(V362)))){ |
if(!((V342)==(CMPcar(V343)))){ |
2343 |
goto T699;}} |
goto T657;}} |
2344 |
V359= CMPcar((CMPcar((V347)))->cc.cc_turbo[12]); |
V340= CMPcar((CMPcar((V327)))->cc.cc_turbo[12]); |
2345 |
goto T691; |
goto T649; |
2346 |
goto T699; |
goto T657; |
2347 |
T699:; |
T657:; |
2348 |
base[2]= VV[147]; |
base[2]= VV[152]; |
2349 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2350 |
Lerror(); |
Lerror(); |
2351 |
vs_top=sup; |
vs_top=sup; |
2352 |
V359= vs_base[0]; |
V340= vs_base[0]; |
2353 |
goto T691; |
goto T649; |
2354 |
T691:; |
T649:; |
2355 |
V363 = fix((V346)); |
V339= (V340)->v.v_self[fix((V326))]; |
2356 |
V358= (V359)->v.v_self[V363]; |
if(!(((V339))==((VV[136]->s.s_dbind)))){ |
2357 |
if(!(((V358))==((VV[131]->s.s_dbind)))){ |
goto T664;} |
2358 |
goto T706;} |
base[2]= CMPcar((V327)); |
2359 |
base[2]= CMPcar((V347)); |
base[3]= (V326); |
|
base[3]= (V346); |
|
2360 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2361 |
(void) (*Lnk132)(); |
(void) (*Lnk137)(); |
2362 |
return; |
return; |
2363 |
goto T706; |
goto T664; |
2364 |
T706:; |
T664:; |
2365 |
base[2]= (V358); |
base[2]= (V339); |
2366 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2367 |
return;} |
return;} |
2368 |
goto T688; |
goto T646; |
2369 |
T688:; |
T646:; |
2370 |
if((CMPcddr((V347)))!=Cnil){ |
if((CMPcddr((V327)))!=Cnil){ |
2371 |
goto T711;} |
goto T669;} |
2372 |
{object V365; |
{object V345; |
2373 |
V365= CMPcadr((V347)); |
V345= CMPcadr((V327)); |
2374 |
if(type_of((V365))==t_structure){ |
if(type_of((V345))==t_structure){ |
2375 |
goto T718;} |
goto T676;} |
2376 |
goto T715; |
goto T673; |
2377 |
goto T718; |
goto T676; |
2378 |
T718:; |
T676:; |
2379 |
if(!((((V365))->str.str_def)==(VV[148]))){ |
if(!((((V345))->str.str_def)==(VV[153]))){ |
2380 |
goto T715;}} |
goto T673;}} |
2381 |
V364= STREF(object,CMPcadr((V347)),4); |
V344= STREF(object,CMPcadr((V327)),4); |
2382 |
goto T713; |
goto T671; |
2383 |
goto T715; |
goto T673; |
2384 |
T715:;{object V366; |
T673:;{object V346; |
2385 |
V366= (VV[146]->s.s_dbind); |
V346= (VV[151]->s.s_dbind); |
2386 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2387 |
base[3]= CMPcadr((V347)); |
base[3]= CMPcadr((V327)); |
2388 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2389 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
2390 |
vs_top=sup; |
vs_top=sup; |
2391 |
V367= vs_base[0]; |
V347= vs_base[0]; |
2392 |
if(!((V366)==(CMPcar(V367)))){ |
if(!((V346)==(CMPcar(V347)))){ |
2393 |
goto T721;}} |
goto T679;}} |
2394 |
V364= CMPcar((CMPcadr((V347)))->cc.cc_turbo[12]); |
V344= CMPcar((CMPcadr((V327)))->cc.cc_turbo[12]); |
2395 |
goto T713; |
goto T671; |
2396 |
goto T721; |
goto T679; |
2397 |
T721:; |
T679:; |
2398 |
base[2]= VV[147]; |
base[2]= VV[152]; |
2399 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2400 |
Lerror(); |
Lerror(); |
2401 |
vs_top=sup; |
vs_top=sup; |
2402 |
V364= vs_base[0]; |
V344= vs_base[0]; |
2403 |
goto T713; |
goto T671; |
2404 |
T713:; |
T671:; |
2405 |
V368 = fix((V346)); |
base[2]= (V344)->v.v_self[fix((V326))]= (CMPcar((V327))); |
|
base[2]= (V364)->v.v_self[V368]= (CMPcar((V347))); |
|
2406 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2407 |
return; |
return; |
2408 |
goto T711; |
goto T669; |
2409 |
T711:; |
T669:; |
2410 |
base[2]= VV[149]; |
base[2]= VV[154]; |
2411 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2412 |
Lerror(); |
Lerror(); |
2413 |
return; |
return; |
2414 |
goto T681; |
goto T639; |
2415 |
T681:; |
T639:; |
2416 |
base[2]= (V348); |
base[2]= (V329); |
2417 |
base[3]= VV[108]; |
base[3]= VV[113]; |
2418 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2419 |
(void) (*Lnk389)(); |
(void) (*Lnk406)(); |
2420 |
vs_top=sup; |
vs_top=sup; |
2421 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2422 |
goto T729;} |
goto T687;} |
2423 |
if(((V347))==Cnil){ |
if(((V327))==Cnil){ |
2424 |
goto T733;} |
goto T691;} |
2425 |
if((CMPcdr((V347)))==Cnil){ |
if((CMPcdr((V327)))==Cnil){ |
2426 |
goto T734;} |
goto T692;} |
2427 |
goto T733; |
goto T691; |
2428 |
T733:; |
T691:; |
2429 |
base[2]= VV[150]; |
base[2]= VV[155]; |
2430 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2431 |
Lerror(); |
Lerror(); |
2432 |
return; |
return; |
2433 |
goto T734; |
goto T692; |
2434 |
T734:; |
T692:; |
2435 |
{object V370; |
{object V349; |
2436 |
V370= CMPcar((V347)); |
V349= CMPcar((V327)); |
2437 |
if(type_of((V370))==t_structure){ |
if(type_of((V349))==t_structure){ |
2438 |
goto T744;} |
goto T702;} |
2439 |
goto T741; |
goto T699; |
2440 |
goto T744; |
goto T702; |
2441 |
T744:; |
T702:; |
2442 |
if(!((((V370))->str.str_def)==(VV[151]))){ |
if(!((((V349))->str.str_def)==(VV[156]))){ |
2443 |
goto T741;}} |
goto T699;}} |
2444 |
V369= STREF(object,CMPcar((V347)),4); |
V348= STREF(object,CMPcar((V327)),4); |
2445 |
goto T739; |
goto T697; |
2446 |
goto T741; |
goto T699; |
2447 |
T741:;{object V371; |
T699:;{object V350; |
2448 |
V371= (VV[146]->s.s_dbind); |
V350= (VV[151]->s.s_dbind); |
2449 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
2450 |
base[3]= CMPcar((V347)); |
base[3]= CMPcar((V327)); |
2451 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
2452 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
2453 |
vs_top=sup; |
vs_top=sup; |
2454 |
V372= vs_base[0]; |
V351= vs_base[0]; |
2455 |
if(!((V371)==(CMPcar(V372)))){ |
if(!((V350)==(CMPcar(V351)))){ |
2456 |
goto T747;}} |
goto T705;}} |
2457 |
V369= CMPcar((CMPcar((V347)))->cc.cc_turbo[12]); |
V348= CMPcar((CMPcar((V327)))->cc.cc_turbo[12]); |
2458 |
goto T739; |
goto T697; |
2459 |
goto T747; |
goto T705; |
2460 |
T747:; |
T705:; |
2461 |
base[2]= VV[147]; |
base[2]= VV[152]; |
2462 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2463 |
Lerror(); |
Lerror(); |
2464 |
vs_top=sup; |
vs_top=sup; |
2465 |
V369= vs_base[0]; |
V348= vs_base[0]; |
2466 |
goto T739; |
goto T697; |
2467 |
T739:; |
T697:; |
2468 |
base[2]= (((((V369)->v.v_self[(long)STREF(fixnum,(V346),0)])==((VV[131]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
base[2]= (((((V348)->v.v_self[(long)STREF(fixnum,(V326),0)])==((VV[136]->s.s_dbind))?Ct:Cnil))==Cnil?Ct:Cnil); |
2469 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2470 |
return; |
return; |
2471 |
goto T729; |
goto T687; |
2472 |
T729:; |
T687:; |
2473 |
base[2]= (V348); |
base[2]= (V329); |
2474 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2475 |
Lfunctionp(); |
Lfunctionp(); |
2476 |
vs_top=sup; |
vs_top=sup; |
2477 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
2478 |
goto T754;} |
goto T712;} |
2479 |
base[2]= (V346); |
base[2]= (V326); |
2480 |
{object V373; |
{object V352; |
2481 |
V373= (V347); |
V352= (V327); |
2482 |
vs_top=base+3; |
vs_top=base+3; |
2483 |
while(V373!=Cnil) |
while(V352!=Cnil) |
2484 |
{vs_push((V373)->c.c_car);V373=(V373)->c.c_cdr;} |
{vs_push((V352)->c.c_car);V352=(V352)->c.c_cdr;} |
2485 |
vs_base=base+3;} |
vs_base=base+3;} |
2486 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
2487 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
2488 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
2489 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
2490 |
return; |
return; |
2491 |
goto T754; |
goto T712; |
2492 |
T754:; |
T712:; |
2493 |
base[3]= VV[152]; |
base[2]= VV[157]; |
2494 |
base[4]= (V348); |
base[3]= VV[158]; |
2495 |
base[5]= VV[153]; |
base[4]= VV[159]; |
2496 |
vs_top=(vs_base=base+3)+3; |
base[5]= VV[160]; |
2497 |
(void) (*Lnk392)(); |
base[6]= V326; |
2498 |
vs_top=sup; |
base[7]= VV[161]; |
2499 |
base[2]= vs_base[0]; |
base[8]= VV[162]; |
2500 |
vs_top=(vs_base=base+2)+1; |
base[9]= VV[163]; |
2501 |
Lerror(); |
base[10]= VV[164]; |
2502 |
|
vs_top=(vs_base=base+2)+9; |
2503 |
|
(void) (*Lnk409)(); |
2504 |
return;} |
return;} |
2505 |
} |
} |
2506 |
} |
} |
|
/* local entry for function GF-MAKE-FUNCTION-FROM-EMF */ |
|
|
|
|
|
static object LI36(V376,V377) |
|
|
|
|
|
object V376;object V377; |
|
|
{ VMB33 VMS33 VMV33 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]=MMcons((V377),Cnil); |
|
|
{register object V378; |
|
|
V378= (base[0]->c.c_car); |
|
|
base[1]= (V378); |
|
|
base[2]= VV[103]; |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
(void) (*Lnk389)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T764;} |
|
|
{object V379; |
|
|
base[4]= (V376); |
|
|
vs_top=(vs_base=base+4)+1; |
|
|
(void) (*Lnk393)(Lclptr393); |
|
|
vs_top=sup; |
|
|
V379= vs_base[0]; |
|
|
base[2]= CMPmake_fixnum((long)(*(LnkLI394))((V379))); |
|
|
base[2]=MMcons(base[2],base[0]); |
|
|
base[3]= (*(LnkLI395))((V379)); |
|
|
base[3]=MMcons(base[3],base[2]); |
|
|
{object V380 = |
|
|
make_cclosure_new(LC130,Cnil,base[3],Cdata); |
|
|
VMR33(V380)}} |
|
|
goto T764; |
|
|
T764:; |
|
|
base[1]= (V378); |
|
|
base[2]= VV[94]; |
|
|
vs_top=(vs_base=base+1)+2; |
|
|
(void) (*Lnk389)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T773;} |
|
|
{object V381 = |
|
|
make_cclosure_new(LC131,Cnil,base[0],Cdata); |
|
|
VMR33(V381)} |
|
|
goto T773; |
|
|
T773:; |
|
|
base[1]= (V378); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Lfunctionp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T778;} |
|
|
{object V382 = (base[0]->c.c_car); |
|
|
VMR33(V382)} |
|
|
goto T778; |
|
|
T778:; |
|
|
base[2]= VV[152]; |
|
|
base[3]= (V378); |
|
|
base[4]= VV[155]; |
|
|
vs_top=(vs_base=base+2)+3; |
|
|
(void) (*Lnk392)(); |
|
|
vs_top=sup; |
|
|
base[1]= vs_base[0]; |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
Lerror(); |
|
|
vs_top=sup; |
|
|
{object V383 = vs_base[0]; |
|
|
VMR33(V383)}} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
2507 |
/* macro definition for BIND-FAST-LEXICAL-METHOD-MACROS */ |
/* macro definition for BIND-FAST-LEXICAL-METHOD-MACROS */ |
2508 |
|
|
2509 |
static void L37() |
static void L38() |
2510 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2511 |
register object *sup=base+VM34; VC34 |
register object *sup=base+VM34; VC34 |
2512 |
vs_check; |
vs_check; |
2513 |
check_arg(2); |
check_arg(2); |
2514 |
vs_top=sup; |
vs_top=sup; |
2515 |
{object V384=base[0]->c.c_cdr; |
{object V353=base[0]->c.c_cdr; |
2516 |
if(endp(V384))invalid_macro_call(); |
if(endp(V353))invalid_macro_call(); |
2517 |
{object V385= (V384->c.c_car); |
{object V354= (V353->c.c_car); |
2518 |
if(endp(V385))invalid_macro_call(); |
if(endp(V354))invalid_macro_call(); |
2519 |
base[2]= (V385->c.c_car); |
base[2]= (V354->c.c_car); |
2520 |
V385=V385->c.c_cdr; |
V354=V354->c.c_cdr; |
2521 |
if(endp(V385))invalid_macro_call(); |
if(endp(V354))invalid_macro_call(); |
2522 |
base[3]= (V385->c.c_car); |
base[3]= (V354->c.c_car); |
2523 |
V385=V385->c.c_cdr; |
V354=V354->c.c_cdr; |
2524 |
if(endp(V385))invalid_macro_call(); |
if(endp(V354))invalid_macro_call(); |
2525 |
base[4]= (V385->c.c_car); |
base[4]= (V354->c.c_car); |
2526 |
V385=V385->c.c_cdr; |
V354=V354->c.c_cdr; |
2527 |
if(!endp(V385))invalid_macro_call();} |
if(!endp(V354))invalid_macro_call();} |
2528 |
V384=V384->c.c_cdr; |
V353=V353->c.c_cdr; |
2529 |
base[5]= V384;} |
base[5]= V353;} |
2530 |
V386= list(2,VV[1],base[4]); |
V355= list(2,VV[1],base[4]); |
2531 |
V387= listA(3,VV[159],list(2,VV[160],list(2,VV[1],base[3])),VV[161]); |
V356= listA(3,VV[168],list(2,VV[169],list(2,VV[1],base[3])),VV[170]); |
2532 |
V388= listA(4,VV[32],VV[162],list(2,VV[1],base[4]),VV[163]); |
V357= listA(4,VV[36],VV[171],list(2,VV[1],base[4]),VV[172]); |
2533 |
V389= list(2,VV[1],base[4]); |
V358= list(2,VV[1],base[4]); |
2534 |
V390= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)); |
V359= list(2,VV[1],((((base[3])==Cnil?Ct:Cnil))==Cnil?Ct:Cnil)); |
2535 |
V391= list(2,VV[1],base[2]); |
V360= list(2,VV[1],base[2]); |
2536 |
|
if((base[3])==Cnil){ |
2537 |
|
goto T728;} |
2538 |
|
V361= make_cons(base[3],Cnil); |
2539 |
|
goto T726; |
2540 |
|
goto T728; |
2541 |
|
T728:; |
2542 |
|
V361= Cnil; |
2543 |
|
goto T726; |
2544 |
|
T726:; |
2545 |
|
V362= list(2,VV[173],list(5,VV[36],VV[174],/* INLINE-ARGS */V358,/* INLINE-ARGS */V359,list(3,VV[175],/* INLINE-ARGS */V360,list(2,VV[1],V361)))); |
2546 |
|
V363= make_cons(/* INLINE-ARGS */V362,Cnil); |
2547 |
|
V364= list(2,VV[1],base[2]); |
2548 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
2549 |
goto T787;} |
goto T732;} |
2550 |
V392= make_cons(base[3],Cnil); |
V365= list(2,VV[178],base[3]); |
2551 |
goto T785; |
goto T730; |
2552 |
goto T787; |
goto T732; |
2553 |
T787:; |
T732:; |
2554 |
V392= Cnil; |
V365= Cnil; |
2555 |
goto T785; |
goto T730; |
2556 |
T785:; |
T730:; |
2557 |
V393= list(2,VV[164],list(5,VV[32],VV[165],/* INLINE-ARGS */V389,/* INLINE-ARGS */V390,list(3,VV[166],/* INLINE-ARGS */V391,list(2,VV[1],V392)))); |
V366= list(4,VV[134],/* INLINE-ARGS */V356,/* INLINE-ARGS */V357,list(3,VV[100],/* INLINE-ARGS */V363,list(5,VV[47],VV[176],VV[93],list(4,VV[47],VV[177],list(3,VV[47],list(3,VV[175],/* INLINE-ARGS */V364,list(2,VV[1],V365)),VV[93]),VV[173]),VV[173]))); |
2558 |
V394= make_cons(/* INLINE-ARGS */V393,Cnil); |
V367= listA(3,VV[168],list(2,VV[169],list(2,VV[1],base[3])),VV[179]); |
2559 |
V395= list(2,VV[1],base[2]); |
V368= list(2,VV[1],base[2]); |
2560 |
if((base[3])==Cnil){ |
if((base[3])==Cnil){ |
2561 |
goto T791;} |
goto T736;} |
2562 |
V396= list(2,VV[169],base[3]); |
V369= make_cons(base[3],Cnil); |
2563 |
goto T789; |
goto T734; |
2564 |
goto T791; |
goto T736; |
2565 |
T791:; |
T736:; |
2566 |
V396= Cnil; |
V369= Cnil; |
2567 |
goto T789; |
goto T734; |
2568 |
T789:; |
T734:; |
2569 |
V397= list(3,VV[84],VV[157],list(5,VV[43],VV[158],/* INLINE-ARGS */V386,list(4,VV[129],/* INLINE-ARGS */V387,/* INLINE-ARGS */V388,list(3,VV[95],/* INLINE-ARGS */V394,list(5,VV[43],VV[167],VV[91],list(4,VV[43],VV[168],list(3,VV[43],list(3,VV[166],/* INLINE-ARGS */V395,list(2,VV[1],V396)),VV[91]),VV[164]),VV[164]))),VV[170])); |
V370= list(3,VV[86],VV[166],list(5,VV[47],VV[167],/* INLINE-ARGS */V355,/* INLINE-ARGS */V366,list(4,VV[134],/* INLINE-ARGS */V367,VV[180],list(4,VV[36],VV[181],VV[182],list(3,VV[175],/* INLINE-ARGS */V368,list(2,VV[1],V369)))))); |
2570 |
base[6]= listA(3,VV[75],list(3,VV[156],/* INLINE-ARGS */V397,list(3,VV[171],Cnil,list(3,VV[43],VV[172],list(3,VV[43],VV[173],list(2,VV[1],base[4]))))),base[5]); |
base[6]= listA(3,VV[77],list(3,VV[165],/* INLINE-ARGS */V370,list(3,VV[183],Cnil,list(3,VV[47],VV[184],list(3,VV[47],VV[185],list(2,VV[1],base[4]))))),base[5]); |
2571 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
2572 |
return; |
return; |
2573 |
} |
} |
2574 |
/* macro definition for BIND-LEXICAL-METHOD-FUNCTIONS */ |
/* macro definition for BIND-LEXICAL-METHOD-FUNCTIONS */ |
2575 |
|
|
2576 |
static void L38() |
static void L39() |
2577 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2578 |
register object *sup=base+VM35; VC35 |
register object *sup=base+VM35; VC35 |
2579 |
vs_check; |
vs_check; |
2580 |
check_arg(2); |
check_arg(2); |
2581 |
vs_top=sup; |
vs_top=sup; |
2582 |
{object V398=base[0]->c.c_cdr; |
{object V371=base[0]->c.c_cdr; |
2583 |
if(endp(V398))invalid_macro_call(); |
if(endp(V371))invalid_macro_call(); |
2584 |
{object V399= (V398->c.c_car); |
{object V372= (V371->c.c_car); |
2585 |
{object V400=getf(V399,VV[67],OBJNULL); |
{object V373=getf(V372,VV[70],OBJNULL); |
2586 |
if(V400==OBJNULL){ |
if(V373==OBJNULL){ |
2587 |
base[2]= Cnil;} else { |
base[2]= Cnil;} else { |
2588 |
base[2]= V400; |
base[2]= V373; |
|
}} |
|
|
{object V401=getf(V399,VV[68],OBJNULL); |
|
|
if(V401==OBJNULL){ |
|
|
base[3]= Cnil;} else { |
|
|
base[3]= V401; |
|
2589 |
}} |
}} |
2590 |
{object V402=getf(V399,VV[69],OBJNULL); |
check_other_key(V372,1,VV[70]);} |
2591 |
if(V402==OBJNULL){ |
V371=V371->c.c_cdr; |
2592 |
base[4]= Cnil;} else { |
base[3]= V371;} |
2593 |
base[4]= V402; |
base[4]= list(2,VV[78],listA(3,VV[186],list(2,list(3,VV[187],VV[188],list(3,VV[86],base[2],VV[93])),VV[189]),base[3])); |
2594 |
}} |
vs_top=(vs_base=base+4)+1; |
|
{object V403=getf(V399,VV[70],OBJNULL); |
|
|
if(V403==OBJNULL){ |
|
|
base[5]= Cnil;} else { |
|
|
base[5]= V403; |
|
|
}} |
|
|
check_other_key(V399,4,VV[67],VV[68],VV[69],VV[70]);} |
|
|
V398=V398->c.c_cdr; |
|
|
base[6]= V398;} |
|
|
if((base[2])!=Cnil){ |
|
|
goto T798;} |
|
|
if((base[3])!=Cnil){ |
|
|
goto T798;} |
|
|
if((base[4])!=Cnil){ |
|
|
goto T798;} |
|
|
if((base[5])!=Cnil){ |
|
|
goto T798;} |
|
|
base[7]= listA(3,VV[95],Cnil,base[6]); |
|
|
vs_top=(vs_base=base+7)+1; |
|
|
return; |
|
|
goto T798; |
|
|
T798:; |
|
|
if((base[4])!=Cnil){ |
|
|
goto T807;} |
|
|
if((base[5])!=Cnil){ |
|
|
goto T807;} |
|
|
base[7]= list(2,VV[76],listA(3,VV[75],VV[174],base[6])); |
|
|
vs_top=(vs_base=base+7)+1; |
|
|
return; |
|
|
goto T807; |
|
|
T807:; |
|
|
if(base[2]==Cnil){ |
|
|
V404= Cnil; |
|
|
goto T811;} |
|
|
V404= VV[176]; |
|
|
goto T811; |
|
|
T811:; |
|
|
if(base[3]==Cnil){ |
|
|
V405= Cnil; |
|
|
goto T812;} |
|
|
V405= VV[177]; |
|
|
goto T812; |
|
|
T812:; |
|
|
base[7]= list(2,VV[76],listA(3,VV[175],append(V404,V405),base[6])); |
|
|
vs_top=(vs_base=base+7)+1; |
|
2595 |
return; |
return; |
2596 |
} |
} |
2597 |
/* macro definition for BIND-ARGS */ |
/* macro definition for BIND-ARGS */ |
2598 |
|
|
2599 |
static void L39() |
static void L40() |
2600 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2601 |
register object *sup=base+VM36; VC36 |
register object *sup=base+VM36; VC36 |
2602 |
vs_check; |
vs_check; |
2603 |
check_arg(2); |
check_arg(2); |
2604 |
vs_top=sup; |
vs_top=sup; |
2605 |
{object V406=base[0]->c.c_cdr; |
{object V374=base[0]->c.c_cdr; |
2606 |
if(endp(V406))invalid_macro_call(); |
if(endp(V374))invalid_macro_call(); |
2607 |
{object V407= (V406->c.c_car); |
{object V375= (V374->c.c_car); |
2608 |
if(endp(V407))invalid_macro_call(); |
if(endp(V375))invalid_macro_call(); |
2609 |
base[2]= (V407->c.c_car); |
base[2]= (V375->c.c_car); |
2610 |
V407=V407->c.c_cdr; |
V375=V375->c.c_cdr; |
2611 |
if(endp(V407))invalid_macro_call(); |
if(endp(V375))invalid_macro_call(); |
2612 |
base[3]= (V407->c.c_car); |
base[3]= (V375->c.c_car); |
2613 |
V407=V407->c.c_cdr; |
V375=V375->c.c_cdr; |
2614 |
if(!endp(V407))invalid_macro_call();} |
if(!endp(V375))invalid_macro_call();} |
2615 |
V406=V406->c.c_cdr; |
V374=V374->c.c_cdr; |
2616 |
base[4]= V406;} |
base[4]= V374;} |
2617 |
base[5]= VV[178]; |
base[5]= VV[190]; |
2618 |
base[6]= VV[179]; |
base[6]= VV[191]; |
2619 |
base[7]= VV[180]; |
base[7]= VV[192]; |
2620 |
{object V408; |
{object V376; |
2621 |
{object V409; |
{object V377; |
2622 |
object V410= base[2]; |
object V378= base[2]; |
2623 |
if(V410==Cnil){ |
if(V378==Cnil){ |
2624 |
V408= Cnil; |
V376= Cnil; |
2625 |
goto T813;} |
goto T739;} |
2626 |
base[8]=V409=MMcons(Cnil,Cnil); |
base[8]=V377=MMcons(Cnil,Cnil); |
2627 |
goto T814; |
goto T740; |
2628 |
T814:; |
T740:; |
2629 |
base[9]= (V410->c.c_car); |
base[9]= (V378->c.c_car); |
2630 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
2631 |
L40(base); |
L41(base); |
2632 |
vs_top=sup; |
vs_top=sup; |
2633 |
(V409->c.c_cdr)= vs_base[0]; |
(V377->c.c_cdr)= vs_base[0]; |
2634 |
while(MMcdr(V409)!=Cnil)V409=MMcdr(V409); |
while(MMcdr(V377)!=Cnil)V377=MMcdr(V377); |
2635 |
if((V410=MMcdr(V410))==Cnil){ |
if((V378=MMcdr(V378))==Cnil){ |
2636 |
base[8]=base[8]->c.c_cdr; |
base[8]=base[8]->c.c_cdr; |
2637 |
V408= base[8]; |
V376= base[8]; |
2638 |
goto T813;} |
goto T739;} |
2639 |
goto T814;} |
goto T740;} |
2640 |
goto T813; |
goto T739; |
2641 |
T813:; |
T739:; |
2642 |
V411= list(2,base[5],base[3]); |
V379= list(2,base[5],base[3]); |
2643 |
V412= make_cons(/* INLINE-ARGS */V411,(V408)); |
V380= make_cons(/* INLINE-ARGS */V379,(V376)); |
2644 |
if(((V408))!=Cnil){ |
base[8]= listA(4,VV[129],/* INLINE-ARGS */V380,list(2,VV[49],list(2,VV[55],base[5])),base[4]); |
|
goto T819;} |
|
|
V414= list(2,VV[45],list(2,VV[181],base[5])); |
|
|
V413= make_cons(/* INLINE-ARGS */V414,Cnil); |
|
|
goto T817; |
|
|
goto T819; |
|
|
T819:; |
|
|
V413= Cnil; |
|
|
goto T817; |
|
|
T817:; |
|
|
V415 = base[4]; |
|
|
base[8]= listA(3,VV[124],/* INLINE-ARGS */V412,append(V413,V415)); |
|
2645 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
2646 |
return;} |
return;} |
2647 |
} |
} |
2648 |
/* local entry for function GET-KEY-ARG */ |
/* function definition for GET-KEY-ARG-TAIL */ |
2649 |
|
|
2650 |
static object LI41(V418,V419) |
static void L42() |
2651 |
|
{register object *base=vs_base; |
2652 |
register object V418;register object V419; |
register object *sup=base+VM37; VC37 |
2653 |
{ VMB37 VMS37 VMV37 |
vs_check; |
2654 |
goto TTL; |
{register object V381; |
2655 |
TTL:; |
register object V382; |
2656 |
goto T822; |
check_arg(2); |
2657 |
T822:; |
V381=(base[0]); |
2658 |
if(!(type_of((V419))!=t_cons)){ |
V382=(base[1]); |
2659 |
goto T824;} |
vs_top=sup; |
|
{object V420 = Cnil; |
|
|
VMR37(V420)} |
|
|
goto T824; |
|
|
T824:; |
|
|
if(!((CMPcar((V419)))==((V418)))){ |
|
|
goto T827;} |
|
|
{object V421 = CMPcadr((V419)); |
|
|
VMR37(V421)} |
|
|
goto T827; |
|
|
T827:; |
|
|
V419= CMPcddr((V419)); |
|
|
goto T822; |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function GET-KEY-ARG1 */ |
|
|
|
|
|
static object LI42(V424,V425) |
|
|
|
|
|
register object V424;register object V425; |
|
|
{ VMB38 VMS38 VMV38 |
|
2660 |
goto TTL; |
goto TTL; |
2661 |
TTL:; |
TTL:; |
2662 |
goto T833; |
{register object V383; |
2663 |
T833:; |
register object V384; |
2664 |
if(!(type_of((V425))!=t_cons)){ |
register object V385; |
2665 |
goto T835;} |
V383= (V382); |
2666 |
{object V426 = Cnil; |
V384= Cnil; |
2667 |
VMR38(V426)} |
V385= Cnil; |
2668 |
goto T835; |
goto T744; |
2669 |
T835:; |
T744:; |
2670 |
if(!((CMPcar((V425)))==((V424)))){ |
if(!(type_of((V383))!=t_cons)){ |
2671 |
goto T838;} |
goto T746;} |
2672 |
{object V427 = CMPcdr((V425)); |
goto T745; |
2673 |
VMR38(V427)} |
goto T746; |
2674 |
goto T838; |
T746:; |
2675 |
T838:; |
{register object V386; |
2676 |
V425= CMPcddr((V425)); |
V386= (V383); |
2677 |
goto T833; |
V384= CMPcar((V386)); |
2678 |
return Cnil; |
V386= CMPcdr((V386)); |
2679 |
|
V385= (V386);} |
2680 |
|
V383= CMPcddr((V383)); |
2681 |
|
if(((V385))!=Cnil){ |
2682 |
|
goto T757;} |
2683 |
|
base[2]= VV[8]; |
2684 |
|
base[3]= VV[202]; |
2685 |
|
base[4]= (V382); |
2686 |
|
vs_top=(vs_base=base+2)+3; |
2687 |
|
(void) (*Lnk364)(); |
2688 |
|
vs_top=sup; |
2689 |
|
goto T757; |
2690 |
|
T757:; |
2691 |
|
if(!(((V384))==((V381)))){ |
2692 |
|
goto T763;} |
2693 |
|
base[2]= (V385); |
2694 |
|
vs_top=(vs_base=base+2)+1; |
2695 |
|
return; |
2696 |
|
goto T763; |
2697 |
|
T763:; |
2698 |
|
goto T744; |
2699 |
|
goto T745; |
2700 |
|
T745:; |
2701 |
|
base[2]= Cnil; |
2702 |
|
vs_top=(vs_base=base+2)+1; |
2703 |
|
return;} |
2704 |
|
} |
2705 |
} |
} |
2706 |
/* function definition for WALK-METHOD-LAMBDA */ |
/* function definition for WALK-METHOD-LAMBDA */ |
2707 |
|
|
2708 |
static void L43() |
static void L43() |
2709 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2710 |
register object *sup=base+VM39; VC39 |
register object *sup=base+VM38; VC38 |
2711 |
vs_check; |
vs_check; |
2712 |
{object V428; |
{object V387; |
2713 |
object V429; |
object V388; |
2714 |
check_arg(5); |
check_arg(5); |
2715 |
V428=(base[0]); |
V387=(base[0]); |
2716 |
base[1]=MMcons(base[1],Cnil); |
base[1]=MMcons(base[1],Cnil); |
2717 |
V429=(base[2]); |
V388=(base[2]); |
2718 |
base[3]=MMcons(base[3],base[1]); |
base[3]=MMcons(base[3],base[1]); |
2719 |
base[4]=MMcons(base[4],base[3]); |
base[4]=MMcons(base[4],base[3]); |
2720 |
vs_top=sup; |
vs_top=sup; |
2721 |
base[5]=MMcons(Cnil,base[4]); |
base[5]=make_cclosure_new(LC44,Cnil,base[4],Cdata); |
2722 |
base[6]=MMcons(Cnil,base[5]); |
base[5]=MMcons(base[5],base[4]); |
2723 |
base[7]=MMcons(Cnil,base[6]); |
base[6]= (V387); |
2724 |
base[8]=make_cclosure_new(LC44,Cnil,base[7],Cdata); |
base[7]= (V388); |
2725 |
base[8]=MMcons(base[8],base[7]); |
base[8]= (base[5]->c.c_car); |
2726 |
{object V430; |
vs_top=(vs_base=base+6)+3; |
2727 |
base[9]= (V428); |
(void) (*Lnk410)(); |
2728 |
base[10]= (V429); |
return; |
|
base[11]= (base[8]->c.c_car); |
|
|
vs_top=(vs_base=base+9)+3; |
|
|
(void) (*Lnk396)(); |
|
|
vs_top=sup; |
|
|
V430= vs_base[0]; |
|
|
base[9]= (V430); |
|
|
base[10]= (base[5]->c.c_car); |
|
|
base[11]= (base[6]->c.c_car); |
|
|
base[12]= (base[7]->c.c_car); |
|
|
vs_top=(vs_base=base+9)+4; |
|
|
return;} |
|
2729 |
} |
} |
2730 |
} |
} |
2731 |
/* function definition for GENERIC-FUNCTION-NAME-P */ |
/* function definition for GENERIC-FUNCTION-NAME-P */ |
2732 |
|
|
2733 |
static void L45() |
static void L45() |
2734 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2735 |
register object *sup=base+VM40; VC40 |
register object *sup=base+VM39; VC39 |
2736 |
vs_check; |
vs_check; |
2737 |
{register object V431; |
{register object V389; |
2738 |
check_arg(1); |
check_arg(1); |
2739 |
V431=(base[0]); |
V389=(base[0]); |
2740 |
vs_top=sup; |
vs_top=sup; |
2741 |
goto TTL; |
goto TTL; |
2742 |
TTL:; |
TTL:; |
2743 |
if(!(type_of((V431))==t_symbol)){ |
if(!(type_of((V389))==t_symbol)){ |
2744 |
goto T853;} |
goto T771;} |
2745 |
goto T851; |
goto T769; |
2746 |
goto T853; |
goto T771; |
2747 |
T853:; |
T771:; |
2748 |
if(type_of((V431))==t_cons){ |
if(type_of((V389))==t_cons){ |
2749 |
goto T855;} |
goto T773;} |
2750 |
goto T852; |
goto T770; |
2751 |
goto T855; |
goto T773; |
2752 |
T855:; |
T773:; |
2753 |
if((CMPcar((V431)))==(VV[30])){ |
if((CMPcar((V389)))==(VV[34])){ |
2754 |
goto T857;} |
goto T775;} |
2755 |
goto T852; |
goto T770; |
2756 |
goto T857; |
goto T775; |
2757 |
T857:; |
T775:; |
2758 |
if(type_of(CMPcdr((V431)))==t_cons){ |
if(type_of(CMPcdr((V389)))==t_cons){ |
2759 |
goto T859;} |
goto T777;} |
2760 |
goto T852; |
goto T770; |
2761 |
goto T859; |
goto T777; |
2762 |
T859:; |
T777:; |
2763 |
if(type_of(CMPcadr((V431)))==t_symbol){ |
if(type_of(CMPcadr((V389)))==t_symbol){ |
2764 |
goto T861;} |
goto T779;} |
2765 |
goto T852; |
goto T770; |
2766 |
goto T861; |
goto T779; |
2767 |
T861:; |
T779:; |
2768 |
if((CMPcddr((V431)))==Cnil){ |
if((CMPcddr((V389)))==Cnil){ |
2769 |
goto T851;} |
goto T769;} |
2770 |
goto T852; |
goto T770; |
2771 |
T852:; |
T770:; |
2772 |
base[1]= Cnil; |
base[1]= Cnil; |
2773 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2774 |
return; |
return; |
2775 |
goto T851; |
goto T769; |
2776 |
T851:; |
T769:; |
2777 |
if(((*(LnkLI356))((V431)))!=Cnil){ |
if(((*(LnkLI371))((V389)))!=Cnil){ |
2778 |
goto T863;} |
goto T781;} |
2779 |
base[1]= Cnil; |
base[1]= Cnil; |
2780 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2781 |
return; |
return; |
2782 |
goto T863; |
goto T781; |
2783 |
T863:; |
T781:; |
2784 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
2785 |
goto T866;} |
goto T784;} |
2786 |
base[1]= (*(LnkLI347))((V431)); |
base[1]= (*(LnkLI362))((V389)); |
2787 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2788 |
(void) (*Lnk397)(Lclptr397); |
(void) (*Lnk411)(Lclptr411); |
2789 |
return; |
return; |
2790 |
goto T866; |
goto T784; |
2791 |
T866:;{object V432; |
T784:;{object V390; |
2792 |
V432= (VV[146]->s.s_dbind); |
V390= (VV[151]->s.s_dbind); |
2793 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
2794 |
base[2]= (*(LnkLI347))((V431)); |
base[2]= (*(LnkLI362))((V389)); |
2795 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
2796 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
2797 |
vs_top=sup; |
vs_top=sup; |
2798 |
V433= vs_base[0]; |
V391= vs_base[0]; |
2799 |
base[1]= ((V432)==(CMPcar(V433))?Ct:Cnil); |
base[1]= ((V390)==(CMPcar(V391))?Ct:Cnil); |
2800 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
2801 |
return;} |
return;} |
2802 |
} |
} |
2803 |
} |
} |
|
/* local entry for function MAKE-PARAMETER-REFERENCES */ |
|
|
|
|
|
static object LI48(V439,V440,V441,V442,V443) |
|
|
|
|
|
object V439;object V440;object V441;object V442;object V443; |
|
|
{ VMB41 VMS41 VMV41 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
base[0]= (V441); |
|
|
{object V444; |
|
|
register object V445; |
|
|
V444= Cnil; |
|
|
V445= Cnil; |
|
|
{register object V446; |
|
|
register object V447; |
|
|
register object V448; |
|
|
object V449; |
|
|
V446= (V439); |
|
|
V447= Cnil; |
|
|
V448= (V440); |
|
|
V449= Cnil; |
|
|
goto T880; |
|
|
T880:; |
|
|
{object V450; |
|
|
if(!(((V446))==Cnil)){ |
|
|
goto T886;} |
|
|
goto T874; |
|
|
goto T886; |
|
|
T886:; |
|
|
V450= CMPcar((V446)); |
|
|
V446= CMPcdr((V446)); |
|
|
V447= (V450);} |
|
|
{object V451; |
|
|
if(!(((V448))==Cnil)){ |
|
|
goto T894;} |
|
|
goto T874; |
|
|
goto T894; |
|
|
T894:; |
|
|
V451= CMPcar((V448)); |
|
|
V448= CMPcdr((V448)); |
|
|
V449= (V451);} |
|
|
{object V452; |
|
|
V452= (((type_of((V447))==t_cons||((V447))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
|
|
if(((V452))==Cnil){ |
|
|
goto T901;} |
|
|
goto T881; |
|
|
goto T901; |
|
|
T901:; |
|
|
base[1]= CMPcar((V447)); |
|
|
vs_top=(vs_base=base+1)+1; |
|
|
L49(base); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T904;} |
|
|
base[1]= VV[200]; |
|
|
base[2]= (V442); |
|
|
base[3]= (V443); |
|
|
base[4]= CMPcar((V447)); |
|
|
vs_top=(vs_base=base+1)+4; |
|
|
(void) (*Lnk398)(); |
|
|
vs_top=sup; |
|
|
goto T881; |
|
|
goto T904; |
|
|
T904:; |
|
|
{object V453; |
|
|
V453= CMPcar((V447)); |
|
|
if(((V444))!=Cnil){ |
|
|
goto T913;} |
|
|
V445= make_cons((V453),Cnil); |
|
|
V444= (V445); |
|
|
goto T881; |
|
|
goto T913; |
|
|
T913:; |
|
|
V455= make_cons((V453),Cnil); |
|
|
((V445))->c.c_cdr = /* INLINE-ARGS */V455; |
|
|
V454= (V445); |
|
|
V445= CMPcdr(V454);}} |
|
|
goto T881; |
|
|
T881:; |
|
|
goto T880;} |
|
|
goto T874; |
|
|
T874:; |
|
|
{object V456 = (V444); |
|
|
VMR41(V456)}} |
|
|
base[0]=base[0]; |
|
|
return Cnil; |
|
|
} |
|
2804 |
/* local entry for function METHOD-FUNCTION-PLIST */ |
/* local entry for function METHOD-FUNCTION-PLIST */ |
2805 |
|
|
2806 |
static object LI50(V458) |
static object LI46(V393) |
2807 |
|
|
2808 |
register object V458; |
register object V393; |
2809 |
{ VMB42 VMS42 VMV42 |
{ VMB40 VMS40 VMV40 |
2810 |
goto TTL; |
goto TTL; |
2811 |
TTL:; |
TTL:; |
2812 |
if(((V458))==((VV[201]->s.s_dbind))){ |
if(((V393))==((VV[211]->s.s_dbind))){ |
2813 |
goto T920;} |
goto T790;} |
2814 |
{object V459; |
{object V394; |
2815 |
object V460; |
object V395; |
2816 |
V459= (VV[202]->s.s_dbind); |
V394= (VV[212]->s.s_dbind); |
2817 |
V460= (VV[201]->s.s_dbind); |
V395= (VV[211]->s.s_dbind); |
2818 |
(VV[201]->s.s_dbind)= (V459); |
(VV[211]->s.s_dbind)= (V394); |
2819 |
(VV[202]->s.s_dbind)= (V460);} |
(VV[212]->s.s_dbind)= (V395);} |
2820 |
{object V461; |
{object V396; |
2821 |
object V462; |
object V397; |
2822 |
V461= (VV[203]->s.s_dbind); |
V396= (VV[213]->s.s_dbind); |
2823 |
V462= (VV[204]->s.s_dbind); |
V397= (VV[214]->s.s_dbind); |
2824 |
(VV[204]->s.s_dbind)= (V461); |
(VV[214]->s.s_dbind)= (V396); |
2825 |
(VV[203]->s.s_dbind)= (V462);} |
(VV[213]->s.s_dbind)= (V397);} |
2826 |
{object V463; |
{object V398; |
2827 |
object V464; |
object V399; |
2828 |
V463= (VV[205]->s.s_dbind); |
V398= (VV[215]->s.s_dbind); |
2829 |
V464= (VV[206]->s.s_dbind); |
V399= (VV[216]->s.s_dbind); |
2830 |
(VV[206]->s.s_dbind)= (V463); |
(VV[216]->s.s_dbind)= (V398); |
2831 |
(VV[205]->s.s_dbind)= (V464);} |
(VV[215]->s.s_dbind)= (V399);} |
2832 |
goto T920; |
goto T790; |
2833 |
T920:; |
T790:; |
2834 |
if(((V458))==((VV[201]->s.s_dbind))){ |
if(((V393))==((VV[211]->s.s_dbind))){ |
2835 |
goto T943;} |
goto T813;} |
2836 |
if(((VV[206]->s.s_dbind))==Cnil){ |
if(((VV[216]->s.s_dbind))==Cnil){ |
2837 |
goto T943;} |
goto T813;} |
2838 |
{object V465; |
{object V400; |
2839 |
object V466; |
object V401; |
2840 |
object V467; |
object V402; |
2841 |
V465= (VV[201]->s.s_dbind); |
V400= (VV[211]->s.s_dbind); |
2842 |
V466= (VV[207]->s.s_dbind); |
V401= (VV[217]->s.s_dbind); |
2843 |
V467= (VV[204]->s.s_dbind); |
V402= (VV[214]->s.s_dbind); |
2844 |
base[0]= (V465); |
base[0]= (V400); |
2845 |
base[1]= (V466); |
base[1]= (V401); |
2846 |
base[2]= (V467); |
base[2]= (V402); |
2847 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2848 |
siLhash_set(); |
siLhash_set(); |
2849 |
vs_top=sup;} |
vs_top=sup;} |
2850 |
goto T943; |
goto T813; |
2851 |
T943:; |
T813:; |
2852 |
if(((V458))==((VV[201]->s.s_dbind))){ |
if(((V393))==((VV[211]->s.s_dbind))){ |
2853 |
goto T954;} |
goto T824;} |
2854 |
(VV[201]->s.s_dbind)= (V458); |
(VV[211]->s.s_dbind)= (V393); |
2855 |
(VV[206]->s.s_dbind)= Cnil; |
(VV[216]->s.s_dbind)= Cnil; |
2856 |
base[0]= (V458); |
base[0]= (V393); |
2857 |
base[1]= (VV[207]->s.s_dbind); |
base[1]= (VV[217]->s.s_dbind); |
2858 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
2859 |
Lgethash(); |
Lgethash(); |
2860 |
vs_top=sup; |
vs_top=sup; |
2861 |
(VV[204]->s.s_dbind)= vs_base[0]; |
(VV[214]->s.s_dbind)= vs_base[0]; |
2862 |
goto T954; |
goto T824; |
2863 |
T954:; |
T824:; |
2864 |
{object V468 = (VV[204]->s.s_dbind); |
{object V403 = (VV[214]->s.s_dbind); |
2865 |
VMR42(V468)} |
VMR40(V403)} |
2866 |
base[0]=base[0]; |
base[0]=base[0]; |
2867 |
return Cnil; |
return Cnil; |
2868 |
} |
} |
2869 |
/* function definition for G3994 */ |
/* function definition for G4122 */ |
2870 |
|
|
2871 |
static void L51() |
static void L47() |
2872 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2873 |
register object *sup=base+VM43; VC43 |
register object *sup=base+VM41; VC41 |
2874 |
vs_check; |
vs_check; |
2875 |
{object V469; |
{object V404; |
2876 |
object V470; |
object V405; |
2877 |
check_arg(2); |
check_arg(2); |
2878 |
V469=(base[0]); |
V404=(base[0]); |
2879 |
V470=(base[1]); |
V405=(base[1]); |
2880 |
vs_top=sup; |
vs_top=sup; |
2881 |
goto TTL; |
goto TTL; |
2882 |
TTL:; |
TTL:; |
2883 |
if(((V470))==((VV[201]->s.s_dbind))){ |
if(((V405))==((VV[211]->s.s_dbind))){ |
2884 |
goto T964;} |
goto T834;} |
2885 |
{object V471; |
{object V406; |
2886 |
object V472; |
object V407; |
2887 |
V471= (VV[202]->s.s_dbind); |
V406= (VV[212]->s.s_dbind); |
2888 |
V472= (VV[201]->s.s_dbind); |
V407= (VV[211]->s.s_dbind); |
2889 |
(VV[201]->s.s_dbind)= (V471); |
(VV[211]->s.s_dbind)= (V406); |
2890 |
(VV[202]->s.s_dbind)= (V472);} |
(VV[212]->s.s_dbind)= (V407);} |
2891 |
{object V473; |
{object V408; |
2892 |
object V474; |
object V409; |
2893 |
V473= (VV[205]->s.s_dbind); |
V408= (VV[215]->s.s_dbind); |
2894 |
V474= (VV[206]->s.s_dbind); |
V409= (VV[216]->s.s_dbind); |
2895 |
(VV[206]->s.s_dbind)= (V473); |
(VV[216]->s.s_dbind)= (V408); |
2896 |
(VV[205]->s.s_dbind)= (V474);} |
(VV[215]->s.s_dbind)= (V409);} |
2897 |
{object V475; |
{object V410; |
2898 |
object V476; |
object V411; |
2899 |
V475= (VV[203]->s.s_dbind); |
V410= (VV[213]->s.s_dbind); |
2900 |
V476= (VV[204]->s.s_dbind); |
V411= (VV[214]->s.s_dbind); |
2901 |
(VV[204]->s.s_dbind)= (V475); |
(VV[214]->s.s_dbind)= (V410); |
2902 |
(VV[203]->s.s_dbind)= (V476);} |
(VV[213]->s.s_dbind)= (V411);} |
2903 |
goto T964; |
goto T834; |
2904 |
T964:; |
T834:; |
2905 |
if(((V470))==((VV[201]->s.s_dbind))){ |
if(((V405))==((VV[211]->s.s_dbind))){ |
2906 |
goto T987;} |
goto T857;} |
2907 |
if(((VV[206]->s.s_dbind))==Cnil){ |
if(((VV[216]->s.s_dbind))==Cnil){ |
2908 |
goto T987;} |
goto T857;} |
2909 |
{object V477; |
{object V412; |
2910 |
object V478; |
object V413; |
2911 |
object V479; |
object V414; |
2912 |
V477= (VV[201]->s.s_dbind); |
V412= (VV[211]->s.s_dbind); |
2913 |
V478= (VV[207]->s.s_dbind); |
V413= (VV[217]->s.s_dbind); |
2914 |
V479= (VV[204]->s.s_dbind); |
V414= (VV[214]->s.s_dbind); |
2915 |
base[2]= (V477); |
base[2]= (V412); |
2916 |
base[3]= (V478); |
base[3]= (V413); |
2917 |
base[4]= (V479); |
base[4]= (V414); |
2918 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
2919 |
siLhash_set(); |
siLhash_set(); |
2920 |
vs_top=sup;} |
vs_top=sup;} |
2921 |
goto T987; |
goto T857; |
2922 |
T987:; |
T857:; |
2923 |
(VV[201]->s.s_dbind)= (V470); |
(VV[211]->s.s_dbind)= (V405); |
2924 |
(VV[206]->s.s_dbind)= Ct; |
(VV[216]->s.s_dbind)= Ct; |
2925 |
(VV[204]->s.s_dbind)= (V469); |
(VV[214]->s.s_dbind)= (V404); |
2926 |
base[2]= (VV[204]->s.s_dbind); |
base[2]= (VV[214]->s.s_dbind); |
2927 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
2928 |
return; |
return; |
2929 |
} |
} |
2930 |
} |
} |
2931 |
/* local entry for function METHOD-FUNCTION-GET */ |
/* local entry for function METHOD-FUNCTION-GET */ |
2932 |
|
|
2933 |
static object LI52(object V481,object V480,object first,...) |
static object LI48(object V416,object V415,object first,...) |
2934 |
{ |
{ |
2935 |
va_list ap; |
va_list ap; |
2936 |
int narg = VFUN_NARGS; VMB44 VMS44 VMV44 |
int narg = VFUN_NARGS; VMB42 VMS42 VMV42 |
2937 |
{object V482; |
{object V417; |
2938 |
object V483; |
object V418; |
2939 |
object V484; |
object V419; |
2940 |
va_start(ap,first); |
va_start(ap,first); |
2941 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
2942 |
V482= V481; |
V417= V416; |
2943 |
V483= V480; |
V418= V415; |
2944 |
narg = narg - 2; |
narg = narg - 2; |
2945 |
if (narg <= 0) goto T1003; |
if (narg <= 0) goto T873; |
2946 |
else { |
else { |
2947 |
V484= first;} |
V419= first;} |
2948 |
--narg; goto T1004; |
--narg; goto T874; |
2949 |
goto T1003; |
goto T873; |
2950 |
T1003:; |
T873:; |
2951 |
V484= Cnil; |
V419= Cnil; |
2952 |
goto T1004; |
goto T874; |
2953 |
T1004:; |
T874:; |
2954 |
base[0]= (*(LnkLI399))((V482)); |
base[0]= (*(LnkLI412))((V417)); |
2955 |
base[1]= (V483); |
base[1]= (V418); |
2956 |
base[2]= (V484); |
base[2]= (V419); |
2957 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
2958 |
Lgetf(); |
Lgetf(); |
2959 |
vs_top=sup; |
vs_top=sup; |
2960 |
{object V485 = vs_base[0]; |
{object V420 = vs_base[0]; |
2961 |
VMR44(V485)} |
VMR42(V420)} |
2962 |
va_end(ap); |
va_end(ap); |
2963 |
base[0]=base[0]; |
base[0]=base[0]; |
2964 |
return Cnil;} |
return Cnil;} |
2965 |
} |
} |
2966 |
/* function definition for G4004 */ |
/* function definition for G4132 */ |
2967 |
|
|
2968 |
static void L53() |
static void L49() |
2969 |
{register object *base=vs_base; |
{register object *base=vs_base; |
2970 |
register object *sup=base+VM45; VC45 |
register object *sup=base+VM43; VC43 |
2971 |
vs_check; |
vs_check; |
2972 |
{object V486; |
{object V421; |
2973 |
object V487; |
object V422; |
2974 |
object V488; |
object V423; |
2975 |
check_arg(3); |
check_arg(3); |
2976 |
V486=(base[0]); |
V421=(base[0]); |
2977 |
V487=(base[1]); |
V422=(base[1]); |
2978 |
V488=(base[2]); |
V423=(base[2]); |
2979 |
vs_top=sup; |
vs_top=sup; |
2980 |
goto TTL; |
goto TTL; |
2981 |
TTL:; |
TTL:; |
2982 |
{object V492; |
{object V427; |
2983 |
base[3]= (*(LnkLI399))(V487); |
base[3]= (*(LnkLI412))(V422); |
2984 |
base[4]= V486; |
base[4]= V421; |
2985 |
base[5]= V488; |
base[5]= V423; |
2986 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
2987 |
siLput_f(); |
siLput_f(); |
2988 |
vs_top=sup; |
vs_top=sup; |
2989 |
V492= vs_base[0]; |
V427= vs_base[0]; |
2990 |
V493= ({object _tmp=get(VV[399],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[399])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[399])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V428= ({object _tmp=get(VV[412],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[412])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[412])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V494 = (V492); |
|
|
V495 = V487; |
|
2991 |
(void)(( |
(void)(( |
2992 |
V496 = V493, |
V429 = V428, |
2993 |
(type_of(V496) == t_sfun ?(*((V496)->sfn.sfn_self)): |
(type_of(V429) == t_sfun ?(*((V429)->sfn.sfn_self)): |
2994 |
(fcall.argd=2,type_of(V496)==t_vfun) ? |
(fcall.argd=2,type_of(V429)==t_vfun) ? |
2995 |
(*((V496)->sfn.sfn_self)): |
(*((V429)->sfn.sfn_self)): |
2996 |
(fcall.fun=(V496),fcalln))(V494,V495))); |
(fcall.fun=(V429),fcalln))((V427),V422))); |
2997 |
base[3]= V486; |
base[3]= V421; |
2998 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
2999 |
return;} |
return;} |
3000 |
} |
} |
3001 |
} |
} |
3002 |
/* local entry for function METHOD-FUNCTION-PV-TABLE */ |
/* local entry for function METHOD-FUNCTION-PV-TABLE */ |
3003 |
|
|
3004 |
static object LI54(V498) |
static object LI50(V431) |
3005 |
|
|
3006 |
object V498; |
object V431; |
3007 |
{ VMB46 VMS46 VMV46 |
{ VMB44 VMS44 VMV44 |
3008 |
goto TTL; |
goto TTL; |
3009 |
TTL:; |
TTL:; |
3010 |
{object V499 = (VFUN_NARGS=2,(*(LnkLI210))((V498),VV[208])); |
{object V432 = (VFUN_NARGS=2,(*(LnkLI220))((V431),VV[218])); |
3011 |
VMR46(V499)} |
VMR44(V432)} |
3012 |
return Cnil; |
return Cnil; |
3013 |
} |
} |
3014 |
/* local entry for function METHOD-FUNCTION-METHOD */ |
/* local entry for function METHOD-FUNCTION-METHOD */ |
3015 |
|
|
3016 |
static object LI55(V501) |
static object LI51(V434) |
|
|
|
|
object V501; |
|
|
{ VMB47 VMS47 VMV47 |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{object V502 = (VFUN_NARGS=2,(*(LnkLI210))((V501),VV[209])); |
|
|
VMR47(V502)} |
|
|
return Cnil; |
|
|
} |
|
|
/* local entry for function METHOD-FUNCTION-NEEDS-NEXT-METHODS-P */ |
|
|
|
|
|
static object LI56(V504) |
|
3017 |
|
|
3018 |
object V504; |
object V434; |
3019 |
{ VMB48 VMS48 VMV48 |
{ VMB45 VMS45 VMV45 |
3020 |
goto TTL; |
goto TTL; |
3021 |
TTL:; |
TTL:; |
3022 |
{object V505 = (VFUN_NARGS=3,(*(LnkLI210))((V504),VV[56],Ct)); |
{object V435 = (VFUN_NARGS=2,(*(LnkLI220))((V434),VV[219])); |
3023 |
VMR48(V505)} |
VMR45(V435)} |
3024 |
return Cnil; |
return Cnil; |
3025 |
} |
} |
3026 |
/* macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR */ |
/* macro definition for METHOD-FUNCTION-CLOSURE-GENERATOR */ |
3027 |
|
|
3028 |
static void L57() |
static void L52() |
3029 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3030 |
register object *sup=base+VM49; VC49 |
register object *sup=base+VM46; VC46 |
3031 |
vs_check; |
vs_check; |
3032 |
check_arg(2); |
check_arg(2); |
3033 |
vs_top=sup; |
vs_top=sup; |
3034 |
{object V506=base[0]->c.c_cdr; |
{object V436=base[0]->c.c_cdr; |
3035 |
if(endp(V506))invalid_macro_call(); |
if(endp(V436))invalid_macro_call(); |
3036 |
base[2]= (V506->c.c_car); |
base[2]= (V436->c.c_car); |
3037 |
V506=V506->c.c_cdr; |
V436=V436->c.c_cdr; |
3038 |
if(!endp(V506))invalid_macro_call();} |
if(!endp(V436))invalid_macro_call();} |
3039 |
base[3]= list(3,VV[210],base[2],VV[211]); |
base[3]= list(3,VV[220],base[2],VV[221]); |
3040 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3041 |
return; |
return; |
3042 |
} |
} |
3043 |
/* local entry for function LOAD-DEFMETHOD */ |
/* local entry for function LOAD-DEFMETHOD */ |
3044 |
|
|
3045 |
static object LI58(object V512,object V511,object V510,object V509,object V508,object V507,object first,...) |
static object LI53(object V442,object V441,object V440,object V439,object V438,object V437,object first,...) |
3046 |
{ |
{ |
3047 |
va_list ap; |
va_list ap; |
3048 |
int narg = VFUN_NARGS; VMB50 VMS50 VMV50 |
int narg = VFUN_NARGS; VMB47 VMS47 VMV47 |
3049 |
{object V513; |
{object V443; |
3050 |
register object V514; |
object V444; |
3051 |
object V515; |
object V445; |
3052 |
object V516; |
object V446; |
3053 |
object V517; |
object V447; |
3054 |
register object V518; |
register object V448; |
3055 |
object V519; |
object V449; |
3056 |
va_start(ap,first); |
va_start(ap,first); |
3057 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
3058 |
V513= V512; |
V443= V442; |
3059 |
V514= V511; |
V444= V441; |
3060 |
V515= V510; |
V445= V440; |
3061 |
V516= V509; |
V446= V439; |
3062 |
V517= V508; |
V447= V438; |
3063 |
V518= V507; |
V448= V437; |
3064 |
narg = narg - 6; |
narg = narg - 6; |
3065 |
if (narg <= 0) goto T1015; |
if (narg <= 0) goto T885; |
3066 |
else { |
else { |
3067 |
V519= first;} |
V449= first;} |
3068 |
--narg; goto T1016; |
--narg; goto T886; |
3069 |
goto T1015; |
goto T885; |
3070 |
T1015:; |
T885:; |
3071 |
V519= Cnil; |
V449= Cnil; |
3072 |
goto T1016; |
goto T886; |
3073 |
T1016:; |
T886:; |
3074 |
if(!(type_of((V514))==t_cons||((V514))==Cnil)){ |
base[0]= (V448); |
|
goto T1018;} |
|
|
(void)((*(LnkLI349))(CMPcadr((V514)))); |
|
|
goto T1018; |
|
|
T1018:; |
|
|
base[0]= (V518); |
|
3075 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3076 |
Lcopy_tree(); |
Lcopy_tree(); |
3077 |
vs_top=sup; |
vs_top=sup; |
3078 |
V518= vs_base[0]; |
V448= vs_base[0]; |
3079 |
{object V520;{object V521; |
{object V450;{object V451; |
3080 |
base[0]= (V518); |
base[0]= (V448); |
3081 |
base[1]= VV[212]; |
base[1]= VV[222]; |
3082 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3083 |
Lgetf(); |
Lgetf(); |
3084 |
vs_top=sup; |
vs_top=sup; |
3085 |
V521= vs_base[0]; |
V451= vs_base[0]; |
3086 |
if(V521==Cnil)goto T1025; |
if(V451==Cnil)goto T892; |
3087 |
V520= V521; |
V450= V451; |
3088 |
goto T1024; |
goto T891; |
3089 |
goto T1025; |
goto T892; |
3090 |
T1025:;} |
T892:;} |
3091 |
V520= (*(LnkLI400))((V514),(V515),(V516)); |
V450= (*(LnkLI413))((V444),(V445),(V446)); |
3092 |
goto T1024; |
goto T891; |
3093 |
T1024:; |
T891:; |
3094 |
{object V524; |
{object V454; |
3095 |
base[0]= (V518); |
base[0]= (V448); |
3096 |
base[1]= V520; |
base[1]= V450; |
3097 |
base[2]= VV[212]; |
base[2]= VV[222]; |
3098 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3099 |
siLput_f(); |
siLput_f(); |
3100 |
vs_top=sup; |
vs_top=sup; |
3101 |
V524= vs_base[0]; |
V454= vs_base[0]; |
3102 |
V518= (V524);} |
V448= (V454);} |
3103 |
(void)((VFUN_NARGS=2,(*(LnkLI401))(VV[36],(V520)))); |
{object V455 = (*(LnkLI414))((V443),(V444),(V445),(V446),(V447),(V448),(V449)); |
3104 |
{object V525 = (*(LnkLI402))((V513),(V514),(V515),(V516),(V517),(V518),(V519)); |
VMR47(V455)}} |
|
VMR50(V525)}} |
|
3105 |
va_end(ap); |
va_end(ap); |
3106 |
base[0]=base[0]; |
base[0]=base[0]; |
3107 |
return Cnil;} |
return Cnil;} |
3108 |
} |
} |
3109 |
/* local entry for function LOAD-DEFMETHOD-INTERNAL */ |
/* local entry for function LOAD-DEFMETHOD-INTERNAL */ |
3110 |
|
|
3111 |
static object LI59(V533,V534,V535,V536,V537,V538,V539) |
static object LI54(V463,V464,V465,V466,V467,V468,V469) |
3112 |
|
|
3113 |
object V533;register object V534;object V535;object V536;object V537;register object V538;object V539; |
object V463;object V464;object V465;object V466;object V467;register object V468;object V469; |
3114 |
{ VMB51 VMS51 VMV51 |
{ VMB48 VMS48 VMV48 |
3115 |
goto TTL; |
goto TTL; |
3116 |
TTL:; |
TTL:; |
3117 |
if(!(type_of((V534))==t_cons||((V534))==Cnil)){ |
if(((V469))==Cnil){ |
3118 |
goto T1037;} |
goto T903;} |
3119 |
(void)((*(LnkLI349))(CMPcadr((V534)))); |
{object V473; |
3120 |
goto T1037; |
base[1]= (V468); |
3121 |
T1037:; |
base[2]= VV[32]; |
|
if(((V539))==Cnil){ |
|
|
goto T1040;} |
|
|
{object V543; |
|
|
base[1]= (V538); |
|
|
base[2]= VV[28]; |
|
3122 |
base[3]= Cnil; |
base[3]= Cnil; |
3123 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
3124 |
Lgetf(); |
Lgetf(); |
3125 |
vs_top=sup; |
vs_top=sup; |
3126 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3127 |
base[1]= V539; |
base[1]= V469; |
3128 |
base[2]= VV[29]; |
base[2]= VV[33]; |
3129 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3130 |
siLput_f(); |
siLput_f(); |
3131 |
vs_top=sup; |
vs_top=sup; |
3132 |
V543= vs_base[0]; |
V473= vs_base[0]; |
3133 |
{object V544; |
{object V474; |
3134 |
base[0]= (V538); |
base[0]= (V468); |
3135 |
base[1]= (V543); |
base[1]= (V473); |
3136 |
base[2]= VV[28]; |
base[2]= VV[32]; |
3137 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
3138 |
siLput_f(); |
siLput_f(); |
3139 |
vs_top=sup; |
vs_top=sup; |
3140 |
V544= vs_base[0]; |
V474= vs_base[0]; |
3141 |
V538= (V544);}} |
V468= (V474);}} |
3142 |
goto T1040; |
goto T903; |
3143 |
T1040:; |
T903:; |
3144 |
{object V545; |
{object V475; |
3145 |
base[0]=VV[403]->s.s_gfdef; |
base[0]=VV[415]->s.s_gfdef; |
3146 |
base[1]= (V534); |
base[1]= (V464); |
3147 |
base[2]= (V535); |
base[2]= (V465); |
3148 |
base[3]= (V536); |
base[3]= (V466); |
3149 |
base[4]= (V537); |
base[4]= (V467); |
3150 |
base[5]= VV[16]; |
base[5]= VV[20]; |
3151 |
V547= make_cons((V536),Cnil); |
V477= make_cons((V466),Cnil); |
3152 |
V548= listA(3,VV[7],(V534),append((V535),/* INLINE-ARGS */V547)); |
V478= listA(3,VV[7],(V464),append((V465),/* INLINE-ARGS */V477)); |
3153 |
vs_base=vs_top; |
vs_base=vs_top; |
3154 |
(void) (*Lnk351)(); |
(void) (*Lnk366)(); |
3155 |
vs_top=sup; |
vs_top=sup; |
3156 |
V549= vs_base[0]; |
V479= vs_base[0]; |
3157 |
base[6]= list(2,/* INLINE-ARGS */V548,V549); |
base[6]= list(2,/* INLINE-ARGS */V478,V479); |
3158 |
{object V546; |
{object V476; |
3159 |
V546= (V538); |
V476= (V468); |
3160 |
vs_top=base+7; |
vs_top=base+7; |
3161 |
while(V546!=Cnil) |
while(V476!=Cnil) |
3162 |
{vs_push((V546)->c.c_car);V546=(V546)->c.c_cdr;} |
{vs_push((V476)->c.c_car);V476=(V476)->c.c_cdr;} |
3163 |
vs_base=base+1;} |
vs_base=base+1;} |
3164 |
funcall(base[0]); |
funcall(base[0]); |
3165 |
vs_top=sup; |
vs_top=sup; |
3166 |
V545= vs_base[0]; |
V475= vs_base[0]; |
3167 |
if(((V533))==(VV[20])){ |
if(((V463))==(VV[24])){ |
3168 |
goto T1066;} |
goto T929;} |
3169 |
V550= (VFUN_NARGS=2,(*(LnkLI291))((V533),Cnil)); |
V480= (VFUN_NARGS=2,(*(LnkLI304))((V463),Cnil)); |
3170 |
V551= (*(LnkLI363))((V545)); |
V481= (*(LnkLI378))((V475)); |
3171 |
if((/* INLINE-ARGS */V550)==(/* INLINE-ARGS */V551)){ |
if((/* INLINE-ARGS */V480)==(/* INLINE-ARGS */V481)){ |
3172 |
goto T1066;} |
goto T929;} |
3173 |
base[0]= (VV[213]->s.s_dbind); |
base[0]= (VV[223]->s.s_dbind); |
3174 |
base[1]= VV[214]; |
base[1]= VV[224]; |
3175 |
base[2]= (V535); |
base[2]= (V465); |
3176 |
base[3]= (V536); |
base[3]= (V466); |
3177 |
base[4]= (V534); |
base[4]= (V464); |
3178 |
base[5]= (V533); |
base[5]= (V463); |
3179 |
base[7]= (*(LnkLI363))((V545)); |
base[7]= (*(LnkLI378))((V475)); |
3180 |
vs_top=(vs_base=base+7)+1; |
vs_top=(vs_base=base+7)+1; |
3181 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk379)(Lclptr379); |
3182 |
vs_top=sup; |
vs_top=sup; |
3183 |
base[6]= vs_base[0]; |
base[6]= vs_base[0]; |
3184 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
3185 |
Lformat(); |
Lformat(); |
3186 |
vs_top=sup; |
vs_top=sup; |
3187 |
goto T1066; |
goto T929; |
3188 |
T1066:; |
T929:; |
3189 |
{object V552 = (V545); |
{object V482 = (V475); |
3190 |
VMR51(V552)}} |
VMR48(V482)}} |
3191 |
base[0]=base[0]; |
base[0]=base[0]; |
3192 |
return Cnil; |
return Cnil; |
3193 |
} |
} |
3194 |
/* local entry for function MAKE-METHOD-SPEC */ |
/* local entry for function MAKE-METHOD-SPEC */ |
3195 |
|
|
3196 |
static object LI60(V556,V557,V558) |
static object LI55(V486,V487,V488) |
3197 |
|
|
3198 |
object V556;object V557;object V558; |
object V486;object V487;object V488; |
3199 |
{ VMB52 VMS52 VMV52 |
{ VMB49 VMS49 VMV49 |
3200 |
goto TTL; |
goto TTL; |
3201 |
TTL:; |
TTL:; |
3202 |
V559= make_cons((V558),Cnil); |
V489= make_cons((V488),Cnil); |
3203 |
{object V560 = listA(3,VV[36],(V556),append((V557),/* INLINE-ARGS */V559)); |
{object V490 = listA(3,VV[40],(V486),append((V487),/* INLINE-ARGS */V489)); |
3204 |
VMR52(V560)} |
VMR49(V490)} |
3205 |
return Cnil; |
return Cnil; |
3206 |
} |
} |
3207 |
/* local entry for function INITIALIZE-METHOD-FUNCTION */ |
/* local entry for function INITIALIZE-METHOD-FUNCTION */ |
3208 |
|
|
3209 |
static object LI61(object V561,object first,...) |
static object LI56(object V491,object first,...) |
3210 |
{ |
{ |
3211 |
va_list ap; |
va_list ap; |
3212 |
int narg = VFUN_NARGS; VMB53 VMS53 VMV53 |
int narg = VFUN_NARGS; VMB50 VMS50 VMV50 |
3213 |
{register object V562; |
{object V492; |
3214 |
object V563; |
object V493; |
3215 |
object V564; |
object V494; |
3216 |
va_start(ap,first); |
va_start(ap,first); |
3217 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
3218 |
V562= V561; |
V492= V491; |
3219 |
narg = narg - 1; |
narg = narg - 1; |
3220 |
if (narg <= 0) goto T1079; |
if (narg <= 0) goto T942; |
3221 |
else { |
else { |
3222 |
V563= first;} |
V493= first;} |
3223 |
if (--narg <= 0) goto T1080; |
if (--narg <= 0) goto T943; |
3224 |
else { |
else { |
3225 |
V564= va_arg(ap,object);} |
V494= va_arg(ap,object);} |
3226 |
--narg; goto T1081; |
--narg; goto T944; |
3227 |
goto T1079; |
goto T942; |
3228 |
T1079:; |
T942:; |
3229 |
V563= Cnil; |
V493= Cnil; |
3230 |
goto T1080; |
goto T943; |
3231 |
T1080:; |
T943:; |
3232 |
V564= Cnil; |
V494= Cnil; |
3233 |
goto T1081; |
goto T944; |
3234 |
T1081:; |
T944:; |
3235 |
{register object V565; |
{register object V495; |
3236 |
register object V566; |
register object V496; |
3237 |
object V567; |
object V497; |
3238 |
register object V568; |
object V498; |
3239 |
base[5]= (V562); |
base[5]= (V492); |
3240 |
base[6]= VV[35]; |
base[6]= VV[39]; |
3241 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3242 |
Lgetf(); |
Lgetf(); |
3243 |
vs_top=sup; |
vs_top=sup; |
3244 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3245 |
base[5]= (V562); |
base[5]= (V492); |
3246 |
base[6]= VV[212]; |
base[6]= VV[222]; |
3247 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3248 |
Lgetf(); |
Lgetf(); |
3249 |
vs_top=sup; |
vs_top=sup; |
3250 |
V565= vs_base[0]; |
V495= vs_base[0]; |
3251 |
base[5]= (V562); |
base[5]= (V492); |
3252 |
base[6]= VV[28]; |
base[6]= VV[32]; |
3253 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3254 |
Lgetf(); |
Lgetf(); |
3255 |
vs_top=sup; |
vs_top=sup; |
3256 |
V566= vs_base[0]; |
V496= vs_base[0]; |
3257 |
base[5]= (V566); |
base[5]= (V496); |
3258 |
base[6]= VV[29]; |
base[6]= VV[33]; |
3259 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3260 |
Lgetf(); |
Lgetf(); |
3261 |
vs_top=sup; |
vs_top=sup; |
3262 |
V567= vs_base[0]; |
V497= vs_base[0]; |
3263 |
V568= Cnil; |
V498= Cnil; |
3264 |
base[5]= (V562); |
base[5]= (V492); |
3265 |
base[6]= VV[215]; |
base[6]= VV[225]; |
3266 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3267 |
Lgetf(); |
Lgetf(); |
3268 |
vs_top=sup; |
vs_top=sup; |
3269 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
3270 |
if(((V565))==Cnil){ |
if(((V495))==Cnil){ |
3271 |
goto T1100;} |
goto T963;} |
3272 |
if((base[0])==Cnil){ |
if((base[0])==Cnil){ |
3273 |
goto T1103;} |
goto T966;} |
3274 |
base[5]= base[0]; |
base[5]= base[0]; |
3275 |
base[6]= (V565); |
base[6]= (V495); |
3276 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3277 |
(void) (*Lnk346)(); |
(void) (*Lnk361)(); |
3278 |
vs_top=sup; |
vs_top=sup; |
3279 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
3280 |
goto T1103; |
goto T966; |
3281 |
T1103:; |
T966:; |
3282 |
if((base[4])==Cnil){ |
if((base[4])==Cnil){ |
3283 |
goto T1100;} |
goto T963;} |
3284 |
{object V569;{object V571; |
{object V499;{object V501; |
3285 |
{object V572 =(CMPcar((V565)))->s.s_plist; |
{object V502 =(CMPcar((V495)))->s.s_plist; |
3286 |
object ind= VV[216]; |
object ind= VV[226]; |
3287 |
while(V572!=Cnil){ |
while(V502!=Cnil){ |
3288 |
if(V572->c.c_car==ind){ |
if(V502->c.c_car==ind){ |
3289 |
V571= (V572->c.c_cdr->c.c_car); |
V501= (V502->c.c_cdr->c.c_car); |
3290 |
goto T1114; |
goto T977; |
3291 |
}else V572=V572->c.c_cdr->c.c_cdr;} |
}else V502=V502->c.c_cdr->c.c_cdr;} |
3292 |
V571= Cnil;} |
V501= Cnil;} |
3293 |
goto T1114; |
goto T977; |
3294 |
T1114:; |
T977:; |
3295 |
if(V571==Cnil)goto T1113; |
if(V501==Cnil)goto T976; |
3296 |
V570= V571; |
V500= V501; |
3297 |
goto T1112; |
goto T975; |
3298 |
goto T1113; |
goto T976; |
3299 |
T1113:;} |
T976:;} |
3300 |
V573= CMPcar((V565)); |
V503= CMPcar((V495)); |
3301 |
base[6]= Cnil; |
base[6]= Cnil; |
3302 |
base[7]= VV[217]; |
base[7]= VV[227]; |
3303 |
base[8]= CMPcar((V565)); |
base[8]= CMPcar((V495)); |
3304 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
3305 |
Lformat(); |
Lformat(); |
3306 |
vs_top=sup; |
vs_top=sup; |
3307 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
3308 |
base[6]= (VV[218]->s.s_dbind); |
base[6]= (VV[228]->s.s_dbind); |
3309 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3310 |
Lintern(); |
Lintern(); |
3311 |
vs_top=sup; |
vs_top=sup; |
3312 |
V574= vs_base[0]; |
V504= vs_base[0]; |
3313 |
V570= sputprop(/* INLINE-ARGS */V573,VV[216],V574); |
V500= sputprop(/* INLINE-ARGS */V503,VV[226],V504); |
3314 |
goto T1112; |
goto T975; |
3315 |
T1112:; |
T975:; |
3316 |
V569= make_cons(V570,CMPcdr((V565))); |
V499= make_cons(V500,CMPcdr((V495))); |
3317 |
base[5]= base[4]; |
base[5]= base[4]; |
3318 |
base[6]= (V569); |
base[6]= (V499); |
3319 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3320 |
(void) (*Lnk346)(); |
(void) (*Lnk361)(); |
3321 |
vs_top=sup; |
vs_top=sup; |
3322 |
if((base[0])!=Cnil){ |
if((base[0])!=Cnil){ |
3323 |
goto T1100;} |
goto T963;} |
3324 |
base[5]= VV[219]; |
base[5]= VV[158]; |
3325 |
base[6]= (V569); |
base[6]= (V499); |
3326 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3327 |
L62(base); |
L57(base); |
3328 |
vs_top=sup;} |
vs_top=sup;} |
3329 |
goto T1100; |
goto T963; |
3330 |
T1100:; |
T963:; |
3331 |
if(((V566))==Cnil){ |
if(((V496))==Cnil){ |
3332 |
goto T1129;} |
goto T992;} |
3333 |
{object V575; |
{object V505; |
3334 |
object V576; |
object V506; |
3335 |
base[5]= (V566); |
base[5]= (V496); |
3336 |
base[6]= VV[58]; |
base[6]= VV[60]; |
3337 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3338 |
Lgetf(); |
Lgetf(); |
3339 |
vs_top=sup; |
vs_top=sup; |
3340 |
V575= vs_base[0]; |
V505= vs_base[0]; |
3341 |
base[5]= (V566); |
base[5]= (V496); |
3342 |
base[6]= VV[59]; |
base[6]= VV[61]; |
3343 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3344 |
Lgetf(); |
Lgetf(); |
3345 |
vs_top=sup; |
vs_top=sup; |
3346 |
V576= vs_base[0]; |
V506= vs_base[0]; |
3347 |
if(((V575))!=Cnil){ |
if(((V505))!=Cnil){ |
3348 |
goto T1138;} |
goto T1001;} |
3349 |
if(((V576))==Cnil){ |
if(((V506))==Cnil){ |
3350 |
goto T1131;} |
goto T994;} |
3351 |
goto T1138; |
goto T1001; |
3352 |
T1138:; |
T1001:; |
3353 |
V568= (VFUN_NARGS=4,(*(LnkLI404))(VV[58],(V575),VV[59],(V576))); |
V498= (VFUN_NARGS=4,(*(LnkLI416))(VV[60],(V505),VV[61],(V506))); |
3354 |
if(((V568))==Cnil){ |
if(((V498))==Cnil){ |
3355 |
goto T1144;} |
goto T1007;} |
3356 |
base[5]= (V567); |
base[5]= (V497); |
3357 |
base[6]= (V568); |
base[6]= (V498); |
3358 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3359 |
Lset(); |
Lset(); |
3360 |
vs_top=sup; |
vs_top=sup; |
3361 |
goto T1144; |
goto T1007; |
3362 |
T1144:; |
T1007:; |
3363 |
base[5]= VV[208]; |
base[5]= VV[218]; |
3364 |
base[6]= (V568); |
base[6]= (V498); |
3365 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3366 |
L62(base); |
L57(base); |
3367 |
vs_top=sup;} |
vs_top=sup;} |
3368 |
goto T1131; |
goto T994; |
3369 |
T1131:; |
T994:; |
3370 |
goto T1153; |
goto T1016; |
3371 |
T1153:; |
T1016:; |
3372 |
if(((V566))!=Cnil){ |
if(((V496))!=Cnil){ |
3373 |
goto T1155;} |
goto T1018;} |
3374 |
goto T1151; |
goto T1014; |
3375 |
goto T1155; |
goto T1018; |
3376 |
T1155:; |
T1018:; |
3377 |
{register object V577; |
{register object V507; |
3378 |
V577= CMPcar((V566)); |
V507= CMPcar((V496)); |
3379 |
V566= CMPcdr((V566)); |
V496= CMPcdr((V496)); |
3380 |
base[5]= (V577);} |
base[5]= (V507);} |
3381 |
{register object V578; |
{register object V508; |
3382 |
V578= CMPcar((V566)); |
V508= CMPcar((V496)); |
3383 |
V566= CMPcdr((V566)); |
V496= CMPcdr((V496)); |
3384 |
base[6]= (V578);} |
base[6]= (V508);} |
3385 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3386 |
L62(base); |
L57(base); |
3387 |
vs_top=sup; |
vs_top=sup; |
3388 |
goto T1153; |
goto T1016; |
3389 |
goto T1151; |
goto T1014; |
3390 |
T1151:; |
T1014:; |
3391 |
if(((V564))==Cnil){ |
if(((V494))==Cnil){ |
3392 |
goto T1167;} |
goto T1030;} |
3393 |
base[5]= VV[209]; |
base[5]= VV[219]; |
3394 |
base[6]= (V564); |
base[6]= (V494); |
3395 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
3396 |
L62(base); |
L57(base); |
3397 |
vs_top=sup; |
vs_top=sup; |
3398 |
goto T1167; |
goto T1030; |
3399 |
T1167:; |
T1030:; |
3400 |
if(((V563))==Cnil){ |
if(((V493))==Cnil){ |
3401 |
goto T1173;} |
goto T1036;} |
3402 |
if(base[0]!=Cnil){ |
if(base[0]!=Cnil){ |
3403 |
{object V579 = base[0]; |
{object V509 = base[0]; |
3404 |
VMR53(V579)}} |
VMR50(V509)}} |
3405 |
{object V580 = (*(LnkLI405))(base[4]); |
{object V510 = (*(LnkLI417))(base[4]); |
3406 |
VMR53(V580)} |
VMR50(V510)} |
3407 |
goto T1173; |
goto T1036; |
3408 |
T1173:; |
T1036:; |
3409 |
{object V581 = Cnil; |
{object V511 = Cnil; |
3410 |
VMR53(V581)} |
VMR50(V511)} |
3411 |
goto T1129; |
goto T992; |
3412 |
T1129:; |
T992:; |
3413 |
{object V582 = Cnil; |
{object V512 = Cnil; |
3414 |
VMR53(V582)}} |
VMR50(V512)}} |
3415 |
va_end(ap); |
va_end(ap); |
3416 |
base[0]=base[0]; |
base[0]=base[0]; |
3417 |
return Cnil;} |
return Cnil;} |
3418 |
} |
} |
3419 |
/* function definition for ANALYZE-LAMBDA-LIST */ |
/* function definition for ANALYZE-LAMBDA-LIST */ |
3420 |
|
|
3421 |
static void L63() |
static void L58() |
3422 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3423 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM51; VC51 |
3424 |
vs_check; |
vs_check; |
3425 |
{object V583; |
{object V513; |
3426 |
check_arg(1); |
check_arg(1); |
3427 |
V583=(base[0]); |
V513=(base[0]); |
3428 |
vs_top=sup; |
vs_top=sup; |
3429 |
goto TTL; |
goto TTL; |
3430 |
TTL:; |
TTL:; |
3431 |
{register object V584; |
{object V514; |
3432 |
register object V585; |
object V515; |
3433 |
object V586; |
object V516; |
3434 |
object V587; |
object V517; |
3435 |
object V588; |
object V518; |
3436 |
register object V589; |
object V519; |
3437 |
register object V590; |
object V520; |
3438 |
register object V591; |
register object V521; |
3439 |
V584= small_fixnum(0); |
V514= small_fixnum(0); |
3440 |
V585= small_fixnum(0); |
V515= small_fixnum(0); |
3441 |
V586= Cnil; |
V516= Cnil; |
3442 |
V587= Cnil; |
V517= Cnil; |
3443 |
V588= Cnil; |
V518= Cnil; |
3444 |
V589= Cnil; |
V519= Cnil; |
3445 |
V590= Cnil; |
V520= Cnil; |
3446 |
V591= VV[180]; |
V521= VV[192]; |
3447 |
{register object V592; |
{register object V522; |
3448 |
register object V593; |
register object V523; |
3449 |
V592= (V583); |
V522= (V513); |
3450 |
V593= CMPcar((V592)); |
V523= CMPcar((V522)); |
3451 |
goto T1179; |
goto T1042; |
3452 |
T1179:; |
T1042:; |
3453 |
if(!(((V592))==Cnil)){ |
if(!(((V522))==Cnil)){ |
3454 |
goto T1180;} |
goto T1043;} |
3455 |
goto T1175; |
goto T1038; |
3456 |
goto T1180; |
goto T1043; |
3457 |
T1180:; |
T1043:; |
3458 |
{register object x= (V593),V594= VV[182]; |
{register object x= (V523),V524= VV[193]; |
3459 |
while(V594!=Cnil) |
while(V524!=Cnil) |
3460 |
if(x==(V594->c.c_car)){ |
if(x==(V524->c.c_car)){ |
3461 |
goto T1187; |
goto T1050; |
3462 |
}else V594=V594->c.c_cdr; |
}else V524=V524->c.c_cdr; |
3463 |
goto T1186;} |
goto T1049;} |
3464 |
goto T1187; |
goto T1050; |
3465 |
T1187:; |
T1050:; |
3466 |
{object V595= (V593); |
{object V525= (V523); |
3467 |
if((V595!= VV[406]))goto T1188; |
if((V525!= VV[418]))goto T1051; |
3468 |
V591= VV[183]; |
V521= VV[194]; |
3469 |
goto T1184; |
goto T1047; |
3470 |
goto T1188; |
goto T1051; |
3471 |
T1188:; |
T1051:; |
3472 |
if((V595!= VV[61]))goto T1190; |
if((V525!= VV[63]))goto T1053; |
3473 |
V586= Ct; |
V516= Ct; |
3474 |
V591= VV[184]; |
V521= VV[195]; |
3475 |
goto T1184; |
goto T1047; |
3476 |
goto T1190; |
goto T1053; |
3477 |
T1190:; |
T1053:; |
3478 |
if((V595!= VV[62]))goto T1194; |
if((V525!= VV[64]))goto T1057; |
3479 |
V588= Ct; |
V518= Ct; |
3480 |
goto T1184; |
goto T1047; |
3481 |
goto T1194; |
goto T1057; |
3482 |
T1194:; |
T1057:; |
3483 |
if((V595!= VV[169]))goto T1196; |
if((V525!= VV[178]))goto T1059; |
3484 |
V587= Ct; |
V517= Ct; |
3485 |
V591= VV[185]; |
V521= VV[196]; |
3486 |
goto T1184; |
goto T1047; |
3487 |
goto T1196; |
goto T1059; |
3488 |
T1196:; |
T1059:; |
3489 |
if((V595!= VV[55]))goto T1200; |
if((V525!= VV[65]))goto T1063; |
3490 |
goto T1175; |
goto T1038; |
3491 |
goto T1200; |
goto T1063; |
3492 |
T1200:; |
T1063:; |
3493 |
base[2]= VV[220]; |
base[2]= VV[229]; |
3494 |
base[3]= (V593); |
base[3]= (V523); |
3495 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
3496 |
Lerror(); |
Lerror(); |
3497 |
vs_top=sup; |
vs_top=sup; |
3498 |
goto T1184;} |
goto T1047;} |
3499 |
goto T1186; |
goto T1049; |
3500 |
T1186:; |
T1049:; |
3501 |
{object V596= (V591); |
{object V527= V521; |
3502 |
if((V596!= VV[180]))goto T1203; |
if((V527!= VV[192]))goto T1066; |
3503 |
V584= number_plus((V584),small_fixnum(1)); |
V514= number_plus((V514),small_fixnum(1)); |
3504 |
goto T1184; |
goto T1047; |
3505 |
goto T1203; |
goto T1066; |
3506 |
T1203:; |
T1066:; |
3507 |
if((V596!= VV[183]))goto T1205; |
if((V527!= VV[194]))goto T1068; |
3508 |
V585= number_plus((V585),small_fixnum(1)); |
V515= number_plus((V515),small_fixnum(1)); |
3509 |
goto T1184; |
goto T1047; |
3510 |
goto T1205; |
goto T1068; |
3511 |
T1205:; |
T1068:; |
3512 |
if((V596!= VV[184]))goto T1207; |
if((V527!= VV[195]))goto T1070; |
3513 |
{object V597; |
{object V528; |
3514 |
base[3]= (V593); |
base[3]= (V523); |
3515 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3516 |
L64(base); |
L59(base); |
3517 |
vs_top=sup; |
vs_top=sup; |
3518 |
V597= vs_base[0]; |
V528= vs_base[0]; |
3519 |
V589= make_cons((V597),(V589));} |
V519= make_cons((V528),(V519));} |
3520 |
V590= make_cons(V593,(V590)); |
V520= make_cons(V523,(V520)); |
3521 |
goto T1184; |
goto T1047; |
3522 |
goto T1207; |
goto T1070; |
3523 |
T1207:; |
T1070:; |
3524 |
if((V596!= VV[185]))goto T1213; |
if((V527!= VV[196]))goto T1076; |
3525 |
goto T1184; |
goto T1047; |
3526 |
goto T1213; |
goto T1076; |
3527 |
T1213:; |
T1076:; |
3528 |
FEerror("The ECASE key value ~s is illegal.",1,V596); |
base[2]= VV[157]; |
3529 |
goto T1184;} |
base[3]= VV[158]; |
3530 |
goto T1184; |
base[4]= VV[207]; |
3531 |
T1184:; |
base[5]= VV[160]; |
3532 |
V592= CMPcdr((V592)); |
base[6]= V521; |
3533 |
V593= CMPcar((V592)); |
base[7]= VV[161]; |
3534 |
goto T1179;} |
base[8]= VV[232]; |
3535 |
goto T1175; |
base[9]= VV[163]; |
3536 |
T1175:; |
base[10]= VV[233]; |
3537 |
base[1]= (V584); |
vs_top=(vs_base=base+2)+9; |
3538 |
base[2]= (V585); |
(void) (*Lnk409)(); |
3539 |
base[3]= (V586); |
vs_top=sup;} |
3540 |
base[4]= (V587); |
goto T1047; |
3541 |
base[5]= (V588); |
T1047:; |
3542 |
base[6]= reverse((V589)); |
V522= CMPcdr((V522)); |
3543 |
base[7]= reverse((V590)); |
V523= CMPcar((V522)); |
3544 |
|
goto T1042;} |
3545 |
|
goto T1038; |
3546 |
|
T1038:; |
3547 |
|
base[1]= (V514); |
3548 |
|
base[2]= (V515); |
3549 |
|
base[3]= (V516); |
3550 |
|
base[4]= (V517); |
3551 |
|
base[5]= (V518); |
3552 |
|
base[6]= reverse((V519)); |
3553 |
|
base[7]= reverse((V520)); |
3554 |
vs_top=(vs_base=base+1)+7; |
vs_top=(vs_base=base+1)+7; |
3555 |
return;} |
return;} |
3556 |
} |
} |
3557 |
} |
} |
3558 |
/* local entry for function KEYWORD-SPEC-NAME */ |
/* local entry for function KEYWORD-SPEC-NAME */ |
3559 |
|
|
3560 |
static object LI65(V600) |
static object LI60(V531) |
3561 |
|
|
3562 |
object V600; |
object V531; |
3563 |
{ VMB55 VMS55 VMV55 |
{ VMB52 VMS52 VMV52 |
3564 |
goto TTL; |
goto TTL; |
3565 |
TTL:; |
TTL:; |
3566 |
{object V601; |
{object V532; |
3567 |
if(!(type_of((V600))!=t_cons)){ |
if(!(type_of((V531))!=t_cons)){ |
3568 |
goto T1228;} |
goto T1100;} |
3569 |
V601= (V600); |
V532= (V531); |
3570 |
goto T1226; |
goto T1098; |
3571 |
goto T1228; |
goto T1100; |
3572 |
T1228:; |
T1100:; |
3573 |
V601= CMPcar((V600)); |
V532= CMPcar((V531)); |
3574 |
goto T1226; |
goto T1098; |
3575 |
T1226:; |
T1098:; |
3576 |
if(!(type_of((V601))!=t_cons)){ |
if(!(type_of((V532))!=t_cons)){ |
3577 |
goto T1231;} |
goto T1103;} |
3578 |
base[0]= symbol_name((V601)); |
base[0]= symbol_name((V532)); |
3579 |
base[2]= VV[221]; |
base[2]= VV[234]; |
3580 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
3581 |
Lfind_package(); |
Lfind_package(); |
3582 |
vs_top=sup; |
vs_top=sup; |
3584 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3585 |
Lintern(); |
Lintern(); |
3586 |
vs_top=sup; |
vs_top=sup; |
3587 |
{object V602 = vs_base[0]; |
{object V533 = vs_base[0]; |
3588 |
VMR55(V602)} |
VMR52(V533)} |
3589 |
goto T1231; |
goto T1103; |
3590 |
T1231:; |
T1103:; |
3591 |
{object V603 = CMPcar((V601)); |
{object V534 = CMPcar((V532)); |
3592 |
VMR55(V603)}} |
VMR52(V534)}} |
3593 |
base[0]=base[0]; |
base[0]=base[0]; |
3594 |
return Cnil; |
return Cnil; |
3595 |
} |
} |
3596 |
/* local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST */ |
/* local entry for function FTYPE-DECLARATION-FROM-LAMBDA-LIST */ |
3597 |
|
|
3598 |
static object LI66(V605) |
static object LI61(V536) |
3599 |
|
|
3600 |
object V605; |
object V536; |
3601 |
{ VMB56 VMS56 VMV56 |
{ VMB53 VMS53 VMV53 |
3602 |
goto TTL; |
goto TTL; |
3603 |
TTL:; |
TTL:; |
3604 |
{object V606; |
{object V537; |
3605 |
object V607; |
object V538; |
3606 |
object V608; |
object V539; |
3607 |
object V609; |
object V540; |
3608 |
object V610; |
object V541; |
3609 |
object V611; |
object V542; |
3610 |
object V612; |
object V543; |
3611 |
base[0]= (V605); |
base[0]= (V536); |
3612 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3613 |
(void) (*Lnk407)(); |
(void) (*Lnk419)(); |
3614 |
if(vs_base>=vs_top){vs_top=sup;goto T1238;} |
if(vs_base>=vs_top){vs_top=sup;goto T1110;} |
3615 |
V606= vs_base[0]; |
V537= vs_base[0]; |
3616 |
vs_base++; |
vs_base++; |
3617 |
if(vs_base>=vs_top){vs_top=sup;goto T1239;} |
if(vs_base>=vs_top){vs_top=sup;goto T1111;} |
3618 |
V607= vs_base[0]; |
V538= vs_base[0]; |
3619 |
vs_base++; |
vs_base++; |
3620 |
if(vs_base>=vs_top){vs_top=sup;goto T1240;} |
if(vs_base>=vs_top){vs_top=sup;goto T1112;} |
3621 |
V608= vs_base[0]; |
V539= vs_base[0]; |
3622 |
vs_base++; |
vs_base++; |
3623 |
if(vs_base>=vs_top){vs_top=sup;goto T1241;} |
if(vs_base>=vs_top){vs_top=sup;goto T1113;} |
3624 |
V609= vs_base[0]; |
V540= vs_base[0]; |
3625 |
vs_base++; |
vs_base++; |
3626 |
if(vs_base>=vs_top){vs_top=sup;goto T1242;} |
if(vs_base>=vs_top){vs_top=sup;goto T1114;} |
3627 |
V610= vs_base[0]; |
V541= vs_base[0]; |
3628 |
vs_base++; |
vs_base++; |
3629 |
if(vs_base>=vs_top){vs_top=sup;goto T1243;} |
if(vs_base>=vs_top){vs_top=sup;goto T1115;} |
3630 |
V611= vs_base[0]; |
V542= vs_base[0]; |
3631 |
vs_base++; |
vs_base++; |
3632 |
if(vs_base>=vs_top){vs_top=sup;goto T1244;} |
if(vs_base>=vs_top){vs_top=sup;goto T1116;} |
3633 |
V612= vs_base[0]; |
V543= vs_base[0]; |
3634 |
vs_top=sup; |
vs_top=sup; |
3635 |
goto T1245; |
goto T1117; |
3636 |
goto T1238; |
goto T1110; |
3637 |
T1238:; |
T1110:; |
3638 |
V606= Cnil; |
V537= Cnil; |
3639 |
goto T1239; |
goto T1111; |
3640 |
T1239:; |
T1111:; |
3641 |
V607= Cnil; |
V538= Cnil; |
3642 |
goto T1240; |
goto T1112; |
3643 |
T1240:; |
T1112:; |
3644 |
V608= Cnil; |
V539= Cnil; |
3645 |
goto T1241; |
goto T1113; |
3646 |
T1241:; |
T1113:; |
3647 |
V609= Cnil; |
V540= Cnil; |
3648 |
goto T1242; |
goto T1114; |
3649 |
T1242:; |
T1114:; |
3650 |
V610= Cnil; |
V541= Cnil; |
3651 |
goto T1243; |
goto T1115; |
3652 |
T1243:; |
T1115:; |
3653 |
V611= Cnil; |
V542= Cnil; |
3654 |
goto T1244; |
goto T1116; |
3655 |
T1244:; |
T1116:; |
3656 |
V612= Cnil; |
V543= Cnil; |
3657 |
goto T1245; |
goto T1117; |
3658 |
T1245:; |
T1117:; |
3659 |
{object V613; |
{object V544; |
3660 |
{object V614; |
{object V545; |
3661 |
object V615= (V611); |
object V546= (V542); |
3662 |
if(V615==Cnil){ |
if(V546==Cnil){ |
3663 |
V613= Cnil; |
V544= Cnil; |
3664 |
goto T1246;} |
goto T1118;} |
3665 |
base[1]=V614=MMcons(Cnil,Cnil); |
base[1]=V545=MMcons(Cnil,Cnil); |
3666 |
goto T1247; |
goto T1119; |
3667 |
T1247:; |
T1119:; |
3668 |
(V614->c.c_car)= (*(LnkLI408))((V615->c.c_car)); |
(V545->c.c_car)= (*(LnkLI420))((V546->c.c_car)); |
3669 |
if((V615=MMcdr(V615))==Cnil){ |
if((V546=MMcdr(V546))==Cnil){ |
3670 |
V613= base[1]; |
V544= base[1]; |
3671 |
goto T1246;} |
goto T1118;} |
3672 |
V614=MMcdr(V614)=MMcons(Cnil,Cnil); |
V545=MMcdr(V545)=MMcons(Cnil,Cnil); |
3673 |
goto T1247;} |
goto T1119;} |
3674 |
goto T1246; |
goto T1118; |
3675 |
T1246:; |
T1118:; |
3676 |
base[2]= (V606); |
base[2]= (V537); |
3677 |
base[3]= VV[222]; |
base[3]= VV[235]; |
3678 |
base[4]= Ct; |
base[4]= Ct; |
3679 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
3680 |
Lmake_list(); |
Lmake_list(); |
3681 |
vs_top=sup; |
vs_top=sup; |
3682 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
3683 |
if(!(number_compare(small_fixnum(0),(V607))<0)){ |
if(!(number_compare(small_fixnum(0),(V538))<0)){ |
3684 |
goto T1256;} |
goto T1128;} |
3685 |
base[3]= (V607); |
base[3]= (V538); |
3686 |
base[4]= VV[222]; |
base[4]= VV[235]; |
3687 |
base[5]= Ct; |
base[5]= Ct; |
3688 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
3689 |
Lmake_list(); |
Lmake_list(); |
3690 |
vs_top=sup; |
vs_top=sup; |
3691 |
V617= vs_base[0]; |
V548= vs_base[0]; |
3692 |
base[2]= append(VV[223],V617); |
base[2]= append(VV[236],V548); |
3693 |
goto T1254; |
goto T1126; |
3694 |
goto T1256; |
goto T1128; |
3695 |
T1256:; |
T1128:; |
3696 |
base[2]= Cnil; |
base[2]= Cnil; |
3697 |
goto T1254; |
goto T1126; |
3698 |
T1254:; |
T1126:; |
3699 |
if(((V609))==Cnil){ |
if(((V540))==Cnil){ |
3700 |
goto T1264;} |
goto T1136;} |
3701 |
base[3]= VV[224]; |
base[3]= VV[237]; |
3702 |
goto T1262; |
goto T1134; |
3703 |
goto T1264; |
goto T1136; |
3704 |
T1264:; |
T1136:; |
3705 |
base[3]= Cnil; |
base[3]= Cnil; |
3706 |
goto T1262; |
goto T1134; |
3707 |
T1262:; |
T1134:; |
3708 |
if(((V608))==Cnil){ |
if(((V539))==Cnil){ |
3709 |
goto T1268;} |
goto T1140;} |
3710 |
base[5]= VV[225]; |
base[5]= VV[238]; |
3711 |
{object V618; |
{object V549; |
3712 |
object V619= (V613); |
object V550= (V544); |
3713 |
if(V619==Cnil){ |
if(V550==Cnil){ |
3714 |
base[6]= Cnil; |
base[6]= Cnil; |
3715 |
goto T1271;} |
goto T1143;} |
3716 |
base[7]=V618=MMcons(Cnil,Cnil); |
base[7]=V549=MMcons(Cnil,Cnil); |
3717 |
goto T1272; |
goto T1144; |
3718 |
T1272:; |
T1144:; |
3719 |
(V618->c.c_car)= list(2,(V619->c.c_car),Ct); |
(V549->c.c_car)= list(2,(V550->c.c_car),Ct); |
3720 |
if((V619=MMcdr(V619))==Cnil){ |
if((V550=MMcdr(V550))==Cnil){ |
3721 |
base[6]= base[7]; |
base[6]= base[7]; |
3722 |
goto T1271;} |
goto T1143;} |
3723 |
V618=MMcdr(V618)=MMcons(Cnil,Cnil); |
V549=MMcdr(V549)=MMcons(Cnil,Cnil); |
3724 |
goto T1272;} |
goto T1144;} |
3725 |
goto T1271; |
goto T1143; |
3726 |
T1271:; |
T1143:; |
3727 |
if(((V610))==Cnil){ |
if(((V541))==Cnil){ |
3728 |
goto T1276;} |
goto T1148;} |
3729 |
base[7]= VV[226]; |
base[7]= VV[239]; |
3730 |
goto T1274; |
goto T1146; |
3731 |
goto T1276; |
goto T1148; |
3732 |
T1276:; |
T1148:; |
3733 |
base[7]= Cnil; |
base[7]= Cnil; |
3734 |
goto T1274; |
goto T1146; |
3735 |
T1274:; |
T1146:; |
3736 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
3737 |
Lappend(); |
Lappend(); |
3738 |
vs_top=sup; |
vs_top=sup; |
3739 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
3740 |
goto T1266; |
goto T1138; |
3741 |
goto T1268; |
goto T1140; |
3742 |
T1268:; |
T1140:; |
3743 |
base[4]= Cnil; |
base[4]= Cnil; |
3744 |
goto T1266; |
goto T1138; |
3745 |
T1266:; |
T1138:; |
3746 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
3747 |
Lappend(); |
Lappend(); |
3748 |
vs_top=sup; |
vs_top=sup; |
3749 |
V616= vs_base[0]; |
V547= vs_base[0]; |
3750 |
{object V621 = list(3,VV[14],V616,VV[227]); |
{object V552 = list(3,VV[18],V547,VV[240]); |
3751 |
VMR56(V621)}}} |
VMR53(V552)}}} |
3752 |
base[0]=base[0]; |
base[0]=base[0]; |
3753 |
return Cnil; |
return Cnil; |
3754 |
} |
} |
3755 |
/* local entry for function PROCLAIM-DEFGENERIC */ |
/* local entry for function PROCLAIM-DEFGENERIC */ |
3756 |
|
|
3757 |
static object LI67(V624,V625) |
static object LI62(V555,V556) |
3758 |
|
|
3759 |
register object V624;object V625; |
register object V555;object V556; |
3760 |
{ VMB57 VMS57 VMV57 |
{ VMB54 VMS54 VMV54 |
3761 |
goto TTL; |
goto TTL; |
3762 |
TTL:; |
TTL:; |
3763 |
if(!(type_of((V624))==t_cons)){ |
if(!(type_of((V555))==t_cons)){ |
3764 |
goto T1278;} |
goto T1150;} |
3765 |
V624= (*(LnkLI409))(CMPcadr((V624))); |
V555= (*(LnkLI421))(CMPcadr((V555))); |
3766 |
goto T1278; |
goto T1150; |
3767 |
T1278:; |
T1150:; |
3768 |
if(!(type_of((V624))==t_symbol)){ |
if(!(type_of((V555))==t_symbol)){ |
3769 |
goto T1284;} |
goto T1155;} |
3770 |
V626= (V624); |
{object V557 = sputprop((V555),VV[241],Ct); |
3771 |
goto T1282; |
VMR54(V557)} |
3772 |
goto T1284; |
goto T1155; |
3773 |
T1284:; |
T1155:; |
3774 |
base[1]= VV[228]; |
{object V558 = Cnil; |
3775 |
base[2]= VV[229]; |
VMR54(V558)} |
|
base[3]= symbol_name(CMPcadr((V624))); |
|
|
vs_top=(vs_base=base+1)+3; |
|
|
(void) (*Lnk410)(); |
|
|
vs_top=sup; |
|
|
base[0]= vs_base[0]; |
|
|
vs_top=(vs_base=base+0)+1; |
|
|
Lmake_symbol(); |
|
|
vs_top=sup; |
|
|
V626= vs_base[0]; |
|
|
goto T1282; |
|
|
T1282:; |
|
|
{object V627 = sputprop(V626,VV[230],Ct); |
|
|
VMR57(V627)} |
|
|
base[0]=base[0]; |
|
3776 |
return Cnil; |
return Cnil; |
3777 |
} |
} |
3778 |
/* function definition for ENSURE-GENERIC-FUNCTION */ |
/* function definition for ENSURE-GENERIC-FUNCTION */ |
3779 |
|
|
3780 |
static void L68() |
static void L63() |
3781 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3782 |
register object *sup=base+VM58; VC58 |
register object *sup=base+VM55; VC55 |
3783 |
vs_check; |
vs_check; |
3784 |
{register object V628; |
{register object V559; |
3785 |
object V629; |
object V560; |
3786 |
object V630; |
object V561; |
3787 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
3788 |
parse_key(vs_base+1,TRUE,TRUE,1,VV[296]); |
parse_key(vs_base+1,TRUE,TRUE,1,VV[309]); |
3789 |
V628=(base[0]); |
V559=(base[0]); |
3790 |
vs_top=sup; |
vs_top=sup; |
3791 |
V629=(base[1]); |
V560=(base[1]); |
3792 |
V630=(base[2]); |
V561=(base[2]); |
3793 |
{object V631; |
{register object V562; |
3794 |
if(((*(LnkLI356))((V628)))!=Cnil){ |
if(((*(LnkLI371))((V559)))!=Cnil){ |
3795 |
goto T1291;} |
goto T1158;} |
3796 |
V631= Cnil; |
V562= Cnil; |
3797 |
goto T1290; |
goto T1157; |
3798 |
goto T1291; |
goto T1158; |
3799 |
T1291:; |
T1158:; |
3800 |
V631= (*(LnkLI347))((V628)); |
V562= (*(LnkLI362))((V559)); |
3801 |
goto T1290; |
goto T1157; |
3802 |
T1290:; |
T1157:; |
3803 |
if(((V631))==Cnil){ |
if(((V562))==Cnil){ |
3804 |
goto T1294;} |
goto T1160;} |
3805 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
3806 |
goto T1294;} |
goto T1160;} |
3807 |
base[4]= (V631); |
base[4]= (V562); |
3808 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
3809 |
(void) (*Lnk357)(Lclptr357); |
(void) (*Lnk372)(Lclptr372); |
3810 |
vs_top=sup; |
vs_top=sup; |
3811 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
3812 |
goto T1294;} |
goto T1160;} |
3813 |
base[4]= (*(LnkLI411))((V628)); |
(void)((*(LnkLI422))((V559))); |
3814 |
vs_top=(vs_base=base+4)+1; |
V562= Cnil; |
3815 |
return; |
goto T1160; |
3816 |
goto T1294; |
T1160:; |
3817 |
T1294:; |
base[4]=VV[423]->s.s_gfdef; |
3818 |
base[4]=VV[412]->s.s_gfdef; |
base[5]= (V562); |
3819 |
base[5]= (V631); |
base[6]= (V559); |
3820 |
base[6]= (V628); |
{object V563; |
3821 |
{object V632; |
V563= (V560); |
|
V632= (V629); |
|
3822 |
vs_top=base+7; |
vs_top=base+7; |
3823 |
while(V632!=Cnil) |
while(V563!=Cnil) |
3824 |
{vs_push((V632)->c.c_car);V632=(V632)->c.c_cdr;} |
{vs_push((V563)->c.c_car);V563=(V563)->c.c_cdr;} |
3825 |
vs_base=base+5;} |
vs_base=base+5;} |
3826 |
funcall(base[4]); |
funcall(base[4]); |
3827 |
return;} |
return;} |
3829 |
} |
} |
3830 |
/* local entry for function GENERIC-CLOBBERS-FUNCTION */ |
/* local entry for function GENERIC-CLOBBERS-FUNCTION */ |
3831 |
|
|
3832 |
static object LI69(V634) |
static object LI65(V565) |
3833 |
|
|
3834 |
object V634; |
object V565; |
3835 |
{ VMB59 VMS59 VMV59 |
{ VMB56 VMS56 VMV56 |
3836 |
goto TTL; |
goto TTL; |
3837 |
TTL:; |
TTL:; |
3838 |
base[0]= VV[231]; |
base[0]=MMcons((V565),Cnil); |
3839 |
base[1]= (V634); |
base[2]= VV[8]; |
3840 |
vs_top=(vs_base=base+0)+2; |
base[3]= VV[242]; |
3841 |
Lerror(); |
base[4]= (base[0]->c.c_car); |
3842 |
|
vs_top=(vs_base=base+2)+3; |
3843 |
|
(void) (*Lnk364)(); |
3844 |
vs_top=sup; |
vs_top=sup; |
3845 |
{object V635 = vs_base[0]; |
base[1]= vs_base[0]; |
3846 |
VMR59(V635)} |
base[3]= Cnil; |
3847 |
|
base[4]= VV[243]; |
3848 |
|
base[5]= |
3849 |
|
make_cclosure_new(LC126,Cnil,base[0],Cdata); |
3850 |
|
base[7]= (base[0]->c.c_car); |
3851 |
|
vs_top=(vs_base=base+7)+1; |
3852 |
|
Lfmakunbound(); |
3853 |
|
vs_top=sup; |
3854 |
|
base[6]= vs_base[0]; |
3855 |
|
vs_top=(vs_base=base+3)+4; |
3856 |
|
(void) (*Lnk424)(); |
3857 |
|
vs_top=sup; |
3858 |
|
base[2]= vs_base[0]; |
3859 |
|
vs_top=(vs_base=base+1)+2; |
3860 |
|
(void) (*Lnk425)(); |
3861 |
|
vs_top=sup; |
3862 |
|
{object V566 = vs_base[0]; |
3863 |
|
VMR56(V566)} |
3864 |
base[0]=base[0]; |
base[0]=base[0]; |
3865 |
return Cnil; |
return Cnil; |
3866 |
} |
} |
3867 |
/* local entry for function EARLY-GF-P */ |
/* local entry for function EARLY-GF-P */ |
3868 |
|
|
3869 |
static object LI70(V637) |
static object LI66(V568) |
3870 |
|
|
3871 |
register object V637; |
register object V568; |
3872 |
{ VMB60 VMS60 VMV60 |
{ VMB57 VMS57 VMV57 |
3873 |
goto TTL; |
goto TTL; |
3874 |
TTL:;{object V638; |
TTL:;{object V569; |
3875 |
V638= (VV[146]->s.s_dbind); |
V569= (VV[151]->s.s_dbind); |
3876 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3877 |
base[1]= (V637); |
base[1]= (V568); |
3878 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3879 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
3880 |
vs_top=sup; |
vs_top=sup; |
3881 |
V639= vs_base[0]; |
V570= vs_base[0]; |
3882 |
if((V638)==(CMPcar(V639))){ |
if((V569)==(CMPcar(V570))){ |
3883 |
goto T1306;}} |
goto T1183;}} |
3884 |
{object V640 = Cnil; |
{object V571 = Cnil; |
3885 |
VMR60(V640)} |
VMR57(V571)} |
3886 |
goto T1306; |
goto T1183; |
3887 |
T1306:; |
T1183:; |
3888 |
if(type_of(V637)==t_structure){ |
if(type_of(V568)==t_structure){ |
3889 |
goto T1315;} |
goto T1192;} |
3890 |
goto T1313; |
goto T1190; |
3891 |
goto T1315; |
goto T1192; |
3892 |
T1315:; |
T1192:; |
3893 |
if(!(((V637)->str.str_def)==(VV[232]))){ |
if(!(((V568)->str.str_def)==(VV[245]))){ |
3894 |
goto T1313;} |
goto T1190;} |
3895 |
V641= STREF(object,(V637),4); |
V572= STREF(object,(V568),4); |
3896 |
goto T1311; |
goto T1188; |
3897 |
goto T1313; |
goto T1190; |
3898 |
T1313:;{object V643; |
T1190:;{object V574; |
3899 |
V643= (VV[146]->s.s_dbind); |
V574= (VV[151]->s.s_dbind); |
3900 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
3901 |
base[1]= (V637); |
base[1]= (V568); |
3902 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
3903 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
3904 |
vs_top=sup; |
vs_top=sup; |
3905 |
V644= vs_base[0]; |
V575= vs_base[0]; |
3906 |
if(!((V643)==(CMPcar(V644)))){ |
if(!((V574)==(CMPcar(V575)))){ |
3907 |
goto T1318;}} |
goto T1195;}} |
3908 |
V641= CMPcar(((V637))->cc.cc_turbo[12]); |
V572= CMPcar(((V568))->cc.cc_turbo[12]); |
3909 |
goto T1311; |
goto T1188; |
3910 |
goto T1318; |
goto T1195; |
3911 |
T1318:; |
T1195:; |
3912 |
base[0]= VV[147]; |
base[0]= VV[152]; |
3913 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
3914 |
Lerror(); |
Lerror(); |
3915 |
vs_top=sup; |
vs_top=sup; |
3916 |
V641= vs_base[0]; |
V572= vs_base[0]; |
3917 |
goto T1311; |
goto T1188; |
3918 |
T1311:; |
T1188:; |
3919 |
V645 = (VV[233]->s.s_dbind); |
{object V576 = (((V572)->v.v_self[fix((VV[246]->s.s_dbind))])==((VV[136]->s.s_dbind))?Ct:Cnil); |
3920 |
{object V646 = (((V641)->v.v_self[fix(V645)])==((VV[131]->s.s_dbind))?Ct:Cnil); |
VMR57(V576)} |
|
VMR60(V646)} |
|
3921 |
base[0]=base[0]; |
base[0]=base[0]; |
3922 |
return Cnil; |
return Cnil; |
3923 |
} |
} |
3924 |
/* macro definition for EARLY-GF-METHODS */ |
/* macro definition for EARLY-GF-METHODS */ |
3925 |
|
|
3926 |
static void L71() |
static void L67() |
3927 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3928 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM58; VC58 |
3929 |
vs_check; |
vs_check; |
3930 |
check_arg(2); |
check_arg(2); |
3931 |
vs_top=sup; |
vs_top=sup; |
3932 |
{object V647=base[0]->c.c_cdr; |
{object V577=base[0]->c.c_cdr; |
3933 |
if(endp(V647))invalid_macro_call(); |
if(endp(V577))invalid_macro_call(); |
3934 |
base[2]= (V647->c.c_car); |
base[2]= (V577->c.c_car); |
3935 |
V647=V647->c.c_cdr; |
V577=V577->c.c_cdr; |
3936 |
if(!endp(V647))invalid_macro_call();} |
if(!endp(V577))invalid_macro_call();} |
3937 |
base[3]= list(3,VV[234],list(2,VV[235],base[2]),VV[236]); |
base[3]= list(3,VV[247],list(2,VV[248],base[2]),VV[249]); |
3938 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3939 |
return; |
return; |
3940 |
} |
} |
3941 |
/* macro definition for EARLY-GF-ARG-INFO */ |
/* macro definition for EARLY-GF-ARG-INFO */ |
3942 |
|
|
3943 |
static void L72() |
static void L68() |
3944 |
{register object *base=vs_base; |
{register object *base=vs_base; |
3945 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM59; VC59 |
3946 |
vs_check; |
vs_check; |
3947 |
check_arg(2); |
check_arg(2); |
3948 |
vs_top=sup; |
vs_top=sup; |
3949 |
{object V648=base[0]->c.c_cdr; |
{object V578=base[0]->c.c_cdr; |
3950 |
if(endp(V648))invalid_macro_call(); |
if(endp(V578))invalid_macro_call(); |
3951 |
base[2]= (V648->c.c_car); |
base[2]= (V578->c.c_car); |
3952 |
V648=V648->c.c_cdr; |
V578=V578->c.c_cdr; |
3953 |
if(!endp(V648))invalid_macro_call();} |
if(!endp(V578))invalid_macro_call();} |
3954 |
base[3]= list(3,VV[234],list(2,VV[235],base[2]),VV[237]); |
base[3]= list(3,VV[247],list(2,VV[248],base[2]),VV[250]); |
3955 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
3956 |
return; |
return; |
3957 |
} |
} |
3958 |
/* local entry for function __si::MAKE-ARG-INFO */ |
/* local entry for function __si::MAKE-ARG-INFO */ |
3959 |
|
|
3960 |
static object LI73(object first,...) |
static object LI69(object first,...) |
3961 |
{ |
{ |
3962 |
va_list ap; |
va_list ap; |
3963 |
int narg = VFUN_NARGS; VMB63 VMS63 VMV63 |
int narg = VFUN_NARGS; VMB60 VMS60 VMV60 |
3964 |
{object V649; |
{object V579; |
3965 |
object V650; |
object V580; |
3966 |
object V651; |
object V581; |
3967 |
object V652; |
object V582; |
3968 |
object V653; |
object V583; |
3969 |
object V654; |
object V584; |
3970 |
object V655; |
object V585; |
3971 |
object V656; |
object V586; |
3972 |
object V657; |
object V587; |
3973 |
object V658; |
object V588; |
3974 |
object V659; |
object V589; |
3975 |
va_start(ap,first); |
va_start(ap,first); |
3976 |
narg= narg - 0; |
narg= narg - 0; |
3977 |
{ |
{ |
3978 |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI73key,first,ap); |
parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI69key,first,ap); |
3979 |
V649=(Vcs[0]); |
V579=(Vcs[0]); |
3980 |
V650=(Vcs[1]); |
V580=(Vcs[1]); |
3981 |
V651=(Vcs[2]); |
V581=(Vcs[2]); |
3982 |
V652=(Vcs[3]); |
V582=(Vcs[3]); |
3983 |
V653=(Vcs[4]); |
V583=(Vcs[4]); |
3984 |
V654=(Vcs[5]); |
V584=(Vcs[5]); |
3985 |
V655=(Vcs[6]); |
V585=(Vcs[6]); |
3986 |
V656=(Vcs[7]); |
V586=(Vcs[7]); |
3987 |
V657=(Vcs[8]); |
V587=(Vcs[8]); |
3988 |
if(Vcs[9]==0){ |
if(Vcs[9]==0){ |
3989 |
V658= Ct; |
V588= Ct; |
3990 |
}else{ |
}else{ |
3991 |
V658=(Vcs[9]);} |
V588=(Vcs[9]);} |
3992 |
V659=(Vcs[10]); |
V589=(Vcs[10]); |
3993 |
base[0]= VV[239]; |
base[0]= VV[252]; |
3994 |
base[1]= (V649); |
base[1]= (V579); |
3995 |
base[2]= (V650); |
base[2]= (V580); |
3996 |
base[3]= (V651); |
base[3]= (V581); |
3997 |
base[4]= (V652); |
base[4]= (V582); |
3998 |
base[5]= (V653); |
base[5]= (V583); |
3999 |
base[6]= (V654); |
base[6]= (V584); |
4000 |
base[7]= (V655); |
base[7]= (V585); |
4001 |
base[8]= (V656); |
base[8]= (V586); |
4002 |
base[9]= (V657); |
base[9]= (V587); |
4003 |
base[10]= (V658); |
base[10]= (V588); |
4004 |
base[11]= (V659); |
base[11]= (V589); |
4005 |
vs_top=(vs_base=base+0)+12; |
vs_top=(vs_base=base+0)+12; |
4006 |
siLmake_structure(); |
siLmake_structure(); |
4007 |
vs_top=sup; |
vs_top=sup; |
4008 |
{object V660 = vs_base[0]; |
{object V590 = vs_base[0]; |
4009 |
VMR63(V660)} |
VMR60(V590)} |
4010 |
va_end(ap); |
va_end(ap); |
4011 |
base[0]=base[0]; |
base[0]=base[0]; |
4012 |
return Cnil;} |
return Cnil;} |
4013 |
}} |
}} |
4014 |
/* local entry for function MAKE-ARG-INFO */ |
/* local entry for function MAKE-ARG-INFO */ |
4015 |
|
|
4016 |
static object LI74() |
static object LI70() |
4017 |
|
|
4018 |
{ VMB64 VMS64 VMV64 |
{ VMB61 VMS61 VMV61 |
4019 |
goto TTL; |
goto TTL; |
4020 |
TTL:; |
TTL:; |
4021 |
base[0]= VV[239]; |
base[0]= VV[252]; |
4022 |
base[1]= VV[238]; |
base[1]= VV[251]; |
4023 |
base[2]= Cnil; |
base[2]= Cnil; |
4024 |
base[3]= Cnil; |
base[3]= Cnil; |
4025 |
base[4]= Cnil; |
base[4]= Cnil; |
4033 |
vs_top=(vs_base=base+0)+12; |
vs_top=(vs_base=base+0)+12; |
4034 |
siLmake_structure(); |
siLmake_structure(); |
4035 |
vs_top=sup; |
vs_top=sup; |
4036 |
{object V672 = vs_base[0]; |
{object V602 = vs_base[0]; |
4037 |
VMR64(V672)} |
VMR61(V602)} |
4038 |
base[0]=base[0]; |
base[0]=base[0]; |
4039 |
return Cnil; |
return Cnil; |
4040 |
} |
} |
4041 |
/* local entry for function ARG-INFO-VALID-P */ |
/* local entry for function ARG-INFO-VALID-P */ |
4042 |
|
|
4043 |
static object LI75(V674) |
static object LI71(V604) |
4044 |
|
|
4045 |
object V674; |
object V604; |
4046 |
{ VMB65 VMS65 VMV65 |
{ VMB62 VMS62 VMV62 |
4047 |
goto TTL; |
goto TTL; |
4048 |
TTL:; |
TTL:; |
4049 |
{object V675 = ((((STREF(object,(V674),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
{object V605 = ((((STREF(object,(V604),12))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
4050 |
VMR65(V675)} |
VMR62(V605)} |
4051 |
return Cnil; |
return Cnil; |
4052 |
} |
} |
4053 |
/* local entry for function ARG-INFO-APPLYP */ |
/* local entry for function ARG-INFO-APPLYP */ |
4054 |
|
|
4055 |
static object LI76(V677) |
static object LI72(V607) |
4056 |
|
|
4057 |
object V677; |
object V607; |
4058 |
{ VMB66 VMS66 VMV66 |
{ VMB63 VMS63 VMV63 |
4059 |
goto TTL; |
goto TTL; |
4060 |
TTL:; |
TTL:; |
4061 |
if(!((fix(STREF(object,(V677),12)))>0)){ |
if(!((fix(STREF(object,(V607),12)))>0)){ |
4062 |
goto T1349;} |
goto T1226;} |
4063 |
{object V678 = Ct; |
{object V608 = Ct; |
4064 |
VMR66(V678)} |
VMR63(V608)} |
4065 |
goto T1349; |
goto T1226; |
4066 |
T1349:; |
T1226:; |
4067 |
{object V679 = STREF(object,(V677),16); |
{object V609 = STREF(object,(V607),16); |
4068 |
VMR66(V679)} |
VMR63(V609)} |
4069 |
return Cnil; |
return Cnil; |
4070 |
} |
} |
4071 |
/* local entry for function ARG-INFO-NUMBER-REQUIRED */ |
/* local entry for function ARG-INFO-NUMBER-REQUIRED */ |
4072 |
|
|
4073 |
static object LI77(V681) |
static object LI73(V611) |
4074 |
|
|
4075 |
object V681; |
object V611; |
4076 |
{ VMB67 VMS67 VMV67 |
{ VMB64 VMS64 VMV64 |
4077 |
goto TTL; |
goto TTL; |
4078 |
TTL:; |
TTL:; |
4079 |
{long V682 = (long)length(STREF(object,(V681),8)); |
{long V612 = (long)length(STREF(object,(V611),8)); |
4080 |
VMR67((object)V682)} |
VMR64((object)V612)} |
4081 |
} |
} |
4082 |
/* local entry for function ARG-INFO-NKEYS */ |
/* local entry for function ARG-INFO-NKEYS */ |
4083 |
|
|
4084 |
static object LI78(V684) |
static object LI74(V614) |
4085 |
|
|
4086 |
object V684; |
object V614; |
4087 |
{ VMB68 VMS68 VMV68 |
{ VMB65 VMS65 VMV65 |
4088 |
goto TTL; |
goto TTL; |
4089 |
TTL:; |
TTL:; |
4090 |
base[0]= VV[424]; |
base[0]= VV[437]; |
4091 |
base[1]= STREF(object,(V684),8); |
base[1]= STREF(object,(V614),8); |
4092 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4093 |
(void) (*Lnk425)(); |
(void) (*Lnk438)(); |
4094 |
vs_top=sup; |
vs_top=sup; |
4095 |
{object V685 = vs_base[0]; |
{object V615 = vs_base[0]; |
4096 |
VMR68(V685)} |
VMR65(V615)} |
4097 |
base[0]=base[0]; |
base[0]=base[0]; |
4098 |
return Cnil; |
return Cnil; |
4099 |
} |
} |
4100 |
/* macro definition for ESETF */ |
/* macro definition for ESETF */ |
4101 |
|
|
4102 |
static void L79() |
static void L75() |
4103 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4104 |
register object *sup=base+VM69; VC69 |
register object *sup=base+VM66; VC66 |
4105 |
vs_check; |
vs_check; |
4106 |
check_arg(2); |
check_arg(2); |
4107 |
vs_top=sup; |
vs_top=sup; |
4108 |
{object V686=base[0]->c.c_cdr; |
{object V616=base[0]->c.c_cdr; |
4109 |
if(endp(V686))invalid_macro_call(); |
if(endp(V616))invalid_macro_call(); |
4110 |
base[2]= (V686->c.c_car); |
base[2]= (V616->c.c_car); |
4111 |
V686=V686->c.c_cdr; |
V616=V616->c.c_cdr; |
4112 |
if(endp(V686))invalid_macro_call(); |
if(endp(V616))invalid_macro_call(); |
4113 |
base[3]= (V686->c.c_car); |
base[3]= (V616->c.c_car); |
4114 |
V686=V686->c.c_cdr; |
V616=V616->c.c_cdr; |
4115 |
if(!endp(V686))invalid_macro_call();} |
if(!endp(V616))invalid_macro_call();} |
4116 |
{object V687; |
{object V617; |
4117 |
base[4]= VV[240]; |
base[4]= VV[253]; |
4118 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4119 |
Lgensym(); |
Lgensym(); |
4120 |
vs_top=sup; |
vs_top=sup; |
4121 |
V687= vs_base[0]; |
V617= vs_base[0]; |
4122 |
V688= list(2,(V687),base[3]); |
V618= list(2,(V617),base[3]); |
4123 |
V689= make_cons(/* INLINE-ARGS */V688,Cnil); |
V619= make_cons(/* INLINE-ARGS */V618,Cnil); |
4124 |
V690= list(3,VV[242],base[2],(V687)); |
V620= list(3,VV[255],base[2],(V617)); |
4125 |
base[4]= list(3,VV[95],/* INLINE-ARGS */V689,list(3,VV[241],/* INLINE-ARGS */V690,list(3,VV[30],base[2],(V687)))); |
base[4]= list(3,VV[100],/* INLINE-ARGS */V619,list(3,VV[254],/* INLINE-ARGS */V620,list(3,VV[34],base[2],(V617)))); |
4126 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4127 |
return;} |
return;} |
4128 |
} |
} |
4129 |
/* local entry for function SET-ARG-INFO */ |
/* local entry for function SET-ARG-INFO */ |
4130 |
|
|
4131 |
static object LI80(object V691,object first,...) |
static object LI76(object V621,object first,...) |
4132 |
{ |
{ |
4133 |
va_list ap; |
va_list ap; |
4134 |
int narg = VFUN_NARGS; VMB70 VMS70 VMV70 |
int narg = VFUN_NARGS; VMB67 VMS67 VMV67 |
4135 |
{register object V692; |
{register object V622; |
4136 |
object V693; |
object V623; |
4137 |
register object V694; |
register object V624; |
4138 |
register object V695; |
register object V625; |
4139 |
object V696; |
object V626; |
4140 |
va_start(ap,first); |
va_start(ap,first); |
4141 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
4142 |
V692= V691; |
V622= V621; |
4143 |
narg= narg - 1; |
narg= narg - 1; |
4144 |
{ |
{ |
4145 |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI80key,first,ap); |
parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI76key,first,ap); |
4146 |
V693=(Vcs[1]); |
V623=(Vcs[1]); |
4147 |
if(Vcs[2]==0){ |
if(Vcs[2]==0){ |
4148 |
V694= Cnil; |
V624= Cnil; |
4149 |
V695= Cnil; |
V625= Cnil; |
4150 |
}else{ |
}else{ |
4151 |
V694=(Vcs[2]); |
V624=(Vcs[2]); |
4152 |
V695= Ct;} |
V625= Ct;} |
4153 |
V696=(Vcs[3]); |
V626=(Vcs[3]); |
4154 |
{register object V697; |
{register object V627; |
4155 |
object V698; |
object V628; |
4156 |
object V699; |
object V629; |
4157 |
object V700; |
object V630; |
4158 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
4159 |
goto T1358;} |
goto T1235;} |
4160 |
base[4]= (V692); |
base[4]= (V622); |
4161 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4162 |
(void) (*Lnk393)(Lclptr393); |
(void) (*Lnk439)(Lclptr439); |
4163 |
vs_top=sup; |
vs_top=sup; |
4164 |
V697= vs_base[0]; |
V627= vs_base[0]; |
4165 |
goto T1356; |
goto T1233; |
4166 |
goto T1358; |
goto T1235; |
4167 |
T1358:; |
T1235:; |
4168 |
if(type_of(V692)==t_structure){ |
if(type_of(V622)==t_structure){ |
4169 |
goto T1365;} |
goto T1242;} |
4170 |
goto T1363; |
goto T1240; |
4171 |
goto T1365; |
goto T1242; |
4172 |
T1365:; |
T1242:; |
4173 |
if(!(((V692)->str.str_def)==(VV[243]))){ |
if(!(((V622)->str.str_def)==(VV[256]))){ |
4174 |
goto T1363;} |
goto T1240;} |
4175 |
V701= STREF(object,(V692),4); |
V631= STREF(object,(V622),4); |
4176 |
goto T1361; |
goto T1238; |
4177 |
goto T1363; |
goto T1240; |
4178 |
T1363:;{object V703; |
T1240:;{object V633; |
4179 |
V703= (VV[146]->s.s_dbind); |
V633= (VV[151]->s.s_dbind); |
4180 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4181 |
base[5]= (V692); |
base[5]= (V622); |
4182 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4183 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
4184 |
vs_top=sup; |
vs_top=sup; |
4185 |
V704= vs_base[0]; |
V634= vs_base[0]; |
4186 |
if(!((V703)==(CMPcar(V704)))){ |
if(!((V633)==(CMPcar(V634)))){ |
4187 |
goto T1368;}} |
goto T1245;}} |
4188 |
V701= CMPcar(((V692))->cc.cc_turbo[12]); |
V631= CMPcar(((V622))->cc.cc_turbo[12]); |
4189 |
goto T1361; |
goto T1238; |
4190 |
goto T1368; |
goto T1245; |
4191 |
T1368:; |
T1245:; |
4192 |
base[4]= VV[147]; |
base[4]= VV[152]; |
4193 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4194 |
Lerror(); |
Lerror(); |
4195 |
vs_top=sup; |
vs_top=sup; |
4196 |
V701= vs_base[0]; |
V631= vs_base[0]; |
4197 |
goto T1361; |
goto T1238; |
4198 |
T1361:; |
T1238:; |
4199 |
V705 = (VV[237]->s.s_dbind); |
V627= (V631)->v.v_self[fix((VV[250]->s.s_dbind))]; |
4200 |
V697= (V701)->v.v_self[fix(V705)]; |
goto T1233; |
4201 |
goto T1356; |
T1233:; |
4202 |
T1356:; |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
4203 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
goto T1253;} |
4204 |
goto T1376;} |
base[4]= (V622); |
|
base[4]= (V692); |
|
4205 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4206 |
(void) (*Lnk426)(Lclptr426); |
(void) (*Lnk440)(Lclptr440); |
4207 |
vs_top=sup; |
vs_top=sup; |
4208 |
V698= vs_base[0]; |
V628= vs_base[0]; |
4209 |
goto T1374; |
goto T1251; |
4210 |
goto T1376; |
goto T1253; |
4211 |
T1376:; |
T1253:; |
4212 |
if(type_of(V692)==t_structure){ |
if(type_of(V622)==t_structure){ |
4213 |
goto T1383;} |
goto T1260;} |
4214 |
goto T1381; |
goto T1258; |
4215 |
goto T1383; |
goto T1260; |
4216 |
T1383:; |
T1260:; |
4217 |
if(!(((V692)->str.str_def)==(VV[244]))){ |
if(!(((V622)->str.str_def)==(VV[257]))){ |
4218 |
goto T1381;} |
goto T1258;} |
4219 |
V706= STREF(object,(V692),4); |
V635= STREF(object,(V622),4); |
4220 |
goto T1379; |
goto T1256; |
4221 |
goto T1381; |
goto T1258; |
4222 |
T1381:;{object V708; |
T1258:;{object V637; |
4223 |
V708= (VV[146]->s.s_dbind); |
V637= (VV[151]->s.s_dbind); |
4224 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
4225 |
base[5]= (V692); |
base[5]= (V622); |
4226 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4227 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
4228 |
vs_top=sup; |
vs_top=sup; |
4229 |
V709= vs_base[0]; |
V638= vs_base[0]; |
4230 |
if(!((V708)==(CMPcar(V709)))){ |
if(!((V637)==(CMPcar(V638)))){ |
4231 |
goto T1386;}} |
goto T1263;}} |
4232 |
V706= CMPcar(((V692))->cc.cc_turbo[12]); |
V635= CMPcar(((V622))->cc.cc_turbo[12]); |
4233 |
goto T1379; |
goto T1256; |
4234 |
goto T1386; |
goto T1263; |
4235 |
T1386:; |
T1263:; |
4236 |
base[4]= VV[147]; |
base[4]= VV[152]; |
4237 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4238 |
Lerror(); |
Lerror(); |
4239 |
vs_top=sup; |
vs_top=sup; |
4240 |
V706= vs_base[0]; |
V635= vs_base[0]; |
4241 |
goto T1379; |
goto T1256; |
4242 |
T1379:; |
T1256:; |
4243 |
V710 = (VV[236]->s.s_dbind); |
V628= (V635)->v.v_self[fix((VV[249]->s.s_dbind))]; |
4244 |
V698= (V706)->v.v_self[fix(V710)]; |
goto T1251; |
4245 |
goto T1374; |
T1251:; |
4246 |
T1374:; |
{object V639= STREF(object,(V627),12); |
4247 |
{object V711= STREF(object,(V697),12); |
V629= (type_of(V639)==t_fixnum||type_of(V639)==t_bignum?Ct:Cnil);} |
4248 |
V699= (type_of(V711)==t_fixnum||type_of(V711)==t_bignum?Ct:Cnil);} |
if((V623)==Cnil){ |
4249 |
if((V693)==Cnil){ |
V630= Cnil; |
4250 |
V700= Cnil; |
goto T1270;} |
4251 |
goto T1393;} |
V630= ((CMPcdr((V628)))==Cnil?Ct:Cnil); |
4252 |
V700= ((CMPcdr((V698)))==Cnil?Ct:Cnil); |
goto T1270; |
4253 |
goto T1393; |
T1270:; |
4254 |
T1393:; |
if(((V625))!=Cnil){ |
4255 |
if(((V695))!=Cnil){ |
goto T1271;} |
4256 |
goto T1394;} |
if(((V628))==Cnil){ |
4257 |
if(((V698))==Cnil){ |
goto T1271;} |
4258 |
goto T1394;} |
V624= (*(LnkLI441))((V622)); |
4259 |
V694= (*(LnkLI427))((V692)); |
goto T1271; |
4260 |
goto T1394; |
T1271:; |
4261 |
T1394:; |
if(((V625))!=Cnil){ |
4262 |
if(((V695))!=Cnil){ |
goto T1278;} |
4263 |
goto T1401;} |
if(((V630))==Cnil){ |
4264 |
if(((V700))==Cnil){ |
goto T1277;} |
4265 |
goto T1400;} |
if(!((STREF(object,(V627),0))==(VV[251]))){ |
4266 |
if(!((STREF(object,(V697),0))==(VV[238]))){ |
goto T1277;} |
4267 |
goto T1400;} |
goto T1278; |
4268 |
goto T1401; |
T1278:; |
4269 |
T1401:; |
{object V640; |
4270 |
{object V712; |
object V641; |
4271 |
object V713; |
object V642; |
4272 |
object V714; |
object V643; |
4273 |
object V715; |
object V644; |
4274 |
object V716; |
object V645; |
4275 |
object V717; |
base[4]= (V624); |
|
base[4]= (V694); |
|
4276 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4277 |
(void) (*Lnk407)(); |
(void) (*Lnk419)(); |
4278 |
if(vs_base>=vs_top){vs_top=sup;goto T1409;} |
if(vs_base>=vs_top){vs_top=sup;goto T1286;} |
4279 |
V712= vs_base[0]; |
V640= vs_base[0]; |
4280 |
vs_base++; |
vs_base++; |
4281 |
if(vs_base>=vs_top){vs_top=sup;goto T1410;} |
if(vs_base>=vs_top){vs_top=sup;goto T1287;} |
4282 |
V713= vs_base[0]; |
V641= vs_base[0]; |
4283 |
vs_base++; |
vs_base++; |
4284 |
if(vs_base>=vs_top){vs_top=sup;goto T1411;} |
if(vs_base>=vs_top){vs_top=sup;goto T1288;} |
4285 |
V714= vs_base[0]; |
V642= vs_base[0]; |
4286 |
vs_base++; |
vs_base++; |
4287 |
if(vs_base>=vs_top){vs_top=sup;goto T1412;} |
if(vs_base>=vs_top){vs_top=sup;goto T1289;} |
4288 |
V715= vs_base[0]; |
V643= vs_base[0]; |
4289 |
vs_base++; |
vs_base++; |
4290 |
if(vs_base>=vs_top){vs_top=sup;goto T1413;} |
if(vs_base>=vs_top){vs_top=sup;goto T1290;} |
4291 |
V716= vs_base[0]; |
V644= vs_base[0]; |
4292 |
vs_base++; |
vs_base++; |
4293 |
if(vs_base>=vs_top){vs_top=sup;goto T1414;} |
if(vs_base>=vs_top){vs_top=sup;goto T1291;} |
4294 |
V717= vs_base[0]; |
V645= vs_base[0]; |
4295 |
vs_top=sup; |
vs_top=sup; |
4296 |
goto T1415; |
goto T1292; |
4297 |
goto T1409; |
goto T1286; |
4298 |
T1409:; |
T1286:; |
4299 |
V712= Cnil; |
V640= Cnil; |
4300 |
goto T1410; |
goto T1287; |
4301 |
T1410:; |
T1287:; |
4302 |
V713= Cnil; |
V641= Cnil; |
4303 |
goto T1411; |
goto T1288; |
4304 |
T1411:; |
T1288:; |
4305 |
V714= Cnil; |
V642= Cnil; |
4306 |
goto T1412; |
goto T1289; |
4307 |
T1412:; |
T1289:; |
4308 |
V715= Cnil; |
V643= Cnil; |
4309 |
goto T1413; |
goto T1290; |
4310 |
T1413:; |
T1290:; |
4311 |
V716= Cnil; |
V644= Cnil; |
4312 |
goto T1414; |
goto T1291; |
4313 |
T1414:; |
T1291:; |
4314 |
V717= Cnil; |
V645= Cnil; |
4315 |
goto T1415; |
goto T1292; |
4316 |
T1415:; |
T1292:; |
4317 |
if(((V698))==Cnil){ |
if(((V628))==Cnil){ |
4318 |
goto T1416;} |
goto T1293;} |
4319 |
if(((V700))!=Cnil){ |
if(((V630))!=Cnil){ |
4320 |
goto T1416;} |
goto T1293;} |
4321 |
{object V718; |
{object V646; |
4322 |
object V719; |
object V647; |
4323 |
object V720; |
object V648; |
4324 |
V718= CMPmake_fixnum((long)(*(LnkLI394))((V697))); |
V646= CMPmake_fixnum((long)(*(LnkLI442))((V627))); |
4325 |
V719= STREF(object,(V697),12); |
V647= STREF(object,(V627),12); |
4326 |
V720= STREF(object,(V697),16); |
V648= STREF(object,(V627),16); |
4327 |
if(!(number_compare((V712),(V718))==0)){ |
if(!(number_compare((V640),(V646))==0)){ |
4328 |
goto T1424;} |
goto T1301;} |
4329 |
if(!(number_compare((V713),(V719))==0)){ |
if(!(number_compare((V641),(V647))==0)){ |
4330 |
goto T1424;} |
goto T1301;} |
4331 |
if((V714)!=Cnil){ |
if((V642)!=Cnil){ |
4332 |
V721= (V714); |
V649= (V642); |
4333 |
goto T1430;} |
goto T1307;} |
4334 |
V721= (V715); |
V649= (V643); |
4335 |
goto T1430; |
goto T1307; |
4336 |
T1430:; |
T1307:; |
4337 |
V722 = (V720); |
if((V649)==((V648))){ |
4338 |
if((V721)==(V722)){ |
goto T1293;} |
4339 |
goto T1416;} |
goto T1301; |
4340 |
goto T1424; |
T1301:; |
4341 |
T1424:; |
base[4]= VV[258]; |
4342 |
base[4]= VV[245]; |
base[5]= (V624); |
4343 |
base[5]= (V694); |
base[6]= (V622); |
|
base[6]= (V692); |
|
4344 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4345 |
Lerror(); |
Lerror(); |
4346 |
vs_top=sup;} |
vs_top=sup;} |
4347 |
goto T1416; |
goto T1293; |
4348 |
T1416:; |
T1293:; |
4349 |
if(((V695))==Cnil){ |
if(((V625))==Cnil){ |
4350 |
goto T1434;} |
goto T1311;} |
4351 |
if(equal(STREF(object,(V697),0),V694)){ |
if(equal(STREF(object,(V627),0),V624)){ |
4352 |
goto T1434;} |
goto T1311;} |
4353 |
V724 = (V697); |
V651= Ct; |
4354 |
V725 = V694; |
STSET(object,(V627),0, V624); |
4355 |
V726= Ct; |
(void)(V624); |
4356 |
STSET(object,V724,0, V725); |
goto T1311; |
4357 |
(void)(V725); |
T1311:; |
4358 |
goto T1434; |
if(((V625))!=Cnil){ |
4359 |
T1434:; |
goto T1317;} |
4360 |
if(((V695))!=Cnil){ |
if(((V626))!=Cnil){ |
4361 |
goto T1440;} |
goto T1317;} |
4362 |
if(((V696))!=Cnil){ |
if((STREF(object,(V627),4))!=Cnil){ |
4363 |
goto T1440;} |
goto T1316;} |
4364 |
if((STREF(object,(V697),4))!=Cnil){ |
goto T1317; |
4365 |
goto T1439;} |
T1317:; |
4366 |
goto T1440; |
{object V652; |
4367 |
T1440:; |
V652= (*(LnkLI443))((V624),(V640),(V626)); |
4368 |
{object V727; |
if(equal(STREF(object,(V627),4),(V652))){ |
4369 |
V727= (*(LnkLI428))((V694),(V712),(V696)); |
goto T1316;} |
4370 |
if(equal(STREF(object,(V697),4),(V727))){ |
V653= Ct; |
4371 |
goto T1439;} |
STSET(object,(V627),4, (V652)); |
4372 |
V728 = (V697); |
(void)((V652));} |
4373 |
V729 = (V727); |
goto T1316; |
4374 |
V730= Ct; |
T1316:; |
4375 |
STSET(object,V728,4, V729); |
{object V654; |
4376 |
(void)(V729);} |
base[4]= (V640); |
|
goto T1439; |
|
|
T1439:; |
|
|
{object V731; |
|
|
base[4]= (V712); |
|
4377 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4378 |
Lmake_list(); |
Lmake_list(); |
4379 |
vs_top=sup; |
vs_top=sup; |
4380 |
V731= vs_base[0]; |
V654= vs_base[0]; |
4381 |
if(equal(STREF(object,(V697),8),(V731))){ |
if(equal(STREF(object,(V627),8),(V654))){ |
4382 |
goto T1449;} |
goto T1326;} |
4383 |
V732 = (V697); |
V655= Ct; |
4384 |
V733 = (V731); |
STSET(object,(V627),8, (V654)); |
4385 |
V734= Ct; |
(void)((V654));} |
4386 |
STSET(object,V732,8, V733); |
goto T1326; |
4387 |
(void)(V733);} |
T1326:; |
4388 |
goto T1449; |
if(equal(STREF(object,(V627),12),V641)){ |
4389 |
T1449:; |
goto T1331;} |
4390 |
if(equal(STREF(object,(V697),12),V713)){ |
V657= Ct; |
4391 |
goto T1454;} |
STSET(object,(V627),12, V641); |
4392 |
V736 = (V697); |
(void)(V641); |
4393 |
V737 = V713; |
goto T1331; |
4394 |
V738= Ct; |
T1331:; |
4395 |
STSET(object,V736,12, V737); |
{object V658; |
4396 |
(void)(V737); |
if((V642)!=Cnil){ |
4397 |
goto T1454; |
V659= (V642); |
4398 |
T1454:; |
goto T1336;} |
4399 |
{object V739; |
V659= (V643); |
4400 |
if((V714)!=Cnil){ |
goto T1336; |
4401 |
V740= (V714); |
T1336:; |
4402 |
goto T1459;} |
V658= ((((V659)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
4403 |
V740= (V715); |
if(equal(STREF(object,(V627),16),(V658))){ |
4404 |
goto T1459; |
goto T1334;} |
4405 |
T1459:; |
V660= Ct; |
4406 |
V739= ((((V740)==Cnil?Ct:Cnil))==Cnil?Ct:Cnil); |
STSET(object,(V627),16, (V658)); |
4407 |
if(equal(STREF(object,(V697),16),(V739))){ |
(void)((V658));} |
4408 |
goto T1457;} |
goto T1334; |
4409 |
V741 = (V697); |
T1334:; |
4410 |
V742 = (V739); |
{object V661; |
4411 |
V743= Ct; |
if(((V625))==Cnil){ |
4412 |
STSET(object,V741,16, V742); |
goto T1341;} |
4413 |
(void)(V742);} |
if(((V644))==Cnil){ |
4414 |
goto T1457; |
goto T1344;} |
4415 |
T1457:; |
V661= Ct; |
4416 |
{object V744; |
goto T1339; |
4417 |
if(((V695))==Cnil){ |
goto T1344; |
4418 |
goto T1464;} |
T1344:; |
4419 |
if(((V716))==Cnil){ |
V661= (V645); |
4420 |
goto T1467;} |
goto T1339; |
4421 |
V744= Ct; |
goto T1341; |
4422 |
goto T1462; |
T1341:; |
4423 |
goto T1467; |
V661= STREF(object,(V627),16); |
4424 |
T1467:; |
goto T1339; |
4425 |
V744= (V717); |
T1339:; |
4426 |
goto T1462; |
if(equal(STREF(object,(V627),20),(V661))){ |
4427 |
goto T1464; |
goto T1277;} |
4428 |
T1464:; |
V662= Ct; |
4429 |
V744= STREF(object,(V697),16); |
STSET(object,(V627),20, (V661)); |
4430 |
goto T1462; |
(void)((V661));}} |
4431 |
T1462:; |
goto T1277; |
4432 |
if(equal(STREF(object,(V697),20),(V744))){ |
T1277:; |
4433 |
goto T1400;} |
if(((V623))==Cnil){ |
4434 |
V745 = (V697); |
goto T1348;} |
4435 |
V746 = (V744); |
base[4]= (V622); |
4436 |
V747= Ct; |
base[5]= (V627); |
4437 |
STSET(object,V745,20, V746); |
base[6]= (V623); |
|
(void)(V746);}} |
|
|
goto T1400; |
|
|
T1400:; |
|
|
if(((V693))==Cnil){ |
|
|
goto T1471;} |
|
|
base[4]= (V692); |
|
|
base[5]= (V697); |
|
|
base[6]= (V693); |
|
4438 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
4439 |
(void) (*Lnk429)(); |
(void) (*Lnk444)(); |
4440 |
vs_top=sup; |
vs_top=sup; |
4441 |
goto T1471; |
goto T1348; |
4442 |
T1471:; |
T1348:; |
4443 |
(void)((*(LnkLI430))((V692),(V697),(V693),(V698),(V699),(V700))); |
(void)((*(LnkLI445))((V622),(V627),(V623),(V628),(V629),(V630))); |
4444 |
{object V748 = (V697); |
{object V663 = (V627); |
4445 |
VMR70(V748)}} |
VMR67(V663)}} |
4446 |
va_end(ap); |
va_end(ap); |
4447 |
base[0]=base[0]; |
base[0]=base[0]; |
4448 |
return Cnil;} |
return Cnil;} |
4449 |
}} |
}} |
4450 |
/* function definition for CHECK-METHOD-ARG-INFO */ |
/* function definition for CHECK-METHOD-ARG-INFO */ |
4451 |
|
|
4452 |
static void L81() |
static void L77() |
4453 |
{register object *base=vs_base; |
{register object *base=vs_base; |
4454 |
register object *sup=base+VM71; VC71 |
register object *sup=base+VM68; VC68 |
4455 |
vs_check; |
vs_check; |
4456 |
{register object V749; |
{register object V664; |
4457 |
check_arg(3); |
check_arg(3); |
4458 |
V749=(base[1]); |
V664=(base[1]); |
4459 |
vs_top=sup; |
vs_top=sup; |
4460 |
goto TTL; |
goto TTL; |
4461 |
TTL:; |
TTL:; |
4462 |
{object V750; |
{register object V665; |
4463 |
object V751; |
register object V666; |
4464 |
object V752; |
register object V667; |
4465 |
object V753; |
register object V668; |
4466 |
object V754; |
object V669; |
4467 |
if(!(type_of(base[2])==t_cons)){ |
if(!(type_of(base[2])==t_cons)){ |
4468 |
goto T1481;} |
goto T1358;} |
4469 |
base[4]= (*(LnkLI431))(base[2]); |
base[4]= (*(LnkLI446))(base[2]); |
4470 |
goto T1479; |
goto T1356; |
4471 |
goto T1481; |
goto T1358; |
4472 |
T1481:; |
T1358:; |
4473 |
base[5]= base[2]; |
base[5]= base[2]; |
4474 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
4475 |
(void) (*Lnk47)(Lclptr47); |
(void) (*Lnk51)(Lclptr51); |
4476 |
vs_top=sup; |
vs_top=sup; |
4477 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
4478 |
goto T1479; |
goto T1356; |
4479 |
T1479:; |
T1356:; |
4480 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4481 |
(void) (*Lnk407)(); |
(void) (*Lnk419)(); |
4482 |
if(vs_base>=vs_top){vs_top=sup;goto T1484;} |
if(vs_base>=vs_top){vs_top=sup;goto T1361;} |
4483 |
V750= vs_base[0]; |
V665= vs_base[0]; |
4484 |
vs_base++; |
vs_base++; |
4485 |
if(vs_base>=vs_top){vs_top=sup;goto T1485;} |
if(vs_base>=vs_top){vs_top=sup;goto T1362;} |
4486 |
V751= vs_base[0]; |
V666= vs_base[0]; |
4487 |
vs_base++; |
vs_base++; |
4488 |
if(vs_base>=vs_top){vs_top=sup;goto T1486;} |
if(vs_base>=vs_top){vs_top=sup;goto T1363;} |
4489 |
V752= vs_base[0]; |
V667= vs_base[0]; |
4490 |
vs_base++; |
vs_base++; |
4491 |
if(vs_base>=vs_top){vs_top=sup;goto T1487;} |
if(vs_base>=vs_top){vs_top=sup;goto T1364;} |
4492 |
V753= vs_base[0]; |
V668= vs_base[0]; |
4493 |
vs_base++; |
vs_base++; |
4494 |
if(vs_base>=vs_top){vs_top=sup;goto T1488;} |
if(vs_base>=vs_top){vs_top=sup;goto T1365;} |
4495 |
V754= vs_base[0]; |
V669= vs_base[0]; |
4496 |
vs_base++; |
vs_base++; |
4497 |
if(vs_base>=vs_top){vs_top=sup;goto T1489;} |
if(vs_base>=vs_top){vs_top=sup;goto T1366;} |
4498 |
base[3]=MMcons(vs_base[0],Cnil); |
base[3]=MMcons(vs_base[0],Cnil); |
4499 |
vs_top=sup; |
vs_top=sup; |
4500 |
goto T1490; |
goto T1367; |
4501 |
goto T1484; |
goto T1361; |
4502 |
T1484:; |
T1361:; |
4503 |
V750= Cnil; |
V665= Cnil; |
4504 |
goto T1485; |
goto T1362; |
4505 |
T1485:; |
T1362:; |
4506 |
V751= Cnil; |
V666= Cnil; |
4507 |
goto T1486; |
goto T1363; |
4508 |
T1486:; |
T1363:; |
4509 |
V752= Cnil; |
V667= Cnil; |
4510 |
goto T1487; |
goto T1364; |
4511 |
T1487:; |
T1364:; |
4512 |
V753= Cnil; |
V668= Cnil; |
4513 |
goto T1488; |
goto T1365; |
4514 |
T1488:; |
T1365:; |
4515 |
V754= Cnil; |
V669= Cnil; |
4516 |
goto T1489; |
goto T1366; |
4517 |
T1489:; |
T1366:; |
4518 |
base[3]=MMcons(Cnil,Cnil); |
base[3]=MMcons(Cnil,Cnil); |
4519 |
goto T1490; |
goto T1367; |
4520 |
T1490:; |
T1367:; |
4521 |
{object V755; |
{object V670; |
4522 |
object V756; |
object V671; |
4523 |
object V757; |
object V672; |
4524 |
object V758; |
object V673; |
4525 |
V755= CMPmake_fixnum((long)(*(LnkLI394))((V749))); |
V670= CMPmake_fixnum((long)(*(LnkLI442))((V664))); |
4526 |
V756= STREF(object,(V749),12); |
V671= STREF(object,(V664),12); |
4527 |
V757= STREF(object,(V749),16); |
V672= STREF(object,(V664),16); |
4528 |
V758= STREF(object,(V749),20); |
V673= STREF(object,(V664),20); |
4529 |
if(number_compare((V750),(V755))==0){ |
if(number_compare((V665),(V670))==0){ |
4530 |
goto T1495;} |
goto T1372;} |
4531 |
base[4]= VV[246]; |
base[4]= VV[259]; |
4532 |
base[6]= (V750); |
base[6]= (V665); |
4533 |
base[7]= (V755); |
base[7]= (V670); |
4534 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
4535 |
L83(base); |
L79(base); |
4536 |
vs_top=sup; |
vs_top=sup; |
4537 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
4538 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4539 |
L82(base); |
L78(base); |
4540 |
vs_top=sup; |
vs_top=sup; |
4541 |
goto T1495; |
goto T1372; |
4542 |
T1495:; |
T1372:; |
4543 |
if(number_compare((V751),(V756))==0){ |
if(number_compare((V666),(V671))==0){ |
4544 |
goto T1502;} |
goto T1379;} |
4545 |
base[4]= VV[247]; |
base[4]= VV[260]; |
4546 |
base[6]= (V751); |
base[6]= (V666); |
4547 |
base[7]= (V756); |
base[7]= (V671); |
4548 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
4549 |
L83(base); |
L79(base); |
4550 |
vs_top=sup; |
vs_top=sup; |
4551 |
base[5]= vs_base[0]; |
base[5]= vs_base[0]; |
4552 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4553 |
L82(base); |
L78(base); |
4554 |
vs_top=sup; |
vs_top=sup; |
4555 |
goto T1502; |
goto T1379; |
4556 |
T1502:; |
T1379:; |
4557 |
if((V752)!=Cnil){ |
if((V667)!=Cnil){ |
4558 |
V759= (V752); |
V674= (V667); |
4559 |
goto T1512;} |
goto T1389;} |
4560 |
V759= (V753); |
V674= (V668); |
4561 |
goto T1512; |
goto T1389; |
4562 |
T1512:; |
T1389:; |
4563 |
V760 = (V757); |
if((V674)==((V672))){ |
4564 |
if((V759)==(V760)){ |
goto T1386;} |
4565 |
goto T1509;} |
base[4]= VV[261]; |
|
base[4]= VV[248]; |
|
4566 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4567 |
Lerror(); |
L78(base); |
4568 |
vs_top=sup; |
vs_top=sup; |
4569 |
goto T1509; |
goto T1386; |
4570 |
T1509:; |
T1386:; |
4571 |
if(!(type_of((V758))==t_cons)){ |
if(!(type_of((V673))==t_cons)){ |
4572 |
goto T1515;} |
goto T1392;} |
4573 |
if(((V753))==Cnil){ |
if(((V668))==Cnil){ |
4574 |
goto T1519;} |
goto T1396;} |
4575 |
if(((V752))==Cnil){ |
if(((V667))==Cnil){ |
4576 |
goto T1518;} |
goto T1395;} |
4577 |
goto T1519; |
goto T1396; |
4578 |
T1519:; |
T1396:; |
4579 |
if(((V754))!=Cnil){ |
if(((V669))!=Cnil){ |
4580 |
goto T1518;} |
goto T1395;} |
4581 |
base[4]= |
base[4]= |
4582 |
make_cclosure_new(LC133,Cnil,base[3],Cdata); |
make_cclosure_new(LC128,Cnil,base[3],Cdata); |
4583 |
base[5]= (V758); |
base[5]= (V673); |
4584 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4585 |
(void) (*Lnk366)(); |
(void) (*Lnk381)(); |
4586 |
vs_top=sup; |
vs_top=sup; |
4587 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4588 |
goto T1518;} |
goto T1395;} |
4589 |
base[4]= VV[249]; |
base[4]= VV[262]; |
4590 |
base[5]= (V758); |
base[5]= (V673); |
4591 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
4592 |
L82(base); |
L78(base); |
4593 |
return; |
return; |
4594 |
goto T1518; |
goto T1395; |
4595 |
T1518:; |
T1395:; |
4596 |
base[4]= Cnil; |
base[4]= Cnil; |
4597 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4598 |
return; |
return; |
4599 |
goto T1515; |
goto T1392; |
4600 |
T1515:; |
T1392:; |
4601 |
base[4]= Cnil; |
base[4]= Cnil; |
4602 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4603 |
return;}} |
return;}} |
4605 |
} |
} |
4606 |
/* local entry for function SET-ARG-INFO1 */ |
/* local entry for function SET-ARG-INFO1 */ |
4607 |
|
|
4608 |
static object LI84(V767,V768,V769,V770,V771,V772) |
static object LI80(V681,V682,V683,V684,V685,V686) |
4609 |
|
|
4610 |
object V767;object V768;object V769;object V770;object V771;object V772; |
object V681;object V682;object V683;object V684;object V685;object V686; |
4611 |
{ VMB72 VMS72 VMV72 |
{ VMB69 VMS69 VMV69 |
4612 |
goto TTL; |
goto TTL; |
4613 |
TTL:; |
TTL:; |
4614 |
{object V773; |
{object V687; |
4615 |
object V774; |
object V688; |
4616 |
object V775; |
object V689; |
4617 |
register object V776; |
register object V690; |
4618 |
if((V770)==Cnil){ |
if((V684)==Cnil){ |
4619 |
V773= Cnil; |
V687= Cnil; |
4620 |
goto T1531;} |
goto T1408;} |
4621 |
if((CMPcdr((V770)))!=Cnil){ |
if((CMPcdr((V684)))!=Cnil){ |
4622 |
goto T1532;} |
goto T1409;} |
4623 |
V773= Cnil; |
V687= Cnil; |
4624 |
goto T1531; |
goto T1408; |
4625 |
goto T1532; |
goto T1409; |
4626 |
T1532:; |
T1409:; |
4627 |
V773= (V769); |
V687= (V683); |
4628 |
goto T1531; |
goto T1408; |
4629 |
T1531:; |
T1408:; |
4630 |
V774= CMPmake_fixnum((long)length(STREF(object,(V768),8))); |
V688= CMPmake_fixnum((long)length(STREF(object,(V682),8))); |
4631 |
if(((V773))==Cnil){ |
if(((V687))==Cnil){ |
4632 |
goto T1537;} |
goto T1414;} |
4633 |
V775= STREF(object,(V768),8); |
V689= STREF(object,(V682),8); |
4634 |
goto T1535; |
goto T1412; |
4635 |
goto T1537; |
goto T1414; |
4636 |
T1537:; |
T1414:; |
4637 |
base[4]= (V774); |
base[4]= (V688); |
4638 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4639 |
Lmake_list(); |
Lmake_list(); |
4640 |
vs_top=sup; |
vs_top=sup; |
4641 |
V775= vs_base[0]; |
V689= vs_base[0]; |
4642 |
goto T1535; |
goto T1412; |
4643 |
T1535:; |
T1412:; |
4644 |
if(((V773))==Cnil){ |
if(((V687))==Cnil){ |
4645 |
goto T1542;} |
goto T1419;} |
4646 |
V776= STREF(object,(V768),24); |
V690= STREF(object,(V682),24); |
4647 |
goto T1540; |
goto T1417; |
4648 |
goto T1542; |
goto T1419; |
4649 |
T1542:; |
T1419:; |
4650 |
V776= Cnil; |
V690= Cnil; |
4651 |
goto T1540; |
goto T1417; |
4652 |
T1540:; |
T1417:; |
4653 |
if(((*(LnkLI432))((V768)))==Cnil){ |
if(((*(LnkLI447))((V682)))==Cnil){ |
4654 |
goto T1530;} |
goto T1407;} |
4655 |
{register object V777; |
{register object V691; |
4656 |
register object V778; |
register object V692; |
4657 |
if(((V769))==Cnil){ |
if(((V683))==Cnil){ |
4658 |
goto T1549;} |
goto T1426;} |
4659 |
V777= make_cons((V769),Cnil); |
V691= make_cons((V683),Cnil); |
4660 |
goto T1547; |
goto T1424; |
4661 |
goto T1549; |
goto T1426; |
4662 |
T1549:; |
T1426:; |
4663 |
V777= (V770); |
V691= (V684); |
4664 |
goto T1547; |
goto T1424; |
4665 |
T1547:; |
T1424:; |
4666 |
V778= CMPcar((V777)); |
V692= CMPcar((V691)); |
4667 |
goto T1553; |
goto T1430; |
4668 |
T1553:; |
T1430:; |
4669 |
if(!(((V777))==Cnil)){ |
if(!(((V691))==Cnil)){ |
4670 |
goto T1554;} |
goto T1431;} |
4671 |
goto T1546; |
goto T1423; |
4672 |
goto T1554; |
goto T1431; |
4673 |
T1554:; |
T1431:; |
4674 |
{object V779; |
{object V693; |
4675 |
register object V780; |
register object V694; |
4676 |
register object V781; |
register object V695; |
4677 |
if(((VV[17]->s.s_dbind))==(VV[18])){ |
if(((VV[21]->s.s_dbind))==(VV[22])){ |
4678 |
goto T1560;} |
goto T1437;} |
4679 |
if(type_of((V778))==t_cons){ |
if(type_of((V692))==t_cons){ |
4680 |
goto T1561;} |
goto T1438;} |
4681 |
goto T1560; |
goto T1437; |
4682 |
T1560:; |
T1437:; |
4683 |
base[9]= (V778); |
base[9]= (V692); |
4684 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4685 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk448)(Lclptr448); |
4686 |
vs_top=sup; |
vs_top=sup; |
4687 |
V779= vs_base[0]; |
V693= vs_base[0]; |
4688 |
goto T1559; |
goto T1436; |
4689 |
goto T1561; |
goto T1438; |
4690 |
T1561:; |
T1438:; |
4691 |
V779= (VFUN_NARGS=2,(*(LnkLI434))((V778),Ct)); |
V693= (VFUN_NARGS=2,(*(LnkLI449))((V692),Ct)); |
4692 |
goto T1559; |
goto T1436; |
4693 |
T1559:; |
T1436:; |
4694 |
if(((VV[17]->s.s_dbind))==(VV[18])){ |
if(((VV[21]->s.s_dbind))==(VV[22])){ |
4695 |
goto T1567;} |
goto T1444;} |
4696 |
if(type_of((V778))==t_cons){ |
if(type_of((V692))==t_cons){ |
4697 |
goto T1568;} |
goto T1445;} |
4698 |
goto T1567; |
goto T1444; |
4699 |
T1567:; |
T1444:; |
4700 |
V780= (*(LnkLI363))((V778)); |
V694= (*(LnkLI378))((V692)); |
4701 |
goto T1566; |
goto T1443; |
4702 |
goto T1568; |
goto T1445; |
4703 |
T1568:; |
T1445:; |
4704 |
V780= (*(LnkLI435))((V778)); |
V694= (*(LnkLI450))((V692)); |
4705 |
goto T1566; |
goto T1443; |
4706 |
T1566:; |
T1443:; |
4707 |
if(((V780))==Cnil){ |
if(((V694))==Cnil){ |
4708 |
goto T1574;} |
goto T1451;} |
4709 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
4710 |
goto T1573;} |
goto T1450;} |
4711 |
base[9]= (V767); |
base[9]= (V681); |
4712 |
vs_top=(vs_base=base+9)+1; |
vs_top=(vs_base=base+9)+1; |
4713 |
(void) (*Lnk436)(Lclptr436); |
(void) (*Lnk451)(Lclptr451); |
4714 |
vs_top=sup; |
vs_top=sup; |
4715 |
V782= vs_base[0]; |
V696= vs_base[0]; |
4716 |
V783 = (VV[253]->s.s_dbind); |
if(!((V696)==((VV[266]->s.s_dbind)))){ |
4717 |
if(!((V782)==(V783))){ |
goto T1451;} |
4718 |
goto T1574;} |
goto T1450; |
4719 |
goto T1573; |
T1450:; |
4720 |
T1573:; |
if(!(((V694))==((VV[267]->s.s_dbind)))){ |
4721 |
if(!(((V780))==((VV[254]->s.s_dbind)))){ |
goto T1460;} |
4722 |
goto T1583;} |
V695= VV[268]; |
4723 |
V781= VV[255]; |
goto T1449; |
4724 |
goto T1572; |
goto T1460; |
4725 |
goto T1583; |
T1460:; |
4726 |
T1583:; |
if(!(((V694))==((VV[269]->s.s_dbind)))){ |
4727 |
if(!(((V780))==((VV[256]->s.s_dbind)))){ |
goto T1463;} |
4728 |
goto T1586;} |
V695= VV[270]; |
4729 |
V781= VV[257]; |
goto T1449; |
4730 |
goto T1572; |
goto T1463; |
4731 |
goto T1586; |
T1463:; |
4732 |
T1586:; |
if(!(((V694))==((VV[271]->s.s_dbind)))){ |
4733 |
if(!(((V780))==((VV[258]->s.s_dbind)))){ |
goto T1466;} |
4734 |
goto T1589;} |
V695= VV[272]; |
4735 |
V781= VV[259]; |
goto T1449; |
4736 |
goto T1572; |
goto T1466; |
4737 |
goto T1589; |
T1466:; |
4738 |
T1589:; |
V695= Cnil; |
4739 |
V781= Cnil; |
goto T1449; |
4740 |
goto T1572; |
goto T1451; |
4741 |
goto T1574; |
T1451:; |
4742 |
T1574:; |
V695= Cnil; |
4743 |
V781= Cnil; |
goto T1449; |
4744 |
goto T1572; |
T1449:; |
4745 |
T1572:; |
base[10]=VV[452]->s.s_gfdef; |
4746 |
base[10]=VV[437]->s.s_gfdef; |
{object V697; |
4747 |
{object V784; |
object V698= (V689); |
4748 |
object V785= (V775); |
object V699= (V693); |
4749 |
object V786= (V779); |
if(V698==Cnil||V699==Cnil){ |
4750 |
if(V785==Cnil||V786==Cnil){ |
V689= Cnil; |
4751 |
V775= Cnil; |
goto T1469;} |
4752 |
goto T1592;} |
base[9]=V697=MMcons(Cnil,Cnil); |
4753 |
base[9]=V784=MMcons(Cnil,Cnil); |
goto T1470; |
4754 |
goto T1593; |
T1470:; |
4755 |
T1593:; |
base[11]= (V698->c.c_car); |
4756 |
base[11]= (V785->c.c_car); |
base[12]= (V699->c.c_car); |
|
base[12]= (V786->c.c_car); |
|
4757 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
4758 |
(void) (*Lnk437)(); |
(void) (*Lnk452)(); |
4759 |
vs_top=sup; |
vs_top=sup; |
4760 |
(V784->c.c_car)= vs_base[0]; |
(V697->c.c_car)= vs_base[0]; |
4761 |
if((V785=MMcdr(V785))==Cnil||(V786=MMcdr(V786))==Cnil){ |
if((V698=MMcdr(V698))==Cnil||(V699=MMcdr(V699))==Cnil){ |
4762 |
V775= base[9]; |
V689= base[9]; |
4763 |
goto T1592;} |
goto T1469;} |
4764 |
V784=MMcdr(V784)=MMcons(Cnil,Cnil); |
V697=MMcdr(V697)=MMcons(Cnil,Cnil); |
4765 |
goto T1593;} |
goto T1470;} |
4766 |
goto T1592; |
goto T1469; |
4767 |
T1592:; |
T1469:; |
4768 |
if(((V776))!=Cnil){ |
if(((V690))!=Cnil){ |
4769 |
goto T1599;} |
goto T1476;} |
4770 |
V776= (V781); |
V690= (V695); |
4771 |
goto T1597; |
goto T1474; |
4772 |
goto T1599; |
goto T1476; |
4773 |
T1599:; |
T1476:; |
4774 |
if(!(((V776))==((V781)))){ |
if(!(((V690))==((V695)))){ |
4775 |
goto T1602;} |
goto T1479;} |
4776 |
goto T1597; |
goto T1474; |
4777 |
goto T1602; |
goto T1479; |
4778 |
T1602:; |
T1479:; |
4779 |
V776= Cnil; |
V690= Cnil; |
4780 |
goto T1597; |
goto T1474; |
4781 |
T1597:;} |
T1474:;} |
4782 |
V777= CMPcdr((V777)); |
V691= CMPcdr((V691)); |
4783 |
V778= CMPcar((V777)); |
V692= CMPcar((V691)); |
4784 |
goto T1553;} |
goto T1430;} |
4785 |
goto T1546; |
goto T1423; |
4786 |
T1546:; |
T1423:; |
4787 |
if(equal(STREF(object,(V768),8),V775)){ |
if(equal(STREF(object,(V682),8),V689)){ |
4788 |
goto T1609;} |
goto T1486;} |
4789 |
V788 = (V768); |
V701= Ct; |
4790 |
V789 = V775; |
STSET(object,(V682),8, V689); |
4791 |
V790= Ct; |
(void)(V689); |
4792 |
STSET(object,V788,8, V789); |
goto T1486; |
4793 |
(void)(V789); |
T1486:; |
4794 |
goto T1609; |
if(equal(STREF(object,(V682),24),V690)){ |
4795 |
T1609:; |
goto T1407;} |
4796 |
if(equal(STREF(object,(V768),24),V776)){ |
V703= Ct; |
4797 |
goto T1530;} |
STSET(object,(V682),24, V690); |
4798 |
V792 = (V768); |
(void)(V690);} |
4799 |
V793 = V776; |
goto T1407; |
4800 |
V794= Ct; |
T1407:; |
4801 |
STSET(object,V792,24, V793); |
if(((V685))==Cnil){ |
4802 |
(void)(V793);} |
goto T1492;} |
4803 |
goto T1530; |
if(((V686))==Cnil){ |
4804 |
T1530:; |
goto T1491;} |
4805 |
if(((V771))==Cnil){ |
goto T1492; |
4806 |
goto T1615;} |
T1492:; |
4807 |
if(((V772))==Cnil){ |
{object V704; |
4808 |
goto T1614;} |
object V705; |
4809 |
goto T1615; |
if(((*(LnkLI453))((V681)))==Cnil){ |
4810 |
T1615:; |
goto T1498;} |
|
{object V795; |
|
|
object V796; |
|
|
if(((*(LnkLI438))((V767)))==Cnil){ |
|
|
goto T1621;} |
|
4811 |
base[0]= Ct; |
base[0]= Ct; |
4812 |
base[1]= Ct; |
base[1]= Ct; |
4813 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
4814 |
goto T1619; |
goto T1496; |
4815 |
goto T1621; |
goto T1498; |
4816 |
T1621:; |
T1498:; |
4817 |
base[0]= (V767); |
base[0]= (V681); |
4818 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4819 |
(void) (*Lnk439)(); |
(void) (*Lnk454)(); |
4820 |
goto T1619; |
goto T1496; |
4821 |
T1619:; |
T1496:; |
4822 |
if(vs_base>=vs_top){vs_top=sup;goto T1626;} |
if(vs_base>=vs_top){vs_top=sup;goto T1503;} |
4823 |
V795= vs_base[0]; |
V704= vs_base[0]; |
4824 |
vs_base++; |
vs_base++; |
4825 |
if(vs_base>=vs_top){vs_top=sup;goto T1627;} |
if(vs_base>=vs_top){vs_top=sup;goto T1504;} |
4826 |
V796= vs_base[0]; |
V705= vs_base[0]; |
4827 |
vs_top=sup; |
vs_top=sup; |
4828 |
goto T1628; |
goto T1505; |
4829 |
goto T1626; |
goto T1503; |
4830 |
T1626:; |
T1503:; |
4831 |
V795= Cnil; |
V704= Cnil; |
4832 |
goto T1627; |
goto T1504; |
4833 |
T1627:; |
T1504:; |
4834 |
V796= Cnil; |
V705= Cnil; |
4835 |
goto T1628; |
goto T1505; |
4836 |
T1628:; |
T1505:; |
4837 |
if(equal(STREF(object,(V768),32),V795)){ |
if(equal(STREF(object,(V682),32),V704)){ |
4838 |
goto T1629;} |
goto T1506;} |
4839 |
V798 = (V768); |
V707= Ct; |
4840 |
V799 = V795; |
STSET(object,(V682),32, V704); |
4841 |
V800= Ct; |
(void)(V704); |
4842 |
STSET(object,V798,32, V799); |
goto T1506; |
4843 |
(void)(V799); |
T1506:; |
4844 |
goto T1629; |
if(equal(STREF(object,(V682),36),V705)){ |
4845 |
T1629:; |
goto T1509;} |
4846 |
if(equal(STREF(object,(V768),36),V796)){ |
V709= Ct; |
4847 |
goto T1632;} |
STSET(object,(V682),36, V705); |
4848 |
V802 = (V768); |
(void)(V705); |
4849 |
V803 = V796; |
goto T1509; |
4850 |
V804= Ct; |
T1509:; |
4851 |
STSET(object,V802,36, V803); |
if((STREF(object,(V682),36))!=Cnil){ |
4852 |
(void)(V803); |
goto T1491;} |
4853 |
goto T1632; |
if(equal(STREF(object,(V682),24),Ct)){ |
4854 |
T1632:; |
goto T1491;} |
4855 |
if((STREF(object,(V768),36))!=Cnil){ |
V711= Ct; |
4856 |
goto T1614;} |
STSET(object,(V682),24, Ct); |
4857 |
if(equal(STREF(object,(V768),24),Ct)){ |
(void)(Ct);} |
4858 |
goto T1614;} |
goto T1491; |
4859 |
V806 = (V768); |
T1491:; |
4860 |
V807 = Ct; |
if(((V685))!=Cnil){ |
4861 |
V808= Ct; |
goto T1516;} |
4862 |
STSET(object,V806,24, V807); |
{object V712; |
4863 |
(void)(V807);} |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
4864 |
goto T1614; |
goto T1521;} |
4865 |
T1614:; |
base[0]= (V681); |
|
if(((V771))!=Cnil){ |
|
|
goto T1639;} |
|
|
{object V809; |
|
|
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
|
|
goto T1644;} |
|
|
base[0]= (V767); |
|
4866 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
4867 |
(void) (*Lnk440)(Lclptr440); |
(void) (*Lnk455)(Lclptr455); |
4868 |
vs_top=sup; |
vs_top=sup; |
4869 |
V809= vs_base[0]; |
V712= vs_base[0]; |
4870 |
goto T1642; |
goto T1519; |
4871 |
goto T1644; |
goto T1521; |
4872 |
T1644:; |
T1521:; |
4873 |
V809= (*(LnkLI441))((V767)); |
V712= (*(LnkLI456))((V681)); |
4874 |
goto T1642; |
goto T1519; |
4875 |
T1642:; |
T1519:; |
4876 |
{object V810; |
{object V713; |
4877 |
{object V811; |
{object V714; |
4878 |
object V812; |
object V715; |
4879 |
if(!(type_of((V809))!=t_cons)){ |
if(!(type_of((V712))!=t_cons)){ |
4880 |
goto T1650;} |
goto T1527;} |
4881 |
V811= (V809); |
V714= (V712); |
4882 |
goto T1648; |
goto T1525; |
4883 |
goto T1650; |
goto T1527; |
4884 |
T1650:; |
T1527:; |
4885 |
V811= CMPcadr((V809)); |
V714= CMPcadr((V712)); |
4886 |
goto T1648; |
goto T1525; |
4887 |
T1648:;{object V813; |
T1525:;{object V716; |
4888 |
V813= (VV[218]->s.s_dbind); |
V716= (VV[228]->s.s_dbind); |
4889 |
base[2]= (VV[218]->s.s_dbind); |
base[2]= (VV[228]->s.s_dbind); |
4890 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4891 |
Lpackage_use_list(); |
Lpackage_use_list(); |
4892 |
vs_top=sup; |
vs_top=sup; |
4893 |
V814= vs_base[0]; |
V717= vs_base[0]; |
4894 |
V812= make_cons(V813,V814);} |
V715= make_cons(V716,V717);} |
4895 |
if((V811)==Cnil){ |
if((V714)==Cnil){ |
4896 |
V810= Cnil; |
V713= Cnil; |
4897 |
goto T1647;} |
goto T1524;} |
4898 |
if(type_of((V811))==t_symbol){ |
if(type_of((V714))==t_symbol){ |
4899 |
goto T1655;} |
goto T1532;} |
4900 |
V810= Cnil; |
V713= Cnil; |
4901 |
goto T1647; |
goto T1524; |
4902 |
goto T1655; |
goto T1532; |
4903 |
T1655:; |
T1532:; |
4904 |
base[2]= (V811); |
base[2]= (V714); |
4905 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4906 |
Lsymbol_package(); |
Lsymbol_package(); |
4907 |
vs_top=sup; |
vs_top=sup; |
4908 |
V817= vs_base[0]; |
V720= vs_base[0]; |
4909 |
V818 = (V812); |
{register object x= V720,V719= (V715); |
4910 |
{register object x= V817,V816= V818; |
while(V719!=Cnil) |
4911 |
while(V816!=Cnil) |
if(x==(V719->c.c_car)){ |
4912 |
if(x==(V816->c.c_car)){ |
V718= V719; |
4913 |
V815= V816; |
goto T1536; |
4914 |
goto T1659; |
}else V719=V719->c.c_cdr; |
4915 |
}else V816=V816->c.c_cdr; |
V718= Cnil;} |
4916 |
V815= Cnil;} |
goto T1536; |
4917 |
goto T1659; |
T1536:; |
4918 |
T1659:; |
if((((V718)==Cnil?Ct:Cnil))==Cnil){ |
4919 |
if((((V815)==Cnil?Ct:Cnil))==Cnil){ |
goto T1534;} |
4920 |
goto T1657;} |
V713= Cnil; |
4921 |
V810= Cnil; |
goto T1524; |
4922 |
goto T1647; |
goto T1534; |
4923 |
goto T1657; |
T1534:; |
4924 |
T1657:; |
base[2]= VV[273]; |
4925 |
base[2]= VV[260]; |
base[3]= symbol_name((V714)); |
|
base[3]= symbol_name((V811)); |
|
4926 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4927 |
(void) (*Lnk442)(); |
(void) (*Lnk457)(); |
4928 |
vs_top=sup; |
vs_top=sup; |
4929 |
V819= vs_base[0]; |
V721= vs_base[0]; |
4930 |
V810= ((V819)==Cnil?Ct:Cnil);} |
V713= ((V721)==Cnil?Ct:Cnil);} |
4931 |
goto T1647; |
goto T1524; |
4932 |
T1647:; |
T1524:; |
4933 |
if(equal(STREF(object,(V768),28),(V810))){ |
if(equal(STREF(object,(V682),28),(V713))){ |
4934 |
goto T1639;} |
goto T1516;} |
4935 |
V820 = (V768); |
V722= Ct; |
4936 |
V821 = (V810); |
STSET(object,(V682),28, (V713)); |
4937 |
V822= Ct; |
(void)((V713));}} |
4938 |
STSET(object,V820,28, V821); |
goto T1516; |
4939 |
(void)(V821);}} |
T1516:; |
4940 |
goto T1639; |
{object V723; |
4941 |
T1639:; |
if(!(((((VV[21]->s.s_dbind))==(VV[22])?Ct:Cnil))==Cnil)){ |
4942 |
{object V823; |
goto T1546;} |
4943 |
if(!(((((VV[17]->s.s_dbind))==(VV[18])?Ct:Cnil))==Cnil)){ |
V723= Ct; |
4944 |
goto T1669;} |
goto T1545; |
4945 |
V823= Ct; |
goto T1546; |
4946 |
goto T1668; |
T1546:; |
4947 |
goto T1669; |
{object V724; |
4948 |
T1669:; |
object V725; |
4949 |
{object V824; |
base[2]= (V681); |
4950 |
object V825; |
vs_top=(vs_base=base+2)+1; |
4951 |
base[2]= (V767); |
(void) (*Lnk373)(Lclptr373); |
4952 |
vs_top=(vs_base=base+2)+1; |
vs_top=sup; |
4953 |
(void) (*Lnk358)(Lclptr358); |
V724= vs_base[0]; |
4954 |
vs_top=sup; |
base[2]= (VV[375]->s.s_gfdef); |
4955 |
V824= vs_base[0]; |
base[4]= (V724); |
|
base[2]= (VV[360]->s.s_gfdef); |
|
|
V826 = (V767); |
|
|
base[4]= (V824); |
|
4956 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
4957 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
4958 |
vs_top=sup; |
vs_top=sup; |
4959 |
V827= vs_base[0]; |
V726= vs_base[0]; |
4960 |
base[3]= list(4,V826,V827,VV[261],Cnil); |
base[3]= list(4,(V681),V726,VV[274],Cnil); |
4961 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
4962 |
(void) (*Lnk443)(Lclptr443); |
(void) (*Lnk458)(Lclptr458); |
4963 |
vs_top=sup; |
vs_top=sup; |
4964 |
V825= vs_base[0]; |
V725= vs_base[0]; |
4965 |
if((V825)==Cnil){ |
if((V725)==Cnil){ |
4966 |
V823= Cnil; |
V723= Cnil; |
4967 |
goto T1668;} |
goto T1545;} |
4968 |
if((CMPcdr((V825)))==Cnil){ |
if((CMPcdr((V725)))==Cnil){ |
4969 |
goto T1678;} |
goto T1555;} |
4970 |
V823= Cnil; |
V723= Cnil; |
4971 |
goto T1668; |
goto T1545; |
4972 |
goto T1678; |
goto T1555; |
4973 |
T1678:; |
T1555:; |
4974 |
{object V828; |
{object V727; |
4975 |
base[2]= CMPcar((V825)); |
base[2]= CMPcar((V725)); |
4976 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4977 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk448)(Lclptr448); |
4978 |
vs_top=sup; |
vs_top=sup; |
4979 |
V828= vs_base[0]; |
V727= vs_base[0]; |
4980 |
base[2]= CMPcar((V828)); |
base[2]= CMPcar((V727)); |
4981 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4982 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk305)(Lclptr305); |
4983 |
vs_top=sup; |
vs_top=sup; |
4984 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
4985 |
goto T1682;} |
goto T1559;} |
4986 |
V823= Cnil; |
V723= Cnil; |
4987 |
goto T1668; |
goto T1545; |
4988 |
goto T1682; |
goto T1559; |
4989 |
T1682:; |
T1559:; |
4990 |
base[2]= CMPcar((V828)); |
base[2]= CMPcar((V727)); |
4991 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
4992 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk379)(Lclptr379); |
4993 |
vs_top=sup; |
vs_top=sup; |
4994 |
V829= vs_base[0]; |
V728= vs_base[0]; |
4995 |
if((VV[19])==(V829)){ |
if((VV[23])==(V728)){ |
4996 |
goto T1685;} |
goto T1562;} |
4997 |
V823= Cnil; |
V723= Cnil; |
4998 |
goto T1668; |
goto T1545; |
4999 |
goto T1685; |
goto T1562; |
5000 |
T1685:; |
T1562:; |
5001 |
base[2]= CMPcadr((V828)); |
base[2]= CMPcadr((V727)); |
5002 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5003 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk305)(Lclptr305); |
5004 |
vs_top=sup; |
vs_top=sup; |
5005 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
5006 |
goto T1689;} |
goto T1566;} |
5007 |
V823= Cnil; |
V723= Cnil; |
5008 |
goto T1668; |
goto T1545; |
5009 |
goto T1689; |
goto T1566; |
5010 |
T1689:; |
T1566:; |
5011 |
base[2]= CMPcadr((V828)); |
base[2]= CMPcadr((V727)); |
5012 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5013 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk379)(Lclptr379); |
5014 |
vs_top=sup; |
vs_top=sup; |
5015 |
V830= vs_base[0]; |
V729= vs_base[0]; |
5016 |
V823= ((VV[20])==(V830)?Ct:Cnil);}} |
V723= ((VV[24])==(V729)?Ct:Cnil);}} |
5017 |
goto T1668; |
goto T1545; |
5018 |
T1668:; |
T1545:; |
5019 |
if(equal(STREF(object,(V768),40),(V823))){ |
if(equal(STREF(object,(V682),40),(V723))){ |
5020 |
goto T1667;} |
goto T1544;} |
5021 |
V831 = (V768); |
V730= Ct; |
5022 |
V832 = (V823); |
STSET(object,(V682),40, (V723)); |
5023 |
V833= Ct; |
(void)((V723));} |
5024 |
STSET(object,V831,40, V832); |
goto T1544; |
5025 |
(void)(V832);} |
T1544:; |
5026 |
goto T1667; |
{object V731 = (V682); |
5027 |
T1667:; |
VMR69(V731)} |
|
{object V834 = (V768); |
|
|
VMR72(V834)} |
|
5028 |
base[0]=base[0]; |
base[0]=base[0]; |
5029 |
return Cnil; |
return Cnil; |
5030 |
} |
} |
5031 |
/* local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS */ |
/* local entry for function ENSURE-GENERIC-FUNCTION-USING-CLASS */ |
5032 |
|
|
5033 |
static object LI85(object V836,object V835,object first,...) |
static object LI81(object V733,object V732,object first,...) |
5034 |
{ |
{ |
5035 |
va_list ap; |
va_list ap; |
5036 |
int narg = VFUN_NARGS; VMB73 VMS73 VMV73 |
int narg = VFUN_NARGS; VMB70 VMS70 VMV70 |
5037 |
{register object V837; |
{register object V734; |
5038 |
register object V838; |
register object V735; |
5039 |
object V839; |
object V736; |
5040 |
object V840; |
object V737; |
5041 |
object V841; |
object V738; |
5042 |
|
object V739; |
5043 |
va_start(ap,first); |
va_start(ap,first); |
5044 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
5045 |
V837= V836; |
V734= V733; |
5046 |
V838= V835; |
V735= V732; |
5047 |
narg= narg - 2; |
narg= narg - 2; |
5048 |
V842 = make_list(narg); |
V740 = make_list(narg); |
5049 |
V839= V842; |
V736= V740; |
5050 |
{ |
{ |
5051 |
parse_key_rest_new(V842,narg,Vcs +3,(struct key *)(void *)&LI85key,first,ap); |
parse_key_rest_new(V740,narg,Vcs +3,(struct key *)(void *)&LI81key,first,ap); |
5052 |
if(Vcs[3]==0){ |
if(Vcs[3]==0){ |
5053 |
V840= Cnil; |
V737= Cnil; |
5054 |
V841= Cnil; |
V738= Cnil; |
5055 |
}else{ |
}else{ |
5056 |
V840=(Vcs[3]); |
V737=(Vcs[3]); |
5057 |
V841= Ct;} |
V738= Ct;} |
5058 |
if(((V837))==Cnil){ |
V739=(Vcs[4]); |
5059 |
goto T1698;} |
if(((V734))==Cnil){ |
5060 |
if(((*(LnkLI438))((V837)))==Cnil){ |
goto T1575;} |
5061 |
goto T1698;} |
if(((*(LnkLI453))((V734)))==Cnil){ |
5062 |
{object V843 = (V837); |
goto T1575;} |
5063 |
VMR73(V843)} |
{object V741 = (V734); |
5064 |
goto T1698; |
VMR70(V741)} |
5065 |
T1698:; |
goto T1575; |
5066 |
{register object x= (V838),V844= (VV[262]->s.s_dbind); |
T1575:; |
5067 |
while(V844!=Cnil) |
{register object x= (V735),V742= (VV[275]->s.s_dbind); |
5068 |
if(equal(x,V844->c.c_car->c.c_car) &&V844->c.c_car != Cnil){ |
while(V742!=Cnil) |
5069 |
goto T1704; |
if(equal(x,V742->c.c_car->c.c_car) &&V742->c.c_car != Cnil){ |
5070 |
}else V844=V844->c.c_cdr; |
goto T1581; |
5071 |
goto T1703;} |
}else V742=V742->c.c_cdr; |
5072 |
goto T1704; |
goto T1580;} |
5073 |
T1704:; |
goto T1581; |
5074 |
if(((V837))==Cnil){ |
T1581:; |
5075 |
goto T1706;} |
if(((V734))==Cnil){ |
5076 |
{object V845 = (VFUN_NARGS=4,(*(LnkLI444))((V838),(V840),(V841),(V837))); |
goto T1583;} |
5077 |
VMR73(V845)} |
{object V743 = (VFUN_NARGS=5,(*(LnkLI459))((V735),(V737),(V738),(V734),(V739))); |
5078 |
goto T1706; |
VMR70(V743)} |
5079 |
T1706:; |
goto T1583; |
5080 |
base[0]= VV[263]; |
T1583:; |
5081 |
base[1]= (V838); |
base[0]= VV[276]; |
5082 |
|
base[1]= (V735); |
5083 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5084 |
Lerror(); |
Lerror(); |
5085 |
vs_top=sup; |
vs_top=sup; |
5086 |
{object V846 = vs_base[0]; |
{object V744 = vs_base[0]; |
5087 |
VMR73(V846)} |
VMR70(V744)} |
5088 |
goto T1703; |
goto T1580; |
5089 |
T1703:; |
T1580:; |
5090 |
if(((V837))==Cnil){ |
if(((V734))==Cnil){ |
5091 |
goto T1711;} |
goto T1588;} |
5092 |
base[0]= VV[264]; |
base[0]= VV[277]; |
5093 |
base[1]= (V838); |
base[1]= (V735); |
5094 |
base[2]= VV[262]; |
base[2]= VV[275]; |
5095 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
5096 |
Lerror(); |
Lerror(); |
5097 |
vs_top=sup; |
vs_top=sup; |
5098 |
{object V847 = vs_base[0]; |
{object V745 = vs_base[0]; |
5099 |
VMR73(V847)} |
VMR70(V745)} |
5100 |
goto T1711; |
goto T1588; |
5101 |
T1711:; |
T1588:; |
5102 |
base[0]= V838; |
base[0]= V735; |
5103 |
base[1]= (VV[265]->s.s_dbind); |
base[1]= (VV[278]->s.s_dbind); |
5104 |
base[2]= VV[266]; |
base[2]= VV[279]; |
5105 |
base[3]= (VV[242]->s.s_gfdef); |
base[3]= (VV[255]->s.s_gfdef); |
5106 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
5107 |
Ladjoin(); |
Ladjoin(); |
5108 |
vs_top=sup; |
vs_top=sup; |
5109 |
(VV[265]->s.s_dbind)= vs_base[0]; |
(VV[278]->s.s_dbind)= vs_base[0]; |
5110 |
{object V849 = (VFUN_NARGS=3,(*(LnkLI444))((V838),(V840),(V841))); |
{object V747 = (VFUN_NARGS=5,(*(LnkLI459))((V735),(V737),(V738),Cnil,(V739))); |
5111 |
VMR73(V849)} |
VMR70(V747)} |
5112 |
va_end(ap); |
va_end(ap); |
5113 |
base[0]=base[0]; |
base[0]=base[0]; |
5114 |
return Cnil;} |
return Cnil;} |
5115 |
}} |
}} |
5116 |
/* local entry for function MAKE-EARLY-GF */ |
/* local entry for function MAKE-EARLY-GF */ |
5117 |
|
|
5118 |
static object LI86(object V850,object first,...) |
static object LI82(object V748,object first,...) |
5119 |
{ |
{ |
5120 |
va_list ap; |
va_list ap; |
5121 |
int narg = VFUN_NARGS; VMB74 VMS74 VMV74 |
int narg = VFUN_NARGS; VMB71 VMS71 VMV71 |
5122 |
{register object V851; |
{register object V749; |
5123 |
object V852; |
object V750; |
5124 |
object V853; |
object V751; |
5125 |
object V854; |
object V752; |
5126 |
|
object V753; |
5127 |
va_start(ap,first); |
va_start(ap,first); |
5128 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
5129 |
V851= V850; |
V749= V748; |
5130 |
narg = narg - 1; |
narg = narg - 1; |
5131 |
if (narg <= 0) goto T1722; |
if (narg <= 0) goto T1599; |
5132 |
else { |
else { |
5133 |
V852= first;} |
V750= first;} |
5134 |
if (--narg <= 0) goto T1723; |
if (--narg <= 0) goto T1600; |
5135 |
else { |
else { |
5136 |
V853= va_arg(ap,object);} |
V751= va_arg(ap,object);} |
5137 |
if (--narg <= 0) goto T1724; |
if (--narg <= 0) goto T1601; |
5138 |
else { |
else { |
5139 |
V854= va_arg(ap,object);} |
V752= va_arg(ap,object);} |
5140 |
--narg; goto T1725; |
if (--narg <= 0) goto T1602; |
5141 |
goto T1722; |
else { |
5142 |
T1722:; |
V753= va_arg(ap,object);} |
5143 |
V852= Cnil; |
--narg; goto T1603; |
5144 |
goto T1723; |
goto T1599; |
5145 |
T1723:; |
T1599:; |
5146 |
V853= Cnil; |
V750= Cnil; |
5147 |
goto T1724; |
goto T1600; |
5148 |
T1724:; |
T1600:; |
5149 |
V854= Cnil; |
V751= Cnil; |
5150 |
goto T1725; |
goto T1601; |
5151 |
T1725:; |
T1601:; |
5152 |
base[0]= (VFUN_NARGS=2,(*(LnkLI445))((VV[267]->s.s_dbind),(VV[268]->s.s_dbind))); |
V752= Cnil; |
5153 |
|
goto T1602; |
5154 |
|
T1602:; |
5155 |
|
V753= Cnil; |
5156 |
|
goto T1603; |
5157 |
|
T1603:; |
5158 |
|
base[0]= (VFUN_NARGS=2,(*(LnkLI460))((VV[280]->s.s_dbind),(VV[281]->s.s_dbind))); |
5159 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
5160 |
V855 = (base[0]->c.c_car); |
if((V752)!=Cnil){ |
5161 |
if((V854)!=Cnil){ |
V754= (V752); |
5162 |
V856= (V854); |
goto T1610;} |
5163 |
goto T1731;} |
if(!(((V749))==(VV[282]))){ |
5164 |
if(!(((V851))==(VV[269]))){ |
goto T1612;} |
5165 |
goto T1733;} |
V754= |
5166 |
V856= |
make_cclosure_new(LC129,Cnil,base[0],Cdata); |
5167 |
make_cclosure_new(LC134,Cnil,base[0],Cdata); |
goto T1610; |
5168 |
goto T1731; |
goto T1612; |
5169 |
goto T1733; |
T1612:; |
5170 |
T1733:; |
V754= |
5171 |
V856= |
make_cclosure_new(LC130,Cnil,base[0],Cdata); |
5172 |
make_cclosure_new(LC135,Cnil,base[0],Cdata); |
goto T1610; |
5173 |
goto T1731; |
T1610:; |
5174 |
T1731:; |
(void)((*(LnkLI461))((base[0]->c.c_car),V754)); |
5175 |
(void)((*(LnkLI446))(V855,V856)); |
{object V756; |
5176 |
{object V858; |
V756= (base[0]->c.c_car); |
5177 |
V858= (base[0]->c.c_car); |
V757= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V859= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
|
V860 = (V858); |
|
|
V861 = V851; |
|
5178 |
(void)(( |
(void)(( |
5179 |
V862 = V859, |
V758 = V757, |
5180 |
(type_of(V862) == t_sfun ?(*((V862)->sfn.sfn_self)): |
(type_of(V758) == t_sfun ?(*((V758)->sfn.sfn_self)): |
5181 |
(fcall.argd=2,type_of(V862)==t_vfun) ? |
(fcall.argd=2,type_of(V758)==t_vfun) ? |
5182 |
(*((V862)->sfn.sfn_self)): |
(*((V758)->sfn.sfn_self)): |
5183 |
(fcall.fun=(V862),fcalln))(V860,V861)));} |
(fcall.fun=(V758),fcalln))((V756),V749)));} |
5184 |
(void)((*(LnkLI447))(VV[19],(base[0]->c.c_car),VV[275],(V851))); |
(void)((*(LnkLI462))(VV[23],(base[0]->c.c_car),VV[288],(V749))); |
|
V863 = (base[0]->c.c_car); |
|
5185 |
vs_base=vs_top; |
vs_base=vs_top; |
5186 |
(void) (*Lnk351)(); |
(void) (*Lnk366)(); |
5187 |
vs_top=sup; |
vs_top=sup; |
5188 |
V864= vs_base[0]; |
V759= vs_base[0]; |
5189 |
(void)((*(LnkLI447))(VV[19],V863,VV[276],V864)); |
(void)((*(LnkLI462))(VV[23],(base[0]->c.c_car),VV[289],V759)); |
5190 |
base[1]= (base[0]->c.c_car); |
base[1]= (base[0]->c.c_car); |
5191 |
base[2]= (V851); |
base[2]= (V749); |
5192 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5193 |
(void) (*Lnk346)(); |
(void) (*Lnk361)(); |
5194 |
vs_top=sup; |
vs_top=sup; |
5195 |
{object V865; |
{object V760; |
5196 |
V865= (*(LnkLI448))(); |
V760= (*(LnkLI463))(); |
5197 |
{object V867; |
{object V762; |
5198 |
V867= (base[0]->c.c_car); |
V762= (base[0]->c.c_car); |
5199 |
if(type_of((V867))==t_structure){ |
if(type_of((V762))==t_structure){ |
5200 |
goto T1751;} |
goto T1630;} |
5201 |
goto T1749; |
goto T1628; |
5202 |
goto T1751; |
goto T1630; |
5203 |
T1751:; |
T1630:; |
5204 |
if(!((((V867))->str.str_def)==(VV[277]))){ |
if(!((((V762))->str.str_def)==(VV[290]))){ |
5205 |
goto T1749;}} |
goto T1628;}} |
5206 |
V866= STREF(object,(base[0]->c.c_car),4); |
V761= STREF(object,(base[0]->c.c_car),4); |
5207 |
goto T1747; |
goto T1626; |
5208 |
goto T1749; |
goto T1628; |
5209 |
T1749:;{object V868; |
T1628:;{object V763; |
5210 |
V868= (VV[146]->s.s_dbind); |
V763= (VV[151]->s.s_dbind); |
5211 |
base[1]= small_fixnum(14); |
base[1]= small_fixnum(14); |
5212 |
base[2]= (base[0]->c.c_car); |
base[2]= (base[0]->c.c_car); |
5213 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
5214 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
5215 |
vs_top=sup; |
vs_top=sup; |
5216 |
V869= vs_base[0]; |
V764= vs_base[0]; |
5217 |
if(!((V868)==(CMPcar(V869)))){ |
if(!((V763)==(CMPcar(V764)))){ |
5218 |
goto T1754;}} |
goto T1633;}} |
5219 |
V866= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
V761= CMPcar(((base[0]->c.c_car))->cc.cc_turbo[12]); |
5220 |
goto T1747; |
goto T1626; |
5221 |
goto T1754; |
goto T1633; |
5222 |
T1754:; |
T1633:; |
5223 |
base[1]= VV[147]; |
base[1]= VV[152]; |
5224 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
5225 |
Lerror(); |
Lerror(); |
5226 |
vs_top=sup; |
vs_top=sup; |
5227 |
V866= vs_base[0]; |
V761= vs_base[0]; |
5228 |
goto T1747; |
goto T1626; |
5229 |
T1747:; |
T1626:; |
5230 |
V870 = (VV[237]->s.s_dbind); |
(void)(((V761)->v.v_self[fix((VV[250]->s.s_dbind))]=((V760)))); |
5231 |
V871 = (V865); |
if(((V751))==Cnil){ |
5232 |
(void)(((V866)->v.v_self[fix(V870)]=(V871))); |
goto T1623;} |
5233 |
if(((V853))==Cnil){ |
(void)((*(LnkLI14))((V749),(V750))); |
5234 |
goto T1744;} |
if(((V753))==Cnil){ |
5235 |
(void)((*(LnkLI10))((V851),(V852))); |
goto T1643;} |
5236 |
(void)((VFUN_NARGS=3,(*(LnkLI449))((base[0]->c.c_car),VV[15],(V852))));} |
(void)((VFUN_NARGS=5,(*(LnkLI464))((base[0]->c.c_car),VV[19],(V750),VV[0],(V753)))); |
5237 |
goto T1744; |
goto T1623; |
5238 |
T1744:; |
goto T1643; |
5239 |
{object V872 = (base[0]->c.c_car); |
T1643:; |
5240 |
VMR74(V872)} |
(void)((VFUN_NARGS=3,(*(LnkLI464))((base[0]->c.c_car),VV[19],(V750))));} |
5241 |
|
goto T1623; |
5242 |
|
T1623:; |
5243 |
|
{object V765 = (base[0]->c.c_car); |
5244 |
|
VMR71(V765)} |
5245 |
va_end(ap); |
va_end(ap); |
5246 |
base[0]=base[0]; |
base[0]=base[0]; |
5247 |
return Cnil;} |
return Cnil;} |
5248 |
} |
} |
5249 |
/* local entry for function SET-DFUN */ |
/* local entry for function SET-DFUN */ |
5250 |
|
|
5251 |
static object LI87(object V873,object first,...) |
static object LI83(object V766,object first,...) |
5252 |
{ |
{ |
5253 |
va_list ap; |
va_list ap; |
5254 |
int narg = VFUN_NARGS; VMB75 VMS75 VMV75 |
int narg = VFUN_NARGS; VMB72 VMS72 VMV72 |
5255 |
{register object V874; |
{register object V767; |
5256 |
register object V875; |
register object V768; |
5257 |
register object V876; |
register object V769; |
5258 |
object V877; |
object V770; |
5259 |
va_start(ap,first); |
va_start(ap,first); |
5260 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
5261 |
V874= V873; |
V767= V766; |
5262 |
narg = narg - 1; |
narg = narg - 1; |
5263 |
if (narg <= 0) goto T1763; |
if (narg <= 0) goto T1645; |
5264 |
else { |
else { |
5265 |
V875= first;} |
V768= first;} |
5266 |
if (--narg <= 0) goto T1764; |
if (--narg <= 0) goto T1646; |
5267 |
else { |
else { |
5268 |
V876= va_arg(ap,object);} |
V769= va_arg(ap,object);} |
5269 |
if (--narg <= 0) goto T1765; |
if (--narg <= 0) goto T1647; |
5270 |
else { |
else { |
5271 |
V877= va_arg(ap,object);} |
V770= va_arg(ap,object);} |
5272 |
--narg; goto T1766; |
--narg; goto T1648; |
5273 |
goto T1763; |
goto T1645; |
5274 |
T1763:; |
T1645:; |
5275 |
V875= Cnil; |
V768= Cnil; |
5276 |
goto T1764; |
goto T1646; |
5277 |
T1764:; |
T1646:; |
5278 |
V876= Cnil; |
V769= Cnil; |
5279 |
goto T1765; |
goto T1647; |
5280 |
T1765:; |
T1647:; |
5281 |
V877= Cnil; |
V770= Cnil; |
5282 |
goto T1766; |
goto T1648; |
5283 |
T1766:; |
T1648:; |
5284 |
if(((V876))==Cnil){ |
if(((V769))==Cnil){ |
5285 |
goto T1770;} |
goto T1652;} |
5286 |
V878 = (V876); |
V771= Ct; |
5287 |
V879 = (V874); |
STSET(object,(V769),0, (V767)); |
5288 |
V880= Ct; |
(void)((V767)); |
5289 |
STSET(object,V878,0, V879); |
goto T1652; |
5290 |
(void)(V879); |
T1652:; |
5291 |
goto T1770; |
{object V772; |
5292 |
T1770:; |
if(((V768))==Cnil){ |
5293 |
{object V881; |
goto T1658;} |
5294 |
if(((V875))==Cnil){ |
if(((V769))!=Cnil){ |
5295 |
goto T1776;} |
goto T1657;} |
5296 |
if(((V876))!=Cnil){ |
if(((V770))==Cnil){ |
5297 |
goto T1775;} |
goto T1658;} |
5298 |
if(((V877))==Cnil){ |
goto T1657; |
5299 |
goto T1776;} |
T1657:; |
5300 |
goto T1775; |
V772= listA(3,(V768),(V769),(V770)); |
5301 |
T1775:; |
goto T1656; |
5302 |
V881= listA(3,(V875),(V876),(V877)); |
goto T1658; |
5303 |
goto T1774; |
T1658:; |
5304 |
goto T1776; |
V772= (V768); |
5305 |
T1776:; |
goto T1656; |
5306 |
V881= (V875); |
T1656:; |
5307 |
goto T1774; |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
5308 |
T1774:; |
goto T1665;} |
5309 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
V775= ({object _tmp=get(VV[465],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[465])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[465])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
goto T1783;} |
|
|
V884= ({object _tmp=get(VV[450],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[450])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[450])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
|
V885 = V881; |
|
|
V886 = V874; |
|
5310 |
(void)(( |
(void)(( |
5311 |
V887 = V884, |
V776 = V775, |
5312 |
(type_of(V887) == t_sfun ?(*((V887)->sfn.sfn_self)): |
(type_of(V776) == t_sfun ?(*((V776)->sfn.sfn_self)): |
5313 |
(fcall.argd=2,type_of(V887)==t_vfun) ? |
(fcall.argd=2,type_of(V776)==t_vfun) ? |
5314 |
(*((V887)->sfn.sfn_self)): |
(*((V776)->sfn.sfn_self)): |
5315 |
(fcall.fun=(V887),fcalln))(V885,V886))); |
(fcall.fun=(V776),fcalln))(V772,V767))); |
5316 |
goto T1773; |
goto T1655; |
5317 |
goto T1783; |
goto T1665; |
5318 |
T1783:; |
T1665:; |
5319 |
if(type_of(V874)==t_structure){ |
if(type_of(V767)==t_structure){ |
5320 |
goto T1790;} |
goto T1672;} |
5321 |
goto T1788; |
goto T1670; |
5322 |
goto T1790; |
goto T1672; |
5323 |
T1790:; |
T1672:; |
5324 |
if(!(((V874)->str.str_def)==(VV[279]))){ |
if(!(((V767)->str.str_def)==(VV[292]))){ |
5325 |
goto T1788;} |
goto T1670;} |
5326 |
V888= STREF(object,(V874),4); |
V777= STREF(object,(V767),4); |
5327 |
goto T1786; |
goto T1668; |
5328 |
goto T1788; |
goto T1670; |
5329 |
T1788:;{object V890; |
T1670:;{object V779; |
5330 |
V890= (VV[146]->s.s_dbind); |
V779= (VV[151]->s.s_dbind); |
5331 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5332 |
base[1]= (V874); |
base[1]= (V767); |
5333 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5334 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
5335 |
vs_top=sup; |
vs_top=sup; |
5336 |
V891= vs_base[0]; |
V780= vs_base[0]; |
5337 |
if(!((V890)==(CMPcar(V891)))){ |
if(!((V779)==(CMPcar(V780)))){ |
5338 |
goto T1793;}} |
goto T1675;}} |
5339 |
V888= CMPcar(((V874))->cc.cc_turbo[12]); |
V777= CMPcar(((V767))->cc.cc_turbo[12]); |
5340 |
goto T1786; |
goto T1668; |
5341 |
goto T1793; |
goto T1675; |
5342 |
T1793:; |
T1675:; |
5343 |
base[0]= VV[147]; |
base[0]= VV[152]; |
5344 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5345 |
Lerror(); |
Lerror(); |
5346 |
vs_top=sup; |
vs_top=sup; |
5347 |
V888= vs_base[0]; |
V777= vs_base[0]; |
5348 |
goto T1786; |
goto T1668; |
5349 |
T1786:; |
T1668:; |
5350 |
V892 = (VV[280]->s.s_dbind); |
(void)(((V777)->v.v_self[fix((VV[293]->s.s_dbind))]=((V772))));} |
5351 |
V893 = (V881); |
goto T1655; |
5352 |
(void)(((V888)->v.v_self[fix(V892)]=(V893)));} |
T1655:; |
5353 |
goto T1773; |
{object V781 = (V768); |
5354 |
T1773:; |
VMR72(V781)} |
|
{object V894 = (V875); |
|
|
VMR75(V894)} |
|
5355 |
va_end(ap); |
va_end(ap); |
5356 |
base[0]=base[0]; |
base[0]=base[0]; |
5357 |
return Cnil;} |
return Cnil;} |
5358 |
} |
} |
5359 |
/* local entry for function GF-DFUN-CACHE */ |
/* local entry for function GF-DFUN-CACHE */ |
5360 |
|
|
5361 |
static object LI88(V896) |
static object LI84(V783) |
5362 |
|
|
5363 |
register object V896; |
register object V783; |
5364 |
{ VMB76 VMS76 VMV76 |
{ VMB73 VMS73 VMV73 |
5365 |
goto TTL; |
goto TTL; |
5366 |
TTL:; |
TTL:; |
5367 |
{object V897; |
{object V784; |
5368 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
5369 |
goto T1801;} |
goto T1683;} |
5370 |
base[0]= (V896); |
base[0]= (V783); |
5371 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5372 |
(void) (*Lnk450)(Lclptr450); |
(void) (*Lnk465)(Lclptr465); |
5373 |
vs_top=sup; |
vs_top=sup; |
5374 |
V897= vs_base[0]; |
V784= vs_base[0]; |
5375 |
goto T1799; |
goto T1681; |
5376 |
goto T1801; |
goto T1683; |
5377 |
T1801:; |
T1683:; |
5378 |
if(type_of(V896)==t_structure){ |
if(type_of(V783)==t_structure){ |
5379 |
goto T1808;} |
goto T1690;} |
5380 |
goto T1806; |
goto T1688; |
5381 |
goto T1808; |
goto T1690; |
5382 |
T1808:; |
T1690:; |
5383 |
if(!(((V896)->str.str_def)==(VV[281]))){ |
if(!(((V783)->str.str_def)==(VV[294]))){ |
5384 |
goto T1806;} |
goto T1688;} |
5385 |
V898= STREF(object,(V896),4); |
V785= STREF(object,(V783),4); |
5386 |
goto T1804; |
goto T1686; |
5387 |
goto T1806; |
goto T1688; |
5388 |
T1806:;{object V900; |
T1688:;{object V787; |
5389 |
V900= (VV[146]->s.s_dbind); |
V787= (VV[151]->s.s_dbind); |
5390 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5391 |
base[1]= (V896); |
base[1]= (V783); |
5392 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5393 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
5394 |
vs_top=sup; |
vs_top=sup; |
5395 |
V901= vs_base[0]; |
V788= vs_base[0]; |
5396 |
if(!((V900)==(CMPcar(V901)))){ |
if(!((V787)==(CMPcar(V788)))){ |
5397 |
goto T1811;}} |
goto T1693;}} |
5398 |
V898= CMPcar(((V896))->cc.cc_turbo[12]); |
V785= CMPcar(((V783))->cc.cc_turbo[12]); |
5399 |
goto T1804; |
goto T1686; |
5400 |
goto T1811; |
goto T1693; |
5401 |
T1811:; |
T1693:; |
5402 |
base[0]= VV[147]; |
base[0]= VV[152]; |
5403 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5404 |
Lerror(); |
Lerror(); |
5405 |
vs_top=sup; |
vs_top=sup; |
5406 |
V898= vs_base[0]; |
V785= vs_base[0]; |
5407 |
goto T1804; |
goto T1686; |
5408 |
T1804:; |
T1686:; |
5409 |
V902 = (VV[280]->s.s_dbind); |
V784= (V785)->v.v_self[fix((VV[293]->s.s_dbind))]; |
5410 |
V897= (V898)->v.v_self[fix(V902)]; |
goto T1681; |
5411 |
goto T1799; |
T1681:; |
5412 |
T1799:; |
{register object V789; |
5413 |
{register object V903; |
V789= (V784); |
5414 |
V903= (V897); |
base[0]= (V789); |
|
base[0]= (V903); |
|
5415 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5416 |
Lfunctionp(); |
Lfunctionp(); |
5417 |
vs_top=sup; |
vs_top=sup; |
5418 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5419 |
goto T1818;} |
goto T1700;} |
5420 |
{object V904 = Cnil; |
{object V790 = Cnil; |
5421 |
VMR76(V904)} |
VMR73(V790)} |
5422 |
goto T1818; |
goto T1700; |
5423 |
T1818:; |
T1700:; |
5424 |
if(!(type_of((V903))==t_cons)){ |
if(!(type_of((V789))==t_cons)){ |
5425 |
goto T1822;} |
goto T1704;} |
5426 |
{object V905 = CMPcadr((V897)); |
{object V791 = CMPcadr((V784)); |
5427 |
VMR76(V905)} |
VMR73(V791)} |
5428 |
goto T1822; |
goto T1704; |
5429 |
T1822:; |
T1704:; |
5430 |
{object V906 = Cnil; |
{object V792 = Cnil; |
5431 |
VMR76(V906)}}} |
VMR73(V792)}}} |
5432 |
base[0]=base[0]; |
base[0]=base[0]; |
5433 |
return Cnil; |
return Cnil; |
5434 |
} |
} |
5435 |
/* local entry for function GF-DFUN-INFO */ |
/* local entry for function GF-DFUN-INFO */ |
5436 |
|
|
5437 |
static object LI89(V908) |
static object LI85(V794) |
5438 |
|
|
5439 |
register object V908; |
register object V794; |
5440 |
{ VMB77 VMS77 VMV77 |
{ VMB74 VMS74 VMV74 |
5441 |
goto TTL; |
goto TTL; |
5442 |
TTL:; |
TTL:; |
5443 |
{object V909; |
{object V795; |
5444 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
5445 |
goto T1826;} |
goto T1708;} |
5446 |
base[0]= (V908); |
base[0]= (V794); |
5447 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5448 |
(void) (*Lnk450)(Lclptr450); |
(void) (*Lnk465)(Lclptr465); |
5449 |
vs_top=sup; |
vs_top=sup; |
5450 |
V909= vs_base[0]; |
V795= vs_base[0]; |
5451 |
goto T1824; |
goto T1706; |
5452 |
goto T1826; |
goto T1708; |
5453 |
T1826:; |
T1708:; |
5454 |
if(type_of(V908)==t_structure){ |
if(type_of(V794)==t_structure){ |
5455 |
goto T1833;} |
goto T1715;} |
5456 |
goto T1831; |
goto T1713; |
5457 |
goto T1833; |
goto T1715; |
5458 |
T1833:; |
T1715:; |
5459 |
if(!(((V908)->str.str_def)==(VV[282]))){ |
if(!(((V794)->str.str_def)==(VV[295]))){ |
5460 |
goto T1831;} |
goto T1713;} |
5461 |
V910= STREF(object,(V908),4); |
V796= STREF(object,(V794),4); |
5462 |
goto T1829; |
goto T1711; |
5463 |
goto T1831; |
goto T1713; |
5464 |
T1831:;{object V912; |
T1713:;{object V798; |
5465 |
V912= (VV[146]->s.s_dbind); |
V798= (VV[151]->s.s_dbind); |
5466 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5467 |
base[1]= (V908); |
base[1]= (V794); |
5468 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5469 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
5470 |
vs_top=sup; |
vs_top=sup; |
5471 |
V913= vs_base[0]; |
V799= vs_base[0]; |
5472 |
if(!((V912)==(CMPcar(V913)))){ |
if(!((V798)==(CMPcar(V799)))){ |
5473 |
goto T1836;}} |
goto T1718;}} |
5474 |
V910= CMPcar(((V908))->cc.cc_turbo[12]); |
V796= CMPcar(((V794))->cc.cc_turbo[12]); |
5475 |
goto T1829; |
goto T1711; |
5476 |
goto T1836; |
goto T1718; |
5477 |
T1836:; |
T1718:; |
5478 |
base[0]= VV[147]; |
base[0]= VV[152]; |
5479 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5480 |
Lerror(); |
Lerror(); |
5481 |
vs_top=sup; |
vs_top=sup; |
5482 |
V910= vs_base[0]; |
V796= vs_base[0]; |
5483 |
goto T1829; |
goto T1711; |
5484 |
T1829:; |
T1711:; |
5485 |
V914 = (VV[280]->s.s_dbind); |
V795= (V796)->v.v_self[fix((VV[293]->s.s_dbind))]; |
5486 |
V909= (V910)->v.v_self[fix(V914)]; |
goto T1706; |
5487 |
goto T1824; |
T1706:; |
5488 |
T1824:; |
{register object V800; |
5489 |
{register object V915; |
V800= (V795); |
5490 |
V915= (V909); |
base[0]= (V800); |
|
base[0]= (V915); |
|
5491 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5492 |
Lfunctionp(); |
Lfunctionp(); |
5493 |
vs_top=sup; |
vs_top=sup; |
5494 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
5495 |
goto T1843;} |
goto T1725;} |
5496 |
{object V916 = Cnil; |
{object V801 = Cnil; |
5497 |
VMR77(V916)} |
VMR74(V801)} |
5498 |
goto T1843; |
goto T1725; |
5499 |
T1843:; |
T1725:; |
5500 |
if(!(type_of((V915))==t_cons)){ |
if(!(type_of((V800))==t_cons)){ |
5501 |
goto T1847;} |
goto T1729;} |
5502 |
{object V917 = CMPcddr((V909)); |
{object V802 = CMPcddr((V795)); |
5503 |
VMR77(V917)} |
VMR74(V802)} |
5504 |
goto T1847; |
goto T1729; |
5505 |
T1847:; |
T1729:; |
5506 |
{object V918 = Cnil; |
{object V803 = Cnil; |
5507 |
VMR77(V918)}}} |
VMR74(V803)}}} |
5508 |
base[0]=base[0]; |
base[0]=base[0]; |
5509 |
return Cnil; |
return Cnil; |
5510 |
} |
} |
5511 |
/* local entry for function EARLY-GF-NAME */ |
/* local entry for function EARLY-GF-NAME */ |
5512 |
|
|
5513 |
static object LI90(V920) |
static object LI86(V805) |
5514 |
|
|
5515 |
register object V920; |
register object V805; |
5516 |
{ VMB78 VMS78 VMV78 |
{ VMB75 VMS75 VMV75 |
5517 |
goto TTL; |
goto TTL; |
5518 |
TTL:; |
TTL:; |
5519 |
if(type_of(V920)==t_structure){ |
if(type_of(V805)==t_structure){ |
5520 |
goto T1853;} |
goto T1735;} |
5521 |
goto T1851; |
goto T1733; |
5522 |
goto T1853; |
goto T1735; |
5523 |
T1853:; |
T1735:; |
5524 |
if(!(((V920)->str.str_def)==(VV[283]))){ |
if(!(((V805)->str.str_def)==(VV[296]))){ |
5525 |
goto T1851;} |
goto T1733;} |
5526 |
V921= STREF(object,(V920),4); |
V806= STREF(object,(V805),4); |
5527 |
goto T1849; |
goto T1731; |
5528 |
goto T1851; |
goto T1733; |
5529 |
T1851:;{object V923; |
T1733:;{object V808; |
5530 |
V923= (VV[146]->s.s_dbind); |
V808= (VV[151]->s.s_dbind); |
5531 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5532 |
base[1]= (V920); |
base[1]= (V805); |
5533 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5534 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
5535 |
vs_top=sup; |
vs_top=sup; |
5536 |
V924= vs_base[0]; |
V809= vs_base[0]; |
5537 |
if(!((V923)==(CMPcar(V924)))){ |
if(!((V808)==(CMPcar(V809)))){ |
5538 |
goto T1856;}} |
goto T1738;}} |
5539 |
V921= CMPcar(((V920))->cc.cc_turbo[12]); |
V806= CMPcar(((V805))->cc.cc_turbo[12]); |
5540 |
goto T1849; |
goto T1731; |
5541 |
goto T1856; |
goto T1738; |
5542 |
T1856:; |
T1738:; |
5543 |
base[0]= VV[147]; |
base[0]= VV[152]; |
5544 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5545 |
Lerror(); |
Lerror(); |
5546 |
vs_top=sup; |
vs_top=sup; |
5547 |
V921= vs_base[0]; |
V806= vs_base[0]; |
5548 |
goto T1849; |
goto T1731; |
5549 |
T1849:; |
T1731:; |
5550 |
V925 = (VV[284]->s.s_dbind); |
{object V810 = (V806)->v.v_self[fix((VV[297]->s.s_dbind))]; |
5551 |
{object V926 = (V921)->v.v_self[fix(V925)]; |
VMR75(V810)} |
|
VMR78(V926)} |
|
5552 |
base[0]=base[0]; |
base[0]=base[0]; |
5553 |
return Cnil; |
return Cnil; |
5554 |
} |
} |
5555 |
/* local entry for function GF-LAMBDA-LIST */ |
/* local entry for function GF-LAMBDA-LIST */ |
5556 |
|
|
5557 |
static object LI91(V928) |
static object LI87(V812) |
5558 |
|
|
5559 |
register object V928; |
register object V812; |
5560 |
{ VMB79 VMS79 VMV79 |
{ VMB76 VMS76 VMV76 |
5561 |
goto TTL; |
goto TTL; |
5562 |
TTL:; |
TTL:; |
5563 |
{object V929; |
{object V813; |
5564 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
5565 |
goto T1864;} |
goto T1746;} |
5566 |
base[0]= (V928); |
base[0]= (V812); |
5567 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5568 |
(void) (*Lnk393)(Lclptr393); |
(void) (*Lnk439)(Lclptr439); |
5569 |
vs_top=sup; |
vs_top=sup; |
5570 |
V929= vs_base[0]; |
V813= vs_base[0]; |
5571 |
goto T1862; |
goto T1744; |
5572 |
goto T1864; |
goto T1746; |
5573 |
T1864:; |
T1746:; |
5574 |
if(type_of(V928)==t_structure){ |
if(type_of(V812)==t_structure){ |
5575 |
goto T1871;} |
goto T1753;} |
5576 |
goto T1869; |
goto T1751; |
5577 |
goto T1871; |
goto T1753; |
5578 |
T1871:; |
T1753:; |
5579 |
if(!(((V928)->str.str_def)==(VV[285]))){ |
if(!(((V812)->str.str_def)==(VV[298]))){ |
5580 |
goto T1869;} |
goto T1751;} |
5581 |
V930= STREF(object,(V928),4); |
V814= STREF(object,(V812),4); |
5582 |
goto T1867; |
goto T1749; |
5583 |
goto T1869; |
goto T1751; |
5584 |
T1869:;{object V932; |
T1751:;{object V816; |
5585 |
V932= (VV[146]->s.s_dbind); |
V816= (VV[151]->s.s_dbind); |
5586 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5587 |
base[1]= (V928); |
base[1]= (V812); |
5588 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5589 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
5590 |
vs_top=sup; |
vs_top=sup; |
5591 |
V933= vs_base[0]; |
V817= vs_base[0]; |
5592 |
if(!((V932)==(CMPcar(V933)))){ |
if(!((V816)==(CMPcar(V817)))){ |
5593 |
goto T1874;}} |
goto T1756;}} |
5594 |
V930= CMPcar(((V928))->cc.cc_turbo[12]); |
V814= CMPcar(((V812))->cc.cc_turbo[12]); |
5595 |
goto T1867; |
goto T1749; |
5596 |
goto T1874; |
goto T1756; |
5597 |
T1874:; |
T1756:; |
5598 |
base[0]= VV[147]; |
base[0]= VV[152]; |
5599 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5600 |
Lerror(); |
Lerror(); |
5601 |
vs_top=sup; |
vs_top=sup; |
5602 |
V930= vs_base[0]; |
V814= vs_base[0]; |
5603 |
goto T1867; |
goto T1749; |
5604 |
T1867:; |
T1749:; |
5605 |
V934 = (VV[237]->s.s_dbind); |
V813= (V814)->v.v_self[fix((VV[250]->s.s_dbind))]; |
5606 |
V929= (V930)->v.v_self[fix(V934)]; |
goto T1744; |
5607 |
goto T1862; |
T1744:; |
5608 |
T1862:; |
if(!((VV[251])==(STREF(object,(V813),0)))){ |
5609 |
if(!((VV[238])==(STREF(object,(V929),0)))){ |
goto T1763;} |
5610 |
goto T1881;} |
{object V818; |
5611 |
{object V935; |
if(!(((VV[21]->s.s_dbind))==(VV[22]))){ |
5612 |
if(!(((VV[17]->s.s_dbind))==(VV[18]))){ |
goto T1767;} |
5613 |
goto T1885;} |
base[0]= (V812); |
|
base[0]= (V928); |
|
5614 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5615 |
(void) (*Lnk426)(Lclptr426); |
(void) (*Lnk440)(Lclptr440); |
5616 |
vs_top=sup; |
vs_top=sup; |
5617 |
V935= vs_base[0]; |
V818= vs_base[0]; |
5618 |
goto T1883; |
goto T1765; |
5619 |
goto T1885; |
goto T1767; |
5620 |
T1885:; |
T1767:; |
5621 |
if(type_of(V928)==t_structure){ |
if(type_of(V812)==t_structure){ |
5622 |
goto T1892;} |
goto T1774;} |
5623 |
goto T1890; |
goto T1772; |
5624 |
goto T1892; |
goto T1774; |
5625 |
T1892:; |
T1774:; |
5626 |
if(!(((V928)->str.str_def)==(VV[286]))){ |
if(!(((V812)->str.str_def)==(VV[299]))){ |
5627 |
goto T1890;} |
goto T1772;} |
5628 |
V936= STREF(object,(V928),4); |
V819= STREF(object,(V812),4); |
5629 |
goto T1888; |
goto T1770; |
5630 |
goto T1890; |
goto T1772; |
5631 |
T1890:;{object V938; |
T1772:;{object V821; |
5632 |
V938= (VV[146]->s.s_dbind); |
V821= (VV[151]->s.s_dbind); |
5633 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
5634 |
base[1]= (V928); |
base[1]= (V812); |
5635 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5636 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
5637 |
vs_top=sup; |
vs_top=sup; |
5638 |
V939= vs_base[0]; |
V822= vs_base[0]; |
5639 |
if(!((V938)==(CMPcar(V939)))){ |
if(!((V821)==(CMPcar(V822)))){ |
5640 |
goto T1895;}} |
goto T1777;}} |
5641 |
V936= CMPcar(((V928))->cc.cc_turbo[12]); |
V819= CMPcar(((V812))->cc.cc_turbo[12]); |
5642 |
goto T1888; |
goto T1770; |
5643 |
goto T1895; |
goto T1777; |
5644 |
T1895:; |
T1777:; |
5645 |
base[0]= VV[147]; |
base[0]= VV[152]; |
5646 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5647 |
Lerror(); |
Lerror(); |
5648 |
vs_top=sup; |
vs_top=sup; |
5649 |
V936= vs_base[0]; |
V819= vs_base[0]; |
5650 |
goto T1888; |
goto T1770; |
5651 |
T1888:; |
T1770:; |
5652 |
V940 = (VV[236]->s.s_dbind); |
V818= (V819)->v.v_self[fix((VV[249]->s.s_dbind))]; |
5653 |
V935= (V936)->v.v_self[fix(V940)]; |
goto T1765; |
5654 |
goto T1883; |
T1765:; |
5655 |
T1883:; |
if(((V818))!=Cnil){ |
5656 |
if(((V935))!=Cnil){ |
goto T1784;} |
5657 |
goto T1902;} |
base[0]= VV[300]; |
5658 |
base[0]= VV[287]; |
base[1]= (V812); |
|
base[1]= (V928); |
|
5659 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5660 |
(void) (*Lnk398)(); |
(void) (*Lnk466)(); |
5661 |
vs_top=sup; |
vs_top=sup; |
5662 |
{object V941 = Cnil; |
{object V823 = Cnil; |
5663 |
VMR79(V941)} |
VMR76(V823)} |
5664 |
goto T1902; |
goto T1784; |
5665 |
T1902:; |
T1784:; |
5666 |
{object V942; |
{object V824; |
5667 |
object V943; |
object V825; |
5668 |
object V944; |
object V826; |
5669 |
base[3]= (V935); |
base[3]= (V818); |
5670 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5671 |
Llast(); |
Llast(); |
5672 |
vs_top=sup; |
vs_top=sup; |
5673 |
V945= vs_base[0]; |
V827= vs_base[0]; |
5674 |
V942= CMPcar(V945); |
V824= CMPcar(V827); |
5675 |
if(!(type_of((V942))==t_cons)){ |
if(!(type_of((V824))==t_cons)){ |
5676 |
goto T1912;} |
goto T1794;} |
5677 |
V943= (*(LnkLI431))((V942)); |
V825= (*(LnkLI446))((V824)); |
5678 |
goto T1910; |
goto T1792; |
5679 |
goto T1912; |
goto T1794; |
5680 |
T1912:; |
T1794:; |
5681 |
base[3]= (V942); |
base[3]= (V824); |
5682 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
5683 |
(void) (*Lnk47)(Lclptr47); |
(void) (*Lnk51)(Lclptr51); |
5684 |
vs_top=sup; |
vs_top=sup; |
5685 |
V943= vs_base[0]; |
V825= vs_base[0]; |
5686 |
goto T1910; |
goto T1792; |
5687 |
T1910:; |
T1792:; |
5688 |
{register object x= VV[61],V946= (V943); |
{register object x= VV[63],V828= (V825); |
5689 |
while(V946!=Cnil) |
while(V828!=Cnil) |
5690 |
if(eql(x,V946->c.c_car)){ |
if(eql(x,V828->c.c_car)){ |
5691 |
V944= V946; |
V826= V828; |
5692 |
goto T1915; |
goto T1797; |
5693 |
}else V946=V946->c.c_cdr; |
}else V828=V828->c.c_cdr; |
5694 |
V944= Cnil;} |
V826= Cnil;} |
5695 |
goto T1915; |
goto T1797; |
5696 |
T1915:; |
T1797:; |
5697 |
if(((V944))==Cnil){ |
if(((V826))==Cnil){ |
5698 |
goto T1917;} |
goto T1799;} |
5699 |
base[3]= (V943); |
base[3]= (V825); |
5700 |
base[4]= CMPcdr((V944)); |
base[4]= CMPcdr((V826)); |
5701 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
5702 |
Lldiff(); |
Lldiff(); |
5703 |
vs_top=sup; |
vs_top=sup; |
5704 |
V947= vs_base[0]; |
V829= vs_base[0]; |
5705 |
{object V948 = append(V947,VV[288]); |
{object V830 = append(V829,VV[301]); |
5706 |
VMR79(V948)} |
VMR76(V830)} |
5707 |
goto T1917; |
goto T1799; |
5708 |
T1917:; |
T1799:; |
5709 |
{object V949 = (V943); |
{object V831 = (V825); |
5710 |
VMR79(V949)}}} |
VMR76(V831)}}} |
5711 |
goto T1881; |
goto T1763; |
5712 |
T1881:; |
T1763:; |
5713 |
{object V950 = STREF(object,(V929),0); |
{object V832 = STREF(object,(V813),0); |
5714 |
VMR79(V950)}} |
VMR76(V832)}} |
5715 |
base[0]=base[0]; |
base[0]=base[0]; |
5716 |
return Cnil; |
return Cnil; |
5717 |
} |
} |
5718 |
/* macro definition for REAL-ENSURE-GF-INTERNAL */ |
/* macro definition for REAL-ENSURE-GF-INTERNAL */ |
5719 |
|
|
5720 |
static void L92() |
static void L88() |
5721 |
{register object *base=vs_base; |
{register object *base=vs_base; |
5722 |
register object *sup=base+VM80; VC80 |
register object *sup=base+VM77; VC77 |
5723 |
vs_check; |
vs_check; |
5724 |
check_arg(2); |
check_arg(2); |
5725 |
vs_top=sup; |
vs_top=sup; |
5726 |
{object V951=base[0]->c.c_cdr; |
{object V833=base[0]->c.c_cdr; |
5727 |
if(endp(V951))invalid_macro_call(); |
if(endp(V833))invalid_macro_call(); |
5728 |
base[2]= (V951->c.c_car); |
base[2]= (V833->c.c_car); |
5729 |
V951=V951->c.c_cdr; |
V833=V833->c.c_cdr; |
5730 |
if(endp(V951))invalid_macro_call(); |
if(endp(V833))invalid_macro_call(); |
5731 |
base[3]= (V951->c.c_car); |
base[3]= (V833->c.c_car); |
5732 |
V951=V951->c.c_cdr; |
V833=V833->c.c_cdr; |
5733 |
if(endp(V951))invalid_macro_call(); |
if(endp(V833))invalid_macro_call(); |
5734 |
base[4]= (V951->c.c_car); |
base[4]= (V833->c.c_car); |
5735 |
V951=V951->c.c_cdr; |
V833=V833->c.c_cdr; |
5736 |
if(!endp(V951))invalid_macro_call();} |
if(!endp(V833))invalid_macro_call();} |
5737 |
V952= list(2,VV[289],base[2]); |
V834= list(2,VV[302],base[2]); |
5738 |
V953= list(2,/* INLINE-ARGS */V952,list(3,VV[290],base[2],list(4,VV[291],base[2],Ct,base[4]))); |
V835= list(2,/* INLINE-ARGS */V834,list(3,VV[303],base[2],list(4,VV[304],base[2],Ct,base[4]))); |
5739 |
V954= list(2,VV[292],base[2]); |
V836= list(2,VV[305],base[2]); |
5740 |
V955= make_cons(/* INLINE-ARGS */V954,Cnil); |
V837= make_cons(/* INLINE-ARGS */V836,Cnil); |
5741 |
V956= list(4,VV[120],/* INLINE-ARGS */V953,/* INLINE-ARGS */V955,list(2,Ct,list(3,VV[293],VV[294],base[2]))); |
V838= list(4,VV[125],/* INLINE-ARGS */V835,/* INLINE-ARGS */V837,list(2,Ct,list(3,VV[306],VV[307],base[2]))); |
5742 |
V957= list(3,VV[295],base[3],VV[5]); |
V839= list(3,VV[308],base[3],VV[5]); |
5743 |
V958= list(3,VV[295],base[3],VV[296]); |
V840= list(3,VV[308],base[3],VV[309]); |
5744 |
V959= list(2,VV[297],listA(3,VV[298],base[3],VV[299])); |
V841= list(2,VV[310],listA(3,VV[311],base[3],VV[312])); |
5745 |
V960= make_cons(/* INLINE-ARGS */V959,Cnil); |
V842= make_cons(/* INLINE-ARGS */V841,Cnil); |
5746 |
V961= list(3,VV[298],base[3],VV[4]); |
V843= list(3,VV[311],base[3],VV[4]); |
5747 |
base[5]= list(5,VV[9],/* INLINE-ARGS */V956,/* INLINE-ARGS */V957,/* INLINE-ARGS */V958,list(3,VV[95],/* INLINE-ARGS */V960,list(3,VV[241],VV[300],list(3,VV[30],/* INLINE-ARGS */V961,listA(3,VV[301],list(2,VV[302],base[2]),VV[303]))))); |
V844= list(3,VV[100],/* INLINE-ARGS */V842,list(3,VV[254],VV[313],list(3,VV[34],/* INLINE-ARGS */V843,listA(3,VV[314],list(2,VV[315],base[2]),VV[316])))); |
5748 |
|
V845= list(2,VV[317],listA(3,VV[311],base[3],VV[318])); |
5749 |
|
V846= make_cons(/* INLINE-ARGS */V845,Cnil); |
5750 |
|
V847= list(3,VV[311],base[3],VV[6]); |
5751 |
|
base[5]= list(6,VV[13],/* INLINE-ARGS */V838,/* INLINE-ARGS */V839,/* INLINE-ARGS */V840,/* INLINE-ARGS */V844,list(3,VV[100],/* INLINE-ARGS */V846,list(3,VV[254],VV[319],list(3,VV[34],/* INLINE-ARGS */V847,list(4,VV[304],VV[317],Ct,base[4]))))); |
5752 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
5753 |
return; |
return; |
5754 |
} |
} |
5755 |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION */ |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--GENERIC-FUNCTION */ |
5756 |
|
|
5757 |
static object LI93(object V963,object V962,object first,...) |
static object LI89(object V849,object V848,object first,...) |
5758 |
{ |
{ |
5759 |
va_list ap; |
va_list ap; |
5760 |
int narg = VFUN_NARGS; VMB81 VMS81 VMV81 |
int narg = VFUN_NARGS; VMB78 VMS78 VMV78 |
5761 |
{object V964; |
{object V850; |
5762 |
object V965; |
object V851; |
5763 |
register object V966; |
register object V852; |
5764 |
object V967; |
object V853; |
5765 |
object V968; |
object V854; |
5766 |
object V969; |
object V855; |
5767 |
register object V970; |
register object V856; |
5768 |
object V971; |
object V857; |
5769 |
va_start(ap,first); |
va_start(ap,first); |
5770 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
5771 |
V964= V963; |
V850= V849; |
5772 |
V965= V962; |
V851= V848; |
5773 |
narg= narg - 2; |
narg= narg - 2; |
5774 |
V972 = make_list(narg); |
V858 = make_list(narg); |
5775 |
V966= V972; |
V852= V858; |
5776 |
{ |
{ |
5777 |
parse_key_rest_new(V972,narg,Vcs +3,(struct key *)(void *)&LI93key,first,ap); |
parse_key_rest_new(V858,narg,Vcs +3,(struct key *)(void *)&LI89key,first,ap); |
5778 |
V967=(Vcs[3]); |
V853=(Vcs[3]); |
5779 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
5780 |
V968= Cnil; |
V854= Cnil; |
5781 |
V969= Cnil; |
V855= Cnil; |
5782 |
}else{ |
}else{ |
5783 |
V968=(Vcs[4]); |
V854=(Vcs[4]); |
5784 |
V969= Ct;} |
V855= Ct;} |
5785 |
if(Vcs[5]==0){ |
if(Vcs[5]==0){ |
5786 |
V970= VV[19]; |
V856= VV[23]; |
5787 |
V971= Cnil; |
V857= Cnil; |
5788 |
}else{ |
}else{ |
5789 |
V970=(Vcs[5]); |
V856=(Vcs[5]); |
5790 |
V971= Ct;} |
V857= Ct;} |
5791 |
if(!(type_of((V970))==t_symbol)){ |
if(!(type_of((V856))==t_symbol)){ |
5792 |
goto T1927;} |
goto T1809;} |
5793 |
V970= (VFUN_NARGS=3,(*(LnkLI291))((V970),Ct,(V967))); |
V856= (VFUN_NARGS=3,(*(LnkLI304))((V856),Ct,(V853))); |
5794 |
goto T1925; |
goto T1807; |
5795 |
goto T1927; |
goto T1809; |
5796 |
T1927:; |
T1809:; |
5797 |
{object V973; |
{object V859; |
5798 |
base[0]= (V970); |
base[0]= (V856); |
5799 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5800 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk305)(Lclptr305); |
5801 |
vs_top=sup; |
vs_top=sup; |
5802 |
V973= vs_base[0]; |
V859= vs_base[0]; |
5803 |
if(((V973))==Cnil){ |
if(((V859))==Cnil){ |
5804 |
goto T1933;} |
goto T1815;} |
5805 |
goto T1925; |
goto T1807; |
5806 |
goto T1933; |
goto T1815; |
5807 |
T1933:; |
T1815:; |
5808 |
base[0]= VV[294]; |
base[0]= VV[307]; |
5809 |
base[1]= (V970); |
base[1]= (V856); |
5810 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5811 |
Lerror(); |
Lerror(); |
5812 |
vs_top=sup;} |
vs_top=sup;} |
5813 |
goto T1925; |
goto T1807; |
5814 |
T1925:; |
T1807:; |
5815 |
{object V974; |
{object V860; |
5816 |
object V975; |
object V861; |
5817 |
base[0]= (V966); |
base[0]= (V852); |
5818 |
base[1]= VV[5]; |
base[1]= VV[5]; |
5819 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5820 |
siLrem_f(); |
siLrem_f(); |
5821 |
if(vs_base>=vs_top){vs_top=sup;goto T1941;} |
if(vs_base>=vs_top){vs_top=sup;goto T1823;} |
5822 |
V974= vs_base[0]; |
V860= vs_base[0]; |
5823 |
vs_base++; |
vs_base++; |
5824 |
if(vs_base>=vs_top){vs_top=sup;goto T1942;} |
if(vs_base>=vs_top){vs_top=sup;goto T1824;} |
5825 |
V975= vs_base[0]; |
V861= vs_base[0]; |
5826 |
vs_top=sup; |
vs_top=sup; |
5827 |
goto T1943; |
goto T1825; |
5828 |
goto T1941; |
goto T1823; |
5829 |
T1941:; |
T1823:; |
5830 |
V974= Cnil; |
V860= Cnil; |
5831 |
goto T1942; |
goto T1824; |
5832 |
T1942:; |
T1824:; |
5833 |
V975= Cnil; |
V861= Cnil; |
5834 |
goto T1943; |
goto T1825; |
5835 |
T1943:; |
T1825:; |
5836 |
V966= (V974);} |
V852= (V860);} |
5837 |
{object V976; |
{object V862; |
5838 |
object V977; |
object V863; |
5839 |
base[0]= (V966); |
base[0]= (V852); |
5840 |
base[1]= VV[296]; |
base[1]= VV[309]; |
5841 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5842 |
siLrem_f(); |
siLrem_f(); |
5843 |
if(vs_base>=vs_top){vs_top=sup;goto T1950;} |
if(vs_base>=vs_top){vs_top=sup;goto T1832;} |
5844 |
V976= vs_base[0]; |
V862= vs_base[0]; |
5845 |
vs_base++; |
vs_base++; |
5846 |
if(vs_base>=vs_top){vs_top=sup;goto T1951;} |
if(vs_base>=vs_top){vs_top=sup;goto T1833;} |
5847 |
V977= vs_base[0]; |
V863= vs_base[0]; |
5848 |
vs_top=sup; |
vs_top=sup; |
5849 |
goto T1952; |
goto T1834; |
5850 |
goto T1950; |
goto T1832; |
5851 |
T1950:; |
T1832:; |
5852 |
V976= Cnil; |
V862= Cnil; |
5853 |
goto T1951; |
goto T1833; |
5854 |
T1951:; |
T1833:; |
5855 |
V977= Cnil; |
V863= Cnil; |
5856 |
goto T1952; |
goto T1834; |
5857 |
T1952:; |
T1834:; |
5858 |
V966= (V976);} |
V852= (V862);} |
5859 |
{object V978; |
{object V864; |
5860 |
base[0]= (V966); |
base[0]= (V852); |
5861 |
base[1]= VV[4]; |
base[1]= VV[4]; |
5862 |
base[2]= VV[304]; |
base[2]= VV[320]; |
5863 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
5864 |
Lgetf(); |
Lgetf(); |
5865 |
vs_top=sup; |
vs_top=sup; |
5866 |
V978= vs_base[0]; |
V864= vs_base[0]; |
5867 |
if(((V978))==(VV[304])){ |
if(((V864))==(VV[320])){ |
5868 |
goto T1924;} |
goto T1837;} |
5869 |
{object V980; |
{object V866; |
5870 |
base[2]= (V970); |
base[2]= (V856); |
5871 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
5872 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
5873 |
vs_top=sup; |
vs_top=sup; |
5874 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
5875 |
base[2]= CMPcar((V978)); |
base[2]= CMPcar((V864)); |
5876 |
base[3]= CMPcdr((V978)); |
base[3]= CMPcdr((V864)); |
5877 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5878 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk314)(Lclptr314); |
5879 |
vs_top=sup; |
vs_top=sup; |
5880 |
V980= vs_base[0]; |
V866= vs_base[0]; |
5881 |
{object V981; |
{object V867; |
5882 |
base[1]= (V966); |
base[1]= (V852); |
5883 |
base[2]= (V980); |
base[2]= (V866); |
5884 |
base[3]= VV[4]; |
base[3]= VV[4]; |
5885 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
5886 |
siLput_f(); |
siLput_f(); |
5887 |
vs_top=sup; |
vs_top=sup; |
5888 |
V981= vs_base[0]; |
V867= vs_base[0]; |
5889 |
V966= (V981);}}} |
V852= (V867);}}} |
5890 |
goto T1924; |
goto T1837; |
5891 |
T1924:; |
T1837:; |
5892 |
if(((V971))==Cnil){ |
{object V868; |
5893 |
goto T1972;} |
base[0]= (V852); |
5894 |
V982= (*(LnkLI363))((V964)); |
base[1]= VV[6]; |
5895 |
V983 = (V970); |
base[2]= VV[320]; |
5896 |
if((/* INLINE-ARGS */V982)==(V983)){ |
vs_top=(vs_base=base+0)+3; |
5897 |
goto T1972;} |
Lgetf(); |
5898 |
base[0]= (V964); |
vs_top=sup; |
5899 |
base[1]= (V970); |
V868= vs_base[0]; |
5900 |
|
if(((V868))==(VV[320])){ |
5901 |
|
goto T1806;} |
5902 |
|
{object V870; |
5903 |
|
V870= (VFUN_NARGS=3,(*(LnkLI304))((V868),Ct,(V853))); |
5904 |
|
{object V871; |
5905 |
|
base[1]= (V852); |
5906 |
|
base[2]= (V870); |
5907 |
|
base[3]= VV[6]; |
5908 |
|
vs_top=(vs_base=base+1)+3; |
5909 |
|
siLput_f(); |
5910 |
|
vs_top=sup; |
5911 |
|
V871= vs_base[0]; |
5912 |
|
V852= (V871);}}} |
5913 |
|
goto T1806; |
5914 |
|
T1806:; |
5915 |
|
if(((V857))==Cnil){ |
5916 |
|
goto T1868;} |
5917 |
|
V872= (*(LnkLI378))((V850)); |
5918 |
|
if((/* INLINE-ARGS */V872)==((V856))){ |
5919 |
|
goto T1868;} |
5920 |
|
base[0]= (V850); |
5921 |
|
base[1]= (V856); |
5922 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
5923 |
(void) (*Lnk451)(Lclptr451); |
(void) (*Lnk467)(Lclptr467); |
5924 |
vs_top=sup; |
vs_top=sup; |
5925 |
goto T1972; |
goto T1868; |
5926 |
T1972:; |
T1868:; |
5927 |
{object V984; |
{object V873; |
5928 |
base[0]=VV[452]->s.s_gfdef; |
base[0]=VV[468]->s.s_gfdef; |
5929 |
base[1]= (V964); |
base[1]= (V850); |
5930 |
{object V985; |
{object V874; |
5931 |
V985= (V966); |
V874= (V852); |
5932 |
vs_top=base+2; |
vs_top=base+2; |
5933 |
while(V985!=Cnil) |
while(V874!=Cnil) |
5934 |
{vs_push((V985)->c.c_car);V985=(V985)->c.c_cdr;} |
{vs_push((V874)->c.c_car);V874=(V874)->c.c_cdr;} |
5935 |
vs_base=base+1;} |
vs_base=base+1;} |
5936 |
(void) (*Lnk452)(Lclptr452); |
(void) (*Lnk468)(Lclptr468); |
5937 |
vs_top=sup; |
vs_top=sup; |
5938 |
V984= vs_base[0]; |
V873= vs_base[0]; |
5939 |
if(((V969))==Cnil){ |
if(((V855))==Cnil){ |
5940 |
goto T1982;} |
goto T1878;} |
5941 |
(void)((*(LnkLI10))((V965),(V968))); |
(void)((*(LnkLI14))((V851),(V854))); |
5942 |
goto T1982; |
goto T1878; |
5943 |
T1982:; |
T1878:; |
5944 |
{object V986 = (V984); |
{object V875 = (V873); |
5945 |
VMR81(V986)}} |
VMR78(V875)}} |
5946 |
va_end(ap); |
va_end(ap); |
5947 |
base[0]=base[0]; |
base[0]=base[0]; |
5948 |
return Cnil;} |
return Cnil;} |
5949 |
}} |
}} |
5950 |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--NULL */ |
/* local entry for function REAL-ENSURE-GF-USING-CLASS--NULL */ |
5951 |
|
|
5952 |
static object LI94(object V988,object V987,object first,...) |
static object LI90(object V877,object V876,object first,...) |
5953 |
{ |
{ |
5954 |
va_list ap; |
va_list ap; |
5955 |
int narg = VFUN_NARGS; VMB82 VMS82 VMV82 |
int narg = VFUN_NARGS; VMB79 VMS79 VMV79 |
5956 |
{object V989; |
{object V878; |
5957 |
object V990; |
object V879; |
5958 |
register object V991; |
register object V880; |
5959 |
object V992; |
object V881; |
5960 |
object V993; |
object V882; |
5961 |
object V994; |
object V883; |
5962 |
register object V995; |
register object V884; |
5963 |
va_start(ap,first); |
va_start(ap,first); |
5964 |
if(narg <2) too_few_arguments(); |
if(narg <2) too_few_arguments(); |
5965 |
V989= V988; |
V878= V877; |
5966 |
V990= V987; |
V879= V876; |
5967 |
narg= narg - 2; |
narg= narg - 2; |
5968 |
V996 = make_list(narg); |
V885 = make_list(narg); |
5969 |
V991= V996; |
V880= V885; |
5970 |
{ |
{ |
5971 |
parse_key_rest_new(V996,narg,Vcs +3,(struct key *)(void *)&LI94key,first,ap); |
parse_key_rest_new(V885,narg,Vcs +3,(struct key *)(void *)&LI90key,first,ap); |
5972 |
V992=(Vcs[3]); |
V881=(Vcs[3]); |
5973 |
if(Vcs[4]==0){ |
if(Vcs[4]==0){ |
5974 |
V993= Cnil; |
V882= Cnil; |
5975 |
V994= Cnil; |
V883= Cnil; |
5976 |
}else{ |
}else{ |
5977 |
V993=(Vcs[4]); |
V882=(Vcs[4]); |
5978 |
V994= Ct;} |
V883= Ct;} |
5979 |
V995=(Vcs[5]); |
V884=(Vcs[5]); |
5980 |
if(!(type_of((V995))==t_symbol)){ |
if(!(type_of((V884))==t_symbol)){ |
5981 |
goto T1989;} |
goto T1885;} |
5982 |
V995= (VFUN_NARGS=3,(*(LnkLI291))((V995),Ct,(V992))); |
V884= (VFUN_NARGS=3,(*(LnkLI304))((V884),Ct,(V881))); |
5983 |
goto T1987; |
goto T1883; |
5984 |
goto T1989; |
goto T1885; |
5985 |
T1989:; |
T1885:; |
5986 |
{object V997; |
{object V886; |
5987 |
base[0]= (V995); |
base[0]= (V884); |
5988 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
5989 |
(void) (*Lnk292)(Lclptr292); |
(void) (*Lnk305)(Lclptr305); |
5990 |
vs_top=sup; |
vs_top=sup; |
5991 |
V997= vs_base[0]; |
V886= vs_base[0]; |
5992 |
if(((V997))==Cnil){ |
if(((V886))==Cnil){ |
5993 |
goto T1995;} |
goto T1891;} |
5994 |
goto T1987; |
goto T1883; |
5995 |
goto T1995; |
goto T1891; |
5996 |
T1995:; |
T1891:; |
5997 |
base[0]= VV[294]; |
base[0]= VV[307]; |
5998 |
base[1]= (V995); |
base[1]= (V884); |
5999 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6000 |
Lerror(); |
Lerror(); |
6001 |
vs_top=sup;} |
vs_top=sup;} |
6002 |
goto T1987; |
goto T1883; |
6003 |
T1987:; |
T1883:; |
6004 |
{object V998; |
{object V887; |
6005 |
object V999; |
object V888; |
6006 |
base[0]= (V991); |
base[0]= (V880); |
6007 |
base[1]= VV[5]; |
base[1]= VV[5]; |
6008 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6009 |
siLrem_f(); |
siLrem_f(); |
6010 |
if(vs_base>=vs_top){vs_top=sup;goto T2003;} |
if(vs_base>=vs_top){vs_top=sup;goto T1899;} |
6011 |
V998= vs_base[0]; |
V887= vs_base[0]; |
6012 |
vs_base++; |
vs_base++; |
6013 |
if(vs_base>=vs_top){vs_top=sup;goto T2004;} |
if(vs_base>=vs_top){vs_top=sup;goto T1900;} |
6014 |
V999= vs_base[0]; |
V888= vs_base[0]; |
6015 |
vs_top=sup; |
vs_top=sup; |
6016 |
goto T2005; |
goto T1901; |
6017 |
goto T2003; |
goto T1899; |
6018 |
T2003:; |
T1899:; |
6019 |
V998= Cnil; |
V887= Cnil; |
6020 |
goto T2004; |
goto T1900; |
6021 |
T2004:; |
T1900:; |
6022 |
V999= Cnil; |
V888= Cnil; |
6023 |
goto T2005; |
goto T1901; |
6024 |
T2005:; |
T1901:; |
6025 |
V991= (V998);} |
V880= (V887);} |
6026 |
{object V1000; |
{object V889; |
6027 |
object V1001; |
object V890; |
6028 |
base[0]= (V991); |
base[0]= (V880); |
6029 |
base[1]= VV[296]; |
base[1]= VV[309]; |
6030 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6031 |
siLrem_f(); |
siLrem_f(); |
6032 |
if(vs_base>=vs_top){vs_top=sup;goto T2012;} |
if(vs_base>=vs_top){vs_top=sup;goto T1908;} |
6033 |
V1000= vs_base[0]; |
V889= vs_base[0]; |
6034 |
vs_base++; |
vs_base++; |
6035 |
if(vs_base>=vs_top){vs_top=sup;goto T2013;} |
if(vs_base>=vs_top){vs_top=sup;goto T1909;} |
6036 |
V1001= vs_base[0]; |
V890= vs_base[0]; |
6037 |
vs_top=sup; |
vs_top=sup; |
6038 |
goto T2014; |
goto T1910; |
6039 |
goto T2012; |
goto T1908; |
6040 |
T2012:; |
T1908:; |
6041 |
V1000= Cnil; |
V889= Cnil; |
6042 |
goto T2013; |
goto T1909; |
6043 |
T2013:; |
T1909:; |
6044 |
V1001= Cnil; |
V890= Cnil; |
6045 |
goto T2014; |
goto T1910; |
6046 |
T2014:; |
T1910:; |
6047 |
V991= (V1000);} |
V880= (V889);} |
6048 |
{object V1002; |
{object V891; |
6049 |
base[0]= (V991); |
base[0]= (V880); |
6050 |
base[1]= VV[4]; |
base[1]= VV[4]; |
6051 |
base[2]= VV[304]; |
base[2]= VV[320]; |
6052 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
6053 |
Lgetf(); |
Lgetf(); |
6054 |
vs_top=sup; |
vs_top=sup; |
6055 |
V1002= vs_base[0]; |
V891= vs_base[0]; |
6056 |
if(((V1002))==(VV[304])){ |
if(((V891))==(VV[320])){ |
6057 |
goto T1986;} |
goto T1913;} |
6058 |
{object V1004; |
{object V893; |
6059 |
base[2]= (V995); |
base[2]= (V884); |
6060 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6061 |
(void) (*Lnk302)(Lclptr302); |
(void) (*Lnk315)(Lclptr315); |
6062 |
vs_top=sup; |
vs_top=sup; |
6063 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
6064 |
base[2]= CMPcar((V1002)); |
base[2]= CMPcar((V891)); |
6065 |
base[3]= CMPcdr((V1002)); |
base[3]= CMPcdr((V891)); |
6066 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6067 |
(void) (*Lnk301)(Lclptr301); |
(void) (*Lnk314)(Lclptr314); |
6068 |
vs_top=sup; |
vs_top=sup; |
6069 |
V1004= vs_base[0]; |
V893= vs_base[0]; |
6070 |
{object V1005; |
{object V894; |
6071 |
base[1]= (V991); |
base[1]= (V880); |
6072 |
base[2]= (V1004); |
base[2]= (V893); |
6073 |
base[3]= VV[4]; |
base[3]= VV[4]; |
6074 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
6075 |
siLput_f(); |
siLput_f(); |
6076 |
vs_top=sup; |
vs_top=sup; |
6077 |
V1005= vs_base[0]; |
V894= vs_base[0]; |
6078 |
V991= (V1005);}}} |
V880= (V894);}}} |
6079 |
goto T1986; |
goto T1913; |
6080 |
T1986:; |
T1913:; |
6081 |
{object V1006; |
{object V895; |
6082 |
{object V1008; |
base[0]= (V880); |
6083 |
base[1]=VV[453]->s.s_gfdef; |
base[1]= VV[6]; |
6084 |
base[2]= (V995); |
base[2]= VV[320]; |
6085 |
base[3]= VV[219]; |
vs_top=(vs_base=base+0)+3; |
6086 |
base[4]= (V990); |
Lgetf(); |
6087 |
{object V1009; |
vs_top=sup; |
6088 |
V1009= (V991); |
V895= vs_base[0]; |
6089 |
|
if(((V895))==(VV[320])){ |
6090 |
|
goto T1882;} |
6091 |
|
{object V897; |
6092 |
|
V897= (VFUN_NARGS=3,(*(LnkLI304))((V895),Ct,(V881))); |
6093 |
|
{object V898; |
6094 |
|
base[1]= (V880); |
6095 |
|
base[2]= (V897); |
6096 |
|
base[3]= VV[6]; |
6097 |
|
vs_top=(vs_base=base+1)+3; |
6098 |
|
siLput_f(); |
6099 |
|
vs_top=sup; |
6100 |
|
V898= vs_base[0]; |
6101 |
|
V880= (V898);}}} |
6102 |
|
goto T1882; |
6103 |
|
T1882:; |
6104 |
|
{object V899; |
6105 |
|
{object V901; |
6106 |
|
base[1]=VV[469]->s.s_gfdef; |
6107 |
|
base[2]= (V884); |
6108 |
|
base[3]= VV[158]; |
6109 |
|
base[4]= (V879); |
6110 |
|
{object V902; |
6111 |
|
V902= (V880); |
6112 |
vs_top=base+5; |
vs_top=base+5; |
6113 |
while(V1009!=Cnil) |
while(V902!=Cnil) |
6114 |
{vs_push((V1009)->c.c_car);V1009=(V1009)->c.c_cdr;} |
{vs_push((V902)->c.c_car);V902=(V902)->c.c_cdr;} |
6115 |
vs_base=base+2;} |
vs_base=base+2;} |
6116 |
(void) (*Lnk453)(Lclptr453); |
(void) (*Lnk469)(Lclptr469); |
6117 |
vs_top=sup; |
vs_top=sup; |
6118 |
V1008= vs_base[0]; |
V901= vs_base[0]; |
6119 |
V1010= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V903= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
6120 |
V1011 = (V1008); |
V899= ( |
6121 |
V1012 = V990; |
V904 = V903, |
6122 |
V1006= ( |
(type_of(V904) == t_sfun ?(*((V904)->sfn.sfn_self)): |
6123 |
V1013 = V1010, |
(fcall.argd=2,type_of(V904)==t_vfun) ? |
6124 |
(type_of(V1013) == t_sfun ?(*((V1013)->sfn.sfn_self)): |
(*((V904)->sfn.sfn_self)): |
6125 |
(fcall.argd=2,type_of(V1013)==t_vfun) ? |
(fcall.fun=(V904),fcalln))((V901),V879));} |
6126 |
(*((V1013)->sfn.sfn_self)): |
if(((V883))==Cnil){ |
6127 |
(fcall.fun=(V1013),fcalln))(V1011,V1012));} |
goto T1951;} |
6128 |
if(((V994))==Cnil){ |
(void)((*(LnkLI14))((V879),(V882))); |
6129 |
goto T2041;} |
goto T1951; |
6130 |
(void)((*(LnkLI10))((V990),(V993))); |
T1951:; |
6131 |
goto T2041; |
{object V905 = (V899); |
6132 |
T2041:; |
VMR79(V905)}} |
|
{object V1014 = (V1006); |
|
|
VMR82(V1014)}} |
|
6133 |
va_end(ap); |
va_end(ap); |
6134 |
base[0]=base[0]; |
base[0]=base[0]; |
6135 |
return Cnil;} |
return Cnil;} |
6136 |
}} |
}} |
6137 |
/* function definition for GET-GENERIC-FUNCTION-INFO */ |
/* function definition for GET-GENERIC-FUNCTION-INFO */ |
6138 |
|
|
6139 |
static void L95() |
static void L91() |
6140 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6141 |
register object *sup=base+VM83; VC83 |
register object *sup=base+VM80; VC80 |
6142 |
vs_check; |
vs_check; |
6143 |
{register object V1015; |
{register object V906; |
6144 |
check_arg(1); |
check_arg(1); |
6145 |
V1015=(base[0]); |
V906=(base[0]); |
6146 |
vs_top=sup; |
vs_top=sup; |
6147 |
goto TTL; |
goto TTL; |
6148 |
TTL:; |
TTL:; |
6149 |
{object V1016; |
{object V907; |
6150 |
object V1017; |
object V908; |
6151 |
object V1018; |
object V909; |
6152 |
{object V1019; |
{object V910; |
6153 |
object V1020; |
object V911; |
6154 |
if(((*(LnkLI438))((V1015)))==Cnil){ |
if(((*(LnkLI453))((V906)))==Cnil){ |
6155 |
goto T2047;} |
goto T1957;} |
6156 |
if(type_of(V1015)==t_structure){ |
if(type_of(V906)==t_structure){ |
6157 |
goto T2053;} |
goto T1963;} |
6158 |
goto T2051; |
goto T1961; |
6159 |
goto T2053; |
goto T1963; |
6160 |
T2053:; |
T1963:; |
6161 |
if(!(((V1015)->str.str_def)==(VV[305]))){ |
if(!(((V906)->str.str_def)==(VV[321]))){ |
6162 |
goto T2051;} |
goto T1961;} |
6163 |
V1021= STREF(object,(V1015),4); |
V912= STREF(object,(V906),4); |
6164 |
goto T2049; |
goto T1959; |
6165 |
goto T2051; |
goto T1961; |
6166 |
T2051:;{object V1023; |
T1961:;{object V914; |
6167 |
V1023= (VV[146]->s.s_dbind); |
V914= (VV[151]->s.s_dbind); |
6168 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
6169 |
base[4]= (V1015); |
base[4]= (V906); |
6170 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
6171 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6172 |
vs_top=sup; |
vs_top=sup; |
6173 |
V1024= vs_base[0]; |
V915= vs_base[0]; |
6174 |
if(!((V1023)==(CMPcar(V1024)))){ |
if(!((V914)==(CMPcar(V915)))){ |
6175 |
goto T2056;}} |
goto T1966;}} |
6176 |
V1021= CMPcar(((V1015))->cc.cc_turbo[12]); |
V912= CMPcar(((V906))->cc.cc_turbo[12]); |
6177 |
goto T2049; |
goto T1959; |
6178 |
goto T2056; |
goto T1966; |
6179 |
T2056:; |
T1966:; |
6180 |
base[3]= VV[147]; |
base[3]= VV[152]; |
6181 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6182 |
Lerror(); |
Lerror(); |
6183 |
vs_top=sup; |
vs_top=sup; |
6184 |
V1021= vs_base[0]; |
V912= vs_base[0]; |
6185 |
goto T2049; |
goto T1959; |
6186 |
T2049:; |
T1959:; |
6187 |
V1025 = (VV[237]->s.s_dbind); |
V910= (V912)->v.v_self[fix((VV[250]->s.s_dbind))]; |
6188 |
V1019= (V1021)->v.v_self[fix(V1025)]; |
goto T1955; |
6189 |
goto T2045; |
goto T1957; |
6190 |
goto T2047; |
T1957:; |
6191 |
T2047:; |
base[3]= (V906); |
|
base[3]= (V1015); |
|
6192 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6193 |
(void) (*Lnk393)(Lclptr393); |
(void) (*Lnk439)(Lclptr439); |
6194 |
vs_top=sup; |
vs_top=sup; |
6195 |
V1019= vs_base[0]; |
V910= vs_base[0]; |
6196 |
goto T2045; |
goto T1955; |
6197 |
T2045:; |
T1955:; |
6198 |
V1020= STREF(object,(V1019),8); |
V911= STREF(object,(V910),8); |
6199 |
base[3]= (*(LnkLI395))((V1019)); |
base[3]= (*(LnkLI470))((V910)); |
6200 |
base[4]= (V1020); |
base[4]= (V911); |
6201 |
base[5]= (V1019); |
base[5]= (V910); |
6202 |
vs_top=(vs_base=base+3)+3;} |
vs_top=(vs_base=base+3)+3;} |
6203 |
if(vs_base>=vs_top){vs_top=sup;goto T2067;} |
if(vs_base>=vs_top){vs_top=sup;goto T1977;} |
6204 |
V1016= vs_base[0]; |
V907= vs_base[0]; |
6205 |
vs_base++; |
vs_base++; |
6206 |
if(vs_base>=vs_top){vs_top=sup;goto T2068;} |
if(vs_base>=vs_top){vs_top=sup;goto T1978;} |
6207 |
V1017= vs_base[0]; |
V908= vs_base[0]; |
6208 |
vs_base++; |
vs_base++; |
6209 |
if(vs_base>=vs_top){vs_top=sup;goto T2069;} |
if(vs_base>=vs_top){vs_top=sup;goto T1979;} |
6210 |
V1018= vs_base[0]; |
V909= vs_base[0]; |
6211 |
vs_top=sup; |
vs_top=sup; |
6212 |
goto T2070; |
goto T1980; |
6213 |
goto T2067; |
goto T1977; |
6214 |
T2067:; |
T1977:; |
6215 |
V1016= Cnil; |
V907= Cnil; |
6216 |
goto T2068; |
goto T1978; |
6217 |
T2068:; |
T1978:; |
6218 |
V1017= Cnil; |
V908= Cnil; |
6219 |
goto T2069; |
goto T1979; |
6220 |
T2069:; |
T1979:; |
6221 |
V1018= Cnil; |
V909= Cnil; |
6222 |
goto T2070; |
goto T1980; |
6223 |
T2070:; |
T1980:; |
6224 |
base[1]= CMPmake_fixnum((long)length((V1017))); |
base[1]= CMPmake_fixnum((long)length((V908))); |
6225 |
base[2]= (V1016); |
base[2]= (V907); |
6226 |
base[3]= (V1017); |
base[3]= (V908); |
6227 |
base[5]= VV[454]; |
base[5]= VV[471]; |
6228 |
base[6]= (V1017); |
base[6]= (V908); |
6229 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
6230 |
(void) (*Lnk425)(); |
(void) (*Lnk438)(); |
6231 |
vs_top=sup; |
vs_top=sup; |
6232 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
6233 |
base[5]= (V1018); |
base[5]= (V909); |
6234 |
vs_top=(vs_base=base+1)+5; |
vs_top=(vs_base=base+1)+5; |
6235 |
return;} |
return;} |
6236 |
} |
} |
6237 |
} |
} |
6238 |
/* local entry for function EARLY-MAKE-A-METHOD */ |
/* local entry for function EARLY-MAKE-A-METHOD */ |
6239 |
|
|
6240 |
static object LI96(object V1031,object V1030,object V1029,object V1028,object V1027,object V1026,object first,...) |
static object LI92(object V921,object V920,object V919,object V918,object V917,object V916,object first,...) |
6241 |
{ |
{ |
6242 |
va_list ap; |
va_list ap; |
6243 |
int narg = VFUN_NARGS; VMB84 VMS84 VMV84 |
int narg = VFUN_NARGS; VMB81 VMS81 VMV81 |
6244 |
{object V1032; |
{object V922; |
6245 |
object V1033; |
object V923; |
6246 |
object V1034; |
object V924; |
6247 |
register object V1035; |
register object V925; |
6248 |
register object V1036; |
register object V926; |
6249 |
object V1037; |
object V927; |
6250 |
object V1038; |
object V928; |
6251 |
va_start(ap,first); |
va_start(ap,first); |
6252 |
if(narg <6) too_few_arguments(); |
if(narg <6) too_few_arguments(); |
6253 |
V1032= V1031; |
V922= V921; |
6254 |
V1033= V1030; |
V923= V920; |
6255 |
V1034= V1029; |
V924= V919; |
6256 |
V1035= V1028; |
V925= V918; |
6257 |
V1036= V1027; |
V926= V917; |
6258 |
V1037= V1026; |
V927= V916; |
6259 |
narg = narg - 6; |
narg = narg - 6; |
6260 |
if (narg <= 0) goto T2078; |
if (narg <= 0) goto T1988; |
6261 |
else { |
else { |
6262 |
V1038= first;} |
V928= first;} |
6263 |
--narg; goto T2079; |
--narg; goto T1989; |
6264 |
goto T2078; |
goto T1988; |
6265 |
T2078:; |
T1988:; |
6266 |
V1038= Cnil; |
V928= Cnil; |
6267 |
goto T2079; |
goto T1989; |
6268 |
T2079:; |
T1989:; |
6269 |
(void)((VFUN_NARGS=1,(*(LnkLI455))((V1036)))); |
(void)((VFUN_NARGS=1,(*(LnkLI472))((V926)))); |
6270 |
{object V1039; |
{object V929; |
6271 |
object V1040; |
object V930; |
6272 |
V1039= Cnil; |
V929= Cnil; |
6273 |
V1040= Cnil; |
V930= Cnil; |
6274 |
base[0]= VV[456]; |
base[0]= VV[473]; |
6275 |
base[1]= (V1035); |
base[1]= (V925); |
6276 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6277 |
(void) (*Lnk366)(); |
(void) (*Lnk381)(); |
6278 |
vs_top=sup; |
vs_top=sup; |
6279 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
6280 |
goto T2084;} |
goto T1994;} |
6281 |
V1039= (V1035); |
V929= (V925); |
6282 |
{object V1041; |
{object V931; |
6283 |
object V1042= (V1035); |
object V932= (V925); |
6284 |
if(V1042==Cnil){ |
if(V932==Cnil){ |
6285 |
V1040= Cnil; |
V930= Cnil; |
6286 |
goto T2090;} |
goto T2000;} |
6287 |
base[0]=V1041=MMcons(Cnil,Cnil); |
base[0]=V931=MMcons(Cnil,Cnil); |
6288 |
goto T2091; |
goto T2001; |
6289 |
T2091:; |
T2001:; |
6290 |
if(!(((V1042->c.c_car))==(Ct))){ |
if(!(((V932->c.c_car))==(Ct))){ |
6291 |
goto T2094;} |
goto T2004;} |
6292 |
(V1041->c.c_car)= Ct; |
(V931->c.c_car)= Ct; |
6293 |
goto T2092; |
goto T2002; |
6294 |
goto T2094; |
goto T2004; |
6295 |
T2094:; |
T2004:; |
6296 |
base[1]= (V1042->c.c_car); |
base[1]= (V932->c.c_car); |
6297 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6298 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk379)(Lclptr379); |
6299 |
vs_top=sup; |
vs_top=sup; |
6300 |
(V1041->c.c_car)= vs_base[0]; |
(V931->c.c_car)= vs_base[0]; |
6301 |
goto T2092; |
goto T2002; |
6302 |
T2092:; |
T2002:; |
6303 |
if((V1042=MMcdr(V1042))==Cnil){ |
if((V932=MMcdr(V932))==Cnil){ |
6304 |
V1040= base[0]; |
V930= base[0]; |
6305 |
goto T2090;} |
goto T2000;} |
6306 |
V1041=MMcdr(V1041)=MMcons(Cnil,Cnil); |
V931=MMcdr(V931)=MMcons(Cnil,Cnil); |
6307 |
goto T2091;} |
goto T2001;} |
6308 |
goto T2090; |
goto T2000; |
6309 |
T2090:; |
T2000:; |
6310 |
goto T2082; |
goto T1992; |
6311 |
goto T2084; |
goto T1994; |
6312 |
T2084:; |
T1994:; |
6313 |
V1040= (V1035); |
V930= (V925); |
6314 |
V1039= Cnil; |
V929= Cnil; |
6315 |
goto T2082; |
goto T1992; |
6316 |
T2082:; |
T1992:; |
6317 |
base[0]= (V1036); |
base[0]= (V926); |
6318 |
base[1]= VV[35]; |
base[1]= VV[39]; |
6319 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6320 |
Lgetf(); |
Lgetf(); |
6321 |
vs_top=sup; |
vs_top=sup; |
6322 |
V1044= vs_base[0]; |
V934= vs_base[0]; |
6323 |
base[0]= (V1036); |
base[0]= (V926); |
6324 |
base[1]= VV[215]; |
base[1]= VV[225]; |
6325 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6326 |
Lgetf(); |
Lgetf(); |
6327 |
vs_top=sup; |
vs_top=sup; |
6328 |
V1045= vs_base[0]; |
V935= vs_base[0]; |
6329 |
V1046 = (V1039); |
{object V936 = list(5,VV[322],V934,V935,(V929),list(7,(V922),(V923),(V924),(V930),(V926),(V927),(V928))); |
6330 |
{object V1047 = list(5,VV[306],V1044,V1045,V1046,list(7,(V1032),(V1033),(V1034),(V1040),(V1036),(V1037),(V1038))); |
VMR81(V936)}} |
|
VMR84(V1047)}} |
|
6331 |
va_end(ap); |
va_end(ap); |
6332 |
base[0]=base[0]; |
base[0]=base[0]; |
6333 |
return Cnil;} |
return Cnil;} |
6334 |
} |
} |
6335 |
/* function definition for REAL-MAKE-A-METHOD */ |
/* function definition for REAL-MAKE-A-METHOD */ |
6336 |
|
|
6337 |
static void L97() |
static void L93() |
6338 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6339 |
register object *sup=base+VM85; VC85 |
register object *sup=base+VM82; VC82 |
6340 |
vs_check; |
vs_check; |
6341 |
{object V1048; |
{object V937; |
6342 |
object V1049; |
object V938; |
6343 |
object V1050; |
object V939; |
6344 |
object V1051; |
object V940; |
6345 |
object V1052; |
object V941; |
6346 |
object V1053; |
object V942; |
6347 |
object V1054; |
object V943; |
6348 |
if(vs_top-vs_base<6) too_few_arguments(); |
if(vs_top-vs_base<6) too_few_arguments(); |
6349 |
if(vs_top-vs_base>7) too_many_arguments(); |
if(vs_top-vs_base>7) too_many_arguments(); |
6350 |
V1048=(base[0]); |
V937=(base[0]); |
6351 |
V1049=(base[1]); |
V938=(base[1]); |
6352 |
V1050=(base[2]); |
V939=(base[2]); |
6353 |
V1051=(base[3]); |
V940=(base[3]); |
6354 |
V1052=(base[4]); |
V941=(base[4]); |
6355 |
V1053=(base[5]); |
V942=(base[5]); |
6356 |
vs_base=vs_base+6; |
vs_base=vs_base+6; |
6357 |
if(vs_base>=vs_top){vs_top=sup;goto T2106;} |
if(vs_base>=vs_top){vs_top=sup;goto T2016;} |
6358 |
V1054=(base[6]); |
V943=(base[6]); |
6359 |
vs_top=sup; |
vs_top=sup; |
6360 |
goto T2107; |
goto T2017; |
6361 |
goto T2106; |
goto T2016; |
6362 |
T2106:; |
T2016:; |
6363 |
V1054= Cnil; |
V943= Cnil; |
6364 |
goto T2107; |
goto T2017; |
6365 |
T2107:; |
T2017:; |
6366 |
V1051= (*(LnkLI457))((V1051)); |
V940= (*(LnkLI474))((V940)); |
6367 |
base[7]=VV[453]->s.s_gfdef; |
base[7]=VV[469]->s.s_gfdef; |
6368 |
base[8]= (V1048); |
base[8]= (V937); |
6369 |
base[9]= VV[307]; |
base[9]= VV[323]; |
6370 |
base[10]= (V1049); |
base[10]= (V938); |
6371 |
base[11]= VV[15]; |
base[11]= VV[19]; |
6372 |
base[12]= (V1050); |
base[12]= (V939); |
6373 |
base[13]= VV[308]; |
base[13]= VV[324]; |
6374 |
base[14]= (V1051); |
base[14]= (V940); |
6375 |
base[15]= VV[3]; |
base[15]= VV[3]; |
6376 |
base[16]= (V1053); |
base[16]= (V942); |
6377 |
base[17]= VV[309]; |
base[17]= VV[325]; |
6378 |
base[18]= (V1054); |
base[18]= (V943); |
6379 |
base[19]= VV[310]; |
base[19]= VV[326]; |
6380 |
base[20]= Ct; |
base[20]= Ct; |
6381 |
{object V1055; |
{object V944; |
6382 |
V1055= (V1052); |
V944= (V941); |
6383 |
vs_top=base+21; |
vs_top=base+21; |
6384 |
while(V1055!=Cnil) |
while(V944!=Cnil) |
6385 |
{vs_push((V1055)->c.c_car);V1055=(V1055)->c.c_cdr;} |
{vs_push((V944)->c.c_car);V944=(V944)->c.c_cdr;} |
6386 |
vs_base=base+8;} |
vs_base=base+8;} |
6387 |
(void) (*Lnk453)(Lclptr453); |
(void) (*Lnk469)(Lclptr469); |
6388 |
return; |
return; |
6389 |
} |
} |
6390 |
} |
} |
6391 |
/* function definition for EARLY-METHOD-FUNCTION */ |
/* function definition for EARLY-METHOD-FUNCTION */ |
6392 |
|
|
6393 |
static void L98() |
static void L94() |
6394 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6395 |
register object *sup=base+VM86; VC86 |
register object *sup=base+VM83; VC83 |
6396 |
vs_check; |
vs_check; |
6397 |
{object V1056; |
{object V945; |
6398 |
check_arg(1); |
check_arg(1); |
6399 |
V1056=(base[0]); |
V945=(base[0]); |
6400 |
vs_top=sup; |
vs_top=sup; |
6401 |
goto TTL; |
goto TTL; |
6402 |
TTL:; |
TTL:; |
6403 |
base[1]= CMPcadr((V1056)); |
base[1]= CMPcadr((V945)); |
6404 |
base[2]= CMPcaddr((V1056)); |
base[2]= CMPcaddr((V945)); |
6405 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
6406 |
return; |
return; |
6407 |
} |
} |
6408 |
} |
} |
6409 |
/* local entry for function EARLY-METHOD-CLASS */ |
/* local entry for function EARLY-METHOD-CLASS */ |
6410 |
|
|
6411 |
static object LI99(V1058) |
static object LI95(V947) |
6412 |
|
|
6413 |
object V1058; |
object V947; |
6414 |
{ VMB87 VMS87 VMV87 |
{ VMB84 VMS84 VMV84 |
6415 |
goto TTL; |
goto TTL; |
6416 |
TTL:; |
TTL:; |
6417 |
base[0]= (V1058); |
base[0]= (V947); |
6418 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6419 |
(void) (*Lnk458)(); |
(void) (*Lnk475)(); |
6420 |
vs_top=sup; |
vs_top=sup; |
6421 |
V1059= vs_base[0]; |
V948= vs_base[0]; |
6422 |
{object V1060 = (VFUN_NARGS=1,(*(LnkLI291))(CMPcar(V1059))); |
{object V949 = (VFUN_NARGS=1,(*(LnkLI304))(CMPcar(V948))); |
6423 |
VMR87(V1060)} |
VMR84(V949)} |
6424 |
base[0]=base[0]; |
base[0]=base[0]; |
6425 |
return Cnil; |
return Cnil; |
6426 |
} |
} |
6427 |
/* local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P */ |
/* local entry for function EARLY-METHOD-STANDARD-ACCESSOR-P */ |
6428 |
|
|
6429 |
static object LI100(V1062) |
static object LI96(V951) |
6430 |
|
|
6431 |
object V1062; |
object V951; |
6432 |
{ VMB88 VMS88 VMV88 |
{ VMB85 VMS85 VMV85 |
6433 |
goto TTL; |
goto TTL; |
6434 |
TTL:; |
TTL:; |
6435 |
{object V1063; |
{object V952; |
6436 |
base[0]= (V1062); |
base[0]= (V951); |
6437 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6438 |
(void) (*Lnk458)(); |
(void) (*Lnk475)(); |
6439 |
vs_top=sup; |
vs_top=sup; |
6440 |
V1064= vs_base[0]; |
V953= vs_base[0]; |
6441 |
V1063= CMPcar(V1064); |
V952= CMPcar(V953); |
6442 |
if(!(((V1063))==(VV[311]))){ |
if(!(((V952))==(VV[327]))){ |
6443 |
goto T2132;} |
goto T2042;} |
6444 |
{object V1065 = Ct; |
{object V954 = Ct; |
6445 |
VMR88(V1065)} |
VMR85(V954)} |
6446 |
goto T2132; |
goto T2042; |
6447 |
T2132:; |
T2042:; |
6448 |
if(!(((V1063))==(VV[312]))){ |
if(!(((V952))==(VV[328]))){ |
6449 |
goto T2134;} |
goto T2044;} |
6450 |
{object V1066 = Ct; |
{object V955 = Ct; |
6451 |
VMR88(V1066)} |
VMR85(V955)} |
6452 |
goto T2134; |
goto T2044; |
6453 |
T2134:; |
T2044:; |
6454 |
{object V1067 = (((V1063))==(VV[313])?Ct:Cnil); |
{object V956 = (((V952))==(VV[329])?Ct:Cnil); |
6455 |
VMR88(V1067)}} |
VMR85(V956)}} |
6456 |
base[0]=base[0]; |
base[0]=base[0]; |
6457 |
return Cnil; |
return Cnil; |
6458 |
} |
} |
6459 |
/* function definition for EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME */ |
/* function definition for EARLY-METHOD-STANDARD-ACCESSOR-SLOT-NAME */ |
6460 |
|
|
6461 |
static void L101() |
static void L97() |
6462 |
{register object *base=vs_base; |
{register object *base=vs_base; |
6463 |
register object *sup=base+VM89; VC89 |
register object *sup=base+VM86; VC86 |
6464 |
vs_check; |
vs_check; |
6465 |
{object V1068; |
{object V957; |
6466 |
check_arg(1); |
check_arg(1); |
6467 |
V1068=(base[0]); |
V957=(base[0]); |
6468 |
vs_top=sup; |
vs_top=sup; |
6469 |
goto TTL; |
goto TTL; |
6470 |
TTL:; |
TTL:; |
6471 |
base[2]= (V1068); |
base[2]= (V957); |
6472 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6473 |
(void) (*Lnk458)(); |
(void) (*Lnk475)(); |
6474 |
vs_top=sup; |
vs_top=sup; |
6475 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
6476 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
6477 |
(void) (*Lnk459)(); |
(void) (*Lnk476)(); |
6478 |
return; |
return; |
6479 |
} |
} |
6480 |
} |
} |
6481 |
/* local entry for function EARLY-METHOD-SPECIALIZERS */ |
/* local entry for function EARLY-METHOD-SPECIALIZERS */ |
6482 |
|
|
6483 |
static object LI102(object V1069,object first,...) |
static object LI98(object V958,object first,...) |
6484 |
{ |
{ |
6485 |
va_list ap; |
va_list ap; |
6486 |
int narg = VFUN_NARGS; VMB90 VMS90 VMV90 |
int narg = VFUN_NARGS; VMB87 VMS87 VMV87 |
6487 |
{register object V1070; |
{register object V959; |
6488 |
object V1071; |
object V960; |
6489 |
va_start(ap,first); |
va_start(ap,first); |
6490 |
if(narg <1) too_few_arguments(); |
if(narg <1) too_few_arguments(); |
6491 |
V1070= V1069; |
V959= V958; |
6492 |
narg = narg - 1; |
narg = narg - 1; |
6493 |
if (narg <= 0) goto T2138; |
if (narg <= 0) goto T2048; |
6494 |
else { |
else { |
6495 |
V1071= first;} |
V960= first;} |
6496 |
--narg; goto T2139; |
--narg; goto T2049; |
6497 |
goto T2138; |
goto T2048; |
6498 |
T2138:; |
T2048:; |
6499 |
V1071= Cnil; |
V960= Cnil; |
6500 |
goto T2139; |
goto T2049; |
6501 |
T2139:; |
T2049:; |
6502 |
if(!(type_of((V1070))==t_cons||((V1070))==Cnil)){ |
if(!(type_of((V959))==t_cons||((V959))==Cnil)){ |
6503 |
goto T2142;} |
goto T2052;} |
6504 |
if(!((CMPcar((V1070)))==(VV[306]))){ |
if(!((CMPcar((V959)))==(VV[322]))){ |
6505 |
goto T2142;} |
goto T2052;} |
6506 |
if(!(((V1071))==(Ct))){ |
if(!(((V960))==(Ct))){ |
6507 |
goto T2147;}{object V1072; |
goto T2057;}{object V961; |
6508 |
V1072= CMPcadddr((V1070)); |
V961= CMPcadddr((V959)); |
6509 |
if(V1072==Cnil)goto T2149; |
if(V961==Cnil)goto T2059; |
6510 |
{object V1073 = V1072; |
{object V962 = V961; |
6511 |
VMR90(V1073)} |
VMR87(V962)} |
6512 |
goto T2149; |
goto T2059; |
6513 |
T2149:;} |
T2059:;} |
6514 |
{object V1075; |
{object V964; |
6515 |
base[2]=VV[291]->s.s_gfdef; |
base[2]=VV[304]->s.s_gfdef; |
6516 |
base[3]= (V1070); |
base[3]= (V959); |
|
vs_top=(vs_base=base+3)+1; |
|
|
(void) (*Lnk458)(); |
|
|
vs_top=sup; |
|
|
V1078= vs_base[0]; |
|
|
{object V1076; |
|
|
object V1077= CMPcadddr(V1078); |
|
|
if(V1077==Cnil){ |
|
|
V1075= Cnil; |
|
|
goto T2151;} |
|
|
base[1]=V1076=MMcons(Cnil,Cnil); |
|
|
goto T2152; |
|
|
T2152:; |
|
|
base[3]= (V1077->c.c_car); |
|
6517 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6518 |
(void) (*Lnk291)(); |
(void) (*Lnk475)(); |
6519 |
vs_top=sup; |
vs_top=sup; |
6520 |
(V1076->c.c_car)= vs_base[0]; |
V967= vs_base[0]; |
6521 |
if((V1077=MMcdr(V1077))==Cnil){ |
{object V965; |
6522 |
V1075= base[1]; |
object V966= CMPcadddr(V967); |
6523 |
goto T2151;} |
if(V966==Cnil){ |
6524 |
V1076=MMcdr(V1076)=MMcons(Cnil,Cnil); |
V964= Cnil; |
6525 |
goto T2152;} |
goto T2061;} |
6526 |
goto T2151; |
base[1]=V965=MMcons(Cnil,Cnil); |
6527 |
T2151:; |
goto T2062; |
6528 |
(CMPcdddr(V1070))->c.c_car = (V1075); |
T2062:; |
6529 |
(void)(CMPcdddr(V1070)); |
base[3]= (V966->c.c_car); |
6530 |
{object V1079 = (V1075); |
vs_top=(vs_base=base+3)+1; |
6531 |
VMR90(V1079)}} |
(void) (*Lnk304)(); |
6532 |
goto T2147; |
vs_top=sup; |
6533 |
T2147:; |
(V965->c.c_car)= vs_base[0]; |
6534 |
base[0]= (V1070); |
if((V966=MMcdr(V966))==Cnil){ |
6535 |
|
V964= base[1]; |
6536 |
|
goto T2061;} |
6537 |
|
V965=MMcdr(V965)=MMcons(Cnil,Cnil); |
6538 |
|
goto T2062;} |
6539 |
|
goto T2061; |
6540 |
|
T2061:; |
6541 |
|
(CMPcdddr(V959))->c.c_car = (V964); |
6542 |
|
(void)(CMPcdddr(V959)); |
6543 |
|
{object V968 = (V964); |
6544 |
|
VMR87(V968)}} |
6545 |
|
goto T2057; |
6546 |
|
T2057:; |
6547 |
|
base[0]= (V959); |
6548 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6549 |
(void) (*Lnk458)(); |
(void) (*Lnk475)(); |
6550 |
vs_top=sup; |
vs_top=sup; |
6551 |
V1080= vs_base[0]; |
V969= vs_base[0]; |
6552 |
{object V1081 = CMPcadddr(V1080); |
{object V970 = CMPcadddr(V969); |
6553 |
VMR90(V1081)} |
VMR87(V970)} |
6554 |
goto T2142; |
goto T2052; |
6555 |
T2142:; |
T2052:; |
6556 |
base[0]= VV[314]; |
base[0]= VV[330]; |
6557 |
base[1]= (V1070); |
base[1]= (V959); |
6558 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6559 |
Lerror(); |
Lerror(); |
6560 |
vs_top=sup; |
vs_top=sup; |
6561 |
{object V1082 = vs_base[0]; |
{object V971 = vs_base[0]; |
6562 |
VMR90(V1082)} |
VMR87(V971)} |
6563 |
va_end(ap); |
va_end(ap); |
6564 |
base[0]=base[0]; |
base[0]=base[0]; |
6565 |
return Cnil;} |
return Cnil;} |
6566 |
} |
} |
6567 |
/* local entry for function EARLY-METHOD-QUALIFIERS */ |
/* local entry for function EARLY-METHOD-QUALIFIERS */ |
6568 |
|
|
6569 |
static object LI103(V1084) |
static object LI99(V973) |
6570 |
|
|
6571 |
object V1084; |
object V973; |
6572 |
{ VMB91 VMS91 VMV91 |
{ VMB88 VMS88 VMV88 |
6573 |
goto TTL; |
goto TTL; |
6574 |
TTL:; |
TTL:; |
6575 |
base[0]= (V1084); |
base[0]= (V973); |
6576 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6577 |
(void) (*Lnk458)(); |
(void) (*Lnk475)(); |
6578 |
vs_top=sup; |
vs_top=sup; |
6579 |
V1085= vs_base[0]; |
V974= vs_base[0]; |
6580 |
{object V1086 = CMPcadr(V1085); |
{object V975 = CMPcadr(V974); |
6581 |
VMR91(V1086)} |
VMR88(V975)} |
6582 |
base[0]=base[0]; |
base[0]=base[0]; |
6583 |
return Cnil; |
return Cnil; |
6584 |
} |
} |
6585 |
/* local entry for function EARLY-METHOD-LAMBDA-LIST */ |
/* local entry for function EARLY-METHOD-LAMBDA-LIST */ |
6586 |
|
|
6587 |
static object LI104(V1088) |
static object LI100(V977) |
6588 |
|
|
6589 |
object V1088; |
object V977; |
6590 |
{ VMB92 VMS92 VMV92 |
{ VMB89 VMS89 VMV89 |
6591 |
goto TTL; |
goto TTL; |
6592 |
TTL:; |
TTL:; |
6593 |
base[0]= (V1088); |
base[0]= (V977); |
6594 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6595 |
(void) (*Lnk458)(); |
(void) (*Lnk475)(); |
6596 |
vs_top=sup; |
vs_top=sup; |
6597 |
V1089= vs_base[0]; |
V978= vs_base[0]; |
6598 |
{object V1090 = CMPcaddr(V1089); |
{object V979 = CMPcaddr(V978); |
6599 |
VMR92(V1090)} |
VMR89(V979)} |
6600 |
base[0]=base[0]; |
base[0]=base[0]; |
6601 |
return Cnil; |
return Cnil; |
6602 |
} |
} |
6603 |
/* local entry for function EARLY-ADD-NAMED-METHOD */ |
/* local entry for function EARLY-ADD-NAMED-METHOD */ |
6604 |
|
|
6605 |
static object LI105(object V1094,object V1093,object V1092,object V1091,object first,...) |
static object LI101(object V983,object V982,object V981,object V980,object first,...) |
6606 |
{ |
{ |
6607 |
va_list ap; |
va_list ap; |
6608 |
int narg = VFUN_NARGS; VMB93 VMS93 VMV93 |
int narg = VFUN_NARGS; VMB90 VMS90 VMV90 |
6609 |
{object V1095; |
{object V984; |
6610 |
register object V1096; |
register object V985; |
6611 |
register object V1097; |
register object V986; |
6612 |
object V1098; |
object V987; |
6613 |
object V1099; |
object V988; |
6614 |
va_start(ap,first); |
va_start(ap,first); |
6615 |
if(narg <4) too_few_arguments(); |
if(narg <4) too_few_arguments(); |
6616 |
V1095= V1094; |
V984= V983; |
6617 |
V1096= V1093; |
V985= V982; |
6618 |
V1097= V1092; |
V986= V981; |
6619 |
V1098= V1091; |
V987= V980; |
6620 |
narg= narg - 4; |
narg= narg - 4; |
6621 |
V1100 = list_vector_new(narg,first,ap); |
V989 = list_vector_new(narg,first,ap); |
6622 |
V1099= V1100; |
V988= V989; |
6623 |
{object V1101; |
{object V990; |
6624 |
object V1102; |
object V991; |
6625 |
object V1103; |
object V992; |
6626 |
base[3]= (V1095); |
base[3]= (V984); |
6627 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
6628 |
(void) (*Lnk352)(); |
(void) (*Lnk367)(); |
6629 |
vs_top=sup; |
vs_top=sup; |
6630 |
V1101= vs_base[0]; |
V990= vs_base[0]; |
6631 |
{register object V1104; |
{register object V993; |
6632 |
register object V1105; |
register object V994; |
6633 |
if(type_of(V1101)==t_structure){ |
if(type_of(V990)==t_structure){ |
6634 |
goto T2174;} |
goto T2084;} |
6635 |
goto T2172; |
goto T2082; |
6636 |
goto T2174; |
goto T2084; |
6637 |
T2174:; |
T2084:; |
6638 |
if(!(((V1101)->str.str_def)==(VV[315]))){ |
if(!(((V990)->str.str_def)==(VV[331]))){ |
6639 |
goto T2172;} |
goto T2082;} |
6640 |
V1106= STREF(object,(V1101),4); |
V995= STREF(object,(V990),4); |
6641 |
goto T2170; |
goto T2080; |
6642 |
goto T2172; |
goto T2082; |
6643 |
T2172:;{object V1108; |
T2082:;{object V997; |
6644 |
V1108= (VV[146]->s.s_dbind); |
V997= (VV[151]->s.s_dbind); |
6645 |
base[5]= small_fixnum(14); |
base[5]= small_fixnum(14); |
6646 |
base[6]= (V1101); |
base[6]= (V990); |
6647 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
6648 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6649 |
vs_top=sup; |
vs_top=sup; |
6650 |
V1109= vs_base[0]; |
V998= vs_base[0]; |
6651 |
if(!((V1108)==(CMPcar(V1109)))){ |
if(!((V997)==(CMPcar(V998)))){ |
6652 |
goto T2177;}} |
goto T2087;}} |
6653 |
V1106= CMPcar(((V1101))->cc.cc_turbo[12]); |
V995= CMPcar(((V990))->cc.cc_turbo[12]); |
6654 |
goto T2170; |
goto T2080; |
6655 |
goto T2177; |
goto T2087; |
6656 |
T2177:; |
T2087:; |
6657 |
base[5]= VV[147]; |
base[5]= VV[152]; |
6658 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
6659 |
Lerror(); |
Lerror(); |
6660 |
vs_top=sup; |
vs_top=sup; |
6661 |
V1106= vs_base[0]; |
V995= vs_base[0]; |
6662 |
goto T2170; |
goto T2080; |
6663 |
T2170:; |
T2080:; |
6664 |
V1110 = (VV[236]->s.s_dbind); |
V993= (V995)->v.v_self[fix((VV[249]->s.s_dbind))]; |
6665 |
V1104= (V1106)->v.v_self[fix(V1110)]; |
V994= CMPcar((V993)); |
6666 |
V1105= CMPcar((V1104)); |
goto T2095; |
6667 |
goto T2185; |
T2095:; |
6668 |
T2185:; |
if(!(((V993))==Cnil)){ |
6669 |
if(!(((V1104))==Cnil)){ |
goto T2096;} |
6670 |
goto T2186;} |
V991= Cnil; |
6671 |
V1102= Cnil; |
goto T2078; |
6672 |
goto T2168; |
goto T2096; |
6673 |
goto T2186; |
T2096:; |
6674 |
T2186:; |
V999= (VFUN_NARGS=1,(*(LnkLI449))((V994))); |
6675 |
V1111= (VFUN_NARGS=1,(*(LnkLI434))((V1105))); |
if(!(equal(/* INLINE-ARGS */V999,(V986)))){ |
6676 |
V1112 = (V1097); |
goto T2100;} |
6677 |
if(!(equal(/* INLINE-ARGS */V1111,V1112))){ |
V1000= (*(LnkLI477))((V994)); |
6678 |
goto T2190;} |
if(!(equal(/* INLINE-ARGS */V1000,(V985)))){ |
6679 |
V1113= (*(LnkLI460))((V1105)); |
goto T2100;} |
6680 |
V1114 = (V1096); |
V991= (V994); |
6681 |
if(!(equal(/* INLINE-ARGS */V1113,V1114))){ |
goto T2078; |
6682 |
goto T2190;} |
goto T2100; |
6683 |
V1102= (V1105); |
T2100:; |
6684 |
goto T2168; |
V993= CMPcdr((V993)); |
6685 |
goto T2190; |
V994= CMPcar((V993)); |
6686 |
T2190:; |
goto T2095;} |
6687 |
V1104= CMPcdr((V1104)); |
goto T2078; |
6688 |
V1105= CMPcar((V1104)); |
T2078:; |
6689 |
goto T2185;} |
base[3]= VV[24]; |
6690 |
goto T2168; |
base[4]= (V985); |
6691 |
T2168:; |
base[5]= (V987); |
6692 |
base[3]= VV[20]; |
base[6]= (V986); |
6693 |
base[4]= (V1096); |
base[7]= (V988); |
|
base[5]= (V1098); |
|
|
base[6]= (V1097); |
|
|
base[7]= (V1099); |
|
6694 |
base[8]= Cnil; |
base[8]= Cnil; |
6695 |
V1103= simple_symlispcall(VV[461],base+3,6); |
V992= simple_symlispcall(VV[478],base+3,6); |
6696 |
if(((V1102))==Cnil){ |
if(((V991))==Cnil){ |
6697 |
goto T2207;} |
goto T2117;} |
6698 |
base[3]= (V1101); |
base[3]= (V990); |
6699 |
base[4]= (V1102); |
base[4]= (V991); |
6700 |
(void)simple_symlispcall(VV[462],base+3,2); |
(void)simple_symlispcall(VV[479],base+3,2); |
6701 |
goto T2207; |
goto T2117; |
6702 |
T2207:; |
T2117:; |
6703 |
base[3]= (V1101); |
base[3]= (V990); |
6704 |
base[4]= (V1103); |
base[4]= (V992); |
6705 |
{object V1115 = simple_symlispcall(VV[463],base+3,2); |
{object V1001 = simple_symlispcall(VV[480],base+3,2); |
6706 |
VMR93(V1115)}} |
VMR90(V1001)}} |
6707 |
va_end(ap); |
va_end(ap); |
6708 |
base[0]=base[0]; |
base[0]=base[0]; |
6709 |
return Cnil;} |
return Cnil;} |
6710 |
} |
} |
6711 |
/* local entry for function ADD-METHOD */ |
/* local entry for function ADD-METHOD */ |
6712 |
|
|
6713 |
static object LI106(V1118,V1119) |
static object LI102(V1004,V1005) |
6714 |
|
|
6715 |
register object V1118;register object V1119; |
register object V1004;register object V1005; |
6716 |
{ VMB94 VMS94 VMV94 |
{ VMB91 VMS91 VMV91 |
6717 |
goto TTL; |
goto TTL; |
6718 |
TTL:;{object V1120; |
TTL:;{object V1006; |
6719 |
V1120= (VV[146]->s.s_dbind); |
V1006= (VV[151]->s.s_dbind); |
6720 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
6721 |
base[1]= (V1118); |
base[1]= (V1004); |
6722 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6723 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6724 |
vs_top=sup; |
vs_top=sup; |
6725 |
V1121= vs_base[0]; |
V1007= vs_base[0]; |
6726 |
if((V1120)==(CMPcar(V1121))){ |
if((V1006)==(CMPcar(V1007))){ |
6727 |
goto T2214;}} |
goto T2124;}} |
6728 |
base[0]= VV[316]; |
base[0]= VV[332]; |
6729 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6730 |
Lerror(); |
Lerror(); |
6731 |
vs_top=sup; |
vs_top=sup; |
6732 |
goto T2214; |
goto T2124; |
6733 |
T2214:; |
T2124:; |
6734 |
if(!(type_of((V1119))==t_cons||((V1119))==Cnil)){ |
if(!(type_of((V1005))==t_cons||((V1005))==Cnil)){ |
6735 |
goto T2222;} |
goto T2132;} |
6736 |
if((CMPcar((V1119)))==(VV[306])){ |
if((CMPcar((V1005)))==(VV[322])){ |
6737 |
goto T2221;} |
goto T2131;} |
6738 |
goto T2222; |
goto T2132; |
6739 |
T2222:; |
T2132:; |
6740 |
base[0]= VV[317]; |
base[0]= VV[333]; |
6741 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6742 |
Lerror(); |
Lerror(); |
6743 |
vs_top=sup; |
vs_top=sup; |
6744 |
goto T2221; |
goto T2131; |
6745 |
T2221:; |
T2131:; |
6746 |
{object V1123; |
{object V1009; |
6747 |
object V1124; |
object V1010; |
6748 |
object V1125; |
object V1011; |
6749 |
if(type_of(V1118)==t_structure){ |
if(type_of(V1004)==t_structure){ |
6750 |
goto T2232;} |
goto T2142;} |
6751 |
goto T2230; |
goto T2140; |
6752 |
goto T2232; |
goto T2142; |
6753 |
T2232:; |
T2142:; |
6754 |
if(!(((V1118)->str.str_def)==(VV[318]))){ |
if(!(((V1004)->str.str_def)==(VV[334]))){ |
6755 |
goto T2230;} |
goto T2140;} |
6756 |
V1123= STREF(object,(V1118),4); |
V1009= STREF(object,(V1004),4); |
6757 |
goto T2228; |
goto T2138; |
6758 |
goto T2230; |
goto T2140; |
6759 |
T2230:;{object V1127; |
T2140:;{object V1013; |
6760 |
V1127= (VV[146]->s.s_dbind); |
V1013= (VV[151]->s.s_dbind); |
6761 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
6762 |
base[3]= (V1118); |
base[3]= (V1004); |
6763 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6764 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6765 |
vs_top=sup; |
vs_top=sup; |
6766 |
V1128= vs_base[0]; |
V1014= vs_base[0]; |
6767 |
if(!((V1127)==(CMPcar(V1128)))){ |
if(!((V1013)==(CMPcar(V1014)))){ |
6768 |
goto T2235;}} |
goto T2145;}} |
6769 |
V1123= CMPcar(((V1118))->cc.cc_turbo[12]); |
V1009= CMPcar(((V1004))->cc.cc_turbo[12]); |
6770 |
goto T2228; |
goto T2138; |
6771 |
goto T2235; |
goto T2145; |
6772 |
T2235:; |
T2145:; |
6773 |
base[2]= VV[147]; |
base[2]= VV[152]; |
6774 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6775 |
Lerror(); |
Lerror(); |
6776 |
vs_top=sup; |
vs_top=sup; |
6777 |
V1123= vs_base[0]; |
V1009= vs_base[0]; |
6778 |
goto T2228; |
goto T2138; |
6779 |
T2228:; |
T2138:; |
6780 |
V1124= (VV[236]->s.s_dbind); |
V1010= (VV[249]->s.s_dbind); |
6781 |
V1125= make_cons(V1119,((V1123))->v.v_self[fix((V1124))]); |
V1011= make_cons(V1005,((V1009))->v.v_self[fix((V1010))]); |
6782 |
(void)((((V1123))->v.v_self[fix((V1124))]=((V1125))));} |
(void)((((V1009))->v.v_self[fix((V1010))]=((V1011))));} |
6783 |
(void)((VFUN_NARGS=3,(*(LnkLI449))((V1118),VV[319],(V1119)))); |
(void)((VFUN_NARGS=3,(*(LnkLI464))((V1004),VV[335],(V1005)))); |
6784 |
V1130= (*(LnkLI441))((V1118)); |
V1016= (*(LnkLI456))((V1004)); |
6785 |
V1131 = (VV[262]->s.s_dbind); |
{register object x= /* INLINE-ARGS */V1016,V1015= (VV[275]->s.s_dbind); |
6786 |
{register object x= /* INLINE-ARGS */V1130,V1129= V1131; |
while(V1015!=Cnil) |
6787 |
while(V1129!=Cnil) |
if(equal(x,V1015->c.c_car->c.c_car) &&V1015->c.c_car != Cnil){ |
6788 |
if(equal(x,V1129->c.c_car->c.c_car) &&V1129->c.c_car != Cnil){ |
goto T2155; |
6789 |
goto T2245; |
}else V1015=V1015->c.c_cdr;} |
6790 |
}else V1129=V1129->c.c_cdr;} |
{object V1017 = (VFUN_NARGS=1,(*(LnkLI481))((V1004))); |
6791 |
{object V1132 = (VFUN_NARGS=1,(*(LnkLI464))((V1118))); |
VMR91(V1017)} |
6792 |
VMR94(V1132)} |
goto T2155; |
6793 |
goto T2245; |
T2155:; |
6794 |
T2245:; |
{object V1018 = Cnil; |
6795 |
{object V1133 = Cnil; |
VMR91(V1018)} |
|
VMR94(V1133)} |
|
6796 |
base[0]=base[0]; |
base[0]=base[0]; |
6797 |
return Cnil; |
return Cnil; |
6798 |
} |
} |
6799 |
/* local entry for function REMOVE-METHOD */ |
/* local entry for function REMOVE-METHOD */ |
6800 |
|
|
6801 |
static object LI107(V1136,V1137) |
static object LI103(V1021,V1022) |
6802 |
|
|
6803 |
register object V1136;object V1137; |
register object V1021;object V1022; |
6804 |
{ VMB95 VMS95 VMV95 |
{ VMB92 VMS92 VMV92 |
6805 |
goto TTL; |
goto TTL; |
6806 |
TTL:;{object V1138; |
TTL:;{object V1023; |
6807 |
V1138= (VV[146]->s.s_dbind); |
V1023= (VV[151]->s.s_dbind); |
6808 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
6809 |
base[1]= (V1136); |
base[1]= (V1021); |
6810 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6811 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6812 |
vs_top=sup; |
vs_top=sup; |
6813 |
V1139= vs_base[0]; |
V1024= vs_base[0]; |
6814 |
if((V1138)==(CMPcar(V1139))){ |
if((V1023)==(CMPcar(V1024))){ |
6815 |
goto T2247;}} |
goto T2157;}} |
6816 |
base[0]= VV[320]; |
base[0]= VV[336]; |
6817 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6818 |
Lerror(); |
Lerror(); |
6819 |
vs_top=sup; |
vs_top=sup; |
6820 |
goto T2247; |
goto T2157; |
6821 |
T2247:; |
T2157:; |
6822 |
if(!(type_of((V1137))==t_cons||((V1137))==Cnil)){ |
if(!(type_of((V1022))==t_cons||((V1022))==Cnil)){ |
6823 |
goto T2255;} |
goto T2165;} |
6824 |
if((CMPcar((V1137)))==(VV[306])){ |
if((CMPcar((V1022)))==(VV[322])){ |
6825 |
goto T2254;} |
goto T2164;} |
6826 |
goto T2255; |
goto T2165; |
6827 |
T2255:; |
T2165:; |
6828 |
base[0]= VV[321]; |
base[0]= VV[337]; |
6829 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6830 |
Lerror(); |
Lerror(); |
6831 |
vs_top=sup; |
vs_top=sup; |
6832 |
goto T2254; |
goto T2164; |
6833 |
T2254:; |
T2164:; |
6834 |
if(type_of(V1136)==t_structure){ |
if(type_of(V1021)==t_structure){ |
6835 |
goto T2265;} |
goto T2175;} |
6836 |
goto T2263; |
goto T2173; |
6837 |
goto T2265; |
goto T2175; |
6838 |
T2265:; |
T2175:; |
6839 |
if(!(((V1136)->str.str_def)==(VV[322]))){ |
if(!(((V1021)->str.str_def)==(VV[338]))){ |
6840 |
goto T2263;} |
goto T2173;} |
6841 |
V1140= STREF(object,(V1136),4); |
V1025= STREF(object,(V1021),4); |
6842 |
goto T2261; |
goto T2171; |
6843 |
goto T2263; |
goto T2173; |
6844 |
T2263:;{object V1142; |
T2173:;{object V1027; |
6845 |
V1142= (VV[146]->s.s_dbind); |
V1027= (VV[151]->s.s_dbind); |
6846 |
base[0]= small_fixnum(14); |
base[0]= small_fixnum(14); |
6847 |
base[1]= (V1136); |
base[1]= (V1021); |
6848 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6849 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6850 |
vs_top=sup; |
vs_top=sup; |
6851 |
V1143= vs_base[0]; |
V1028= vs_base[0]; |
6852 |
if(!((V1142)==(CMPcar(V1143)))){ |
if(!((V1027)==(CMPcar(V1028)))){ |
6853 |
goto T2268;}} |
goto T2178;}} |
6854 |
V1140= CMPcar(((V1136))->cc.cc_turbo[12]); |
V1025= CMPcar(((V1021))->cc.cc_turbo[12]); |
6855 |
goto T2261; |
goto T2171; |
6856 |
goto T2268; |
goto T2178; |
6857 |
T2268:; |
T2178:; |
6858 |
base[0]= VV[147]; |
base[0]= VV[152]; |
6859 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
6860 |
Lerror(); |
Lerror(); |
6861 |
vs_top=sup; |
vs_top=sup; |
6862 |
V1140= vs_base[0]; |
V1025= vs_base[0]; |
6863 |
goto T2261; |
goto T2171; |
6864 |
T2261:;{object V1144; |
T2171:;{object V1029; |
6865 |
V1144= (VV[236]->s.s_dbind); |
V1029= (VV[249]->s.s_dbind); |
6866 |
base[0]= (V1137); |
base[0]= (V1022); |
6867 |
if(type_of(V1136)==t_structure){ |
if(type_of(V1021)==t_structure){ |
6868 |
goto T2281;} |
goto T2191;} |
6869 |
goto T2279; |
goto T2189; |
6870 |
goto T2281; |
goto T2191; |
6871 |
T2281:; |
T2191:; |
6872 |
if(!(((V1136)->str.str_def)==(VV[323]))){ |
if(!(((V1021)->str.str_def)==(VV[339]))){ |
6873 |
goto T2279;} |
goto T2189;} |
6874 |
V1146= STREF(object,(V1136),4); |
V1031= STREF(object,(V1021),4); |
6875 |
goto T2277; |
goto T2187; |
6876 |
goto T2279; |
goto T2189; |
6877 |
T2279:;{object V1148; |
T2189:;{object V1033; |
6878 |
V1148= (VV[146]->s.s_dbind); |
V1033= (VV[151]->s.s_dbind); |
6879 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
6880 |
base[3]= (V1136); |
base[3]= (V1021); |
6881 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6882 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6883 |
vs_top=sup; |
vs_top=sup; |
6884 |
V1149= vs_base[0]; |
V1034= vs_base[0]; |
6885 |
if(!((V1148)==(CMPcar(V1149)))){ |
if(!((V1033)==(CMPcar(V1034)))){ |
6886 |
goto T2284;}} |
goto T2194;}} |
6887 |
V1146= CMPcar(((V1136))->cc.cc_turbo[12]); |
V1031= CMPcar(((V1021))->cc.cc_turbo[12]); |
6888 |
goto T2277; |
goto T2187; |
6889 |
goto T2284; |
goto T2194; |
6890 |
T2284:; |
T2194:; |
6891 |
base[2]= VV[147]; |
base[2]= VV[152]; |
6892 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6893 |
Lerror(); |
Lerror(); |
6894 |
vs_top=sup; |
vs_top=sup; |
6895 |
V1146= vs_base[0]; |
V1031= vs_base[0]; |
6896 |
goto T2277; |
goto T2187; |
6897 |
T2277:; |
T2187:; |
6898 |
V1150 = (VV[236]->s.s_dbind); |
base[1]= (V1031)->v.v_self[fix((VV[249]->s.s_dbind))]; |
|
base[1]= (V1146)->v.v_self[fix(V1150)]; |
|
6899 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
6900 |
(void) (*Lnk376)(); |
(void) (*Lnk482)(); |
6901 |
vs_top=sup; |
vs_top=sup; |
6902 |
V1145= vs_base[0]; |
V1030= vs_base[0]; |
6903 |
(void)(((V1140)->v.v_self[fix(V1144)]=(V1145)));} |
(void)(((V1025)->v.v_self[fix(V1029)]=(V1030)));} |
6904 |
(void)((VFUN_NARGS=1,(*(LnkLI449))((V1136)))); |
(void)((VFUN_NARGS=1,(*(LnkLI464))((V1021)))); |
6905 |
V1152= (*(LnkLI441))((V1136)); |
V1036= (*(LnkLI456))((V1021)); |
6906 |
V1153 = (VV[262]->s.s_dbind); |
{register object x= /* INLINE-ARGS */V1036,V1035= (VV[275]->s.s_dbind); |
6907 |
{register object x= /* INLINE-ARGS */V1152,V1151= V1153; |
while(V1035!=Cnil) |
6908 |
while(V1151!=Cnil) |
if(equal(x,V1035->c.c_car->c.c_car) &&V1035->c.c_car != Cnil){ |
6909 |
if(equal(x,V1151->c.c_car->c.c_car) &&V1151->c.c_car != Cnil){ |
goto T2202; |
6910 |
goto T2292; |
}else V1035=V1035->c.c_cdr;} |
6911 |
}else V1151=V1151->c.c_cdr;} |
{object V1037 = (VFUN_NARGS=1,(*(LnkLI481))((V1021))); |
6912 |
{object V1154 = (VFUN_NARGS=1,(*(LnkLI464))((V1136))); |
VMR92(V1037)} |
6913 |
VMR95(V1154)} |
goto T2202; |
6914 |
goto T2292; |
T2202:; |
6915 |
T2292:; |
{object V1038 = Cnil; |
6916 |
{object V1155 = Cnil; |
VMR92(V1038)} |
|
VMR95(V1155)} |
|
6917 |
base[0]=base[0]; |
base[0]=base[0]; |
6918 |
return Cnil; |
return Cnil; |
6919 |
} |
} |
6920 |
/* local entry for function GET-METHOD */ |
/* local entry for function GET-METHOD */ |
6921 |
|
|
6922 |
static object LI108(object V1158,object V1157,object V1156,object first,...) |
static object LI104(object V1041,object V1040,object V1039,object first,...) |
6923 |
{ |
{ |
6924 |
va_list ap; |
va_list ap; |
6925 |
int narg = VFUN_NARGS; VMB96 VMS96 VMV96 |
int narg = VFUN_NARGS; VMB93 VMS93 VMV93 |
6926 |
{object V1159; |
{object V1042; |
6927 |
register object V1160; |
register object V1043; |
6928 |
register object V1161; |
register object V1044; |
6929 |
object V1162; |
object V1045; |
6930 |
va_start(ap,first); |
va_start(ap,first); |
6931 |
if(narg <3) too_few_arguments(); |
if(narg <3) too_few_arguments(); |
6932 |
V1159= V1158; |
V1042= V1041; |
6933 |
V1160= V1157; |
V1043= V1040; |
6934 |
V1161= V1156; |
V1044= V1039; |
6935 |
narg = narg - 3; |
narg = narg - 3; |
6936 |
if (narg <= 0) goto T2294; |
if (narg <= 0) goto T2204; |
6937 |
else { |
else { |
6938 |
V1162= first;} |
V1045= first;} |
6939 |
--narg; goto T2295; |
--narg; goto T2205; |
6940 |
goto T2294; |
goto T2204; |
6941 |
T2294:; |
T2204:; |
6942 |
V1162= Ct; |
V1045= Ct; |
6943 |
goto T2295; |
goto T2205; |
6944 |
T2295:; |
T2205:; |
6945 |
if(((*(LnkLI438))((V1159)))==Cnil){ |
if(((*(LnkLI453))((V1042)))==Cnil){ |
6946 |
goto T2298;}{object V1163; |
goto T2208;}{object V1046; |
6947 |
{register object V1164; |
{register object V1047; |
6948 |
register object V1165; |
register object V1048; |
6949 |
if(type_of(V1159)==t_structure){ |
if(type_of(V1042)==t_structure){ |
6950 |
goto T2307;} |
goto T2217;} |
6951 |
goto T2305; |
goto T2215; |
6952 |
goto T2307; |
goto T2217; |
6953 |
T2307:; |
T2217:; |
6954 |
if(!(((V1159)->str.str_def)==(VV[324]))){ |
if(!(((V1042)->str.str_def)==(VV[340]))){ |
6955 |
goto T2305;} |
goto T2215;} |
6956 |
V1166= STREF(object,(V1159),4); |
V1049= STREF(object,(V1042),4); |
6957 |
goto T2303; |
goto T2213; |
6958 |
goto T2305; |
goto T2215; |
6959 |
T2305:;{object V1168; |
T2215:;{object V1051; |
6960 |
V1168= (VV[146]->s.s_dbind); |
V1051= (VV[151]->s.s_dbind); |
6961 |
base[2]= small_fixnum(14); |
base[2]= small_fixnum(14); |
6962 |
base[3]= (V1159); |
base[3]= (V1042); |
6963 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
6964 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
6965 |
vs_top=sup; |
vs_top=sup; |
6966 |
V1169= vs_base[0]; |
V1052= vs_base[0]; |
6967 |
if(!((V1168)==(CMPcar(V1169)))){ |
if(!((V1051)==(CMPcar(V1052)))){ |
6968 |
goto T2310;}} |
goto T2220;}} |
6969 |
V1166= CMPcar(((V1159))->cc.cc_turbo[12]); |
V1049= CMPcar(((V1042))->cc.cc_turbo[12]); |
6970 |
goto T2303; |
goto T2213; |
6971 |
goto T2310; |
goto T2220; |
6972 |
T2310:; |
T2220:; |
6973 |
base[2]= VV[147]; |
base[2]= VV[152]; |
6974 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
6975 |
Lerror(); |
Lerror(); |
6976 |
vs_top=sup; |
vs_top=sup; |
6977 |
V1166= vs_base[0]; |
V1049= vs_base[0]; |
6978 |
goto T2303; |
goto T2213; |
6979 |
T2303:; |
T2213:; |
6980 |
V1170 = (VV[236]->s.s_dbind); |
V1047= (V1049)->v.v_self[fix((VV[249]->s.s_dbind))]; |
6981 |
V1164= (V1166)->v.v_self[fix(V1170)]; |
V1048= CMPcar((V1047)); |
6982 |
V1165= CMPcar((V1164)); |
goto T2228; |
6983 |
goto T2318; |
T2228:; |
6984 |
T2318:; |
if(!(((V1047))==Cnil)){ |
6985 |
if(!(((V1164))==Cnil)){ |
goto T2229;} |
6986 |
goto T2319;} |
V1046= Cnil; |
6987 |
V1163= Cnil; |
goto T2211; |
6988 |
goto T2301; |
goto T2229; |
6989 |
goto T2319; |
T2229:; |
6990 |
T2319:; |
V1053= (VFUN_NARGS=2,(*(LnkLI449))((V1048),Cnil)); |
6991 |
V1171= (VFUN_NARGS=2,(*(LnkLI434))((V1165),Cnil)); |
if(equal(/* INLINE-ARGS */V1053,(V1044))){ |
6992 |
V1172 = (V1161); |
goto T2235;} |
6993 |
if(equal(/* INLINE-ARGS */V1171,V1172)){ |
V1054= (VFUN_NARGS=2,(*(LnkLI449))((V1048),Ct)); |
6994 |
goto T2325;} |
if(!(equal(/* INLINE-ARGS */V1054,(V1044)))){ |
6995 |
V1173= (VFUN_NARGS=2,(*(LnkLI434))((V1165),Ct)); |
goto T2233;} |
6996 |
V1174 = (V1161); |
goto T2235; |
6997 |
if(!(equal(/* INLINE-ARGS */V1173,V1174))){ |
T2235:; |
6998 |
goto T2323;} |
V1055= (*(LnkLI477))((V1048)); |
6999 |
goto T2325; |
if(!(equal(/* INLINE-ARGS */V1055,(V1043)))){ |
7000 |
T2325:; |
goto T2233;} |
7001 |
V1175= (*(LnkLI460))((V1165)); |
V1046= (V1048); |
7002 |
V1176 = (V1160); |
goto T2211; |
7003 |
if(!(equal(/* INLINE-ARGS */V1175,V1176))){ |
goto T2233; |
7004 |
goto T2323;} |
T2233:; |
7005 |
V1163= (V1165); |
V1047= CMPcdr((V1047)); |
7006 |
goto T2301; |
V1048= CMPcar((V1047)); |
7007 |
goto T2323; |
goto T2228;} |
7008 |
T2323:; |
goto T2211; |
7009 |
V1164= CMPcdr((V1164)); |
T2211:; |
7010 |
V1165= CMPcar((V1164)); |
if(V1046==Cnil)goto T2210; |
7011 |
goto T2318;} |
{object V1056 = V1046; |
7012 |
goto T2301; |
VMR93(V1056)} |
7013 |
T2301:; |
goto T2210; |
7014 |
if(V1163==Cnil)goto T2300; |
T2210:;} |
7015 |
{object V1177 = V1163; |
if(((V1045))==Cnil){ |
7016 |
VMR96(V1177)} |
goto T2246;} |
7017 |
goto T2300; |
base[0]= VV[341]; |
|
T2300:;} |
|
|
if(((V1162))==Cnil){ |
|
|
goto T2336;} |
|
|
base[0]= VV[325]; |
|
7018 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7019 |
Lerror(); |
Lerror(); |
7020 |
vs_top=sup; |
vs_top=sup; |
7021 |
{object V1178 = vs_base[0]; |
{object V1057 = vs_base[0]; |
7022 |
VMR96(V1178)} |
VMR93(V1057)} |
7023 |
goto T2336; |
goto T2246; |
7024 |
T2336:; |
T2246:; |
7025 |
{object V1179 = Cnil; |
{object V1058 = Cnil; |
7026 |
VMR96(V1179)} |
VMR93(V1058)} |
7027 |
goto T2298; |
goto T2208; |
7028 |
T2298:; |
T2208:; |
7029 |
{object V1180 = (VFUN_NARGS=4,(*(LnkLI465))((V1159),(V1160),(V1161),(V1162))); |
{object V1059 = (VFUN_NARGS=4,(*(LnkLI483))((V1042),(V1043),(V1044),(V1045))); |
7030 |
VMR96(V1180)} |
VMR93(V1059)} |
7031 |
va_end(ap); |
va_end(ap); |
7032 |
base[0]=base[0]; |
base[0]=base[0]; |
7033 |
return Cnil;} |
return Cnil;} |
7034 |
} |
} |
7035 |
/* local entry for function FIX-EARLY-GENERIC-FUNCTIONS */ |
/* local entry for function FIX-EARLY-GENERIC-FUNCTIONS */ |
7036 |
|
|
7037 |
static object LI109(object first,...) |
static object LI105(object first,...) |
7038 |
{ |
{ |
7039 |
va_list ap; |
va_list ap; |
7040 |
int narg = VFUN_NARGS; VMB97 VMS97 VMV97 |
int narg = VFUN_NARGS; VMB94 VMS94 VMV94 |
7041 |
{object V1181; |
{object V1060; |
7042 |
va_start(ap,first); |
va_start(ap,first); |
7043 |
narg = narg - 0; |
narg = narg - 0; |
7044 |
if (narg <= 0) goto T2339; |
if (narg <= 0) goto T2249; |
7045 |
else { |
else { |
7046 |
V1181= first;} |
V1060= first;} |
7047 |
--narg; goto T2340; |
--narg; goto T2250; |
7048 |
goto T2339; |
goto T2249; |
7049 |
T2339:; |
T2249:; |
7050 |
V1181= (VV[326]->s.s_dbind); |
V1060= (VV[342]->s.s_dbind); |
7051 |
goto T2340; |
goto T2250; |
7052 |
T2340:; |
T2250:; |
7053 |
(VV[327]->s.s_dbind)= Ct; |
{object V1061; |
7054 |
{object V1182; |
V1061= Cnil; |
7055 |
V1182= Cnil; |
{register object V1062; |
7056 |
{register object V1183; |
register object V1063; |
7057 |
register object V1184; |
V1062= (VV[278]->s.s_dbind); |
7058 |
V1183= (VV[265]->s.s_dbind); |
V1063= CMPcar((V1062)); |
7059 |
V1184= CMPcar((V1183)); |
goto T2256; |
7060 |
goto T2348; |
T2256:; |
7061 |
T2348:; |
if(!(((V1062))==Cnil)){ |
7062 |
if(!(((V1183))==Cnil)){ |
goto T2257;} |
7063 |
goto T2349;} |
goto T2252; |
7064 |
goto T2344; |
goto T2257; |
7065 |
goto T2349; |
T2257:; |
7066 |
T2349:; |
base[1]= (VV[484]->s.s_gfdef); |
7067 |
base[1]= (VV[466]->s.s_gfdef); |
{object V1065; |
7068 |
{object V1186; |
V1065= (*(LnkLI362))((V1063)); |
7069 |
V1186= (*(LnkLI347))((V1184)); |
if(type_of((V1065))==t_structure){ |
7070 |
if(type_of((V1186))==t_structure){ |
goto T2271;} |
7071 |
goto T2363;} |
goto T2268; |
7072 |
goto T2360; |
goto T2271; |
7073 |
goto T2363; |
T2271:; |
7074 |
T2363:; |
if(!((((V1065))->str.str_def)==(VV[343]))){ |
7075 |
if(!((((V1186))->str.str_def)==(VV[328]))){ |
goto T2268;}} |
7076 |
goto T2360;}} |
V1066= (*(LnkLI362))((V1063)); |
7077 |
V1187= (*(LnkLI347))((V1184)); |
V1064= STREF(object,/* INLINE-ARGS */V1066,4); |
7078 |
V1185= STREF(object,/* INLINE-ARGS */V1187,4); |
goto T2266; |
7079 |
goto T2358; |
goto T2268; |
7080 |
goto T2360; |
T2268:;{object V1067; |
7081 |
T2360:;{object V1188; |
V1067= (VV[151]->s.s_dbind); |
|
V1188= (VV[146]->s.s_dbind); |
|
7082 |
base[3]= small_fixnum(14); |
base[3]= small_fixnum(14); |
7083 |
base[4]= (*(LnkLI347))((V1184)); |
base[4]= (*(LnkLI362))((V1063)); |
7084 |
vs_top=(vs_base=base+3)+2; |
vs_top=(vs_base=base+3)+2; |
7085 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
7086 |
vs_top=sup; |
vs_top=sup; |
7087 |
V1189= vs_base[0]; |
V1068= vs_base[0]; |
7088 |
if(!((V1188)==(CMPcar(V1189)))){ |
if(!((V1067)==(CMPcar(V1068)))){ |
7089 |
goto T2366;}} |
goto T2274;}} |
7090 |
V1190= (*(LnkLI347))((V1184)); |
V1069= (*(LnkLI362))((V1063)); |
7091 |
V1185= CMPcar((/* INLINE-ARGS */V1190)->cc.cc_turbo[12]); |
V1064= CMPcar((/* INLINE-ARGS */V1069)->cc.cc_turbo[12]); |
7092 |
goto T2358; |
goto T2266; |
7093 |
goto T2366; |
goto T2274; |
7094 |
T2366:; |
T2274:; |
7095 |
base[3]= VV[147]; |
base[3]= VV[152]; |
7096 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7097 |
Lerror(); |
Lerror(); |
7098 |
vs_top=sup; |
vs_top=sup; |
7099 |
V1185= vs_base[0]; |
V1064= vs_base[0]; |
7100 |
goto T2358; |
goto T2266; |
7101 |
T2358:; |
T2266:; |
7102 |
V1191 = (VV[236]->s.s_dbind); |
base[2]= (V1064)->v.v_self[fix((VV[249]->s.s_dbind))]; |
|
base[2]= (V1185)->v.v_self[fix(V1191)]; |
|
7103 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
7104 |
(void) (*Lnk366)(); |
(void) (*Lnk381)(); |
7105 |
vs_top=sup; |
vs_top=sup; |
7106 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7107 |
goto T2353;} |
goto T2261;} |
7108 |
V1182= make_cons(V1184,(V1182)); |
V1061= make_cons(V1063,(V1061)); |
7109 |
goto T2353; |
goto T2261; |
7110 |
T2353:; |
T2261:; |
7111 |
V1183= CMPcdr((V1183)); |
V1062= CMPcdr((V1062)); |
7112 |
V1184= CMPcar((V1183)); |
V1063= CMPcar((V1062)); |
7113 |
goto T2348;} |
goto T2256;} |
7114 |
goto T2344; |
goto T2252; |
7115 |
T2344:; |
T2252:; |
7116 |
{register object V1193; |
{register object V1071; |
7117 |
object V1194; |
object V1072; |
7118 |
V1193= nconc((V1182),VV[329]); |
V1071= nconc((V1061),VV[344]); |
7119 |
V1194= CMPcar((V1193)); |
V1072= CMPcar((V1071)); |
7120 |
goto T2382; |
goto T2290; |
7121 |
T2382:; |
T2290:; |
7122 |
if(!(((V1193))==Cnil)){ |
if(!(((V1071))==Cnil)){ |
7123 |
goto T2383;} |
goto T2291;} |
7124 |
goto T2378; |
goto T2286; |
7125 |
goto T2383; |
goto T2291; |
7126 |
T2383:; |
T2291:; |
7127 |
V1195 = (V1194); |
base[2]= (V1072); |
7128 |
base[2]= (V1194); |
base[3]= (VV[278]->s.s_dbind); |
7129 |
base[3]= (VV[265]->s.s_dbind); |
base[4]= VV[279]; |
7130 |
base[4]= VV[266]; |
base[5]= (VV[255]->s.s_gfdef); |
|
base[5]= (VV[242]->s.s_gfdef); |
|
7131 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
7132 |
(void) (*Lnk467)(); |
(void) (*Lnk485)(); |
7133 |
vs_top=sup; |
vs_top=sup; |
7134 |
V1196= vs_base[0]; |
V1073= vs_base[0]; |
7135 |
(VV[265]->s.s_dbind)= make_cons(V1195,V1196); |
(VV[278]->s.s_dbind)= make_cons((V1072),V1073); |
7136 |
V1193= CMPcdr((V1193)); |
V1071= CMPcdr((V1071)); |
7137 |
V1194= CMPcar((V1193)); |
V1072= CMPcar((V1071)); |
7138 |
goto T2382;} |
goto T2290;} |
7139 |
goto T2378; |
goto T2286; |
7140 |
T2378:; |
T2286:; |
7141 |
{register object V1197; |
{register object V1074; |
7142 |
object V1198; |
object V1075; |
7143 |
V1197= (VV[265]->s.s_dbind); |
V1074= (VV[278]->s.s_dbind); |
7144 |
V1198= CMPcar((V1197)); |
V1075= CMPcar((V1074)); |
7145 |
goto T2403; |
goto T2311; |
7146 |
T2403:; |
T2311:; |
7147 |
if(!(((V1197))==Cnil)){ |
if(!(((V1074))==Cnil)){ |
7148 |
goto T2404;} |
goto T2312;} |
7149 |
goto T2399; |
goto T2307; |
7150 |
goto T2404; |
goto T2312; |
7151 |
T2404:; |
T2312:; |
7152 |
if(((V1181))==Cnil){ |
if(((V1060))==Cnil){ |
7153 |
goto T2408;} |
goto T2316;} |
7154 |
base[1]= Ct; |
base[1]= Ct; |
7155 |
base[2]= VV[330]; |
base[2]= VV[345]; |
7156 |
base[3]= (V1198); |
base[3]= (V1075); |
7157 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
7158 |
Lformat(); |
Lformat(); |
7159 |
vs_top=sup; |
vs_top=sup; |
7160 |
goto T2408; |
goto T2316; |
7161 |
T2408:; |
T2316:; |
7162 |
{register object V1199; |
{register object V1076; |
7163 |
object V1200; |
object V1077; |
7164 |
V1199= (*(LnkLI347))((V1198)); |
V1076= (*(LnkLI362))((V1075)); |
7165 |
if(type_of(V1199)==t_structure){ |
if(type_of(V1076)==t_structure){ |
7166 |
goto T2422;} |
goto T2330;} |
7167 |
goto T2420; |
goto T2328; |
7168 |
goto T2422; |
goto T2330; |
7169 |
T2422:; |
T2330:; |
7170 |
if(!(((V1199)->str.str_def)==(VV[331]))){ |
if(!(((V1076)->str.str_def)==(VV[346]))){ |
7171 |
goto T2420;} |
goto T2328;} |
7172 |
V1203= STREF(object,(V1199),4); |
V1080= STREF(object,(V1076),4); |
7173 |
goto T2418; |
goto T2326; |
7174 |
goto T2420; |
goto T2328; |
7175 |
T2420:;{object V1205; |
T2328:;{object V1082; |
7176 |
V1205= (VV[146]->s.s_dbind); |
V1082= (VV[151]->s.s_dbind); |
7177 |
base[4]= small_fixnum(14); |
base[4]= small_fixnum(14); |
7178 |
base[5]= (V1199); |
base[5]= (V1076); |
7179 |
vs_top=(vs_base=base+4)+2; |
vs_top=(vs_base=base+4)+2; |
7180 |
(void) (*Lnk390)(); |
(void) (*Lnk407)(); |
7181 |
vs_top=sup; |
vs_top=sup; |
7182 |
V1206= vs_base[0]; |
V1083= vs_base[0]; |
7183 |
if(!((V1205)==(CMPcar(V1206)))){ |
if(!((V1082)==(CMPcar(V1083)))){ |
7184 |
goto T2425;}} |
goto T2333;}} |
7185 |
V1203= CMPcar(((V1199))->cc.cc_turbo[12]); |
V1080= CMPcar(((V1076))->cc.cc_turbo[12]); |
7186 |
goto T2418; |
goto T2326; |
7187 |
goto T2425; |
goto T2333; |
7188 |
T2425:; |
T2333:; |
7189 |
base[4]= VV[147]; |
base[4]= VV[152]; |
7190 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7191 |
Lerror(); |
Lerror(); |
7192 |
vs_top=sup; |
vs_top=sup; |
7193 |
V1203= vs_base[0]; |
V1080= vs_base[0]; |
7194 |
goto T2418; |
goto T2326; |
7195 |
T2418:; |
T2326:; |
7196 |
V1207 = (VV[236]->s.s_dbind); |
{object V1078; |
7197 |
{object V1201; |
object V1079= (V1080)->v.v_self[fix((VV[249]->s.s_dbind))]; |
7198 |
object V1202= (V1203)->v.v_self[fix(V1207)]; |
if(V1079==Cnil){ |
7199 |
if(V1202==Cnil){ |
V1077= Cnil; |
7200 |
V1200= Cnil; |
goto T2324;} |
7201 |
goto T2416;} |
base[3]=V1078=MMcons(Cnil,Cnil); |
7202 |
base[3]=V1201=MMcons(Cnil,Cnil); |
goto T2325; |
7203 |
goto T2417; |
T2325:; |
7204 |
T2417:; |
{object V1085; |
7205 |
{object V1209; |
base[5]= (V1079->c.c_car); |
|
base[5]= (V1202->c.c_car); |
|
7206 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
7207 |
(void) (*Lnk458)(); |
(void) (*Lnk475)(); |
7208 |
vs_top=sup; |
vs_top=sup; |
7209 |
base[4]= vs_base[0]; |
base[4]= vs_base[0]; |
7210 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
7211 |
Lcopy_list(); |
Lcopy_list(); |
7212 |
vs_top=sup; |
vs_top=sup; |
7213 |
V1209= vs_base[0]; |
V1085= vs_base[0]; |
7214 |
{object V1211; |
{object V1087; |
7215 |
V1211= (VFUN_NARGS=2,(*(LnkLI434))((V1202->c.c_car),Ct)); |
V1087= (VFUN_NARGS=2,(*(LnkLI449))((V1079->c.c_car),Ct)); |
7216 |
(CMPcdddr(V1209))->c.c_car = (V1211); |
(CMPcdddr(V1085))->c.c_car = (V1087); |
7217 |
(void)(CMPcdddr(V1209));} |
(void)(CMPcdddr(V1085));} |
7218 |
{object V1212; |
{object V1088; |
7219 |
V1212= (V1209); |
V1088= (V1085); |
7220 |
vs_top=base+4; |
vs_top=base+4; |
7221 |
while(V1212!=Cnil) |
while(V1088!=Cnil) |
7222 |
{vs_push((V1212)->c.c_car);V1212=(V1212)->c.c_cdr;} |
{vs_push((V1088)->c.c_car);V1088=(V1088)->c.c_cdr;} |
7223 |
vs_base=base+4;} |
vs_base=base+4;} |
7224 |
(void) (*Lnk468)(); |
(void) (*Lnk486)(); |
7225 |
vs_top=sup; |
vs_top=sup; |
7226 |
(V1201->c.c_car)= vs_base[0];} |
(V1078->c.c_car)= vs_base[0];} |
7227 |
if((V1202=MMcdr(V1202))==Cnil){ |
if((V1079=MMcdr(V1079))==Cnil){ |
7228 |
V1200= base[3]; |
V1077= base[3]; |
7229 |
goto T2416;} |
goto T2324;} |
7230 |
V1201=MMcdr(V1201)=MMcons(Cnil,Cnil); |
V1078=MMcdr(V1078)=MMcons(Cnil,Cnil); |
7231 |
goto T2417;} |
goto T2325;} |
7232 |
goto T2416; |
goto T2324; |
7233 |
T2416:; |
T2324:; |
7234 |
{object V1214; |
{object V1090; |
7235 |
V1214= (VV[332]->s.s_dbind); |
V1090= (VV[347]->s.s_dbind); |
7236 |
V1215= ({object _tmp=get(VV[358],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[358])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[358])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V1091= ({object _tmp=get(VV[373],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[373])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[373])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V1216 = (V1214); |
|
|
V1217 = V1199; |
|
7237 |
(void)(( |
(void)(( |
7238 |
V1218 = V1215, |
V1092 = V1091, |
7239 |
(type_of(V1218) == t_sfun ?(*((V1218)->sfn.sfn_self)): |
(type_of(V1092) == t_sfun ?(*((V1092)->sfn.sfn_self)): |
7240 |
(fcall.argd=2,type_of(V1218)==t_vfun) ? |
(fcall.argd=2,type_of(V1092)==t_vfun) ? |
7241 |
(*((V1218)->sfn.sfn_self)): |
(*((V1092)->sfn.sfn_self)): |
7242 |
(fcall.fun=(V1218),fcalln))(V1216,V1217)));} |
(fcall.fun=(V1092),fcalln))((V1090),V1076)));} |
7243 |
{object V1220; |
{object V1094; |
7244 |
V1220= (VV[253]->s.s_dbind); |
V1094= (VV[266]->s.s_dbind); |
7245 |
V1221= ({object _tmp=get(VV[436],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[436])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[436])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V1095= ({object _tmp=get(VV[451],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[451])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[451])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V1222 = (V1220); |
|
|
V1223 = V1199; |
|
7246 |
(void)(( |
(void)(( |
7247 |
V1224 = V1221, |
V1096 = V1095, |
7248 |
(type_of(V1224) == t_sfun ?(*((V1224)->sfn.sfn_self)): |
(type_of(V1096) == t_sfun ?(*((V1096)->sfn.sfn_self)): |
7249 |
(fcall.argd=2,type_of(V1224)==t_vfun) ? |
(fcall.argd=2,type_of(V1096)==t_vfun) ? |
7250 |
(*((V1224)->sfn.sfn_self)): |
(*((V1096)->sfn.sfn_self)): |
7251 |
(fcall.fun=(V1224),fcalln))(V1222,V1223)));} |
(fcall.fun=(V1096),fcalln))((V1094),V1076)));} |
7252 |
(void)((*(LnkLI469))((V1199),(V1200)));} |
(void)((*(LnkLI487))((V1076),(V1077)));} |
7253 |
V1197= CMPcdr((V1197)); |
V1074= CMPcdr((V1074)); |
7254 |
V1198= CMPcar((V1197)); |
V1075= CMPcar((V1074)); |
7255 |
goto T2403;} |
goto T2311;} |
7256 |
goto T2399; |
goto T2307; |
7257 |
T2399:; |
T2307:; |
7258 |
{register object V1225; |
{register object V1097; |
7259 |
object V1226; |
object V1098; |
7260 |
V1225= (VV[333]->s.s_dbind); |
V1097= (VV[348]->s.s_dbind); |
7261 |
V1226= CMPcar((V1225)); |
V1098= CMPcar((V1097)); |
7262 |
goto T2454; |
goto T2362; |
7263 |
T2454:; |
T2362:; |
7264 |
if(!(((V1225))==Cnil)){ |
if(!(((V1097))==Cnil)){ |
7265 |
goto T2455;} |
goto T2363;} |
7266 |
goto T2450; |
goto T2358; |
7267 |
goto T2455; |
goto T2363; |
7268 |
T2455:; |
T2363:; |
7269 |
{object V1227; |
{object V1099; |
7270 |
object V1228; |
object V1100; |
7271 |
V1227= CMPcar((V1226)); |
V1099= CMPcar((V1098)); |
7272 |
base[3]= CMPcaddr((V1226)); |
base[3]= CMPcaddr((V1098)); |
7273 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
7274 |
Lsymbol_function(); |
Lsymbol_function(); |
7275 |
vs_top=sup; |
vs_top=sup; |
7276 |
V1228= vs_base[0]; |
V1100= vs_base[0]; |
7277 |
V1229= ({object _tmp=get(VV[347],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[347])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[347])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V1101= ({object _tmp=get(VV[362],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[362])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[362])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V1230 = (V1228); |
|
|
V1231 = (V1227); |
|
7278 |
(void)(( |
(void)(( |
7279 |
V1232 = V1229, |
V1102 = V1101, |
7280 |
(type_of(V1232) == t_sfun ?(*((V1232)->sfn.sfn_self)): |
(type_of(V1102) == t_sfun ?(*((V1102)->sfn.sfn_self)): |
7281 |
(fcall.argd=2,type_of(V1232)==t_vfun) ? |
(fcall.argd=2,type_of(V1102)==t_vfun) ? |
7282 |
(*((V1232)->sfn.sfn_self)): |
(*((V1102)->sfn.sfn_self)): |
7283 |
(fcall.fun=(V1232),fcalln))(V1230,V1231)));} |
(fcall.fun=(V1102),fcalln))((V1100),(V1099))));} |
7284 |
V1225= CMPcdr((V1225)); |
V1097= CMPcdr((V1097)); |
7285 |
V1226= CMPcar((V1225)); |
V1098= CMPcar((V1097)); |
7286 |
goto T2454;} |
goto T2362;} |
7287 |
goto T2450; |
goto T2358; |
7288 |
T2450:; |
T2358:; |
7289 |
{register object V1233; |
{register object V1103; |
7290 |
object V1234; |
object V1104; |
7291 |
V1233= (VV[262]->s.s_dbind); |
V1103= (VV[275]->s.s_dbind); |
7292 |
V1234= CMPcar((V1233)); |
V1104= CMPcar((V1103)); |
7293 |
goto T2472; |
goto T2380; |
7294 |
T2472:; |
T2380:; |
7295 |
if(!(((V1233))==Cnil)){ |
if(!(((V1103))==Cnil)){ |
7296 |
goto T2473;} |
goto T2381;} |
7297 |
{object V1235 = Cnil; |
{object V1105 = Cnil; |
7298 |
VMR97(V1235)} |
VMR94(V1105)} |
7299 |
goto T2473; |
goto T2381; |
7300 |
T2473:; |
T2381:; |
7301 |
{object V1236; |
{object V1106; |
7302 |
object V1237; |
object V1107; |
7303 |
object V1238; |
object V1108; |
7304 |
V1236= CMPcar((V1234)); |
V1106= CMPcar((V1104)); |
7305 |
V1237= (*(LnkLI347))((V1236)); |
V1107= (*(LnkLI362))((V1106)); |
7306 |
{object V1239; |
{object V1109; |
7307 |
object V1240= CMPcdr((V1234)); |
object V1110= CMPcdr((V1104)); |
7308 |
if(V1240==Cnil){ |
if(V1110==Cnil){ |
7309 |
V1238= Cnil; |
V1108= Cnil; |
7310 |
goto T2480;} |
goto T2388;} |
7311 |
base[4]=V1239=MMcons(Cnil,Cnil); |
base[4]=V1109=MMcons(Cnil,Cnil); |
7312 |
goto T2481; |
goto T2389; |
7313 |
T2481:; |
T2389:; |
7314 |
{object V1242; |
{object V1112; |
7315 |
object V1243; |
object V1113; |
7316 |
object V1244; |
object V1114; |
7317 |
object V1245; |
object V1115; |
7318 |
object V1246; |
object V1116; |
7319 |
V1242= CMPcar((V1240->c.c_car)); |
V1112= CMPcar((V1110->c.c_car)); |
7320 |
V1243= CMPcadr((V1240->c.c_car)); |
V1113= CMPcadr((V1110->c.c_car)); |
7321 |
V1244= CMPcaddr((V1240->c.c_car)); |
V1114= CMPcaddr((V1110->c.c_car)); |
7322 |
if((V1244)!=Cnil){ |
if((V1114)!=Cnil){ |
7323 |
V1245= (V1244); |
V1115= (V1114); |
7324 |
goto T2486;} |
goto T2394;} |
7325 |
V1245= (V1236); |
V1115= (V1106); |
7326 |
goto T2486; |
goto T2394; |
7327 |
T2486:; |
T2394:; |
7328 |
base[11]= (V1245); |
base[11]= (V1115); |
7329 |
vs_top=(vs_base=base+11)+1; |
vs_top=(vs_base=base+11)+1; |
7330 |
Lsymbol_function(); |
Lsymbol_function(); |
7331 |
vs_top=sup; |
vs_top=sup; |
7332 |
base[9]= vs_base[0]; |
base[9]= vs_base[0]; |
7333 |
base[9]=MMcons(base[9],Cnil); |
base[9]=MMcons(base[9],Cnil); |
7334 |
base[11]= |
base[11]= |
7335 |
make_cclosure_new(LC138,Cnil,base[9],Cdata); |
make_cclosure_new(LC133,Cnil,base[9],Cdata); |
7336 |
base[12]= list(2,VV[164],(V1245)); |
base[12]= list(2,VV[173],(V1115)); |
7337 |
vs_top=(vs_base=base+11)+2; |
vs_top=(vs_base=base+11)+2; |
7338 |
(void) (*Lnk346)(); |
(void) (*Lnk361)(); |
7339 |
vs_top=sup; |
vs_top=sup; |
7340 |
V1247= vs_base[0]; |
V1117= vs_base[0]; |
7341 |
V1246= list(2,VV[35],V1247); |
V1116= list(2,VV[39],V1117); |
7342 |
base[11]= VV[20]; |
base[11]= VV[24]; |
7343 |
base[12]= Cnil; |
base[12]= Cnil; |
7344 |
base[13]= (V1242); |
base[13]= (V1112); |
7345 |
base[14]= (V1243); |
base[14]= (V1113); |
7346 |
base[15]= (V1246); |
base[15]= (V1116); |
7347 |
base[16]= Cnil; |
base[16]= Cnil; |
7348 |
(V1239->c.c_car)= simple_symlispcall(VV[461],base+11,6);} |
(V1109->c.c_car)= simple_symlispcall(VV[478],base+11,6);} |
7349 |
if((V1240=MMcdr(V1240))==Cnil){ |
if((V1110=MMcdr(V1110))==Cnil){ |
7350 |
V1238= base[4]; |
V1108= base[4]; |
7351 |
goto T2480;} |
goto T2388;} |
7352 |
V1239=MMcdr(V1239)=MMcons(Cnil,Cnil); |
V1109=MMcdr(V1109)=MMcons(Cnil,Cnil); |
7353 |
goto T2481;} |
goto T2389;} |
7354 |
goto T2480; |
goto T2388; |
7355 |
T2480:; |
T2388:; |
7356 |
{object V1249; |
{object V1119; |
7357 |
V1249= (VV[332]->s.s_dbind); |
V1119= (VV[347]->s.s_dbind); |
7358 |
V1250= ({object _tmp=get(VV[358],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[358])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[358])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V1120= ({object _tmp=get(VV[373],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[373])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[373])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V1251 = (V1249); |
|
|
V1252 = V1237; |
|
7359 |
(void)(( |
(void)(( |
7360 |
V1253 = V1250, |
V1121 = V1120, |
7361 |
(type_of(V1253) == t_sfun ?(*((V1253)->sfn.sfn_self)): |
(type_of(V1121) == t_sfun ?(*((V1121)->sfn.sfn_self)): |
7362 |
(fcall.argd=2,type_of(V1253)==t_vfun) ? |
(fcall.argd=2,type_of(V1121)==t_vfun) ? |
7363 |
(*((V1253)->sfn.sfn_self)): |
(*((V1121)->sfn.sfn_self)): |
7364 |
(fcall.fun=(V1253),fcalln))(V1251,V1252)));} |
(fcall.fun=(V1121),fcalln))((V1119),V1107)));} |
7365 |
{object V1255; |
{object V1123; |
7366 |
V1255= (VV[253]->s.s_dbind); |
V1123= (VV[266]->s.s_dbind); |
7367 |
V1256= ({object _tmp=get(VV[436],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[436])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[436])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V1124= ({object _tmp=get(VV[451],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[451])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[451])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V1257 = (V1255); |
|
|
V1258 = V1237; |
|
7368 |
(void)(( |
(void)(( |
7369 |
V1259 = V1256, |
V1125 = V1124, |
7370 |
(type_of(V1259) == t_sfun ?(*((V1259)->sfn.sfn_self)): |
(type_of(V1125) == t_sfun ?(*((V1125)->sfn.sfn_self)): |
7371 |
(fcall.argd=2,type_of(V1259)==t_vfun) ? |
(fcall.argd=2,type_of(V1125)==t_vfun) ? |
7372 |
(*((V1259)->sfn.sfn_self)): |
(*((V1125)->sfn.sfn_self)): |
7373 |
(fcall.fun=(V1259),fcalln))(V1257,V1258)));} |
(fcall.fun=(V1125),fcalln))((V1123),V1107)));} |
7374 |
(void)((*(LnkLI469))((V1237),(V1238)));} |
(void)((*(LnkLI487))((V1107),(V1108)));} |
7375 |
V1233= CMPcdr((V1233)); |
V1103= CMPcdr((V1103)); |
7376 |
V1234= CMPcar((V1233)); |
V1104= CMPcar((V1103)); |
7377 |
goto T2472;}} |
goto T2380;}} |
7378 |
va_end(ap); |
va_end(ap); |
7379 |
base[0]=base[0]; |
base[0]=base[0]; |
7380 |
return Cnil;} |
return Cnil;} |
7381 |
} |
} |
7382 |
/* function definition for PARSE-DEFMETHOD */ |
/* function definition for PARSE-DEFMETHOD */ |
7383 |
|
|
7384 |
static void L110() |
static void L106() |
7385 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7386 |
register object *sup=base+VM98; VC98 |
register object *sup=base+VM95; VC95 |
7387 |
vs_check; |
vs_check; |
7388 |
{register object V1260; |
{register object V1126; |
7389 |
check_arg(1); |
check_arg(1); |
7390 |
V1260=(base[0]); |
V1126=(base[0]); |
7391 |
vs_top=sup; |
vs_top=sup; |
7392 |
goto TTL; |
goto TTL; |
7393 |
TTL:; |
TTL:; |
7394 |
{object V1261; |
{object V1127; |
7395 |
register object V1262; |
register object V1128; |
7396 |
object V1263; |
object V1129; |
7397 |
{object V1264; |
{object V1130; |
7398 |
V1264= CMPcar((V1260)); |
V1130= CMPcar((V1126)); |
7399 |
V1260= CMPcdr((V1260)); |
V1126= CMPcdr((V1126)); |
7400 |
V1261= (V1264);} |
V1127= (V1130);} |
7401 |
V1262= Cnil; |
V1128= Cnil; |
7402 |
V1263= Cnil; |
V1129= Cnil; |
7403 |
goto T2516; |
goto T2424; |
7404 |
T2516:; |
T2424:; |
7405 |
if((CMPcar((V1260)))==Cnil){ |
if((CMPcar((V1126)))==Cnil){ |
7406 |
goto T2519;} |
goto T2427;} |
7407 |
if(!(type_of(CMPcar((V1260)))!=t_cons)){ |
if(!(type_of(CMPcar((V1126)))!=t_cons)){ |
7408 |
goto T2519;} |
goto T2427;} |
7409 |
{register object V1265; |
{register object V1131; |
7410 |
{register object V1266; |
{register object V1132; |
7411 |
V1266= CMPcar((V1260)); |
V1132= CMPcar((V1126)); |
7412 |
V1260= CMPcdr((V1260)); |
V1126= CMPcdr((V1126)); |
7413 |
V1265= (V1266);} |
V1131= (V1132);} |
7414 |
V1262= make_cons((V1265),(V1262)); |
V1128= make_cons((V1131),(V1128)); |
7415 |
goto T2517;} |
goto T2425;} |
7416 |
goto T2519; |
goto T2427; |
7417 |
T2519:; |
T2427:; |
7418 |
V1262= nreverse((V1262)); |
V1128= nreverse((V1128)); |
7419 |
goto T2514; |
goto T2422; |
7420 |
goto T2517; |
goto T2425; |
7421 |
T2517:; |
T2425:; |
7422 |
goto T2516; |
goto T2424; |
7423 |
goto T2514; |
goto T2422; |
7424 |
T2514:; |
T2422:; |
7425 |
{object V1267; |
{object V1133; |
7426 |
V1267= CMPcar((V1260)); |
V1133= CMPcar((V1126)); |
7427 |
V1260= CMPcdr((V1260)); |
V1126= CMPcdr((V1126)); |
7428 |
V1263= (V1267);} |
V1129= (V1133);} |
7429 |
base[1]= (V1261); |
base[1]= (V1127); |
7430 |
base[2]= (V1262); |
base[2]= (V1128); |
7431 |
base[3]= (V1263); |
base[3]= (V1129); |
7432 |
base[4]= (V1260); |
base[4]= (V1126); |
7433 |
vs_top=(vs_base=base+1)+4; |
vs_top=(vs_base=base+1)+4; |
7434 |
return;} |
return;} |
7435 |
} |
} |
7436 |
} |
} |
7437 |
/* local entry for function PARSE-SPECIALIZERS */ |
/* local entry for function PARSE-SPECIALIZERS */ |
7438 |
|
|
7439 |
static object LI111(V1269) |
static object LI107(V1135) |
7440 |
|
|
7441 |
object V1269; |
object V1135; |
7442 |
{ VMB99 VMS99 VMV99 |
{ VMB96 VMS96 VMV96 |
7443 |
goto TTL; |
goto TTL; |
7444 |
TTL:; |
TTL:; |
7445 |
{object V1270; |
{object V1136; |
7446 |
object V1271= (V1269); |
object V1137= (V1135); |
7447 |
if(V1271==Cnil){ |
if(V1137==Cnil){ |
7448 |
{object V1272 = Cnil; |
{object V1138 = Cnil; |
7449 |
VMR99(V1272)}} |
VMR96(V1138)}} |
7450 |
base[0]=V1270=MMcons(Cnil,Cnil); |
base[0]=V1136=MMcons(Cnil,Cnil); |
7451 |
goto T2539; |
goto T2447; |
7452 |
T2539:; |
T2447:; |
7453 |
base[1]= (V1271->c.c_car); |
base[1]= (V1137->c.c_car); |
7454 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7455 |
L112(base); |
L108(base); |
7456 |
vs_top=sup; |
vs_top=sup; |
7457 |
(V1270->c.c_car)= vs_base[0]; |
(V1136->c.c_car)= vs_base[0]; |
7458 |
if((V1271=MMcdr(V1271))==Cnil){ |
if((V1137=MMcdr(V1137))==Cnil){ |
7459 |
{object V1273 = base[0]; |
{object V1139 = base[0]; |
7460 |
VMR99(V1273)}} |
VMR96(V1139)}} |
7461 |
V1270=MMcdr(V1270)=MMcons(Cnil,Cnil); |
V1136=MMcdr(V1136)=MMcons(Cnil,Cnil); |
7462 |
goto T2539;} |
goto T2447;} |
7463 |
base[0]=base[0]; |
base[0]=base[0]; |
7464 |
return Cnil; |
return Cnil; |
7465 |
} |
} |
7466 |
/* local entry for function UNPARSE-SPECIALIZERS */ |
/* local entry for function UNPARSE-SPECIALIZERS */ |
7467 |
|
|
7468 |
static object LI113(V1275) |
static object LI109(V1141) |
7469 |
|
|
7470 |
object V1275; |
register object V1141; |
7471 |
{ VMB100 VMS100 VMV100 |
{ VMB97 VMS97 VMV97 |
7472 |
goto TTL; |
goto TTL; |
7473 |
TTL:; |
TTL:; |
7474 |
if(!(type_of((V1275))==t_cons||((V1275))==Cnil)){ |
if(!(type_of((V1141))==t_cons||((V1141))==Cnil)){ |
7475 |
goto T2543;} |
goto T2451;} |
7476 |
{object V1276; |
{object V1142; |
7477 |
object V1277= (V1275); |
object V1143= (V1141); |
7478 |
if(V1277==Cnil){ |
if(V1143==Cnil){ |
7479 |
{object V1278 = Cnil; |
{object V1144 = Cnil; |
7480 |
VMR100(V1278)}} |
VMR97(V1144)}} |
7481 |
base[0]=V1276=MMcons(Cnil,Cnil); |
base[0]=V1142=MMcons(Cnil,Cnil); |
7482 |
goto T2545; |
goto T2453; |
7483 |
T2545:; |
T2453:; |
7484 |
base[1]= (V1277->c.c_car); |
base[1]= (V1143->c.c_car); |
7485 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
7486 |
L114(base); |
L110(base); |
7487 |
vs_top=sup; |
vs_top=sup; |
7488 |
(V1276->c.c_car)= vs_base[0]; |
(V1142->c.c_car)= vs_base[0]; |
7489 |
if((V1277=MMcdr(V1277))==Cnil){ |
if((V1143=MMcdr(V1143))==Cnil){ |
7490 |
{object V1279 = base[0]; |
{object V1145 = base[0]; |
7491 |
VMR100(V1279)}} |
VMR97(V1145)}} |
7492 |
V1276=MMcdr(V1276)=MMcons(Cnil,Cnil); |
V1142=MMcdr(V1142)=MMcons(Cnil,Cnil); |
7493 |
goto T2545;} |
goto T2453;} |
7494 |
goto T2543; |
goto T2451; |
7495 |
T2543:; |
T2451:; |
7496 |
base[0]= (V1275); |
base[0]= (V1141); |
7497 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7498 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk448)(Lclptr448); |
7499 |
vs_top=sup; |
vs_top=sup; |
7500 |
V1275= vs_base[0]; |
V1141= vs_base[0]; |
7501 |
goto TTL; |
goto TTL; |
7502 |
base[0]=base[0]; |
base[0]=base[0]; |
7503 |
return Cnil; |
return Cnil; |
7504 |
} |
} |
7505 |
/* function definition for PARSE-METHOD-OR-SPEC */ |
/* function definition for PARSE-METHOD-OR-SPEC */ |
7506 |
|
|
7507 |
static void L115() |
static void L111() |
7508 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7509 |
register object *sup=base+VM101; VC101 |
register object *sup=base+VM98; VC98 |
7510 |
vs_check; |
vs_check; |
7511 |
{object V1280; |
{object V1146; |
7512 |
object V1281; |
object V1147; |
7513 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
7514 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
7515 |
V1280=(base[0]); |
V1146=(base[0]); |
7516 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
7517 |
if(vs_base>=vs_top){vs_top=sup;goto T2551;} |
if(vs_base>=vs_top){vs_top=sup;goto T2459;} |
7518 |
V1281=(base[1]); |
V1147=(base[1]); |
7519 |
vs_top=sup; |
vs_top=sup; |
7520 |
goto T2552; |
goto T2460; |
7521 |
goto T2551; |
goto T2459; |
7522 |
T2551:; |
T2459:; |
7523 |
V1281= Ct; |
V1147= Ct; |
7524 |
goto T2552; |
goto T2460; |
7525 |
T2552:; |
T2460:; |
7526 |
{register object V1282; |
{register object V1148; |
7527 |
register object V1283; |
register object V1149; |
7528 |
object V1284; |
object V1150; |
7529 |
object V1285; |
object V1151; |
7530 |
V1282= Cnil; |
V1148= Cnil; |
7531 |
V1283= Cnil; |
V1149= Cnil; |
7532 |
V1284= Cnil; |
V1150= Cnil; |
7533 |
V1285= Cnil; |
V1151= Cnil; |
7534 |
base[2]= (V1280); |
base[2]= (V1146); |
7535 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7536 |
(void) (*Lnk470)(Lclptr470); |
(void) (*Lnk488)(Lclptr488); |
7537 |
vs_top=sup; |
vs_top=sup; |
7538 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
7539 |
goto T2556;} |
goto T2464;} |
7540 |
V1283= (V1280); |
V1149= (V1146); |
7541 |
base[2]= (V1283); |
base[2]= (V1149); |
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk471)(Lclptr471); |
|
|
vs_top=sup; |
|
|
V1282= vs_base[0]; |
|
|
if((V1282)==Cnil){ |
|
|
V1285= Cnil; |
|
|
goto T2565;} |
|
|
base[2]= (V1282); |
|
7542 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7543 |
(void) (*Lnk440)(Lclptr440); |
(void) (*Lnk397)(Lclptr397); |
|
vs_top=sup; |
|
|
V1285= vs_base[0]; |
|
|
goto T2565; |
|
|
T2565:; |
|
|
if(((V1285))==Cnil){ |
|
|
goto T2569;} |
|
|
V1286 = (V1285); |
|
|
base[2]= (V1283); |
|
|
vs_top=(vs_base=base+2)+1; |
|
|
(void) (*Lnk473)(Lclptr473); |
|
7544 |
vs_top=sup; |
vs_top=sup; |
7545 |
V1287= vs_base[0]; |
V1148= vs_base[0]; |
7546 |
base[2]= (V1283); |
if((V1148)==Cnil){ |
7547 |
|
V1151= Cnil; |
7548 |
|
goto T2473;} |
7549 |
|
base[2]= (V1148); |
7550 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7551 |
(void) (*Lnk433)(Lclptr433); |
(void) (*Lnk455)(Lclptr455); |
7552 |
vs_top=sup; |
vs_top=sup; |
7553 |
V1288= vs_base[0]; |
V1151= vs_base[0]; |
7554 |
V1289= (*(LnkLI474))(V1288); |
goto T2473; |
7555 |
V1290= (*(LnkLI400))(V1286,V1287,/* INLINE-ARGS */V1289); |
T2473:; |
7556 |
V1284= (*(LnkLI472))(/* INLINE-ARGS */V1290); |
if(((V1151))==Cnil){ |
7557 |
goto T2567; |
goto T2477;} |
7558 |
goto T2569; |
base[2]= (V1149); |
7559 |
T2569:; |
vs_top=(vs_base=base+2)+1; |
7560 |
|
(void) (*Lnk490)(Lclptr490); |
7561 |
|
vs_top=sup; |
7562 |
|
V1152= vs_base[0]; |
7563 |
|
base[2]= (V1149); |
7564 |
|
vs_top=(vs_base=base+2)+1; |
7565 |
|
(void) (*Lnk448)(Lclptr448); |
7566 |
|
vs_top=sup; |
7567 |
|
V1153= vs_base[0]; |
7568 |
|
V1154= (*(LnkLI491))(V1153); |
7569 |
|
V1155= (*(LnkLI413))((V1151),V1152,/* INLINE-ARGS */V1154); |
7570 |
|
V1150= (*(LnkLI489))(/* INLINE-ARGS */V1155); |
7571 |
|
goto T2475; |
7572 |
|
goto T2477; |
7573 |
|
T2477:; |
7574 |
base[3]= Cnil; |
base[3]= Cnil; |
7575 |
base[4]= VV[337]; |
base[4]= VV[352]; |
7576 |
base[5]= (V1283); |
base[5]= (V1149); |
7577 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
7578 |
Lformat(); |
Lformat(); |
7579 |
vs_top=sup; |
vs_top=sup; |
7581 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7582 |
Lmake_symbol(); |
Lmake_symbol(); |
7583 |
vs_top=sup; |
vs_top=sup; |
7584 |
V1284= vs_base[0]; |
V1150= vs_base[0]; |
7585 |
goto T2567; |
goto T2475; |
7586 |
T2567:; |
T2475:; |
7587 |
goto T2554; |
goto T2462; |
7588 |
goto T2556; |
goto T2464; |
7589 |
T2556:; |
T2464:; |
7590 |
{object V1291; |
{object V1156; |
7591 |
object V1292; |
object V1157; |
7592 |
register object V1293; |
register object V1158; |
7593 |
base[2]= (V1280); |
base[2]= (V1146); |
7594 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7595 |
(void) (*Lnk353)(); |
(void) (*Lnk368)(); |
7596 |
if(vs_base>=vs_top){vs_top=sup;goto T2581;} |
if(vs_base>=vs_top){vs_top=sup;goto T2489;} |
7597 |
V1291= vs_base[0]; |
V1156= vs_base[0]; |
7598 |
vs_base++; |
vs_base++; |
7599 |
if(vs_base>=vs_top){vs_top=sup;goto T2582;} |
if(vs_base>=vs_top){vs_top=sup;goto T2490;} |
7600 |
V1292= vs_base[0]; |
V1157= vs_base[0]; |
7601 |
vs_base++; |
vs_base++; |
7602 |
if(vs_base>=vs_top){vs_top=sup;goto T2583;} |
if(vs_base>=vs_top){vs_top=sup;goto T2491;} |
7603 |
V1293= vs_base[0]; |
V1158= vs_base[0]; |
7604 |
vs_top=sup; |
vs_top=sup; |
7605 |
goto T2584; |
goto T2492; |
7606 |
goto T2581; |
goto T2489; |
7607 |
T2581:; |
T2489:; |
7608 |
V1291= Cnil; |
V1156= Cnil; |
7609 |
goto T2582; |
goto T2490; |
7610 |
T2582:; |
T2490:; |
7611 |
V1292= Cnil; |
V1157= Cnil; |
7612 |
goto T2583; |
goto T2491; |
7613 |
T2583:; |
T2491:; |
7614 |
V1293= Cnil; |
V1158= Cnil; |
7615 |
goto T2584; |
goto T2492; |
7616 |
T2584:; |
T2492:; |
7617 |
if((V1281)!=Cnil){ |
if((V1147)!=Cnil){ |
7618 |
if(((V1281))!=Cnil){ |
if(((V1147))!=Cnil){ |
7619 |
goto T2588;} |
goto T2496;} |
7620 |
goto T2589;} |
goto T2497;} |
7621 |
if(((*(LnkLI356))((V1291)))!=Cnil){ |
if(((*(LnkLI371))((V1156)))!=Cnil){ |
7622 |
goto T2588;} |
goto T2496;} |
7623 |
goto T2589; |
goto T2497; |
7624 |
T2589:; |
T2497:; |
7625 |
V1282= Cnil; |
V1148= Cnil; |
7626 |
goto T2587; |
goto T2495; |
7627 |
goto T2588; |
goto T2496; |
7628 |
T2588:; |
T2496:; |
7629 |
V1282= (*(LnkLI347))((V1291)); |
V1148= (*(LnkLI362))((V1156)); |
7630 |
goto T2587; |
goto T2495; |
7631 |
T2587:; |
T2495:; |
7632 |
if(((V1282))!=Cnil){ |
if(((V1148))!=Cnil){ |
7633 |
goto T2585;} |
goto T2493;} |
7634 |
goto T2554; |
goto T2462; |
7635 |
goto T2585; |
goto T2493; |
7636 |
T2585:; |
T2493:; |
7637 |
{object V1294; |
{object V1159; |
7638 |
base[2]= (V1282); |
base[2]= (V1148); |
7639 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7640 |
(void) (*Lnk475)(Lclptr475); |
(void) (*Lnk492)(Lclptr492); |
7641 |
vs_top=sup; |
vs_top=sup; |
7642 |
V1294= vs_base[0]; |
V1159= vs_base[0]; |
7643 |
V1295= (*(LnkLI457))((V1293)); |
V1160= (*(LnkLI474))((V1158)); |
7644 |
V1297 = CMPmake_fixnum((long)length((V1293))); |
V1162 = CMPmake_fixnum((long)length((V1158))); |
7645 |
base[2]= number_minus((V1294),V1297); |
base[2]= number_minus((V1159),V1162); |
7646 |
base[3]= VV[222]; |
base[3]= VV[235]; |
7647 |
base[4]= (VV[338]->s.s_dbind); |
base[4]= (VV[353]->s.s_dbind); |
7648 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7649 |
Lmake_list(); |
Lmake_list(); |
7650 |
vs_top=sup; |
vs_top=sup; |
7651 |
V1296= vs_base[0]; |
V1161= vs_base[0]; |
7652 |
V1293= append(/* INLINE-ARGS */V1295,V1296); |
V1158= append(/* INLINE-ARGS */V1160,V1161); |
7653 |
V1283= (VFUN_NARGS=4,(*(LnkLI476))((V1282),(V1292),(V1293),(V1281))); |
V1149= (VFUN_NARGS=4,(*(LnkLI493))((V1148),(V1157),(V1158),(V1147))); |
7654 |
if(((V1283))!=Cnil){ |
if(((V1149))!=Cnil){ |
7655 |
goto T2598;} |
goto T2506;} |
7656 |
goto T2554; |
goto T2462; |
7657 |
goto T2598; |
goto T2506; |
7658 |
T2598:; |
T2506:; |
7659 |
V1298= (*(LnkLI400))((V1291),(V1292),(V1293)); |
V1163= (*(LnkLI413))((V1156),(V1157),(V1158)); |
7660 |
V1284= (*(LnkLI472))(/* INLINE-ARGS */V1298);}} |
V1150= (*(LnkLI489))(/* INLINE-ARGS */V1163);}} |
7661 |
goto T2554; |
goto T2462; |
7662 |
T2554:; |
T2462:; |
7663 |
base[2]= (V1282); |
base[2]= (V1148); |
7664 |
base[3]= (V1283); |
base[3]= (V1149); |
7665 |
base[4]= (V1284); |
base[4]= (V1150); |
7666 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7667 |
return;} |
return;} |
7668 |
} |
} |
7669 |
} |
} |
7670 |
/* local entry for function EXTRACT-PARAMETERS */ |
/* local entry for function EXTRACT-PARAMETERS */ |
7671 |
|
|
7672 |
static object LI116(V1300) |
static object LI112(V1165) |
7673 |
|
|
7674 |
object V1300; |
object V1165; |
7675 |
{ VMB102 VMS102 VMV102 |
{ VMB99 VMS99 VMV99 |
7676 |
goto TTL; |
goto TTL; |
7677 |
TTL:; |
TTL:; |
7678 |
{object V1301; |
{object V1166; |
7679 |
object V1302; |
object V1167; |
7680 |
object V1303; |
object V1168; |
7681 |
base[0]= (V1300); |
base[0]= (V1165); |
7682 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7683 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
7684 |
if(vs_base>=vs_top){vs_top=sup;goto T2607;} |
if(vs_base>=vs_top){vs_top=sup;goto T2515;} |
7685 |
V1301= vs_base[0]; |
V1166= vs_base[0]; |
7686 |
vs_base++; |
vs_base++; |
7687 |
if(vs_base>=vs_top){vs_top=sup;goto T2608;} |
if(vs_base>=vs_top){vs_top=sup;goto T2516;} |
7688 |
V1302= vs_base[0]; |
V1167= vs_base[0]; |
7689 |
vs_base++; |
vs_base++; |
7690 |
if(vs_base>=vs_top){vs_top=sup;goto T2609;} |
if(vs_base>=vs_top){vs_top=sup;goto T2517;} |
7691 |
V1303= vs_base[0]; |
V1168= vs_base[0]; |
7692 |
vs_top=sup; |
vs_top=sup; |
7693 |
goto T2610; |
goto T2518; |
7694 |
goto T2607; |
goto T2515; |
7695 |
T2607:; |
T2515:; |
7696 |
V1301= Cnil; |
V1166= Cnil; |
7697 |
goto T2608; |
goto T2516; |
7698 |
T2608:; |
T2516:; |
7699 |
V1302= Cnil; |
V1167= Cnil; |
7700 |
goto T2609; |
goto T2517; |
7701 |
T2609:; |
T2517:; |
7702 |
V1303= Cnil; |
V1168= Cnil; |
7703 |
goto T2610; |
goto T2518; |
7704 |
T2610:; |
T2518:; |
7705 |
{object V1304 = (V1301); |
{object V1169 = (V1166); |
7706 |
VMR102(V1304)}} |
VMR99(V1169)}} |
7707 |
base[0]=base[0]; |
base[0]=base[0]; |
7708 |
return Cnil; |
return Cnil; |
7709 |
} |
} |
7710 |
/* local entry for function EXTRACT-LAMBDA-LIST */ |
/* local entry for function EXTRACT-LAMBDA-LIST */ |
7711 |
|
|
7712 |
static object LI117(V1306) |
static object LI113(V1171) |
7713 |
|
|
7714 |
object V1306; |
object V1171; |
7715 |
{ VMB103 VMS103 VMV103 |
{ VMB100 VMS100 VMV100 |
7716 |
goto TTL; |
goto TTL; |
7717 |
TTL:; |
TTL:; |
7718 |
{object V1307; |
{object V1172; |
7719 |
object V1308; |
object V1173; |
7720 |
object V1309; |
object V1174; |
7721 |
base[0]= (V1306); |
base[0]= (V1171); |
7722 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7723 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
7724 |
if(vs_base>=vs_top){vs_top=sup;goto T2613;} |
if(vs_base>=vs_top){vs_top=sup;goto T2521;} |
7725 |
V1307= vs_base[0]; |
V1172= vs_base[0]; |
7726 |
vs_base++; |
vs_base++; |
7727 |
if(vs_base>=vs_top){vs_top=sup;goto T2614;} |
if(vs_base>=vs_top){vs_top=sup;goto T2522;} |
7728 |
V1308= vs_base[0]; |
V1173= vs_base[0]; |
7729 |
vs_base++; |
vs_base++; |
7730 |
if(vs_base>=vs_top){vs_top=sup;goto T2615;} |
if(vs_base>=vs_top){vs_top=sup;goto T2523;} |
7731 |
V1309= vs_base[0]; |
V1174= vs_base[0]; |
7732 |
vs_top=sup; |
vs_top=sup; |
7733 |
goto T2616; |
goto T2524; |
7734 |
goto T2613; |
goto T2521; |
7735 |
T2613:; |
T2521:; |
7736 |
V1307= Cnil; |
V1172= Cnil; |
7737 |
goto T2614; |
goto T2522; |
7738 |
T2614:; |
T2522:; |
7739 |
V1308= Cnil; |
V1173= Cnil; |
7740 |
goto T2615; |
goto T2523; |
7741 |
T2615:; |
T2523:; |
7742 |
V1309= Cnil; |
V1174= Cnil; |
7743 |
goto T2616; |
goto T2524; |
7744 |
T2616:; |
T2524:; |
7745 |
{object V1310 = (V1308); |
{object V1175 = (V1173); |
7746 |
VMR103(V1310)}} |
VMR100(V1175)}} |
7747 |
base[0]=base[0]; |
base[0]=base[0]; |
7748 |
return Cnil; |
return Cnil; |
7749 |
} |
} |
7750 |
/* local entry for function EXTRACT-SPECIALIZER-NAMES */ |
/* local entry for function EXTRACT-SPECIALIZER-NAMES */ |
7751 |
|
|
7752 |
static object LI118(V1312) |
static object LI114(V1177) |
7753 |
|
|
7754 |
object V1312; |
object V1177; |
7755 |
{ VMB104 VMS104 VMV104 |
{ VMB101 VMS101 VMV101 |
7756 |
goto TTL; |
goto TTL; |
7757 |
TTL:; |
TTL:; |
7758 |
{object V1313; |
{object V1178; |
7759 |
object V1314; |
object V1179; |
7760 |
object V1315; |
object V1180; |
7761 |
base[0]= (V1312); |
base[0]= (V1177); |
7762 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7763 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
7764 |
if(vs_base>=vs_top){vs_top=sup;goto T2619;} |
if(vs_base>=vs_top){vs_top=sup;goto T2527;} |
7765 |
V1313= vs_base[0]; |
V1178= vs_base[0]; |
7766 |
vs_base++; |
vs_base++; |
7767 |
if(vs_base>=vs_top){vs_top=sup;goto T2620;} |
if(vs_base>=vs_top){vs_top=sup;goto T2528;} |
7768 |
V1314= vs_base[0]; |
V1179= vs_base[0]; |
7769 |
vs_base++; |
vs_base++; |
7770 |
if(vs_base>=vs_top){vs_top=sup;goto T2621;} |
if(vs_base>=vs_top){vs_top=sup;goto T2529;} |
7771 |
V1315= vs_base[0]; |
V1180= vs_base[0]; |
7772 |
vs_top=sup; |
vs_top=sup; |
7773 |
goto T2622; |
goto T2530; |
7774 |
goto T2619; |
goto T2527; |
7775 |
T2619:; |
T2527:; |
7776 |
V1313= Cnil; |
V1178= Cnil; |
7777 |
goto T2620; |
goto T2528; |
7778 |
T2620:; |
T2528:; |
7779 |
V1314= Cnil; |
V1179= Cnil; |
7780 |
goto T2621; |
goto T2529; |
7781 |
T2621:; |
T2529:; |
7782 |
V1315= Cnil; |
V1180= Cnil; |
7783 |
goto T2622; |
goto T2530; |
7784 |
T2622:; |
T2530:; |
7785 |
{object V1316 = (V1315); |
{object V1181 = (V1180); |
7786 |
VMR104(V1316)}} |
VMR101(V1181)}} |
7787 |
base[0]=base[0]; |
base[0]=base[0]; |
7788 |
return Cnil; |
return Cnil; |
7789 |
} |
} |
7790 |
/* local entry for function EXTRACT-REQUIRED-PARAMETERS */ |
/* local entry for function EXTRACT-REQUIRED-PARAMETERS */ |
7791 |
|
|
7792 |
static object LI119(V1318) |
static object LI115(V1183) |
7793 |
|
|
7794 |
object V1318; |
object V1183; |
7795 |
{ VMB105 VMS105 VMV105 |
{ VMB102 VMS102 VMV102 |
7796 |
goto TTL; |
goto TTL; |
7797 |
TTL:; |
TTL:; |
7798 |
{object V1319; |
{object V1184; |
7799 |
object V1320; |
object V1185; |
7800 |
object V1321; |
object V1186; |
7801 |
object V1322; |
object V1187; |
7802 |
base[0]= (V1318); |
base[0]= (V1183); |
7803 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
7804 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
7805 |
if(vs_base>=vs_top){vs_top=sup;goto T2625;} |
if(vs_base>=vs_top){vs_top=sup;goto T2533;} |
7806 |
V1319= vs_base[0]; |
V1184= vs_base[0]; |
7807 |
vs_base++; |
vs_base++; |
7808 |
if(vs_base>=vs_top){vs_top=sup;goto T2626;} |
if(vs_base>=vs_top){vs_top=sup;goto T2534;} |
7809 |
V1320= vs_base[0]; |
V1185= vs_base[0]; |
7810 |
vs_base++; |
vs_base++; |
7811 |
if(vs_base>=vs_top){vs_top=sup;goto T2627;} |
if(vs_base>=vs_top){vs_top=sup;goto T2535;} |
7812 |
V1321= vs_base[0]; |
V1186= vs_base[0]; |
7813 |
vs_base++; |
vs_base++; |
7814 |
if(vs_base>=vs_top){vs_top=sup;goto T2628;} |
if(vs_base>=vs_top){vs_top=sup;goto T2536;} |
7815 |
V1322= vs_base[0]; |
V1187= vs_base[0]; |
7816 |
vs_top=sup; |
vs_top=sup; |
7817 |
goto T2629; |
goto T2537; |
7818 |
goto T2625; |
goto T2533; |
7819 |
T2625:; |
T2533:; |
7820 |
V1319= Cnil; |
V1184= Cnil; |
7821 |
goto T2626; |
goto T2534; |
7822 |
T2626:; |
T2534:; |
7823 |
V1320= Cnil; |
V1185= Cnil; |
7824 |
goto T2627; |
goto T2535; |
7825 |
T2627:; |
T2535:; |
7826 |
V1321= Cnil; |
V1186= Cnil; |
7827 |
goto T2628; |
goto T2536; |
7828 |
T2628:; |
T2536:; |
7829 |
V1322= Cnil; |
V1187= Cnil; |
7830 |
goto T2629; |
goto T2537; |
7831 |
T2629:; |
T2537:; |
7832 |
{object V1323 = (V1322); |
{object V1188 = (V1187); |
7833 |
VMR105(V1323)}} |
VMR102(V1188)}} |
7834 |
base[0]=base[0]; |
base[0]=base[0]; |
7835 |
return Cnil; |
return Cnil; |
7836 |
} |
} |
7837 |
/* function definition for PARSE-SPECIALIZED-LAMBDA-LIST */ |
/* function definition for PARSE-SPECIALIZED-LAMBDA-LIST */ |
7838 |
|
|
7839 |
static void L120() |
static void L116() |
7840 |
{register object *base=vs_base; |
{register object *base=vs_base; |
7841 |
register object *sup=base+VM106; VC106 |
register object *sup=base+VM103; VC103 |
7842 |
vs_check; |
vs_check; |
7843 |
{register object V1324; |
{register object V1189; |
7844 |
object V1325; |
object V1190; |
7845 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
7846 |
if(vs_top-vs_base>2) too_many_arguments(); |
if(vs_top-vs_base>2) too_many_arguments(); |
7847 |
V1324=(base[0]); |
V1189=(base[0]); |
7848 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
7849 |
if(vs_base>=vs_top){vs_top=sup;goto T2630;} |
if(vs_base>=vs_top){vs_top=sup;goto T2538;} |
7850 |
V1325=(base[1]); |
V1190=(base[1]); |
7851 |
vs_top=sup; |
vs_top=sup; |
7852 |
goto T2631; |
goto T2539; |
7853 |
goto T2630; |
goto T2538; |
7854 |
T2630:; |
T2538:; |
7855 |
V1325= Cnil; |
V1190= Cnil; |
7856 |
goto T2631; |
goto T2539; |
7857 |
T2631:; |
T2539:; |
7858 |
{register object V1326; |
{register object V1191; |
7859 |
V1326= CMPcar((V1324)); |
V1191= CMPcar((V1189)); |
7860 |
if(((V1324))!=Cnil){ |
if(((V1189))!=Cnil){ |
7861 |
goto T2635;} |
goto T2543;} |
7862 |
base[2]= Cnil; |
base[2]= Cnil; |
7863 |
base[3]= Cnil; |
base[3]= Cnil; |
7864 |
base[4]= Cnil; |
base[4]= Cnil; |
7865 |
base[5]= Cnil; |
base[5]= Cnil; |
7866 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
7867 |
return; |
return; |
7868 |
goto T2635; |
goto T2543; |
7869 |
T2635:; |
T2543:; |
7870 |
if(!(((V1326))==(VV[55]))){ |
if(!(((V1191))==(VV[65]))){ |
7871 |
goto T2642;} |
goto T2550;} |
7872 |
base[2]= Cnil; |
base[2]= Cnil; |
7873 |
base[3]= (V1324); |
base[3]= (V1189); |
7874 |
base[4]= Cnil; |
base[4]= Cnil; |
7875 |
vs_top=(vs_base=base+2)+3; |
vs_top=(vs_base=base+2)+3; |
7876 |
return; |
return; |
7877 |
goto T2642; |
goto T2550; |
7878 |
T2642:; |
T2550:; |
7879 |
{register object x= (V1326),V1327= VV[182]; |
{register object x= (V1191),V1192= VV[193]; |
7880 |
while(V1327!=Cnil) |
while(V1192!=Cnil) |
7881 |
if(x==(V1327->c.c_car)){ |
if(x==(V1192->c.c_car)){ |
7882 |
goto T2649; |
goto T2557; |
7883 |
}else V1327=V1327->c.c_cdr; |
}else V1192=V1192->c.c_cdr; |
7884 |
goto T2648;} |
goto T2556;} |
7885 |
goto T2649; |
goto T2557; |
7886 |
T2649:; |
T2557:; |
7887 |
{register object x= (V1326),V1328= VV[339]; |
{register object x= (V1191),V1193= VV[354]; |
7888 |
while(V1328!=Cnil) |
while(V1193!=Cnil) |
7889 |
if(x==(V1328->c.c_car)){ |
if(x==(V1193->c.c_car)){ |
7890 |
goto T2650; |
goto T2558; |
7891 |
}else V1328=V1328->c.c_cdr;} |
}else V1193=V1193->c.c_cdr;} |
7892 |
base[2]= VV[340]; |
base[2]= VV[355]; |
7893 |
base[3]= (V1326); |
base[3]= (V1191); |
7894 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7895 |
(void) (*Lnk398)(); |
(void) (*Lnk466)(); |
7896 |
vs_top=sup; |
vs_top=sup; |
7897 |
goto T2650; |
goto T2558; |
7898 |
T2650:; |
T2558:; |
7899 |
{object V1329; |
{object V1194; |
7900 |
object V1330; |
object V1195; |
7901 |
base[2]= CMPcdr((V1324)); |
base[2]= CMPcdr((V1189)); |
7902 |
base[3]= Ct; |
base[3]= Ct; |
7903 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7904 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
7905 |
if(vs_base>=vs_top){vs_top=sup;goto T2658;} |
if(vs_base>=vs_top){vs_top=sup;goto T2566;} |
7906 |
V1329= vs_base[0]; |
V1194= vs_base[0]; |
7907 |
vs_base++; |
vs_base++; |
7908 |
if(vs_base>=vs_top){vs_top=sup;goto T2659;} |
if(vs_base>=vs_top){vs_top=sup;goto T2567;} |
7909 |
V1330= vs_base[0]; |
V1195= vs_base[0]; |
7910 |
vs_top=sup; |
vs_top=sup; |
7911 |
goto T2660; |
goto T2568; |
7912 |
goto T2658; |
goto T2566; |
7913 |
T2658:; |
T2566:; |
7914 |
V1329= Cnil; |
V1194= Cnil; |
7915 |
goto T2659; |
goto T2567; |
7916 |
T2659:; |
T2567:; |
7917 |
V1330= Cnil; |
V1195= Cnil; |
7918 |
goto T2660; |
goto T2568; |
7919 |
T2660:; |
T2568:; |
7920 |
base[2]= (V1329); |
base[2]= (V1194); |
7921 |
base[3]= make_cons((V1326),(V1330)); |
base[3]= make_cons((V1191),(V1195)); |
7922 |
base[4]= Cnil; |
base[4]= Cnil; |
7923 |
base[5]= Cnil; |
base[5]= Cnil; |
7924 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
7925 |
return;} |
return;} |
7926 |
goto T2648; |
goto T2556; |
7927 |
T2648:; |
T2556:; |
7928 |
if(((V1325))==Cnil){ |
if(((V1190))==Cnil){ |
7929 |
goto T2666;} |
goto T2574;} |
7930 |
{object V1331; |
{object V1196; |
7931 |
object V1332; |
object V1197; |
7932 |
base[2]= CMPcdr((V1324)); |
base[2]= CMPcdr((V1189)); |
7933 |
base[3]= Ct; |
base[3]= Ct; |
7934 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
7935 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
7936 |
if(vs_base>=vs_top){vs_top=sup;goto T2671;} |
if(vs_base>=vs_top){vs_top=sup;goto T2579;} |
7937 |
V1331= vs_base[0]; |
V1196= vs_base[0]; |
7938 |
vs_base++; |
vs_base++; |
7939 |
if(vs_base>=vs_top){vs_top=sup;goto T2672;} |
if(vs_base>=vs_top){vs_top=sup;goto T2580;} |
7940 |
V1332= vs_base[0]; |
V1197= vs_base[0]; |
7941 |
vs_top=sup; |
vs_top=sup; |
7942 |
goto T2673; |
goto T2581; |
7943 |
goto T2671; |
goto T2579; |
7944 |
T2671:; |
T2579:; |
7945 |
V1331= Cnil; |
V1196= Cnil; |
7946 |
goto T2672; |
goto T2580; |
7947 |
T2672:; |
T2580:; |
7948 |
V1332= Cnil; |
V1197= Cnil; |
7949 |
goto T2673; |
goto T2581; |
7950 |
T2673:; |
T2581:; |
7951 |
if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){ |
if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){ |
7952 |
goto T2677;} |
goto T2585;} |
7953 |
V1333= CMPcar((V1326)); |
V1198= CMPcar((V1191)); |
7954 |
goto T2675; |
goto T2583; |
7955 |
goto T2677; |
goto T2585; |
7956 |
T2677:; |
T2585:; |
7957 |
V1333= (V1326); |
V1198= (V1191); |
7958 |
goto T2675; |
goto T2583; |
7959 |
T2675:; |
T2583:; |
7960 |
V1334 = (V1331); |
base[2]= make_cons(V1198,(V1196)); |
7961 |
base[2]= make_cons(V1333,V1334); |
base[3]= make_cons((V1191),(V1197)); |
|
base[3]= make_cons((V1326),(V1332)); |
|
7962 |
base[4]= Cnil; |
base[4]= Cnil; |
7963 |
base[5]= Cnil; |
base[5]= Cnil; |
7964 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
7965 |
return;} |
return;} |
7966 |
goto T2666; |
goto T2574; |
7967 |
T2666:; |
T2574:; |
7968 |
{object V1335; |
{object V1199; |
7969 |
object V1336; |
object V1200; |
7970 |
object V1337; |
object V1201; |
7971 |
object V1338; |
object V1202; |
7972 |
base[2]= CMPcdr((V1324)); |
base[2]= CMPcdr((V1189)); |
7973 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
7974 |
(void) (*Lnk370)(); |
(void) (*Lnk385)(); |
7975 |
if(vs_base>=vs_top){vs_top=sup;goto T2684;} |
if(vs_base>=vs_top){vs_top=sup;goto T2592;} |
7976 |
V1335= vs_base[0]; |
V1199= vs_base[0]; |
7977 |
vs_base++; |
vs_base++; |
7978 |
if(vs_base>=vs_top){vs_top=sup;goto T2685;} |
if(vs_base>=vs_top){vs_top=sup;goto T2593;} |
7979 |
V1336= vs_base[0]; |
V1200= vs_base[0]; |
7980 |
vs_base++; |
vs_base++; |
7981 |
if(vs_base>=vs_top){vs_top=sup;goto T2686;} |
if(vs_base>=vs_top){vs_top=sup;goto T2594;} |
7982 |
V1337= vs_base[0]; |
V1201= vs_base[0]; |
7983 |
vs_base++; |
vs_base++; |
7984 |
if(vs_base>=vs_top){vs_top=sup;goto T2687;} |
if(vs_base>=vs_top){vs_top=sup;goto T2595;} |
7985 |
V1338= vs_base[0]; |
V1202= vs_base[0]; |
7986 |
vs_top=sup; |
vs_top=sup; |
7987 |
goto T2688; |
goto T2596; |
7988 |
goto T2684; |
goto T2592; |
7989 |
T2684:; |
T2592:; |
7990 |
V1335= Cnil; |
V1199= Cnil; |
7991 |
goto T2685; |
goto T2593; |
7992 |
T2685:; |
T2593:; |
7993 |
V1336= Cnil; |
V1200= Cnil; |
7994 |
goto T2686; |
goto T2594; |
7995 |
T2686:; |
T2594:; |
7996 |
V1337= Cnil; |
V1201= Cnil; |
7997 |
goto T2687; |
goto T2595; |
7998 |
T2687:; |
T2595:; |
7999 |
V1338= Cnil; |
V1202= Cnil; |
8000 |
goto T2688; |
goto T2596; |
8001 |
T2688:; |
T2596:; |
8002 |
if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){ |
if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){ |
8003 |
goto T2692;} |
goto T2600;} |
8004 |
V1339= CMPcar((V1326)); |
V1203= CMPcar((V1191)); |
8005 |
goto T2690; |
goto T2598; |
8006 |
goto T2692; |
goto T2600; |
8007 |
T2692:; |
T2600:; |
8008 |
V1339= (V1326); |
V1203= (V1191); |
8009 |
goto T2690; |
goto T2598; |
8010 |
T2690:; |
T2598:; |
8011 |
V1340 = (V1335); |
base[2]= make_cons(V1203,(V1199)); |
8012 |
base[2]= make_cons(V1339,V1340); |
if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){ |
8013 |
if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){ |
goto T2605;} |
8014 |
goto T2697;} |
V1204= CMPcar((V1191)); |
8015 |
V1341= CMPcar((V1326)); |
goto T2603; |
8016 |
goto T2695; |
goto T2605; |
8017 |
goto T2697; |
T2605:; |
8018 |
T2697:; |
V1204= (V1191); |
8019 |
V1341= (V1326); |
goto T2603; |
8020 |
goto T2695; |
T2603:; |
8021 |
T2695:; |
base[3]= make_cons(V1204,(V1200)); |
8022 |
V1342 = (V1336); |
if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){ |
8023 |
base[3]= make_cons(V1341,V1342); |
goto T2610;} |
8024 |
if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){ |
V1205= CMPcadr((V1191)); |
8025 |
goto T2702;} |
goto T2608; |
8026 |
V1343= CMPcadr((V1326)); |
goto T2610; |
8027 |
goto T2700; |
T2610:; |
8028 |
goto T2702; |
V1205= Ct; |
8029 |
T2702:; |
goto T2608; |
8030 |
V1343= Ct; |
T2608:; |
8031 |
goto T2700; |
base[4]= make_cons(V1205,(V1201)); |
8032 |
T2700:; |
if(!(type_of((V1191))==t_cons||((V1191))==Cnil)){ |
8033 |
V1344 = (V1337); |
goto T2615;} |
8034 |
base[4]= make_cons(V1343,V1344); |
V1206= CMPcar((V1191)); |
8035 |
if(!(type_of((V1326))==t_cons||((V1326))==Cnil)){ |
goto T2613; |
8036 |
goto T2707;} |
goto T2615; |
8037 |
V1345= CMPcar((V1326)); |
T2615:; |
8038 |
goto T2705; |
V1206= (V1191); |
8039 |
goto T2707; |
goto T2613; |
8040 |
T2707:; |
T2613:; |
8041 |
V1345= (V1326); |
base[5]= make_cons(V1206,(V1202)); |
|
goto T2705; |
|
|
T2705:; |
|
|
V1346 = (V1338); |
|
|
base[5]= make_cons(V1345,V1346); |
|
8042 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
8043 |
return;}} |
return;}} |
8044 |
} |
} |
8045 |
} |
} |
8046 |
/* macro definition for SYMBOL-MACROLET */ |
/* macro definition for SYMBOL-MACROLET */ |
8047 |
|
|
8048 |
static void L121() |
static void L117() |
8049 |
{register object *base=vs_base; |
{register object *base=vs_base; |
8050 |
register object *sup=base+VM107; VC107 |
register object *sup=base+VM104; VC104 |
8051 |
vs_check; |
vs_check; |
8052 |
check_arg(2); |
check_arg(2); |
8053 |
vs_top=sup; |
vs_top=sup; |
8054 |
{object V1347=base[0]->c.c_cdr; |
{object V1207=base[0]->c.c_cdr; |
8055 |
if(endp(V1347))invalid_macro_call(); |
if(endp(V1207))invalid_macro_call(); |
8056 |
base[2]= (V1347->c.c_car); |
base[2]= (V1207->c.c_car); |
8057 |
V1347=V1347->c.c_cdr; |
V1207=V1207->c.c_cdr; |
8058 |
base[3]= V1347;} |
base[3]= V1207;} |
8059 |
{object V1348; |
{object V1208; |
8060 |
object V1349= base[2]; |
object V1209= base[2]; |
8061 |
if(V1349==Cnil){ |
if(V1209==Cnil){ |
8062 |
base[4]= Cnil; |
base[4]= Cnil; |
8063 |
goto T2709;} |
goto T2617;} |
8064 |
base[5]=V1348=MMcons(Cnil,Cnil); |
base[5]=V1208=MMcons(Cnil,Cnil); |
8065 |
goto T2710; |
goto T2618; |
8066 |
T2710:; |
T2618:; |
8067 |
V1351= CMPcar((V1349->c.c_car)); |
V1211= CMPcar((V1209->c.c_car)); |
8068 |
V1352= (*(LnkLI477))(CMPcar((V1349->c.c_car)),base[1]); |
V1212= (*(LnkLI494))(CMPcar((V1209->c.c_car)),base[1]); |
8069 |
(V1348->c.c_car)= list(3,/* INLINE-ARGS */V1351,/* INLINE-ARGS */V1352,CMPcadr((V1349->c.c_car))); |
(V1208->c.c_car)= list(3,/* INLINE-ARGS */V1211,/* INLINE-ARGS */V1212,CMPcadr((V1209->c.c_car))); |
8070 |
if((V1349=MMcdr(V1349))==Cnil){ |
if((V1209=MMcdr(V1209))==Cnil){ |
8071 |
base[4]= base[5]; |
base[4]= base[5]; |
8072 |
goto T2709;} |
goto T2617;} |
8073 |
V1348=MMcdr(V1348)=MMcons(Cnil,Cnil); |
V1208=MMcdr(V1208)=MMcons(Cnil,Cnil); |
8074 |
goto T2710;} |
goto T2618;} |
8075 |
goto T2709; |
goto T2617; |
8076 |
T2709:; |
T2617:; |
8077 |
base[4]=MMcons(base[4],Cnil); |
base[4]=MMcons(base[4],Cnil); |
8078 |
base[5]= make_cons(VV[9],base[3]); |
base[5]= make_cons(VV[13],base[3]); |
8079 |
base[6]= base[1]; |
base[6]= base[1]; |
8080 |
base[7]= |
base[7]= |
8081 |
make_cclosure_new(LC139,Cnil,base[4],Cdata); |
make_cclosure_new(LC134,Cnil,base[4],Cdata); |
8082 |
vs_top=(vs_base=base+5)+3; |
vs_top=(vs_base=base+5)+3; |
8083 |
(void) (*Lnk396)(); |
(void) (*Lnk410)(); |
8084 |
return; |
return; |
8085 |
} |
} |
8086 |
/* local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL */ |
/* local entry for function EXPAND-SYMBOL-MACROLET-INTERNAL */ |
8087 |
|
|
8088 |
static object LI124(V1357,V1358,V1359,V1360) |
static object LI120(V1217,V1218,V1219,V1220) |
8089 |
|
|
8090 |
object V1357;register object V1358;object V1359;object V1360; |
object V1217;register object V1218;object V1219;object V1220; |
8091 |
{ VMB108 VMS108 VMV108 |
{ VMB105 VMS105 VMV105 |
8092 |
goto TTL; |
goto TTL; |
8093 |
TTL:; |
TTL:; |
8094 |
base[0]= (V1360); |
base[0]= (V1220); |
8095 |
base[1]= (V1357); |
base[1]= (V1217); |
8096 |
base[2]= Cnil; |
base[2]= Cnil; |
8097 |
if(((V1359))==(VV[193])){ |
if(((V1219))==(VV[203])){ |
8098 |
goto T2716;} |
goto T2624;} |
8099 |
{object V1361 = (V1358); |
{object V1221 = (V1218); |
8100 |
VMR108(V1361)} |
VMR105(V1221)} |
8101 |
goto T2716; |
goto T2624; |
8102 |
T2716:; |
T2624:; |
8103 |
if(!(type_of((V1358))==t_symbol)){ |
if(!(type_of((V1218))==t_symbol)){ |
8104 |
goto T2719;} |
goto T2627;} |
8105 |
{register object x= (V1358),V1362= base[1]; |
{register object x= (V1218),V1222= base[1]; |
8106 |
while(V1362!=Cnil) |
while(V1222!=Cnil) |
8107 |
if(eql(x,V1362->c.c_car->c.c_car) &&V1362->c.c_car != Cnil){ |
if(eql(x,V1222->c.c_car->c.c_car) &&V1222->c.c_car != Cnil){ |
8108 |
base[2]= (V1362->c.c_car); |
base[2]= (V1222->c.c_car); |
8109 |
goto T2725; |
goto T2633; |
8110 |
}else V1362=V1362->c.c_cdr; |
}else V1222=V1222->c.c_cdr; |
8111 |
base[2]= Cnil;} |
base[2]= Cnil;} |
8112 |
goto T2725; |
goto T2633; |
8113 |
T2725:; |
T2633:; |
8114 |
if((base[2])==Cnil){ |
if((base[2])==Cnil){ |
8115 |
goto T2722;} |
goto T2630;} |
8116 |
V1363= CMPcadr(base[2]); |
V1223= CMPcadr(base[2]); |
8117 |
V1364= (*(LnkLI477))((V1358),base[0]); |
V1224= (*(LnkLI494))((V1218),base[0]); |
8118 |
if(!((/* INLINE-ARGS */V1363)==(/* INLINE-ARGS */V1364))){ |
if(!((/* INLINE-ARGS */V1223)==(/* INLINE-ARGS */V1224))){ |
8119 |
goto T2722;} |
goto T2630;} |
8120 |
{object V1365 = CMPcaddr(base[2]); |
{object V1225 = CMPcaddr(base[2]); |
8121 |
VMR108(V1365)} |
VMR105(V1225)} |
8122 |
goto T2722; |
goto T2630; |
8123 |
T2722:; |
T2630:; |
8124 |
{object V1366 = (V1358); |
{object V1226 = (V1218); |
8125 |
VMR108(V1366)} |
VMR105(V1226)} |
8126 |
goto T2719; |
goto T2627; |
8127 |
T2719:; |
T2627:; |
8128 |
if(type_of((V1358))==t_cons||((V1358))==Cnil){ |
if(type_of((V1218))==t_cons||((V1218))==Cnil){ |
8129 |
goto T2728;} |
goto T2636;} |
8130 |
{object V1367 = (V1358); |
{object V1227 = (V1218); |
8131 |
VMR108(V1367)} |
VMR105(V1227)} |
8132 |
goto T2728; |
goto T2636; |
8133 |
T2728:; |
T2636:; |
8134 |
{register object x= CMPcar((V1358)),V1368= VV[341]; |
{register object x= CMPcar((V1218)),V1228= VV[356]; |
8135 |
while(V1368!=Cnil) |
while(V1228!=Cnil) |
8136 |
if(eql(x,V1368->c.c_car)){ |
if(eql(x,V1228->c.c_car)){ |
8137 |
goto T2732; |
goto T2640; |
8138 |
}else V1368=V1368->c.c_cdr; |
}else V1228=V1228->c.c_cdr; |
8139 |
goto T2731;} |
goto T2639;} |
8140 |
goto T2732; |
goto T2640; |
8141 |
T2732:; |
T2640:; |
8142 |
base[3]= CMPcar((V1358)); |
base[3]= CMPcar((V1218)); |
8143 |
{object V1369; |
{object V1229; |
8144 |
V1369= Cnil; |
V1229= Cnil; |
8145 |
base[4]= CMPcdr((V1358)); |
base[4]= CMPcdr((V1218)); |
8146 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
8147 |
L125(base); |
L121(base); |
8148 |
vs_top=sup; |
vs_top=sup; |
8149 |
V1369= vs_base[0]; |
V1229= vs_base[0]; |
8150 |
{object V1370 = (*(LnkLI478))((V1358),base[3],(V1369)); |
{object V1230 = (*(LnkLI495))((V1218),base[3],(V1229)); |
8151 |
VMR108(V1370)}} |
VMR105(V1230)}} |
8152 |
goto T2731; |
goto T2639; |
8153 |
T2731:; |
T2639:; |
8154 |
if(!((CMPcar((V1358)))==(VV[342]))){ |
if(!((CMPcar((V1218)))==(VV[357]))){ |
8155 |
goto T2738;} |
goto T2646;} |
8156 |
{object V1371; |
{object V1231; |
8157 |
object V1372; |
object V1232; |
8158 |
V1371= CMPcadr((V1358)); |
V1231= CMPcadr((V1218)); |
8159 |
{object V1373; |
{object V1233; |
8160 |
object V1374= (V1371); |
object V1234= (V1231); |
8161 |
if(V1374==Cnil){ |
if(V1234==Cnil){ |
8162 |
V1372= Cnil; |
V1232= Cnil; |
8163 |
goto T2741;} |
goto T2649;} |
8164 |
base[5]=V1373=MMcons(Cnil,Cnil); |
base[5]=V1233=MMcons(Cnil,Cnil); |
8165 |
goto T2742; |
goto T2650; |
8166 |
T2742:; |
T2650:; |
8167 |
vs_base=vs_top; |
vs_base=vs_top; |
8168 |
Lgensym(); |
Lgensym(); |
8169 |
vs_top=sup; |
vs_top=sup; |
8170 |
(V1373->c.c_car)= vs_base[0]; |
(V1233->c.c_car)= vs_base[0]; |
8171 |
if((V1374=MMcdr(V1374))==Cnil){ |
if((V1234=MMcdr(V1234))==Cnil){ |
8172 |
V1372= base[5]; |
V1232= base[5]; |
8173 |
goto T2741;} |
goto T2649;} |
8174 |
V1373=MMcdr(V1373)=MMcons(Cnil,Cnil); |
V1233=MMcdr(V1233)=MMcons(Cnil,Cnil); |
8175 |
goto T2742;} |
goto T2650;} |
8176 |
goto T2741; |
goto T2649; |
8177 |
T2741:; |
T2649:; |
8178 |
V1376= CMPcaddr((V1358)); |
V1236= CMPcaddr((V1218)); |
8179 |
{object V1378; |
{object V1238; |
8180 |
object V1379= (V1371); |
object V1239= (V1231); |
8181 |
object V1380= (V1372); |
object V1240= (V1232); |
8182 |
if(V1379==Cnil||V1380==Cnil){ |
if(V1239==Cnil||V1240==Cnil){ |
8183 |
V1377= Cnil; |
V1237= Cnil; |
8184 |
goto T2744;} |
goto T2652;} |
8185 |
base[5]=V1378=MMcons(Cnil,Cnil); |
base[5]=V1238=MMcons(Cnil,Cnil); |
8186 |
goto T2745; |
goto T2653; |
8187 |
T2745:; |
T2653:; |
8188 |
(V1378->c.c_car)= list(3,VV[30],(V1379->c.c_car),(V1380->c.c_car)); |
(V1238->c.c_car)= list(3,VV[34],(V1239->c.c_car),(V1240->c.c_car)); |
8189 |
if((V1379=MMcdr(V1379))==Cnil||(V1380=MMcdr(V1380))==Cnil){ |
if((V1239=MMcdr(V1239))==Cnil||(V1240=MMcdr(V1240))==Cnil){ |
8190 |
V1377= base[5]; |
V1237= base[5]; |
8191 |
goto T2744;} |
goto T2652;} |
8192 |
V1378=MMcdr(V1378)=MMcons(Cnil,Cnil); |
V1238=MMcdr(V1238)=MMcons(Cnil,Cnil); |
8193 |
goto T2745;} |
goto T2653;} |
8194 |
goto T2744; |
goto T2652; |
8195 |
T2744:; |
T2652:; |
8196 |
{object V1383 = listA(4,VV[343],(V1372),/* INLINE-ARGS */V1376,reverse(V1377)); |
{object V1243 = listA(4,VV[358],(V1232),/* INLINE-ARGS */V1236,reverse(V1237)); |
8197 |
VMR108(V1383)}} |
VMR105(V1243)}} |
8198 |
goto T2738; |
goto T2646; |
8199 |
T2738:; |
T2646:; |
8200 |
{object V1384 = (V1358); |
{object V1244 = (V1218); |
8201 |
VMR108(V1384)} |
VMR105(V1244)} |
8202 |
base[0]=base[0]; |
base[0]=base[0]; |
8203 |
return Cnil; |
return Cnil; |
8204 |
} |
} |
8205 |
/* macro definition for WITH-SLOTS */ |
/* macro definition for WITH-SLOTS */ |
8206 |
|
|
8207 |
static void L126() |
static void L122() |
8208 |
{register object *base=vs_base; |
{register object *base=vs_base; |
8209 |
register object *sup=base+VM109; VC109 |
register object *sup=base+VM106; VC106 |
8210 |
vs_check; |
vs_check; |
8211 |
check_arg(2); |
check_arg(2); |
8212 |
vs_top=sup; |
vs_top=sup; |
8213 |
{object V1385=base[0]->c.c_cdr; |
{object V1245=base[0]->c.c_cdr; |
8214 |
if(endp(V1385))invalid_macro_call(); |
if(endp(V1245))invalid_macro_call(); |
8215 |
base[2]= (V1385->c.c_car); |
base[2]= (V1245->c.c_car); |
8216 |
V1385=V1385->c.c_cdr; |
V1245=V1245->c.c_cdr; |
8217 |
if(endp(V1385))invalid_macro_call(); |
if(endp(V1245))invalid_macro_call(); |
8218 |
base[3]= (V1385->c.c_car); |
base[3]= (V1245->c.c_car); |
8219 |
V1385=V1385->c.c_cdr; |
V1245=V1245->c.c_cdr; |
8220 |
base[4]= V1385;} |
base[4]= V1245;} |
8221 |
{register object V1386; |
{register object V1246; |
8222 |
vs_base=vs_top; |
vs_base=vs_top; |
8223 |
Lgensym(); |
Lgensym(); |
8224 |
vs_top=sup; |
vs_top=sup; |
8225 |
V1386= vs_base[0]; |
V1246= vs_base[0]; |
8226 |
V1387= list(2,(V1386),base[3]); |
V1247= list(2,(V1246),base[3]); |
8227 |
V1388= make_cons(/* INLINE-ARGS */V1387,Cnil); |
V1248= make_cons(/* INLINE-ARGS */V1247,Cnil); |
8228 |
{object V1390; |
V1249= list(2,VV[49],list(2,VV[55],(V1246))); |
8229 |
|
{object V1251; |
8230 |
if(!(type_of(base[3])==t_cons)){ |
if(!(type_of(base[3])==t_cons)){ |
8231 |
goto T2751;} |
goto T2659;} |
8232 |
if(!((CMPcar(base[3]))==(VV[138]))){ |
if(!((CMPcar(base[3]))==(VV[143]))){ |
8233 |
goto T2751;} |
goto T2659;} |
8234 |
V1390= CMPcaddr(base[3]); |
V1251= CMPcaddr(base[3]); |
8235 |
goto T2749; |
goto T2657; |
8236 |
goto T2751; |
goto T2659; |
8237 |
T2751:; |
T2659:; |
8238 |
V1390= base[3]; |
V1251= base[3]; |
8239 |
goto T2749; |
goto T2657; |
8240 |
T2749:; |
T2657:; |
8241 |
if(type_of((V1390))==t_symbol){ |
if(type_of((V1251))==t_symbol){ |
8242 |
goto T2755;} |
goto T2663;} |
8243 |
V1389= Cnil; |
V1250= Cnil; |
8244 |
goto T2748; |
goto T2656; |
8245 |
goto T2755; |
goto T2663; |
8246 |
T2755:; |
T2663:; |
8247 |
V1391= list(2,VV[45],list(3,VV[344],(V1386),(V1390))); |
V1252= list(2,VV[49],list(3,VV[359],(V1246),(V1251))); |
8248 |
V1389= make_cons(/* INLINE-ARGS */V1391,Cnil);} |
V1250= make_cons(/* INLINE-ARGS */V1252,Cnil);} |
8249 |
goto T2748; |
goto T2656; |
8250 |
T2748:; |
T2656:; |
8251 |
{object V1393; |
{object V1254; |
8252 |
object V1394= base[2]; |
object V1255= base[2]; |
8253 |
if(V1394==Cnil){ |
if(V1255==Cnil){ |
8254 |
V1392= Cnil; |
V1253= Cnil; |
8255 |
goto T2757;} |
goto T2665;} |
8256 |
base[5]=V1393=MMcons(Cnil,Cnil); |
base[5]=V1254=MMcons(Cnil,Cnil); |
8257 |
goto T2758; |
goto T2666; |
8258 |
T2758:; |
T2666:; |
8259 |
{register object V1395; |
{register object V1256; |
8260 |
V1395= (V1394->c.c_car); |
V1256= (V1255->c.c_car); |
8261 |
{object V1396; |
{object V1257; |
8262 |
object V1397; |
object V1258; |
8263 |
if(!(type_of((V1395))==t_symbol)){ |
if(!(type_of((V1256))==t_symbol)){ |
8264 |
goto T2762;} |
goto T2670;} |
8265 |
V1396= (V1395); |
V1257= (V1256); |
8266 |
goto T2760; |
goto T2668; |
8267 |
goto T2762; |
goto T2670; |
8268 |
T2762:; |
T2670:; |
8269 |
V1396= CMPcar((V1395)); |
V1257= CMPcar((V1256)); |
8270 |
goto T2760; |
goto T2668; |
8271 |
T2760:; |
T2668:; |
8272 |
if(!(type_of((V1395))==t_symbol)){ |
if(!(type_of((V1256))==t_symbol)){ |
8273 |
goto T2766;} |
goto T2674;} |
8274 |
V1397= (V1395); |
V1258= (V1256); |
8275 |
goto T2764; |
goto T2672; |
8276 |
goto T2766; |
goto T2674; |
8277 |
T2766:; |
T2674:; |
8278 |
V1397= CMPcadr((V1395)); |
V1258= CMPcadr((V1256)); |
8279 |
goto T2764; |
goto T2672; |
8280 |
T2764:; |
T2672:; |
8281 |
(V1393->c.c_car)= list(2,(V1396),list(3,VV[196],(V1386),list(2,VV[1],(V1397))));}} |
(V1254->c.c_car)= list(2,(V1257),list(3,VV[204],(V1246),list(2,VV[1],(V1258))));}} |
8282 |
if((V1394=MMcdr(V1394))==Cnil){ |
if((V1255=MMcdr(V1255))==Cnil){ |
8283 |
V1392= base[5]; |
V1253= base[5]; |
8284 |
goto T2757;} |
goto T2665;} |
8285 |
V1393=MMcdr(V1393)=MMcons(Cnil,Cnil); |
V1254=MMcdr(V1254)=MMcons(Cnil,Cnil); |
8286 |
goto T2758;} |
goto T2666;} |
8287 |
goto T2757; |
goto T2665; |
8288 |
T2757:; |
T2665:; |
8289 |
V1398 = base[4]; |
V1259= list(2,(V1246),listA(3,VV[360],V1253,base[4])); |
8290 |
V1399= list(2,(V1386),listA(3,VV[345],V1392,V1398)); |
base[5]= listA(4,VV[100],/* INLINE-ARGS */V1248,/* INLINE-ARGS */V1249,append(V1250,/* INLINE-ARGS */V1259)); |
|
base[5]= listA(3,VV[95],/* INLINE-ARGS */V1388,append(V1389,/* INLINE-ARGS */V1399)); |
|
8291 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8292 |
return;} |
return;} |
8293 |
} |
} |
8294 |
/* macro definition for WITH-ACCESSORS */ |
/* macro definition for WITH-ACCESSORS */ |
8295 |
|
|
8296 |
static void L127() |
static void L123() |
8297 |
{register object *base=vs_base; |
{register object *base=vs_base; |
8298 |
register object *sup=base+VM110; VC110 |
register object *sup=base+VM107; VC107 |
8299 |
vs_check; |
vs_check; |
8300 |
check_arg(2); |
check_arg(2); |
8301 |
vs_top=sup; |
vs_top=sup; |
8302 |
{object V1400=base[0]->c.c_cdr; |
{object V1260=base[0]->c.c_cdr; |
8303 |
if(endp(V1400))invalid_macro_call(); |
if(endp(V1260))invalid_macro_call(); |
8304 |
base[2]= (V1400->c.c_car); |
base[2]= (V1260->c.c_car); |
8305 |
V1400=V1400->c.c_cdr; |
V1260=V1260->c.c_cdr; |
8306 |
if(endp(V1400))invalid_macro_call(); |
if(endp(V1260))invalid_macro_call(); |
8307 |
base[3]= (V1400->c.c_car); |
base[3]= (V1260->c.c_car); |
8308 |
V1400=V1400->c.c_cdr; |
V1260=V1260->c.c_cdr; |
8309 |
base[4]= V1400;} |
base[4]= V1260;} |
8310 |
{register object V1401; |
{register object V1261; |
8311 |
vs_base=vs_top; |
vs_base=vs_top; |
8312 |
Lgensym(); |
Lgensym(); |
8313 |
vs_top=sup; |
vs_top=sup; |
8314 |
V1401= vs_base[0]; |
V1261= vs_base[0]; |
8315 |
V1402= list(2,(V1401),base[3]); |
V1262= list(2,(V1261),base[3]); |
8316 |
V1403= make_cons(/* INLINE-ARGS */V1402,Cnil); |
V1263= make_cons(/* INLINE-ARGS */V1262,Cnil); |
8317 |
{object V1405; |
V1264= list(2,VV[49],list(2,VV[55],(V1261))); |
8318 |
|
{object V1266; |
8319 |
if(!(type_of(base[3])==t_cons)){ |
if(!(type_of(base[3])==t_cons)){ |
8320 |
goto T2772;} |
goto T2680;} |
8321 |
if(!((CMPcar(base[3]))==(VV[138]))){ |
if(!((CMPcar(base[3]))==(VV[143]))){ |
8322 |
goto T2772;} |
goto T2680;} |
8323 |
V1405= CMPcaddr(base[3]); |
V1266= CMPcaddr(base[3]); |
8324 |
goto T2770; |
goto T2678; |
8325 |
goto T2772; |
goto T2680; |
8326 |
T2772:; |
T2680:; |
8327 |
V1405= base[3]; |
V1266= base[3]; |
8328 |
goto T2770; |
goto T2678; |
8329 |
T2770:; |
T2678:; |
8330 |
if(type_of((V1405))==t_symbol){ |
if(type_of((V1266))==t_symbol){ |
8331 |
goto T2776;} |
goto T2684;} |
8332 |
V1404= Cnil; |
V1265= Cnil; |
8333 |
goto T2769; |
goto T2677; |
8334 |
goto T2776; |
goto T2684; |
8335 |
T2776:; |
T2684:; |
8336 |
V1406= list(2,VV[45],list(3,VV[344],(V1401),(V1405))); |
V1267= list(2,VV[49],list(3,VV[359],(V1261),(V1266))); |
8337 |
V1404= make_cons(/* INLINE-ARGS */V1406,Cnil);} |
V1265= make_cons(/* INLINE-ARGS */V1267,Cnil);} |
8338 |
goto T2769; |
goto T2677; |
8339 |
T2769:; |
T2677:; |
8340 |
{object V1408; |
{object V1269; |
8341 |
object V1409= base[2]; |
object V1270= base[2]; |
8342 |
if(V1409==Cnil){ |
if(V1270==Cnil){ |
8343 |
V1407= Cnil; |
V1268= Cnil; |
8344 |
goto T2778;} |
goto T2686;} |
8345 |
base[5]=V1408=MMcons(Cnil,Cnil); |
base[5]=V1269=MMcons(Cnil,Cnil); |
8346 |
goto T2779; |
goto T2687; |
8347 |
T2779:; |
T2687:; |
8348 |
{object V1411; |
{object V1272; |
8349 |
object V1412; |
object V1273; |
8350 |
V1411= CMPcar((V1409->c.c_car)); |
V1272= CMPcar((V1270->c.c_car)); |
8351 |
V1412= CMPcadr((V1409->c.c_car)); |
V1273= CMPcadr((V1270->c.c_car)); |
8352 |
(V1408->c.c_car)= list(2,(V1411),list(2,(V1412),(V1401)));} |
(V1269->c.c_car)= list(2,(V1272),list(2,(V1273),(V1261)));} |
8353 |
if((V1409=MMcdr(V1409))==Cnil){ |
if((V1270=MMcdr(V1270))==Cnil){ |
8354 |
V1407= base[5]; |
V1268= base[5]; |
8355 |
goto T2778;} |
goto T2686;} |
8356 |
V1408=MMcdr(V1408)=MMcons(Cnil,Cnil); |
V1269=MMcdr(V1269)=MMcons(Cnil,Cnil); |
8357 |
goto T2779;} |
goto T2687;} |
8358 |
goto T2778; |
goto T2686; |
8359 |
T2778:; |
T2686:; |
8360 |
V1413 = base[4]; |
V1274= list(2,(V1261),listA(3,VV[360],V1268,base[4])); |
8361 |
V1414= list(2,(V1401),listA(3,VV[345],V1407,V1413)); |
base[5]= listA(4,VV[100],/* INLINE-ARGS */V1263,/* INLINE-ARGS */V1264,append(V1265,/* INLINE-ARGS */V1274)); |
|
base[5]= listA(3,VV[95],/* INLINE-ARGS */V1403,append(V1404,/* INLINE-ARGS */V1414)); |
|
8362 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
8363 |
return;} |
return;} |
8364 |
} |
} |
8365 |
/* local function SCAN-SETF */ |
/* local function SCAN-SETF */ |
8366 |
|
|
8367 |
static void L125(base0) |
static void L121(base0) |
8368 |
register object *base0; |
register object *base0; |
8369 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8370 |
register object *sup=base+VM111; VC111 |
register object *sup=base+VM108; VC108 |
8371 |
vs_check; |
vs_check; |
8372 |
{register object V1415; |
{register object V1275; |
8373 |
check_arg(1); |
check_arg(1); |
8374 |
V1415=(base[0]); |
V1275=(base[0]); |
8375 |
vs_top=sup; |
vs_top=sup; |
8376 |
goto TTL; |
goto TTL; |
8377 |
TTL:; |
TTL:; |
8378 |
if(((V1415))!=Cnil){ |
if(((V1275))!=Cnil){ |
8379 |
goto T2784;} |
goto T2692;} |
8380 |
base[1]= Cnil; |
base[1]= Cnil; |
8381 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8382 |
return; |
return; |
8383 |
goto T2784; |
goto T2692; |
8384 |
T2784:; |
T2692:; |
8385 |
V1416 = (V1415); |
{register object x= CMPcar((V1275)),V1277= base0[1]; |
8386 |
{register object x= CMPcar((V1415)),V1418= base0[1]; |
while(V1277!=Cnil) |
8387 |
while(V1418!=Cnil) |
if(eql(x,V1277->c.c_car->c.c_car) &&V1277->c.c_car != Cnil){ |
8388 |
if(eql(x,V1418->c.c_car->c.c_car) &&V1418->c.c_car != Cnil){ |
base0[2]= (V1277->c.c_car); |
8389 |
base0[2]= (V1418->c.c_car); |
goto T2699; |
8390 |
goto T2791; |
}else V1277=V1277->c.c_cdr; |
|
}else V1418=V1418->c.c_cdr; |
|
8391 |
base0[2]= Cnil;} |
base0[2]= Cnil;} |
8392 |
goto T2791; |
goto T2699; |
8393 |
T2791:; |
T2699:; |
8394 |
if((base0[2])==Cnil){ |
if((base0[2])==Cnil){ |
8395 |
goto T2788;} |
goto T2696;} |
8396 |
V1419= CMPcadr(base0[2]); |
V1278= CMPcadr(base0[2]); |
8397 |
V1420= (*(LnkLI477))(CMPcar((V1415)),base0[0]); |
V1279= (*(LnkLI494))(CMPcar((V1275)),base0[0]); |
8398 |
if(!((/* INLINE-ARGS */V1419)==(/* INLINE-ARGS */V1420))){ |
if(!((/* INLINE-ARGS */V1278)==(/* INLINE-ARGS */V1279))){ |
8399 |
goto T2788;} |
goto T2696;} |
8400 |
base0[3]= VV[30]; |
base0[3]= VV[34]; |
8401 |
V1417= CMPcaddr(base0[2]); |
V1276= CMPcaddr(base0[2]); |
8402 |
goto T2786; |
goto T2694; |
8403 |
goto T2788; |
goto T2696; |
8404 |
T2788:; |
T2696:; |
8405 |
V1417= CMPcar((V1415)); |
V1276= CMPcar((V1275)); |
8406 |
goto T2786; |
goto T2694; |
8407 |
T2786:; |
T2694:; |
8408 |
V1421= CMPcadr((V1415)); |
V1280= CMPcadr((V1275)); |
8409 |
base[1]= CMPcddr((V1415)); |
base[1]= CMPcddr((V1275)); |
8410 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8411 |
L125(base0); |
L121(base0); |
8412 |
vs_top=sup; |
vs_top=sup; |
8413 |
V1422= vs_base[0]; |
V1281= vs_base[0]; |
8414 |
base[1]= (VFUN_NARGS=4,(*(LnkLI479))(V1416,V1417,/* INLINE-ARGS */V1421,V1422)); |
base[1]= (VFUN_NARGS=4,(*(LnkLI496))((V1275),V1276,/* INLINE-ARGS */V1280,V1281)); |
8415 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8416 |
return; |
return; |
8417 |
} |
} |
8418 |
} |
} |
8419 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8420 |
|
|
8421 |
static void LC139(base0) |
static void LC134(base0) |
8422 |
register object *base0; |
register object *base0; |
8423 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8424 |
register object *sup=base+VM112; VC112 |
register object *sup=base+VM109; VC109 |
8425 |
vs_check; |
vs_check; |
8426 |
{object V1423; |
{object V1282; |
8427 |
object V1424; |
object V1283; |
8428 |
object V1425; |
object V1284; |
8429 |
check_arg(3); |
check_arg(3); |
8430 |
V1423=(base[0]); |
V1282=(base[0]); |
8431 |
V1424=(base[1]); |
V1283=(base[1]); |
8432 |
V1425=(base[2]); |
V1284=(base[2]); |
8433 |
vs_top=sup; |
vs_top=sup; |
8434 |
base[3]= (*(LnkLI480))((base0[0]->c.c_car),(V1423),(V1424),(V1425)); |
base[3]= (*(LnkLI497))((base0[0]->c.c_car),(V1282),(V1283),(V1284)); |
8435 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8436 |
return; |
return; |
8437 |
} |
} |
8438 |
} |
} |
8439 |
/* local function UNPARSE */ |
/* local function UNPARSE */ |
8440 |
|
|
8441 |
static void L114(base0) |
static void L110(base0) |
8442 |
register object *base0; |
register object *base0; |
8443 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8444 |
register object *sup=base+VM113; VC113 |
register object *sup=base+VM110; VC110 |
8445 |
vs_check; |
vs_check; |
8446 |
{object V1426; |
{object V1285; |
8447 |
check_arg(1); |
check_arg(1); |
8448 |
V1426=(base[0]); |
V1285=(base[0]); |
8449 |
vs_top=sup; |
vs_top=sup; |
8450 |
goto TTL; |
goto TTL; |
8451 |
TTL:; |
TTL:; |
8452 |
base[1]= (V1426); |
base[1]= (V1285); |
8453 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8454 |
(void) (*Lnk481)(Lclptr481); |
(void) (*Lnk498)(Lclptr498); |
8455 |
vs_top=sup; |
vs_top=sup; |
8456 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8457 |
goto T2798;} |
goto T2706;} |
8458 |
{register object V1427; |
{register object V1286; |
8459 |
base[1]= (V1426); |
base[1]= (V1285); |
8460 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8461 |
(void) (*Lnk482)(Lclptr482); |
(void) (*Lnk499)(Lclptr499); |
8462 |
vs_top=sup; |
vs_top=sup; |
8463 |
V1427= vs_base[0]; |
V1286= vs_base[0]; |
8464 |
if(!(type_of((V1427))==t_cons)){ |
if(!(type_of((V1286))==t_cons)){ |
8465 |
goto T2804;} |
goto T2712;} |
8466 |
if(!((CMPcar((V1427)))==(VV[50]))){ |
if(!((CMPcar((V1286)))==(VV[54]))){ |
8467 |
goto T2804;} |
goto T2712;} |
8468 |
{object V1428; |
{object V1287; |
8469 |
object V1429; |
object V1288; |
8470 |
V1428= CMPcadr((V1427)); |
V1287= CMPcadr((V1286)); |
8471 |
base[3]= (V1428); |
base[3]= (V1287); |
8472 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8473 |
(void) (*Lnk364)(Lclptr364); |
(void) (*Lnk379)(Lclptr379); |
8474 |
vs_top=sup; |
vs_top=sup; |
8475 |
V1429= vs_base[0]; |
V1288= vs_base[0]; |
8476 |
V1430 = (V1428); |
V1289= (VFUN_NARGS=2,(*(LnkLI304))((V1288),Cnil)); |
8477 |
V1431= (VFUN_NARGS=2,(*(LnkLI291))((V1429),Cnil)); |
if(!(((V1287))==(/* INLINE-ARGS */V1289))){ |
8478 |
if(!((V1430)==(/* INLINE-ARGS */V1431))){ |
goto T2720;} |
8479 |
goto T2812;} |
base[3]= (V1288); |
|
base[3]= (V1429); |
|
8480 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8481 |
return; |
return; |
8482 |
goto T2812; |
goto T2720; |
8483 |
T2812:; |
T2720:; |
8484 |
base[3]= (V1427); |
base[3]= (V1286); |
8485 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8486 |
return;} |
return;} |
8487 |
goto T2804; |
goto T2712; |
8488 |
T2804:; |
T2712:; |
8489 |
base[1]= (V1427); |
base[1]= (V1286); |
8490 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8491 |
return;} |
return;} |
8492 |
goto T2798; |
goto T2706; |
8493 |
T2798:; |
T2706:; |
8494 |
base[1]= VV[336]; |
base[1]= VV[351]; |
8495 |
base[2]= (V1426); |
base[2]= (V1285); |
8496 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8497 |
Lerror(); |
Lerror(); |
8498 |
return; |
return; |
8500 |
} |
} |
8501 |
/* local function PARSE */ |
/* local function PARSE */ |
8502 |
|
|
8503 |
static void L112(base0) |
static void L108(base0) |
8504 |
register object *base0; |
register object *base0; |
8505 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8506 |
register object *sup=base+VM114; VC114 |
register object *sup=base+VM111; VC111 |
8507 |
vs_check; |
vs_check; |
8508 |
{register object V1432; |
{register object V1290; |
8509 |
check_arg(1); |
check_arg(1); |
8510 |
V1432=(base[0]); |
V1290=(base[0]); |
8511 |
vs_top=sup; |
vs_top=sup; |
8512 |
goto TTL; |
goto TTL; |
8513 |
TTL:; |
TTL:; |
8514 |
{object V1433; |
{object V1291; |
8515 |
base[1]= (V1432); |
base[1]= (V1290); |
8516 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8517 |
(void) (*Lnk483)(); |
(void) (*Lnk500)(); |
8518 |
vs_top=sup; |
vs_top=sup; |
8519 |
V1433= vs_base[0]; |
V1291= vs_base[0]; |
8520 |
base[1]= (V1433); |
base[1]= (V1291); |
8521 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8522 |
(void) (*Lnk481)(Lclptr481); |
(void) (*Lnk498)(Lclptr498); |
8523 |
vs_top=sup; |
vs_top=sup; |
8524 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8525 |
goto T2819;} |
goto T2727;} |
8526 |
base[1]= (V1433); |
base[1]= (V1291); |
8527 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8528 |
return; |
return; |
8529 |
goto T2819; |
goto T2727; |
8530 |
T2819:; |
T2727:; |
8531 |
if(!(type_of((V1432))==t_symbol)){ |
if(!(type_of((V1290))==t_symbol)){ |
8532 |
goto T2823;} |
goto T2731;} |
8533 |
base[1]= VV[334]; |
base[1]= VV[349]; |
8534 |
base[2]= (V1432); |
base[2]= (V1290); |
8535 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8536 |
Lerror(); |
Lerror(); |
8537 |
return; |
return; |
8538 |
goto T2823; |
goto T2731; |
8539 |
T2823:; |
T2731:; |
8540 |
base[1]= VV[335]; |
base[1]= VV[350]; |
8541 |
base[2]= (V1432); |
base[2]= (V1290); |
8542 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8543 |
Lerror(); |
Lerror(); |
8544 |
return;} |
return;} |
8546 |
} |
} |
8547 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8548 |
|
|
8549 |
static void LC138(base0) |
static void LC133(base0) |
8550 |
register object *base0; |
register object *base0; |
8551 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8552 |
register object *sup=base+VM115; VC115 |
register object *sup=base+VM112; VC112 |
8553 |
vs_check; |
vs_check; |
8554 |
{object V1434; |
{object V1292; |
8555 |
register object V1435; |
register object V1293; |
8556 |
check_arg(2); |
check_arg(2); |
8557 |
V1434=(base[0]); |
V1292=(base[0]); |
8558 |
V1435=(base[1]); |
V1293=(base[1]); |
8559 |
vs_top=sup; |
vs_top=sup; |
8560 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8561 |
{object V1436; |
{object V1294; |
8562 |
V1436= (V1434); |
V1294= (V1292); |
8563 |
vs_top=base+3; |
vs_top=base+3; |
8564 |
while(V1436!=Cnil) |
while(V1294!=Cnil) |
8565 |
{vs_push((V1436)->c.c_car);V1436=(V1436)->c.c_cdr;} |
{vs_push((V1294)->c.c_car);V1294=(V1294)->c.c_cdr;} |
8566 |
vs_base=base+3;} |
vs_base=base+3;} |
8567 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
8568 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
8573 |
} |
} |
8574 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8575 |
|
|
8576 |
static void LC137(base0) |
static void LC132(base0) |
8577 |
register object *base0; |
register object *base0; |
8578 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8579 |
register object *sup=base+VM116; VC116 |
register object *sup=base+VM113; VC113 |
8580 |
vs_check; |
vs_check; |
8581 |
{object V1437; |
{object V1295; |
8582 |
check_arg(1); |
check_arg(1); |
8583 |
V1437=(base[0]); |
V1295=(base[0]); |
8584 |
vs_top=sup; |
vs_top=sup; |
8585 |
base[1]= (((type_of((V1437))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil); |
base[1]= (((type_of((V1295))==t_symbol?Ct:Cnil))==Cnil?Ct:Cnil); |
8586 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8587 |
return; |
return; |
8588 |
} |
} |
8589 |
} |
} |
8590 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8591 |
|
|
8592 |
static void LC136(base0) |
static void LC131(base0) |
8593 |
register object *base0; |
register object *base0; |
8594 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8595 |
register object *sup=base+VM117; VC117 |
register object *sup=base+VM114; VC114 |
8596 |
vs_check; |
vs_check; |
8597 |
{object V1438; |
{object V1296; |
8598 |
check_arg(1); |
check_arg(1); |
8599 |
V1438=(base[0]); |
V1296=(base[0]); |
8600 |
vs_top=sup; |
vs_top=sup; |
8601 |
base[1]= (((((V1438))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
base[1]= (((((V1296))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
8602 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8603 |
return; |
return; |
8604 |
} |
} |
8605 |
} |
} |
8606 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8607 |
|
|
8608 |
static void LC135(base0) |
static void LC130(base0) |
8609 |
register object *base0; |
register object *base0; |
8610 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8611 |
register object *sup=base+VM118; VC118 |
register object *sup=base+VM115; VC115 |
8612 |
vs_check; |
vs_check; |
8613 |
{object V1439; |
{object V1297; |
8614 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8615 |
{object *p=vs_top; |
{object *p=vs_top; |
8616 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8617 |
V1439=(base[0]); |
V1297=(base[0]); |
8618 |
vs_top=sup; |
vs_top=sup; |
8619 |
base[1]= VV[274]; |
base[1]= VV[287]; |
8620 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
8621 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
8622 |
Lerror(); |
Lerror(); |
8625 |
} |
} |
8626 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8627 |
|
|
8628 |
static void LC134(base0) |
static void LC129(base0) |
8629 |
register object *base0; |
register object *base0; |
8630 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8631 |
register object *sup=base+VM119; VC119 |
register object *sup=base+VM116; VC116 |
8632 |
vs_check; |
vs_check; |
8633 |
{object V1440; |
{object V1298; |
8634 |
register object V1441; |
register object V1299; |
8635 |
check_arg(2); |
check_arg(2); |
8636 |
V1440=(base[0]); |
V1298=(base[0]); |
8637 |
V1441=(base[1]); |
V1299=(base[1]); |
8638 |
vs_top=sup; |
vs_top=sup; |
8639 |
base[2]= (V1441); |
base[2]= (V1299); |
8640 |
base[3]= VV[270]; |
base[3]= VV[283]; |
8641 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8642 |
Lformat(); |
Lformat(); |
8643 |
vs_top=sup; |
vs_top=sup; |
8644 |
base[2]= (V1441); |
base[2]= (V1299); |
8645 |
base[3]= VV[271]; |
base[3]= VV[284]; |
8646 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8647 |
Lformat(); |
Lformat(); |
8648 |
vs_top=sup; |
vs_top=sup; |
8649 |
base[2]= (V1441); |
base[2]= (V1299); |
8650 |
base[3]= VV[272]; |
base[3]= VV[285]; |
8651 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8652 |
Lformat(); |
Lformat(); |
8653 |
vs_top=sup; |
vs_top=sup; |
8654 |
(void)((*(LnkLI484))((V1440),(V1441))); |
(void)((*(LnkLI501))((V1298),(V1299))); |
8655 |
base[2]= (V1441); |
base[2]= (V1299); |
8656 |
base[3]= VV[273]; |
base[3]= VV[286]; |
8657 |
vs_top=(vs_base=base+2)+2; |
vs_top=(vs_base=base+2)+2; |
8658 |
Lformat(); |
Lformat(); |
8659 |
return; |
return; |
8661 |
} |
} |
8662 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8663 |
|
|
8664 |
static void LC133(base0) |
static void LC128(base0) |
8665 |
register object *base0; |
register object *base0; |
8666 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8667 |
register object *sup=base+VM120; VC120 |
register object *sup=base+VM117; VC117 |
8668 |
vs_check; |
vs_check; |
8669 |
{object V1442; |
{object V1300; |
8670 |
check_arg(1); |
check_arg(1); |
8671 |
V1442=(base[0]); |
V1300=(base[0]); |
8672 |
vs_top=sup; |
vs_top=sup; |
8673 |
{register object x= (V1442),V1443= (base0[0]->c.c_car); |
{register object x= (V1300),V1301= (base0[0]->c.c_car); |
8674 |
while(V1443!=Cnil) |
while(V1301!=Cnil) |
8675 |
if(x==(V1443->c.c_car)){ |
if(x==(V1301->c.c_car)){ |
8676 |
base[1]= V1443; |
base[1]= V1301; |
8677 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8678 |
return; |
return; |
8679 |
}else V1443=V1443->c.c_cdr; |
}else V1301=V1301->c.c_cdr; |
8680 |
base[1]= Cnil; |
base[1]= Cnil; |
8681 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8682 |
return;} |
return;} |
8684 |
} |
} |
8685 |
/* local function COMPARE */ |
/* local function COMPARE */ |
8686 |
|
|
8687 |
static void L83(base0) |
static void L79(base0) |
8688 |
register object *base0; |
register object *base0; |
8689 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8690 |
register object *sup=base+VM121; VC121 |
register object *sup=base+VM118; VC118 |
8691 |
vs_check; |
vs_check; |
8692 |
{object V1444; |
{object V1302; |
8693 |
object V1445; |
object V1303; |
8694 |
check_arg(2); |
check_arg(2); |
8695 |
V1444=(base[0]); |
V1302=(base[0]); |
8696 |
V1445=(base[1]); |
V1303=(base[1]); |
8697 |
vs_top=sup; |
vs_top=sup; |
8698 |
goto TTL; |
goto TTL; |
8699 |
TTL:; |
TTL:; |
8700 |
if(!(number_compare((V1444),(V1445))>0)){ |
if(!(number_compare((V1302),(V1303))>0)){ |
8701 |
goto T2846;} |
goto T2754;} |
8702 |
base[2]= VV[251]; |
base[2]= VV[264]; |
8703 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8704 |
return; |
return; |
8705 |
goto T2846; |
goto T2754; |
8706 |
T2846:; |
T2754:; |
8707 |
base[2]= VV[252]; |
base[2]= VV[265]; |
8708 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8709 |
return; |
return; |
8710 |
} |
} |
8711 |
} |
} |
8712 |
/* local function LOSE */ |
/* local function LOSE */ |
8713 |
|
|
8714 |
static void L82(base0) |
static void L78(base0) |
8715 |
register object *base0; |
register object *base0; |
8716 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8717 |
register object *sup=base+VM122; VC122 |
register object *sup=base+VM119; VC119 |
8718 |
vs_check; |
vs_check; |
8719 |
{object V1446; |
{object V1304; |
8720 |
object V1447; |
object V1305; |
8721 |
if(vs_top-vs_base<1) too_few_arguments(); |
if(vs_top-vs_base<1) too_few_arguments(); |
8722 |
V1446=(base[0]); |
V1304=(base[0]); |
8723 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
8724 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
8725 |
{object *p=vs_top; |
{object *p=vs_top; |
8726 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
8727 |
V1447=(base[1]); |
V1305=(base[1]); |
|
vs_top=sup; |
|
|
base[2]= VV[250]; |
|
|
base[3]= base0[2]; |
|
|
base[4]= base0[0]; |
|
|
base[6]= Cnil; |
|
|
base[7]= (V1446); |
|
|
{object V1448; |
|
|
V1448= (V1447); |
|
|
vs_top=base+8; |
|
|
while(V1448!=Cnil) |
|
|
{vs_push((V1448)->c.c_car);V1448=(V1448)->c.c_cdr;} |
|
|
vs_base=base+6;} |
|
|
Lformat(); |
|
8728 |
vs_top=sup; |
vs_top=sup; |
8729 |
base[5]= vs_base[0]; |
base[2]= VV[8]; |
8730 |
vs_top=(vs_base=base+2)+4; |
base[3]= VV[263]; |
8731 |
Lerror(); |
base[4]= base0[2]; |
8732 |
|
base[5]= base0[0]; |
8733 |
|
base[6]= (V1304); |
8734 |
|
base[7]= (V1305); |
8735 |
|
vs_top=(vs_base=base+2)+6; |
8736 |
|
(void) (*Lnk364)(); |
8737 |
return; |
return; |
8738 |
} |
} |
8739 |
} |
} |
8740 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
8741 |
|
|
8742 |
static void LC132(base0) |
static void LC127(base0) |
8743 |
register object *base0; |
register object *base0; |
8744 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8745 |
register object *sup=base+VM123; VC123 |
register object *sup=base+VM120; VC120 |
8746 |
vs_check; |
vs_check; |
8747 |
{object V1449; |
{object V1306; |
8748 |
check_arg(1); |
check_arg(1); |
8749 |
V1449=(base[0]); |
V1306=(base[0]); |
8750 |
vs_top=sup; |
vs_top=sup; |
8751 |
base[1]= (((((V1449))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
base[1]= (((((V1306))==(Ct)?Ct:Cnil))==Cnil?Ct:Cnil); |
8752 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8753 |
return; |
return; |
8754 |
} |
} |
8755 |
} |
} |
8756 |
|
/* local function CLOSURE */ |
8757 |
|
|
8758 |
|
static void LC126(base0) |
8759 |
|
register object *base0; |
8760 |
|
{ register object *base=vs_base; |
8761 |
|
register object *sup=base+VM121; VC121 |
8762 |
|
vs_check; |
8763 |
|
{object V1307; |
8764 |
|
check_arg(1); |
8765 |
|
V1307=(base[0]); |
8766 |
|
vs_top=sup; |
8767 |
|
base[1]= (V1307); |
8768 |
|
base[2]= VV[244]; |
8769 |
|
base[3]= (base0[0]->c.c_car); |
8770 |
|
vs_top=(vs_base=base+1)+3; |
8771 |
|
Lformat(); |
8772 |
|
return; |
8773 |
|
} |
8774 |
|
} |
8775 |
/* local function PARSE-KEYWORD-ARGUMENT */ |
/* local function PARSE-KEYWORD-ARGUMENT */ |
8776 |
|
|
8777 |
static void L64(base0) |
static void L59(base0) |
8778 |
register object *base0; |
register object *base0; |
8779 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8780 |
register object *sup=base+VM124; VC124 |
register object *sup=base+VM122; VC122 |
8781 |
vs_check; |
vs_check; |
8782 |
{object V1450; |
{object V1308; |
8783 |
check_arg(1); |
check_arg(1); |
8784 |
V1450=(base[0]); |
V1308=(base[0]); |
8785 |
vs_top=sup; |
vs_top=sup; |
8786 |
goto TTL; |
goto TTL; |
8787 |
TTL:; |
TTL:; |
8788 |
if(!(type_of((V1450))==t_cons||((V1450))==Cnil)){ |
if(!(type_of((V1308))==t_cons||((V1308))==Cnil)){ |
8789 |
goto T2856;} |
goto T2766;} |
8790 |
{object V1451= CMPcar((V1450)); |
{object V1309= CMPcar((V1308)); |
8791 |
if(!(type_of(V1451)==t_cons||(V1451)==Cnil)){ |
if(!(type_of(V1309)==t_cons||(V1309)==Cnil)){ |
8792 |
goto T2859;}} |
goto T2769;}} |
8793 |
base[1]= CMPcaar((V1450)); |
base[1]= CMPcaar((V1308)); |
8794 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8795 |
return; |
return; |
8796 |
goto T2859; |
goto T2769; |
8797 |
T2859:; |
T2769:; |
8798 |
base[1]= CMPcar((V1450)); |
base[1]= CMPcar((V1308)); |
8799 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8800 |
(void) (*Lnk485)(); |
(void) (*Lnk502)(); |
8801 |
return; |
return; |
8802 |
goto T2856; |
goto T2766; |
8803 |
T2856:; |
T2766:; |
8804 |
base[1]= (V1450); |
base[1]= (V1308); |
8805 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
8806 |
(void) (*Lnk485)(); |
(void) (*Lnk502)(); |
8807 |
return; |
return; |
8808 |
} |
} |
8809 |
} |
} |
8810 |
/* local function SET-MF-PROPERTY */ |
/* local function SET-MF-PROPERTY */ |
8811 |
|
|
8812 |
static void L62(base0) |
static void L57(base0) |
8813 |
register object *base0; |
register object *base0; |
8814 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8815 |
register object *sup=base+VM125; VC125 |
register object *sup=base+VM123; VC123 |
8816 |
vs_check; |
vs_check; |
8817 |
{object V1452; |
{object V1310; |
8818 |
object V1453; |
object V1311; |
8819 |
check_arg(2); |
check_arg(2); |
8820 |
V1452=(base[0]); |
V1310=(base[0]); |
8821 |
V1453=(base[1]); |
V1311=(base[1]); |
8822 |
vs_top=sup; |
vs_top=sup; |
8823 |
goto TTL; |
goto TTL; |
8824 |
TTL:; |
TTL:; |
8825 |
if((base0[0])==Cnil){ |
if((base0[0])==Cnil){ |
8826 |
goto T2863;} |
goto T2773;} |
8827 |
V1457= ({object _tmp=get(VV[210],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[210])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[210])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
V1315= ({object _tmp=get(VV[220],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[220])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[220])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
|
V1458 = V1453; |
|
|
V1459 = base0[0]; |
|
|
V1460 = V1452; |
|
8828 |
(void)(( |
(void)(( |
8829 |
V1461 = V1457, |
V1316 = V1315, |
8830 |
(type_of(V1461) == t_sfun ?(*((V1461)->sfn.sfn_self)): |
(type_of(V1316) == t_sfun ?(*((V1316)->sfn.sfn_self)): |
8831 |
(fcall.argd=3,type_of(V1461)==t_vfun) ? |
(fcall.argd=3,type_of(V1316)==t_vfun) ? |
8832 |
(*((V1461)->sfn.sfn_self)): |
(*((V1316)->sfn.sfn_self)): |
8833 |
(fcall.fun=(V1461),fcalln))(V1458,V1459,V1460))); |
(fcall.fun=(V1316),fcalln))(V1311,base0[0],V1310))); |
8834 |
goto T2863; |
goto T2773; |
8835 |
T2863:; |
T2773:; |
8836 |
if((base0[4])==Cnil){ |
if((base0[4])==Cnil){ |
8837 |
goto T2868;} |
goto T2778;} |
8838 |
base[2]= ({object _tmp=get(VV[210],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[210])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[210])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
base[2]= ({object _tmp=get(VV[220],sSsetf_function,Cnil);if (_tmp==Cnil) {int bs=((object)VV[220])->s.s_fillp+8;char *b=alloca(bs);snprintf(b,bs,"(SETF %-.*s)",bs-8,((object)VV[220])->s.s_self);FEundefined_function(make_simple_string(b));}_tmp;}); |
8839 |
base[3]= V1453; |
base[3]= V1311; |
8840 |
base[4]= base0[4]; |
base[4]= base0[4]; |
8841 |
base[5]= V1452; |
base[5]= V1310; |
8842 |
vs_top=(vs_base=base+3)+3; |
vs_top=(vs_base=base+3)+3; |
8843 |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[2];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
8844 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
8845 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
8846 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
8847 |
return; |
return; |
8848 |
goto T2868; |
goto T2778; |
8849 |
T2868:; |
T2778:; |
8850 |
base[2]= Cnil; |
base[2]= Cnil; |
8851 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
8852 |
return; |
return; |
8853 |
} |
} |
8854 |
} |
} |
|
/* local function IGNOREDP */ |
|
|
|
|
|
static void L49(base0) |
|
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM126; VC126 |
|
|
vs_check; |
|
|
{object V1465; |
|
|
check_arg(1); |
|
|
V1465=(base[0]); |
|
|
vs_top=sup; |
|
|
goto TTL; |
|
|
TTL:; |
|
|
{register object V1466; |
|
|
register object V1467; |
|
|
V1466= CMPcdar(base0[0]); |
|
|
V1467= CMPcar((V1466)); |
|
|
goto T2877; |
|
|
T2877:; |
|
|
if(!(((V1466))==Cnil)){ |
|
|
goto T2878;} |
|
|
base[3]= Cnil; |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
goto T2878; |
|
|
T2878:; |
|
|
if(!((CMPcar((V1467)))==(VV[181]))){ |
|
|
goto T2882;} |
|
|
{register object x= (V1465),V1468= CMPcdr((V1467)); |
|
|
while(V1468!=Cnil) |
|
|
if(x==(V1468->c.c_car)){ |
|
|
goto T2886; |
|
|
}else V1468=V1468->c.c_cdr; |
|
|
goto T2882;} |
|
|
goto T2886; |
|
|
T2886:; |
|
|
base[3]= Ct; |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
goto T2882; |
|
|
T2882:; |
|
|
V1466= CMPcdr((V1466)); |
|
|
V1467= CMPcar((V1466)); |
|
|
goto T2877;} |
|
|
} |
|
|
} |
|
8855 |
/* local function WALK-FUNCTION */ |
/* local function WALK-FUNCTION */ |
8856 |
|
|
8857 |
static void LC44(base0) |
static void LC44(base0) |
8858 |
register object *base0; |
register object *base0; |
8859 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
8860 |
register object *sup=base+VM127; VC127 |
register object *sup=base+VM124; VC124 |
8861 |
vs_check; |
vs_check; |
8862 |
{register object V1469; |
{register object V1320; |
8863 |
object V1470; |
object V1321; |
8864 |
object V1471; |
object V1322; |
8865 |
check_arg(3); |
check_arg(3); |
8866 |
V1469=(base[0]); |
V1320=(base[0]); |
8867 |
V1470=(base[1]); |
V1321=(base[1]); |
8868 |
V1471=(base[2]); |
V1322=(base[2]); |
8869 |
vs_top=sup; |
vs_top=sup; |
8870 |
if(((V1470))==(VV[193])){ |
if(((V1321))==(VV[203])){ |
8871 |
goto T2893;} |
goto T2785;} |
8872 |
base[3]= (V1469); |
base[3]= (V1320); |
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
goto T2893; |
|
|
T2893:; |
|
|
if(type_of((V1469))==t_cons||((V1469))==Cnil){ |
|
|
goto T2896;} |
|
|
base[3]= (V1469); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
goto T2896; |
|
|
T2896:; |
|
|
if(!((CMPcar((V1469)))==(VV[194]))){ |
|
|
goto T2899;} |
|
|
(base0[2]->c.c_car)= Ct; |
|
|
base[3]= (V1469); |
|
8873 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8874 |
return; |
return; |
8875 |
goto T2899; |
goto T2785; |
8876 |
T2899:; |
T2785:; |
8877 |
if(!((CMPcar((V1469)))==(VV[195]))){ |
if(type_of((V1320))==t_cons||((V1320))==Cnil){ |
8878 |
goto T2904;} |
goto T2788;} |
8879 |
(base0[0]->c.c_car)= Ct; |
base[3]= (V1320); |
|
base[3]= (V1469); |
|
|
vs_top=(vs_base=base+3)+1; |
|
|
return; |
|
|
goto T2904; |
|
|
T2904:; |
|
|
{object V1472; |
|
|
if((CMPcar((V1469)))==(VV[14])){ |
|
|
goto T2909;} |
|
|
V1472= Cnil; |
|
|
goto T2908; |
|
|
goto T2909; |
|
|
T2909:; |
|
|
if(!((CMPcadr((V1469)))==(VV[194]))){ |
|
|
goto T2912;} |
|
|
(base0[2]->c.c_car)= Ct; |
|
|
(base0[1]->c.c_car)= Ct; |
|
|
V1472= (V1469); |
|
|
goto T2908; |
|
|
goto T2912; |
|
|
T2912:; |
|
|
if(!((CMPcadr((V1469)))==(VV[195]))){ |
|
|
goto T2919;} |
|
|
(base0[0]->c.c_car)= Ct; |
|
|
(base0[1]->c.c_car)= Ct; |
|
|
V1472= (V1469); |
|
|
goto T2908; |
|
|
goto T2919; |
|
|
T2919:; |
|
|
V1472= Cnil; |
|
|
goto T2908; |
|
|
T2908:; |
|
|
if(((V1472))==Cnil){ |
|
|
goto T2926;} |
|
|
base[3]= (V1472); |
|
8880 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8881 |
return; |
return; |
8882 |
goto T2926; |
goto T2788; |
8883 |
T2926:; |
T2788:; |
8884 |
if((CMPcar((V1469)))==(VV[196])){ |
if((CMPcar((V1320)))==(VV[204])){ |
8885 |
goto T2930;} |
goto T2792;} |
8886 |
if((CMPcar((V1469)))==(VV[197])){ |
if((CMPcar((V1320)))==(VV[205])){ |
8887 |
goto T2930;} |
goto T2792;} |
8888 |
if(!((CMPcar((V1469)))==(VV[198]))){ |
if(!((CMPcar((V1320)))==(VV[206]))){ |
8889 |
goto T2929;} |
goto T2791;} |
8890 |
goto T2930; |
goto T2792; |
8891 |
T2930:; |
T2792:; |
8892 |
base[3]= CMPcaddr((V1469)); |
base[3]= CMPcaddr((V1320)); |
8893 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8894 |
Lconstantp(); |
Lconstantp(); |
8895 |
vs_top=sup; |
vs_top=sup; |
8896 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8897 |
goto T2929;} |
goto T2791;} |
8898 |
{object V1473; |
{object V1323; |
8899 |
V1473= (*(LnkLI486))((V1469),(base0[5]->c.c_car),(V1471)); |
V1323= (*(LnkLI503))((V1320),(base0[2]->c.c_car),(V1322)); |
8900 |
{object V1474= CMPcar((V1469)); |
{object V1324; |
8901 |
if((V1474!= VV[196]))goto T2939; |
V1324= CMPcar((V1320)); |
8902 |
base[3]= (*(LnkLI487))((base0[4]->c.c_car),(V1473),(V1469)); |
{object V1325= (V1324); |
8903 |
vs_top=(vs_base=base+3)+1; |
if((V1325!= VV[204]))goto T2802; |
8904 |
return; |
base[3]= (*(LnkLI504))((base0[1]->c.c_car),(V1323),(V1320)); |
8905 |
goto T2939; |
vs_top=(vs_base=base+3)+1; |
8906 |
T2939:; |
return; |
8907 |
if((V1474!= VV[197]))goto T2940; |
goto T2802; |
8908 |
base[3]= (*(LnkLI488))((base0[4]->c.c_car),(V1473),(V1469)); |
T2802:; |
8909 |
vs_top=(vs_base=base+3)+1; |
if((V1325!= VV[205]))goto T2803; |
8910 |
return; |
base[3]= (*(LnkLI505))((base0[1]->c.c_car),(V1323),(V1320)); |
8911 |
goto T2940; |
vs_top=(vs_base=base+3)+1; |
8912 |
T2940:; |
return; |
8913 |
if((V1474!= VV[198]))goto T2941; |
goto T2803; |
8914 |
base[3]= (*(LnkLI489))((base0[4]->c.c_car),(V1473),(V1469)); |
T2803:; |
8915 |
|
if((V1325!= VV[206]))goto T2804; |
8916 |
|
base[3]= (*(LnkLI506))((base0[1]->c.c_car),(V1323),(V1320)); |
8917 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8918 |
return; |
return; |
8919 |
goto T2941; |
goto T2804; |
8920 |
T2941:; |
T2804:; |
8921 |
FEerror("The ECASE key value ~s is illegal.",1,V1474); |
base[3]= VV[157]; |
8922 |
base[3]= Cnil; |
base[4]= VV[158]; |
8923 |
vs_top=(vs_base=base+3)+1; |
base[5]= VV[207]; |
8924 |
return;}} |
base[6]= VV[160]; |
8925 |
goto T2929; |
base[7]= (V1324); |
8926 |
T2929:; |
base[8]= VV[161]; |
8927 |
if(!((CMPcar((V1469)))==(VV[137]))){ |
base[9]= VV[208]; |
8928 |
goto T2943;} |
base[10]= VV[163]; |
8929 |
if(!(type_of(CMPcadr((V1469)))==t_cons)){ |
base[11]= VV[209]; |
8930 |
goto T2943;} |
vs_top=(vs_base=base+3)+9; |
8931 |
if(!((CMPcar(CMPcadr((V1469))))==(VV[14]))){ |
(void) (*Lnk409)(); |
8932 |
goto T2943;} |
return;}}} |
8933 |
base[3]= CMPcadr(CMPcadr((V1469))); |
goto T2791; |
8934 |
|
T2791:; |
8935 |
|
if(!((CMPcar((V1320)))==(VV[142]))){ |
8936 |
|
goto T2815;} |
8937 |
|
if(!(type_of(CMPcadr((V1320)))==t_cons)){ |
8938 |
|
goto T2815;} |
8939 |
|
if(!((CMPcar(CMPcadr((V1320))))==(VV[18]))){ |
8940 |
|
goto T2815;} |
8941 |
|
base[3]= CMPcadr(CMPcadr((V1320))); |
8942 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8943 |
(void) (*Lnk490)(); |
(void) (*Lnk507)(); |
8944 |
vs_top=sup; |
vs_top=sup; |
8945 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8946 |
goto T2943;} |
goto T2815;} |
8947 |
base[3]= (*(LnkLI491))((V1469),(base0[5]->c.c_car),(V1471),(base0[4]->c.c_car),(base0[3]->c.c_car)); |
base[3]= (*(LnkLI508))((V1320),(base0[2]->c.c_car),(V1322),(base0[1]->c.c_car),(base0[0]->c.c_car)); |
8948 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8949 |
return; |
return; |
8950 |
goto T2943; |
goto T2815; |
8951 |
T2943:; |
T2815:; |
8952 |
if(type_of(CMPcar((V1469)))==t_symbol){ |
if(type_of(CMPcar((V1320)))==t_symbol){ |
8953 |
goto T2954;} |
goto T2826;} |
8954 |
if(!(type_of(CMPcar((V1469)))==t_cons)){ |
if(!(type_of(CMPcar((V1320)))==t_cons)){ |
8955 |
goto T2953;} |
goto T2825;} |
8956 |
if(!((CMPcaar((V1469)))==(VV[30]))){ |
if(!((CMPcaar((V1320)))==(VV[34]))){ |
8957 |
goto T2953;} |
goto T2825;} |
8958 |
goto T2954; |
goto T2826; |
8959 |
T2954:; |
T2826:; |
8960 |
base[3]= CMPcar((V1469)); |
base[3]= CMPcar((V1320)); |
8961 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8962 |
(void) (*Lnk490)(); |
(void) (*Lnk507)(); |
8963 |
vs_top=sup; |
vs_top=sup; |
8964 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
8965 |
goto T2953;} |
goto T2825;} |
8966 |
base[3]= (*(LnkLI491))((V1469),(base0[5]->c.c_car),(V1471),(base0[4]->c.c_car),(base0[3]->c.c_car)); |
base[3]= (*(LnkLI508))((V1320),(base0[2]->c.c_car),(V1322),(base0[1]->c.c_car),(base0[0]->c.c_car)); |
8967 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
8968 |
return; |
return; |
8969 |
goto T2953; |
goto T2825; |
8970 |
T2953:; |
T2825:; |
8971 |
if(!((CMPcar((V1469)))==(VV[199]))){ |
if(!((CMPcar((V1320)))==(VV[210]))){ |
8972 |
goto T2963;} |
goto T2835;} |
8973 |
if(((VV[22]->s.s_dbind))==Cnil){ |
if(((VV[26]->s.s_dbind))==Cnil){ |
8974 |
goto T2963;} |
goto T2835;} |
8975 |
{object V1475= CMPcadddr((V1469)); |
{object V1326= CMPcadddr((V1320)); |
8976 |
if((V1475!= VV[255]))goto T2968; |
if((V1326!= VV[268]))goto T2840; |
8977 |
{object V1476; |
{object V1327; |
8978 |
V1476= CMPcaddr((V1469)); |
V1327= CMPcaddr((V1320)); |
8979 |
(VV[23]->s.s_dbind)= make_cons((V1476),(VV[23]->s.s_dbind)); |
(VV[27]->s.s_dbind)= make_cons((V1327),(VV[27]->s.s_dbind)); |
8980 |
goto T2967;} |
goto T2839;} |
8981 |
goto T2968; |
goto T2840; |
8982 |
T2968:; |
T2840:; |
8983 |
if((V1475!= VV[257]))goto T2971; |
if((V1326!= VV[270]))goto T2843; |
8984 |
{object V1477; |
{object V1328; |
8985 |
V1477= CMPcaddr((V1469)); |
V1328= CMPcaddr((V1320)); |
8986 |
(VV[24]->s.s_dbind)= make_cons((V1477),(VV[24]->s.s_dbind)); |
(VV[28]->s.s_dbind)= make_cons((V1328),(VV[28]->s.s_dbind)); |
8987 |
goto T2967;} |
goto T2839;} |
8988 |
goto T2971; |
goto T2843; |
8989 |
T2971:; |
T2843:; |
8990 |
if((V1475!= VV[259]))goto T2974; |
if((V1326!= VV[272]))goto T2846; |
8991 |
{object V1478; |
{object V1329; |
8992 |
V1478= CMPcaddr((V1469)); |
V1329= CMPcaddr((V1320)); |
8993 |
(VV[25]->s.s_dbind)= make_cons((V1478),(VV[25]->s.s_dbind)); |
(VV[29]->s.s_dbind)= make_cons((V1329),(VV[29]->s.s_dbind)); |
8994 |
goto T2967;} |
goto T2839;} |
8995 |
goto T2974; |
goto T2846; |
8996 |
T2974:;} |
T2846:;} |
8997 |
goto T2967; |
goto T2839; |
8998 |
T2967:; |
T2839:; |
8999 |
base[3]= make_cons(CMPcadr((V1469)),CMPcddddr((V1469))); |
base[3]= make_cons(CMPcadr((V1320)),CMPcddddr((V1320))); |
9000 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9001 |
return; |
return; |
9002 |
goto T2963; |
goto T2835; |
9003 |
T2963:; |
T2835:; |
9004 |
base[3]= (V1469); |
base[3]= (V1320); |
9005 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
9006 |
return;} |
return; |
9007 |
} |
} |
9008 |
} |
} |
9009 |
/* local function PROCESS-VAR */ |
/* local function PROCESS-VAR */ |
9010 |
|
|
9011 |
static void L40(base0) |
static void L41(base0) |
9012 |
register object *base0; |
register object *base0; |
9013 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9014 |
register object *sup=base+VM128; VC128 |
register object *sup=base+VM125; VC125 |
9015 |
vs_check; |
vs_check; |
9016 |
{register object V1479; |
{register object V1330; |
9017 |
check_arg(1); |
check_arg(1); |
9018 |
V1479=(base[0]); |
V1330=(base[0]); |
9019 |
vs_top=sup; |
vs_top=sup; |
9020 |
goto TTL; |
goto TTL; |
9021 |
TTL:; |
TTL:; |
9022 |
{register object x= (V1479),V1480= VV[182]; |
{register object x= (V1330),V1331= VV[193]; |
9023 |
while(V1480!=Cnil) |
while(V1331!=Cnil) |
9024 |
if(x==(V1480->c.c_car)){ |
if(x==(V1331->c.c_car)){ |
9025 |
goto T2979; |
goto T2851; |
9026 |
}else V1480=V1480->c.c_cdr; |
}else V1331=V1331->c.c_cdr; |
9027 |
goto T2978;} |
goto T2850;} |
9028 |
goto T2979; |
goto T2851; |
9029 |
T2979:; |
T2851:; |
9030 |
{object V1481= (V1479); |
{object V1332= (V1330); |
9031 |
if((V1481!= VV[406]))goto T2981; |
if((V1332!= VV[418]))goto T2853; |
9032 |
base0[7]= VV[183]; |
base0[7]= VV[194]; |
9033 |
goto T2980; |
goto T2852; |
9034 |
goto T2981; |
goto T2853; |
9035 |
T2981:; |
T2853:; |
9036 |
if((V1481!= VV[61]))goto T2983; |
if((V1332!= VV[63]))goto T2855; |
9037 |
base0[7]= VV[184]; |
base0[7]= VV[195]; |
9038 |
goto T2980; |
goto T2852; |
9039 |
goto T2983; |
goto T2855; |
9040 |
T2983:; |
T2855:; |
9041 |
if((V1481!= VV[62]))goto T2985; |
if((V1332!= VV[64]))goto T2857; |
9042 |
goto T2980; |
goto T2852; |
9043 |
goto T2985; |
goto T2857; |
9044 |
T2985:; |
T2857:; |
9045 |
if((V1481!= VV[169]))goto T2986; |
if((V1332!= VV[178]))goto T2858; |
9046 |
base0[7]= VV[185]; |
base0[7]= VV[196]; |
9047 |
goto T2980; |
goto T2852; |
9048 |
goto T2986; |
goto T2858; |
9049 |
T2986:; |
T2858:; |
9050 |
if((V1481!= VV[55]))goto T2988; |
if((V1332!= VV[65]))goto T2860; |
9051 |
base0[7]= VV[186]; |
base0[7]= VV[197]; |
9052 |
goto T2980; |
goto T2852; |
9053 |
goto T2988; |
goto T2860; |
9054 |
T2988:; |
T2860:; |
9055 |
base[1]= VV[187]; |
base[1]= VV[198]; |
9056 |
base[2]= (V1479); |
base[2]= (V1330); |
9057 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9058 |
Lerror(); |
Lerror(); |
9059 |
vs_top=sup;} |
vs_top=sup;} |
9060 |
goto T2980; |
goto T2852; |
9061 |
T2980:; |
T2852:; |
9062 |
base[1]= Cnil; |
base[1]= Cnil; |
9063 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9064 |
return; |
return; |
9065 |
goto T2978; |
goto T2850; |
9066 |
T2978:; |
T2850:; |
9067 |
{object V1482= base0[7]; |
{object V1333= base0[7]; |
9068 |
if((V1482!= VV[180]))goto T2992; |
if((V1333!= VV[192]))goto T2864; |
9069 |
V1483= list(2,(V1479),list(2,VV[188],base0[5])); |
V1334= list(2,(V1330),list(2,VV[199],base0[5])); |
9070 |
base[1]= make_cons(/* INLINE-ARGS */V1483,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1334,Cnil); |
9071 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9072 |
return; |
return; |
9073 |
goto T2992; |
goto T2864; |
9074 |
T2992:; |
T2864:; |
9075 |
if((V1482!= VV[183]))goto T2993; |
if((V1333!= VV[194]))goto T2865; |
9076 |
if(type_of((V1479))==t_cons){ |
if(type_of((V1330))==t_cons){ |
9077 |
goto T2995;} |
goto T2867;} |
9078 |
V1484= list(2,(V1479),list(3,VV[115],base0[5],list(2,VV[188],base0[5]))); |
V1335= list(2,(V1330),list(3,VV[120],base0[5],list(2,VV[199],base0[5]))); |
9079 |
base[1]= make_cons(/* INLINE-ARGS */V1484,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1335,Cnil); |
9080 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9081 |
return; |
return; |
9082 |
goto T2995; |
goto T2867; |
9083 |
T2995:; |
T2867:; |
9084 |
if((CMPcddr((V1479)))!=Cnil){ |
if((CMPcddr((V1330)))!=Cnil){ |
9085 |
goto T2998;} |
goto T2870;} |
9086 |
V1485= CMPcar((V1479)); |
V1336= CMPcar((V1330)); |
9087 |
V1486= list(2,/* INLINE-ARGS */V1485,list(4,VV[129],base0[5],list(2,VV[188],base0[5]),CMPcadr((V1479)))); |
V1337= list(2,/* INLINE-ARGS */V1336,list(4,VV[134],base0[5],list(2,VV[199],base0[5]),CMPcadr((V1330)))); |
9088 |
base[1]= make_cons(/* INLINE-ARGS */V1486,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1337,Cnil); |
9089 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9090 |
return; |
return; |
9091 |
goto T2998; |
goto T2870; |
9092 |
T2998:; |
T2870:; |
9093 |
V1487= list(2,CMPcaddr((V1479)),base0[5]); |
V1338= list(2,CMPcaddr((V1330)),base0[5]); |
9094 |
V1488= CMPcar((V1479)); |
V1339= CMPcar((V1330)); |
9095 |
base[1]= list(2,/* INLINE-ARGS */V1487,list(2,/* INLINE-ARGS */V1488,list(4,VV[129],base0[5],list(2,VV[188],base0[5]),CMPcadr((V1479))))); |
base[1]= list(2,/* INLINE-ARGS */V1338,list(2,/* INLINE-ARGS */V1339,list(4,VV[134],base0[5],list(2,VV[199],base0[5]),CMPcadr((V1330))))); |
9096 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9097 |
return; |
return; |
9098 |
goto T2993; |
goto T2865; |
9099 |
T2993:; |
T2865:; |
9100 |
if((V1482!= VV[185]))goto T3000; |
if((V1333!= VV[196]))goto T2872; |
9101 |
V1489= list(2,(V1479),base0[5]); |
V1340= list(2,(V1330),base0[5]); |
9102 |
base[1]= make_cons(/* INLINE-ARGS */V1489,Cnil); |
base[1]= make_cons(/* INLINE-ARGS */V1340,Cnil); |
9103 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9104 |
return; |
return; |
9105 |
goto T3000; |
goto T2872; |
9106 |
T3000:; |
T2872:; |
9107 |
if((V1482!= VV[184]))goto T3001; |
if((V1333!= VV[195]))goto T2873; |
9108 |
if(type_of((V1479))==t_cons){ |
if(type_of((V1330))==t_cons){ |
9109 |
goto T3003;} |
goto T2875;} |
9110 |
base[1]= (V1479); |
base[1]= (V1330); |
9111 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9112 |
(void) (*Lnk485)(); |
(void) (*Lnk502)(); |
9113 |
vs_top=sup; |
vs_top=sup; |
9114 |
V1490= vs_base[0]; |
V1341= vs_base[0]; |
9115 |
V1491 = base0[5]; |
V1342= list(2,(V1330),list(2,VV[200],list(3,VV[201],V1341,base0[5]))); |
9116 |
V1492= list(2,(V1479),list(3,VV[189],V1490,V1491)); |
base[1]= make_cons(/* INLINE-ARGS */V1342,Cnil); |
9117 |
base[1]= make_cons(/* INLINE-ARGS */V1492,Cnil); |
vs_top=(vs_base=base+1)+1; |
9118 |
vs_top=(vs_base=base+1)+1; |
return; |
9119 |
return; |
goto T2875; |
9120 |
goto T3003; |
T2875:; |
9121 |
T3003:; |
if((CMPcddr((V1330)))!=Cnil){ |
9122 |
if((CMPcddr((V1479)))!=Cnil){ |
goto T2880;} |
9123 |
goto T3008;} |
{object V1343; |
9124 |
{object V1493; |
object V1344; |
9125 |
object V1494; |
if(!(type_of(CMPcar((V1330)))==t_cons)){ |
9126 |
if(!(type_of(CMPcar((V1479)))==t_cons)){ |
goto T2884;} |
9127 |
goto T3012;} |
base[1]= CMPcaar((V1330)); |
9128 |
base[1]= CMPcaar((V1479)); |
base[2]= CMPcadar((V1330)); |
|
base[2]= CMPcadar((V1479)); |
|
9129 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9130 |
goto T3010; |
goto T2882; |
9131 |
goto T3012; |
goto T2884; |
9132 |
T3012:; |
T2884:; |
9133 |
base[2]= CMPcar((V1479)); |
base[2]= CMPcar((V1330)); |
9134 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9135 |
(void) (*Lnk485)(); |
(void) (*Lnk502)(); |
9136 |
vs_top=sup; |
vs_top=sup; |
9137 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
9138 |
base[2]= CMPcar((V1479)); |
base[2]= CMPcar((V1330)); |
9139 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9140 |
goto T3010; |
goto T2882; |
9141 |
T3010:; |
T2882:; |
9142 |
if(vs_base>=vs_top){vs_top=sup;goto T3019;} |
if(vs_base>=vs_top){vs_top=sup;goto T2891;} |
9143 |
V1493= vs_base[0]; |
V1343= vs_base[0]; |
9144 |
vs_base++; |
vs_base++; |
9145 |
if(vs_base>=vs_top){vs_top=sup;goto T3020;} |
if(vs_base>=vs_top){vs_top=sup;goto T2892;} |
9146 |
V1494= vs_base[0]; |
V1344= vs_base[0]; |
9147 |
vs_top=sup; |
vs_top=sup; |
9148 |
goto T3021; |
goto T2893; |
9149 |
goto T3019; |
goto T2891; |
9150 |
T3019:; |
T2891:; |
9151 |
V1493= Cnil; |
V1343= Cnil; |
9152 |
goto T3020; |
goto T2892; |
9153 |
T3020:; |
T2892:; |
9154 |
V1494= Cnil; |
V1344= Cnil; |
9155 |
goto T3021; |
goto T2893; |
9156 |
T3021:; |
T2893:; |
9157 |
V1495= list(2,base0[6],list(3,VV[190],(V1493),base0[5])); |
V1345= list(2,base0[6],list(3,VV[201],list(2,VV[1],(V1343)),base0[5])); |
9158 |
V1496= list(2,VV[191],base0[6]); |
base[1]= list(2,/* INLINE-ARGS */V1345,list(2,(V1344),list(4,VV[134],base0[6],list(2,VV[200],base0[6]),CMPcadr((V1330))))); |
|
base[1]= list(2,/* INLINE-ARGS */V1495,list(2,(V1494),list(4,VV[129],/* INLINE-ARGS */V1496,list(2,VV[192],base0[6]),CMPcadr((V1479))))); |
|
9159 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9160 |
return;} |
return;} |
9161 |
goto T3008; |
goto T2880; |
9162 |
T3008:; |
T2880:; |
9163 |
{object V1497; |
{object V1346; |
9164 |
object V1498; |
object V1347; |
9165 |
if(!(type_of(CMPcar((V1479)))==t_cons)){ |
if(!(type_of(CMPcar((V1330)))==t_cons)){ |
9166 |
goto T3024;} |
goto T2896;} |
9167 |
base[1]= CMPcaar((V1479)); |
base[1]= CMPcaar((V1330)); |
9168 |
base[2]= CMPcadar((V1479)); |
base[2]= CMPcadar((V1330)); |
9169 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9170 |
goto T3022; |
goto T2894; |
9171 |
goto T3024; |
goto T2896; |
9172 |
T3024:; |
T2896:; |
9173 |
base[2]= CMPcar((V1479)); |
base[2]= CMPcar((V1330)); |
9174 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9175 |
(void) (*Lnk485)(); |
(void) (*Lnk502)(); |
9176 |
vs_top=sup; |
vs_top=sup; |
9177 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
9178 |
base[2]= CMPcar((V1479)); |
base[2]= CMPcar((V1330)); |
9179 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
9180 |
goto T3022; |
goto T2894; |
9181 |
T3022:; |
T2894:; |
9182 |
if(vs_base>=vs_top){vs_top=sup;goto T3031;} |
if(vs_base>=vs_top){vs_top=sup;goto T2903;} |
9183 |
V1497= vs_base[0]; |
V1346= vs_base[0]; |
9184 |
vs_base++; |
vs_base++; |
9185 |
if(vs_base>=vs_top){vs_top=sup;goto T3032;} |
if(vs_base>=vs_top){vs_top=sup;goto T2904;} |
9186 |
V1498= vs_base[0]; |
V1347= vs_base[0]; |
9187 |
vs_top=sup; |
vs_top=sup; |
9188 |
goto T3033; |
goto T2905; |
9189 |
goto T3031; |
goto T2903; |
9190 |
T3031:; |
T2903:; |
9191 |
V1497= Cnil; |
V1346= Cnil; |
9192 |
goto T3032; |
goto T2904; |
9193 |
T3032:; |
T2904:; |
9194 |
V1498= Cnil; |
V1347= Cnil; |
9195 |
goto T3033; |
goto T2905; |
9196 |
T3033:; |
T2905:; |
9197 |
V1499= list(2,base0[6],list(3,VV[190],(V1497),base0[5])); |
V1348= list(2,base0[6],list(3,VV[201],list(2,VV[1],(V1346)),base0[5])); |
9198 |
V1500= list(2,CMPcaddr((V1479)),base0[6]); |
V1349= list(2,CMPcaddr((V1330)),base0[6]); |
9199 |
V1501= list(2,VV[191],base0[6]); |
base[1]= list(3,/* INLINE-ARGS */V1348,/* INLINE-ARGS */V1349,list(2,(V1347),list(4,VV[134],base0[6],list(2,VV[200],base0[6]),CMPcadr((V1330))))); |
|
base[1]= list(3,/* INLINE-ARGS */V1499,/* INLINE-ARGS */V1500,list(2,(V1498),list(4,VV[129],/* INLINE-ARGS */V1501,list(2,VV[192],base0[6]),CMPcadr((V1479))))); |
|
9200 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9201 |
return;} |
return;} |
9202 |
goto T3001; |
goto T2873; |
9203 |
T3001:; |
T2873:; |
9204 |
if((V1482!= VV[186]))goto T3034; |
if((V1333!= VV[197]))goto T2906; |
9205 |
base[1]= make_cons((V1479),Cnil); |
base[1]= make_cons((V1330),Cnil); |
9206 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9207 |
return; |
return; |
9208 |
goto T3034; |
goto T2906; |
9209 |
T3034:; |
T2906:; |
9210 |
base[1]= Cnil; |
base[1]= Cnil; |
9211 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9212 |
return;} |
return;} |
9214 |
} |
} |
9215 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
9216 |
|
|
9217 |
static void LC131(base0) |
static void LC125(base0) |
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM129; VC129 |
|
|
vs_check; |
|
|
{object V1502; |
|
|
vs_top[0]=Cnil; |
|
|
{object *p=vs_top; |
|
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
|
|
V1502=(base[0]); |
|
|
vs_top=sup; |
|
|
base[1]= STREF(object,(base0[0]->c.c_car),0); |
|
|
base[2]= (V1502); |
|
|
{object V1503; |
|
|
V1503= STREF(object,(base0[0]->c.c_car),4); |
|
|
vs_top=base+3; |
|
|
while(V1503!=Cnil) |
|
|
{vs_push((V1503)->c.c_car);V1503=(V1503)->c.c_cdr;} |
|
|
vs_base=base+2;} |
|
|
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
return; |
|
|
} |
|
|
} |
|
|
/* local function CLOSURE */ |
|
|
|
|
|
static void LC130(base0) |
|
|
register object *base0; |
|
|
{ register object *base=vs_base; |
|
|
register object *sup=base+VM130; VC130 |
|
|
vs_check; |
|
|
{object V1504; |
|
|
vs_top[0]=Cnil; |
|
|
{object *p=vs_top; |
|
|
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
|
|
V1504=(base[0]); |
|
|
vs_top=sup; |
|
|
base[1]= STREF(object,(base0[2]->c.c_car),0); |
|
|
base[2]= STREF(object,(base0[2]->c.c_car),4); |
|
|
base[3]= STREF(object,(base0[2]->c.c_car),8); |
|
|
{object V1505; |
|
|
if(((base0[0]->c.c_car))==Cnil){ |
|
|
goto T3045;} |
|
|
{object V1506; |
|
|
object V1507; |
|
|
V1506= nthcdr(fix((base0[1]->c.c_car)),(V1504)); |
|
|
base[6]= (V1504); |
|
|
base[7]= (V1506); |
|
|
vs_top=(vs_base=base+6)+2; |
|
|
Lldiff(); |
|
|
vs_top=sup; |
|
|
V1507= vs_base[0]; |
|
|
V1505= nconc((V1507),(V1506)); |
|
|
goto T3043;} |
|
|
goto T3045; |
|
|
T3045:; |
|
|
V1505= (V1504); |
|
|
goto T3043; |
|
|
T3043:; |
|
|
vs_top=base+4; |
|
|
while(V1505!=Cnil) |
|
|
{vs_push((V1505)->c.c_car);V1505=(V1505)->c.c_cdr;} |
|
|
vs_base=base+2;} |
|
|
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
|
|
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
|
|
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
|
|
else super_funcall_no_event(_funobj);} |
|
|
return; |
|
|
} |
|
|
} |
|
|
/* local function CLOSURE */ |
|
|
|
|
|
static void LC129(base0) |
|
9218 |
register object *base0; |
register object *base0; |
9219 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9220 |
register object *sup=base+VM131; VC131 |
register object *sup=base+VM126; VC126 |
9221 |
vs_check; |
vs_check; |
9222 |
{register object V1508; |
{register object V1350; |
9223 |
check_arg(1); |
check_arg(1); |
9224 |
V1508=(base[0]); |
V1350=(base[0]); |
9225 |
vs_top=sup; |
vs_top=sup; |
9226 |
if(!(type_of((V1508))==t_cons)){ |
if(!(type_of((V1350))==t_cons)){ |
9227 |
goto T3052;} |
goto T2908;} |
9228 |
if((CMPcar((V1508)))==(VV[31])){ |
if((CMPcar((V1350)))==(VV[35])){ |
9229 |
goto T3054;} |
goto T2910;} |
9230 |
base[1]= Cnil; |
base[1]= Cnil; |
9231 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9232 |
return; |
return; |
9233 |
goto T3054; |
goto T2910; |
9234 |
T3054:; |
T2910:; |
9235 |
base[1]= CMPcadr((V1508)); |
base[1]= CMPcadr((V1350)); |
9236 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9237 |
Lconstantp(); |
Lconstantp(); |
9238 |
vs_top=sup; |
vs_top=sup; |
9239 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
9240 |
goto T3056;} |
goto T2912;} |
9241 |
base[1]= Cnil; |
base[1]= Cnil; |
9242 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9243 |
return; |
return; |
9244 |
goto T3056; |
goto T2912; |
9245 |
T3056:; |
T2912:; |
9246 |
{register object V1509; |
{register object V1351; |
9247 |
base[1]= CMPcadr((V1508)); |
base[1]= CMPcadr((V1350)); |
9248 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9249 |
Leval(); |
Leval(); |
9250 |
vs_top=sup; |
vs_top=sup; |
9251 |
V1509= vs_base[0];{object V1510; |
V1351= vs_base[0];{object V1352; |
9252 |
V1510= (*(LnkLI365))((V1509)); |
V1352= (*(LnkLI380))((V1351)); |
9253 |
if(V1510==Cnil)goto T3061; |
if(V1352==Cnil)goto T2917; |
9254 |
base[1]= V1510; |
base[1]= V1352; |
9255 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9256 |
return; |
return; |
9257 |
goto T3061; |
goto T2917; |
9258 |
T3061:;} |
T2917:;} |
9259 |
if(!(type_of((V1509))==t_fixnum||type_of((V1509))==t_bignum)){ |
if(!(type_of((V1351))==t_fixnum||type_of((V1351))==t_bignum)){ |
9260 |
goto T3063;} |
goto T2919;} |
9261 |
base[1]= Ct; |
base[1]= Ct; |
9262 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9263 |
return; |
return; |
9264 |
goto T3063; |
goto T2919; |
9265 |
T3063:; |
T2919:; |
9266 |
if(type_of((V1509))==t_character){ |
if(type_of((V1351))==t_character){ |
9267 |
goto T3065;} |
goto T2921;} |
9268 |
base[1]= Cnil; |
base[1]= Cnil; |
9269 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9270 |
return; |
return; |
9271 |
goto T3065; |
goto T2921; |
9272 |
T3065:; |
T2921:; |
9273 |
base[1]= (V1509); |
base[1]= (V1351); |
9274 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9275 |
Lstandard_char_p(); |
Lstandard_char_p(); |
9276 |
return;} |
return;} |
9277 |
goto T3052; |
goto T2908; |
9278 |
T3052:; |
T2908:; |
9279 |
base[1]= (*(LnkLI365))((V1508)); |
base[1]= (*(LnkLI380))((V1350)); |
9280 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
9281 |
return; |
return; |
9282 |
} |
} |
9283 |
} |
} |
9284 |
|
/* local function INITARG */ |
9285 |
|
|
9286 |
|
static void L7(base0) |
9287 |
|
register object *base0; |
9288 |
|
{ register object *base=vs_base; |
9289 |
|
register object *sup=base+VM127; VC127 |
9290 |
|
vs_check; |
9291 |
|
{object V1353; |
9292 |
|
object V1354; |
9293 |
|
object V1355; |
9294 |
|
if(vs_top-vs_base<1) too_few_arguments(); |
9295 |
|
if(vs_top-vs_base>2) too_many_arguments(); |
9296 |
|
V1353=(base[0]); |
9297 |
|
vs_base=vs_base+1; |
9298 |
|
if(vs_base>=vs_top){vs_top=sup;goto T2924;} |
9299 |
|
V1354=(base[1]); |
9300 |
|
V1355= Ct; |
9301 |
|
vs_top=sup; |
9302 |
|
goto T2925; |
9303 |
|
goto T2924; |
9304 |
|
T2924:; |
9305 |
|
V1354= Cnil; |
9306 |
|
V1355= Cnil; |
9307 |
|
goto T2925; |
9308 |
|
T2925:; |
9309 |
|
if(((V1355))==Cnil){ |
9310 |
|
goto T2928;} |
9311 |
|
{object V1358; |
9312 |
|
base[3]= base0[0]; |
9313 |
|
base[4]= V1354; |
9314 |
|
base[5]= V1353; |
9315 |
|
vs_top=(vs_base=base+3)+3; |
9316 |
|
siLput_f(); |
9317 |
|
vs_top=sup; |
9318 |
|
V1358= vs_base[0]; |
9319 |
|
base0[0]= (V1358); |
9320 |
|
base[3]= V1354; |
9321 |
|
vs_top=(vs_base=base+3)+1; |
9322 |
|
return;} |
9323 |
|
goto T2928; |
9324 |
|
T2928:; |
9325 |
|
base[3]= base0[0]; |
9326 |
|
base[4]= (V1353); |
9327 |
|
vs_top=(vs_base=base+3)+2; |
9328 |
|
Lgetf(); |
9329 |
|
return; |
9330 |
|
} |
9331 |
|
} |
9332 |
|
/* local function CHECK-DECLARATION */ |
9333 |
|
|
9334 |
|
static void L6(base0) |
9335 |
|
register object *base0; |
9336 |
|
{ register object *base=vs_base; |
9337 |
|
register object *sup=base+VM128; VC128 |
9338 |
|
vs_check; |
9339 |
|
{object V1359; |
9340 |
|
check_arg(1); |
9341 |
|
V1359=(base[0]); |
9342 |
|
vs_top=sup; |
9343 |
|
goto TTL; |
9344 |
|
TTL:; |
9345 |
|
{register object V1360; |
9346 |
|
register object V1361; |
9347 |
|
V1360= Cnil; |
9348 |
|
V1361= (V1359); |
9349 |
|
goto T2939; |
9350 |
|
T2939:; |
9351 |
|
if(!(((V1361))==Cnil)){ |
9352 |
|
goto T2941;} |
9353 |
|
goto T2940; |
9354 |
|
goto T2941; |
9355 |
|
T2941:; |
9356 |
|
V1360= CMPcar((V1361)); |
9357 |
|
V1361= CMPcdr((V1361)); |
9358 |
|
if(!(type_of((V1360))==t_cons)){ |
9359 |
|
goto T2948;} |
9360 |
|
{register object x= CMPcar((V1360)),V1362= VV[11]; |
9361 |
|
while(V1362!=Cnil) |
9362 |
|
if(x==(V1362->c.c_car)){ |
9363 |
|
goto T2952; |
9364 |
|
}else V1362=V1362->c.c_cdr; |
9365 |
|
goto T2948;} |
9366 |
|
goto T2952; |
9367 |
|
T2952:; |
9368 |
|
base[1]= VV[8]; |
9369 |
|
base[2]= VV[12]; |
9370 |
|
base[3]= (V1360); |
9371 |
|
vs_top=(vs_base=base+1)+3; |
9372 |
|
(void) (*Lnk364)(); |
9373 |
|
vs_top=sup; |
9374 |
|
goto T2948; |
9375 |
|
T2948:; |
9376 |
|
goto T2939; |
9377 |
|
goto T2940; |
9378 |
|
T2940:; |
9379 |
|
base[1]= Cnil; |
9380 |
|
vs_top=(vs_base=base+1)+1; |
9381 |
|
return;} |
9382 |
|
} |
9383 |
|
} |
9384 |
/* local function DUPLICATE-OPTION */ |
/* local function DUPLICATE-OPTION */ |
9385 |
|
|
9386 |
static void L5(base0) |
static void L5(base0) |
9387 |
register object *base0; |
register object *base0; |
9388 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9389 |
register object *sup=base+VM132; VC132 |
register object *sup=base+VM129; VC129 |
9390 |
vs_check; |
vs_check; |
9391 |
{object V1511; |
{object V1363; |
9392 |
check_arg(1); |
check_arg(1); |
9393 |
V1511=(base[0]); |
V1363=(base[0]); |
9394 |
vs_top=sup; |
vs_top=sup; |
9395 |
goto TTL; |
goto TTL; |
9396 |
TTL:; |
TTL:; |
9397 |
base[1]= VV[8]; |
base[1]= VV[8]; |
9398 |
base[2]= (V1511); |
base[2]= VV[10]; |
9399 |
vs_top=(vs_base=base+1)+2; |
base[3]= (V1363); |
9400 |
Lerror(); |
vs_top=(vs_base=base+1)+3; |
9401 |
|
(void) (*Lnk364)(); |
9402 |
return; |
return; |
9403 |
} |
} |
9404 |
} |
} |
9405 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
9406 |
|
|
9407 |
static void LC128(base0) |
static void LC124(base0) |
9408 |
register object *base0; |
register object *base0; |
9409 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
9410 |
register object *sup=base+VM133; VC133 |
register object *sup=base+VM130; VC130 |
9411 |
vs_check; |
vs_check; |
9412 |
{object V1512; |
{object V1364; |
9413 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
9414 |
{object *p=vs_top; |
{object *p=vs_top; |
9415 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
9416 |
V1512=(base[0]); |
V1364=(base[0]); |
9417 |
vs_top=sup; |
vs_top=sup; |
9418 |
base[2]= (base0[0]->c.c_car); |
base[2]= (base0[0]->c.c_car); |
9419 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
9420 |
Lsymbol_function(); |
Lsymbol_function(); |
9421 |
vs_top=sup; |
vs_top=sup; |
9422 |
base[1]= vs_base[0]; |
base[1]= vs_base[0]; |
9423 |
{object V1513; |
{object V1365; |
9424 |
V1513= (V1512); |
V1365= (V1364); |
9425 |
vs_top=base+2; |
vs_top=base+2; |
9426 |
while(V1513!=Cnil) |
while(V1365!=Cnil) |
9427 |
{vs_push((V1513)->c.c_car);V1513=(V1513)->c.c_cdr;} |
{vs_push((V1365)->c.c_car);V1365=(V1365)->c.c_cdr;} |
9428 |
vs_base=base+2;} |
vs_base=base+2;} |
9429 |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
9430 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
9433 |
return; |
return; |
9434 |
} |
} |
9435 |
} |
} |
9436 |
static object LnkTLI491(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[491],(void **)(void *)&LnkLI491,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GENERIC-FUNCTION-CALL */ |
static object LnkTLI508(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[508],(void **)(void *)&LnkLI508,5,first,ap);va_end(ap);return V1;} /* OPTIMIZE-GENERIC-FUNCTION-CALL */ |
9437 |
static void LnkT490(){ call_or_link(VV[490],(void **)(void *)&Lnk490);} /* GENERIC-FUNCTION-NAME-P */ |
static void LnkT507(){ call_or_link(VV[507],(void **)(void *)&Lnk507);} /* GENERIC-FUNCTION-NAME-P */ |
9438 |
static object LnkTLI489(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[489],(void **)(void *)&LnkLI489,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-BOUNDP */ |
static object LnkTLI506(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[506],(void **)(void *)&LnkLI506,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-BOUNDP */ |
9439 |
static object LnkTLI488(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[488],(void **)(void *)&LnkLI488,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SET-SLOT-VALUE */ |
static object LnkTLI505(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[505],(void **)(void *)&LnkLI505,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SET-SLOT-VALUE */ |
9440 |
static object LnkTLI487(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[487],(void **)(void *)&LnkLI487,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-VALUE */ |
static object LnkTLI504(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[504],(void **)(void *)&LnkLI504,3,first,ap);va_end(ap);return V1;} /* OPTIMIZE-SLOT-VALUE */ |
9441 |
static object LnkTLI486(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[486],(void **)(void *)&LnkLI486,3,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS */ |
static object LnkTLI503(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[503],(void **)(void *)&LnkLI503,3,first,ap);va_end(ap);return V1;} /* CAN-OPTIMIZE-ACCESS */ |
9442 |
static void LnkT485(){ call_or_link(VV[485],(void **)(void *)&Lnk485);} /* MAKE-KEYWORD */ |
static void LnkT502(){ call_or_link(VV[502],(void **)(void *)&Lnk502);} /* MAKE-KEYWORD */ |
9443 |
static object LnkTLI484(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[484],(void **)(void *)&LnkLI484,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */ |
static object LnkTLI501(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[501],(void **)(void *)&LnkLI501,2,first,ap);va_end(ap);return V1;} /* PRINTING-RANDOM-THING-INTERNAL */ |
9444 |
static void LnkT483(){ call_or_link(VV[483],(void **)(void *)&Lnk483);} /* SPECIALIZER-FROM-TYPE */ |
static void LnkT500(){ call_or_link(VV[500],(void **)(void *)&Lnk500);} /* SPECIALIZER-FROM-TYPE */ |
9445 |
static void LnkT482(ptr) object *ptr;{ call_or_link_closure(VV[482],(void **)(void *)&Lnk482,(void **)(void *)&Lclptr482);} /* SPECIALIZER-TYPE */ |
static void LnkT499(ptr) object *ptr;{ call_or_link_closure(VV[499],(void **)(void *)&Lnk499,(void **)(void *)&Lclptr499);} /* SPECIALIZER-TYPE */ |
9446 |
static void LnkT481(ptr) object *ptr;{ call_or_link_closure(VV[481],(void **)(void *)&Lnk481,(void **)(void *)&Lclptr481);} /* SPECIALIZERP */ |
static void LnkT498(ptr) object *ptr;{ call_or_link_closure(VV[498],(void **)(void *)&Lnk498,(void **)(void *)&Lclptr498);} /* SPECIALIZERP */ |
9447 |
static object LnkTLI480(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[480],(void **)(void *)&LnkLI480,4,first,ap);va_end(ap);return V1;} /* EXPAND-SYMBOL-MACROLET-INTERNAL */ |
static object LnkTLI497(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[497],(void **)(void *)&LnkLI497,4,first,ap);va_end(ap);return V1;} /* EXPAND-SYMBOL-MACROLET-INTERNAL */ |
9448 |
static object LnkTLI479(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[479],(void **)(void *)&LnkLI479,first,ap);va_end(ap);return V1;} /* RELIST* */ |
static object LnkTLI496(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[496],(void **)(void *)&LnkLI496,first,ap);va_end(ap);return V1;} /* RELIST* */ |
9449 |
static object LnkTLI478(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[478],(void **)(void *)&LnkLI478,3,first,ap);va_end(ap);return V1;} /* RECONS */ |
static object LnkTLI495(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[495],(void **)(void *)&LnkLI495,3,first,ap);va_end(ap);return V1;} /* RECONS */ |
9450 |
static object LnkTLI477(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[477],(void **)(void *)&LnkLI477,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */ |
static object LnkTLI494(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[494],(void **)(void *)&LnkLI494,2,first,ap);va_end(ap);return V1;} /* VARIABLE-LEXICAL-P */ |
9451 |
static object LnkTLI476(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[476],(void **)(void *)&LnkLI476,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
static object LnkTLI493(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[493],(void **)(void *)&LnkLI493,first,ap);va_end(ap);return V1;} /* GET-METHOD */ |
9452 |
static void LnkT475(ptr) object *ptr;{ call_or_link_closure(VV[475],(void **)(void *)&Lnk475,(void **)(void *)&Lclptr475);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO */ |
static void LnkT492(ptr) object *ptr;{ call_or_link_closure(VV[492],(void **)(void *)&Lnk492,(void **)(void *)&Lclptr492);} /* COMPUTE-DISCRIMINATING-FUNCTION-ARGLIST-INFO */ |
9453 |
static object LnkTLI474(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[474],(void **)(void *)&LnkLI474,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */ |
static object LnkTLI491(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[491],(void **)(void *)&LnkLI491,1,first,ap);va_end(ap);return V1;} /* UNPARSE-SPECIALIZERS */ |
9454 |
static void LnkT473(ptr) object *ptr;{ call_or_link_closure(VV[473],(void **)(void *)&Lnk473,(void **)(void *)&Lclptr473);} /* METHOD-QUALIFIERS */ |
static void LnkT490(ptr) object *ptr;{ call_or_link_closure(VV[490],(void **)(void *)&Lnk490,(void **)(void *)&Lclptr490);} /* METHOD-QUALIFIERS */ |
9455 |
static object LnkTLI472(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[472],(void **)(void *)&LnkLI472,1,first,ap);va_end(ap);return V1;} /* INTERN-FUNCTION-NAME */ |
static object LnkTLI489(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[489],(void **)(void *)&LnkLI489,1,first,ap);va_end(ap);return V1;} /* INTERN-FUNCTION-NAME */ |
9456 |
static void LnkT471(ptr) object *ptr;{ call_or_link_closure(VV[471],(void **)(void *)&Lnk471,(void **)(void *)&Lclptr471);} /* METHOD-GENERIC-FUNCTION */ |
static void LnkT488(ptr) object *ptr;{ call_or_link_closure(VV[488],(void **)(void *)&Lnk488,(void **)(void *)&Lclptr488);} /* METHOD-P */ |
9457 |
static void LnkT470(ptr) object *ptr;{ call_or_link_closure(VV[470],(void **)(void *)&Lnk470,(void **)(void *)&Lclptr470);} /* METHOD-P */ |
static object LnkTLI487(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[487],(void **)(void *)&LnkLI487,2,first,ap);va_end(ap);return V1;} /* SET-METHODS */ |
9458 |
static object LnkTLI469(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[469],(void **)(void *)&LnkLI469,2,first,ap);va_end(ap);return V1;} /* SET-METHODS */ |
static void LnkT486(){ call_or_link(VV[486],(void **)(void *)&Lnk486);} /* REAL-MAKE-A-METHOD */ |
9459 |
static void LnkT468(){ call_or_link(VV[468],(void **)(void *)&Lnk468);} /* REAL-MAKE-A-METHOD */ |
static void LnkT485(){ call_or_link(VV[485],(void **)(void *)&Lnk485);} /* DELETE */ |
9460 |
static void LnkT467(){ call_or_link(VV[467],(void **)(void *)&Lnk467);} /* DELETE */ |
static object LnkTLI483(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[483],(void **)(void *)&LnkLI483,first,ap);va_end(ap);return V1;} /* REAL-GET-METHOD */ |
9461 |
static object LnkTLI465(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[465],(void **)(void *)&LnkLI465,first,ap);va_end(ap);return V1;} /* REAL-GET-METHOD */ |
static void LnkT482(){ call_or_link(VV[482],(void **)(void *)&Lnk482);} /* REMOVE */ |
9462 |
static object LnkTLI464(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[464],(void **)(void *)&LnkLI464,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
static object LnkTLI481(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[481],(void **)(void *)&LnkLI481,first,ap);va_end(ap);return V1;} /* UPDATE-DFUN */ |
9463 |
static object LnkTLI460(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[460],(void **)(void *)&LnkLI460,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */ |
static object LnkTLI477(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[477],(void **)(void *)&LnkLI477,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-QUALIFIERS */ |
9464 |
static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* FIND-CLASS */ |
static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* FIND-CLASS */ |
9465 |
static void LnkT459(){ call_or_link(VV[459],(void **)(void *)&Lnk459);} /* SEVENTH */ |
static void LnkT476(){ call_or_link(VV[476],(void **)(void *)&Lnk476);} /* SEVENTH */ |
9466 |
static void LnkT458(){ call_or_link(VV[458],(void **)(void *)&Lnk458);} /* FIFTH */ |
static void LnkT475(){ call_or_link(VV[475],(void **)(void *)&Lnk475);} /* FIFTH */ |
9467 |
static object LnkTLI457(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[457],(void **)(void *)&LnkLI457,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */ |
static object LnkTLI474(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[474],(void **)(void *)&LnkLI474,1,first,ap);va_end(ap);return V1;} /* PARSE-SPECIALIZERS */ |
9468 |
static object LnkTLI455(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[455],(void **)(void *)&LnkLI455,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */ |
static object LnkTLI472(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[472],(void **)(void *)&LnkLI472,first,ap);va_end(ap);return V1;} /* INITIALIZE-METHOD-FUNCTION */ |
9469 |
static void LnkT453(ptr) object *ptr;{ call_or_link_closure(VV[453],(void **)(void *)&Lnk453,(void **)(void *)&Lclptr453);} /* MAKE-INSTANCE */ |
static object LnkTLI470(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[470],(void **)(void *)&LnkLI470,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */ |
9470 |
static void LnkT452(ptr) object *ptr;{ call_or_link_closure(VV[452],(void **)(void *)&Lnk452,(void **)(void *)&Lclptr452);} /* REINITIALIZE-INSTANCE */ |
static void LnkT469(ptr) object *ptr;{ call_or_link_closure(VV[469],(void **)(void *)&Lnk469,(void **)(void *)&Lclptr469);} /* MAKE-INSTANCE */ |
9471 |
static void LnkT451(ptr) object *ptr;{ call_or_link_closure(VV[451],(void **)(void *)&Lnk451,(void **)(void *)&Lclptr451);} /* CHANGE-CLASS */ |
static void LnkT468(ptr) object *ptr;{ call_or_link_closure(VV[468],(void **)(void *)&Lnk468,(void **)(void *)&Lclptr468);} /* REINITIALIZE-INSTANCE */ |
9472 |
static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* FIND-METHOD-COMBINATION */ |
static void LnkT467(ptr) object *ptr;{ call_or_link_closure(VV[467],(void **)(void *)&Lnk467,(void **)(void *)&Lclptr467);} /* CHANGE-CLASS */ |
9473 |
static void LnkT450(ptr) object *ptr;{ call_or_link_closure(VV[450],(void **)(void *)&Lnk450,(void **)(void *)&Lclptr450);} /* GF-DFUN-STATE */ |
static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* FIND-METHOD-COMBINATION */ |
9474 |
static object LnkTLI449(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[449],(void **)(void *)&LnkLI449,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */ |
static void LnkT466(){ call_or_link(VV[466],(void **)(void *)&Lnk466);} /* WARN */ |
9475 |
static object LnkTLI10(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[10],(void **)(void *)&LnkLI10,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFGENERIC */ |
static void LnkT465(ptr) object *ptr;{ call_or_link_closure(VV[465],(void **)(void *)&Lnk465,(void **)(void *)&Lclptr465);} /* GF-DFUN-STATE */ |
9476 |
static object LnkTLI448(){return call_proc0(VV[448],(void **)(void *)&LnkLI448);} /* MAKE-ARG-INFO */ |
static object LnkTLI464(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[464],(void **)(void *)&LnkLI464,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO */ |
9477 |
static object LnkTLI447(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[447],(void **)(void *)&LnkLI447,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
static object LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)(void *)&LnkLI14,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-DEFGENERIC */ |
9478 |
static object LnkTLI446(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[446],(void **)(void *)&LnkLI446,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
static object LnkTLI463(){return call_proc0(VV[463],(void **)(void *)&LnkLI463);} /* MAKE-ARG-INFO */ |
9479 |
static object LnkTLI445(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[445],(void **)(void *)&LnkLI445,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */ |
static object LnkTLI462(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[462],(void **)(void *)&LnkLI462,4,first,ap);va_end(ap);return V1;} /* BOOTSTRAP-SET-SLOT */ |
9480 |
static object LnkTLI444(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[444],(void **)(void *)&LnkLI444,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-GF */ |
static object LnkTLI461(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[461],(void **)(void *)&LnkLI461,2,first,ap);va_end(ap);return V1;} /* SET-FUNCALLABLE-INSTANCE-FUNCTION */ |
9481 |
static void LnkT292(ptr) object *ptr;{ call_or_link_closure(VV[292],(void **)(void *)&Lnk292,(void **)(void *)&Lclptr292);} /* CLASSP */ |
static object LnkTLI460(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[460],(void **)(void *)&LnkLI460,first,ap);va_end(ap);return V1;} /* ALLOCATE-FUNCALLABLE-INSTANCE */ |
9482 |
static void LnkT443(ptr) object *ptr;{ call_or_link_closure(VV[443],(void **)(void *)&Lnk443,(void **)(void *)&Lclptr443);} /* COMPUTE-APPLICABLE-METHODS */ |
static object LnkTLI459(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[459],(void **)(void *)&LnkLI459,first,ap);va_end(ap);return V1;} /* MAKE-EARLY-GF */ |
9483 |
static void LnkT442(){ call_or_link(VV[442],(void **)(void *)&Lnk442);} /* FIND */ |
static void LnkT305(ptr) object *ptr;{ call_or_link_closure(VV[305],(void **)(void *)&Lnk305,(void **)(void *)&Lclptr305);} /* CLASSP */ |
9484 |
static object LnkTLI441(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[441],(void **)(void *)&LnkLI441,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */ |
static void LnkT458(ptr) object *ptr;{ call_or_link_closure(VV[458],(void **)(void *)&Lnk458,(void **)(void *)&Lclptr458);} /* COMPUTE-APPLICABLE-METHODS */ |
9485 |
static void LnkT440(ptr) object *ptr;{ call_or_link_closure(VV[440],(void **)(void *)&Lnk440,(void **)(void *)&Lclptr440);} /* GENERIC-FUNCTION-NAME */ |
static void LnkT457(){ call_or_link(VV[457],(void **)(void *)&Lnk457);} /* FIND */ |
9486 |
static void LnkT439(){ call_or_link(VV[439],(void **)(void *)&Lnk439);} /* COMPUTE-APPLICABLE-METHODS-EMF */ |
static object LnkTLI456(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[456],(void **)(void *)&LnkLI456,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-NAME */ |
9487 |
static object LnkTLI438(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[438],(void **)(void *)&LnkLI438,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */ |
static void LnkT455(ptr) object *ptr;{ call_or_link_closure(VV[455],(void **)(void *)&Lnk455,(void **)(void *)&Lclptr455);} /* GENERIC-FUNCTION-NAME */ |
9488 |
static void LnkT437(){ call_or_link(VV[437],(void **)(void *)&Lnk437);} /* RAISE-METATYPE */ |
static void LnkT454(){ call_or_link(VV[454],(void **)(void *)&Lnk454);} /* COMPUTE-APPLICABLE-METHODS-EMF */ |
9489 |
static void LnkT436(ptr) object *ptr;{ call_or_link_closure(VV[436],(void **)(void *)&Lnk436,(void **)(void *)&Lclptr436);} /* GENERIC-FUNCTION-METHOD-COMBINATION */ |
static object LnkTLI453(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[453],(void **)(void *)&LnkLI453,1,first,ap);va_end(ap);return V1;} /* EARLY-GF-P */ |
9490 |
static object LnkTLI435(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[435],(void **)(void *)&LnkLI435,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */ |
static void LnkT452(){ call_or_link(VV[452],(void **)(void *)&Lnk452);} /* RAISE-METATYPE */ |
9491 |
static object LnkTLI434(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[434],(void **)(void *)&LnkLI434,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */ |
static void LnkT451(ptr) object *ptr;{ call_or_link_closure(VV[451],(void **)(void *)&Lnk451,(void **)(void *)&Lclptr451);} /* GENERIC-FUNCTION-METHOD-COMBINATION */ |
9492 |
static void LnkT433(ptr) object *ptr;{ call_or_link_closure(VV[433],(void **)(void *)&Lnk433,(void **)(void *)&Lclptr433);} /* METHOD-SPECIALIZERS */ |
static object LnkTLI450(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[450],(void **)(void *)&LnkLI450,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-CLASS */ |
9493 |
static object LnkTLI432(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[432],(void **)(void *)&LnkLI432,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */ |
static object LnkTLI449(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[449],(void **)(void *)&LnkLI449,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-SPECIALIZERS */ |
9494 |
static void LnkT47(ptr) object *ptr;{ call_or_link_closure(VV[47],(void **)(void *)&Lnk47,(void **)(void *)&Lclptr47);} /* METHOD-LAMBDA-LIST */ |
static void LnkT448(ptr) object *ptr;{ call_or_link_closure(VV[448],(void **)(void *)&Lnk448,(void **)(void *)&Lclptr448);} /* METHOD-SPECIALIZERS */ |
9495 |
static object LnkTLI431(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[431],(void **)(void *)&LnkLI431,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */ |
static object LnkTLI447(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[447],(void **)(void *)&LnkLI447,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-VALID-P */ |
9496 |
static object LnkTLI430(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[430],(void **)(void *)&LnkLI430,6,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO1 */ |
static void LnkT51(ptr) object *ptr;{ call_or_link_closure(VV[51],(void **)(void *)&Lnk51,(void **)(void *)&Lclptr51);} /* METHOD-LAMBDA-LIST */ |
9497 |
static void LnkT429(){ call_or_link(VV[429],(void **)(void *)&Lnk429);} /* CHECK-METHOD-ARG-INFO */ |
static object LnkTLI446(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[446],(void **)(void *)&LnkLI446,1,first,ap);va_end(ap);return V1;} /* EARLY-METHOD-LAMBDA-LIST */ |
9498 |
static object LnkTLI428(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[428],(void **)(void *)&LnkLI428,3,first,ap);va_end(ap);return V1;} /* COMPUTE-PRECEDENCE */ |
static object LnkTLI445(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[445],(void **)(void *)&LnkLI445,6,first,ap);va_end(ap);return V1;} /* SET-ARG-INFO1 */ |
9499 |
static object LnkTLI427(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[427],(void **)(void *)&LnkLI427,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */ |
static void LnkT444(){ call_or_link(VV[444],(void **)(void *)&Lnk444);} /* CHECK-METHOD-ARG-INFO */ |
9500 |
static void LnkT426(ptr) object *ptr;{ call_or_link_closure(VV[426],(void **)(void *)&Lnk426,(void **)(void *)&Lclptr426);} /* GENERIC-FUNCTION-METHODS */ |
static object LnkTLI443(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[443],(void **)(void *)&LnkLI443,3,first,ap);va_end(ap);return V1;} /* COMPUTE-PRECEDENCE */ |
9501 |
static void LnkT425(){ call_or_link(VV[425],(void **)(void *)&Lnk425);} /* COUNT-IF */ |
static object LnkTLI442(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[442],(void **)(void *)&LnkLI442,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */ |
9502 |
static object LnkTLI411(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[411],(void **)(void *)&LnkLI411,1,first,ap);va_end(ap);return V1;} /* GENERIC-CLOBBERS-FUNCTION */ |
static object LnkTLI441(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[441],(void **)(void *)&LnkLI441,1,first,ap);va_end(ap);return V1;} /* GF-LAMBDA-LIST */ |
9503 |
static void LnkT410(){ call_or_link(VV[410],(void **)(void *)&Lnk410);} /* CONCATENATE */ |
static void LnkT440(ptr) object *ptr;{ call_or_link_closure(VV[440],(void **)(void *)&Lnk440,(void **)(void *)&Lclptr440);} /* GENERIC-FUNCTION-METHODS */ |
9504 |
static object LnkTLI409(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[409],(void **)(void *)&LnkLI409,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
static void LnkT439(ptr) object *ptr;{ call_or_link_closure(VV[439],(void **)(void *)&Lnk439,(void **)(void *)&Lclptr439);} /* GF-ARG-INFO */ |
9505 |
static object LnkTLI408(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[408],(void **)(void *)&LnkLI408,1,first,ap);va_end(ap);return V1;} /* KEYWORD-SPEC-NAME */ |
static void LnkT438(){ call_or_link(VV[438],(void **)(void *)&Lnk438);} /* COUNT-IF */ |
9506 |
static void LnkT407(){ call_or_link(VV[407],(void **)(void *)&Lnk407);} /* ANALYZE-LAMBDA-LIST */ |
static void LnkT425(){ call_or_link(VV[425],(void **)(void *)&Lnk425);} /* RESTART-CASE */ |
9507 |
static object LnkTLI405(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[405],(void **)(void *)&LnkLI405,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-FROM-FAST-FUNCTION */ |
static void LnkT424(){ call_or_link(VV[424],(void **)(void *)&Lnk424);} /* CONTINUE */ |
9508 |
static object LnkTLI404(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[404],(void **)(void *)&LnkLI404,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */ |
static object LnkTLI422(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[422],(void **)(void *)&LnkLI422,1,first,ap);va_end(ap);return V1;} /* GENERIC-CLOBBERS-FUNCTION */ |
9509 |
static object LnkTLI402(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[402],(void **)(void *)&LnkLI402,7,first,ap);va_end(ap);return V1;} /* LOAD-DEFMETHOD-INTERNAL */ |
static object LnkTLI421(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[421],(void **)(void *)&LnkLI421,1,first,ap);va_end(ap);return V1;} /* GET-SETF-FUNCTION-NAME */ |
9510 |
static object LnkTLI401(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[401],(void **)(void *)&LnkLI401,first,ap);va_end(ap);return V1;} /* RECORD-DEFINITION */ |
static object LnkTLI420(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[420],(void **)(void *)&LnkLI420,1,first,ap);va_end(ap);return V1;} /* KEYWORD-SPEC-NAME */ |
9511 |
static object LnkTLI400(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[400],(void **)(void *)&LnkLI400,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-SPEC */ |
static void LnkT419(){ call_or_link(VV[419],(void **)(void *)&Lnk419);} /* ANALYZE-LAMBDA-LIST */ |
9512 |
static object LnkTLI210(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[210],(void **)(void *)&LnkLI210,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
static object LnkTLI417(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[417],(void **)(void *)&LnkLI417,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-FROM-FAST-FUNCTION */ |
9513 |
static object LnkTLI399(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[399],(void **)(void *)&LnkLI399,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PLIST */ |
static object LnkTLI416(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[416],(void **)(void *)&LnkLI416,first,ap);va_end(ap);return V1;} /* INTERN-PV-TABLE */ |
9514 |
static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* WARN */ |
static object LnkTLI414(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[414],(void **)(void *)&LnkLI414,7,first,ap);va_end(ap);return V1;} /* LOAD-DEFMETHOD-INTERNAL */ |
9515 |
static void LnkT397(ptr) object *ptr;{ call_or_link_closure(VV[397],(void **)(void *)&Lnk397,(void **)(void *)&Lclptr397);} /* STANDARD-GENERIC-FUNCTION-P */ |
static object LnkTLI413(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[413],(void **)(void *)&LnkLI413,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-SPEC */ |
9516 |
static void LnkT396(){ call_or_link(VV[396],(void **)(void *)&Lnk396);} /* WALK-FORM */ |
static object LnkTLI220(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[220],(void **)(void *)&LnkLI220,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-GET */ |
9517 |
static object LnkTLI395(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[395],(void **)(void *)&LnkLI395,1,first,ap);va_end(ap);return V1;} /* ARG-INFO-APPLYP */ |
static object LnkTLI412(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[412],(void **)(void *)&LnkLI412,1,first,ap);va_end(ap);return V1;} /* METHOD-FUNCTION-PLIST */ |
9518 |
static object LnkTLI394(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[394],(void **)(void *)&LnkLI394,257,first,ap);va_end(ap);return V1;} /* ARG-INFO-NUMBER-REQUIRED */ |
static void LnkT411(ptr) object *ptr;{ call_or_link_closure(VV[411],(void **)(void *)&Lnk411,(void **)(void *)&Lclptr411);} /* STANDARD-GENERIC-FUNCTION-P */ |
9519 |
static void LnkT393(ptr) object *ptr;{ call_or_link_closure(VV[393],(void **)(void *)&Lnk393,(void **)(void *)&Lclptr393);} /* GF-ARG-INFO */ |
static void LnkT410(){ call_or_link(VV[410],(void **)(void *)&Lnk410);} /* WALK-FORM */ |
9520 |
static void LnkT392(){ call_or_link(VV[392],(void **)(void *)&Lnk392);} /* TYPECASE-ERROR-STRING */ |
static void LnkT409(){ call_or_link(VV[409],(void **)(void *)&Lnk409);} /* ERROR */ |
9521 |
static void LnkT132(){ call_or_link(VV[132],(void **)(void *)&Lnk132);} /* SLOT-UNBOUND-INTERNAL */ |
static void LnkT137(){ call_or_link(VV[137],(void **)(void *)&Lnk137);} /* SLOT-UNBOUND-INTERNAL */ |
9522 |
static object LnkTLI391(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[391],(void **)(void *)&LnkLI391,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
static object LnkTLI408(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[408],(void **)(void *)&LnkLI408,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ |
9523 |
static void LnkT390(){ call_or_link(VV[390],(void **)(void *)&Lnk390);} /* CCLOSURE-ENV-NTHCDR */ |
static void LnkT407(){ call_or_link(VV[407],(void **)(void *)&Lnk407);} /* CCLOSURE-ENV-NTHCDR */ |
9524 |
static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* STRUCTURE-SUBTYPE-P */ |
static void LnkT406(){ call_or_link(VV[406],(void **)(void *)&Lnk406);} /* STRUCTURE-SUBTYPE-P */ |
9525 |
static void LnkT388(){ call_or_link(VV[388],(void **)(void *)&Lnk388);} /* MAKE-ARRAY */ |
static void LnkT405(){ call_or_link(VV[405],(void **)(void *)&Lnk405);} /* MAKE-ARRAY */ |
9526 |
static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* SLOT-NAME-LISTS-FROM-SLOTS */ |
static void LnkT396(ptr) object *ptr;{ call_or_link_closure(VV[396],(void **)(void *)&Lnk396,(void **)(void *)&Lclptr396);} /* NO-NEXT-METHOD */ |
9527 |
static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* SOME */ |
static void LnkT397(ptr) object *ptr;{ call_or_link_closure(VV[397],(void **)(void *)&Lnk397,(void **)(void *)&Lclptr397);} /* METHOD-GENERIC-FUNCTION */ |
9528 |
static void LnkT377(){ call_or_link(VV[377],(void **)(void *)&Lnk377);} /* WALK-METHOD-LAMBDA */ |
static void LnkT395(ptr) object *ptr;{ call_or_link_closure(VV[395],(void **)(void *)&Lnk395,(void **)(void *)&Lclptr395);} /* FIND-METHOD */ |
9529 |
static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* TYPEP */ |
static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* DO-ARG-COUNT-ERROR */ |
9530 |
static void LnkT376(){ call_or_link(VV[376],(void **)(void *)&Lnk376);} /* REMOVE */ |
static void LnkT393(){ call_or_link(VV[393],(void **)(void *)&Lnk393);} /* SLOT-NAME-LISTS-FROM-SLOTS */ |
9531 |
static object LnkTLI375(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[375],(void **)(void *)&LnkLI375,5,first,ap);va_end(ap);return V1;} /* MAKE-PARAMETER-REFERENCES */ |
static void LnkT392(){ call_or_link(VV[392],(void **)(void *)&Lnk392);} /* SOME */ |
9532 |
static object LnkTLI374(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[374],(void **)(void *)&LnkLI374,first,ap);va_end(ap);return V1;} /* GET-DECLARATION */ |
static void LnkT390(){ call_or_link(VV[390],(void **)(void *)&Lnk390);} /* WALK-METHOD-LAMBDA */ |
9533 |
static void LnkT373(){ call_or_link(VV[373],(void **)(void *)&Lnk373);} /* MAKE-METHOD-LAMBDA-INTERNAL */ |
static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* TYPEP */ |
9534 |
static object LnkTLI372(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[372],(void **)(void *)&LnkLI372,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL */ |
static object LnkTLI389(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[389],(void **)(void *)&LnkLI389,first,ap);va_end(ap);return V1;} /* GET-DECLARATION */ |
9535 |
static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* EXTRACT-DECLARATIONS */ |
static void LnkT388(){ call_or_link(VV[388],(void **)(void *)&Lnk388);} /* MAKE-METHOD-LAMBDA-INTERNAL */ |
9536 |
static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* PARSE-SPECIALIZED-LAMBDA-LIST */ |
static object LnkTLI387(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[387],(void **)(void *)&LnkLI387,3,first,ap);va_end(ap);return V1;} /* MAKE-METHOD-INITARGS-FORM-INTERNAL */ |
9537 |
static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* MAKE-METHOD-FUNCTION-INTERNAL */ |
static void LnkT386(){ call_or_link(VV[386],(void **)(void *)&Lnk386);} /* EXTRACT-DECLARATIONS */ |
9538 |
static object LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)(void *)&LnkLI368,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM-INTERNAL */ |
static void LnkT385(){ call_or_link(VV[385],(void **)(void *)&Lnk385);} /* PARSE-SPECIALIZED-LAMBDA-LIST */ |
9539 |
static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* EVERY */ |
static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* MAKE-METHOD-FUNCTION-INTERNAL */ |
9540 |
static object LnkTLI365(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[365],(void **)(void *)&LnkLI365,1,first,ap);va_end(ap);return V1;} /* INTERNED-SYMBOL-P */ |
static object LnkTLI383(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[383],(void **)(void *)&LnkLI383,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM-INTERNAL */ |
9541 |
static void LnkT364(ptr) object *ptr;{ call_or_link_closure(VV[364],(void **)(void *)&Lnk364,(void **)(void *)&Lclptr364);} /* CLASS-NAME */ |
static void LnkT381(){ call_or_link(VV[381],(void **)(void *)&Lnk381);} /* EVERY */ |
9542 |
static object LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
static object LnkTLI380(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[380],(void **)(void *)&LnkLI380,1,first,ap);va_end(ap);return V1;} /* INTERNED-SYMBOL-P */ |
9543 |
static object LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[362],(void **)(void *)&LnkLI362,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM */ |
static void LnkT379(ptr) object *ptr;{ call_or_link_closure(VV[379],(void **)(void *)&Lnk379,(void **)(void *)&Lclptr379);} /* CLASS-NAME */ |
9544 |
static void LnkT361(ptr) object *ptr;{ call_or_link_closure(VV[361],(void **)(void *)&Lnk361,(void **)(void *)&Lclptr361);} /* MAKE-METHOD-INITARGS-FORM */ |
static object LnkTLI378(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[378],(void **)(void *)&LnkLI378,1,first,ap);va_end(ap);return V1;} /* CLASS-OF */ |
9545 |
static void LnkT360(ptr) object *ptr;{ call_or_link_closure(VV[360],(void **)(void *)&Lnk360,(void **)(void *)&Lclptr360);} /* MAKE-METHOD-LAMBDA */ |
static object LnkTLI377(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[377],(void **)(void *)&LnkLI377,first,ap);va_end(ap);return V1;} /* MAKE-DEFMETHOD-FORM */ |
9546 |
static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* ADD-METHOD-DECLARATIONS */ |
static void LnkT376(ptr) object *ptr;{ call_or_link_closure(VV[376],(void **)(void *)&Lnk376,(void **)(void *)&Lclptr376);} /* MAKE-METHOD-INITARGS-FORM */ |
9547 |
static void LnkT358(ptr) object *ptr;{ call_or_link_closure(VV[358],(void **)(void *)&Lnk358,(void **)(void *)&Lclptr358);} /* GENERIC-FUNCTION-METHOD-CLASS */ |
static void LnkT375(ptr) object *ptr;{ call_or_link_closure(VV[375],(void **)(void *)&Lnk375,(void **)(void *)&Lclptr375);} /* MAKE-METHOD-LAMBDA */ |
9548 |
static void LnkT302(ptr) object *ptr;{ call_or_link_closure(VV[302],(void **)(void *)&Lnk302,(void **)(void *)&Lclptr302);} /* CLASS-PROTOTYPE */ |
static void LnkT374(){ call_or_link(VV[374],(void **)(void *)&Lnk374);} /* ADD-METHOD-DECLARATIONS */ |
9549 |
static object LnkTLI291(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[291],(void **)(void *)&LnkLI291,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
static void LnkT373(ptr) object *ptr;{ call_or_link_closure(VV[373],(void **)(void *)&Lnk373,(void **)(void *)&Lclptr373);} /* GENERIC-FUNCTION-METHOD-CLASS */ |
9550 |
static void LnkT357(ptr) object *ptr;{ call_or_link_closure(VV[357],(void **)(void *)&Lnk357,(void **)(void *)&Lclptr357);} /* GENERIC-FUNCTION-P */ |
static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* CLASS-PROTOTYPE */ |
9551 |
static object LnkTLI347(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[347],(void **)(void *)&LnkLI347,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
static object LnkTLI304(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[304],(void **)(void *)&LnkLI304,first,ap);va_end(ap);return V1;} /* FIND-CLASS */ |
9552 |
static object LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)(void *)&LnkLI356,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */ |
static void LnkT372(ptr) object *ptr;{ call_or_link_closure(VV[372],(void **)(void *)&Lnk372,(void **)(void *)&Lclptr372);} /* GENERIC-FUNCTION-P */ |
9553 |
static object LnkTLI355(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[355],(void **)(void *)&LnkLI355,7,first,ap);va_end(ap);return V1;} /* EXPAND-DEFMETHOD */ |
static object LnkTLI362(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[362],(void **)(void *)&LnkLI362,1,first,ap);va_end(ap);return V1;} /* GDEFINITION */ |
9554 |
static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */ |
static object LnkTLI371(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[371],(void **)(void *)&LnkLI371,1,first,ap);va_end(ap);return V1;} /* GBOUNDP */ |
9555 |
static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* PARSE-DEFMETHOD */ |
static object LnkTLI370(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[370],(void **)(void *)&LnkLI370,7,first,ap);va_end(ap);return V1;} /* EXPAND-DEFMETHOD */ |
9556 |
static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* ENSURE-GENERIC-FUNCTION */ |
static void LnkT369(){ call_or_link(VV[369],(void **)(void *)&Lnk369);} /* PROTOTYPES-FOR-MAKE-METHOD-LAMBDA */ |
9557 |
static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* LOAD-TRUENAME */ |
static void LnkT368(){ call_or_link(VV[368],(void **)(void *)&Lnk368);} /* PARSE-DEFMETHOD */ |
9558 |
static object LnkTLI350(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[350],(void **)(void *)&LnkLI350,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* ENSURE-GENERIC-FUNCTION */ |
9559 |
static object LnkTLI349(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[349],(void **)(void *)&LnkLI349,1,first,ap);va_end(ap);return V1;} /* DO-STANDARD-DEFSETF-1 */ |
static void LnkT366(){ call_or_link(VV[366],(void **)(void *)&Lnk366);} /* LOAD-TRUENAME */ |
9560 |
static object LnkTLI348(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[348],(void **)(void *)&LnkLI348,3,first,ap);va_end(ap);return V1;} /* EXPAND-DEFGENERIC */ |
static object LnkTLI365(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[365],(void **)(void *)&LnkLI365,3,first,ap);va_end(ap);return V1;} /* MAKE-TOP-LEVEL-FORM */ |
9561 |
static void LnkT346(){ call_or_link(VV[346],(void **)(void *)&Lnk346);} /* SET-FUNCTION-NAME */ |
static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* SPECIFIC-ERROR */ |
9562 |
|
static object LnkTLI363(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[363],(void **)(void *)&LnkLI363,3,first,ap);va_end(ap);return V1;} /* EXPAND-DEFGENERIC */ |
9563 |
|
static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* SET-FUNCTION-NAME */ |
9564 |
|
|
9565 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
9566 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |