2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_kcl_cond.h" |
#include "clcs_kcl_cond.h" |
4 |
void init_clcs_kcl_cond(){do_init(VV);} |
void init_clcs_kcl_cond(){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 |
|
|
18 |
base[0]=base[0]; |
base[0]=base[0]; |
19 |
return Cnil; |
return Cnil; |
20 |
} |
} |
21 |
/* local entry for function progn 'compile2196 */ |
/* local entry for function progn 'compile2198 */ |
22 |
|
|
23 |
static object LI2() |
static object LI2() |
24 |
|
|
25 |
{ VMB2 VMS2 VMV2 |
{ VMB2 VMS2 VMV2 |
26 |
goto TTL; |
goto TTL; |
27 |
TTL:; |
TTL:; |
28 |
base[0]= VV[0]; |
if(!((VV[0])->s.s_dbind!=OBJNULL)){ |
|
vs_top=(vs_base=base+0)+1; |
|
|
Lboundp(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
29 |
goto T4;} |
goto T4;} |
30 |
goto T3; |
goto T3; |
31 |
goto T4; |
goto T4; |
35 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
36 |
Lmake_hash_table(); |
Lmake_hash_table(); |
37 |
vs_top=sup; |
vs_top=sup; |
38 |
setq(VV[0],vs_base[0]); |
(VV[0]->s.s_dbind)= vs_base[0]; |
39 |
goto T3; |
goto T3; |
40 |
T3:; |
T3:; |
41 |
{object V2 = Cnil; |
{object V2 = Cnil; |
43 |
base[0]=base[0]; |
base[0]=base[0]; |
44 |
return Cnil; |
return Cnil; |
45 |
} |
} |
46 |
/* local entry for function progn 'compile2209 */ |
/* local entry for function progn 'compile2211 */ |
47 |
|
|
48 |
static object LI3() |
static object LI3() |
49 |
|
|
59 |
static void L4() |
static void L4() |
60 |
{register object *base=vs_base; |
{register object *base=vs_base; |
61 |
register object *sup=base+VM4; VC4 |
register object *sup=base+VM4; VC4 |
62 |
vs_reserve(VM4); |
vs_check; |
|
check_arg(2); |
|
63 |
vs_top=sup; |
vs_top=sup; |
64 |
{object V4=base[0]->c.c_cdr; |
{object V4=base[0]->c.c_cdr; |
65 |
if(endp(V4))invalid_macro_call(); |
base[2]= (V4->c.c_car);} |
|
base[2]= (V4->c.c_car); |
|
|
V4=V4->c.c_cdr; |
|
|
if(!endp(V4))invalid_macro_call();} |
|
66 |
base[3]= list(3,VV[3],list(2,VV[4],base[2]),VV[0]); |
base[3]= list(3,VV[3],list(2,VV[4],base[2]),VV[0]); |
67 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
68 |
return; |
return; |
72 |
static void L5() |
static void L5() |
73 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
74 |
register object *VOL sup=base+VM5; VC5 |
register object *VOL sup=base+VM5; VC5 |
75 |
vs_reserve(VM5); |
vs_check; |
76 |
bds_check; |
bds_check; |
77 |
{VOL object V5; |
{VOL object V5; |
78 |
VOL object V6; |
VOL object V6; |
79 |
VOL object V7; |
VOL object V7; |
80 |
VOL object V8; |
VOL object V8; |
|
if(vs_top-vs_base<5) too_few_arguments(); |
|
81 |
V5=(base[0]); |
V5=(base[0]); |
82 |
V6=(base[1]); |
V6=(base[1]); |
83 |
V7=(base[2]); |
V7=(base[2]); |
91 |
vs_top=sup; |
vs_top=sup; |
92 |
{VOL object V9; |
{VOL object V9; |
93 |
base[6]= make_cons((V5),Cnil); |
base[6]= make_cons((V5),Cnil); |
94 |
base[7]= symbol_value(VV[0]); |
base[7]= (VV[0]->s.s_dbind); |
95 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
96 |
Lgethash(); |
Lgethash(); |
97 |
vs_top=sup; |
vs_top=sup; |
98 |
V9= vs_base[0]; |
V9= vs_base[0]; |
99 |
if(((V9))==Cnil){ |
if(((V9))==Cnil){ |
100 |
goto T15;} |
goto T14;} |
101 |
{VOL object V10; |
{VOL object V10; |
102 |
V10= car((V9)); |
V10= CMPcar((V9)); |
103 |
if(((V6))==Cnil){ |
if(((V6))==Cnil){ |
104 |
goto T19;} |
goto T18;} |
105 |
base[6]=MMcons(Cnil,base[5]); |
base[6]=MMcons(Cnil,base[5]); |
106 |
base[7]=alloc_frame_id(); |
base[7]=alloc_frame_id(); |
107 |
base[7]=MMcons(base[7],base[6]); |
base[7]=MMcons(base[7],base[6]); |
108 |
frs_push(FRS_CATCH,(base[7]->c.c_car)); |
frs_push(FRS_CATCH,(base[7]->c.c_car)); |
109 |
if(nlj_active){ |
if(nlj_active){ |
110 |
nlj_active=FALSE; |
nlj_active=FALSE; |
111 |
if(eql(nlj_tag,VV[14]))goto T22; |
if(eql(nlj_tag,VV[14]))goto T21; |
112 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
113 |
} |
} |
114 |
V11= |
V11= |
117 |
make_cclosure_new(LC24,Cnil,base[7],Cdata); |
make_cclosure_new(LC24,Cnil,base[7],Cdata); |
118 |
V13= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[7],VV[8],V11,VV[9],V12)); |
V13= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[7],VV[8],V11,VV[9],V12)); |
119 |
V14= make_cons(/* INLINE-ARGS */V13,Cnil); |
V14= make_cons(/* INLINE-ARGS */V13,Cnil); |
120 |
base[8]= make_cons(/* INLINE-ARGS */V14,symbol_value(VV[5])); |
base[8]= make_cons(/* INLINE-ARGS */V14,(VV[5]->s.s_dbind)); |
121 |
bds_bind(VV[5],base[8]); |
bds_bind(VV[5],base[8]); |
122 |
base[9]=symbol_function(VV[32]); |
base[9]=VV[32]->s.s_gfdef; |
123 |
base[10]= (V10); |
base[10]= (V10); |
124 |
base[11]= VV[11]; |
base[11]= VV[11]; |
125 |
base[12]= (V7); |
base[12]= (V7); |
126 |
{object V15; |
{object V15; |
127 |
{object V16; |
{object V16; |
128 |
{object V17; |
{object V17; |
129 |
object V18= cdr((V9)); |
object V18= CMPcdr((V9)); |
130 |
object V19= (base[5]->c.c_car); |
object V19= (base[5]->c.c_car); |
131 |
if(endp(V18)||endp(V19)){ |
if(V18==Cnil||V19==Cnil){ |
132 |
V16= Cnil; |
V16= Cnil; |
133 |
goto T30;} |
goto T29;} |
134 |
base[13]=V17=MMcons(Cnil,Cnil); |
base[13]=V17=MMcons(Cnil,Cnil); |
135 |
goto T31; |
goto T30; |
136 |
T31:; |
T30:; |
137 |
(V17->c.c_cdr)= list(2,(V18->c.c_car),(V19->c.c_car)); |
(V17->c.c_cdr)= list(2,(V18->c.c_car),(V19->c.c_car)); |
138 |
{object cdr_V17=MMcdr(V17);while(!endp(cdr_V17)) {cdr_V17=MMcdr(cdr_V17);V17=MMcdr(V17);}} |
while(MMcdr(V17)!=Cnil)V17=MMcdr(V17); |
139 |
V18=MMcdr(V18); |
if((V18=MMcdr(V18))==Cnil||(V19=MMcdr(V19))==Cnil){ |
|
V19=MMcdr(V19); |
|
|
if(endp(V18)||endp(V19)){ |
|
140 |
base[13]=base[13]->c.c_cdr; |
base[13]=base[13]->c.c_cdr; |
141 |
V16= base[13]; |
V16= base[13]; |
142 |
|
goto T29;} |
143 |
goto T30;} |
goto T30;} |
144 |
goto T31;} |
goto T29; |
145 |
goto T30; |
T29:; |
|
T30:; |
|
146 |
if(((*(LnkLI42))((V10)))==Cnil){ |
if(((*(LnkLI42))((V10)))==Cnil){ |
147 |
goto T34;} |
goto T33;} |
148 |
V15= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V16)); |
V15= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V16)); |
149 |
goto T29; |
goto T28; |
150 |
goto T34; |
goto T33; |
151 |
T34:; |
T33:; |
152 |
V15= (V16);} |
V15= (V16);} |
153 |
goto T29; |
goto T28; |
154 |
T29:; |
T28:; |
155 |
vs_top=base+13; |
vs_top=base+13; |
156 |
while(!endp(V15)) |
while(V15!=Cnil) |
157 |
{vs_push(car(V15));V15=cdr(V15);} |
{vs_push((V15)->c.c_car);V15=(V15)->c.c_cdr;} |
158 |
vs_base=base+10;} |
vs_base=base+10;} |
159 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
160 |
frs_pop(); |
frs_pop(); |
161 |
bds_unwind1; |
bds_unwind1; |
162 |
return; |
return; |
163 |
goto T22; |
goto T21; |
164 |
T22:; |
T21:; |
165 |
{object V20; |
{object V20; |
166 |
V20= (base[6]->c.c_car); |
V20= (base[6]->c.c_car); |
|
ck_larg_exactly(0,(V20)); |
|
167 |
base[8]= Cnil; |
base[8]= Cnil; |
168 |
base[9]= Ct; |
base[9]= Ct; |
169 |
vs_top=(vs_base=base+8)+2; |
vs_top=(vs_base=base+8)+2; |
173 |
base[8]= Cnil; |
base[8]= Cnil; |
174 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
175 |
return; |
return; |
176 |
goto T19; |
goto T18; |
177 |
T19:; |
T18:; |
178 |
base[6]=symbol_function(VV[32]); |
base[6]=VV[32]->s.s_gfdef; |
179 |
base[7]= (V10); |
base[7]= (V10); |
180 |
base[8]= VV[11]; |
base[8]= VV[11]; |
181 |
base[9]= (V7); |
base[9]= (V7); |
182 |
{object V21; |
{object V21; |
183 |
{object V22; |
{object V22; |
184 |
{object V23; |
{object V23; |
185 |
object V24= cdr((V9)); |
object V24= CMPcdr((V9)); |
186 |
object V25= (base[5]->c.c_car); |
object V25= (base[5]->c.c_car); |
187 |
if(endp(V24)||endp(V25)){ |
if(V24==Cnil||V25==Cnil){ |
188 |
V22= Cnil; |
V22= Cnil; |
189 |
goto T43;} |
goto T42;} |
190 |
base[10]=V23=MMcons(Cnil,Cnil); |
base[10]=V23=MMcons(Cnil,Cnil); |
191 |
goto T44; |
goto T43; |
192 |
T44:; |
T43:; |
193 |
(V23->c.c_cdr)= list(2,(V24->c.c_car),(V25->c.c_car)); |
(V23->c.c_cdr)= list(2,(V24->c.c_car),(V25->c.c_car)); |
194 |
{object cdr_V23=MMcdr(V23);while(!endp(cdr_V23)) {cdr_V23=MMcdr(cdr_V23);V23=MMcdr(V23);}} |
while(MMcdr(V23)!=Cnil)V23=MMcdr(V23); |
195 |
V24=MMcdr(V24); |
if((V24=MMcdr(V24))==Cnil||(V25=MMcdr(V25))==Cnil){ |
|
V25=MMcdr(V25); |
|
|
if(endp(V24)||endp(V25)){ |
|
196 |
base[10]=base[10]->c.c_cdr; |
base[10]=base[10]->c.c_cdr; |
197 |
V22= base[10]; |
V22= base[10]; |
198 |
|
goto T42;} |
199 |
goto T43;} |
goto T43;} |
200 |
goto T44;} |
goto T42; |
201 |
goto T43; |
T42:; |
|
T43:; |
|
202 |
if(((*(LnkLI42))((V10)))==Cnil){ |
if(((*(LnkLI42))((V10)))==Cnil){ |
203 |
goto T47;} |
goto T46;} |
204 |
V21= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V22)); |
V21= listA(5,VV[12],(V8),VV[13],(base[5]->c.c_car),(V22)); |
205 |
goto T42; |
goto T41; |
206 |
goto T47; |
goto T46; |
207 |
T47:; |
T46:; |
208 |
V21= (V22);} |
V21= (V22);} |
209 |
goto T42; |
goto T41; |
210 |
T42:; |
T41:; |
211 |
vs_top=base+10; |
vs_top=base+10; |
212 |
while(!endp(V21)) |
while(V21!=Cnil) |
213 |
{vs_push(car(V21));V21=cdr(V21);} |
{vs_push((V21)->c.c_car);V21=(V21)->c.c_cdr;} |
214 |
vs_base=base+7;} |
vs_base=base+7;} |
215 |
(void) (*Lnk32)(); |
(void) (*Lnk32)(); |
216 |
return;} |
return;} |
217 |
goto T15; |
goto T14; |
218 |
T15:; |
T14:; |
219 |
base[6]= VV[15]; |
base[6]= VV[15]; |
220 |
base[7]= VV[11]; |
base[7]= VV[11]; |
221 |
base[8]= (V7); |
base[8]= (V7); |
239 |
object V31; |
object V31; |
240 |
object V32; |
object V32; |
241 |
va_start(ap,first); |
va_start(ap,first); |
|
if(narg <3) too_few_arguments(); |
|
242 |
V29= V28; |
V29= V28; |
243 |
V30= V27; |
V30= V27; |
244 |
V31= V26; |
V31= V26; |
249 |
object V35; |
object V35; |
250 |
object V36; |
object V36; |
251 |
V34= make_cons((V29),Cnil); |
V34= make_cons((V29),Cnil); |
252 |
V35= symbol_value(VV[0]); |
V35= (VV[0]->s.s_dbind); |
253 |
V36= make_cons((V31),(V32)); |
V36= make_cons((V31),(V32)); |
254 |
base[2]= (V34); |
base[2]= (V34); |
255 |
base[3]= (V35); |
base[3]= (V35); |
270 |
{ VMB7 VMS7 VMV7 |
{ VMB7 VMS7 VMV7 |
271 |
goto TTL; |
goto TTL; |
272 |
TTL:; |
TTL:; |
273 |
base[0]= symbol_value(VV[0]); |
base[0]= (VV[0]->s.s_dbind); |
274 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
275 |
Lclrhash(); |
Lclrhash(); |
276 |
vs_top=sup; |
vs_top=sup; |
277 |
{register object V38; |
{register object V38; |
278 |
register object V39; |
register object V39; |
279 |
V38= symbol_value(VV[16]); |
V38= (VV[16]->s.s_dbind); |
280 |
V39= car((V38)); |
V39= CMPcar((V38)); |
281 |
goto T67; |
goto T66; |
282 |
T67:; |
T66:; |
283 |
if(!(endp_prop((V38)))){ |
if(!(((V38))==Cnil)){ |
284 |
goto T68;} |
goto T67;} |
285 |
{object V40 = Cnil; |
{object V40 = Cnil; |
286 |
VMR7(V40)} |
VMR7(V40)} |
287 |
goto T68; |
goto T67; |
288 |
T68:; |
T67:; |
289 |
{object V41; |
{object V41; |
290 |
V41= cdr((V39)); |
V41= CMPcdr((V39)); |
291 |
vs_top=base+1; |
vs_top=base+1; |
292 |
while(!endp(V41)) |
while(V41!=Cnil) |
293 |
{vs_push(car(V41));V41=cdr(V41);} |
{vs_push((V41)->c.c_car);V41=(V41)->c.c_cdr;} |
294 |
vs_base=base+1;} |
vs_base=base+1;} |
295 |
(void) (*Lnk43)(); |
(void) (*Lnk43)(); |
296 |
vs_top=sup; |
vs_top=sup; |
297 |
V38= cdr((V38)); |
V38= CMPcdr((V38)); |
298 |
V39= car((V38)); |
V39= CMPcar((V38)); |
299 |
goto T67;} |
goto T66;} |
300 |
base[0]=base[0]; |
base[0]=base[0]; |
301 |
return Cnil; |
return Cnil; |
302 |
} |
} |
303 |
/* local entry for function progn 'compile2359 */ |
/* local entry for function progn 'compile2361 */ |
304 |
|
|
305 |
static object LI8() |
static object LI8() |
306 |
|
|
316 |
base[0]=base[0]; |
base[0]=base[0]; |
317 |
return Cnil; |
return Cnil; |
318 |
} |
} |
319 |
/* local entry for function progn 'compile2371 */ |
/* local entry for function progn 'compile2373 */ |
320 |
|
|
321 |
static object LI9() |
static object LI9() |
322 |
|
|
323 |
{ VMB9 VMS9 VMV9 |
{ VMB9 VMS9 VMV9 |
324 |
goto TTL; |
goto TTL; |
325 |
TTL:; |
TTL:; |
326 |
setq(VV[16],VV[17]); |
(VV[16]->s.s_dbind)= VV[17]; |
327 |
{object V43 = Cnil; |
{object V43 = Cnil; |
328 |
VMR9(V43)} |
VMR9(V43)} |
329 |
return Cnil; |
return Cnil; |
330 |
} |
} |
331 |
/* local entry for function progn 'compile2383 */ |
/* local entry for function progn 'compile2385 */ |
332 |
|
|
333 |
static object LI10() |
static object LI10() |
334 |
|
|
339 |
VMR10(V44)} |
VMR10(V44)} |
340 |
return Cnil; |
return Cnil; |
341 |
} |
} |
342 |
/* local entry for function progn 'compile2485 */ |
/* local entry for function progn 'compile2487 */ |
343 |
|
|
344 |
static object LI11() |
static object LI11() |
345 |
|
|
360 |
bds_check; |
bds_check; |
361 |
goto TTL; |
goto TTL; |
362 |
TTL:; |
TTL:; |
363 |
bds_bind(VV[18],symbol_value(VV[19])); |
bds_bind(VV[18],(VV[19]->s.s_dbind)); |
364 |
bds_bind(VV[20],one_plus(symbol_value(VV[21]))); |
bds_bind(VV[20],one_plus((VV[21]->s.s_dbind))); |
365 |
vs_base=vs_top; |
vs_base=vs_top; |
366 |
(void) (*Lnk45)(); |
(void) (*Lnk45)(); |
367 |
vs_top=sup; |
vs_top=sup; |
368 |
V48= vs_base[0]; |
V48= vs_base[0]; |
369 |
bds_bind(VV[21],one_minus(V48)); |
bds_bind(VV[21],one_minus(V48)); |
370 |
bds_bind(VV[22],(VV[21]->s.s_dbind));{object V49; |
bds_bind(VV[22],(VV[21]->s.s_dbind));{object V49; |
371 |
base[7]= symbol_value(VV[24]); |
base[7]= (VV[24]->s.s_dbind); |
372 |
base[8]= (VV[20]->s.s_dbind); |
base[8]= (VV[20]->s.s_dbind); |
373 |
vs_top=(vs_base=base+7)+2; |
vs_top=(vs_base=base+7)+2; |
374 |
(void) (*Lnk46)(); |
(void) (*Lnk46)(); |
375 |
vs_top=sup; |
vs_top=sup; |
376 |
V49= vs_base[0]; |
V49= vs_base[0]; |
377 |
if(V49==Cnil)goto T89; |
if(V49==Cnil)goto T88; |
378 |
bds_bind(VV[23],V49); |
bds_bind(VV[23],V49); |
379 |
|
goto T87; |
380 |
goto T88; |
goto T88; |
381 |
goto T89; |
T88:;} |
|
T89:;} |
|
382 |
vs_base=vs_top; |
vs_base=vs_top; |
383 |
(void) (*Lnk47)(); |
(void) (*Lnk47)(); |
384 |
vs_top=sup; |
vs_top=sup; |
385 |
V50= vs_base[0]; |
V50= vs_base[0]; |
386 |
bds_bind(VV[23],one_plus(V50)); |
bds_bind(VV[23],one_plus(V50)); |
387 |
goto T88; |
goto T87; |
388 |
T88:; |
T87:; |
389 |
vs_base=vs_top; |
vs_base=vs_top; |
390 |
(void) (*Lnk47)(); |
(void) (*Lnk47)(); |
391 |
vs_top=sup; |
vs_top=sup; |
392 |
bds_bind(VV[24],vs_base[0]); |
bds_bind(VV[24],vs_base[0]); |
393 |
bds_bind(VV[25],Cnil); |
bds_bind(VV[25],Cnil); |
394 |
base[7]= symbol_value(VV[19]); |
base[7]= (VV[19]->s.s_dbind); |
395 |
base[8]= VV[26]; |
base[8]= VV[26]; |
396 |
base[9]= (V47); |
base[9]= (V47); |
397 |
vs_top=(vs_base=base+7)+3; |
vs_top=(vs_base=base+7)+3; |
412 |
base[0]=base[0]; |
base[0]=base[0]; |
413 |
return Cnil; |
return Cnil; |
414 |
} |
} |
415 |
/* local entry for function progn 'compile2513 */ |
/* local entry for function progn 'compile2515 */ |
416 |
|
|
417 |
static object LI13() |
static object LI13() |
418 |
|
|
428 |
base[0]=base[0]; |
base[0]=base[0]; |
429 |
return Cnil; |
return Cnil; |
430 |
} |
} |
431 |
/* local entry for function progn 'compile2525 */ |
/* local entry for function progn 'compile2527 */ |
432 |
|
|
433 |
static object LI14() |
static object LI14() |
434 |
|
|
435 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
436 |
goto TTL; |
goto TTL; |
437 |
TTL:; |
TTL:; |
438 |
base[0]= VV[27]; |
if(!((VV[27])->s.s_dbind!=OBJNULL)){ |
439 |
vs_top=(vs_base=base+0)+1; |
goto T101;} |
440 |
Lboundp(); |
goto T100; |
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T102;} |
|
|
goto T101; |
|
|
goto T102; |
|
|
T102:; |
|
|
setq(VV[27],Cnil); |
|
441 |
goto T101; |
goto T101; |
442 |
T101:; |
T101:; |
443 |
|
(VV[27]->s.s_dbind)= Cnil; |
444 |
|
goto T100; |
445 |
|
T100:; |
446 |
{object V53 = Cnil; |
{object V53 = Cnil; |
447 |
VMR14(V53)} |
VMR14(V53)} |
|
base[0]=base[0]; |
|
448 |
return Cnil; |
return Cnil; |
449 |
} |
} |
450 |
/* local entry for function progn 'compile2538 */ |
/* local entry for function progn 'compile2540 */ |
451 |
|
|
452 |
static object LI15() |
static object LI15() |
453 |
|
|
463 |
static void L16() |
static void L16() |
464 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
465 |
register object *VOL sup=base+VM16; VC16 |
register object *VOL sup=base+VM16; VC16 |
466 |
vs_reserve(VM16); |
vs_check; |
467 |
bds_check; |
bds_check; |
|
check_arg(1); |
|
468 |
base[0]=MMcons(base[0],Cnil); |
base[0]=MMcons(base[0],Cnil); |
469 |
vs_top=sup; |
vs_top=sup; |
470 |
base[1]=alloc_frame_id(); |
base[1]=alloc_frame_id(); |
481 |
frs_push(FRS_CATCH,(base[4]->c.c_car)); |
frs_push(FRS_CATCH,(base[4]->c.c_car)); |
482 |
if(nlj_active){ |
if(nlj_active){ |
483 |
nlj_active=FALSE; |
nlj_active=FALSE; |
484 |
if(eql(nlj_tag,VV[34]))goto T108; |
if(eql(nlj_tag,VV[34]))goto T106; |
485 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
486 |
} |
} |
487 |
V55= |
V55= |
490 |
make_cclosure_new(LC26,Cnil,base[4],Cdata); |
make_cclosure_new(LC26,Cnil,base[4],Cdata); |
491 |
V57= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[28],VV[8],V55,VV[9],V56)); |
V57= (VFUN_NARGS=6,(*(LnkLI41))(VV[6],VV[28],VV[8],V55,VV[9],V56)); |
492 |
V58= make_cons(/* INLINE-ARGS */V57,Cnil); |
V58= make_cons(/* INLINE-ARGS */V57,Cnil); |
493 |
base[5]= make_cons(/* INLINE-ARGS */V58,symbol_value(VV[5])); |
base[5]= make_cons(/* INLINE-ARGS */V58,(VV[5]->s.s_dbind)); |
494 |
bds_bind(VV[5],base[5]); |
bds_bind(VV[5],base[5]); |
495 |
V59= |
V59= |
496 |
make_cclosure_new(LC27,Cnil,base[4],Cdata); |
make_cclosure_new(LC27,Cnil,base[4],Cdata); |
497 |
V60= make_cons(VV[32],V59); |
V60= make_cons(VV[32],V59); |
498 |
V61= make_cons(/* INLINE-ARGS */V60,Cnil); |
V61= make_cons(/* INLINE-ARGS */V60,Cnil); |
499 |
base[6]= make_cons(/* INLINE-ARGS */V61,symbol_value(VV[31])); |
base[6]= make_cons(/* INLINE-ARGS */V61,(VV[31]->s.s_dbind)); |
500 |
bds_bind(VV[31],base[6]); |
bds_bind(VV[31],base[6]); |
501 |
base[8]= (base[0]->c.c_car); |
base[8]= (base[0]->c.c_car); |
502 |
vs_top=(vs_base=base+8)+1; |
vs_top=(vs_base=base+8)+1; |
512 |
bds_unwind1; |
bds_unwind1; |
513 |
bds_unwind1; |
bds_unwind1; |
514 |
return; |
return; |
515 |
goto T108; |
goto T106; |
516 |
T108:; |
T106:; |
517 |
{object V63; |
{object V63; |
518 |
V63= (base[3]->c.c_car); |
V63= (base[3]->c.c_car); |
|
ck_larg_exactly(0,(V63)); |
|
519 |
frs_pop(); |
frs_pop(); |
520 |
frs_pop(); |
frs_pop(); |
521 |
base[5]= (base[2]->c.c_car); |
base[5]= (base[2]->c.c_car); |
550 |
base[0]=base[0]; |
base[0]=base[0]; |
551 |
return Cnil; |
return Cnil; |
552 |
} |
} |
553 |
/* local entry for function progn 'compile2630 */ |
/* local entry for function progn 'compile2632 */ |
554 |
|
|
555 |
static object LI18() |
static object LI18() |
556 |
|
|
562 |
VMR18(V67)} |
VMR18(V67)} |
563 |
return Cnil; |
return Cnil; |
564 |
} |
} |
565 |
/* local entry for function progn 'compile2662 */ |
/* local entry for function progn 'compile2664 */ |
566 |
|
|
567 |
static object LI19() |
static object LI19() |
568 |
|
|
574 |
VMR19(V68)} |
VMR19(V68)} |
575 |
return Cnil; |
return Cnil; |
576 |
} |
} |
577 |
/* local entry for function progn 'compile2694 */ |
/* local entry for function progn 'compile2696 */ |
578 |
|
|
579 |
static object LI20() |
static object LI20() |
580 |
|
|
586 |
VMR20(V69)} |
VMR20(V69)} |
587 |
return Cnil; |
return Cnil; |
588 |
} |
} |
589 |
/* local entry for function progn 'compile2706 */ |
/* local entry for function progn 'compile2708 */ |
590 |
|
|
591 |
static object LI21() |
static object LI21() |
592 |
|
|
593 |
{ VMB21 VMS21 VMV21 |
{ VMB21 VMS21 VMV21 |
594 |
goto TTL; |
goto TTL; |
595 |
TTL:; |
TTL:; |
596 |
setq(VV[37],Ct); |
(VV[37]->s.s_dbind)= Ct; |
597 |
{object V70 = Cnil; |
{object V70 = Cnil; |
598 |
VMR21(V70)} |
VMR21(V70)} |
599 |
return Cnil; |
return Cnil; |
603 |
static void L22() |
static void L22() |
604 |
{register object *base=vs_base; |
{register object *base=vs_base; |
605 |
register object *sup=base+VM22; VC22 |
register object *sup=base+VM22; VC22 |
606 |
vs_reserve(VM22); |
vs_check; |
607 |
bds_check; |
bds_check; |
608 |
{object V71; |
{object V71; |
|
check_arg(1); |
|
609 |
V71=(base[0]); |
V71=(base[0]); |
610 |
vs_top=sup; |
vs_top=sup; |
611 |
goto TTL; |
goto TTL; |
615 |
vs_top=sup; |
vs_top=sup; |
616 |
V72= vs_base[0]; |
V72= vs_base[0]; |
617 |
bds_bind(VV[21],one_minus(V72)); |
bds_bind(VV[21],one_minus(V72)); |
618 |
bds_bind(VV[33],symbol_value(VV[37])); |
bds_bind(VV[33],(VV[37]->s.s_dbind)); |
619 |
base[4]= VV[39]; |
base[4]= VV[39]; |
620 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
621 |
Lfind_package(); |
Lfind_package(); |
622 |
vs_top=sup; |
vs_top=sup; |
623 |
V73= vs_base[0]; |
V73= vs_base[0]; |
624 |
bds_bind(VV[38],make_cons(V73,symbol_value(VV[38]))); |
bds_bind(VV[38],make_cons(V73,(VV[38]->s.s_dbind))); |
625 |
base[4]= (V71); |
base[4]= (V71); |
626 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
627 |
(void) (*Lnk28)(); |
(void) (*Lnk28)(); |
637 |
register object *base0; |
register object *base0; |
638 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
639 |
register object *sup=base+VM23; VC23 |
register object *sup=base+VM23; VC23 |
640 |
vs_reserve(VM23); |
vs_check; |
641 |
{object V74; |
{object V74; |
|
check_arg(1); |
|
642 |
V74=(base[0]); |
V74=(base[0]); |
643 |
vs_top=sup; |
vs_top=sup; |
644 |
if((symbol_value(VV[33]))!=Cnil){ |
if(((VV[33]->s.s_dbind))!=Cnil){ |
645 |
goto T133;} |
goto T131;} |
646 |
if((symbol_value(VV[27]))!=Cnil){ |
if(((VV[27]->s.s_dbind))!=Cnil){ |
647 |
goto T133;} |
goto T131;} |
648 |
(void)((*(LnkLI51))((V74))); |
(void)((*(LnkLI51))((V74))); |
649 |
{frame_ptr fr; |
{frame_ptr fr; |
650 |
fr=frs_sch((base0[3]->c.c_car)); |
fr=frs_sch((base0[3]->c.c_car)); |
652 |
base[1]= (V74); |
base[1]= (V74); |
653 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
654 |
unwind(fr,Cnil);} |
unwind(fr,Cnil);} |
655 |
goto T133; |
goto T131; |
656 |
T133:; |
T131:; |
657 |
(base0[2]->c.c_car)= (V74); |
(base0[2]->c.c_car)= (V74); |
658 |
base[1]= Cnil; |
base[1]= Cnil; |
659 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
666 |
register object *base0; |
register object *base0; |
667 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
668 |
register object *sup=base+VM24; VC24 |
register object *sup=base+VM24; VC24 |
669 |
vs_reserve(VM24); |
vs_check; |
670 |
{object V75; |
{object V75; |
|
check_arg(1); |
|
671 |
V75=(base[0]); |
V75=(base[0]); |
672 |
vs_top=sup; |
vs_top=sup; |
673 |
base[1]= (V75); |
base[1]= (V75); |
684 |
register object *base0; |
register object *base0; |
685 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
686 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
687 |
vs_reserve(VM25); |
vs_check; |
688 |
{object V76; |
{object V76; |
689 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
690 |
{object *p=vs_top; |
{object *p=vs_top; |
705 |
register object *base0; |
register object *base0; |
706 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
707 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
708 |
vs_reserve(VM26); |
vs_check; |
709 |
{object V77; |
{object V77; |
|
check_arg(1); |
|
710 |
V77=(base[0]); |
V77=(base[0]); |
711 |
vs_top=sup; |
vs_top=sup; |
712 |
base[1]= (V77); |
base[1]= (V77); |
716 |
{object V78; |
{object V78; |
717 |
V78= (base0[2]->c.c_car); |
V78= (base0[2]->c.c_car); |
718 |
vs_top=base+6; |
vs_top=base+6; |
719 |
while(!endp(V78)) |
while(V78!=Cnil) |
720 |
{vs_push(car(V78));V78=cdr(V78);} |
{vs_push((V78)->c.c_car);V78=(V78)->c.c_cdr;} |
721 |
vs_base=base+4;} |
vs_base=base+4;} |
722 |
Lformat(); |
Lformat(); |
723 |
vs_top=sup; |
vs_top=sup; |
733 |
register object *base0; |
register object *base0; |
734 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
735 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
736 |
vs_reserve(VM27); |
vs_check; |
737 |
{object V79; |
{object V79; |
738 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
739 |
{object *p=vs_top; |
{object *p=vs_top; |