2 |
#include "cmpinclude.h" |
#include "cmpinclude.h" |
3 |
#include "clcs_debugger.h" |
#include "clcs_debugger.h" |
4 |
void init_clcs_debugger(){do_init(VV);} |
void init_clcs_debugger(){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 |
|
|
11 |
TTL:; |
TTL:; |
12 |
base[0]= VV[0]; |
base[0]= VV[0]; |
13 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
14 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
15 |
vs_top=sup; |
vs_top=sup; |
16 |
{object V1 = Cnil; |
{object V1 = Cnil; |
17 |
VMR1(V1)} |
VMR1(V1)} |
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; |
32 |
T4:; |
T4:; |
33 |
setq(VV[0],small_fixnum(0)); |
(VV[0]->s.s_dbind)= small_fixnum(0); |
34 |
goto T3; |
goto T3; |
35 |
T3:; |
T3:; |
36 |
{object V2 = Cnil; |
{object V2 = Cnil; |
37 |
VMR2(V2)} |
VMR2(V2)} |
|
base[0]=base[0]; |
|
38 |
return Cnil; |
return Cnil; |
39 |
} |
} |
40 |
/* local entry for function progn 'compile2209 */ |
/* local entry for function progn 'compile2211 */ |
41 |
|
|
42 |
static object LI3() |
static object LI3() |
43 |
|
|
48 |
VMR3(V3)} |
VMR3(V3)} |
49 |
return Cnil; |
return Cnil; |
50 |
} |
} |
51 |
/* local entry for function progn 'compile2225 */ |
/* local entry for function progn 'compile2227 */ |
52 |
|
|
53 |
static object LI4() |
static object LI4() |
54 |
|
|
57 |
TTL:; |
TTL:; |
58 |
base[0]= VV[1]; |
base[0]= VV[1]; |
59 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
60 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
61 |
vs_top=sup; |
vs_top=sup; |
62 |
{object V4 = Cnil; |
{object V4 = Cnil; |
63 |
VMR4(V4)} |
VMR4(V4)} |
64 |
base[0]=base[0]; |
base[0]=base[0]; |
65 |
return Cnil; |
return Cnil; |
66 |
} |
} |
67 |
/* local entry for function progn 'compile2237 */ |
/* local entry for function progn 'compile2239 */ |
68 |
|
|
69 |
static object LI5() |
static object LI5() |
70 |
|
|
71 |
{ VMB5 VMS5 VMV5 |
{ VMB5 VMS5 VMV5 |
72 |
goto TTL; |
goto TTL; |
73 |
TTL:; |
TTL:; |
74 |
base[0]= VV[1]; |
if(!((VV[1])->s.s_dbind!=OBJNULL)){ |
75 |
vs_top=(vs_base=base+0)+1; |
goto T11;} |
76 |
Lboundp(); |
goto T10; |
|
vs_top=sup; |
|
|
if((vs_base[0])==Cnil){ |
|
|
goto T12;} |
|
|
goto T11; |
|
|
goto T12; |
|
|
T12:; |
|
|
setq(VV[1],Cnil); |
|
77 |
goto T11; |
goto T11; |
78 |
T11:; |
T11:; |
79 |
|
(VV[1]->s.s_dbind)= Cnil; |
80 |
|
goto T10; |
81 |
|
T10:; |
82 |
{object V5 = Cnil; |
{object V5 = Cnil; |
83 |
VMR5(V5)} |
VMR5(V5)} |
|
base[0]=base[0]; |
|
84 |
return Cnil; |
return Cnil; |
85 |
} |
} |
86 |
/* local entry for function progn 'compile2250 */ |
/* local entry for function progn 'compile2252 */ |
87 |
|
|
88 |
static object LI6() |
static object LI6() |
89 |
|
|
94 |
VMR6(V6)} |
VMR6(V6)} |
95 |
return Cnil; |
return Cnil; |
96 |
} |
} |
97 |
/* local entry for function progn 'compile2266 */ |
/* local entry for function progn 'compile2268 */ |
98 |
|
|
99 |
static object LI7() |
static object LI7() |
100 |
|
|
103 |
TTL:; |
TTL:; |
104 |
base[0]= VV[2]; |
base[0]= VV[2]; |
105 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
106 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
107 |
vs_top=sup; |
vs_top=sup; |
108 |
{object V7 = Cnil; |
{object V7 = Cnil; |
109 |
VMR7(V7)} |
VMR7(V7)} |
110 |
base[0]=base[0]; |
base[0]=base[0]; |
111 |
return Cnil; |
return Cnil; |
112 |
} |
} |
113 |
/* local entry for function progn 'compile2278 */ |
/* local entry for function progn 'compile2280 */ |
114 |
|
|
115 |
static object LI8() |
static object LI8() |
116 |
|
|
117 |
{ VMB8 VMS8 VMV8 |
{ VMB8 VMS8 VMV8 |
118 |
goto TTL; |
goto TTL; |
119 |
TTL:; |
TTL:; |
120 |
base[0]= VV[2]; |
if(!((VV[2])->s.s_dbind!=OBJNULL)){ |
121 |
vs_top=(vs_base=base+0)+1; |
goto T18;} |
122 |
Lboundp(); |
goto T17; |
123 |
vs_top=sup; |
goto T18; |
124 |
if((vs_base[0])==Cnil){ |
T18:; |
125 |
goto T20;} |
(VV[2]->s.s_dbind)= Cnil; |
126 |
goto T19; |
goto T17; |
127 |
goto T20; |
T17:; |
|
T20:; |
|
|
setq(VV[2],Cnil); |
|
|
goto T19; |
|
|
T19:; |
|
128 |
{object V8 = Cnil; |
{object V8 = Cnil; |
129 |
VMR8(V8)} |
VMR8(V8)} |
|
base[0]=base[0]; |
|
130 |
return Cnil; |
return Cnil; |
131 |
} |
} |
132 |
/* local entry for function progn 'compile2291 */ |
/* local entry for function progn 'compile2293 */ |
133 |
|
|
134 |
static object LI9() |
static object LI9() |
135 |
|
|
140 |
VMR9(V9)} |
VMR9(V9)} |
141 |
return Cnil; |
return Cnil; |
142 |
} |
} |
143 |
/* local entry for function progn 'compile2307 */ |
/* local entry for function progn 'compile2309 */ |
144 |
|
|
145 |
static object LI10() |
static object LI10() |
146 |
|
|
149 |
TTL:; |
TTL:; |
150 |
base[0]= VV[3]; |
base[0]= VV[3]; |
151 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
152 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
153 |
vs_top=sup; |
vs_top=sup; |
154 |
{object V10 = Cnil; |
{object V10 = Cnil; |
155 |
VMR10(V10)} |
VMR10(V10)} |
156 |
base[0]=base[0]; |
base[0]=base[0]; |
157 |
return Cnil; |
return Cnil; |
158 |
} |
} |
159 |
/* local entry for function progn 'compile2319 */ |
/* local entry for function progn 'compile2321 */ |
160 |
|
|
161 |
static object LI11() |
static object LI11() |
162 |
|
|
163 |
{ VMB11 VMS11 VMV11 |
{ VMB11 VMS11 VMV11 |
164 |
goto TTL; |
goto TTL; |
165 |
TTL:; |
TTL:; |
166 |
base[0]= VV[3]; |
if(!((VV[3])->s.s_dbind!=OBJNULL)){ |
167 |
vs_top=(vs_base=base+0)+1; |
goto T25;} |
168 |
Lboundp(); |
goto T24; |
169 |
vs_top=sup; |
goto T25; |
170 |
if((vs_base[0])==Cnil){ |
T25:; |
171 |
goto T28;} |
(VV[3]->s.s_dbind)= Cnil; |
172 |
goto T27; |
goto T24; |
173 |
goto T28; |
T24:; |
|
T28:; |
|
|
setq(VV[3],Cnil); |
|
|
goto T27; |
|
|
T27:; |
|
174 |
{object V11 = Cnil; |
{object V11 = Cnil; |
175 |
VMR11(V11)} |
VMR11(V11)} |
|
base[0]=base[0]; |
|
176 |
return Cnil; |
return Cnil; |
177 |
} |
} |
178 |
/* local entry for function progn 'compile2332 */ |
/* local entry for function progn 'compile2334 */ |
179 |
|
|
180 |
static object LI12() |
static object LI12() |
181 |
|
|
186 |
VMR12(V12)} |
VMR12(V12)} |
187 |
return Cnil; |
return Cnil; |
188 |
} |
} |
189 |
/* local entry for function progn 'compile2348 */ |
/* local entry for function progn 'compile2350 */ |
190 |
|
|
191 |
static object LI13() |
static object LI13() |
192 |
|
|
195 |
TTL:; |
TTL:; |
196 |
base[0]= VV[4]; |
base[0]= VV[4]; |
197 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
198 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
199 |
vs_top=sup; |
vs_top=sup; |
200 |
{object V13 = Cnil; |
{object V13 = Cnil; |
201 |
VMR13(V13)} |
VMR13(V13)} |
202 |
base[0]=base[0]; |
base[0]=base[0]; |
203 |
return Cnil; |
return Cnil; |
204 |
} |
} |
205 |
/* local entry for function progn 'compile2360 */ |
/* local entry for function progn 'compile2362 */ |
206 |
|
|
207 |
static object LI14() |
static object LI14() |
208 |
|
|
209 |
{ VMB14 VMS14 VMV14 |
{ VMB14 VMS14 VMV14 |
210 |
goto TTL; |
goto TTL; |
211 |
TTL:; |
TTL:; |
212 |
base[0]= VV[4]; |
if(!((VV[4])->s.s_dbind!=OBJNULL)){ |
213 |
vs_top=(vs_base=base+0)+1; |
goto T32;} |
214 |
Lboundp(); |
goto T31; |
215 |
vs_top=sup; |
goto T32; |
216 |
if((vs_base[0])==Cnil){ |
T32:; |
217 |
goto T36;} |
(VV[4]->s.s_dbind)= Cnil; |
218 |
goto T35; |
goto T31; |
219 |
goto T36; |
T31:; |
|
T36:; |
|
|
setq(VV[4],Cnil); |
|
|
goto T35; |
|
|
T35:; |
|
220 |
{object V14 = Cnil; |
{object V14 = Cnil; |
221 |
VMR14(V14)} |
VMR14(V14)} |
|
base[0]=base[0]; |
|
222 |
return Cnil; |
return Cnil; |
223 |
} |
} |
224 |
/* local entry for function progn 'compile2373 */ |
/* local entry for function progn 'compile2375 */ |
225 |
|
|
226 |
static object LI15() |
static object LI15() |
227 |
|
|
232 |
VMR15(V15)} |
VMR15(V15)} |
233 |
return Cnil; |
return Cnil; |
234 |
} |
} |
235 |
/* local entry for function progn 'compile2389 */ |
/* local entry for function progn 'compile2391 */ |
236 |
|
|
237 |
static object LI16() |
static object LI16() |
238 |
|
|
241 |
TTL:; |
TTL:; |
242 |
base[0]= VV[5]; |
base[0]= VV[5]; |
243 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
244 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
245 |
vs_top=sup; |
vs_top=sup; |
246 |
{object V16 = Cnil; |
{object V16 = Cnil; |
247 |
VMR16(V16)} |
VMR16(V16)} |
248 |
base[0]=base[0]; |
base[0]=base[0]; |
249 |
return Cnil; |
return Cnil; |
250 |
} |
} |
251 |
/* local entry for function progn 'compile2401 */ |
/* local entry for function progn 'compile2403 */ |
252 |
|
|
253 |
static object LI17() |
static object LI17() |
254 |
|
|
255 |
{ VMB17 VMS17 VMV17 |
{ VMB17 VMS17 VMV17 |
256 |
goto TTL; |
goto TTL; |
257 |
TTL:; |
TTL:; |
258 |
base[0]= VV[5]; |
if(!((VV[5])->s.s_dbind!=OBJNULL)){ |
259 |
vs_top=(vs_base=base+0)+1; |
goto T39;} |
260 |
Lboundp(); |
goto T38; |
261 |
vs_top=sup; |
goto T39; |
262 |
if((vs_base[0])==Cnil){ |
T39:; |
263 |
goto T44;} |
(VV[5]->s.s_dbind)= small_fixnum(0); |
264 |
goto T43; |
goto T38; |
265 |
goto T44; |
T38:; |
|
T44:; |
|
|
setq(VV[5],small_fixnum(0)); |
|
|
goto T43; |
|
|
T43:; |
|
266 |
{object V17 = Cnil; |
{object V17 = Cnil; |
267 |
VMR17(V17)} |
VMR17(V17)} |
|
base[0]=base[0]; |
|
268 |
return Cnil; |
return Cnil; |
269 |
} |
} |
270 |
/* local entry for function progn 'compile2414 */ |
/* local entry for function progn 'compile2416 */ |
271 |
|
|
272 |
static object LI18() |
static object LI18() |
273 |
|
|
278 |
VMR18(V18)} |
VMR18(V18)} |
279 |
return Cnil; |
return Cnil; |
280 |
} |
} |
281 |
/* local entry for function progn 'compile2430 */ |
/* local entry for function progn 'compile2432 */ |
282 |
|
|
283 |
static object LI19() |
static object LI19() |
284 |
|
|
287 |
TTL:; |
TTL:; |
288 |
base[0]= VV[6]; |
base[0]= VV[6]; |
289 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
290 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
291 |
vs_top=sup; |
vs_top=sup; |
292 |
{object V19 = Cnil; |
{object V19 = Cnil; |
293 |
VMR19(V19)} |
VMR19(V19)} |
294 |
base[0]=base[0]; |
base[0]=base[0]; |
295 |
return Cnil; |
return Cnil; |
296 |
} |
} |
297 |
/* local entry for function progn 'compile2442 */ |
/* local entry for function progn 'compile2444 */ |
298 |
|
|
299 |
static object LI20() |
static object LI20() |
300 |
|
|
301 |
{ VMB20 VMS20 VMV20 |
{ VMB20 VMS20 VMV20 |
302 |
goto TTL; |
goto TTL; |
303 |
TTL:; |
TTL:; |
304 |
base[0]= VV[6]; |
if(!((VV[6])->s.s_dbind!=OBJNULL)){ |
305 |
vs_top=(vs_base=base+0)+1; |
goto T46;} |
306 |
Lboundp(); |
goto T45; |
307 |
vs_top=sup; |
goto T46; |
308 |
if((vs_base[0])==Cnil){ |
T46:; |
309 |
goto T52;} |
(VV[6]->s.s_dbind)= VV[7]; |
310 |
goto T51; |
goto T45; |
311 |
goto T52; |
T45:; |
|
T52:; |
|
|
setq(VV[6],VV[7]); |
|
|
goto T51; |
|
|
T51:; |
|
312 |
{object V20 = Cnil; |
{object V20 = Cnil; |
313 |
VMR20(V20)} |
VMR20(V20)} |
|
base[0]=base[0]; |
|
314 |
return Cnil; |
return Cnil; |
315 |
} |
} |
316 |
/* local entry for function progn 'compile2455 */ |
/* local entry for function progn 'compile2457 */ |
317 |
|
|
318 |
static object LI21() |
static object LI21() |
319 |
|
|
324 |
VMR21(V21)} |
VMR21(V21)} |
325 |
return Cnil; |
return Cnil; |
326 |
} |
} |
327 |
/* local entry for function progn 'compile2471 */ |
/* local entry for function progn 'compile2473 */ |
328 |
|
|
329 |
static object LI22() |
static object LI22() |
330 |
|
|
333 |
TTL:; |
TTL:; |
334 |
base[0]= VV[8]; |
base[0]= VV[8]; |
335 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
336 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
337 |
vs_top=sup; |
vs_top=sup; |
338 |
{object V22 = Cnil; |
{object V22 = Cnil; |
339 |
VMR22(V22)} |
VMR22(V22)} |
340 |
base[0]=base[0]; |
base[0]=base[0]; |
341 |
return Cnil; |
return Cnil; |
342 |
} |
} |
343 |
/* local entry for function progn 'compile2483 */ |
/* local entry for function progn 'compile2485 */ |
344 |
|
|
345 |
static object LI23() |
static object LI23() |
346 |
|
|
347 |
{ VMB23 VMS23 VMV23 |
{ VMB23 VMS23 VMV23 |
348 |
goto TTL; |
goto TTL; |
349 |
TTL:; |
TTL:; |
350 |
base[0]= VV[8]; |
if(!((VV[8])->s.s_dbind!=OBJNULL)){ |
351 |
vs_top=(vs_base=base+0)+1; |
goto T53;} |
352 |
Lboundp(); |
goto T52; |
353 |
vs_top=sup; |
goto T53; |
354 |
if((vs_base[0])==Cnil){ |
T53:; |
355 |
goto T60;} |
(VV[8]->s.s_dbind)= VV[67]; |
356 |
goto T59; |
goto T52; |
357 |
goto T60; |
T52:; |
|
T60:; |
|
|
setq(VV[8],VV[66]); |
|
|
goto T59; |
|
|
T59:; |
|
358 |
{object V23 = Cnil; |
{object V23 = Cnil; |
359 |
VMR23(V23)} |
VMR23(V23)} |
|
base[0]=base[0]; |
|
360 |
return Cnil; |
return Cnil; |
361 |
} |
} |
362 |
/* local entry for function progn 'compile2500 */ |
/* local entry for function progn 'compile2502 */ |
363 |
|
|
364 |
static object LI24() |
static object LI24() |
365 |
|
|
375 |
static void L25() |
static void L25() |
376 |
{register object *base=vs_base; |
{register object *base=vs_base; |
377 |
register object *sup=base+VM25; VC25 |
register object *sup=base+VM25; VC25 |
378 |
vs_reserve(VM25); |
vs_check; |
|
check_arg(2); |
|
379 |
vs_top=sup; |
vs_top=sup; |
380 |
{object V25=base[0]->c.c_cdr; |
{object V25=base[0]->c.c_cdr; |
381 |
if(endp(V25))invalid_macro_call(); |
base[2]= (V25->c.c_car);} |
|
base[2]= (V25->c.c_car); |
|
|
V25=V25->c.c_cdr; |
|
|
if(!endp(V25))invalid_macro_call();} |
|
382 |
base[3]= list(3,VV[10],base[2],VV[11]); |
base[3]= list(3,VV[10],base[2],VV[11]); |
383 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
384 |
return; |
return; |
388 |
static void L26() |
static void L26() |
389 |
{register object *base=vs_base; |
{register object *base=vs_base; |
390 |
register object *sup=base+VM26; VC26 |
register object *sup=base+VM26; VC26 |
391 |
vs_reserve(VM26); |
vs_check; |
|
check_arg(2); |
|
392 |
vs_top=sup; |
vs_top=sup; |
393 |
{object V26=base[0]->c.c_cdr; |
{object V26=base[0]->c.c_cdr; |
394 |
if(endp(V26))invalid_macro_call(); |
base[2]= (V26->c.c_car);} |
|
base[2]= (V26->c.c_car); |
|
|
V26=V26->c.c_cdr; |
|
|
if(!endp(V26))invalid_macro_call();} |
|
395 |
base[3]= list(3,VV[10],base[2],VV[12]); |
base[3]= list(3,VV[10],base[2],VV[12]); |
396 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
397 |
return; |
return; |
401 |
static void L27() |
static void L27() |
402 |
{register object *base=vs_base; |
{register object *base=vs_base; |
403 |
register object *sup=base+VM27; VC27 |
register object *sup=base+VM27; VC27 |
404 |
vs_reserve(VM27); |
vs_check; |
|
check_arg(2); |
|
405 |
vs_top=sup; |
vs_top=sup; |
406 |
{object V27=base[0]->c.c_cdr; |
{object V27=base[0]->c.c_cdr; |
|
if(endp(V27))invalid_macro_call(); |
|
407 |
base[2]= (V27->c.c_car); |
base[2]= (V27->c.c_car); |
408 |
V27=V27->c.c_cdr; |
V27=V27->c.c_cdr; |
|
if(endp(V27))invalid_macro_call(); |
|
409 |
base[3]= (V27->c.c_car); |
base[3]= (V27->c.c_car); |
410 |
V27=V27->c.c_cdr; |
V27=V27->c.c_cdr; |
411 |
base[4]= V27;} |
base[4]= V27;} |
412 |
V28= list(2,VV[15],list(2,VV[16],base[2])); |
V28= list(2,VV[15],list(2,VV[16],base[2])); |
413 |
V29= list(3,VV[14],/* INLINE-ARGS */V28,list(2,VV[17],listA(3,VV[18],base[3],base[4]))); |
V29= list(3,VV[14],/* INLINE-ARGS */V28,list(2,VV[17],listA(3,VV[18],base[3],base[4]))); |
414 |
V30= list(2,VV[19],list(2,VV[16],base[2])); |
V30= list(2,VV[19],list(2,VV[16],base[2])); |
415 |
V31 = make_fixnum((long)length(base[3])); |
V31 = CMPmake_fixnum((long)length(base[3])); |
416 |
V32= list(3,VV[14],/* INLINE-ARGS */V30,V31); |
V32= list(3,VV[14],/* INLINE-ARGS */V30,V31); |
417 |
base[5]= list(4,VV[13],/* INLINE-ARGS */V29,/* INLINE-ARGS */V32,list(2,VV[16],base[2])); |
base[5]= list(4,VV[13],/* INLINE-ARGS */V29,/* INLINE-ARGS */V32,list(2,VV[16],base[2])); |
418 |
vs_top=(vs_base=base+5)+1; |
vs_top=(vs_base=base+5)+1; |
428 |
TTL:; |
TTL:; |
429 |
base[0]= Ct; |
base[0]= Ct; |
430 |
base[1]= VV[20]; |
base[1]= VV[20]; |
431 |
base[2]= symbol_value(VV[0]); |
base[2]= (VV[0]->s.s_dbind); |
432 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
433 |
Lformat(); |
Lformat(); |
434 |
vs_top=sup; |
vs_top=sup; |
435 |
base[1]= Ct; |
base[0]= Ct; |
436 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+0)+1; |
437 |
Lpeek_char(); |
Lpeek_char(); |
438 |
vs_top=sup; |
vs_top=sup; |
439 |
base[0]= vs_base[0]; |
V33= vs_base[0]; |
440 |
base[1]= VV[21]; |
if(!(char_code(V33)==char_code(VV[21]))){ |
441 |
vs_top=(vs_base=base+0)+2; |
goto T62;} |
442 |
Lchar_eq(); |
{long V34; |
443 |
vs_top=sup; |
V34= 0; |
444 |
if((vs_base[0])==Cnil){ |
if(!((type_of((VV[22]->s.s_dbind))==t_stream? (((VV[22]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){ |
445 |
goto T70;} |
goto T69;} |
446 |
vs_base=vs_top; |
V34= (long)getc(((VV[22]->s.s_dbind))->sm.sm_fp); |
447 |
Lread_char(); |
if(!((V34)==(-1))){ |
448 |
vs_top=sup; |
goto T74;} |
449 |
{register object V33; |
if(!((feof(((VV[22]->s.s_dbind))->sm.sm_fp)))){ |
450 |
|
goto T74;} |
451 |
|
goto T66; |
452 |
|
goto T74; |
453 |
|
T74:; |
454 |
|
(void)((V34)); |
455 |
|
goto T66; |
456 |
|
goto T69; |
457 |
|
T69:; |
458 |
|
(void)(read_char1((VV[22]->s.s_dbind),Cnil));} |
459 |
|
goto T66; |
460 |
|
T66:; |
461 |
|
{register object V35; |
462 |
vs_base=vs_top; |
vs_base=vs_top; |
463 |
Lread_line(); |
Lread_line(); |
464 |
vs_top=sup; |
vs_top=sup; |
466 |
base[1]= Cnil; |
base[1]= Cnil; |
467 |
base[2]= Cnil; |
base[2]= Cnil; |
468 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
469 |
(void) (*Lnk67)(); |
(void) (*Lnk68)(); |
470 |
vs_top=sup; |
vs_top=sup; |
471 |
V33= vs_base[0]; |
V35= vs_base[0]; |
472 |
{register object V34; |
{register object V36; |
473 |
V34= make_cons(Cnil,Cnil); |
V36= make_cons(Cnil,Cnil); |
474 |
{register object V35; |
{register object V37; |
475 |
register object V36; |
register object V38; |
476 |
base[1]= VV[23]; |
base[1]= VV[24]; |
477 |
vs_top=(vs_base=base+1)+1; |
vs_top=(vs_base=base+1)+1; |
478 |
Lfind_package(); |
Lfind_package(); |
479 |
vs_top=sup; |
vs_top=sup; |
480 |
base[0]= vs_base[0]; |
base[0]= vs_base[0]; |
481 |
bds_bind(VV[22],base[0]); |
bds_bind(VV[23],base[0]); |
482 |
base[1]= (V33); |
base[1]= (V35); |
483 |
base[2]= Cnil; |
base[2]= Cnil; |
484 |
base[3]= (V34); |
base[3]= (V36); |
485 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
486 |
Lread(); |
Lread(); |
487 |
vs_top=sup; |
vs_top=sup; |
488 |
bds_unwind1; |
bds_unwind1; |
489 |
V35= vs_base[0]; |
V37= vs_base[0]; |
490 |
V36= Cnil; |
V38= Cnil; |
491 |
goto T88; |
goto T90; |
492 |
T88:; |
T90:; |
493 |
if(!(((V35))==((V34)))){ |
if(!(((V37))==((V36)))){ |
494 |
goto T89;} |
goto T91;} |
495 |
{object V37 = nreverse((V36)); |
{object V39 = nreverse((V38)); |
496 |
VMR28(V37)} |
VMR28(V39)} |
497 |
goto T89; |
goto T91; |
498 |
T89:; |
T91:; |
499 |
{object V38; |
{object V40; |
500 |
base[0]= (V33); |
base[0]= (V35); |
501 |
base[1]= Cnil; |
base[1]= Cnil; |
502 |
base[2]= (V34); |
base[2]= (V36); |
503 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
504 |
Lread(); |
Lread(); |
505 |
vs_top=sup; |
vs_top=sup; |
506 |
V38= vs_base[0]; |
V40= vs_base[0]; |
507 |
V36= make_cons((V35),(V36)); |
V38= make_cons((V37),(V38)); |
508 |
V35= (V38);} |
V37= (V40);} |
509 |
goto T88;}}} |
goto T90;}}} |
510 |
goto T70; |
goto T62; |
511 |
T70:; |
T62:; |
512 |
vs_base=vs_top; |
vs_base=vs_top; |
513 |
Lread(); |
Lread(); |
514 |
vs_top=sup; |
vs_top=sup; |
515 |
V39= vs_base[0]; |
V41= vs_base[0]; |
516 |
{object V40 = list(2,VV[24],V39); |
{object V42 = list(2,VV[25],V41); |
517 |
VMR28(V40)} |
VMR28(V42)} |
518 |
base[0]=base[0]; |
base[0]=base[0]; |
519 |
return Cnil; |
return Cnil; |
520 |
} |
} |
521 |
/* local entry for function progn 'compile2596 */ |
/* local entry for function progn 'compile2614 */ |
522 |
|
|
523 |
static object LI29() |
static object LI29() |
524 |
|
|
525 |
{ VMB29 VMS29 VMV29 |
{ VMB29 VMS29 VMV29 |
526 |
goto TTL; |
goto TTL; |
527 |
TTL:; |
TTL:; |
528 |
V41= VV[68]; |
V43= VV[69]; |
529 |
(void)(sputprop(VV[24],VV[15],V41)); |
(void)(sputprop(VV[25],VV[15],V43)); |
530 |
{object V42 = Cnil; |
{object V44 = Cnil; |
531 |
VMR29(V42)} |
VMR29(V44)} |
532 |
return Cnil; |
return Cnil; |
533 |
} |
} |
534 |
/* local entry for function progn 'compile2624 */ |
/* local entry for function progn 'compile2642 */ |
535 |
|
|
536 |
static object LI30() |
static object LI30() |
537 |
|
|
538 |
{ VMB30 VMS30 VMV30 |
{ VMB30 VMS30 VMV30 |
539 |
goto TTL; |
goto TTL; |
540 |
TTL:; |
TTL:; |
541 |
(void)(sputprop(VV[24],VV[19],small_fixnum(1))); |
(void)(sputprop(VV[25],VV[19],small_fixnum(1))); |
542 |
{object V43 = Cnil; |
{object V45 = Cnil; |
543 |
VMR30(V43)} |
VMR30(V45)} |
544 |
return Cnil; |
return Cnil; |
545 |
} |
} |
546 |
/* local entry for function progn 'compile2636 */ |
/* local entry for function progn 'compile2654 */ |
547 |
|
|
548 |
static object LI31() |
static object LI31() |
549 |
|
|
550 |
{ VMB31 VMS31 VMV31 |
{ VMB31 VMS31 VMV31 |
551 |
goto TTL; |
goto TTL; |
552 |
TTL:; |
TTL:; |
553 |
{object V44 = Cnil; |
{object V46 = Cnil; |
554 |
VMR31(V44)} |
VMR31(V46)} |
555 |
return Cnil; |
return Cnil; |
556 |
} |
} |
557 |
/* local entry for function progn 'compile2660 */ |
/* local entry for function progn 'compile2678 */ |
558 |
|
|
559 |
static object LI32() |
static object LI32() |
560 |
|
|
561 |
{ VMB32 VMS32 VMV32 |
{ VMB32 VMS32 VMV32 |
562 |
goto TTL; |
goto TTL; |
563 |
TTL:; |
TTL:; |
564 |
V45= VV[69]; |
V47= VV[70]; |
565 |
(void)(sputprop(VV[25],VV[15],V45)); |
(void)(sputprop(VV[26],VV[15],V47)); |
566 |
{object V46 = Cnil; |
{object V48 = Cnil; |
567 |
VMR32(V46)} |
VMR32(V48)} |
568 |
return Cnil; |
return Cnil; |
569 |
} |
} |
570 |
/* local entry for function progn 'compile2684 */ |
/* local entry for function progn 'compile2702 */ |
571 |
|
|
572 |
static object LI33() |
static object LI33() |
573 |
|
|
574 |
{ VMB33 VMS33 VMV33 |
{ VMB33 VMS33 VMV33 |
575 |
goto TTL; |
goto TTL; |
576 |
TTL:; |
TTL:; |
577 |
(void)(sputprop(VV[25],VV[19],small_fixnum(0))); |
(void)(sputprop(VV[26],VV[19],small_fixnum(0))); |
578 |
{object V47 = Cnil; |
{object V49 = Cnil; |
579 |
VMR33(V47)} |
VMR33(V49)} |
580 |
return Cnil; |
return Cnil; |
581 |
} |
} |
582 |
/* local entry for function progn 'compile2696 */ |
/* local entry for function progn 'compile2714 */ |
583 |
|
|
584 |
static object LI34() |
static object LI34() |
585 |
|
|
586 |
{ VMB34 VMS34 VMV34 |
{ VMB34 VMS34 VMV34 |
587 |
goto TTL; |
goto TTL; |
588 |
TTL:; |
TTL:; |
589 |
{object V48 = Cnil; |
{object V50 = Cnil; |
590 |
VMR34(V48)} |
VMR34(V50)} |
591 |
return Cnil; |
return Cnil; |
592 |
} |
} |
593 |
/* local entry for function progn 'compile2720 */ |
/* local entry for function progn 'compile2738 */ |
594 |
|
|
595 |
static object LI35() |
static object LI35() |
596 |
|
|
597 |
{ VMB35 VMS35 VMV35 |
{ VMB35 VMS35 VMV35 |
598 |
goto TTL; |
goto TTL; |
599 |
TTL:; |
TTL:; |
600 |
V49= VV[70]; |
V51= VV[71]; |
601 |
(void)(sputprop(VV[27],VV[15],V49)); |
(void)(sputprop(VV[28],VV[15],V51)); |
602 |
{object V50 = Cnil; |
{object V52 = Cnil; |
603 |
VMR35(V50)} |
VMR35(V52)} |
604 |
return Cnil; |
return Cnil; |
605 |
} |
} |
606 |
/* local entry for function progn 'compile2744 */ |
/* local entry for function progn 'compile2762 */ |
607 |
|
|
608 |
static object LI36() |
static object LI36() |
609 |
|
|
610 |
{ VMB36 VMS36 VMV36 |
{ VMB36 VMS36 VMV36 |
611 |
goto TTL; |
goto TTL; |
612 |
TTL:; |
TTL:; |
613 |
(void)(sputprop(VV[27],VV[19],small_fixnum(0))); |
(void)(sputprop(VV[28],VV[19],small_fixnum(0))); |
614 |
{object V51 = Cnil; |
{object V53 = Cnil; |
615 |
VMR36(V51)} |
VMR36(V53)} |
616 |
return Cnil; |
return Cnil; |
617 |
} |
} |
618 |
/* local entry for function progn 'compile2756 */ |
/* local entry for function progn 'compile2774 */ |
619 |
|
|
620 |
static object LI37() |
static object LI37() |
621 |
|
|
622 |
{ VMB37 VMS37 VMV37 |
{ VMB37 VMS37 VMV37 |
623 |
goto TTL; |
goto TTL; |
624 |
TTL:; |
TTL:; |
625 |
{object V52 = Cnil; |
{object V54 = Cnil; |
626 |
VMR37(V52)} |
VMR37(V54)} |
627 |
return Cnil; |
return Cnil; |
628 |
} |
} |
629 |
/* local entry for function progn 'compile2780 */ |
/* local entry for function progn 'compile2798 */ |
630 |
|
|
631 |
static object LI38() |
static object LI38() |
632 |
|
|
633 |
{ VMB38 VMS38 VMV38 |
{ VMB38 VMS38 VMV38 |
634 |
goto TTL; |
goto TTL; |
635 |
TTL:; |
TTL:; |
636 |
V53= VV[71]; |
V55= VV[72]; |
637 |
(void)(sputprop(VV[29],VV[15],V53)); |
(void)(sputprop(VV[30],VV[15],V55)); |
638 |
{object V54 = Cnil; |
{object V56 = Cnil; |
639 |
VMR38(V54)} |
VMR38(V56)} |
640 |
return Cnil; |
return Cnil; |
641 |
} |
} |
642 |
/* local entry for function progn 'compile2804 */ |
/* local entry for function progn 'compile2822 */ |
643 |
|
|
644 |
static object LI39() |
static object LI39() |
645 |
|
|
646 |
{ VMB39 VMS39 VMV39 |
{ VMB39 VMS39 VMV39 |
647 |
goto TTL; |
goto TTL; |
648 |
TTL:; |
TTL:; |
649 |
(void)(sputprop(VV[29],VV[19],small_fixnum(0))); |
(void)(sputprop(VV[30],VV[19],small_fixnum(0))); |
650 |
{object V55 = Cnil; |
{object V57 = Cnil; |
651 |
VMR39(V55)} |
VMR39(V57)} |
652 |
return Cnil; |
return Cnil; |
653 |
} |
} |
654 |
/* local entry for function progn 'compile2816 */ |
/* local entry for function progn 'compile2834 */ |
655 |
|
|
656 |
static object LI40() |
static object LI40() |
657 |
|
|
658 |
{ VMB40 VMS40 VMV40 |
{ VMB40 VMS40 VMV40 |
659 |
goto TTL; |
goto TTL; |
660 |
TTL:; |
TTL:; |
661 |
{object V56 = Cnil; |
{object V58 = Cnil; |
662 |
VMR40(V56)} |
VMR40(V58)} |
663 |
return Cnil; |
return Cnil; |
664 |
} |
} |
665 |
/* local entry for function progn 'compile2840 */ |
/* local entry for function progn 'compile2858 */ |
666 |
|
|
667 |
static object LI41() |
static object LI41() |
668 |
|
|
669 |
{ VMB41 VMS41 VMV41 |
{ VMB41 VMS41 VMV41 |
670 |
goto TTL; |
goto TTL; |
671 |
TTL:; |
TTL:; |
672 |
V57= VV[72]; |
V59= VV[73]; |
673 |
(void)(sputprop(VV[31],VV[15],V57)); |
(void)(sputprop(VV[32],VV[15],V59)); |
674 |
{object V58 = Cnil; |
{object V60 = Cnil; |
675 |
VMR41(V58)} |
VMR41(V60)} |
676 |
return Cnil; |
return Cnil; |
677 |
} |
} |
678 |
/* local entry for function progn 'compile2864 */ |
/* local entry for function progn 'compile2882 */ |
679 |
|
|
680 |
static object LI42() |
static object LI42() |
681 |
|
|
682 |
{ VMB42 VMS42 VMV42 |
{ VMB42 VMS42 VMV42 |
683 |
goto TTL; |
goto TTL; |
684 |
TTL:; |
TTL:; |
685 |
(void)(sputprop(VV[31],VV[19],small_fixnum(0))); |
(void)(sputprop(VV[32],VV[19],small_fixnum(0))); |
686 |
{object V59 = Cnil; |
{object V61 = Cnil; |
687 |
VMR42(V59)} |
VMR42(V61)} |
688 |
return Cnil; |
return Cnil; |
689 |
} |
} |
690 |
/* local entry for function progn 'compile2876 */ |
/* local entry for function progn 'compile2894 */ |
691 |
|
|
692 |
static object LI43() |
static object LI43() |
693 |
|
|
694 |
{ VMB43 VMS43 VMV43 |
{ VMB43 VMS43 VMV43 |
695 |
goto TTL; |
goto TTL; |
696 |
TTL:; |
TTL:; |
697 |
{object V60 = Cnil; |
{object V62 = Cnil; |
698 |
VMR43(V60)} |
VMR43(V62)} |
699 |
return Cnil; |
return Cnil; |
700 |
} |
} |
701 |
/* local entry for function progn 'compile2892 */ |
/* local entry for function progn 'compile2910 */ |
702 |
|
|
703 |
static object LI44() |
static object LI44() |
704 |
|
|
705 |
{ VMB44 VMS44 VMV44 |
{ VMB44 VMS44 VMV44 |
706 |
goto TTL; |
goto TTL; |
707 |
TTL:; |
TTL:; |
708 |
base[0]= VV[37]; |
base[0]= VV[38]; |
709 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
710 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
711 |
vs_top=sup; |
vs_top=sup; |
712 |
{object V61 = Cnil; |
{object V63 = Cnil; |
713 |
VMR44(V61)} |
VMR44(V63)} |
714 |
base[0]=base[0]; |
base[0]=base[0]; |
715 |
return Cnil; |
return Cnil; |
716 |
} |
} |
717 |
/* local entry for function progn 'compile2904 */ |
/* local entry for function progn 'compile2922 */ |
718 |
|
|
719 |
static object LI45() |
static object LI45() |
720 |
|
|
721 |
{ VMB45 VMS45 VMV45 |
{ VMB45 VMS45 VMV45 |
722 |
goto TTL; |
goto TTL; |
723 |
TTL:; |
TTL:; |
724 |
base[0]= VV[37]; |
if(!((VV[38])->s.s_dbind!=OBJNULL)){ |
725 |
vs_top=(vs_base=base+0)+1; |
goto T126;} |
726 |
Lboundp(); |
goto T125; |
727 |
vs_top=sup; |
goto T126; |
728 |
if((vs_base[0])==Cnil){ |
T126:; |
729 |
goto T124;} |
(VV[38]->s.s_dbind)= VV[39]; |
730 |
goto T123; |
goto T125; |
731 |
goto T124; |
T125:; |
732 |
T124:; |
{object V64 = Cnil; |
733 |
setq(VV[37],VV[38]); |
VMR45(V64)} |
|
goto T123; |
|
|
T123:; |
|
|
{object V62 = Cnil; |
|
|
VMR45(V62)} |
|
|
base[0]=base[0]; |
|
734 |
return Cnil; |
return Cnil; |
735 |
} |
} |
736 |
/* local entry for function progn 'compile2917 */ |
/* local entry for function progn 'compile2935 */ |
737 |
|
|
738 |
static object LI46() |
static object LI46() |
739 |
|
|
740 |
{ VMB46 VMS46 VMV46 |
{ VMB46 VMS46 VMV46 |
741 |
goto TTL; |
goto TTL; |
742 |
TTL:; |
TTL:; |
743 |
{object V63 = Cnil; |
{object V65 = Cnil; |
744 |
VMR46(V63)} |
VMR46(V65)} |
745 |
return Cnil; |
return Cnil; |
746 |
} |
} |
747 |
/* local entry for function SHOW-RESTARTS */ |
/* local entry for function SHOW-RESTARTS */ |
750 |
{ |
{ |
751 |
va_list ap; |
va_list ap; |
752 |
int narg = VFUN_NARGS; VMB47 VMS47 VMV47 |
int narg = VFUN_NARGS; VMB47 VMS47 VMV47 |
753 |
{object V64; |
{object V66; |
754 |
object V65; |
object V67; |
755 |
object V66; |
object V68; |
756 |
va_start(ap,first); |
va_start(ap,first); |
757 |
narg = narg - 0; |
narg = narg - 0; |
758 |
if (narg <= 0) goto T129; |
if (narg <= 0) goto T130; |
759 |
else { |
else { |
760 |
V64= first;} |
V66= first;} |
|
if (--narg <= 0) goto T130; |
|
|
else { |
|
|
V65= va_arg(ap,object);} |
|
761 |
if (--narg <= 0) goto T131; |
if (--narg <= 0) goto T131; |
762 |
else { |
else { |
763 |
V66= va_arg(ap,object);} |
V67= va_arg(ap,object);} |
764 |
--narg; goto T132; |
if (--narg <= 0) goto T132; |
765 |
goto T129; |
else { |
766 |
T129:; |
V68= va_arg(ap,object);} |
767 |
V64= symbol_value(VV[4]); |
--narg; goto T133; |
768 |
goto T130; |
goto T130; |
769 |
T130:; |
T130:; |
770 |
V65= symbol_value(VV[5]); |
V66= (VV[4]->s.s_dbind); |
771 |
goto T131; |
goto T131; |
772 |
T131:; |
T131:; |
773 |
V66= Cnil; |
V67= (VV[5]->s.s_dbind); |
774 |
goto T132; |
goto T132; |
775 |
T132:; |
T132:; |
776 |
if(((V65))!=Cnil){ |
V68= Cnil; |
777 |
goto T136;} |
goto T133; |
778 |
V65= make_fixnum((long)length((V64))); |
T133:; |
779 |
goto T136; |
if(((V67))!=Cnil){ |
780 |
T136:; |
goto T137;} |
781 |
if(((V64))==Cnil){ |
V67= CMPmake_fixnum((long)length((V66))); |
782 |
goto T141;} |
goto T137; |
783 |
{object V67; |
T137:; |
|
register object V68; |
|
|
register object V69; |
|
784 |
if(((V66))==Cnil){ |
if(((V66))==Cnil){ |
785 |
goto T145;} |
goto T142;} |
786 |
V67= number_minus((V66),small_fixnum(3)); |
{object V69; |
787 |
goto T143; |
register object V70; |
788 |
goto T145; |
register object V71; |
789 |
T145:; |
if(((V68))==Cnil){ |
790 |
base[1]= (V65); |
goto T146;} |
791 |
|
V69= number_minus((V68),small_fixnum(3)); |
792 |
|
goto T144; |
793 |
|
goto T146; |
794 |
|
T146:; |
795 |
|
base[1]= (V67); |
796 |
base[2]= small_fixnum(10); |
base[2]= small_fixnum(10); |
797 |
vs_top=(vs_base=base+1)+2; |
vs_top=(vs_base=base+1)+2; |
798 |
Llog(); |
Llog(); |
801 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
802 |
Lceiling(); |
Lceiling(); |
803 |
vs_top=sup; |
vs_top=sup; |
804 |
V67= vs_base[0]; |
V69= vs_base[0]; |
805 |
goto T143; |
goto T144; |
806 |
T143:; |
T144:; |
807 |
V68= (V64); |
V70= (V66); |
808 |
V69= small_fixnum(0); |
V71= small_fixnum(0); |
809 |
goto T151; |
goto T152; |
810 |
T151:; |
T152:; |
811 |
if(((V68))==Cnil){ |
if(((V70))==Cnil){ |
812 |
|
goto T154;} |
813 |
|
if(!(number_compare((V71),(V67))==0)){ |
814 |
goto T153;} |
goto T153;} |
815 |
if(!(number_compare((V69),(V65))==0)){ |
goto T154; |
816 |
goto T152;} |
T154:; |
817 |
|
{object V72 = Cnil; |
818 |
|
VMR47(V72)} |
819 |
goto T153; |
goto T153; |
820 |
T153:; |
T153:; |
|
{object V70 = Cnil; |
|
|
VMR47(V70)} |
|
|
goto T152; |
|
|
T152:; |
|
821 |
base[0]= Ct; |
base[0]= Ct; |
822 |
base[1]= VV[39]; |
base[1]= VV[40]; |
823 |
base[2]= symbol_value(VV[37]); |
base[2]= (VV[38]->s.s_dbind); |
824 |
{register object V71; |
{register object V73; |
825 |
base[4]= Cnil; |
base[4]= Cnil; |
826 |
base[5]= VV[40]; |
base[5]= VV[41]; |
827 |
base[6]= number_plus((V69),small_fixnum(1)); |
base[6]= number_plus((V71),small_fixnum(1)); |
828 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
829 |
Lformat(); |
Lformat(); |
830 |
vs_top=sup; |
vs_top=sup; |
831 |
V71= vs_base[0]; |
V73= vs_base[0]; |
832 |
{register object V72; |
{register object V74; |
833 |
vs_base=vs_top; |
vs_base=vs_top; |
834 |
(void) (*Lnk73)(); |
(void) (*Lnk74)(); |
835 |
vs_top=sup; |
vs_top=sup; |
836 |
V72= vs_base[0]; |
V74= vs_base[0]; |
837 |
base[4]= (V72); |
base[4]= (V74); |
838 |
base[5]= VV[41]; |
base[5]= VV[42]; |
839 |
base[6]= (V71); |
base[6]= (V73); |
840 |
vs_top=(vs_base=base+4)+3; |
vs_top=(vs_base=base+4)+3; |
841 |
Lformat(); |
Lformat(); |
842 |
vs_top=sup; |
vs_top=sup; |
843 |
{register object V73; |
{long V75; |
844 |
register object V74; |
register long V76; |
845 |
V75 = make_fixnum((long)length((V71))); |
V77 = CMPmake_fixnum((long)length((V73))); |
846 |
V73= number_minus((V67),V75); |
V75= fix(number_minus((V69),V77)); |
847 |
V74= small_fixnum(0); |
V76= 0; |
|
goto T176; |
|
|
T176:; |
|
|
if(!(number_compare((V74),(V73))>=0)){ |
|
|
goto T177;} |
|
|
goto T172; |
|
848 |
goto T177; |
goto T177; |
849 |
T177:; |
T177:; |
850 |
base[5]= VV[42]; |
if(!((V76)>=(V75))){ |
851 |
base[6]= (V72); |
goto T178;} |
852 |
vs_top=(vs_base=base+5)+2; |
goto T173; |
853 |
|
goto T178; |
854 |
|
T178:; |
855 |
|
{register unsigned char V78; |
856 |
|
V78= 32; |
857 |
|
if(!((type_of((V74))==t_stream? (((V74))->sm.sm_fp)!=0: 0 ))){ |
858 |
|
goto T185;} |
859 |
|
(void)((putc(V78,((V74))->sm.sm_fp))); |
860 |
|
goto T183; |
861 |
|
goto T185; |
862 |
|
T185:; |
863 |
|
base[4]= code_char(V78); |
864 |
|
base[5]= (V74); |
865 |
|
vs_top=(vs_base=base+4)+2; |
866 |
Lwrite_char(); |
Lwrite_char(); |
867 |
vs_top=sup; |
vs_top=sup; |
868 |
V74= one_plus((V74)); |
goto T183; |
869 |
goto T176;} |
T183:;} |
870 |
goto T172; |
V76= (long)(V76)+1; |
871 |
T172:; |
goto T177;} |
872 |
base[4]= (V72); |
goto T173; |
873 |
|
T173:; |
874 |
|
base[4]= (V74); |
875 |
vs_top=(vs_base=base+4)+1; |
vs_top=(vs_base=base+4)+1; |
876 |
(void) (*Lnk74)(); |
(void) (*Lnk75)(); |
877 |
vs_top=sup; |
vs_top=sup; |
878 |
base[3]= vs_base[0];}} |
base[3]= vs_base[0];}} |
879 |
vs_top=(vs_base=base+0)+4; |
vs_top=(vs_base=base+0)+4; |
880 |
Lformat(); |
Lformat(); |
881 |
vs_top=sup; |
vs_top=sup; |
882 |
if(!((car((V68)))==(symbol_value(VV[1])))){ |
if(!((CMPcar((V70)))==((VV[1]->s.s_dbind)))){ |
|
goto T188;} |
|
|
base[0]= Ct; |
|
|
base[1]= VV[43]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
Lformat(); |
|
|
vs_top=sup; |
|
|
goto T188; |
|
|
T188:; |
|
|
if(!((car((V68)))==(symbol_value(VV[2])))){ |
|
883 |
goto T193;} |
goto T193;} |
884 |
base[0]= Ct; |
base[0]= Ct; |
885 |
base[1]= VV[44]; |
base[1]= VV[44]; |
888 |
vs_top=sup; |
vs_top=sup; |
889 |
goto T193; |
goto T193; |
890 |
T193:; |
T193:; |
891 |
|
if(!((CMPcar((V70)))==((VV[2]->s.s_dbind)))){ |
892 |
|
goto T198;} |
893 |
base[0]= Ct; |
base[0]= Ct; |
894 |
base[1]= VV[45]; |
base[1]= VV[45]; |
895 |
base[2]= car((V68)); |
vs_top=(vs_base=base+0)+2; |
|
vs_top=(vs_base=base+0)+3; |
|
896 |
Lformat(); |
Lformat(); |
897 |
vs_top=sup; |
vs_top=sup; |
898 |
|
goto T198; |
899 |
|
T198:; |
900 |
base[0]= Ct; |
base[0]= Ct; |
901 |
base[1]= VV[46]; |
base[1]= VV[46]; |
902 |
|
base[2]= CMPcar((V70)); |
903 |
|
vs_top=(vs_base=base+0)+3; |
904 |
|
Lformat(); |
905 |
|
vs_top=sup; |
906 |
|
base[0]= Ct; |
907 |
|
base[1]= VV[47]; |
908 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
909 |
Lformat(); |
Lformat(); |
910 |
vs_top=sup; |
vs_top=sup; |
911 |
V68= cdr((V68)); |
V70= CMPcdr((V70)); |
912 |
V69= one_plus((V69)); |
V71= one_plus((V71)); |
913 |
goto T151;} |
goto T152;} |
914 |
goto T141; |
goto T142; |
915 |
T141:; |
T142:; |
916 |
{object V76 = Cnil; |
{object V79 = Cnil; |
917 |
VMR47(V76)} |
VMR47(V79)} |
918 |
va_end(ap); |
va_end(ap); |
919 |
base[0]=base[0]; |
base[0]=base[0]; |
920 |
return Cnil;} |
return Cnil;} |
921 |
} |
} |
922 |
/* local entry for function progn 'compile3000 */ |
/* local entry for function progn 'compile3026 */ |
923 |
|
|
924 |
static object LI48() |
static object LI48() |
925 |
|
|
926 |
{ VMB48 VMS48 VMV48 |
{ VMB48 VMS48 VMV48 |
927 |
goto TTL; |
goto TTL; |
928 |
TTL:; |
TTL:; |
929 |
base[0]= VV[47]; |
base[0]= VV[48]; |
930 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
931 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
932 |
vs_top=sup; |
vs_top=sup; |
933 |
{object V77 = Cnil; |
{object V80 = Cnil; |
934 |
VMR48(V77)} |
VMR48(V80)} |
935 |
base[0]=base[0]; |
base[0]=base[0]; |
936 |
return Cnil; |
return Cnil; |
937 |
} |
} |
938 |
/* local entry for function progn 'compile3012 */ |
/* local entry for function progn 'compile3038 */ |
939 |
|
|
940 |
static object LI49() |
static object LI49() |
941 |
|
|
942 |
{ VMB49 VMS49 VMV49 |
{ VMB49 VMS49 VMV49 |
943 |
goto TTL; |
goto TTL; |
944 |
TTL:; |
TTL:; |
945 |
base[0]= VV[47]; |
if(!((VV[48])->s.s_dbind!=OBJNULL)){ |
946 |
vs_top=(vs_base=base+0)+1; |
goto T217;} |
947 |
Lboundp(); |
goto T216; |
948 |
vs_top=sup; |
goto T217; |
949 |
if((vs_base[0])==Cnil){ |
T217:; |
950 |
goto T212;} |
(VV[48]->s.s_dbind)= Cnil; |
951 |
goto T211; |
goto T216; |
952 |
goto T212; |
T216:; |
953 |
T212:; |
{object V81 = Cnil; |
954 |
setq(VV[47],Cnil); |
VMR49(V81)} |
|
goto T211; |
|
|
T211:; |
|
|
{object V78 = Cnil; |
|
|
VMR49(V78)} |
|
|
base[0]=base[0]; |
|
955 |
return Cnil; |
return Cnil; |
956 |
} |
} |
957 |
/* local entry for function progn 'compile3025 */ |
/* local entry for function progn 'compile3051 */ |
958 |
|
|
959 |
static object LI50() |
static object LI50() |
960 |
|
|
961 |
{ VMB50 VMS50 VMV50 |
{ VMB50 VMS50 VMV50 |
962 |
goto TTL; |
goto TTL; |
963 |
TTL:; |
TTL:; |
964 |
{object V79 = Cnil; |
{object V82 = Cnil; |
965 |
VMR50(V79)} |
VMR50(V82)} |
966 |
return Cnil; |
return Cnil; |
967 |
} |
} |
968 |
/* local entry for function progn 'compile3041 */ |
/* local entry for function progn 'compile3067 */ |
969 |
|
|
970 |
static object LI51() |
static object LI51() |
971 |
|
|
972 |
{ VMB51 VMS51 VMV51 |
{ VMB51 VMS51 VMV51 |
973 |
goto TTL; |
goto TTL; |
974 |
TTL:; |
TTL:; |
975 |
base[0]= VV[48]; |
base[0]= VV[49]; |
976 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
977 |
(void) (*Lnk65)(); |
(void) (*Lnk66)(); |
978 |
vs_top=sup; |
vs_top=sup; |
979 |
{object V80 = Cnil; |
{object V83 = Cnil; |
980 |
VMR51(V80)} |
VMR51(V83)} |
981 |
base[0]=base[0]; |
base[0]=base[0]; |
982 |
return Cnil; |
return Cnil; |
983 |
} |
} |
984 |
/* local entry for function progn 'compile3053 */ |
/* local entry for function progn 'compile3079 */ |
985 |
|
|
986 |
static object LI52() |
static object LI52() |
987 |
|
|
988 |
{ VMB52 VMS52 VMV52 |
{ VMB52 VMS52 VMV52 |
989 |
goto TTL; |
goto TTL; |
990 |
TTL:; |
TTL:; |
991 |
base[0]= VV[48]; |
if(!((VV[49])->s.s_dbind!=OBJNULL)){ |
992 |
vs_top=(vs_base=base+0)+1; |
goto T224;} |
993 |
Lboundp(); |
goto T223; |
994 |
vs_top=sup; |
goto T224; |
995 |
if((vs_base[0])==Cnil){ |
T224:; |
996 |
goto T220;} |
(VV[49]->s.s_dbind)= VV[50]; |
997 |
goto T219; |
goto T223; |
998 |
goto T220; |
T223:; |
999 |
T220:; |
{object V84 = Cnil; |
1000 |
setq(VV[48],VV[49]); |
VMR52(V84)} |
|
goto T219; |
|
|
T219:; |
|
|
{object V81 = Cnil; |
|
|
VMR52(V81)} |
|
|
base[0]=base[0]; |
|
1001 |
return Cnil; |
return Cnil; |
1002 |
} |
} |
1003 |
/* local entry for function progn 'compile3066 */ |
/* local entry for function progn 'compile3092 */ |
1004 |
|
|
1005 |
static object LI53() |
static object LI53() |
1006 |
|
|
1007 |
{ VMB53 VMS53 VMV53 |
{ VMB53 VMS53 VMV53 |
1008 |
goto TTL; |
goto TTL; |
1009 |
TTL:; |
TTL:; |
1010 |
{object V82 = Cnil; |
{object V85 = Cnil; |
1011 |
VMR53(V82)} |
VMR53(V85)} |
1012 |
return Cnil; |
return Cnil; |
1013 |
} |
} |
1014 |
/* function definition for INVOKE-DEBUGGER */ |
/* function definition for INVOKE-DEBUGGER */ |
1016 |
static void L54() |
static void L54() |
1017 |
{register object *base=vs_base; |
{register object *base=vs_base; |
1018 |
register object *sup=base+VM54; VC54 |
register object *sup=base+VM54; VC54 |
1019 |
vs_reserve(VM54); |
vs_check; |
1020 |
bds_check; |
bds_check; |
1021 |
{object V83; |
{object V86; |
1022 |
object V84; |
object V87; |
1023 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1024 |
{object *p=vs_top, *q=vs_base+1; |
{object *p=vs_top, *q=vs_base+1; |
1025 |
for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);} |
1026 |
if(vs_base>=vs_top){vs_top=sup;goto T225;} |
if(vs_base>=vs_top){vs_top=sup;goto T228;} |
1027 |
V83=(base[0]); |
V86=(base[0]); |
1028 |
V84=(base[1]); |
V87=(base[1]); |
1029 |
vs_top=sup; |
vs_top=sup; |
1030 |
goto T226; |
goto T229; |
1031 |
goto T225; |
goto T228; |
1032 |
T225:; |
T228:; |
1033 |
V83= VV[50]; |
V86= VV[51]; |
1034 |
V84= Cnil; |
V87= Cnil; |
1035 |
goto T226; |
goto T229; |
1036 |
T226:; |
T229:; |
1037 |
{object V85; |
{object V88; |
1038 |
base[2]= (V83); |
base[2]= (V86); |
1039 |
base[3]= (V84); |
base[3]= (V87); |
1040 |
base[4]= VV[51]; |
base[4]= VV[52]; |
1041 |
base[5]= VV[52]; |
base[5]= VV[53]; |
1042 |
vs_top=(vs_base=base+2)+4; |
vs_top=(vs_base=base+2)+4; |
1043 |
(void) (*Lnk75)(); |
(void) (*Lnk76)(); |
1044 |
vs_top=sup; |
vs_top=sup; |
1045 |
V85= vs_base[0]; |
V88= vs_base[0]; |
1046 |
if((symbol_value(VV[47]))==Cnil){ |
if(((VV[48]->s.s_dbind))==Cnil){ |
1047 |
goto T233;} |
goto T236;} |
1048 |
{object V86; |
{object V89; |
1049 |
V86= symbol_value(VV[47]); |
V89= (VV[48]->s.s_dbind); |
1050 |
bds_bind(VV[47],Cnil); |
bds_bind(VV[48],Cnil); |
1051 |
V87= ( |
V90= ( |
1052 |
(type_of((V86)) == t_sfun ?(*(((V86))->sfn.sfn_self)): |
(type_of((V89)) == t_sfun ?(*(((V89))->sfn.sfn_self)): |
1053 |
(fcall.fun=((V86)),fcall.argd=2,fcalln))((V85),(V86))); |
(fcall.argd=2,type_of((V89))==t_vfun) ? |
1054 |
|
(*(((V89))->sfn.sfn_self)): |
1055 |
|
(fcall.fun=((V89)),fcalln))((V88),(V89))); |
1056 |
bds_unwind1;} |
bds_unwind1;} |
1057 |
goto T233; |
goto T236; |
1058 |
T233:; |
T236:; |
1059 |
base[2]= (V85); |
base[2]= (V88); |
1060 |
vs_top=(vs_base=base+2)+1; |
vs_top=(vs_base=base+2)+1; |
1061 |
{object _funobj = symbol_value(VV[48]);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (VV[49]->s.s_dbind);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1062 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1063 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1064 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1067 |
} |
} |
1068 |
/* local entry for function STANDARD-DEBUGGER */ |
/* local entry for function STANDARD-DEBUGGER */ |
1069 |
|
|
1070 |
static object LI55(V89) |
static object LI55(V92) |
1071 |
|
|
1072 |
object V89; |
object V92; |
1073 |
{ VMB55 VMS55 VMV55 |
{ VMB55 VMS55 VMV55 |
1074 |
bds_check; |
bds_check; |
1075 |
goto TTL; |
goto TTL; |
1076 |
TTL:; |
TTL:; |
1077 |
bds_bind(VV[0],one_plus(symbol_value(VV[0]))); |
bds_bind(VV[0],one_plus((VV[0]->s.s_dbind))); |
1078 |
bds_bind(VV[4],(VFUN_NARGS=0,(*(LnkLI76))())); |
bds_bind(VV[4],(VFUN_NARGS=0,(*(LnkLI77))())); |
1079 |
bds_bind(VV[5],make_fixnum((long)length((VV[4]->s.s_dbind)))); |
bds_bind(VV[5],CMPmake_fixnum((long)length((VV[4]->s.s_dbind)))); |
1080 |
bds_bind(VV[1],(VFUN_NARGS=1,(*(LnkLI77))(VV[53])));{object V90; |
bds_bind(VV[1],(VFUN_NARGS=1,(*(LnkLI78))(VV[54])));{object V93; |
1081 |
{object V91; |
{object V94; |
1082 |
V91= (VFUN_NARGS=1,(*(LnkLI77))(VV[54])); |
V94= (VFUN_NARGS=1,(*(LnkLI78))(VV[55])); |
1083 |
if((symbol_value(VV[2]))==Cnil){ |
if(((VV[2]->s.s_dbind))==Cnil){ |
1084 |
goto T245;} |
goto T248;} |
1085 |
if((symbol_value(VV[2]))==((V91))){ |
if(((VV[2]->s.s_dbind))==((V94))){ |
1086 |
goto T246;} |
goto T249;} |
1087 |
goto T245; |
goto T248; |
1088 |
T245:; |
T248:; |
1089 |
V90= (V91); |
V93= (V94); |
1090 |
goto T243; |
goto T246; |
1091 |
|
goto T249; |
1092 |
|
T249:; |
1093 |
|
V93= Cnil;} |
1094 |
goto T246; |
goto T246; |
1095 |
T246:; |
T246:; |
1096 |
V90= Cnil;} |
if(V93==Cnil)goto T245; |
1097 |
goto T243; |
bds_bind(VV[2],V93); |
1098 |
T243:; |
goto T244; |
1099 |
if(V90==Cnil)goto T242; |
goto T245; |
1100 |
bds_bind(VV[2],V90); |
T245:;} |
1101 |
goto T241; |
{object V95; |
|
goto T242; |
|
|
T242:;} |
|
|
{object V92; |
|
1102 |
if(((VV[4]->s.s_dbind))==Cnil){ |
if(((VV[4]->s.s_dbind))==Cnil){ |
|
goto T252;} |
|
|
V92= car((VV[4]->s.s_dbind)); |
|
|
goto T250; |
|
|
goto T252; |
|
|
T252:; |
|
|
V92= Cnil; |
|
|
goto T250; |
|
|
T250:; |
|
|
if(((V92))==((VV[1]->s.s_dbind))){ |
|
1103 |
goto T255;} |
goto T255;} |
1104 |
bds_bind(VV[2],(V92)); |
V95= CMPcar((VV[4]->s.s_dbind)); |
1105 |
goto T241; |
goto T253; |
1106 |
goto T255; |
goto T255; |
1107 |
T255:; |
T255:; |
1108 |
|
V95= Cnil; |
1109 |
|
goto T253; |
1110 |
|
T253:; |
1111 |
|
if(((V95))==((VV[1]->s.s_dbind))){ |
1112 |
|
goto T258;} |
1113 |
|
bds_bind(VV[2],(V95)); |
1114 |
|
goto T244; |
1115 |
|
goto T258; |
1116 |
|
T258:; |
1117 |
bds_bind(VV[2],Cnil);} |
bds_bind(VV[2],Cnil);} |
1118 |
goto T241; |
goto T244; |
1119 |
T241:; |
T244:; |
1120 |
bds_bind(VV[3],(V89)); |
bds_bind(VV[3],(V92)); |
1121 |
base[6]= Ct; |
base[6]= Ct; |
1122 |
base[7]= VV[55]; |
base[7]= VV[56]; |
1123 |
base[8]= (V89); |
base[8]= (V92); |
1124 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1125 |
Lformat(); |
Lformat(); |
1126 |
vs_top=sup; |
vs_top=sup; |
1127 |
(void)((VFUN_NARGS=0,(*(LnkLI78))())); |
(void)((VFUN_NARGS=0,(*(LnkLI79))())); |
1128 |
{register object V93; |
{register object V96; |
1129 |
V93= (*(LnkLI79))(); |
V96= (*(LnkLI80))(); |
1130 |
goto T264; |
goto T267; |
1131 |
T264:; |
T267:; |
1132 |
base[6]= car((V93)); |
base[6]= CMPcar((V96)); |
1133 |
base[7]= cdr((V93)); |
base[7]= CMPcdr((V96)); |
1134 |
base[8]= (VV[0]->s.s_dbind); |
base[8]= (VV[0]->s.s_dbind); |
1135 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1136 |
(void) (*Lnk80)(); |
(void) (*Lnk81)(); |
1137 |
vs_top=sup; |
vs_top=sup; |
1138 |
V93= (*(LnkLI79))(); |
V96= (*(LnkLI80))(); |
1139 |
goto T264;} |
goto T267;} |
1140 |
base[0]=base[0]; |
base[0]=base[0]; |
1141 |
return Cnil; |
return Cnil; |
1142 |
} |
} |
1145 |
static void L56() |
static void L56() |
1146 |
{register object *VOL base=vs_base; |
{register object *VOL base=vs_base; |
1147 |
register object *VOL sup=base+VM56; VC56 |
register object *VOL sup=base+VM56; VC56 |
1148 |
vs_reserve(VM56); |
vs_check; |
1149 |
bds_check; |
bds_check; |
1150 |
{VOL object V94; |
{VOL object V97; |
1151 |
VOL object V95; |
VOL object V98; |
1152 |
check_arg(3); |
V97=(base[0]); |
1153 |
V94=(base[0]); |
V98=(base[1]); |
|
V95=(base[1]); |
|
1154 |
base[2]=MMcons(base[2],Cnil); |
base[2]=MMcons(base[2],Cnil); |
1155 |
vs_top=sup; |
vs_top=sup; |
1156 |
base[3]=MMcons(Cnil,base[2]); |
base[3]=MMcons(Cnil,base[2]); |
1159 |
frs_push(FRS_CATCH,(base[4]->c.c_car)); |
frs_push(FRS_CATCH,(base[4]->c.c_car)); |
1160 |
if(nlj_active){ |
if(nlj_active){ |
1161 |
nlj_active=FALSE; |
nlj_active=FALSE; |
1162 |
if(eql(nlj_tag,VV[64]))goto T275; |
if(eql(nlj_tag,VV[65]))goto T278; |
1163 |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
FEerror("The GO tag ~s is not established.",1,nlj_tag); |
1164 |
} |
} |
1165 |
V96= |
V99= |
1166 |
make_cclosure_new(LC63,Cnil,base[4],Cdata); |
make_cclosure_new(LC63,Cnil,base[4],Cdata); |
1167 |
V97= |
V100= |
1168 |
make_cclosure_new(LC64,Cnil,base[4],Cdata); |
make_cclosure_new(LC64,Cnil,base[4],Cdata); |
1169 |
V98= (VFUN_NARGS=6,(*(LnkLI81))(VV[57],VV[53],VV[58],V96,VV[59],V97)); |
V101= (VFUN_NARGS=6,(*(LnkLI82))(VV[58],VV[54],VV[59],V99,VV[60],V100)); |
1170 |
V99= make_cons(/* INLINE-ARGS */V98,Cnil); |
V102= make_cons(/* INLINE-ARGS */V101,Cnil); |
1171 |
base[5]= make_cons(/* INLINE-ARGS */V99,symbol_value(VV[56])); |
base[5]= make_cons(/* INLINE-ARGS */V102,(VV[57]->s.s_dbind)); |
1172 |
bds_bind(VV[56],base[5]); |
bds_bind(VV[57],base[5]); |
1173 |
{object V100; |
{object V103; |
1174 |
V100= (((V94))==Cnil?Ct:Cnil); |
V103= (((V97))==Cnil?Ct:Cnil); |
1175 |
if(((V100))==Cnil){ |
if(((V103))==Cnil){ |
1176 |
goto T281;} |
goto T284;} |
1177 |
frs_pop(); |
frs_pop(); |
1178 |
base[6]= (V100); |
base[6]= (V103); |
1179 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1180 |
bds_unwind1; |
bds_unwind1; |
1181 |
return; |
return; |
1182 |
goto T281; |
goto T284; |
1183 |
T281:; |
T284:; |
1184 |
if(!(type_of((V94))==t_fixnum||type_of((V94))==t_bignum)){ |
if(!(type_of((V97))==t_fixnum||type_of((V97))==t_bignum)){ |
|
goto T284;} |
|
|
if(!(number_compare(small_fixnum(0),(V94))<0)){ |
|
|
goto T287;} |
|
|
V101= number_plus(symbol_value(VV[5]),small_fixnum(1)); |
|
|
if(!(number_compare((V94),/* INLINE-ARGS */V101)<0)){ |
|
1185 |
goto T287;} |
goto T287;} |
1186 |
{object V102; |
if(!(number_compare(small_fixnum(0),(V97))<0)){ |
1187 |
V103= number_minus((V94),small_fixnum(1)); |
goto T290;} |
1188 |
V102= nth(fixint(/* INLINE-ARGS */V103),symbol_value(VV[4])); |
V104= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); |
1189 |
if(((V95))==Cnil){ |
if(!(number_compare((V97),/* INLINE-ARGS */V104)<0)){ |
1190 |
goto T293;} |
goto T290;} |
|
base[6]=symbol_function(VV[82]); |
|
|
base[7]= (V102); |
|
|
{object V104; |
|
|
base[9]= symbol_value(VV[6]); |
|
1191 |
{object V105; |
{object V105; |
1192 |
object V106= (V95); |
V106= number_minus((V97),small_fixnum(1)); |
1193 |
if(endp(V106)){ |
V105= nth(fix(/* INLINE-ARGS */V106),(VV[4]->s.s_dbind)); |
1194 |
V104= Cnil; |
if(((V98))==Cnil){ |
1195 |
goto T296;} |
goto T296;} |
1196 |
base[8]=V105=MMcons(Cnil,Cnil); |
base[6]=VV[83]->s.s_gfdef; |
1197 |
goto T297; |
base[7]= (V105); |
1198 |
T297:; |
{object V107; |
1199 |
base[10]= (V106->c.c_car); |
base[9]= (VV[6]->s.s_dbind); |
1200 |
|
{object V108; |
1201 |
|
object V109= (V98); |
1202 |
|
if(V109==Cnil){ |
1203 |
|
V107= Cnil; |
1204 |
|
goto T299;} |
1205 |
|
base[8]=V108=MMcons(Cnil,Cnil); |
1206 |
|
goto T300; |
1207 |
|
T300:; |
1208 |
|
base[10]= (V109->c.c_car); |
1209 |
vs_top=(vs_base=base+10)+1; |
vs_top=(vs_base=base+10)+1; |
1210 |
{object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1211 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1212 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1213 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1214 |
vs_top=sup; |
vs_top=sup; |
1215 |
(V105->c.c_car)= vs_base[0]; |
(V108->c.c_car)= vs_base[0]; |
1216 |
V106=MMcdr(V106); |
if((V109=MMcdr(V109))==Cnil){ |
1217 |
if(endp(V106)){ |
V107= base[8]; |
1218 |
V104= base[8]; |
goto T299;} |
1219 |
goto T296;} |
V108=MMcdr(V108)=MMcons(Cnil,Cnil); |
1220 |
V105=MMcdr(V105)=MMcons(Cnil,Cnil); |
goto T300;} |
1221 |
goto T297;} |
goto T299; |
1222 |
goto T296; |
T299:; |
|
T296:; |
|
1223 |
vs_top=base+8; |
vs_top=base+8; |
1224 |
while(!endp(V104)) |
while(V107!=Cnil) |
1225 |
{vs_push(car(V104));V104=cdr(V104);} |
{vs_push((V107)->c.c_car);V107=(V107)->c.c_cdr;} |
1226 |
vs_base=base+7;} |
vs_base=base+7;} |
1227 |
(void) (*Lnk82)(); |
(void) (*Lnk83)(); |
1228 |
frs_pop(); |
frs_pop(); |
1229 |
bds_unwind1; |
bds_unwind1; |
1230 |
return; |
return; |
1231 |
goto T293; |
goto T296; |
1232 |
T293:; |
T296:; |
1233 |
base[6]= (V102); |
base[6]= (V105); |
1234 |
vs_top=(vs_base=base+6)+1; |
vs_top=(vs_base=base+6)+1; |
1235 |
(void) (*Lnk83)(); |
(void) (*Lnk84)(); |
1236 |
frs_pop(); |
frs_pop(); |
1237 |
bds_unwind1; |
bds_unwind1; |
1238 |
return;} |
return;} |
1239 |
goto T287; |
goto T290; |
1240 |
T287:; |
T290:; |
1241 |
base[6]= Ct; |
base[6]= Ct; |
1242 |
base[7]= VV[61]; |
base[7]= VV[62]; |
1243 |
vs_top=(vs_base=base+6)+2; |
vs_top=(vs_base=base+6)+2; |
1244 |
Lformat(); |
Lformat(); |
1245 |
frs_pop(); |
frs_pop(); |
1246 |
bds_unwind1; |
bds_unwind1; |
1247 |
return; |
return; |
1248 |
goto T284; |
goto T287; |
1249 |
T284:; |
T287:; |
1250 |
{object V107; |
{object V110; |
1251 |
V107= get((V94),VV[15],Cnil); |
{object V111 =((V97))->s.s_plist; |
1252 |
if(((V107))==Cnil){ |
object ind= VV[15]; |
1253 |
goto T306;} |
while(V111!=Cnil){ |
1254 |
V108 = make_fixnum((long)length((V95))); |
if(V111->c.c_car==ind){ |
1255 |
V109= get((V94),VV[19],Cnil); |
V110= (V111->c.c_cdr->c.c_car); |
1256 |
if(number_compare(V108,V109)==0){ |
goto T307; |
1257 |
|
}else V111=V111->c.c_cdr->c.c_cdr;} |
1258 |
|
V110= Cnil;} |
1259 |
|
goto T307; |
1260 |
|
T307:; |
1261 |
|
if(((V110))==Cnil){ |
1262 |
goto T309;} |
goto T309;} |
1263 |
|
V112 = CMPmake_fixnum((long)length((V98))); |
1264 |
|
{object V114 =((V97))->s.s_plist; |
1265 |
|
object ind= VV[19]; |
1266 |
|
while(V114!=Cnil){ |
1267 |
|
if(V114->c.c_car==ind){ |
1268 |
|
V113= (V114->c.c_cdr->c.c_car); |
1269 |
|
goto T314; |
1270 |
|
}else V114=V114->c.c_cdr->c.c_cdr;} |
1271 |
|
V113= Cnil;} |
1272 |
|
goto T314; |
1273 |
|
T314:; |
1274 |
|
if(number_compare(V112,V113)==0){ |
1275 |
|
goto T312;} |
1276 |
base[6]= Ct; |
base[6]= Ct; |
1277 |
base[7]= VV[62]; |
base[7]= VV[63]; |
1278 |
V110 = make_fixnum((long)length((V95))); |
V115 = CMPmake_fixnum((long)length((V98))); |
1279 |
V111= get((V94),VV[19],Cnil); |
{object V117 =((V97))->s.s_plist; |
1280 |
base[8]= (number_compare(V110,V111)>0?Ct:Cnil); |
object ind= VV[19]; |
1281 |
base[9]= (V94); |
while(V117!=Cnil){ |
1282 |
|
if(V117->c.c_car==ind){ |
1283 |
|
V116= (V117->c.c_cdr->c.c_car); |
1284 |
|
goto T318; |
1285 |
|
}else V117=V117->c.c_cdr->c.c_cdr;} |
1286 |
|
V116= Cnil;} |
1287 |
|
goto T318; |
1288 |
|
T318:; |
1289 |
|
base[8]= (number_compare(V115,V116)>0?Ct:Cnil); |
1290 |
|
base[9]= (V97); |
1291 |
vs_top=(vs_base=base+6)+4; |
vs_top=(vs_base=base+6)+4; |
1292 |
Lformat(); |
Lformat(); |
1293 |
frs_pop(); |
frs_pop(); |
1294 |
bds_unwind1; |
bds_unwind1; |
1295 |
return; |
return; |
1296 |
goto T309; |
goto T312; |
1297 |
T309:; |
T312:; |
1298 |
base[6]= (V107); |
base[6]= (V110); |
1299 |
{object V112; |
{object V118; |
1300 |
V112= (V95); |
V118= (V98); |
1301 |
vs_top=base+7; |
vs_top=base+7; |
1302 |
while(!endp(V112)) |
while(V118!=Cnil) |
1303 |
{vs_push(car(V112));V112=cdr(V112);} |
{vs_push((V118)->c.c_car);V118=(V118)->c.c_cdr;} |
1304 |
vs_base=base+7;} |
vs_base=base+7;} |
1305 |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1306 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1309 |
frs_pop(); |
frs_pop(); |
1310 |
bds_unwind1; |
bds_unwind1; |
1311 |
return; |
return; |
1312 |
goto T306; |
goto T309; |
1313 |
T306:; |
T309:; |
1314 |
base[6]= Ct; |
base[6]= Ct; |
1315 |
base[7]= VV[63]; |
base[7]= VV[64]; |
1316 |
base[8]= (V94); |
base[8]= (V97); |
1317 |
vs_top=(vs_base=base+6)+3; |
vs_top=(vs_base=base+6)+3; |
1318 |
Lformat(); |
Lformat(); |
1319 |
frs_pop(); |
frs_pop(); |
1320 |
bds_unwind1; |
bds_unwind1; |
1321 |
return;}} |
return;}} |
1322 |
goto T275; |
goto T278; |
1323 |
T275:; |
T278:; |
1324 |
{object V113; |
{object V119; |
1325 |
V113= (base[3]->c.c_car); |
V119= (base[3]->c.c_car); |
|
ck_larg_exactly(0,(V113)); |
|
1326 |
base[5]= Cnil; |
base[5]= Cnil; |
1327 |
base[6]= Ct; |
base[6]= Ct; |
1328 |
vs_top=(vs_base=base+5)+2; |
vs_top=(vs_base=base+5)+2; |
1340 |
register object *base0; |
register object *base0; |
1341 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1342 |
register object *sup=base+VM57; VC57 |
register object *sup=base+VM57; VC57 |
1343 |
vs_reserve(VM57); |
vs_check; |
1344 |
{object V114; |
{object V120; |
1345 |
check_arg(1); |
V120=(base[0]); |
|
V114=(base[0]); |
|
1346 |
vs_top=sup; |
vs_top=sup; |
1347 |
base[1]= (V114); |
base[1]= (V120); |
1348 |
base[2]= VV[60]; |
base[2]= VV[61]; |
1349 |
base[3]= (base0[2]->c.c_car); |
base[3]= (base0[2]->c.c_car); |
1350 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1351 |
Lformat(); |
Lformat(); |
1358 |
register object *base0; |
register object *base0; |
1359 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1360 |
register object *sup=base+VM58; VC58 |
register object *sup=base+VM58; VC58 |
1361 |
vs_reserve(VM58); |
vs_check; |
1362 |
{object V115; |
{object V121; |
1363 |
vs_top[0]=Cnil; |
vs_top[0]=Cnil; |
1364 |
{object *p=vs_top; |
{object *p=vs_top; |
1365 |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} |
1366 |
V115=(base[0]); |
V121=(base[0]); |
1367 |
vs_top=sup; |
vs_top=sup; |
1368 |
(base0[1]->c.c_car)= (V115); |
(base0[1]->c.c_car)= (V121); |
1369 |
{frame_ptr fr; |
{frame_ptr fr; |
1370 |
fr=frs_sch((base0[0]->c.c_car)); |
fr=frs_sch((base0[0]->c.c_car)); |
1371 |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[64]); |
if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[65]); |
1372 |
vs_base=vs_top; |
vs_base=vs_top; |
1373 |
unwind(fr,VV[64]);} |
unwind(fr,VV[65]);} |
1374 |
} |
} |
1375 |
} |
} |
1376 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1379 |
register object *base0; |
register object *base0; |
1380 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1381 |
register object *sup=base+VM59; VC59 |
register object *sup=base+VM59; VC59 |
1382 |
vs_reserve(VM59); |
vs_check; |
|
check_arg(0); |
|
1383 |
vs_top=sup; |
vs_top=sup; |
1384 |
base[0]= Ct; |
base[0]= Ct; |
|
base[1]= VV[32]; |
|
|
vs_top=(vs_base=base+0)+2; |
|
|
Lformat(); |
|
|
vs_top=sup; |
|
|
(void)((VFUN_NARGS=3,(*(LnkLI78))(symbol_value(VV[4]),symbol_value(VV[5]),small_fixnum(16)))); |
|
|
base[0]= Ct; |
|
1385 |
base[1]= VV[33]; |
base[1]= VV[33]; |
1386 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1387 |
Lformat(); |
Lformat(); |
1388 |
vs_top=sup; |
vs_top=sup; |
1389 |
if((symbol_value(VV[1]))==Cnil){ |
(void)((VFUN_NARGS=3,(*(LnkLI79))((VV[4]->s.s_dbind),(VV[5]->s.s_dbind),small_fixnum(16)))); |
|
goto T337;} |
|
1390 |
base[0]= Ct; |
base[0]= Ct; |
1391 |
base[1]= VV[34]; |
base[1]= VV[34]; |
1392 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1393 |
Lformat(); |
Lformat(); |
1394 |
vs_top=sup; |
vs_top=sup; |
1395 |
goto T337; |
if(((VV[1]->s.s_dbind))==Cnil){ |
1396 |
T337:; |
goto T340;} |
|
if((symbol_value(VV[2]))==Cnil){ |
|
|
goto T342;} |
|
1397 |
base[0]= Ct; |
base[0]= Ct; |
1398 |
base[1]= VV[35]; |
base[1]= VV[35]; |
1399 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1400 |
Lformat(); |
Lformat(); |
1401 |
vs_top=sup; |
vs_top=sup; |
1402 |
goto T342; |
goto T340; |
1403 |
T342:; |
T340:; |
1404 |
|
if(((VV[2]->s.s_dbind))==Cnil){ |
1405 |
|
goto T345;} |
1406 |
base[0]= Ct; |
base[0]= Ct; |
1407 |
base[1]= VV[36]; |
base[1]= VV[36]; |
1408 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1409 |
Lformat(); |
Lformat(); |
1410 |
|
vs_top=sup; |
1411 |
|
goto T345; |
1412 |
|
T345:; |
1413 |
|
base[0]= Ct; |
1414 |
|
base[1]= VV[37]; |
1415 |
|
vs_top=(vs_base=base+0)+2; |
1416 |
|
Lformat(); |
1417 |
return; |
return; |
1418 |
} |
} |
1419 |
/* local function CLOSURE */ |
/* local function CLOSURE */ |
1422 |
register object *base0; |
register object *base0; |
1423 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1424 |
register object *sup=base+VM60; VC60 |
register object *sup=base+VM60; VC60 |
1425 |
vs_reserve(VM60); |
vs_check; |
|
check_arg(0); |
|
1426 |
vs_top=sup; |
vs_top=sup; |
1427 |
base[0]= Ct; |
base[0]= Ct; |
1428 |
base[1]= VV[30]; |
base[1]= VV[31]; |
1429 |
base[2]= symbol_value(VV[3]); |
base[2]= (VV[3]->s.s_dbind); |
1430 |
vs_top=(vs_base=base+0)+3; |
vs_top=(vs_base=base+0)+3; |
1431 |
Lformat(); |
Lformat(); |
1432 |
return; |
return; |
1437 |
register object *base0; |
register object *base0; |
1438 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1439 |
register object *sup=base+VM61; VC61 |
register object *sup=base+VM61; VC61 |
1440 |
vs_reserve(VM61); |
vs_check; |
|
check_arg(0); |
|
1441 |
vs_top=sup; |
vs_top=sup; |
1442 |
if((symbol_value(VV[2]))==Cnil){ |
if(((VV[2]->s.s_dbind))==Cnil){ |
1443 |
goto T353;} |
goto T356;} |
1444 |
base[0]= symbol_value(VV[2]); |
base[0]= (VV[2]->s.s_dbind); |
1445 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1446 |
(void) (*Lnk83)(); |
(void) (*Lnk84)(); |
1447 |
return; |
return; |
1448 |
goto T353; |
goto T356; |
1449 |
T353:; |
T356:; |
1450 |
base[0]= Ct; |
base[0]= Ct; |
1451 |
base[1]= VV[28]; |
base[1]= VV[29]; |
1452 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1453 |
Lformat(); |
Lformat(); |
1454 |
return; |
return; |
1459 |
register object *base0; |
register object *base0; |
1460 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1461 |
register object *sup=base+VM62; VC62 |
register object *sup=base+VM62; VC62 |
1462 |
vs_reserve(VM62); |
vs_check; |
|
check_arg(0); |
|
1463 |
vs_top=sup; |
vs_top=sup; |
1464 |
if((symbol_value(VV[1]))==Cnil){ |
if(((VV[1]->s.s_dbind))==Cnil){ |
1465 |
goto T359;} |
goto T362;} |
1466 |
base[0]= symbol_value(VV[1]); |
base[0]= (VV[1]->s.s_dbind); |
1467 |
vs_top=(vs_base=base+0)+1; |
vs_top=(vs_base=base+0)+1; |
1468 |
(void) (*Lnk83)(); |
(void) (*Lnk84)(); |
1469 |
return; |
return; |
1470 |
goto T359; |
goto T362; |
1471 |
T359:; |
T362:; |
1472 |
base[0]= Ct; |
base[0]= Ct; |
1473 |
base[1]= VV[26]; |
base[1]= VV[27]; |
1474 |
vs_top=(vs_base=base+0)+2; |
vs_top=(vs_base=base+0)+2; |
1475 |
Lformat(); |
Lformat(); |
1476 |
return; |
return; |
1481 |
register object *base0; |
register object *base0; |
1482 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1483 |
register object *sup=base+VM63; VC63 |
register object *sup=base+VM63; VC63 |
1484 |
vs_reserve(VM63); |
vs_check; |
1485 |
{object V116; |
{object V122; |
1486 |
check_arg(1); |
V122=(base[0]); |
|
V116=(base[0]); |
|
1487 |
vs_top=sup; |
vs_top=sup; |
1488 |
base[1]= symbol_value(VV[8]); |
base[1]= (VV[8]->s.s_dbind); |
1489 |
base[3]= (V116); |
base[3]= (V122); |
1490 |
vs_top=(vs_base=base+3)+1; |
vs_top=(vs_base=base+3)+1; |
1491 |
{object _funobj = symbol_value(VV[6]);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
{object _funobj = (VV[6]->s.s_dbind);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) |
1492 |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
(*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); |
1493 |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); |
1494 |
else super_funcall_no_event(_funobj);} |
else super_funcall_no_event(_funobj);} |
1509 |
register object *base0; |
register object *base0; |
1510 |
{ register object *base=vs_base; |
{ register object *base=vs_base; |
1511 |
register object *sup=base+VM64; VC64 |
register object *sup=base+VM64; VC64 |
1512 |
vs_reserve(VM64); |
vs_check; |
1513 |
{object V117; |
{object V123; |
1514 |
check_arg(1); |
V123=(base[0]); |
|
V117=(base[0]); |
|
1515 |
vs_top=sup; |
vs_top=sup; |
1516 |
base[1]= Ct; |
base[1]= Ct; |
1517 |
base[2]= VV[9]; |
base[2]= VV[9]; |
1518 |
base[3]= (V117); |
base[3]= (V123); |
1519 |
vs_top=(vs_base=base+1)+3; |
vs_top=(vs_base=base+1)+3; |
1520 |
Lformat(); |
Lformat(); |
1521 |
return; |
return; |
1522 |
} |
} |
1523 |
} |
} |
1524 |
static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* INVOKE-RESTART-INTERACTIVELY */ |
static void LnkT84(){ call_or_link(VV[84],(void **)(void *)&Lnk84);} /* INVOKE-RESTART-INTERACTIVELY */ |
1525 |
static void LnkT82(){ call_or_link(VV[82],(void **)(void *)&Lnk82);} /* INVOKE-RESTART */ |
static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* INVOKE-RESTART */ |
1526 |
static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)(void *)&LnkLI81,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ |
1527 |
static void LnkT80(){ call_or_link(VV[80],(void **)(void *)&Lnk80);} /* EXECUTE-DEBUGGER-COMMAND */ |
static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* EXECUTE-DEBUGGER-COMMAND */ |
1528 |
static object LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* READ-DEBUG-COMMAND */ |
static object LnkTLI80(){return call_proc0(VV[80],(void **)(void *)&LnkLI80);} /* READ-DEBUG-COMMAND */ |
1529 |
static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)(void *)&LnkLI78,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */ |
static object LnkTLI79(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[79],(void **)(void *)&LnkLI79,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */ |
1530 |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)(void *)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ |
1531 |
static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[76],(void **)(void *)&LnkLI76,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */ |
static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */ |
1532 |
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* COERCE-TO-CONDITION */ |
static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* COERCE-TO-CONDITION */ |
1533 |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* GET-OUTPUT-STREAM-STRING */ |
static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* GET-OUTPUT-STREAM-STRING */ |
1534 |
static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* MAKE-STRING-OUTPUT-STREAM */ |
static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* MAKE-STRING-OUTPUT-STREAM */ |
1535 |
static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* MAKE-STRING-INPUT-STREAM */ |
static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* MAKE-STRING-INPUT-STREAM */ |
1536 |
static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* *MAKE-SPECIAL */ |
static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* *MAKE-SPECIAL */ |
1537 |
|
|
1538 |
#ifdef SYSTEM_SPECIAL_INIT |
#ifdef SYSTEM_SPECIAL_INIT |
1539 |
SYSTEM_SPECIAL_INIT |
SYSTEM_SPECIAL_INIT |