/[gcl]/gcl/clcs/clcs_debugger.c
ViewVC logotype

Diff of /gcl/clcs/clcs_debugger.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by camm, Mon Sep 22 22:03:47 2003 UTC revision 1.7 by camm, Tue Sep 23 21:48:26 2003 UTC
# Line 2  Line 2 
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    
# Line 11  static object LI1() Line 11  static object LI1()
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    
# Line 53  TTL:; Line 48  TTL:;
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    
# Line 62  static object LI4() Line 57  static object LI4()
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    
# Line 104  TTL:; Line 94  TTL:;
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    
# Line 113  static object LI7() Line 103  static object LI7()
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    
# Line 155  TTL:; Line 140  TTL:;
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    
# Line 164  static object LI10() Line 149  static object LI10()
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    
# Line 206  TTL:; Line 186  TTL:;
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    
# Line 215  static object LI13() Line 195  static object LI13()
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    
# Line 257  TTL:; Line 232  TTL:;
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    
# Line 266  static object LI16() Line 241  static object LI16()
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    
# Line 308  TTL:; Line 278  TTL:;
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    
# Line 317  static object LI19() Line 287  static object LI19()
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    
# Line 359  TTL:; Line 324  TTL:;
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    
# Line 368  static object LI22() Line 333  static object LI22()
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    
# Line 415  TTL:; Line 375  TTL:;
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;
# Line 432  static void L25() Line 388  static void L25()
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;
# Line 449  static void L26() Line 401  static void L26()
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;
# Line 479  static object LI28() Line 428  static object LI28()
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;
# Line 505  TTL:; Line 466  TTL:;
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  */
# Line 794  static object LI47(object first,...) Line 750  static object LI47(object first,...)
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();
# Line 845  T145:; Line 801  T145:;
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];
# Line 931  T188:; Line 888  T188:;
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 */
# Line 1060  TTL:; Line 1016  TTL:;
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);}
# Line 1109  T233:; Line 1067  T233:;
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  }  }
# Line 1187  T264:; Line 1145  T264:;
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]);
# Line 1202  static void L56() Line 1159  static void L56()
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);
# Line 1326  T309:; Line 1309  T309:;
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;
# Line 1358  static void LC64(base0) Line 1340  static void LC64(base0)
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();
# Line 1377  static void LC63(base0) Line 1358  static void LC63(base0)
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  */
# Line 1398  static void LC62(base0) Line 1379  static void LC62(base0)
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  */
# Line 1442  static void LC61(base0) Line 1422  static void LC61(base0)
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;
# Line 1458  static void LC60(base0) Line 1437  static void LC60(base0)
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;
# Line 1481  static void LC59(base0) Line 1459  static void LC59(base0)
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;
# Line 1504  static void LC58(base0) Line 1481  static void LC58(base0)
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);}
# Line 1533  static void LC57(base0) Line 1509  static void LC57(base0)
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

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26