/[gcl]/gcl/cmpnew/gcl_cmpflet.c
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpflet.c

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

revision 1.2 by camm, Sun Sep 14 02:43:01 2003 UTC revision 1.3 by camm, Tue Sep 23 21:48:27 2003 UTC
# Line 64  TTL:; Line 64  TTL:;
64          V15= Cnil;          V15= Cnil;
65          V16= Cnil;          V16= Cnil;
66          V17= Cnil;          V17= Cnil;
67          if(!(endp_prop((V8)))){          if(!(((V8))==Cnil)){
68          goto T16;}          goto T16;}
69          (void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI42))(VV[1],small_fixnum(1),small_fixnum(0)));
70          goto T16;          goto T16;
71  T16:;  T16:;
72          bds_bind(VV[2],symbol_value(VV[2]));          bds_bind(VV[2],(VV[2]->s.s_dbind));
73          {register object V18;          {register object V18;
74          register object V19;          register object V19;
75          V18= car((V8));          V18= CMPcar((V8));
76          V19= car((V18));          V19= CMPcar((V18));
77          goto T24;          goto T24;
78  T24:;  T24:;
79          if(!(endp_prop((V18)))){          if(!(((V18))==Cnil)){
80          goto T25;}          goto T25;}
81          goto T20;          goto T20;
82          goto T25;          goto T25;
83  T25:;  T25:;
84          if(endp_prop((V19))){          if(((V19))==Cnil){
85          goto T30;}          goto T30;}
86          if(!(type_of(car((V19)))==t_symbol)){          if(!(type_of(CMPcar((V19)))==t_symbol)){
87          goto T30;}          goto T30;}
88          if(!(endp_prop(cdr((V19))))){          if(!((CMPcdr((V19)))==Cnil)){
89          goto T29;}          goto T29;}
90          goto T30;          goto T30;
91  T30:;  T30:;
# Line 93  T30:; Line 93  T30:;
93          goto T29;          goto T29;
94  T29:;  T29:;
95          {object V20;          {object V20;
96          V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V19)),VV[5],Cnil,VV[6],Cnil));          V20= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],CMPcar((V19)),VV[5],Cnil,VV[6],Cnil));
97          (VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind));          (VV[2]->s.s_dbind)= make_cons(V20,(VV[2]->s.s_dbind));
98          {object V22;          {object V22;
99          V22= list(2,(V20),cdr((V19)));          V22= list(2,(V20),CMPcdr((V19)));
100          V15= make_cons((V22),(V15));}}          V15= make_cons((V22),(V15));}}
101          V18= cdr((V18));          V18= CMPcdr((V18));
102          V19= car((V18));          V19= CMPcar((V18));
103          goto T24;}          goto T24;}
104          goto T20;          goto T20;
105  T20:;  T20:;
106          base[1]= cdr((V8));          base[1]= CMPcdr((V8));
107          base[2]= Ct;          base[2]= Ct;
108          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
109          (void) (*Lnk45)();          (void) (*Lnk45)();
# Line 132  T20:; Line 132  T20:;
132          }else{          }else{
133          V13= Cnil;}          V13= Cnil;}
134          vs_top=sup;          vs_top=sup;
135          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[7],(VV[7]->s.s_dbind));
136          (void)((*(LnkLI46))((V10)));          (void)((*(LnkLI46))((V10)));
137          (void)((*(LnkLI47))(Cnil,(V11),(V12)));          (void)((*(LnkLI47))(Cnil,(V11),(V12)));
138          V9= (*(LnkLI48))((V13),(V9));          V9= (*(LnkLI48))((V13),(V9));
139          bds_unwind1;          bds_unwind1;
140          base[1]= cadr((V9));          base[1]= CMPcadr((V9));
141          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
142          (void) (*Lnk49)();          (void) (*Lnk49)();
143          vs_top=sup;          vs_top=sup;
# Line 146  T20:; Line 146  T20:;
146          {register object V23;          {register object V23;
147          register object V24;          register object V24;
148          V23= reverse((V15));          V23= reverse((V15));
149          V24= car((V23));          V24= CMPcar((V23));
150          goto T61;          goto T61;
151  T61:;  T61:;
152          if(!(endp_prop((V23)))){          if(!(((V23))==Cnil)){
153          goto T62;}          goto T62;}
154          goto T57;          goto T57;
155          goto T62;          goto T62;
156  T62:;  T62:;
157          if((structure_ref(car((V24)),VV[0],2))==Cnil){          if((STREF(object,CMPcar((V24)),8))==Cnil){
158          goto T66;}          goto T66;}
159          base[2]= make_cons(VV[8],symbol_value(VV[7]));          base[2]= make_cons(VV[8],(VV[7]->s.s_dbind));
160          base[3]= make_cons(VV[8],symbol_value(VV[2]));          base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));
161          base[4]= make_cons(VV[8],symbol_value(VV[9]));          base[4]= make_cons(VV[8],(VV[9]->s.s_dbind));
162          base[5]= make_cons(VV[8],symbol_value(VV[10]));          base[5]= make_cons(VV[8],(VV[10]->s.s_dbind));
163          bds_bind(VV[7],base[2]);          bds_bind(VV[7],base[2]);
164          bds_bind(VV[2],base[3]);          bds_bind(VV[2],base[3]);
165          bds_bind(VV[9],base[4]);          bds_bind(VV[9],base[4]);
166          bds_bind(VV[10],base[5]);          bds_bind(VV[10],base[5]);
167          {object V25;          {object V25;
168          V26= cadr((V24));          V25= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadr((V24)),STREF(object,CMPcar((V24)),0)));
169          V27= structure_ref(car((V24)),VV[0],0);          (void)((*(LnkLI51))((V14),CMPcadr((V25))));
170          V25= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V26,/* INLINE-ARGS */V27));          {object V26;
171          (void)((*(LnkLI51))((V14),cadr((V25))));          V26= list(2,CMPcar((V24)),(V25));
172          {object V28;          V17= make_cons((V26),(V17));
         V28= list(2,car((V24)),(V25));  
         V17= make_cons((V28),(V17));  
173          bds_unwind1;          bds_unwind1;
174          bds_unwind1;          bds_unwind1;
175          bds_unwind1;          bds_unwind1;
176          bds_unwind1;}}          bds_unwind1;}}
177          goto T66;          goto T66;
178  T66:;  T66:;
179          if((structure_ref(car((V24)),VV[0],1))==Cnil){          if((STREF(object,CMPcar((V24)),4))==Cnil){
180          goto T77;}          goto T77;}
181          base[2]= make_cons(VV[11],symbol_value(VV[9]));          base[2]= make_cons(VV[11],(VV[9]->s.s_dbind));
182          base[3]= make_cons(VV[11],symbol_value(VV[10]));          base[3]= make_cons(VV[11],(VV[10]->s.s_dbind));
183          base[4]= make_cons(VV[11],symbol_value(VV[7]));          base[4]= make_cons(VV[11],(VV[7]->s.s_dbind));
184          bds_bind(VV[9],base[2]);          bds_bind(VV[9],base[2]);
185          bds_bind(VV[10],base[3]);          bds_bind(VV[10],base[3]);
186          bds_bind(VV[7],base[4]);          bds_bind(VV[7],base[4]);
187          {object V29;          {object V27;
188          V30= cadr((V24));          V27= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadr((V24)),STREF(object,CMPcar((V24)),0)));
189          V31= structure_ref(car((V24)),VV[0],0);          (void)((*(LnkLI51))((V14),CMPcadr((V27))));
190          V29= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V30,/* INLINE-ARGS */V31));          {object V28;
191          (void)((*(LnkLI51))((V14),cadr((V29))));          V28= list(2,CMPcar((V24)),(V27));
192          {object V32;          V16= make_cons((V28),(V16));
         V32= list(2,car((V24)),(V29));  
         V16= make_cons((V32),(V16));  
193          bds_unwind1;          bds_unwind1;
194          bds_unwind1;          bds_unwind1;
195          bds_unwind1;}}          bds_unwind1;}}
196          goto T77;          goto T77;
197  T77:;  T77:;
198          if((structure_ref(car((V24)),VV[0],1))!=Cnil){          if((STREF(object,CMPcar((V24)),4))!=Cnil){
199          goto T88;}          goto T88;}
200          if((structure_ref(car((V24)),VV[0],2))==Cnil){          if((STREF(object,CMPcar((V24)),8))==Cnil){
201          goto T87;}          goto T87;}
202          goto T88;          goto T88;
203  T88:;  T88:;
204          V33= car((V24));          V29= CMPcar((V24));
205          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
206          (void)(structure_set(/* INLINE-ARGS */V33,VV[0],3,symbol_value(VV[12])));          V30= Ct;
207            STSET(object,/* INLINE-ARGS */V29,12, (VV[12]->s.s_dbind));
208            (void)((VV[12]->s.s_dbind));
209          goto T87;          goto T87;
210  T87:;  T87:;
211          V23= cdr((V23));          V23= CMPcdr((V23));
212          V24= car((V23));          V24= CMPcar((V23));
213          goto T61;}          goto T61;}
214          goto T57;          goto T57;
215  T57:;  T57:;
# Line 221  T57:; Line 219  T57:;
219          goto T99;}          goto T99;}
220          goto T98;          goto T98;
221  T98:;  T98:;
222          V34= reverse((V16));          V31= reverse((V16));
223          {object V35 = list(5,VV[1],(V14),/* INLINE-ARGS */V34,reverse((V17)),(V9));          {object V32 = list(5,VV[1],(V14),/* INLINE-ARGS */V31,reverse((V17)),(V9));
224          VMR2(V35)}          VMR2(V32)}
225          goto T99;          goto T99;
226  T99:;  T99:;
227          {object V36 = (V9);          {object V33 = (V9);
228          VMR2(V36)}}          VMR2(V33)}}
229          base[0]=base[0];          base[0]=base[0];
230          return Cnil;          return Cnil;
231  }  }
# Line 236  T99:; Line 234  T99:;
234  static void L3()  static void L3()
235  {register object *base=vs_base;  {register object *base=vs_base;
236          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
237          vs_reserve(VM3);          vs_check;
238          bds_check;          bds_check;
239          {object V37;          {object V34;
240          object V38;          object V35;
241          object V39;          object V36;
242          check_arg(3);          V34=(base[0]);
243          V37=(base[0]);          V35=(base[1]);
244          V38=(base[1]);          V36=(base[2]);
         V39=(base[2]);  
245          vs_top=sup;          vs_top=sup;
246          goto TTL;          goto TTL;
247  TTL:;  TTL:;
248          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],(VV[13]->s.s_dbind));
249          bds_bind(VV[14],symbol_value(VV[14]));          bds_bind(VV[14],(VV[14]->s.s_dbind));
250          bds_bind(VV[15],symbol_value(VV[15]));          bds_bind(VV[15],(VV[15]->s.s_dbind));
251          {register object V40;          {register object V37;
252          object V41;          object V38;
253          V40= (V37);          V37= (V34);
254          V41= car((V40));          V38= CMPcar((V37));
255          goto T107;          goto T107;
256  T107:;  T107:;
257          if(!(endp_prop((V40)))){          if(!(((V37))==Cnil)){
258          goto T108;}          goto T108;}
259          goto T103;          goto T103;
260          goto T108;          goto T108;
261  T108:;  T108:;
262          (void)(structure_set(car((V41)),VV[0],4,symbol_value(VV[16])));          V39= CMPcar((V38));
263          {object V42;{object V43;          V40= Ct;
264          V43= (VV[14]->s.s_dbind);{object V44;          STSET(object,/* INLINE-ARGS */V39,16, (VV[16]->s.s_dbind));
265          V44= (VV[15]->s.s_dbind);          (void)((VV[16]->s.s_dbind));
266          V42= list(5,Cnil,V43,V44,car((V41)),cadr((V41)));}}          {object V41;{object V42;
267          setq(VV[17],make_cons((V42),symbol_value(VV[17])));}          V42= (VV[14]->s.s_dbind);{object V43;
268          V40= cdr((V40));          V43= (VV[15]->s.s_dbind);
269          V41= car((V40));          V41= list(5,Cnil,V42,V43,CMPcar((V38)),CMPcadr((V38)));}}
270            (VV[17]->s.s_dbind)= make_cons((V41),(VV[17]->s.s_dbind));}
271            V37= CMPcdr((V37));
272            V38= CMPcar((V37));
273          goto T107;}          goto T107;}
274          goto T103;          goto T103;
275  T103:;  T103:;
276          {register object V45;          {register object V44;
277          register object V46;          register object V45;
278          V45= (V38);          V44= (V35);
279          V46= car((V45));          V45= CMPcar((V44));
280          goto T125;          goto T125;
281  T125:;  T125:;
282          if(!(endp_prop((V45)))){          if(!(((V44))==Cnil)){
283          goto T126;}          goto T126;}
284          goto T121;          goto T121;
285          goto T126;          goto T126;
286  T126:;  T126:;
287          {object V47;          {object V46;
288          if(((VV[14]->s.s_dbind))!=Cnil){          if(((VV[14]->s.s_dbind))!=Cnil){
289          goto T134;}          goto T134;}
290          V48= Cnil;          V47= Cnil;
291          goto T132;          goto T132;
292          goto T134;          goto T134;
293  T134:;  T134:;
294          V48= make_cons(small_fixnum(0),small_fixnum(0));          V47= make_cons(small_fixnum(0),small_fixnum(0));
295          goto T132;          goto T132;
296  T132:;{object V49;  T132:;{object V48;
297          V49= (VV[15]->s.s_dbind);          V48= (VV[15]->s.s_dbind);
298          V47= list(5,VV[18],V48,V49,car((V46)),cadr((V46)));}          V46= list(5,VV[18],V47,V48,CMPcar((V45)),CMPcadr((V45)));}
299          setq(VV[17],make_cons((V47),symbol_value(VV[17])));}          (VV[17]->s.s_dbind)= make_cons((V46),(VV[17]->s.s_dbind));}
300          {object V50;          {object V49;
301          V50= car((V46));          V49= CMPcar((V45));
302          setq(VV[19],make_cons((V50),symbol_value(VV[19])));}          (VV[19]->s.s_dbind)= make_cons((V49),(VV[19]->s.s_dbind));}
303          {register object V51;          {register object V50;
304          V51= car((V46));          V50= CMPcar((V45));
305          V52= (*(LnkLI52))();          V51= (*(LnkLI52))();
306          (void)(structure_set((V51),VV[0],1,/* INLINE-ARGS */V52));          V52= Ct;
307            STSET(object,(V50),4, /* INLINE-ARGS */V51);
308            (void)(/* INLINE-ARGS */V51);
309          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
310          V53= structure_ref((V51),VV[0],1);          (void)((*(LnkLI53))(STREF(object,(V50),4)));
         (void)((*(LnkLI53))(/* INLINE-ARGS */V53));  
311          princ_str("=make_cclosure_new(LC",VV[20]);          princ_str("=make_cclosure_new(LC",VV[20]);
312          V54= structure_ref((V51),VV[0],3);          (void)((*(LnkLI54))(STREF(object,(V50),12)));
         (void)((*(LnkLI54))(/* INLINE-ARGS */V54));  
313          princ_str(",Cnil,",VV[20]);          princ_str(",Cnil,",VV[20]);
314          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
315          princ_str(",Cdata);",VV[20]);          princ_str(",Cdata);",VV[20]);
316          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
317          V55= structure_ref((V51),VV[0],1);          (void)((*(LnkLI53))(STREF(object,(V50),4)));
         (void)((*(LnkLI53))(/* INLINE-ARGS */V55));  
318          princ_str("=MMcons(",VV[20]);          princ_str("=MMcons(",VV[20]);
319          V56= structure_ref((V51),VV[0],1);          (void)((*(LnkLI53))(STREF(object,(V50),4)));
         (void)((*(LnkLI53))(/* INLINE-ARGS */V56));  
320          princ_char(44,VV[20]);          princ_char(44,VV[20]);
321          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
322          princ_str(");",VV[20]);          princ_str(");",VV[20]);
323          V57= structure_ref((V51),VV[0],1);          (void)((*(LnkLI56))(STREF(object,(V50),4)));
324          (void)((*(LnkLI56))(/* INLINE-ARGS */V57));          V53= (*(LnkLI57))();
325          V58= (*(LnkLI57))();          V54= Ct;
326          (void)(structure_set((V51),VV[0],2,/* INLINE-ARGS */V58));}          STSET(object,(V50),8, /* INLINE-ARGS */V53);
327          V45= cdr((V45));          (void)(/* INLINE-ARGS */V53);}
328          V46= car((V45));          V44= CMPcdr((V44));
329            V45= CMPcar((V44));
330          goto T125;}          goto T125;}
331          goto T121;          goto T121;
332  T121:;  T121:;
333          base[6]= (V39);          base[6]= (V36);
334          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
335          (void) (*Lnk58)();          (void) (*Lnk58)();
336          bds_unwind1;          bds_unwind1;
# Line 342  T121:; Line 341  T121:;
341  }  }
342  /*      local entry for function C1LABELS       */  /*      local entry for function C1LABELS       */
343    
344  static object LI4(V60)  static object LI4(V56)
345    
346  object V60;  object V56;
347  {        VMB4 VMS4 VMV4  {        VMB4 VMS4 VMV4
348          bds_check;          bds_check;
349          goto TTL;          goto TTL;
350  TTL:;  TTL:;
351          {object V61;          {object V57;
352            object V58;
353            object V59;
354            object V60;
355            object V61;
356          object V62;          object V62;
357          object V63;          object V63;
358          object V64;          object V64;
359          object V65;          object V65;
360          object V66;          object V66;
361          object V67;          register object V67;
362          object V68;          V57= Cnil;
363          object V69;          V58= Cnil;
364          object V70;          V59= Cnil;
365          register object V71;          V60= Cnil;
366          V61= Cnil;          V61= Cnil;
367          V62= Cnil;          V62= Cnil;
368          V63= Cnil;          V63= Cnil;
# Line 367  TTL:; Line 370  TTL:;
370          V65= Cnil;          V65= Cnil;
371          V66= Cnil;          V66= Cnil;
372          V67= Cnil;          V67= Cnil;
373          V68= Cnil;          bds_bind(VV[2],(VV[2]->s.s_dbind));
374          V69= Cnil;          if(!(((V56))==Cnil)){
         V70= Cnil;  
         V71= Cnil;  
         bds_bind(VV[2],symbol_value(VV[2]));  
         if(!(endp_prop((V60)))){  
375          goto T180;}          goto T180;}
376          (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI42))(VV[21],small_fixnum(1),small_fixnum(0)));
377          goto T180;          goto T180;
378  T180:;  T180:;
379          {object V72;          {object V68;
380          register object V73;          register object V69;
381          V72= car((V60));          V68= CMPcar((V56));
382          V73= car((V72));          V69= CMPcar((V68));
383          goto T187;          goto T187;
384  T187:;  T187:;
385          if(!(endp_prop((V72)))){          if(!(((V68))==Cnil)){
386          goto T188;}          goto T188;}
387          goto T183;          goto T183;
388          goto T188;          goto T188;
389  T188:;  T188:;
390          if(endp_prop((V73))){          if(((V69))==Cnil){
391          goto T193;}          goto T193;}
392          if(!(type_of(car((V73)))==t_symbol)){          if(!(type_of(CMPcar((V69)))==t_symbol)){
393          goto T193;}          goto T193;}
394          if(!(endp_prop(cdr((V73))))){          if(!((CMPcdr((V69)))==Cnil)){
395          goto T192;}          goto T192;}
396          goto T193;          goto T193;
397  T193:;  T193:;
398          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V73))));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[22],(V69))));
399          goto T192;          goto T192;
400  T192:;  T192:;
401          {register object x= car((V73)),V74= (V70);          {register object x= CMPcar((V69)),V70= (V66);
402          while(!endp(V74))          while(V70!=Cnil)
403          if(eql(x,V74->c.c_car)){          if(eql(x,V70->c.c_car)){
404          goto T201;          goto T201;
405          }else V74=V74->c.c_cdr;          }else V70=V70->c.c_cdr;
406          goto T199;}          goto T199;}
407          goto T201;          goto T201;
408  T201:;  T201:;
409          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],car((V73)))));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[23],CMPcar((V69)))));
410          goto T199;          goto T199;
411  T199:;  T199:;
412          {object V75;          {object V71;
413          V75= car((V73));          V71= CMPcar((V69));
414          V70= make_cons((V75),(V70));}          V66= make_cons((V71),(V66));}
415          {object V76;          {object V72;
416          V76= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],car((V73)),VV[5],Cnil,VV[6],Cnil));          V72= (VFUN_NARGS=6,(*(LnkLI44))(VV[4],CMPcar((V69)),VV[5],Cnil,VV[6],Cnil));
417          (VV[2]->s.s_dbind)= make_cons(V76,(VV[2]->s.s_dbind));          (VV[2]->s.s_dbind)= make_cons(V72,(VV[2]->s.s_dbind));
418          {object V78;          {object V74;
419          V78= list(4,(V76),Cnil,Cnil,cdr((V73)));          V74= list(4,(V72),Cnil,Cnil,CMPcdr((V69)));
420          V67= make_cons((V78),(V67));}}          V63= make_cons((V74),(V63));}}
421          V72= cdr((V72));          V68= CMPcdr((V68));
422          V73= car((V72));          V69= CMPcar((V68));
423          goto T187;}          goto T187;}
424          goto T183;          goto T183;
425  T183:;  T183:;
426          V67= reverse((V67));          V63= reverse((V63));
427          base[1]= cdr((V60));          base[1]= CMPcdr((V56));
428          base[2]= Ct;          base[2]= Ct;
429          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
430          (void) (*Lnk45)();          (void) (*Lnk45)();
431          if(vs_base<vs_top){          if(vs_base<vs_top){
432          V61= vs_base[0];          V57= vs_base[0];
433          vs_base++;          vs_base++;
434          }else{          }else{
435          V61= Cnil;}          V57= Cnil;}
436          if(vs_base<vs_top){          if(vs_base<vs_top){
437          V62= vs_base[0];          V58= vs_base[0];
438          vs_base++;          vs_base++;
439          }else{          }else{
440          V62= Cnil;}          V58= Cnil;}
441          if(vs_base<vs_top){          if(vs_base<vs_top){
442          V63= vs_base[0];          V59= vs_base[0];
443          vs_base++;          vs_base++;
444          }else{          }else{
445          V63= Cnil;}          V59= Cnil;}
446          if(vs_base<vs_top){          if(vs_base<vs_top){
447          V64= vs_base[0];          V60= vs_base[0];
448          vs_base++;          vs_base++;
449          }else{          }else{
450          V64= Cnil;}          V60= Cnil;}
451          if(vs_base<vs_top){          if(vs_base<vs_top){
452          V65= vs_base[0];          V61= vs_base[0];
453          }else{          }else{
454          V65= Cnil;}          V61= Cnil;}
455          vs_top=sup;          vs_top=sup;
456          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[7],(VV[7]->s.s_dbind));
457          (void)((*(LnkLI46))((V62)));          (void)((*(LnkLI46))((V58)));
458          (void)((*(LnkLI47))(Cnil,(V63),(V64)));          (void)((*(LnkLI47))(Cnil,(V59),(V60)));
459          V61= (*(LnkLI48))((V65),(V61));          V57= (*(LnkLI48))((V61),(V57));
460          bds_unwind1;          bds_unwind1;
461          base[1]= cadr((V61));          base[1]= CMPcadr((V57));
462          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
463          (void) (*Lnk49)();          (void) (*Lnk49)();
464          vs_top=sup;          vs_top=sup;
465          V66= vs_base[0];          V62= vs_base[0];
466          goto T231;          goto T231;
467  T231:;  T231:;
468          V71= Cnil;          V67= Cnil;
469          {register object V79;          {register object V75;
470          register object V80;          register object V76;
471          V79= (V67);          V75= (V63);
472          V80= car((V79));          V76= CMPcar((V75));
473          goto T239;          goto T239;
474  T239:;  T239:;
475          if(!(endp_prop((V79)))){          if(!(((V75))==Cnil)){
476          goto T240;}          goto T240;}
477          goto T235;          goto T235;
478          goto T240;          goto T240;
479  T240:;  T240:;
480          if((structure_ref(car((V80)),VV[0],1))==Cnil){          if((STREF(object,CMPcar((V76)),4))==Cnil){
481          goto T244;}          goto T244;}
482          if((cadr((V80)))!=Cnil){          if((CMPcadr((V76)))!=Cnil){
483          goto T244;}          goto T244;}
484          V71= Ct;          V67= Ct;
485          if(type_of(cdr(V80))!=t_cons)FEwrong_type_argument(Scons,cdr(V80));          (CMPcdr(V76))->c.c_car = Ct;
486          (cdr(V80))->c.c_car = Ct;          (void)(CMPcdr(V76));
487          (void)(cdr(V80));          base[2]= make_cons(VV[11],(VV[9]->s.s_dbind));
488          base[2]= make_cons(VV[11],symbol_value(VV[9]));          base[3]= make_cons(VV[11],(VV[10]->s.s_dbind));
489          base[3]= make_cons(VV[11],symbol_value(VV[10]));          base[4]= make_cons(VV[11],(VV[7]->s.s_dbind));
         base[4]= make_cons(VV[11],symbol_value(VV[7]));  
490          bds_bind(VV[9],base[2]);          bds_bind(VV[9],base[2]);
491          bds_bind(VV[10],base[3]);          bds_bind(VV[10],base[3]);
492          bds_bind(VV[7],base[4]);          bds_bind(VV[7],base[4]);
493          {object V83;          {object V79;
494          V84= cadddr((V80));          V79= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadddr((V76)),STREF(object,CMPcar((V76)),0)));
495          V85= structure_ref(car((V80)),VV[0],0);          (void)((*(LnkLI51))((V62),CMPcadr((V79))));
496          V83= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V84,/* INLINE-ARGS */V85));          {object V80;
497          (void)((*(LnkLI51))((V66),cadr((V83))));          V80= list(2,CMPcar((V76)),(V79));
498          {object V86;          V64= make_cons((V80),(V64));
         V86= list(2,car((V80)),(V83));  
         V68= make_cons((V86),(V68));  
499          bds_unwind1;          bds_unwind1;
500          bds_unwind1;          bds_unwind1;
501          bds_unwind1;}}          bds_unwind1;}}
502          goto T244;          goto T244;
503  T244:;  T244:;
504          V79= cdr((V79));          V75= CMPcdr((V75));
505          V80= car((V79));          V76= CMPcar((V75));
506          goto T239;}          goto T239;}
507          goto T235;          goto T235;
508  T235:;  T235:;
509          if(((V71))!=Cnil){          if(((V67))!=Cnil){
510          goto T232;}          goto T232;}
511          goto T229;          goto T229;
512          goto T232;          goto T232;
# Line 520  T232:; Line 516  T232:;
516  T229:;  T229:;
517          goto T270;          goto T270;
518  T270:;  T270:;
519          V71= Cnil;          V67= Cnil;
520          {register object V87;          {register object V81;
521          register object V88;          register object V82;
522          V87= (V67);          V81= (V63);
523          V88= car((V87));          V82= CMPcar((V81));
524          goto T278;          goto T278;
525  T278:;  T278:;
526          if(!(endp_prop((V87)))){          if(!(((V81))==Cnil)){
527          goto T279;}          goto T279;}
528          goto T274;          goto T274;
529          goto T279;          goto T279;
530  T279:;  T279:;
531          if((structure_ref(car((V88)),VV[0],2))==Cnil){          if((STREF(object,CMPcar((V82)),8))==Cnil){
532          goto T283;}          goto T283;}
533          if((caddr((V88)))!=Cnil){          if((CMPcaddr((V82)))!=Cnil){
534          goto T283;}          goto T283;}
535          V71= Ct;          V67= Ct;
536          if(type_of(cddr(V88))!=t_cons)FEwrong_type_argument(Scons,cddr(V88));          (CMPcddr(V82))->c.c_car = Ct;
537          (cddr(V88))->c.c_car = Ct;          (void)(CMPcddr(V82));
538          (void)(cddr(V88));          base[2]= make_cons(VV[8],(VV[7]->s.s_dbind));
         base[2]= make_cons(VV[8],symbol_value(VV[7]));  
539          base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));          base[3]= make_cons(VV[8],(VV[2]->s.s_dbind));
540          base[4]= make_cons(VV[8],symbol_value(VV[9]));          base[4]= make_cons(VV[8],(VV[9]->s.s_dbind));
541          base[5]= make_cons(VV[8],symbol_value(VV[10]));          base[5]= make_cons(VV[8],(VV[10]->s.s_dbind));
542          bds_bind(VV[7],base[2]);          bds_bind(VV[7],base[2]);
543          bds_bind(VV[2],base[3]);          bds_bind(VV[2],base[3]);
544          bds_bind(VV[9],base[4]);          bds_bind(VV[9],base[4]);
545          bds_bind(VV[10],base[5]);          bds_bind(VV[10],base[5]);
546          {object V91;          {object V85;
547          V92= cadddr((V88));          V85= (VFUN_NARGS=2,(*(LnkLI50))(CMPcadddr((V82)),STREF(object,CMPcar((V82)),0)));
548          V93= structure_ref(car((V88)),VV[0],0);          (void)((*(LnkLI51))((V62),CMPcadr((V85))));
549          V91= (VFUN_NARGS=2,(*(LnkLI50))(/* INLINE-ARGS */V92,/* INLINE-ARGS */V93));          {object V86;
550          (void)((*(LnkLI51))((V66),cadr((V91))));          V86= list(2,CMPcar((V82)),(V85));
551          {object V94;          V65= make_cons((V86),(V65));
         V94= list(2,car((V88)),(V91));  
         V69= make_cons((V94),(V69));  
552          bds_unwind1;          bds_unwind1;
553          bds_unwind1;          bds_unwind1;
554          bds_unwind1;          bds_unwind1;
555          bds_unwind1;}}          bds_unwind1;}}
556          goto T283;          goto T283;
557  T283:;  T283:;
558          V87= cdr((V87));          V81= CMPcdr((V81));
559          V88= car((V87));          V82= CMPcar((V81));
560          goto T278;}          goto T278;}
561          goto T274;          goto T274;
562  T274:;  T274:;
563          if(((V71))!=Cnil){          if(((V67))!=Cnil){
564          goto T271;}          goto T271;}
565          goto T268;          goto T268;
566          goto T271;          goto T271;
# Line 575  T271:; Line 568  T271:;
568          goto T270;          goto T270;
569          goto T268;          goto T268;
570  T268:;  T268:;
571          {object V95;          {object V87;
572          object V96;          object V88;
573          V95= (V67);          V87= (V63);
574          V96= car((V95));          V88= CMPcar((V87));
575          goto T312;          goto T312;
576  T312:;  T312:;
577          if(!(endp_prop((V95)))){          if(!(((V87))==Cnil)){
578          goto T313;}          goto T313;}
579          goto T308;          goto T308;
580          goto T313;          goto T313;
581  T313:;  T313:;
582          if((structure_ref(car((V96)),VV[0],1))!=Cnil){          if((STREF(object,CMPcar((V88)),4))!=Cnil){
583          goto T318;}          goto T318;}
584          if((structure_ref(car((V96)),VV[0],2))==Cnil){          if((STREF(object,CMPcar((V88)),8))==Cnil){
585          goto T317;}          goto T317;}
586          goto T318;          goto T318;
587  T318:;  T318:;
588          V97= car((V96));          V89= CMPcar((V88));
589          setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));          (VV[12]->s.s_dbind)= number_plus((VV[12]->s.s_dbind),small_fixnum(1));
590          (void)(structure_set(/* INLINE-ARGS */V97,VV[0],3,symbol_value(VV[12])));          V90= Ct;
591            STSET(object,/* INLINE-ARGS */V89,12, (VV[12]->s.s_dbind));
592            (void)((VV[12]->s.s_dbind));
593          goto T317;          goto T317;
594  T317:;  T317:;
595          V95= cdr((V95));          V87= CMPcdr((V87));
596          V96= car((V95));          V88= CMPcar((V87));
597          goto T312;}          goto T312;}
598          goto T308;          goto T308;
599  T308:;  T308:;
600          if(((V68))!=Cnil){          if(((V64))!=Cnil){
601          goto T328;}          goto T328;}
602          if(((V69))==Cnil){          if(((V65))==Cnil){
603          goto T329;}          goto T329;}
604          goto T328;          goto T328;
605  T328:;  T328:;
606          V98= reverse((V68));          V91= reverse((V64));
607          {object V99 = list(5,VV[21],(V66),/* INLINE-ARGS */V98,reverse((V69)),(V61));          {object V92 = list(5,VV[21],(V62),/* INLINE-ARGS */V91,reverse((V65)),(V57));
608          bds_unwind1;          bds_unwind1;
609          VMR4(V99)}          VMR4(V92)}
610          goto T329;          goto T329;
611  T329:;  T329:;
612          {object V100 = (V61);          {object V93 = (V57);
613          bds_unwind1;          bds_unwind1;
614          VMR4(V100)}}          VMR4(V93)}}
615          base[0]=base[0];          base[0]=base[0];
616          return Cnil;          return Cnil;
617  }  }
# Line 625  T329:; Line 620  T329:;
620  static void L5()  static void L5()
621  {register object *base=vs_base;  {register object *base=vs_base;
622          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
623          vs_reserve(VM5);          vs_check;
624          bds_check;          bds_check;
625          {object V101;          {object V94;
626          object V102;          object V95;
627          object V103;          object V96;
628          check_arg(3);          V94=(base[0]);
629          V101=(base[0]);          V95=(base[1]);
630          V102=(base[1]);          V96=(base[2]);
         V103=(base[2]);  
631          vs_top=sup;          vs_top=sup;
632          goto TTL;          goto TTL;
633  TTL:;  TTL:;
634          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],(VV[13]->s.s_dbind));
635          bds_bind(VV[14],symbol_value(VV[14]));          bds_bind(VV[14],(VV[14]->s.s_dbind));
636          {register object V104;          {register object V97;
637          object V105;          object V98;
638          V104= (V102);          V97= (V95);
639          V105= car((V104));          V98= CMPcar((V97));
640          goto T337;          goto T337;
641  T337:;  T337:;
642          if(!(endp_prop((V104)))){          if(!(((V97))==Cnil)){
643          goto T338;}          goto T338;}
644          goto T333;          goto T333;
645          goto T338;          goto T338;
646  T338:;  T338:;
647          {register object V106;          {register object V99;
648          V106= car((V105));          V99= CMPcar((V98));
649          V107= (*(LnkLI52))();          V100= (*(LnkLI52))();
650          (void)(structure_set((V106),VV[0],1,/* INLINE-ARGS */V107));          V101= Ct;
651            STSET(object,(V99),4, /* INLINE-ARGS */V100);
652            (void)(/* INLINE-ARGS */V100);
653          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
654          V108= structure_ref((V106),VV[0],1);          (void)((*(LnkLI53))(STREF(object,(V99),4)));
         (void)((*(LnkLI53))(/* INLINE-ARGS */V108));  
655          princ_str("=MMcons(Cnil,",VV[20]);          princ_str("=MMcons(Cnil,",VV[20]);
656          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
657          princ_str(");",VV[20]);          princ_str(");",VV[20]);
658          V109= structure_ref((V106),VV[0],1);          (void)((*(LnkLI56))(STREF(object,(V99),4)));
659          (void)((*(LnkLI56))(/* INLINE-ARGS */V109));          V102= (*(LnkLI57))();
660          V110= (*(LnkLI57))();          V103= Ct;
661          (void)(structure_set((V106),VV[0],2,/* INLINE-ARGS */V110));}          STSET(object,(V99),8, /* INLINE-ARGS */V102);
662          V104= cdr((V104));          (void)(/* INLINE-ARGS */V102);}
663          V105= car((V104));          V97= CMPcdr((V97));
664            V98= CMPcar((V97));
665          goto T337;}          goto T337;}
666          goto T333;          goto T333;
667  T333:;  T333:;
668          {register object V111;          {register object V104;
669          object V112;          object V105;
670          V111= (V101);          V104= (V94);
671          V112= car((V111));          V105= CMPcar((V104));
672          goto T362;          goto T362;
673  T362:;  T362:;
674          if(!(endp_prop((V111)))){          if(!(((V104))==Cnil)){
675          goto T363;}          goto T363;}
676          goto T358;          goto T358;
677          goto T363;          goto T363;
678  T363:;  T363:;
679          (void)(structure_set(car((V112)),VV[0],4,symbol_value(VV[16])));          V106= CMPcar((V105));
680          {object V113;{object V114;          V107= Ct;
681          V114= (VV[14]->s.s_dbind);{object V115;          STSET(object,/* INLINE-ARGS */V106,16, (VV[16]->s.s_dbind));
682          V115= symbol_value(VV[15]);          (void)((VV[16]->s.s_dbind));
683          V113= list(5,Cnil,V114,V115,car((V112)),cadr((V112)));}}          {object V108;{object V109;
684          setq(VV[17],make_cons((V113),symbol_value(VV[17])));}          V109= (VV[14]->s.s_dbind);{object V110;
685          V111= cdr((V111));          V110= (VV[15]->s.s_dbind);
686          V112= car((V111));          V108= list(5,Cnil,V109,V110,CMPcar((V105)),CMPcadr((V105)));}}
687            (VV[17]->s.s_dbind)= make_cons((V108),(VV[17]->s.s_dbind));}
688            V104= CMPcdr((V104));
689            V105= CMPcar((V104));
690          goto T362;}          goto T362;}
691          goto T358;          goto T358;
692  T358:;  T358:;
693          {register object V116;          {register object V111;
694          register object V117;          register object V112;
695          V116= (V102);          V111= (V95);
696          V117= car((V116));          V112= CMPcar((V111));
697          goto T380;          goto T380;
698  T380:;  T380:;
699          if(!(endp_prop((V116)))){          if(!(((V111))==Cnil)){
700          goto T381;}          goto T381;}
701          goto T376;          goto T376;
702          goto T381;          goto T381;
703  T381:;  T381:;
704          {object V118;          {object V113;
705          if(((VV[14]->s.s_dbind))!=Cnil){          if(((VV[14]->s.s_dbind))!=Cnil){
706          goto T389;}          goto T389;}
707          V119= Cnil;          V114= Cnil;
708          goto T387;          goto T387;
709          goto T389;          goto T389;
710  T389:;  T389:;
711          V119= make_cons(small_fixnum(0),small_fixnum(0));          V114= make_cons(small_fixnum(0),small_fixnum(0));
712          goto T387;          goto T387;
713  T387:;{object V120;  T387:;{object V115;
714          V120= symbol_value(VV[15]);          V115= (VV[15]->s.s_dbind);
715          V118= list(5,VV[18],V119,V120,car((V117)),cadr((V117)));}          V113= list(5,VV[18],V114,V115,CMPcar((V112)),CMPcadr((V112)));}
716          setq(VV[17],make_cons((V118),symbol_value(VV[17])));}          (VV[17]->s.s_dbind)= make_cons((V113),(VV[17]->s.s_dbind));}
717          {object V121;          {object V116;
718          V121= car((V117));          V116= CMPcar((V112));
719          setq(VV[19],make_cons((V121),symbol_value(VV[19])));}          (VV[19]->s.s_dbind)= make_cons((V116),(VV[19]->s.s_dbind));}
720          princ_str("\n   ",VV[20]);          princ_str("\n   ",VV[20]);
721          V122= structure_ref(car((V117)),VV[0],1);          (void)((*(LnkLI59))(STREF(object,CMPcar((V112)),4)));
         (void)((*(LnkLI59))(/* INLINE-ARGS */V122));  
722          princ_str("=make_cclosure_new(LC",VV[20]);          princ_str("=make_cclosure_new(LC",VV[20]);
723          V123= structure_ref(car((V117)),VV[0],3);          (void)((*(LnkLI54))(STREF(object,CMPcar((V112)),12)));
         (void)((*(LnkLI54))(/* INLINE-ARGS */V123));  
724          princ_str(",Cnil,",VV[20]);          princ_str(",Cnil,",VV[20]);
725          (void)((VFUN_NARGS=0,(*(LnkLI55))()));          (void)((VFUN_NARGS=0,(*(LnkLI55))()));
726          princ_str(",Cdata);",VV[20]);          princ_str(",Cdata);",VV[20]);
727          V116= cdr((V116));          V111= CMPcdr((V111));
728          V117= car((V116));          V112= CMPcar((V111));
729          goto T380;}          goto T380;}
730          goto T376;          goto T376;
731  T376:;  T376:;
732          base[5]= (V103);          base[5]= (V96);
733          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
734          (void) (*Lnk58)();          (void) (*Lnk58)();
735          bds_unwind1;          bds_unwind1;
# Line 742  T376:; Line 739  T376:;
739  }  }
740  /*      local entry for function C1MACROLET     */  /*      local entry for function C1MACROLET     */
741    
742  static object LI6(V125)  static object LI6(V118)
743    
744  object V125;  object V118;
745  {        VMB6 VMS6 VMV6  {        VMB6 VMS6 VMV6
746          bds_check;          bds_check;
747          goto TTL;          goto TTL;
748  TTL:;  TTL:;
749          {object V126;          {object V119;
750          object V127;          object V120;
751          object V128;          object V121;
752          object V129;          object V122;
753          object V130;          object V123;
754          V126= Cnil;          V119= Cnil;
755          V127= Cnil;          V120= Cnil;
756          V128= Cnil;          V121= Cnil;
757          V129= Cnil;          V122= Cnil;
758          V130= Cnil;          V123= Cnil;
759          bds_bind(VV[2],symbol_value(VV[2]));          bds_bind(VV[2],(VV[2]->s.s_dbind));
760          bds_bind(VV[7],symbol_value(VV[7]));          bds_bind(VV[7],(VV[7]->s.s_dbind));
761          if(!(endp_prop((V125)))){          if(!(((V118))==Cnil)){
762          goto T415;}          goto T415;}
763          (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI42))(VV[24],small_fixnum(1),small_fixnum(0)));
764          goto T415;          goto T415;
765  T415:;  T415:;
766          {register object V131;          {register object V124;
767          register object V132;          register object V125;
768          V131= car((V125));          V124= CMPcar((V118));
769          V132= car((V131));          V125= CMPcar((V124));
770          goto T422;          goto T422;
771  T422:;  T422:;
772          if(!(endp_prop((V131)))){          if(!(((V124))==Cnil)){
773          goto T423;}          goto T423;}
774          goto T418;          goto T418;
775          goto T423;          goto T423;
776  T423:;  T423:;
777          if(endp_prop((V132))){          if(((V125))==Cnil){
778          goto T428;}          goto T428;}
779          if(!(type_of(car((V132)))==t_symbol)){          if(!(type_of(CMPcar((V125)))==t_symbol)){
780          goto T428;}          goto T428;}
781          if(!(endp_prop(cdr((V132))))){          if(!((CMPcdr((V125)))==Cnil)){
782          goto T427;}          goto T427;}
783          goto T428;          goto T428;
784  T428:;  T428:;
785          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V132))));          (void)((VFUN_NARGS=2,(*(LnkLI43))(VV[25],(V125))));
786          goto T427;          goto T427;
787  T427:;  T427:;
788          {register object V133;          {register object V126;
789          V134= car((V132));          V127= CMPcar((V125));
790          V135= (*(LnkLI60))(car((V132)),cadr((V132)),cddr((V132)));          V128= (*(LnkLI60))(CMPcar((V125)),CMPcadr((V125)),CMPcddr((V125)));
791          V133= list(2,/* INLINE-ARGS */V134,caddr(/* INLINE-ARGS */V135));          V126= list(2,/* INLINE-ARGS */V127,CMPcaddr(/* INLINE-ARGS */V128));
792          (VV[2]->s.s_dbind)= make_cons((V133),(VV[2]->s.s_dbind));}          (VV[2]->s.s_dbind)= make_cons((V126),(VV[2]->s.s_dbind));}
793          V131= cdr((V131));          V124= CMPcdr((V124));
794          V132= car((V131));          V125= CMPcar((V124));
795          goto T422;}          goto T422;}
796          goto T418;          goto T418;
797  T418:;  T418:;
798          base[2]= cdr((V125));          base[2]= CMPcdr((V118));
799          base[3]= Ct;          base[3]= Ct;
800          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
801          (void) (*Lnk45)();          (void) (*Lnk45)();
802          if(vs_base<vs_top){          if(vs_base<vs_top){
803          V126= vs_base[0];          V119= vs_base[0];
804          vs_base++;          vs_base++;
805          }else{          }else{
806          V126= Cnil;}          V119= Cnil;}
807          if(vs_base<vs_top){          if(vs_base<vs_top){
808          V127= vs_base[0];          V120= vs_base[0];
809          vs_base++;          vs_base++;
810          }else{          }else{
811          V127= Cnil;}          V120= Cnil;}
812          if(vs_base<vs_top){          if(vs_base<vs_top){
813          V128= vs_base[0];          V121= vs_base[0];
814          vs_base++;          vs_base++;
815          }else{          }else{
816          V128= Cnil;}          V121= Cnil;}
817          if(vs_base<vs_top){          if(vs_base<vs_top){
818          V129= vs_base[0];          V122= vs_base[0];
819          vs_base++;          vs_base++;
820          }else{          }else{
821          V129= Cnil;}          V122= Cnil;}
822          if(vs_base<vs_top){          if(vs_base<vs_top){
823          V130= vs_base[0];          V123= vs_base[0];
824          }else{          }else{
825          V130= Cnil;}          V123= Cnil;}
826          vs_top=sup;          vs_top=sup;
827          (void)((*(LnkLI46))((V127)));          (void)((*(LnkLI46))((V120)));
828          (void)((*(LnkLI47))(Cnil,(V128),(V129)));          (void)((*(LnkLI47))(Cnil,(V121),(V122)));
829          {object V136 = (*(LnkLI48))((V130),(V126));          {object V129 = (*(LnkLI48))((V123),(V119));
830          bds_unwind1;          bds_unwind1;
831          bds_unwind1;          bds_unwind1;
832          VMR6(V136)}}          VMR6(V129)}}
833          base[0]=base[0];          base[0]=base[0];
834          return Cnil;          return Cnil;
835  }  }
836  /*      local entry for function C1LOCAL-FUN    */  /*      local entry for function C1LOCAL-FUN    */
837    
838  static object LI7(V138)  static object LI7(V131)
839    
840  register object V138;  register object V131;
841  {        VMB7 VMS7 VMV7  {        VMB7 VMS7 VMV7
842          goto TTL;          goto TTL;
843  TTL:;  TTL:;
844          {register object V139;          {register object V132;
845          V139= Cnil;          V132= Cnil;
846          {register object V140;          {register object V133;
847          register object V141;          register object V134;
848          V140= symbol_value(VV[2]);          V133= (VV[2]->s.s_dbind);
849          V141= car((V140));          V134= CMPcar((V133));
850          goto T452;          goto T452;
851  T452:;  T452:;
852          if(!(endp_prop((V140)))){          if(!(((V133))==Cnil)){
853          goto T453;}          goto T453;}
854          {object V142 = Cnil;          {object V135 = Cnil;
855          VMR7(V142)}          VMR7(V135)}
856          goto T453;          goto T453;
857  T453:;  T453:;
858          if(!(((V141))==(VV[8]))){          if(!(((V134))==(VV[8]))){
859          goto T459;}          goto T459;}
860          V139= Ct;          V132= Ct;
861          goto T457;          goto T457;
862          goto T459;          goto T459;
863  T459:;  T459:;
864          if(!(type_of((V141))==t_cons)){          if(!(type_of((V134))==t_cons)){
865          goto T463;}          goto T463;}
866          if(!((car((V141)))==((V138)))){          if(!((CMPcar((V134)))==((V131)))){
867          goto T457;}          goto T457;}
868          {object V143 = cadr((V141));          {object V136 = CMPcadr((V134));
869          VMR7(V143)}          VMR7(V136)}
870          goto T463;          goto T463;
871  T463:;  T463:;
872          V144= structure_ref((V141),VV[0],0);          if(!((STREF(object,(V134),0))==((V131)))){
         if(!((/* INLINE-ARGS */V144)==((V138)))){  
873          goto T457;}          goto T457;}
874          if(((V139))==Cnil){          if(((V132))==Cnil){
875          goto T471;}          goto T471;}
876          (void)(structure_set((V141),VV[0],2,Ct));          V137= Ct;
877            STSET(object,(V134),8, Ct);
878            (void)(Ct);
879          goto T469;          goto T469;
880          goto T471;          goto T471;
881  T471:;  T471:;
882          (void)(structure_set((V141),VV[0],1,Ct));          V138= Ct;
883            STSET(object,(V134),4, Ct);
884            (void)(Ct);
885          goto T469;          goto T469;
886  T469:;  T469:;
887          {object V145 = list(4,VV[26],symbol_value(VV[27]),(V141),(V139));          {object V139 = list(4,VV[26],(VV[27]->s.s_dbind),(V134),(V132));
888          VMR7(V145)}          VMR7(V139)}
889          goto T457;          goto T457;
890  T457:;  T457:;
891          V140= cdr((V140));          V133= CMPcdr((V133));
892          V141= car((V140));          V134= CMPcar((V133));
893          goto T452;}}          goto T452;}}
894          base[0]=base[0];          base[0]=base[0];
895          return Cnil;          return Cnil;
896  }  }
897  /*      local entry for function SCH-LOCAL-FUN  */  /*      local entry for function SCH-LOCAL-FUN  */
898    
899  static object LI8(V147)  static object LI8(V141)
900    
901  register object V147;  register object V141;
902  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
903          goto TTL;          goto TTL;
904  TTL:;  TTL:;
905          {register object V148;          {register object V142;
906          register object V149;          register object V143;
907          V148= symbol_value(VV[2]);          V142= (VV[2]->s.s_dbind);
908          V149= car((V148));          V143= CMPcar((V142));
909          goto T481;          goto T481;
910  T481:;  T481:;
911          if(!(endp_prop((V148)))){          if(!(((V142))==Cnil)){
912          goto T482;}          goto T482;}
913          {object V150 = (V147);          {object V144 = (V141);
914          VMR8(V150)}          VMR8(V144)}
915          goto T482;          goto T482;
916  T482:;  T482:;
917          if(((V149))==(VV[8])){          if(((V143))==(VV[8])){
918          goto T486;}          goto T486;}
919          if(type_of((V149))==t_cons){          if(type_of((V143))==t_cons){
920          goto T486;}          goto T486;}
921          V151= structure_ref((V149),VV[0],0);          if(!((STREF(object,(V143),0))==((V141)))){
         if(!((/* INLINE-ARGS */V151)==((V147)))){  
922          goto T486;}          goto T486;}
923          {object V152 = (V149);          {object V145 = (V143);
924          VMR8(V152)}          VMR8(V145)}
925          goto T486;          goto T486;
926  T486:;  T486:;
927          V148= cdr((V148));          V142= CMPcdr((V142));
928          V149= car((V148));          V143= CMPcar((V142));
929          goto T481;}          goto T481;}
930          base[0]=base[0];          base[0]=base[0];
931          return Cnil;          return Cnil;
932  }  }
933  /*      local entry for function C1LOCAL-CLOSURE        */  /*      local entry for function C1LOCAL-CLOSURE        */
934    
935  static object LI9(V154)  static object LI9(V147)
936    
937  register object V154;  register object V147;
938  {        VMB9 VMS9 VMV9  {        VMB9 VMS9 VMV9
939          goto TTL;          goto TTL;
940  TTL:;  TTL:;
941          {register object V155;          {register object V148;
942          V155= Cnil;          V148= Cnil;
943          {register object V156;          {register object V149;
944          register object V157;          register object V150;
945          V156= symbol_value(VV[2]);          V149= (VV[2]->s.s_dbind);
946          V157= car((V156));          V150= CMPcar((V149));
947          goto T502;          goto T502;
948  T502:;  T502:;
949          if(!(endp_prop((V156)))){          if(!(((V149))==Cnil)){
950          goto T503;}          goto T503;}
951          {object V158 = Cnil;          {object V151 = Cnil;
952          VMR9(V158)}          VMR9(V151)}
953          goto T503;          goto T503;
954  T503:;  T503:;
955          if(!(((V157))==(VV[8]))){          if(!(((V150))==(VV[8]))){
956          goto T509;}          goto T509;}
957          V155= Ct;          V148= Ct;
958          goto T507;          goto T507;
959          goto T509;          goto T509;
960  T509:;  T509:;
961          if(!(type_of((V157))==t_cons)){          if(!(type_of((V150))==t_cons)){
962          goto T513;}          goto T513;}
963          if(!((car((V157)))==((V154)))){          if(!((CMPcar((V150)))==((V147)))){
964          goto T507;}          goto T507;}
965          {object V159 = cadr((V157));          {object V152 = CMPcadr((V150));
966          VMR9(V159)}          VMR9(V152)}
967          goto T513;          goto T513;
968  T513:;  T513:;
969          V160= structure_ref((V157),VV[0],0);          if(!((STREF(object,(V150),0))==((V147)))){
         if(!((/* INLINE-ARGS */V160)==((V154)))){  
970          goto T507;}          goto T507;}
971          (void)(structure_set((V157),VV[0],2,Ct));          V153= Ct;
972          {object V161 = list(4,VV[26],symbol_value(VV[27]),(V157),(V155));          STSET(object,(V150),8, Ct);
973          VMR9(V161)}          (void)(Ct);
974            {object V154 = list(4,VV[26],(VV[27]->s.s_dbind),(V150),(V148));
975            VMR9(V154)}
976          goto T507;          goto T507;
977  T507:;  T507:;
978          V156= cdr((V156));          V149= CMPcdr((V149));
979          V157= car((V156));          V150= CMPcar((V149));
980          goto T502;}}          goto T502;}}
981          base[0]=base[0];          base[0]=base[0];
982          return Cnil;          return Cnil;
983  }  }
984  /*      local entry for function C2CALL-LOCAL   */  /*      local entry for function C2CALL-LOCAL   */
985    
986  static object LI10(V164,V165)  static object LI10(V157,V158)
987    
988  register object V164;register object V165;  register object V157;register object V158;
989  {        VMB10 VMS10 VMV10  {        VMB10 VMS10 VMV10
990          bds_check;          bds_check;
991          goto TTL;          goto TTL;
992  TTL:;  TTL:;
993          bds_bind(VV[13],symbol_value(VV[13]));          bds_bind(VV[13],(VV[13]->s.s_dbind));
994          if((cadr((V164)))==Cnil){          if((CMPcadr((V157)))==Cnil){
995          goto T527;}          goto T527;}
996          (void)((*(LnkLI61))((V165)));          (void)((*(LnkLI61))((V158)));
997          princ_str("\n   cclosure_call(",VV[20]);          princ_str("\n   cclosure_call(",VV[20]);
998          V166= structure_ref(car((V164)),VV[0],2);          (void)((*(LnkLI62))(STREF(object,CMPcar((V157)),8)));
         (void)((*(LnkLI62))(/* INLINE-ARGS */V166));  
999          princ_str(");",VV[20]);          princ_str(");",VV[20]);
1000          goto T525;          goto T525;
1001          goto T527;          goto T527;
1002  T527:;  T527:;
1003          if(!(type_of((V165))==t_cons||((V165))==Cnil)){          if(!(type_of((V158))==t_cons||((V158))==Cnil)){
1004          goto T535;}          goto T535;}
1005          if((symbol_value(VV[28]))==Cnil){          if(((VV[28]->s.s_dbind))==Cnil){
1006          goto T535;}          goto T535;}
1007          if((symbol_value(VV[29]))==Cnil){          if(((VV[29]->s.s_dbind))==Cnil){
1008          goto T535;}          goto T535;}
1009          if(!((car(symbol_value(VV[29])))==(car((V164))))){          if(!((CMPcar((VV[29]->s.s_dbind)))==(CMPcar((V157))))){
1010          goto T535;}          goto T535;}
1011          if(!((symbol_value(VV[30]))==(VV[31]))){          if(!(((VV[30]->s.s_dbind))==(VV[31]))){
1012          goto T535;}          goto T535;}
1013          if(((*(LnkLI63))())==Cnil){          if(((*(LnkLI63))())==Cnil){
1014          goto T535;}          goto T535;}
1015          if(!(((long)length((V165)))==((long)length(cdr(symbol_value(VV[29])))))){          if(!(((long)length((V158)))==((long)length(CMPcdr((VV[29]->s.s_dbind)))))){
1016          goto T535;}          goto T535;}
1017          bds_bind(VV[32],VV[33]);          bds_bind(VV[32],VV[33]);
1018          setq(VV[34],number_plus(symbol_value(VV[34]),small_fixnum(1)));          (VV[34]->s.s_dbind)= number_plus((VV[34]->s.s_dbind),small_fixnum(1));
1019          bds_bind(VV[30],make_cons(symbol_value(VV[34]),Cnil));          bds_bind(VV[30],make_cons((VV[34]->s.s_dbind),Cnil));
1020          bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),symbol_value(VV[35])));          bds_bind(VV[35],make_cons((VV[30]->s.s_dbind),(VV[35]->s.s_dbind)));
1021          {object V168;          {object V160;
1022          object V169= cdr(symbol_value(VV[29]));          object V161= CMPcdr((VV[29]->s.s_dbind));
1023          if(endp(V169)){          if(V161==Cnil){
1024          V167= Cnil;          V159= Cnil;
1025          goto T554;}          goto T554;}
1026          base[4]=V168=MMcons(Cnil,Cnil);          base[4]=V160=MMcons(Cnil,Cnil);
1027          goto T555;          goto T555;
1028  T555:;  T555:;
1029          (V168->c.c_car)= list(2,(V169->c.c_car),Cnil);          (V160->c.c_car)= list(2,(V161->c.c_car),Cnil);
1030          V169=MMcdr(V169);          if((V161=MMcdr(V161))==Cnil){
1031          if(endp(V169)){          V159= base[4];
         V167= base[4];  
1032          goto T554;}          goto T554;}
1033          V168=MMcdr(V168)=MMcons(Cnil,Cnil);          V160=MMcdr(V160)=MMcons(Cnil,Cnil);
1034          goto T555;}          goto T555;}
1035          goto T554;          goto T554;
1036  T554:;  T554:;
1037          (void)((*(LnkLI64))(V167,(V165)));          (void)((*(LnkLI64))(V159,(V158)));
1038          if((cdr((VV[30]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[30]->s.s_dbind)))==Cnil){
1039          bds_unwind1;          bds_unwind1;
1040          bds_unwind1;          bds_unwind1;
1041          bds_unwind1;          bds_unwind1;
1042          goto T549;}          goto T549;}
1043          princ_str("\n   goto T",VV[20]);          princ_str("\n   goto T",VV[20]);
1044          (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));          (void)((*(LnkLI54))(CMPcar((VV[30]->s.s_dbind))));
1045          princ_char(59,VV[20]);          princ_char(59,VV[20]);
1046          princ_str("\nT",VV[20]);          princ_str("\nT",VV[20]);
1047          (void)((*(LnkLI54))(car((VV[30]->s.s_dbind))));          (void)((*(LnkLI54))(CMPcar((VV[30]->s.s_dbind))));
1048          princ_str(":;",VV[20]);          princ_str(":;",VV[20]);
1049          bds_unwind1;          bds_unwind1;
1050          bds_unwind1;          bds_unwind1;
# Line 1055  T554:; Line 1053  T554:;
1053  T549:;  T549:;
1054          (void)((*(LnkLI65))(VV[36]));          (void)((*(LnkLI65))(VV[36]));
1055          princ_str("\n   goto TTL;",VV[20]);          princ_str("\n   goto TTL;",VV[20]);
1056          V171= structure_ref(car((V164)),VV[0],0);          (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],STREF(object,CMPcar((V157)),0))));
         (void)((VFUN_NARGS=2,(*(LnkLI66))(VV[37],/* INLINE-ARGS */V171)));  
1057          goto T525;          goto T525;
1058          goto T535;          goto T535;
1059  T535:;  T535:;
1060          (void)((*(LnkLI61))((V165)));          (void)((*(LnkLI61))((V158)));
1061          princ_str("\n   L",VV[20]);          princ_str("\n   L",VV[20]);
1062          V172= structure_ref(car((V164)),VV[0],3);          (void)((*(LnkLI54))(STREF(object,CMPcar((V157)),12)));
         (void)((*(LnkLI54))(/* INLINE-ARGS */V172));  
1063          princ_char(40,VV[20]);          princ_char(40,VV[20]);
1064          {register long V173;          {register long V163;
1065          register long V174;          register long V164;
1066          V173= fix(structure_ref(car((V164)),VV[0],4));          V163= fix(STREF(object,CMPcar((V157)),16));
1067          V174= 0;          V164= 0;
1068          goto T578;          goto T578;
1069  T578:;  T578:;
1070          if(!((V174)>=(V173))){          if(!((V164)>=(V163))){
1071          goto T579;}          goto T579;}
1072          goto T574;          goto T574;
1073          goto T579;          goto T579;
1074  T579:;  T579:;
1075          princ_str("base",VV[20]);          princ_str("base",VV[20]);
1076          V175 = make_fixnum(V174);          V165 = CMPmake_fixnum(V164);
1077          (void)((*(LnkLI54))(V175));          (void)((*(LnkLI54))(V165));
1078          princ_char(44,VV[20]);          princ_char(44,VV[20]);
1079          V174= (long)(V174)+1;          V164= (long)(V164)+1;
1080          goto T578;}          goto T578;}
1081          goto T574;          goto T574;
1082  T574:;  T574:;
1083          princ_str("base",VV[20]);          princ_str("base",VV[20]);
1084          V176= structure_ref(car((V164)),VV[0],4);          if(number_compare(STREF(object,CMPcar((V157)),16),(VV[16]->s.s_dbind))==0){
         if(number_compare(/* INLINE-ARGS */V176,symbol_value(VV[16]))==0){  
1085          goto T592;}          goto T592;}
1086          V177= structure_ref(car((V164)),VV[0],4);          (void)((*(LnkLI54))(STREF(object,CMPcar((V157)),16)));
         (void)((*(LnkLI54))(/* INLINE-ARGS */V177));  
1087          goto T592;          goto T592;
1088  T592:;  T592:;
1089          princ_str(");",VV[20]);          princ_str(");",VV[20]);
1090          setq(VV[38],Ct);          (VV[38]->s.s_dbind)= Ct;
1091          goto T525;          goto T525;
1092  T525:;  T525:;
1093          {object V178 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));          {object V166 = (VFUN_NARGS=1,(*(LnkLI67))(VV[39]));
1094          bds_unwind1;          bds_unwind1;
1095          VMR10(V178)}          VMR10(V166)}
1096          base[0]=base[0];          base[0]=base[0];
1097          return Cnil;          return Cnil;
1098  }  }

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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