2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_conditions.h" |
#include "clcs_conditions.h" |
4 |
void init_clcs_conditions(){do_init(VV);} |
void init_clcs_conditions(){do_init(VV);} |
5 |
/* local entry for function progn 'compile2184 */ |
/* local entry for function progn 'compile2186 */ |
6 |
|
|
7 |
static object LI1() |
static object LI1() |
8 |
|
|
25 |
base[0]=base[0]; |
base[0]=base[0]; |
26 |
return Cnil; |
return Cnil; |
27 |
} |
} |
28 |
/* local entry for function progn 'compile2200 */ |
/* local entry for function progn 'compile2202 */ |
29 |
|
|
30 |
static object LI2() |
static object LI2() |
31 |
|
|
41 |
base[0]=base[0]; |
base[0]=base[0]; |
42 |
return Cnil; |
return Cnil; |
43 |
} |
} |
44 |
/* local entry for function progn 'compile2212 */ |
/* local entry for function progn 'compile2214 */ |
45 |
|
|
46 |
static object LI3() |
static object LI3() |
47 |
|
|
48 |
{ VMB3 VMS3 VMV3 |
{ VMB3 VMS3 VMV3 |
49 |
goto TTL; |
goto TTL; |
50 |
TTL:; |
TTL:; |
51 |
base[0]= VV[1]; |
if(!((VV[1])->s.s_dbind!=OBJNULL)){ |
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
52 |
goto T8;} |
goto T8;} |
53 |
goto T7; |
goto T7; |
54 |
goto T8; |
goto T8; |
55 |
T8:; |
T8:; |
56 |
setq(VV[1],Cnil); |
(VV[1]->s.s_dbind)= Cnil; |
57 |
goto T7; |
goto T7; |
58 |
T7:; |
T7:; |
59 |
{object V3 = Cnil; |
{object V3 = Cnil; |
60 |
VMR3(V3)} |
VMR3(V3)} |
|
base[0]=base[0]; |
|
61 |
return Cnil; |
return Cnil; |
62 |
} |
} |
63 |
/* local entry for function progn 'compile2225 */ |
/* local entry for function progn 'compile2227 */ |
64 |
|
|
65 |
static object LI4() |
static object LI4() |
66 |
|
|
76 |
static void L5() |
static void L5() |
77 |
{register object *base=vs_base; |
{register object *base=vs_base; |
78 |
register object *sup=base+VM5; VC5 |
register object *sup=base+VM5; VC5 |
79 |
vs_reserve(VM5); |
vs_check; |
|
check_arg(2); |
|
80 |
vs_top=sup; |
vs_top=sup; |
81 |
{object V5=base[0]->c.c_cdr; |
{object V5=base[0]->c.c_cdr; |
|
if(endp(V5))invalid_macro_call(); |
|
82 |
base[2]= (V5->c.c_car); |
base[2]= (V5->c.c_car); |
83 |
V5=V5->c.c_cdr; |
V5=V5->c.c_cdr; |
|
if(endp(V5))invalid_macro_call(); |
|
84 |
base[3]= (V5->c.c_car); |
base[3]= (V5->c.c_car); |
85 |
V5=V5->c.c_cdr; |
V5=V5->c.c_cdr; |
|
if(endp(V5))invalid_macro_call(); |
|
86 |
base[4]= (V5->c.c_car); |
base[4]= (V5->c.c_car); |
87 |
V5=V5->c.c_cdr; |
V5=V5->c.c_cdr; |
88 |
base[5]= V5;} |
base[5]= V5;} |
89 |
if((base[3])!=Cnil){ |
if((base[3])!=Cnil){ |
90 |
goto T13;} |
goto T12;} |
91 |
if((base[2])==(VV[2])){ |
if((base[2])==(VV[2])){ |
92 |
goto T13;} |
goto T12;} |
93 |
base[3]= make_cons(VV[2],Cnil); |
base[3]= make_cons(VV[2],Cnil); |
94 |
goto T13; |
goto T12; |
95 |
T13:; |
T12:; |
96 |
{register object V6; |
{register object V6; |
97 |
register object V7; |
register object V7; |
98 |
V6= Cnil; |
V6= Cnil; |
99 |
V7= Cnil; |
V7= Cnil; |
100 |
{register object V8; |
{register object V8; |
101 |
V8= base[5]; |
V8= base[5]; |
102 |
|
goto T22; |
103 |
|
T22:; |
104 |
|
if(((V8))!=Cnil){ |
105 |
|
goto T23;} |
106 |
|
goto T20; |
107 |
goto T23; |
goto T23; |
108 |
T23:; |
T23:; |
|
if(((V8))!=Cnil){ |
|
|
goto T24;} |
|
|
goto T21; |
|
|
goto T24; |
|
|
T24:; |
|
109 |
{register object V9; |
{register object V9; |
110 |
V9= car((V8)); |
V9= CMPcar((V8)); |
111 |
{object V10= car((V9)); |
{object V10= CMPcar((V9)); |
112 |
if((V10!= VV[51]))goto T30; |
if((V10!= VV[51]))goto T29; |
113 |
if(!(type_of(cadr((V9)))==t_string)){ |
if(!(type_of(CMPcadr((V9)))==t_string)){ |
114 |
goto T33;} |
goto T32;} |
115 |
V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],cadr((V9)),VV[7])); |
V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],CMPcadr((V9)),VV[7])); |
116 |
goto T31; |
goto T30; |
117 |
goto T33; |
goto T32; |
118 |
T33:; |
T32:; |
119 |
V6= cadr((V9)); |
V6= CMPcadr((V9)); |
|
goto T31; |
|
|
T31:; |
|
|
goto T28; |
|
120 |
goto T30; |
goto T30; |
121 |
T30:; |
T30:; |
122 |
if((V10!= VV[52]))goto T35; |
goto T27; |
123 |
V7= cadr((V9)); |
goto T29; |
124 |
goto T28; |
T29:; |
125 |
goto T35; |
if((V10!= VV[52]))goto T34; |
126 |
T35:; |
V7= CMPcadr((V9)); |
127 |
|
goto T27; |
128 |
|
goto T34; |
129 |
|
T34:; |
130 |
(void)((VFUN_NARGS=3,(*(LnkLI53))(VV[8],VV[9],(V9))));}} |
(void)((VFUN_NARGS=3,(*(LnkLI53))(VV[8],VV[9],(V9))));}} |
131 |
goto T28; |
goto T27; |
132 |
T28:; |
T27:; |
133 |
V8= cdr((V8)); |
V8= CMPcdr((V8)); |
134 |
goto T23;} |
goto T22;} |
135 |
goto T21; |
goto T20; |
136 |
T21:; |
T20:; |
137 |
V11= list(4,VV[12],base[2],base[3],base[4]); |
V11= list(4,VV[12],base[2],base[3],base[4]); |
138 |
{object V13; |
{object V13; |
139 |
object V14= base[4]; |
object V14= base[4]; |
140 |
if(endp(V14)){ |
if(V14==Cnil){ |
141 |
V12= Cnil; |
V12= Cnil; |
142 |
goto T40;} |
goto T39;} |
143 |
base[6]=V13=MMcons(Cnil,Cnil); |
base[6]=V13=MMcons(Cnil,Cnil); |
144 |
goto T41; |
goto T40; |
145 |
T41:; |
T40:; |
146 |
{object V16; |
{object V16; |
147 |
base[8]= cdr((V14->c.c_car)); |
base[8]= CMPcdr((V14->c.c_car)); |
148 |
base[9]= VV[17]; |
base[9]= VV[17]; |
149 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
150 |
Lgetf(); |
Lgetf(); |
151 |
vs_top=sup; |
vs_top=sup; |
152 |
V16= vs_base[0]; |
V16= vs_base[0]; |
153 |
if(((V16))==Cnil){ |
if(((V16))==Cnil){ |
154 |
goto T47;}{object V18; |
goto T46;}{object V18; |
155 |
base[8]= cdr((V14->c.c_car)); |
base[8]= CMPcdr((V14->c.c_car)); |
156 |
base[9]= VV[18]; |
base[9]= VV[18]; |
157 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
158 |
Lgetf(); |
Lgetf(); |
159 |
vs_top=sup; |
vs_top=sup; |
160 |
V18= vs_base[0]; |
V18= vs_base[0]; |
161 |
if(V18==Cnil)goto T50; |
if(V18==Cnil)goto T49; |
162 |
V17= V18; |
V17= V18; |
163 |
|
goto T48; |
164 |
goto T49; |
goto T49; |
165 |
goto T50; |
T49:;} |
|
T50:;} |
|
166 |
V17= Ct; |
V17= Ct; |
167 |
goto T49; |
goto T48; |
168 |
T49:; |
T48:; |
169 |
V19= make_cons((V16),V17); |
V19= make_cons((V16),V17); |
170 |
(V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil); |
(V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil); |
171 |
goto T42; |
goto T41; |
172 |
goto T47; |
goto T46; |
173 |
T47:; |
T46:; |
174 |
(V13->c.c_cdr)= Cnil;} |
(V13->c.c_cdr)= Cnil;} |
175 |
goto T42; |
goto T41; |
176 |
T42:; |
T41:; |
177 |
{object cdr_V13=MMcdr(V13);while(!endp(cdr_V13)) {cdr_V13=MMcdr(cdr_V13);V13=MMcdr(V13);}} |
while(MMcdr(V13)!=Cnil)V13=MMcdr(V13); |
178 |
V14=MMcdr(V14); |
if((V14=MMcdr(V14))==Cnil){ |
|
if(endp(V14)){ |
|
179 |
base[6]=base[6]->c.c_cdr; |
base[6]=base[6]->c.c_cdr; |
180 |
V12= base[6]; |
V12= base[6]; |
181 |
|
goto T39;} |
182 |
goto T40;} |
goto T40;} |
183 |
goto T41;} |
goto T39; |
184 |
goto T40; |
T39:; |
|
T40:; |
|
185 |
V20= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V12)),VV[1]); |
V20= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V12)),VV[1]); |
186 |
V21= list(4,VV[13],VV[14],/* INLINE-ARGS */V20,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil)); |
V21= list(4,VV[13],VV[14],/* INLINE-ARGS */V20,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil)); |
187 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
188 |
goto T56;} |
goto T55;} |
189 |
V23= list(2,list(2,VV[24],base[2]),VV[7]); |
V23= list(2,list(2,VV[24],base[2]),VV[7]); |
190 |
V24= list(4,VV[22],VV[23],/* INLINE-ARGS */V23,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28]))); |
V24= list(4,VV[22],VV[23],/* INLINE-ARGS */V23,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28]))); |
191 |
V22= make_cons(/* INLINE-ARGS */V24,Cnil); |
V22= make_cons(/* INLINE-ARGS */V24,Cnil); |
192 |
goto T54; |
goto T53; |
193 |
goto T56; |
goto T55; |
194 |
T56:; |
T55:; |
195 |
V22= Cnil; |
V22= Cnil; |
196 |
goto T54; |
goto T53; |
197 |
T54:; |
T53:; |
198 |
V25= list(2,VV[16],base[2]); |
V25= list(2,VV[16],base[2]); |
199 |
V26= make_cons(/* INLINE-ARGS */V25,Cnil); |
V26= make_cons(/* INLINE-ARGS */V25,Cnil); |
200 |
base[6]= listA(5,VV[10],VV[11],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26)); |
base[6]= listA(5,VV[10],VV[11],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26)); |
201 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
202 |
return;} |
return;} |
203 |
} |
} |
204 |
/* function definition for Defclass CONDITION2302 */ |
/* function definition for Defclass CONDITION2304 */ |
205 |
|
|
206 |
static void L6() |
static void L6() |
207 |
{register object *base=vs_base; |
{register object *base=vs_base; |
208 |
register object *sup=base+VM6; VC6 |
register object *sup=base+VM6; VC6 |
209 |
vs_reserve(VM6); |
vs_check; |
|
check_arg(0); |
|
210 |
vs_top=sup; |
vs_top=sup; |
211 |
goto TTL; |
goto TTL; |
212 |
TTL:; |
TTL:; |
219 |
symlispcall(VV[54],base+0,6); |
symlispcall(VV[54],base+0,6); |
220 |
return; |
return; |
221 |
} |
} |
222 |
/* local entry for function progn 'compile2318 */ |
/* local entry for function progn 'compile2320 */ |
223 |
|
|
224 |
static object LI7() |
static object LI7() |
225 |
|
|
234 |
base[0]=base[0]; |
base[0]=base[0]; |
235 |
return Cnil; |
return Cnil; |
236 |
} |
} |
237 |
/* local entry for function progn 'compile2335 */ |
/* local entry for function progn 'compile2337 */ |
238 |
|
|
239 |
static object LI8() |
static object LI8() |
240 |
|
|
242 |
goto TTL; |
goto TTL; |
243 |
TTL:; |
TTL:; |
244 |
base[0]= VV[30]; |
base[0]= VV[30]; |
245 |
base[1]= symbol_value(VV[1]); |
base[1]= (VV[1]->s.s_dbind); |
246 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
247 |
Ladjoin(); |
Ladjoin(); |
248 |
vs_top=sup; |
vs_top=sup; |
249 |
setq(VV[1],vs_base[0]); |
(VV[1]->s.s_dbind)= vs_base[0]; |
250 |
{object V29 = Cnil; |
{object V29 = Cnil; |
251 |
VMR8(V29)} |
VMR8(V29)} |
252 |
base[0]=base[0]; |
base[0]=base[0]; |
253 |
return Cnil; |
return Cnil; |
254 |
} |
} |
255 |
/* local entry for function progn 'compile2359 */ |
/* local entry for function progn 'compile2361 */ |
256 |
|
|
257 |
static object LI9() |
static object LI9() |
258 |
|
|
264 |
VMR9(V30)} |
VMR9(V30)} |
265 |
return Cnil; |
return Cnil; |
266 |
} |
} |
267 |
/* local entry for function progn 'compile2371 */ |
/* local entry for function progn 'compile2373 */ |
268 |
|
|
269 |
static object LI10() |
static object LI10() |
270 |
|
|
275 |
VMR10(V31)} |
VMR10(V31)} |
276 |
return Cnil; |
return Cnil; |
277 |
} |
} |
278 |
/* local entry for function progn 'compile2387 */ |
/* local entry for function progn 'compile2389 */ |
279 |
|
|
280 |
static object LI11() |
static object LI11() |
281 |
|
|
287 |
Lfboundp(); |
Lfboundp(); |
288 |
vs_top=sup; |
vs_top=sup; |
289 |
if((vs_base[0])==Cnil){ |
if((vs_base[0])==Cnil){ |
290 |
goto T71;} |
goto T70;} |
291 |
base[0]=symbol_function(VV[32]); |
base[0]=VV[32]->s.s_gfdef; |
292 |
{ |
{ |
293 |
object V32= VV[33]; |
object V32= VV[33]; |
294 |
if(endp(V32)){ |
if(V32==Cnil){ |
295 |
goto T71;} |
goto T70;} |
296 |
goto T75; |
goto T74; |
297 |
T75:; |
T74:; |
298 |
base[1]= (V32->c.c_car); |
base[1]= (V32->c.c_car); |
299 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
300 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
301 |
vs_top=sup; |
vs_top=sup; |
302 |
V32=MMcdr(V32); |
if((V32=MMcdr(V32))==Cnil){ |
303 |
if(endp(V32)){ |
goto T70;} |
304 |
goto T71;} |
goto T74;} |
305 |
goto T75;} |
goto T70; |
306 |
goto T71; |
T70:; |
|
T71:; |
|
307 |
{object V33 = Cnil; |
{object V33 = Cnil; |
308 |
VMR11(V33)} |
VMR11(V33)} |
309 |
base[0]=base[0]; |
base[0]=base[0]; |
327 |
base[0]=base[0]; |
base[0]=base[0]; |
328 |
return Cnil; |
return Cnil; |
329 |
} |
} |
330 |
/* local entry for function progn 'compile2411 */ |
/* local entry for function progn 'compile2413 */ |
331 |
|
|
332 |
static object LI13() |
static object LI13() |
333 |
|
|
352 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
353 |
goto TTL; |
goto TTL; |
354 |
TTL:; |
TTL:; |
355 |
if((symbol_value(VV[26]))==Cnil){ |
if(((VV[26]->s.s_dbind))==Cnil){ |
356 |
goto T87;} |
goto T86;} |
357 |
base[0]= (V45); |
base[0]= (V45); |
358 |
base[1]= VV[35]; |
base[1]= VV[35]; |
359 |
base[4]= (V44); |
base[4]= (V44); |
371 |
vs_top=sup; |
vs_top=sup; |
372 |
{object V47 = vs_base[0]; |
{object V47 = vs_base[0]; |
373 |
VMR14(V47)} |
VMR14(V47)} |
374 |
goto T87; |
goto T86; |
375 |
T87:; |
T86:; |
376 |
base[0]= (V45); |
base[0]= (V45); |
377 |
base[1]= VV[36]; |
base[1]= VV[36]; |
378 |
base[3]= (V44); |
base[3]= (V44); |
388 |
base[0]=base[0]; |
base[0]=base[0]; |
389 |
return Cnil; |
return Cnil; |
390 |
} |
} |
391 |
/* local entry for function progn 'compile2480 */ |
/* local entry for function progn 'compile2482 */ |
392 |
|
|
393 |
static object LI15() |
static object LI15() |
394 |
|
|
400 |
base[2]= Cnil; |
base[2]= Cnil; |
401 |
base[3]= VV[38]; |
base[3]= VV[38]; |
402 |
base[4]= VV[39]; |
base[4]= VV[39]; |
403 |
V49= symbol_function(VV[61]); |
V49= (VV[61]->s.s_gfdef); |
404 |
base[5]= listA(3,VV[40],V49,VV[41]); |
base[5]= listA(3,VV[40],V49,VV[41]); |
405 |
base[6]= Cnil; |
base[6]= Cnil; |
406 |
vs_top=(vs_base=base+0)+7; |
vs_top=(vs_base=base+0)+7; |
411 |
base[0]=base[0]; |
base[0]=base[0]; |
412 |
return Cnil; |
return Cnil; |
413 |
} |
} |
414 |
/* local entry for function progn 'compile2492 */ |
/* local entry for function progn 'compile2494 */ |
415 |
|
|
416 |
static object LI16() |
static object LI16() |
417 |
|
|
427 |
base[0]=base[0]; |
base[0]=base[0]; |
428 |
return Cnil; |
return Cnil; |
429 |
} |
} |
430 |
/* local entry for function progn 'compile2504 */ |
/* local entry for function progn 'compile2506 */ |
431 |
|
|
432 |
static object LI17() |
static object LI17() |
433 |
|
|
434 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
435 |
goto TTL; |
goto TTL; |
436 |
TTL:; |
TTL:; |
437 |
base[0]= VV[42]; |
if(!((VV[42])->s.s_dbind!=OBJNULL)){ |
438 |
vs_top=(vs_base=base+0)+1; |
goto T110;} |
439 |
Lboundp(); |
goto T109; |
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T111;} |
|
440 |
goto T110; |
goto T110; |
441 |
goto T111; |
T110:; |
|
T111:; |
|
442 |
base[0]= VV[2]; |
base[0]= VV[2]; |
443 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
444 |
(void) (*Lnk63)(); |
(void) (*Lnk63)(); |
445 |
vs_top=sup; |
vs_top=sup; |
446 |
setq(VV[42],vs_base[0]); |
(VV[42]->s.s_dbind)= vs_base[0]; |
447 |
goto T110; |
goto T109; |
448 |
T110:; |
T109:; |
449 |
{object V52 = Cnil; |
{object V52 = Cnil; |
450 |
VMR17(V52)} |
VMR17(V52)} |
451 |
base[0]=base[0]; |
base[0]=base[0]; |
452 |
return Cnil; |
return Cnil; |
453 |
} |
} |
454 |
/* local entry for function progn 'compile2517 */ |
/* local entry for function progn 'compile2519 */ |
455 |
|
|
456 |
static object LI18() |
static object LI18() |
457 |
|
|
471 |
goto TTL; |
goto TTL; |
472 |
TTL:; |
TTL:; |
473 |
if(!(type_of((V55))==t_symbol)){ |
if(!(type_of((V55))==t_symbol)){ |
474 |
goto T117;} |
goto T115;} |
475 |
base[0]= (V55); |
base[0]= (V55); |
476 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
477 |
(void) (*Lnk63)(); |
(void) (*Lnk63)(); |
478 |
vs_top=sup; |
vs_top=sup; |
479 |
V55= vs_base[0]; |
V55= vs_base[0]; |
480 |
goto T117; |
goto T115; |
481 |
T117:; |
T115:; |
482 |
base[0]= (V55); |
base[0]= (V55); |
483 |
base[1]= VV[29]; |
base[1]= VV[29]; |
484 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
485 |
(void) (*Lnk56)(); |
(void) (*Lnk56)(); |
486 |
vs_top=sup; |
vs_top=sup; |
487 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
488 |
goto T122;} |
goto T120;} |
489 |
{object V56 = Cnil; |
{object V56 = Cnil; |
490 |
VMR19(V56)} |
VMR19(V56)} |
491 |
goto T122; |
goto T120; |
492 |
T122:;{object V58; |
T120:;{object V58; |
493 |
V58= symbol_value(VV[42]); |
V58= (VV[42]->s.s_dbind); |
494 |
base[0]= (V55); |
base[0]= (V55); |
495 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
496 |
(void) (*Lnk64)(Lclptr64); |
(void) (*Lnk64)(Lclptr64); |
497 |
vs_top=sup; |
vs_top=sup; |
498 |
V59= vs_base[0]; |
V59= vs_base[0]; |
499 |
{register object x= V58,V57= V59; |
{register object x= V58,V57= V59; |
500 |
while(!endp(V57)) |
while(V57!=Cnil) |
501 |
if(eql(x,V57->c.c_car)){ |
if(eql(x,V57->c.c_car)){ |
502 |
{object V60 = V57; |
{object V60 = V57; |
503 |
VMR19(V60)} |
VMR19(V60)} |
512 |
static void L20() |
static void L20() |
513 |
{register object *base=vs_base; |
{register object *base=vs_base; |
514 |
register object *sup=base+VM20; VC20 |
register object *sup=base+VM20; VC20 |
515 |
vs_reserve(VM20); |
vs_check; |
516 |
{register object V62; |
{register object V62; |
517 |
object V63; |
object V63; |
|
if(vs_top-vs_base<1) too_few_arguments(); |
|
518 |
V62=(base[0]); |
V62=(base[0]); |
519 |
vs_base=vs_base+1; |
vs_base=vs_base+1; |
520 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
523 |
V63=(base[1]); |
V63=(base[1]); |
524 |
vs_top=sup; |
vs_top=sup; |
525 |
if(((*(LnkLI65))((V62)))!=Cnil){ |
if(((*(LnkLI65))((V62)))!=Cnil){ |
526 |
goto T128;} |
goto T126;} |
527 |
base[2]= VV[43]; |
base[2]= VV[43]; |
528 |
base[3]= VV[44]; |
base[3]= VV[44]; |
529 |
base[4]= (V62); |
base[4]= (V62); |
536 |
vs_top=(vs_base=base+2)+9; |
vs_top=(vs_base=base+2)+9; |
537 |
(void) (*Lnk66)(); |
(void) (*Lnk66)(); |
538 |
vs_top=sup; |
vs_top=sup; |
539 |
goto T128; |
goto T126; |
540 |
T128:; |
T126:; |
541 |
base[2]=symbol_function(VV[67]); |
base[2]=VV[67]->s.s_gfdef; |
542 |
base[3]= (V62); |
base[3]= (V62); |
543 |
{object V64; |
{object V64; |
544 |
V64= (V63); |
V64= (V63); |
545 |
vs_top=base+4; |
vs_top=base+4; |
546 |
while(!endp(V64)) |
while(V64!=Cnil) |
547 |
{vs_push(car(V64));V64=cdr(V64);} |
{vs_push((V64)->c.c_car);V64=(V64)->c.c_cdr;} |
548 |
vs_base=base+3;} |
vs_base=base+3;} |
549 |
(void) (*Lnk67)(Lclptr67); |
(void) (*Lnk67)(Lclptr67); |
550 |
return; |
return; |
562 |
static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* PROCLAIM-DEFGENERIC */ |
static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* PROCLAIM-DEFGENERIC */ |
563 |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* TYPEP */ |
static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* TYPEP */ |
564 |
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */ |
565 |
static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* Defclass CONDITION2302 */ |
static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* Defclass CONDITION2304 */ |
566 |
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CERROR */ |
static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CERROR */ |
567 |
static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* *MAKE-SPECIAL */ |
static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* *MAKE-SPECIAL */ |
568 |
static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */ |
static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */ |