102 |
bds_unwind1; |
bds_unwind1; |
103 |
return; |
return; |
104 |
} |
} |
105 |
/* function definition for CLCS-BREAK-LEVEL */ |
/* local entry for function CLCS-BREAK-LEVEL */ |
106 |
|
|
107 |
static void L6() |
static object LI6(object V9,object first,...) |
108 |
{register object *VOL base=vs_base; |
{ |
109 |
register object *VOL sup=base+VM6; VC6 |
va_list ap; |
110 |
vs_reserve(VM6); |
int narg = VFUN_NARGS; VMB6 VMS6 VMV6 |
111 |
bds_check; |
bds_check; |
112 |
{VOL object V9; |
{VOL object V10; |
113 |
VOL object V10; |
VOL object V11; |
114 |
if(vs_top-vs_base<1) too_few_arguments(); |
Vcs[0]=Vcs[0]; |
115 |
if(vs_top-vs_base>2) too_many_arguments(); |
va_start(ap,first); |
116 |
V9=(base[0]); |
if(narg <1) too_few_arguments(); |
117 |
vs_base=vs_base+1; |
V10= V9; |
118 |
if(vs_base>=vs_top){vs_top=sup;goto T18;} |
narg = narg - 1; |
119 |
V10=(base[1]); |
if (narg <= 0) goto T18; |
120 |
vs_top=sup; |
else { |
121 |
goto T19; |
V11= first;} |
122 |
|
--narg; goto T19; |
123 |
goto T18; |
goto T18; |
124 |
T18:; |
T18:; |
125 |
V10= Cnil; |
V11= Cnil; |
126 |
goto T19; |
goto T19; |
127 |
T19:; |
T19:; |
128 |
if(type_of((V9))==t_string){ |
if(type_of((V10))==t_string){ |
129 |
goto T22;} |
goto T22;} |
130 |
base[24]= (V9); |
if(((*(LnkLI73))((V10)))==Cnil){ |
|
vs_top=(vs_base=base+24)+1; |
|
|
(void) (*Lnk73)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
131 |
goto T23;} |
goto T23;} |
132 |
goto T22; |
goto T22; |
133 |
T22:; |
T22:; |
134 |
bds_bind(VV[7],(V9)); |
bds_bind(VV[7],(V10)); |
135 |
goto T21; |
goto T21; |
136 |
goto T23; |
goto T23; |
137 |
T23:; |
T23:; |
138 |
bds_bind(VV[7],symbol_value(VV[7])); |
bds_bind(VV[7],symbol_value(VV[7])); |
139 |
goto T21; |
goto T21; |
140 |
T21:; |
T21:; |
141 |
V11= make_cons(symbol_value(VV[9]),symbol_value(VV[10])); |
V12= make_cons(symbol_value(VV[9]),symbol_value(VV[10])); |
142 |
bds_bind(VV[8],make_cons(/* INLINE-ARGS */V11,symbol_value(VV[8]))); |
bds_bind(VV[8],make_cons(/* INLINE-ARGS */V12,symbol_value(VV[8]))); |
143 |
bds_bind(VV[10],Cnil); |
bds_bind(VV[10],Cnil); |
144 |
base[24]= (V9); |
if(((*(LnkLI73))((V10)))==Cnil){ |
145 |
vs_top=(vs_base=base+24)+1; |
goto T30;} |
|
(void) (*Lnk73)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T31;} |
|
146 |
bds_bind(VV[9],make_cons(Ct,symbol_value(VV[9]))); |
bds_bind(VV[9],make_cons(Ct,symbol_value(VV[9]))); |
147 |
goto T29; |
goto T28; |
148 |
goto T31; |
goto T30; |
149 |
T31:; |
T30:; |
150 |
bds_bind(VV[9],symbol_value(VV[9])); |
bds_bind(VV[9],symbol_value(VV[9])); |
151 |
goto T29; |
goto T28; |
152 |
T29:; |
T28:; |
153 |
bds_bind(VV[11],one_plus(symbol_value(VV[12]))); |
bds_bind(VV[11],one_plus(symbol_value(VV[12]))); |
154 |
vs_base=vs_top; |
vs_base=vs_top; |
155 |
(void) (*Lnk74)(); |
(void) (*Lnk74)(); |
156 |
vs_top=sup; |
vs_top=sup; |
157 |
V12= vs_base[0]; |
V13= vs_base[0]; |
158 |
bds_bind(VV[12],one_minus(V12)); |
bds_bind(VV[12],one_minus(V13)); |
159 |
bds_bind(VV[13],(VV[12]->s.s_dbind));{VOL object V13; |
bds_bind(VV[13],(VV[12]->s.s_dbind));{VOL object V14; |
160 |
base[24]= symbol_value(VV[15]); |
base[22]= symbol_value(VV[15]); |
161 |
base[25]= (VV[11]->s.s_dbind); |
base[23]= (VV[11]->s.s_dbind); |
162 |
vs_top=(vs_base=base+24)+2; |
vs_top=(vs_base=base+22)+2; |
163 |
(void) (*Lnk75)(); |
(void) (*Lnk75)(); |
164 |
vs_top=sup; |
vs_top=sup; |
165 |
V13= vs_base[0]; |
V14= vs_base[0]; |
166 |
if(V13==Cnil)goto T38; |
if(V14==Cnil)goto T36; |
167 |
bds_bind(VV[14],V13); |
bds_bind(VV[14],V14); |
168 |
goto T37; |
goto T35; |
169 |
goto T38; |
goto T36; |
170 |
T38:;} |
T36:;} |
171 |
vs_base=vs_top; |
vs_base=vs_top; |
172 |
(void) (*Lnk76)(); |
(void) (*Lnk76)(); |
173 |
vs_top=sup; |
vs_top=sup; |
174 |
V14= vs_base[0]; |
V15= vs_base[0]; |
175 |
bds_bind(VV[14],one_plus(V14)); |
bds_bind(VV[14],one_plus(V15)); |
176 |
goto T37; |
goto T35; |
177 |
T37:; |
T35:; |
178 |
vs_base=vs_top; |
vs_base=vs_top; |
179 |
(void) (*Lnk76)(); |
(void) (*Lnk76)(); |
180 |
vs_top=sup; |
vs_top=sup; |
182 |
bds_bind(VV[16],Cnil); |
bds_bind(VV[16],Cnil); |
183 |
if(symbol_value(VV[18])!=Cnil){ |
if(symbol_value(VV[18])!=Cnil){ |
184 |
bds_bind(VV[17],symbol_value(VV[18])); |
bds_bind(VV[17],symbol_value(VV[18])); |
185 |
goto T44;} |
goto T42;} |
186 |
bds_bind(VV[17],symbol_value(VV[17])); |
bds_bind(VV[17],symbol_value(VV[17])); |
187 |
goto T44; |
goto T42; |
188 |
T44:; |
T42:; |
189 |
bds_bind(VV[19],Cnil); |
bds_bind(VV[19],Cnil); |
190 |
bds_bind(VV[20],symbol_value(VV[20])); |
bds_bind(VV[20],symbol_value(VV[20])); |
191 |
bds_bind(VV[21],symbol_value(VV[21])); |
bds_bind(VV[21],symbol_value(VV[21])); |
198 |
bds_bind(VV[27],symbol_value(VV[27])); |
bds_bind(VV[27],symbol_value(VV[27])); |
199 |
bds_bind(VV[28],symbol_value(VV[28])); |
bds_bind(VV[28],symbol_value(VV[28])); |
200 |
bds_bind(VV[29],one_plus(symbol_value(VV[29]))); |
bds_bind(VV[29],one_plus(symbol_value(VV[29]))); |
201 |
base[25]=MMcons((VV[29]->s.s_dbind),Cnil); |
base[23]=MMcons((VV[29]->s.s_dbind),Cnil); |
202 |
vs_base=vs_top; |
bds_bind(VV[5],(VFUN_NARGS=0,(*(LnkLI77))())); |
|
(void) (*Lnk77)(); |
|
|
vs_top=sup; |
|
|
bds_bind(VV[5],vs_base[0]); |
|
203 |
bds_bind(VV[4],make_fixnum((long)length((VV[5]->s.s_dbind)))); |
bds_bind(VV[4],make_fixnum((long)length((VV[5]->s.s_dbind)))); |
204 |
base[32]= VV[31]; |
bds_bind(VV[30],(VFUN_NARGS=1,(*(LnkLI78))(VV[31])));{VOL object V16; |
205 |
vs_top=(vs_base=base+32)+1; |
{object V17; |
206 |
(void) (*Lnk78)(); |
V17= (VFUN_NARGS=1,(*(LnkLI78))(VV[33])); |
|
vs_top=sup; |
|
|
bds_bind(VV[30],vs_base[0]);{VOL object V15; |
|
|
{object V16; |
|
|
base[32]= VV[33]; |
|
|
vs_top=(vs_base=base+32)+1; |
|
|
(void) (*Lnk78)(); |
|
|
vs_top=sup; |
|
|
V16= vs_base[0]; |
|
207 |
if((symbol_value(VV[32]))==Cnil){ |
if((symbol_value(VV[32]))==Cnil){ |
208 |
goto T55;} |
goto T51;} |
209 |
if((symbol_value(VV[32]))==((V16))){ |
if((symbol_value(VV[32]))==((V17))){ |
210 |
goto T56;} |
goto T52;} |
211 |
goto T55; |
goto T51; |
212 |
T55:; |
T51:; |
213 |
V15= (V16); |
V16= (V17); |
214 |
goto T52; |
goto T49; |
|
goto T56; |
|
|
T56:; |
|
|
V15= Cnil;} |
|
215 |
goto T52; |
goto T52; |
216 |
T52:; |
T52:; |
217 |
if(V15==Cnil)goto T51; |
V16= Cnil;} |
218 |
bds_bind(VV[32],V15); |
goto T49; |
219 |
goto T50; |
T49:; |
220 |
goto T51; |
if(V16==Cnil)goto T48; |
221 |
T51:;} |
bds_bind(VV[32],V16); |
222 |
{object V17; |
goto T47; |
223 |
|
goto T48; |
224 |
|
T48:;} |
225 |
|
{object V18; |
226 |
if(((VV[5]->s.s_dbind))==Cnil){ |
if(((VV[5]->s.s_dbind))==Cnil){ |
227 |
goto T62;} |
goto T58;} |
228 |
V17= car((VV[5]->s.s_dbind)); |
V18= car((VV[5]->s.s_dbind)); |
229 |
goto T60; |
goto T56; |
230 |
goto T62; |
goto T58; |
231 |
T62:; |
T58:; |
232 |
V17= Cnil; |
V18= Cnil; |
233 |
goto T60; |
goto T56; |
234 |
T60:; |
T56:; |
235 |
if(((V17))==((VV[30]->s.s_dbind))){ |
if(((V18))==((VV[30]->s.s_dbind))){ |
236 |
|
goto T61;} |
237 |
|
bds_bind(VV[32],(V18)); |
238 |
|
goto T47; |
239 |
|
goto T61; |
240 |
|
T61:; |
241 |
|
bds_bind(VV[32],Cnil);} |
242 |
|
goto T47; |
243 |
|
T47:; |
244 |
|
if(((*(LnkLI73))((V10)))==Cnil){ |
245 |
goto T65;} |
goto T65;} |
246 |
bds_bind(VV[32],(V17)); |
bds_bind(VV[34],(V10)); |
247 |
goto T50; |
goto T63; |
248 |
goto T65; |
goto T65; |
249 |
T65:; |
T65:; |
|
bds_bind(VV[32],Cnil);} |
|
|
goto T50; |
|
|
T50:; |
|
|
base[32]= (V9); |
|
|
vs_top=(vs_base=base+32)+1; |
|
|
(void) (*Lnk73)(); |
|
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T69;} |
|
|
bds_bind(VV[34],(V9)); |
|
|
goto T67; |
|
|
goto T69; |
|
|
T69:; |
|
250 |
bds_bind(VV[34],symbol_value(VV[34])); |
bds_bind(VV[34],symbol_value(VV[34])); |
251 |
goto T67; |
goto T63; |
252 |
T67:; |
T63:; |
253 |
{object V18; |
{object V19; |
254 |
V18= Cnil; |
V19= Cnil; |
255 |
{register object V19; |
{register object V20; |
256 |
object V20; |
object V21; |
257 |
V19= (VV[5]->s.s_dbind); |
V20= (VV[5]->s.s_dbind); |
258 |
V20= car((V19)); |
V21= car((V20)); |
259 |
goto T77; |
goto T72; |
260 |
T77:; |
T72:; |
261 |
if(!(endp_prop((V19)))){ |
if(!(endp_prop((V20)))){ |
262 |
goto T78;} |
goto T73;} |
263 |
goto T73; |
goto T68; |
|
goto T78; |
|
|
T78:; |
|
|
V21= structure_ref((V20),VV[35],0); |
|
|
if(!((VV[31])==(/* INLINE-ARGS */V21))){ |
|
|
goto T82;} |
|
|
V18= make_cons(V20,(V18)); |
|
|
goto T82; |
|
|
T82:; |
|
|
V19= cdr((V19)); |
|
|
V20= car((V19)); |
|
|
goto T77;} |
|
264 |
goto T73; |
goto T73; |
265 |
T73:; |
T73:; |
266 |
bds_bind(VV[0],nreverse((V18)));} |
V22= structure_ref((V21),VV[35],0); |
267 |
if(!(type_of((V9))==t_cons)){ |
if(!((VV[31])==(/* INLINE-ARGS */V22))){ |
268 |
goto T93;} |
goto T77;} |
269 |
base[32]= (V9); |
V19= make_cons(V21,(V19)); |
270 |
base[33]= (V10); |
goto T77; |
271 |
vs_top=(vs_base=base+32)+2; |
T77:; |
272 |
|
V20= cdr((V20)); |
273 |
|
V21= car((V20)); |
274 |
|
goto T72;} |
275 |
|
goto T68; |
276 |
|
T68:; |
277 |
|
bds_bind(VV[0],nreverse((V19)));} |
278 |
|
if(!(type_of((V10))==t_cons)){ |
279 |
|
goto T88;} |
280 |
|
base[30]= (V10); |
281 |
|
base[31]= (V11); |
282 |
|
vs_top=(vs_base=base+30)+2; |
283 |
(void) (*Lnk79)(); |
(void) (*Lnk79)(); |
284 |
vs_top=sup; |
vs_top=sup; |
285 |
goto T91; |
goto T86; |
286 |
goto T93; |
goto T88; |
287 |
T93:; |
T88:; |
288 |
base[32]=MMcons(Cnil,base[25]); |
base[30]=MMcons(Cnil,base[23]); |
289 |
base[33]=alloc_frame_id(); |
base[31]=alloc_frame_id(); |
290 |
base[33]=MMcons(base[33],base[32]); |
base[31]=MMcons(base[31],base[30]); |
291 |
frs_push(FRS_CATCH,(base[33]->c.c_car)); |
frs_push(FRS_CATCH,(base[31]->c.c_car)); |
292 |
if(nlj_active){ |
if(nlj_active){ |
293 |
nlj_active=FALSE; |
nlj_active=FALSE; |
294 |
if(eql(nlj_tag,VV[46]))goto T98; |
if(eql(nlj_tag,VV[46]))goto T93; |
295 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
296 |
} |
} |
297 |
base[35]= VV[37]; |
V24= |
298 |
base[36]= VV[31]; |
make_cclosure_new(LC15,Cnil,base[31],Cdata); |
299 |
base[37]= VV[38]; |
V25= |
300 |
base[38]= |
make_cclosure_new(LC16,Cnil,base[31],Cdata); |
301 |
make_cclosure_new(LC15,Cnil,base[33],Cdata); |
V26= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V24,VV[39],V25)); |
302 |
base[39]= VV[39]; |
V27= make_cons(/* INLINE-ARGS */V26,Cnil); |
303 |
base[40]= |
base[32]= make_cons(/* INLINE-ARGS */V27,symbol_value(VV[36])); |
304 |
make_cclosure_new(LC16,Cnil,base[33],Cdata); |
bds_bind(VV[36],base[32]); |
305 |
vs_top=(vs_base=base+35)+6; |
base[33]= symbol_value(VV[41]); |
306 |
(void) (*Lnk80)(); |
base[34]= VV[42]; |
307 |
vs_top=sup; |
base[35]= (VV[7]->s.s_dbind); |
308 |
V23= vs_base[0]; |
vs_top=(vs_base=base+33)+3; |
|
V24= make_cons(V23,Cnil); |
|
|
base[34]= make_cons(/* INLINE-ARGS */V24,symbol_value(VV[36])); |
|
|
bds_bind(VV[36],base[34]); |
|
|
base[35]= symbol_value(VV[41]); |
|
|
base[36]= VV[42]; |
|
|
base[37]= (VV[7]->s.s_dbind); |
|
|
vs_top=(vs_base=base+35)+3; |
|
309 |
Lformat(); |
Lformat(); |
310 |
vs_top=sup; |
vs_top=sup; |
311 |
if(!(((long)length(symbol_value(VV[43])))>(0))){ |
if(!(((long)length(symbol_value(VV[43])))>(0))){ |
312 |
goto T111;} |
goto T101;} |
313 |
base[35]= symbol_value(VV[41]); |
base[33]= symbol_value(VV[41]); |
314 |
base[36]= VV[44]; |
base[34]= VV[44]; |
315 |
vs_top=(vs_base=base+35)+2; |
vs_top=(vs_base=base+33)+2; |
316 |
Lformat(); |
Lformat(); |
317 |
vs_top=sup; |
vs_top=sup; |
318 |
goto T111; |
goto T101; |
319 |
T111:; |
T101:; |
320 |
vs_base=vs_top; |
vs_base=vs_top; |
321 |
(void) (*Lnk81)(); |
(void) (*Lnk81)(); |
322 |
vs_top=sup; |
vs_top=sup; |
323 |
setq(VV[45],Cnil); |
setq(VV[45],Cnil); |
324 |
vs_base=vs_top; |
V28= (VFUN_NARGS=0,(*(LnkLI69))()); |
|
(void) (*Lnk69)(); |
|
|
vs_top=sup; |
|
325 |
frs_pop(); |
frs_pop(); |
326 |
bds_unwind1; |
bds_unwind1; |
327 |
goto T91; |
goto T86; |
328 |
goto T98; |
goto T93; |
329 |
T98:; |
T93:; |
330 |
{object V25; |
{object V29; |
331 |
V25= (base[32]->c.c_car); |
V29= (base[30]->c.c_car); |
332 |
ck_larg_exactly(0,(V25)); |
ck_larg_exactly(0,(V29)); |
333 |
base[34]= Cnil; |
base[32]= Cnil; |
334 |
base[35]= Ct; |
base[33]= Ct; |
335 |
vs_top=(vs_base=base+34)+2; |
vs_top=(vs_base=base+32)+2; |
336 |
vs_top=sup; |
vs_top=sup; |
337 |
frs_pop(); |
frs_pop(); |
338 |
goto T91;} |
goto T86;} |
339 |
frs_pop(); |
frs_pop(); |
340 |
goto T91; |
goto T86; |
341 |
goto T91; |
goto T86; |
342 |
T91:; |
T86:; |
343 |
base[32]= small_fixnum(1); |
base[30]= small_fixnum(1); |
344 |
vs_top=(vs_base=base+32)+1; |
vs_top=(vs_base=base+30)+1; |
345 |
(void) (*Lnk82)(); |
(void) (*Lnk82)(); |
346 |
vs_top=sup; |
vs_top=sup; |
347 |
setq(VV[47],Ct); |
setq(VV[47],Ct); |
348 |
goto T127; |
goto T117; |
349 |
T127:; |
T117:; |
350 |
(VV[22]->s.s_dbind)= (VV[21]->s.s_dbind); |
(VV[22]->s.s_dbind)= (VV[21]->s.s_dbind); |
351 |
(VV[21]->s.s_dbind)= (VV[20]->s.s_dbind); |
(VV[21]->s.s_dbind)= (VV[20]->s.s_dbind); |
352 |
(VV[20]->s.s_dbind)= (VV[3]->s.s_dbind); |
(VV[20]->s.s_dbind)= (VV[3]->s.s_dbind); |
353 |
if((symbol_value(VV[45]))==Cnil){ |
if((symbol_value(VV[45]))==Cnil){ |
354 |
goto T137;} |
goto T127;} |
355 |
setq(VV[45],Cnil); |
setq(VV[45],Cnil); |
356 |
goto T135; |
goto T125; |
357 |
goto T137; |
goto T127; |
358 |
T137:; |
T127:; |
359 |
base[32]= symbol_value(VV[41]); |
base[30]= symbol_value(VV[41]); |
360 |
base[33]= VV[48]; |
base[31]= VV[48]; |
361 |
if(!(type_of((V9))==t_string)){ |
if(!(type_of((V10))==t_string)){ |
362 |
goto T144;} |
goto T134;} |
363 |
base[34]= VV[49]; |
base[32]= VV[49]; |
364 |
goto T142; |
goto T132; |
365 |
goto T144; |
goto T134; |
366 |
T144:; |
T134:; |
367 |
base[34]= VV[50]; |
base[32]= VV[50]; |
368 |
goto T142; |
goto T132; |
369 |
T142:;{VOL object V26; |
T132:;{VOL object V30; |
370 |
V26= symbol_value(VV[51]); |
V30= symbol_value(VV[51]); |
371 |
base[36]= VV[52]; |
base[34]= VV[52]; |
372 |
vs_top=(vs_base=base+36)+1; |
vs_top=(vs_base=base+34)+1; |
373 |
Lfind_package(); |
Lfind_package(); |
374 |
vs_top=sup; |
vs_top=sup; |
375 |
V27= vs_base[0]; |
V31= vs_base[0]; |
376 |
if(!((V26)==(V27))){ |
if(!((V30)==(V31))){ |
377 |
goto T148;}} |
goto T138;}} |
378 |
base[35]= VV[53]; |
base[33]= VV[53]; |
379 |
goto T146; |
goto T136; |
380 |
goto T148; |
goto T138; |
381 |
T148:; |
T138:; |
382 |
base[36]= symbol_value(VV[51]); |
base[34]= symbol_value(VV[51]); |
383 |
vs_top=(vs_base=base+36)+1; |
vs_top=(vs_base=base+34)+1; |
384 |
Lpackage_name(); |
Lpackage_name(); |
385 |
vs_top=sup; |
vs_top=sup; |
386 |
base[35]= vs_base[0]; |
base[33]= vs_base[0]; |
387 |
goto T146; |
goto T136; |
388 |
T146:; |
T136:; |
389 |
base[36]= (VV[9]->s.s_dbind); |
base[34]= (VV[9]->s.s_dbind); |
390 |
vs_top=(vs_base=base+32)+5; |
vs_top=(vs_base=base+30)+5; |
391 |
Lformat(); |
Lformat(); |
392 |
vs_top=sup; |
vs_top=sup; |
393 |
goto T135; |
goto T125; |
394 |
T135:; |
T125:; |
395 |
base[32]=MMcons(Cnil,base[25]); |
base[30]=MMcons(Cnil,base[23]); |
396 |
base[33]=alloc_frame_id(); |
base[31]=alloc_frame_id(); |
397 |
base[33]=MMcons(base[33],base[32]); |
base[31]=MMcons(base[31],base[30]); |
398 |
frs_push(FRS_CATCH,(base[33]->c.c_car)); |
frs_push(FRS_CATCH,(base[31]->c.c_car)); |
399 |
if(nlj_active){ |
if(nlj_active){ |
400 |
nlj_active=FALSE; |
nlj_active=FALSE; |
401 |
if(eql(nlj_tag,VV[57]))goto T157; |
if(eql(nlj_tag,VV[57]))goto T147; |
402 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
403 |
} |
} |
404 |
base[35]= VV[37]; |
V32= |
405 |
base[36]= VV[31]; |
make_cclosure_new(LC17,Cnil,base[31],Cdata); |
406 |
base[37]= VV[38]; |
V33= |
407 |
base[38]= |
make_cclosure_new(LC18,Cnil,base[31],Cdata); |
408 |
make_cclosure_new(LC17,Cnil,base[33],Cdata); |
V34= (VFUN_NARGS=6,(*(LnkLI80))(VV[37],VV[31],VV[38],V32,VV[39],V33)); |
409 |
base[39]= VV[39]; |
V35= make_cons(/* INLINE-ARGS */V34,Cnil); |
410 |
base[40]= |
base[32]= make_cons(/* INLINE-ARGS */V35,symbol_value(VV[36])); |
411 |
make_cclosure_new(LC18,Cnil,base[33],Cdata); |
bds_bind(VV[36],base[32]); |
|
vs_top=(vs_base=base+35)+6; |
|
|
(void) (*Lnk80)(); |
|
|
vs_top=sup; |
|
|
V28= vs_base[0]; |
|
|
V29= make_cons(V28,Cnil); |
|
|
base[34]= make_cons(/* INLINE-ARGS */V29,symbol_value(VV[36])); |
|
|
bds_bind(VV[36],base[34]); |
|
412 |
frs_push(FRS_CATCH,VV[55]); |
frs_push(FRS_CATCH,VV[55]); |
413 |
if(nlj_active) |
if(nlj_active) |
414 |
{nlj_active=FALSE;frs_pop(); |
{nlj_active=FALSE;frs_pop(); |
415 |
vs_top=sup; |
vs_top=sup; |
416 |
V30= vs_base[0]; |
V36= vs_base[0]; |
417 |
goto T166;} |
goto T151;} |
418 |
else{ |
else{ |
419 |
base[35]= symbol_value(VV[41]); |
base[33]= symbol_value(VV[41]); |
420 |
base[36]= Cnil; |
base[34]= Cnil; |
421 |
base[37]= symbol_value(VV[56]); |
base[35]= symbol_value(VV[56]); |
422 |
vs_top=(vs_base=base+35)+3; |
vs_top=(vs_base=base+33)+3; |
423 |
(void) (*Lnk83)(); |
(void) (*Lnk83)(); |
424 |
vs_top=sup; |
vs_top=sup; |
425 |
(VV[3]->s.s_dbind)= vs_base[0]; |
(VV[3]->s.s_dbind)= vs_base[0]; |
426 |
if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[56])))){ |
if(!(((VV[3]->s.s_dbind))==(symbol_value(VV[56])))){ |
427 |
goto T173;} |
goto T158;} |
428 |
vs_base=vs_top; |
vs_base=vs_top; |
429 |
Lby(); |
Lby(); |
430 |
vs_top=sup; |
vs_top=sup; |
431 |
goto T173; |
goto T158; |
432 |
T173:; |
T158:; |
433 |
{register object V31; |
{register object V37; |
434 |
object V32; |
object V38; |
435 |
V31= Cnil; |
V37= Cnil; |
436 |
if((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package)){ |
if((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package)){ |
437 |
goto T181;} |
goto T166;} |
438 |
if(!(type_of((VV[3]->s.s_dbind))==t_fixnum||type_of((VV[3]->s.s_dbind))==t_bignum)){ |
if(!(type_of((VV[3]->s.s_dbind))==t_fixnum||type_of((VV[3]->s.s_dbind))==t_bignum)){ |
439 |
goto T180;} |
goto T165;} |
440 |
goto T181; |
goto T166; |
441 |
T181:; |
T166:; |
442 |
(VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil); |
(VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil); |
443 |
goto T180; |
goto T165; |
444 |
T180:; |
T165:; |
445 |
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
446 |
goto T187;} |
goto T172;} |
447 |
{object V33= car((VV[3]->s.s_dbind)); |
{object V39= car((VV[3]->s.s_dbind)); |
448 |
if(!((type_of(V33)==t_symbol&&(V33)->s.s_hpack==keyword_package))){ |
if(!((type_of(V39)==t_symbol&&(V39)->s.s_hpack==keyword_package))){ |
449 |
goto T187;}} |
goto T172;}} |
450 |
V31= Ct; |
V37= Ct; |
451 |
base[36]= car((VV[3]->s.s_dbind)); |
base[34]= car((VV[3]->s.s_dbind)); |
452 |
base[37]= cdr((VV[3]->s.s_dbind)); |
base[35]= cdr((VV[3]->s.s_dbind)); |
453 |
symlispcall(VV[84],base+36,2); |
symlispcall(VV[84],base+34,2); |
454 |
goto T179; |
goto T164; |
455 |
goto T187; |
goto T172; |
456 |
T187:; |
T172:; |
457 |
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
if(!(type_of((VV[3]->s.s_dbind))==t_cons)){ |
458 |
goto T196;} |
goto T181;} |
459 |
{object V34= car((VV[3]->s.s_dbind)); |
{object V40= car((VV[3]->s.s_dbind)); |
460 |
if(!(type_of(V34)==t_fixnum||type_of(V34)==t_bignum)){ |
if(!(type_of(V40)==t_fixnum||type_of(V40)==t_bignum)){ |
461 |
goto T196;}} |
goto T181;}} |
462 |
V31= Ct; |
V37= Ct; |
463 |
base[36]= car((VV[3]->s.s_dbind)); |
base[34]= car((VV[3]->s.s_dbind)); |
464 |
vs_top=(vs_base=base+36)+1; |
vs_top=(vs_base=base+34)+1; |
465 |
(void) (*Lnk85)(); |
(void) (*Lnk85)(); |
466 |
goto T179; |
goto T164; |
467 |
goto T196; |
goto T181; |
468 |
T196:; |
T181:; |
469 |
base[36]= (VV[3]->s.s_dbind); |
base[34]= (VV[3]->s.s_dbind); |
470 |
base[37]= Cnil; |
base[35]= Cnil; |
471 |
base[38]= Cnil; |
base[36]= Cnil; |
472 |
base[39]= (VV[16]->s.s_dbind); |
base[37]= (VV[16]->s.s_dbind); |
473 |
symlispcall(VV[86],base+36,4); |
symlispcall(VV[86],base+34,4); |
474 |
goto T179; |
goto T164; |
475 |
T179:; |
T164:; |
476 |
Llist(); |
Llist(); |
477 |
vs_top=sup; |
vs_top=sup; |
478 |
V32= vs_base[0]; |
V38= vs_base[0]; |
479 |
(VV[28]->s.s_dbind)= (VV[27]->s.s_dbind); |
(VV[28]->s.s_dbind)= (VV[27]->s.s_dbind); |
480 |
(VV[27]->s.s_dbind)= (VV[26]->s.s_dbind); |
(VV[27]->s.s_dbind)= (VV[26]->s.s_dbind); |
481 |
(VV[26]->s.s_dbind)= (V32); |
(VV[26]->s.s_dbind)= (V38); |
482 |
(VV[25]->s.s_dbind)= (VV[24]->s.s_dbind); |
(VV[25]->s.s_dbind)= (VV[24]->s.s_dbind); |
483 |
(VV[24]->s.s_dbind)= (VV[23]->s.s_dbind); |
(VV[24]->s.s_dbind)= (VV[23]->s.s_dbind); |
484 |
(VV[23]->s.s_dbind)= car((VV[26]->s.s_dbind)); |
(VV[23]->s.s_dbind)= car((VV[26]->s.s_dbind)); |
485 |
base[36]= symbol_value(VV[41]); |
base[34]= symbol_value(VV[41]); |
486 |
vs_top=(vs_base=base+36)+1; |
vs_top=(vs_base=base+34)+1; |
487 |
Lfresh_line(); |
Lfresh_line(); |
488 |
vs_top=sup; |
vs_top=sup; |
489 |
{register object V35; |
{register object V41; |
490 |
register object V36; |
register object V42; |
491 |
V35= (VV[26]->s.s_dbind); |
V41= (VV[26]->s.s_dbind); |
492 |
V36= car((V35)); |
V42= car((V41)); |
493 |
goto T224; |
goto T209; |
494 |
T224:; |
T209:; |
495 |
if(!(endp_prop((V35)))){ |
if(!(endp_prop((V41)))){ |
496 |
goto T225;} |
goto T210;} |
497 |
goto T176; |
goto T161; |
498 |
goto T225; |
goto T210; |
499 |
T225:; |
T210:; |
500 |
base[37]= (V36); |
base[35]= (V42); |
501 |
base[38]= symbol_value(VV[41]); |
base[36]= symbol_value(VV[41]); |
502 |
(void)simple_symlispcall(VV[87],base+37,2); |
(void)simple_symlispcall(VV[87],base+35,2); |
503 |
princ_char(10,VV[41]); |
princ_char(10,VV[41]); |
504 |
V35= cdr((V35)); |
V41= cdr((V41)); |
505 |
V36= car((V35)); |
V42= car((V41)); |
506 |
goto T224;}} |
goto T209;}} |
507 |
goto T176; |
goto T161; |
508 |
T176:; |
T161:; |
509 |
frs_pop(); |
frs_pop(); |
510 |
V30= Cnil;} |
V36= Cnil;} |
511 |
goto T166; |
goto T151; |
512 |
T166:; |
T151:; |
513 |
if((V30)==Cnil){ |
if((V36)==Cnil){ |
514 |
frs_pop(); |
frs_pop(); |
515 |
bds_unwind1; |
bds_unwind1; |
516 |
goto T128;} |
goto T118;} |
517 |
V37= ((V30)==Cnil?Ct:Cnil); |
V43= ((V36)==Cnil?Ct:Cnil); |
518 |
frs_pop(); |
frs_pop(); |
519 |
bds_unwind1; |
bds_unwind1; |
520 |
goto T155; |
goto T145; |
521 |
goto T157; |
goto T147; |
522 |
T157:; |
T147:; |
523 |
{register object V38; |
{register object V44; |
524 |
V38= (base[32]->c.c_car); |
V44= (base[30]->c.c_car); |
525 |
ck_larg_exactly(0,(V38)); |
ck_larg_exactly(0,(V44)); |
526 |
base[34]= Cnil; |
base[32]= Cnil; |
527 |
base[35]= Ct; |
base[33]= Ct; |
528 |
vs_top=(vs_base=base+34)+2; |
vs_top=(vs_base=base+32)+2; |
529 |
vs_top=sup; |
vs_top=sup; |
530 |
if((vs_base[0])!=Cnil){ |
if((vs_base[0])!=Cnil){ |
531 |
frs_pop(); |
frs_pop(); |
532 |
goto T128;} |
goto T118;} |
533 |
frs_pop(); |
frs_pop(); |
534 |
goto T155;} |
goto T145;} |
535 |
frs_pop(); |
frs_pop(); |
536 |
goto T155; |
goto T145; |
537 |
goto T155; |
goto T145; |
538 |
T155:; |
T145:; |
539 |
princ_char(10,VV[41]); |
princ_char(10,VV[41]); |
540 |
vs_base=vs_top; |
vs_base=vs_top; |
541 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
542 |
vs_top=sup; |
vs_top=sup; |
543 |
goto T128; |
goto T118; |
544 |
T128:; |
T118:; |
545 |
goto T127; |
goto T117; |
546 |
|
va_end(ap); |
547 |
|
base[0]=base[0]; |
548 |
|
return Cnil;} |
549 |
} |
} |
550 |
} |
/* local entry for function CLCS-TERMINAL-INTERRUPT */ |
|
/* function definition for CLCS-TERMINAL-INTERRUPT */ |
|
551 |
|
|
552 |
static void L7() |
static object LI7(V46) |
553 |
{register object *base=vs_base; |
|
554 |
register object *sup=base+VM7; VC7 |
object V46; |
555 |
vs_reserve(VM7); |
{ VMB7 VMS7 VMV7 |
|
{object V39; |
|
|
check_arg(1); |
|
|
V39=(base[0]); |
|
|
vs_top=sup; |
|
556 |
goto TTL; |
goto TTL; |
557 |
TTL:; |
TTL:; |
558 |
if(((V39))==Cnil){ |
if(((V46))==Cnil){ |
559 |
goto T244;} |
goto T229;} |
560 |
base[1]= VV[58]; |
base[0]= VV[58]; |
561 |
base[2]= VV[59]; |
base[1]= VV[59]; |
562 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+0)+2; |
563 |
(void) (*Lnk89)(); |
(void) (*Lnk89)(); |
564 |
return; |
vs_top=sup; |
565 |
goto T244; |
{object V47 = vs_base[0]; |
566 |
T244:; |
VMR7(V47)} |
567 |
base[1]= VV[60]; |
goto T229; |
568 |
vs_top=(vs_base=base+1)+1; |
T229:; |
569 |
|
base[0]= VV[60]; |
570 |
|
vs_top=(vs_base=base+0)+1; |
571 |
(void) (*Lnk90)(); |
(void) (*Lnk90)(); |
572 |
return; |
vs_top=sup; |
573 |
} |
{object V48 = vs_base[0]; |
574 |
|
VMR7(V48)} |
575 |
|
base[0]=base[0]; |
576 |
|
return Cnil; |
577 |
} |
} |
578 |
/* function definition for CLCS-BREAK-QUIT */ |
/* local entry for function CLCS-BREAK-QUIT */ |
579 |
|
|
580 |
static void L8() |
static object LI8(object first,...) |
581 |
{register object *base=vs_base; |
{ |
582 |
register object *sup=base+VM8; VC8 |
va_list ap; |
583 |
vs_reserve(VM8); |
int narg = VFUN_NARGS; VMB8 VMS8 VMV8 |
584 |
{object V40; |
{object V49; |
585 |
if(vs_top-vs_base>1) too_many_arguments(); |
Vcs[0]=Vcs[0]; |
586 |
if(vs_base>=vs_top){vs_top=sup;goto T249;} |
va_start(ap,first); |
587 |
V40=(base[0]); |
narg = narg - 0; |
588 |
vs_top=sup; |
if (narg <= 0) goto T234; |
589 |
goto T250; |
else { |
590 |
goto T249; |
V49= first;} |
591 |
T249:; |
--narg; goto T235; |
592 |
V40= small_fixnum(0); |
goto T234; |
593 |
goto T250; |
T234:; |
594 |
T250:; |
V49= small_fixnum(0); |
595 |
{object V41; |
goto T235; |
596 |
V42= reverse(symbol_value(VV[0])); |
T235:; |
597 |
V41= nth(fixint((V40)),/* INLINE-ARGS */V42); |
{object V50; |
598 |
if(((V41))==Cnil){ |
V51= reverse(symbol_value(VV[0])); |
599 |
goto T252;} |
V50= nth(fixint((V49)),/* INLINE-ARGS */V51); |
600 |
base[1]= (V41); |
if(((V50))==Cnil){ |
601 |
vs_top=(vs_base=base+1)+1; |
goto T237;} |
602 |
|
base[0]= (V50); |
603 |
|
vs_top=(vs_base=base+0)+1; |
604 |
(void) (*Lnk72)(); |
(void) (*Lnk72)(); |
605 |
vs_top=sup;} |
vs_top=sup;} |
606 |
goto T252; |
goto T237; |
607 |
T252:; |
T237:; |
608 |
vs_base=vs_top; |
vs_base=vs_top; |
609 |
(void) (*Lnk88)(); |
(void) (*Lnk88)(); |
610 |
return; |
vs_top=sup; |
611 |
|
{object V52 = vs_base[0]; |
612 |
|
VMR8(V52)} |
613 |
|
va_end(ap); |
614 |
|
base[0]=base[0]; |
615 |
|
return Cnil;} |
616 |
} |
} |
|
} |
|
617 |
/* local entry for function progn 'compile2508 */ |
/* local entry for function progn 'compile2508 */ |
618 |
|
|
619 |
static object LI9() |
static object LI9() |
622 |
goto TTL; |
goto TTL; |
623 |
TTL:; |
TTL:; |
624 |
setq(VV[61],VV[62]); |
setq(VV[61],VV[62]); |
625 |
{object V43 = Cnil; |
{object V53 = Cnil; |
626 |
VMR9(V43)} |
VMR9(V53)} |
627 |
return Cnil; |
return Cnil; |
628 |
} |
} |
629 |
/* local entry for function progn 'compile2520 */ |
/* local entry for function progn 'compile2520 */ |
634 |
goto TTL; |
goto TTL; |
635 |
TTL:; |
TTL:; |
636 |
setq(VV[63],VV[64]); |
setq(VV[63],VV[64]); |
637 |
{object V44 = Cnil; |
{object V54 = Cnil; |
638 |
VMR10(V44)} |
VMR10(V54)} |
639 |
return Cnil; |
return Cnil; |
640 |
} |
} |
641 |
/* function definition for BREAK-RESUME */ |
/* function definition for BREAK-RESUME */ |
665 |
goto TTL; |
goto TTL; |
666 |
TTL:; |
TTL:; |
667 |
(void)(putprop(VV[65],VV[66],VV[67])); |
(void)(putprop(VV[65],VV[66],VV[67])); |
668 |
{object V45 = Cnil; |
{object V55 = Cnil; |
669 |
VMR12(V45)} |
VMR12(V55)} |
670 |
return Cnil; |
return Cnil; |
671 |
} |
} |
672 |
/* local entry for function progn 'compile2552 */ |
/* local entry for function progn 'compile2552 */ |
677 |
goto TTL; |
goto TTL; |
678 |
TTL:; |
TTL:; |
679 |
(void)(putprop(VV[68],VV[69],VV[67])); |
(void)(putprop(VV[68],VV[69],VV[67])); |
680 |
{object V46 = Cnil; |
{object V56 = Cnil; |
681 |
VMR13(V46)} |
VMR13(V56)} |
682 |
return Cnil; |
return Cnil; |
683 |
} |
} |
684 |
/* function definition for BREAK-HELP */ |
/* function definition for BREAK-HELP */ |
707 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
708 |
register object *sup=base+VM15; VC15 |
register object *sup=base+VM15; VC15 |
709 |
vs_reserve(VM15); |
vs_reserve(VM15); |
710 |
{object V47; |
{object V57; |
711 |
check_arg(1); |
check_arg(1); |
712 |
V47=(base[0]); |
V57=(base[0]); |
713 |
vs_top=sup; |
vs_top=sup; |
714 |
base[1]= (V47); |
base[1]= (V57); |
715 |
base[2]= VV[54]; |
base[2]= VV[54]; |
716 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
717 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
726 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
727 |
register object *sup=base+VM16; VC16 |
register object *sup=base+VM16; VC16 |
728 |
vs_reserve(VM16); |
vs_reserve(VM16); |
729 |
{object V48; |
{object V58; |
730 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
731 |
{object *p=vs_top; |
{object *p=vs_top; |
732 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
733 |
V48=(base[0]); |
V58=(base[0]); |
734 |
vs_top=sup; |
vs_top=sup; |
735 |
(base0[1]->c.c_car)= (V48); |
(base0[1]->c.c_car)= (V58); |
736 |
{frame_ptr fr; |
{frame_ptr fr; |
737 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
738 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[57]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[57]); |
747 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
748 |
register object *sup=base+VM17; VC17 |
register object *sup=base+VM17; VC17 |
749 |
vs_reserve(VM17); |
vs_reserve(VM17); |
750 |
{object V49; |
{object V59; |
751 |
check_arg(1); |
check_arg(1); |
752 |
V49=(base[0]); |
V59=(base[0]); |
753 |
vs_top=sup; |
vs_top=sup; |
754 |
base[1]= (V49); |
base[1]= (V59); |
755 |
base[2]= VV[40]; |
base[2]= VV[40]; |
756 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
757 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
766 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
767 |
register object *sup=base+VM18; VC18 |
register object *sup=base+VM18; VC18 |
768 |
vs_reserve(VM18); |
vs_reserve(VM18); |
769 |
{object V50; |
{object V60; |
770 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
771 |
{object *p=vs_top; |
{object *p=vs_top; |
772 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
773 |
V50=(base[0]); |
V60=(base[0]); |
774 |
vs_top=sup; |
vs_top=sup; |
775 |
(base0[1]->c.c_car)= (V50); |
(base0[1]->c.c_car)= (V60); |
776 |
{frame_ptr fr; |
{frame_ptr fr; |
777 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
778 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[46]); |
787 |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */ |
static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */ |
788 |
static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* DBL-READ */ |
static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* DBL-READ */ |
789 |
static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* CATCH-FATAL */ |
static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* CATCH-FATAL */ |
790 |
static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* SHOW-RESTARTS */ |
static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)&LnkLI69,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */ |
791 |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* SET-CURRENT */ |
static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* SET-CURRENT */ |
792 |
static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* MAKE-RESTART */ |
static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[80],(void **)&LnkLI80,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
793 |
static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SET-BACK */ |
static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SET-BACK */ |
794 |
static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* FIND-RESTART */ |
static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
795 |
static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* COMPUTE-RESTARTS */ |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */ |
796 |
static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* FRS-TOP */ |
static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* FRS-TOP */ |
797 |
static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* SCH-FRS-BASE */ |
static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* SCH-FRS-BASE */ |
798 |
static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* IHS-TOP */ |
static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* IHS-TOP */ |
799 |
static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* CONDITIONP */ |
static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* CONDITIONP */ |
800 |
static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* INVOKE-RESTART-INTERACTIVELY */ |
static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* INVOKE-RESTART-INTERACTIVELY */ |
801 |
static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* *MAKE-SPECIAL */ |
static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* *MAKE-SPECIAL */ |
802 |
|
|