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

Diff of /gcl/cmpnew/gcl_cmpmap.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:33 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:18 2003 UTC
# Line 86  TTL:; Line 86  TTL:;
86          object V26;          object V26;
87          V25= Cnil;          V25= Cnil;
88          V26= Cnil;          V26= Cnil;
89          if(endp_prop((V24))){          if(((V24))==Cnil){
90          goto T4;}          goto T4;}
91          if(!(endp_prop(cdr((V24))))){          if(!((CMPcdr((V24)))==Cnil)){
92          goto T3;}          goto T3;}
93          goto T4;          goto T4;
94  T4:;  T4:;
95          V27 = make_fixnum((long)length((V24)));          V27 = CMPmake_fixnum((long)length((V24)));
96          (void)((*(LnkLI24))(VV[3],small_fixnum(2),V27));          (void)((*(LnkLI24))(VV[3],small_fixnum(2),V27));
97          goto T3;          goto T3;
98  T3:;  T3:;
99          V25= (*(LnkLI25))(car((V24)));          V25= (*(LnkLI25))(CMPcar((V24)));
100          base[0]= cadr((V25));          base[0]= CMPcadr((V25));
101          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
102          (void) (*Lnk26)();          (void) (*Lnk26)();
103          vs_top=sup;          vs_top=sup;
104          V26= vs_base[0];          V26= vs_base[0];
105          {object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(cdr((V24)),(V26)));          {object V28 = list(5,(V22),(V26),(V25),(V23),(*(LnkLI27))(CMPcdr((V24)),(V26)));
106          VMR7(V28)}}          VMR7(V28)}}
107          base[0]=base[0];          base[0]=base[0];
108          return Cnil;          return Cnil;
# Line 116  object V32;object V33;register object V3 Line 116  object V32;object V33;register object V3
116          bds_check;          bds_check;
117          goto TTL;          goto TTL;
118  TTL:;  TTL:;
119          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],(VV[4]->s.s_dbind));
120          bds_bind(VV[5],small_fixnum(0));          bds_bind(VV[5],small_fixnum(0));
121          {object V35;          {object V35;
122          object V36;          object V36;
123          object V37;          object V37;
124          object V38;          object V38;
125          object V39;          object V39;
126          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          (VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1));
127          V35= make_cons(symbol_value(VV[6]),Ct);          V35= make_cons((VV[6]->s.s_dbind),Ct);
128          V36= list(2,VV[7],(*(LnkLI28))());          V36= list(2,VV[7],(*(LnkLI28))());
129          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
130          V37= list(2,VV[8],symbol_value(VV[9]));          V37= list(2,VV[8],(VV[9]->s.s_dbind));
131          {object V40;          {object V40;
132          object V41= (V34);          object V41= (V34);
133          if(endp(V41)){          if(V41==Cnil){
134          V38= Cnil;          V38= Cnil;
135          goto T18;}          goto T18;}
136          base[2]=V40=MMcons(Cnil,Cnil);          base[2]=V40=MMcons(Cnil,Cnil);
137          goto T19;          goto T19;
138  T19:;  T19:;
139          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
140          (V40->c.c_car)= list(2,VV[8],symbol_value(VV[9]));          (V40->c.c_car)= list(2,VV[8],(VV[9]->s.s_dbind));
141          V41=MMcdr(V41);          if((V41=MMcdr(V41))==Cnil){
         if(endp(V41)){  
142          V38= base[2];          V38= base[2];
143          goto T18;}          goto T18;}
144          V40=MMcdr(V40)=MMcons(Cnil,Cnil);          V40=MMcdr(V40)=MMcons(Cnil,Cnil);
# Line 148  T19:; Line 147  T19:;
147  T18:;  T18:;
148          V39= Cnil;          V39= Cnil;
149          V39= (*(LnkLI29))((V32));          V39= (*(LnkLI29))((V32));
150          base[2]= make_fixnum((long)length((V34)));          base[2]= CMPmake_fixnum((long)length((V34)));
151          base[3]= VV[10];          base[3]= VV[10];
152          base[4]= Ct;          base[4]= Ct;
153          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
# Line 163  T18:; Line 162  T18:;
162          {register object V45;          {register object V45;
163          object V46;          object V46;
164          V45= (V38);          V45= (V38);
165          V46= car((V45));          V46= CMPcar((V45));
166          goto T38;          goto T38;
167  T38:;  T38:;
168          if(!(endp_prop((V45)))){          if(!(((V45))==Cnil)){
169          goto T39;}          goto T39;}
170          goto T34;          goto T34;
171          goto T39;          goto T39;
# Line 174  T39:; Line 173  T39:;
173          princ_str("\n   object ",VV[11]);          princ_str("\n   object ",VV[11]);
174          (void)((*(LnkLI32))((V46)));          (void)((*(LnkLI32))((V46)));
175          princ_str("= ",VV[11]);          princ_str("= ",VV[11]);
176          (void)((*(LnkLI32))(car((V34))));          (void)((*(LnkLI32))(CMPcar((V34))));
177          princ_char(59,VV[11]);          princ_char(59,VV[11]);
178          {object V47;          {object V47;
179          V47= car((V34));          V47= CMPcar((V34));
180          V34= cdr((V34));}          V34= CMPcdr((V34));}
181          V45= cdr((V45));          V45= CMPcdr((V45));
182          V46= car((V45));          V46= CMPcar((V45));
183          goto T38;}          goto T38;}
184          goto T34;          goto T34;
185  T34:;  T34:;
186          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
187          goto T60;}          goto T60;}
188          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
189          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(CMPcar((V38))));
190          princ_char(41,VV[11]);          princ_char(41,VV[11]);
191          {register object V48;          {register object V48;
192          object V49;          object V49;
193          V48= cdr((V38));          V48= CMPcdr((V38));
194          V49= car((V48));          V49= CMPcar((V48));
195          goto T70;          goto T70;
196  T70:;  T70:;
197          if(!(endp_prop((V48)))){          if(!(((V48))==Cnil)){
198          goto T71;}          goto T71;}
199          goto T66;          goto T66;
200          goto T71;          goto T71;
# Line 203  T71:; Line 202  T71:;
202          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
203          (void)((*(LnkLI32))((V49)));          (void)((*(LnkLI32))((V49)));
204          princ_char(41,VV[11]);          princ_char(41,VV[11]);
205          V48= cdr((V48));          V48= CMPcdr((V48));
206          V49= car((V48));          V49= CMPcar((V48));
207          goto T70;}          goto T70;}
208          goto T66;          goto T66;
209  T66:;  T66:;
# Line 213  T66:; Line 212  T66:;
212          goto T60;          goto T60;
213  T60:;  T60:;
214          princ_str("\n   if(",VV[11]);          princ_str("\n   if(",VV[11]);
215          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(CMPcar((V38))));
216          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
217          {register object V50;          {register object V50;
218          object V51;          object V51;
219          V50= cdr((V38));          V50= CMPcdr((V38));
220          V51= car((V50));          V51= CMPcar((V50));
221          goto T93;          goto T93;
222  T93:;  T93:;
223          if(!(endp_prop((V50)))){          if(!(((V50))==Cnil)){
224          goto T94;}          goto T94;}
225          goto T89;          goto T89;
226          goto T94;          goto T94;
# Line 229  T94:; Line 228  T94:;
228          princ_str("||",VV[11]);          princ_str("||",VV[11]);
229          (void)((*(LnkLI32))((V51)));          (void)((*(LnkLI32))((V51)));
230          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
231          V50= cdr((V50));          V50= CMPcdr((V50));
232          V51= car((V50));          V51= CMPcar((V50));
233          goto T93;}          goto T93;}
234          goto T89;          goto T89;
235  T89:;  T89:;
# Line 244  T58:; Line 243  T58:;
243          princ_char(61,VV[11]);          princ_char(61,VV[11]);
244          (void)((*(LnkLI32))((V37)));          (void)((*(LnkLI32))((V37)));
245          princ_str("=MMcons(Cnil,Cnil);",VV[11]);          princ_str("=MMcons(Cnil,Cnil);",VV[11]);
246          if((cdr((V35)))==Cnil){          if((CMPcdr((V35)))==Cnil){
247          goto T117;}          goto T117;}
248          princ_str("\n   goto T",VV[11]);          princ_str("\n   goto T",VV[11]);
249          (void)((*(LnkLI32))(car((V35))));          (void)((*(LnkLI32))(CMPcar((V35))));
250          princ_char(59,VV[11]);          princ_char(59,VV[11]);
251          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
252          (void)((*(LnkLI32))(car((V35))));          (void)((*(LnkLI32))(CMPcar((V35))));
253          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
254          goto T117;          goto T117;
255  T117:;  T117:;
256          bds_bind(VV[14],list(2,VV[15],cadr((V37))));          bds_bind(VV[14],list(2,VV[15],CMPcadr((V37))));
257          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          (VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1));
258          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));          bds_bind(VV[16],make_cons((VV[6]->s.s_dbind),Cnil));
259          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),(VV[17]->s.s_dbind)));
260          if(((V33))==Cnil){          if(((V33))==Cnil){
261          goto T135;}          goto T135;}
262          {object V53;          {object V53;
263          object V54= (V38);          object V54= (V38);
264          if(endp(V54)){          if(V54==Cnil){
265          V52= Cnil;          V52= Cnil;
266          goto T133;}          goto T133;}
267          base[5]=V53=MMcons(Cnil,Cnil);          base[5]=V53=MMcons(Cnil,Cnil);
268          goto T137;          goto T137;
269  T137:;{object V56;  T137:;{object V56;
270          V56= symbol_value(VV[19]);          V56= (VV[19]->s.s_dbind);
271          (V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],cadr((V54->c.c_car))));}          (V53->c.c_car)= list(3,VV[18],V56,list(2,VV[15],CMPcadr((V54->c.c_car))));}
272          V54=MMcdr(V54);          if((V54=MMcdr(V54))==Cnil){
         if(endp(V54)){  
273          V52= base[5];          V52= base[5];
274          goto T133;}          goto T133;}
275          V53=MMcdr(V53)=MMcons(Cnil,Cnil);          V53=MMcdr(V53)=MMcons(Cnil,Cnil);
# Line 280  T137:;{object V56; Line 278  T137:;{object V56;
278  T135:;  T135:;
279          {object V57;          {object V57;
280          object V58= (V38);          object V58= (V38);
281          if(endp(V58)){          if(V58==Cnil){
282          V52= Cnil;          V52= Cnil;
283          goto T133;}          goto T133;}
284          base[5]=V57=MMcons(Cnil,Cnil);          base[5]=V57=MMcons(Cnil,Cnil);
285          goto T139;          goto T139;
286  T139:;  T139:;
287          (V57->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V58->c.c_car));          (V57->c.c_car)= list(3,VV[18],(VV[19]->s.s_dbind),(V58->c.c_car));
288          V58=MMcdr(V58);          if((V58=MMcdr(V58))==Cnil){
         if(endp(V58)){  
289          V52= base[5];          V52= base[5];
290          goto T133;}          goto T133;}
291          V57=MMcdr(V57)=MMcons(Cnil,Cnil);          V57=MMcdr(V57)=MMcons(Cnil,Cnil);
# Line 296  T139:; Line 293  T139:;
293          goto T133;          goto T133;
294  T133:;  T133:;
295          (void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39))));          (void)((VFUN_NARGS=3,(*(LnkLI34))((V32),V52,(V39))));
296          if((cdr((VV[16]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[16]->s.s_dbind)))==Cnil){
297          bds_unwind1;          bds_unwind1;
298          bds_unwind1;          bds_unwind1;
299          bds_unwind1;          bds_unwind1;
300          goto T127;}          goto T127;}
301          princ_str("\n   goto T",VV[11]);          princ_str("\n   goto T",VV[11]);
302          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind))));
303          princ_char(59,VV[11]);          princ_char(59,VV[11]);
304          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
305          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind))));
306          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
307          bds_unwind1;          bds_unwind1;
308          bds_unwind1;          bds_unwind1;
309          bds_unwind1;          bds_unwind1;
310          goto T127;          goto T127;
311  T127:;  T127:;
312          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
313          goto T152;}          goto T152;}
314          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
315          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(CMPcar((V38))));
316          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
317          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(CMPcar((V38))));
318          princ_str(");",VV[11]);          princ_str(");",VV[11]);
319          {register object V60;          {register object V60;
320          object V61;          object V61;
321          V60= cdr((V38));          V60= CMPcdr((V38));
322          V61= car((V60));          V61= CMPcar((V60));
323          goto T164;          goto T164;
324  T164:;  T164:;
325          if(!(endp_prop((V60)))){          if(!(((V60))==Cnil)){
326          goto T165;}          goto T165;}
327          goto T160;          goto T160;
328          goto T165;          goto T165;
# Line 335  T165:; Line 332  T165:;
332          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
333          (void)((*(LnkLI32))((V61)));          (void)((*(LnkLI32))((V61)));
334          princ_str(");",VV[11]);          princ_str(");",VV[11]);
335          V60= cdr((V60));          V60= CMPcdr((V60));
336          V61= car((V60));          V61= CMPcar((V60));
337          goto T164;}          goto T164;}
338          goto T160;          goto T160;
339  T160:;  T160:;
340          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
341          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(CMPcar((V38))));
342          princ_char(41,VV[11]);          princ_char(41,VV[11]);
343          {register object V62;          {register object V62;
344          object V63;          object V63;
345          V62= cdr((V38));          V62= CMPcdr((V38));
346          V63= car((V62));          V63= CMPcar((V62));
347          goto T188;          goto T188;
348  T188:;  T188:;
349          if(!(endp_prop((V62)))){          if(!(((V62))==Cnil)){
350          goto T189;}          goto T189;}
351          goto T184;          goto T184;
352          goto T189;          goto T189;
# Line 357  T189:; Line 354  T189:;
354          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
355          (void)((*(LnkLI32))((V63)));          (void)((*(LnkLI32))((V63)));
356          princ_char(41,VV[11]);          princ_char(41,VV[11]);
357          V62= cdr((V62));          V62= CMPcdr((V62));
358          V63= car((V62));          V63= CMPcar((V62));
359          goto T188;}          goto T188;}
360          goto T184;          goto T184;
361  T184:;  T184:;
# Line 367  T184:; Line 364  T184:;
364          goto T152;          goto T152;
365  T152:;  T152:;
366          princ_str("\n   if((",VV[11]);          princ_str("\n   if((",VV[11]);
367          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(CMPcar((V38))));
368          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
369          (void)((*(LnkLI32))(car((V38))));          (void)((*(LnkLI32))(CMPcar((V38))));
370          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
371          {register object V64;          {register object V64;
372          object V65;          object V65;
373          V64= cdr((V38));          V64= CMPcdr((V38));
374          V65= car((V64));          V65= CMPcar((V64));
375          goto T213;          goto T213;
376  T213:;  T213:;
377          if(!(endp_prop((V64)))){          if(!(((V64))==Cnil)){
378          goto T214;}          goto T214;}
379          goto T209;          goto T209;
380          goto T214;          goto T214;
# Line 387  T214:; Line 384  T214:;
384          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
385          (void)((*(LnkLI32))((V65)));          (void)((*(LnkLI32))((V65)));
386          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
387          V64= cdr((V64));          V64= CMPcdr((V64));
388          V65= car((V64));          V65= CMPcar((V64));
389          goto T213;}          goto T213;}
390          goto T209;          goto T209;
391  T209:;  T209:;
# Line 403  T150:; Line 400  T150:;
400          (void)((*(LnkLI32))((V37)));          (void)((*(LnkLI32))((V37)));
401          princ_str(")=MMcons(Cnil,Cnil);",VV[11]);          princ_str(")=MMcons(Cnil,Cnil);",VV[11]);
402          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
         if(type_of((V35))!=t_cons)FEwrong_type_argument(Scons,(V35));  
403          ((V35))->c.c_cdr = Ct;          ((V35))->c.c_cdr = Ct;
404          princ_str("goto T",VV[11]);          princ_str("goto T",VV[11]);
405          (void)((*(LnkLI32))(car((V35))));          (void)((*(LnkLI32))(CMPcar((V35))));
406          princ_char(59,VV[11]);          princ_char(59,VV[11]);
407          princ_char(125,VV[11]);          princ_char(125,VV[11]);
408          {object V66 = (*(LnkLI35))();          {object V66 = (*(LnkLI35))();
# Line 425  object V70;object V71;register object V7 Line 421  object V70;object V71;register object V7
421          bds_check;          bds_check;
422          goto TTL;          goto TTL;
423  TTL:;  TTL:;
424          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],(VV[4]->s.s_dbind));
425          bds_bind(VV[5],small_fixnum(0));          bds_bind(VV[5],small_fixnum(0));
426          {object V73;          {object V73;
427          object V74;          object V74;
428          object V75;          object V75;
429          object V76;          object V76;
430          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          (VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1));
431          V73= make_cons(symbol_value(VV[6]),Ct);          V73= make_cons((VV[6]->s.s_dbind),Ct);
432          {object V77;          {object V77;
433          object V78= (V72);          object V78= (V72);
434          if(endp(V78)){          if(V78==Cnil){
435          V75= Cnil;          V75= Cnil;
436          goto T249;}          goto T249;}
437          base[2]=V77=MMcons(Cnil,Cnil);          base[2]=V77=MMcons(Cnil,Cnil);
438          goto T250;          goto T250;
439  T250:;  T250:;
440          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
441          (V77->c.c_car)= list(2,VV[8],symbol_value(VV[9]));          (V77->c.c_car)= list(2,VV[8],(VV[9]->s.s_dbind));
442          V78=MMcdr(V78);          if((V78=MMcdr(V78))==Cnil){
         if(endp(V78)){  
443          V75= base[2];          V75= base[2];
444          goto T249;}          goto T249;}
445          V77=MMcdr(V77)=MMcons(Cnil,Cnil);          V77=MMcdr(V77)=MMcons(Cnil,Cnil);
# Line 454  T249:; Line 449  T249:;
449          V74= Cnil;          V74= Cnil;
450          V76= Cnil;          V76= Cnil;
451          V76= (*(LnkLI29))((V70));          V76= (*(LnkLI29))((V70));
452          base[2]= make_fixnum((long)length((V72)));          base[2]= CMPmake_fixnum((long)length((V72)));
453          base[3]= VV[10];          base[3]= VV[10];
454          base[4]= Ct;          base[4]= Ct;
455          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
# Line 463  T249:; Line 458  T249:;
458          V80= vs_base[0];          V80= vs_base[0];
459          V81= (VFUN_NARGS=2,(*(LnkLI31))((V72),V80));          V81= (VFUN_NARGS=2,(*(LnkLI31))((V72),V80));
460          V72= (*(LnkLI30))(/* INLINE-ARGS */V81,(V70));          V72= (*(LnkLI30))(/* INLINE-ARGS */V81,(V70));
461          V74= car((V72));          V74= CMPcar((V72));
462          princ_str("\n   {",VV[11]);          princ_str("\n   {",VV[11]);
463          {register object V82;          {register object V82;
464          object V83;          object V83;
465          V82= (V75);          V82= (V75);
466          V83= car((V82));          V83= CMPcar((V82));
467          goto T269;          goto T269;
468  T269:;  T269:;
469          if(!(endp_prop((V82)))){          if(!(((V82))==Cnil)){
470          goto T270;}          goto T270;}
471          goto T265;          goto T265;
472          goto T270;          goto T270;
# Line 479  T270:; Line 474  T270:;
474          princ_str("\n   object ",VV[11]);          princ_str("\n   object ",VV[11]);
475          (void)((*(LnkLI32))((V83)));          (void)((*(LnkLI32))((V83)));
476          princ_str("= ",VV[11]);          princ_str("= ",VV[11]);
477          (void)((*(LnkLI32))(car((V72))));          (void)((*(LnkLI32))(CMPcar((V72))));
478          princ_char(59,VV[11]);          princ_char(59,VV[11]);
479          {object V84;          {object V84;
480          V84= car((V72));          V84= CMPcar((V72));
481          V72= cdr((V72));}          V72= CMPcdr((V72));}
482          V82= cdr((V82));          V82= CMPcdr((V82));
483          V83= car((V82));          V83= CMPcar((V82));
484          goto T269;}          goto T269;}
485          goto T265;          goto T265;
486  T265:;  T265:;
487          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
488          goto T291;}          goto T291;}
489          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
490          (void)((*(LnkLI32))(car((V75))));          (void)((*(LnkLI32))(CMPcar((V75))));
491          princ_char(41,VV[11]);          princ_char(41,VV[11]);
492          {register object V85;          {register object V85;
493          object V86;          object V86;
494          V85= cdr((V75));          V85= CMPcdr((V75));
495          V86= car((V85));          V86= CMPcar((V85));
496          goto T301;          goto T301;
497  T301:;  T301:;
498          if(!(endp_prop((V85)))){          if(!(((V85))==Cnil)){
499          goto T302;}          goto T302;}
500          goto T297;          goto T297;
501          goto T302;          goto T302;
# Line 508  T302:; Line 503  T302:;
503          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
504          (void)((*(LnkLI32))((V86)));          (void)((*(LnkLI32))((V86)));
505          princ_char(41,VV[11]);          princ_char(41,VV[11]);
506          V85= cdr((V85));          V85= CMPcdr((V85));
507          V86= car((V85));          V86= CMPcar((V85));
508          goto T301;}          goto T301;}
509          goto T297;          goto T297;
510  T297:;  T297:;
# Line 518  T297:; Line 513  T297:;
513          goto T291;          goto T291;
514  T291:;  T291:;
515          princ_str("\n   if(",VV[11]);          princ_str("\n   if(",VV[11]);
516          (void)((*(LnkLI32))(car((V75))));          (void)((*(LnkLI32))(CMPcar((V75))));
517          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
518          {register object V87;          {register object V87;
519          object V88;          object V88;
520          V87= cdr((V75));          V87= CMPcdr((V75));
521          V88= car((V87));          V88= CMPcar((V87));
522          goto T324;          goto T324;
523  T324:;  T324:;
524          if(!(endp_prop((V87)))){          if(!(((V87))==Cnil)){
525          goto T325;}          goto T325;}
526          goto T320;          goto T320;
527          goto T325;          goto T325;
# Line 534  T325:; Line 529  T325:;
529          princ_str("||",VV[11]);          princ_str("||",VV[11]);
530          (void)((*(LnkLI32))((V88)));          (void)((*(LnkLI32))((V88)));
531          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
532          V87= cdr((V87));          V87= CMPcdr((V87));
533          V88= car((V87));          V88= CMPcar((V87));
534          goto T324;}          goto T324;}
535          goto T320;          goto T320;
536  T320:;  T320:;
# Line 544  T320:; Line 539  T320:;
539  T289:;  T289:;
540          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))(Cnil,VV[13])));
541          princ_char(125,VV[11]);          princ_char(125,VV[11]);
542          if((cdr((V73)))==Cnil){          if((CMPcdr((V73)))==Cnil){
543          goto T342;}          goto T342;}
544          princ_str("\n   goto T",VV[11]);          princ_str("\n   goto T",VV[11]);
545          (void)((*(LnkLI32))(car((V73))));          (void)((*(LnkLI32))(CMPcar((V73))));
546          princ_char(59,VV[11]);          princ_char(59,VV[11]);
547          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
548          (void)((*(LnkLI32))(car((V73))));          (void)((*(LnkLI32))(CMPcar((V73))));
549          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
550          goto T342;          goto T342;
551  T342:;  T342:;
552          bds_bind(VV[14],VV[20]);          bds_bind(VV[14],VV[20]);
553          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          (VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1));
554          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));          bds_bind(VV[16],make_cons((VV[6]->s.s_dbind),Cnil));
555          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),(VV[17]->s.s_dbind)));
556          if(((V71))==Cnil){          if(((V71))==Cnil){
557          goto T359;}          goto T359;}
558          {object V90;          {object V90;
559          object V91= (V75);          object V91= (V75);
560          if(endp(V91)){          if(V91==Cnil){
561          V89= Cnil;          V89= Cnil;
562          goto T357;}          goto T357;}
563          base[5]=V90=MMcons(Cnil,Cnil);          base[5]=V90=MMcons(Cnil,Cnil);
564          goto T361;          goto T361;
565  T361:;{object V93;  T361:;{object V93;
566          V93= symbol_value(VV[19]);          V93= (VV[19]->s.s_dbind);
567          (V90->c.c_car)= list(3,VV[18],V93,list(2,VV[15],cadr((V91->c.c_car))));}          (V90->c.c_car)= list(3,VV[18],V93,list(2,VV[15],CMPcadr((V91->c.c_car))));}
568          V91=MMcdr(V91);          if((V91=MMcdr(V91))==Cnil){
         if(endp(V91)){  
569          V89= base[5];          V89= base[5];
570          goto T357;}          goto T357;}
571          V90=MMcdr(V90)=MMcons(Cnil,Cnil);          V90=MMcdr(V90)=MMcons(Cnil,Cnil);
# Line 580  T361:;{object V93; Line 574  T361:;{object V93;
574  T359:;  T359:;
575          {object V94;          {object V94;
576          object V95= (V75);          object V95= (V75);
577          if(endp(V95)){          if(V95==Cnil){
578          V89= Cnil;          V89= Cnil;
579          goto T357;}          goto T357;}
580          base[5]=V94=MMcons(Cnil,Cnil);          base[5]=V94=MMcons(Cnil,Cnil);
581          goto T363;          goto T363;
582  T363:;  T363:;
583          (V94->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V95->c.c_car));          (V94->c.c_car)= list(3,VV[18],(VV[19]->s.s_dbind),(V95->c.c_car));
584          V95=MMcdr(V95);          if((V95=MMcdr(V95))==Cnil){
         if(endp(V95)){  
585          V89= base[5];          V89= base[5];
586          goto T357;}          goto T357;}
587          V94=MMcdr(V94)=MMcons(Cnil,Cnil);          V94=MMcdr(V94)=MMcons(Cnil,Cnil);
# Line 596  T363:; Line 589  T363:;
589          goto T357;          goto T357;
590  T357:;  T357:;
591          (void)((VFUN_NARGS=3,(*(LnkLI34))((V70),V89,(V76))));          (void)((VFUN_NARGS=3,(*(LnkLI34))((V70),V89,(V76))));
592          if((cdr((VV[16]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[16]->s.s_dbind)))==Cnil){
593          bds_unwind1;          bds_unwind1;
594          bds_unwind1;          bds_unwind1;
595          bds_unwind1;          bds_unwind1;
596          goto T352;}          goto T352;}
597          princ_str("\n   goto T",VV[11]);          princ_str("\n   goto T",VV[11]);
598          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind))));
599          princ_char(59,VV[11]);          princ_char(59,VV[11]);
600          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
601          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind))));
602          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
603          bds_unwind1;          bds_unwind1;
604          bds_unwind1;          bds_unwind1;
605          bds_unwind1;          bds_unwind1;
606          goto T352;          goto T352;
607  T352:;  T352:;
608          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
609          goto T376;}          goto T376;}
610          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
611          (void)((*(LnkLI32))(car((V75))));          (void)((*(LnkLI32))(CMPcar((V75))));
612          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
613          (void)((*(LnkLI32))(car((V75))));          (void)((*(LnkLI32))(CMPcar((V75))));
614          princ_str(");",VV[11]);          princ_str(");",VV[11]);
615          {register object V97;          {register object V97;
616          object V98;          object V98;
617          V97= cdr((V75));          V97= CMPcdr((V75));
618          V98= car((V97));          V98= CMPcar((V97));
619          goto T388;          goto T388;
620  T388:;  T388:;
621          if(!(endp_prop((V97)))){          if(!(((V97))==Cnil)){
622          goto T389;}          goto T389;}
623          goto T384;          goto T384;
624          goto T389;          goto T389;
# Line 635  T389:; Line 628  T389:;
628          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
629          (void)((*(LnkLI32))((V98)));          (void)((*(LnkLI32))((V98)));
630          princ_str(");",VV[11]);          princ_str(");",VV[11]);
631          V97= cdr((V97));          V97= CMPcdr((V97));
632          V98= car((V97));          V98= CMPcar((V97));
633          goto T388;}          goto T388;}
634          goto T384;          goto T384;
635  T384:;  T384:;
636          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
637          (void)((*(LnkLI32))(car((V75))));          (void)((*(LnkLI32))(CMPcar((V75))));
638          princ_char(41,VV[11]);          princ_char(41,VV[11]);
639          {register object V99;          {register object V99;
640          object V100;          object V100;
641          V99= cdr((V75));          V99= CMPcdr((V75));
642          V100= car((V99));          V100= CMPcar((V99));
643          goto T412;          goto T412;
644  T412:;  T412:;
645          if(!(endp_prop((V99)))){          if(!(((V99))==Cnil)){
646          goto T413;}          goto T413;}
647          goto T408;          goto T408;
648          goto T413;          goto T413;
# Line 657  T413:; Line 650  T413:;
650          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
651          (void)((*(LnkLI32))((V100)));          (void)((*(LnkLI32))((V100)));
652          princ_char(41,VV[11]);          princ_char(41,VV[11]);
653          V99= cdr((V99));          V99= CMPcdr((V99));
654          V100= car((V99));          V100= CMPcar((V99));
655          goto T412;}          goto T412;}
656          goto T408;          goto T408;
657  T408:;  T408:;
# Line 667  T408:; Line 660  T408:;
660          goto T376;          goto T376;
661  T376:;  T376:;
662          princ_str("\n   if((",VV[11]);          princ_str("\n   if((",VV[11]);
663          (void)((*(LnkLI32))(car((V75))));          (void)((*(LnkLI32))(CMPcar((V75))));
664          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
665          (void)((*(LnkLI32))(car((V75))));          (void)((*(LnkLI32))(CMPcar((V75))));
666          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
667          {register object V101;          {register object V101;
668          object V102;          object V102;
669          V101= cdr((V75));          V101= CMPcdr((V75));
670          V102= car((V101));          V102= CMPcar((V101));
671          goto T437;          goto T437;
672  T437:;  T437:;
673          if(!(endp_prop((V101)))){          if(!(((V101))==Cnil)){
674          goto T438;}          goto T438;}
675          goto T433;          goto T433;
676          goto T438;          goto T438;
# Line 687  T438:; Line 680  T438:;
680          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
681          (void)((*(LnkLI32))((V102)));          (void)((*(LnkLI32))((V102)));
682          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
683          V101= cdr((V101));          V101= CMPcdr((V101));
684          V102= car((V101));          V102= CMPcar((V101));
685          goto T437;}          goto T437;}
686          goto T433;          goto T433;
687  T433:;  T433:;
# Line 698  T374:; Line 691  T374:;
691          (void)((VFUN_NARGS=2,(*(LnkLI33))((V74),VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))((V74),VV[13])));
692          princ_char(125,VV[11]);          princ_char(125,VV[11]);
693          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
         if(type_of((V73))!=t_cons)FEwrong_type_argument(Scons,(V73));  
694          ((V73))->c.c_cdr = Ct;          ((V73))->c.c_cdr = Ct;
695          princ_str("goto T",VV[11]);          princ_str("goto T",VV[11]);
696          (void)((*(LnkLI32))(car((V73))));          (void)((*(LnkLI32))(CMPcar((V73))));
697          princ_char(59,VV[11]);          princ_char(59,VV[11]);
698          princ_char(125,VV[11]);          princ_char(125,VV[11]);
699          {object V103 = (*(LnkLI35))();          {object V103 = (*(LnkLI35))();
# Line 720  object V107;object V108;register object Line 712  object V107;object V108;register object
712          bds_check;          bds_check;
713          goto TTL;          goto TTL;
714  TTL:;  TTL:;
715          bds_bind(VV[4],symbol_value(VV[4]));          bds_bind(VV[4],(VV[4]->s.s_dbind));
716          bds_bind(VV[5],small_fixnum(0));          bds_bind(VV[5],small_fixnum(0));
717          {object V110;          {object V110;
718          object V111;          object V111;
719          object V112;          object V112;
720          object V113;          object V113;
721          object V114;          object V114;
722          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          (VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1));
723          V110= make_cons(symbol_value(VV[6]),Ct);          V110= make_cons((VV[6]->s.s_dbind),Ct);
724          V111= list(2,VV[7],(*(LnkLI28))());          V111= list(2,VV[7],(*(LnkLI28))());
725          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
726          V112= list(2,VV[8],symbol_value(VV[9]));          V112= list(2,VV[8],(VV[9]->s.s_dbind));
727          {object V115;          {object V115;
728          object V116= (V109);          object V116= (V109);
729          if(endp(V116)){          if(V116==Cnil){
730          V113= Cnil;          V113= Cnil;
731          goto T470;}          goto T470;}
732          base[2]=V115=MMcons(Cnil,Cnil);          base[2]=V115=MMcons(Cnil,Cnil);
733          goto T471;          goto T471;
734  T471:;  T471:;
735          setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));          (VV[9]->s.s_dbind)= number_plus((VV[9]->s.s_dbind),small_fixnum(1));
736          (V115->c.c_car)= list(2,VV[8],symbol_value(VV[9]));          (V115->c.c_car)= list(2,VV[8],(VV[9]->s.s_dbind));
737          V116=MMcdr(V116);          if((V116=MMcdr(V116))==Cnil){
         if(endp(V116)){  
738          V113= base[2];          V113= base[2];
739          goto T470;}          goto T470;}
740          V115=MMcdr(V115)=MMcons(Cnil,Cnil);          V115=MMcdr(V115)=MMcons(Cnil,Cnil);
# Line 752  T471:; Line 743  T471:;
743  T470:;  T470:;
744          V114= Cnil;          V114= Cnil;
745          V114= (*(LnkLI29))((V107));          V114= (*(LnkLI29))((V107));
746          base[2]= make_fixnum((long)length((V109)));          base[2]= CMPmake_fixnum((long)length((V109)));
747          base[3]= VV[10];          base[3]= VV[10];
748          base[4]= Ct;          base[4]= Ct;
749          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
# Line 767  T470:; Line 758  T470:;
758          {register object V120;          {register object V120;
759          object V121;          object V121;
760          V120= (V113);          V120= (V113);
761          V121= car((V120));          V121= CMPcar((V120));
762          goto T490;          goto T490;
763  T490:;  T490:;
764          if(!(endp_prop((V120)))){          if(!(((V120))==Cnil)){
765          goto T491;}          goto T491;}
766          goto T486;          goto T486;
767          goto T491;          goto T491;
# Line 778  T491:; Line 769  T491:;
769          princ_str("\n   object ",VV[11]);          princ_str("\n   object ",VV[11]);
770          (void)((*(LnkLI32))((V121)));          (void)((*(LnkLI32))((V121)));
771          princ_str("= ",VV[11]);          princ_str("= ",VV[11]);
772          (void)((*(LnkLI32))(car((V109))));          (void)((*(LnkLI32))(CMPcar((V109))));
773          princ_char(59,VV[11]);          princ_char(59,VV[11]);
774          {object V122;          {object V122;
775          V122= car((V109));          V122= CMPcar((V109));
776          V109= cdr((V109));}          V109= CMPcdr((V109));}
777          V120= cdr((V120));          V120= CMPcdr((V120));
778          V121= car((V120));          V121= CMPcar((V120));
779          goto T490;}          goto T490;}
780          goto T486;          goto T486;
781  T486:;  T486:;
782          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
783          goto T512;}          goto T512;}
784          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
785          (void)((*(LnkLI32))(car((V113))));          (void)((*(LnkLI32))(CMPcar((V113))));
786          princ_char(41,VV[11]);          princ_char(41,VV[11]);
787          {register object V123;          {register object V123;
788          object V124;          object V124;
789          V123= cdr((V113));          V123= CMPcdr((V113));
790          V124= car((V123));          V124= CMPcar((V123));
791          goto T522;          goto T522;
792  T522:;  T522:;
793          if(!(endp_prop((V123)))){          if(!(((V123))==Cnil)){
794          goto T523;}          goto T523;}
795          goto T518;          goto T518;
796          goto T523;          goto T523;
# Line 807  T523:; Line 798  T523:;
798          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
799          (void)((*(LnkLI32))((V124)));          (void)((*(LnkLI32))((V124)));
800          princ_char(41,VV[11]);          princ_char(41,VV[11]);
801          V123= cdr((V123));          V123= CMPcdr((V123));
802          V124= car((V123));          V124= CMPcar((V123));
803          goto T522;}          goto T522;}
804          goto T518;          goto T518;
805  T518:;  T518:;
# Line 817  T518:; Line 808  T518:;
808          goto T512;          goto T512;
809  T512:;  T512:;
810          princ_str("\n   if(",VV[11]);          princ_str("\n   if(",VV[11]);
811          (void)((*(LnkLI32))(car((V113))));          (void)((*(LnkLI32))(CMPcar((V113))));
812          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
813          {register object V125;          {register object V125;
814          object V126;          object V126;
815          V125= cdr((V113));          V125= CMPcdr((V113));
816          V126= car((V125));          V126= CMPcar((V125));
817          goto T545;          goto T545;
818  T545:;  T545:;
819          if(!(endp_prop((V125)))){          if(!(((V125))==Cnil)){
820          goto T546;}          goto T546;}
821          goto T541;          goto T541;
822          goto T546;          goto T546;
# Line 833  T546:; Line 824  T546:;
824          princ_str("||",VV[11]);          princ_str("||",VV[11]);
825          (void)((*(LnkLI32))((V126)));          (void)((*(LnkLI32))((V126)));
826          princ_str("==Cnil",VV[11]);          princ_str("==Cnil",VV[11]);
827          V125= cdr((V125));          V125= CMPcdr((V125));
828          V126= car((V125));          V126= CMPcar((V125));
829          goto T545;}          goto T545;}
830          goto T541;          goto T541;
831  T541:;  T541:;
# Line 848  T510:; Line 839  T510:;
839          princ_char(61,VV[11]);          princ_char(61,VV[11]);
840          (void)((*(LnkLI32))((V112)));          (void)((*(LnkLI32))((V112)));
841          princ_str("=MMcons(Cnil,Cnil);",VV[11]);          princ_str("=MMcons(Cnil,Cnil);",VV[11]);
842          if((cdr((V110)))==Cnil){          if((CMPcdr((V110)))==Cnil){
843          goto T569;}          goto T569;}
844          princ_str("\n   goto T",VV[11]);          princ_str("\n   goto T",VV[11]);
845          (void)((*(LnkLI32))(car((V110))));          (void)((*(LnkLI32))(CMPcar((V110))));
846          princ_char(59,VV[11]);          princ_char(59,VV[11]);
847          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
848          (void)((*(LnkLI32))(car((V110))));          (void)((*(LnkLI32))(CMPcar((V110))));
849          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
850          goto T569;          goto T569;
851  T569:;  T569:;
852          bds_bind(VV[14],list(2,VV[21],cadr((V112))));          bds_bind(VV[14],list(2,VV[21],CMPcadr((V112))));
853          setq(VV[6],number_plus(symbol_value(VV[6]),small_fixnum(1)));          (VV[6]->s.s_dbind)= number_plus((VV[6]->s.s_dbind),small_fixnum(1));
854          bds_bind(VV[16],make_cons(symbol_value(VV[6]),Cnil));          bds_bind(VV[16],make_cons((VV[6]->s.s_dbind),Cnil));
855          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),symbol_value(VV[17])));          bds_bind(VV[17],make_cons((VV[16]->s.s_dbind),(VV[17]->s.s_dbind)));
856          if(((V108))==Cnil){          if(((V108))==Cnil){
857          goto T587;}          goto T587;}
858          {object V128;          {object V128;
859          object V129= (V113);          object V129= (V113);
860          if(endp(V129)){          if(V129==Cnil){
861          V127= Cnil;          V127= Cnil;
862          goto T585;}          goto T585;}
863          base[5]=V128=MMcons(Cnil,Cnil);          base[5]=V128=MMcons(Cnil,Cnil);
864          goto T589;          goto T589;
865  T589:;{object V131;  T589:;{object V131;
866          V131= symbol_value(VV[19]);          V131= (VV[19]->s.s_dbind);
867          (V128->c.c_car)= list(3,VV[18],V131,list(2,VV[15],cadr((V129->c.c_car))));}          (V128->c.c_car)= list(3,VV[18],V131,list(2,VV[15],CMPcadr((V129->c.c_car))));}
868          V129=MMcdr(V129);          if((V129=MMcdr(V129))==Cnil){
         if(endp(V129)){  
869          V127= base[5];          V127= base[5];
870          goto T585;}          goto T585;}
871          V128=MMcdr(V128)=MMcons(Cnil,Cnil);          V128=MMcdr(V128)=MMcons(Cnil,Cnil);
# Line 884  T589:;{object V131; Line 874  T589:;{object V131;
874  T587:;  T587:;
875          {object V132;          {object V132;
876          object V133= (V113);          object V133= (V113);
877          if(endp(V133)){          if(V133==Cnil){
878          V127= Cnil;          V127= Cnil;
879          goto T585;}          goto T585;}
880          base[5]=V132=MMcons(Cnil,Cnil);          base[5]=V132=MMcons(Cnil,Cnil);
881          goto T591;          goto T591;
882  T591:;  T591:;
883          (V132->c.c_car)= list(3,VV[18],symbol_value(VV[19]),(V133->c.c_car));          (V132->c.c_car)= list(3,VV[18],(VV[19]->s.s_dbind),(V133->c.c_car));
884          V133=MMcdr(V133);          if((V133=MMcdr(V133))==Cnil){
         if(endp(V133)){  
885          V127= base[5];          V127= base[5];
886          goto T585;}          goto T585;}
887          V132=MMcdr(V132)=MMcons(Cnil,Cnil);          V132=MMcdr(V132)=MMcons(Cnil,Cnil);
# Line 900  T591:; Line 889  T591:;
889          goto T585;          goto T585;
890  T585:;  T585:;
891          (void)((VFUN_NARGS=3,(*(LnkLI34))((V107),V127,(V114))));          (void)((VFUN_NARGS=3,(*(LnkLI34))((V107),V127,(V114))));
892          if((cdr((VV[16]->s.s_dbind)))==Cnil){          if((CMPcdr((VV[16]->s.s_dbind)))==Cnil){
893          bds_unwind1;          bds_unwind1;
894          bds_unwind1;          bds_unwind1;
895          bds_unwind1;          bds_unwind1;
896          goto T579;}          goto T579;}
897          princ_str("\n   goto T",VV[11]);          princ_str("\n   goto T",VV[11]);
898          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind))));
899          princ_char(59,VV[11]);          princ_char(59,VV[11]);
900          princ_str("\nT",VV[11]);          princ_str("\nT",VV[11]);
901          (void)((*(LnkLI32))(car((VV[16]->s.s_dbind))));          (void)((*(LnkLI32))(CMPcar((VV[16]->s.s_dbind))));
902          princ_str(":;",VV[11]);          princ_str(":;",VV[11]);
903          bds_unwind1;          bds_unwind1;
904          bds_unwind1;          bds_unwind1;
905          bds_unwind1;          bds_unwind1;
906          goto T579;          goto T579;
907  T579:;  T579:;
908          if((symbol_value(VV[12]))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
909          goto T604;}          goto T604;}
910          princ_str("\n   {object cdr_",VV[11]);          princ_str("\n   {object cdr_",VV[11]);
911          (void)((*(LnkLI32))((V112)));          (void)((*(LnkLI32))((V112)));
# Line 934  T579:; Line 923  T579:;
923          (void)((*(LnkLI32))((V112)));          (void)((*(LnkLI32))((V112)));
924          princ_str(");}}",VV[11]);          princ_str(");}}",VV[11]);
925          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
926          (void)((*(LnkLI32))(car((V113))));          (void)((*(LnkLI32))(CMPcar((V113))));
927          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
928          (void)((*(LnkLI32))(car((V113))));          (void)((*(LnkLI32))(CMPcar((V113))));
929          princ_str(");",VV[11]);          princ_str(");",VV[11]);
930          {register object V135;          {register object V135;
931          object V136;          object V136;
932          V135= cdr((V113));          V135= CMPcdr((V113));
933          V136= car((V135));          V136= CMPcar((V135));
934          goto T632;          goto T632;
935  T632:;  T632:;
936          if(!(endp_prop((V135)))){          if(!(((V135))==Cnil)){
937          goto T633;}          goto T633;}
938          goto T628;          goto T628;
939          goto T633;          goto T633;
# Line 954  T633:; Line 943  T633:;
943          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
944          (void)((*(LnkLI32))((V136)));          (void)((*(LnkLI32))((V136)));
945          princ_str(");",VV[11]);          princ_str(");",VV[11]);
946          V135= cdr((V135));          V135= CMPcdr((V135));
947          V136= car((V135));          V136= CMPcar((V135));
948          goto T632;}          goto T632;}
949          goto T628;          goto T628;
950  T628:;  T628:;
951          princ_str("\n   if(endp(",VV[11]);          princ_str("\n   if(endp(",VV[11]);
952          (void)((*(LnkLI32))(car((V113))));          (void)((*(LnkLI32))(CMPcar((V113))));
953          princ_char(41,VV[11]);          princ_char(41,VV[11]);
954          {register object V137;          {register object V137;
955          object V138;          object V138;
956          V137= cdr((V113));          V137= CMPcdr((V113));
957          V138= car((V137));          V138= CMPcar((V137));
958          goto T656;          goto T656;
959  T656:;  T656:;
960          if(!(endp_prop((V137)))){          if(!(((V137))==Cnil)){
961          goto T657;}          goto T657;}
962          goto T652;          goto T652;
963          goto T657;          goto T657;
# Line 976  T657:; Line 965  T657:;
965          princ_str("||endp(",VV[11]);          princ_str("||endp(",VV[11]);
966          (void)((*(LnkLI32))((V138)));          (void)((*(LnkLI32))((V138)));
967          princ_char(41,VV[11]);          princ_char(41,VV[11]);
968          V137= cdr((V137));          V137= CMPcdr((V137));
969          V138= car((V137));          V138= CMPcar((V137));
970          goto T656;}          goto T656;}
971          goto T652;          goto T652;
972  T652:;  T652:;
# Line 993  T604:; Line 982  T604:;
982          (void)((*(LnkLI32))((V112)));          (void)((*(LnkLI32))((V112)));
983          princ_str(");",VV[11]);          princ_str(");",VV[11]);
984          princ_str("\n   if((",VV[11]);          princ_str("\n   if((",VV[11]);
985          (void)((*(LnkLI32))(car((V113))));          (void)((*(LnkLI32))(CMPcar((V113))));
986          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
987          (void)((*(LnkLI32))(car((V113))));          (void)((*(LnkLI32))(CMPcar((V113))));
988          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
989          {register object V139;          {register object V139;
990          object V140;          object V140;
991          V139= cdr((V113));          V139= CMPcdr((V113));
992          V140= car((V139));          V140= CMPcar((V139));
993          goto T689;          goto T689;
994  T689:;  T689:;
995          if(!(endp_prop((V139)))){          if(!(((V139))==Cnil)){
996          goto T690;}          goto T690;}
997          goto T685;          goto T685;
998          goto T690;          goto T690;
# Line 1013  T690:; Line 1002  T690:;
1002          princ_str("=MMcdr(",VV[11]);          princ_str("=MMcdr(",VV[11]);
1003          (void)((*(LnkLI32))((V140)));          (void)((*(LnkLI32))((V140)));
1004          princ_str("))==Cnil",VV[11]);          princ_str("))==Cnil",VV[11]);
1005          V139= cdr((V139));          V139= CMPcdr((V139));
1006          V140= car((V139));          V140= CMPcar((V139));
1007          goto T689;}          goto T689;}
1008          goto T685;          goto T685;
1009  T685:;  T685:;
# Line 1029  T602:; Line 1018  T602:;
1018          (void)((VFUN_NARGS=2,(*(LnkLI33))((V111),VV[13])));          (void)((VFUN_NARGS=2,(*(LnkLI33))((V111),VV[13])));
1019          princ_char(125,VV[11]);          princ_char(125,VV[11]);
1020          princ_str("\n   ",VV[11]);          princ_str("\n   ",VV[11]);
         if(type_of((V110))!=t_cons)FEwrong_type_argument(Scons,(V110));  
1021          ((V110))->c.c_cdr = Ct;          ((V110))->c.c_cdr = Ct;
1022          princ_str("goto T",VV[11]);          princ_str("goto T",VV[11]);
1023          (void)((*(LnkLI32))(car((V110))));          (void)((*(LnkLI32))(CMPcar((V110))));
1024          princ_char(59,VV[11]);          princ_char(59,VV[11]);
1025          princ_char(125,VV[11]);          princ_char(125,VV[11]);
1026          {object V141 = (*(LnkLI35))();          {object V141 = (*(LnkLI35))();
# Line 1057  TTL:; Line 1045  TTL:;
1045          {register object V148;          {register object V148;
1046          register object V149;          register object V149;
1047          V148= (V144);          V148= (V144);
1048          V149= car((V148));          V149= CMPcar((V148));
1049          goto T728;          goto T728;
1050  T728:;  T728:;
1051          if(!(endp_prop((V148)))){          if(!(((V148))==Cnil)){
1052          goto T729;}          goto T729;}
1053          {object V150 = reverse((V146));          {object V150 = reverse((V146));
1054          VMR11(V150)}          VMR11(V150)}
# Line 1068  T728:; Line 1056  T728:;
1056  T729:;  T729:;
1057          if(!(type_of((V149))==t_cons)){          if(!(type_of((V149))==t_cons)){
1058          goto T735;}          goto T735;}
1059          if(!((car((V149)))==(VV[22]))){          if(!((CMPcar((V149)))==(VV[22]))){
1060          goto T735;}          goto T735;}
1061          if(((*(LnkLI36))(cadr((V149)),(V147)))==Cnil){          if(((*(LnkLI36))(CMPcadr((V149)),(V147)))==Cnil){
1062          goto T735;}          goto T735;}
1063          {register object V151;          {register object V151;
1064          V151= list(2,VV[7],(*(LnkLI28))());          V151= list(2,VV[7],(*(LnkLI28))());
# Line 1090  T735:; Line 1078  T735:;
1078          V146= make_cons((V153),(V146));}          V146= make_cons((V153),(V146));}
1079          goto T733;          goto T733;
1080  T733:;  T733:;
1081          V148= cdr((V148));          V148= CMPcdr((V148));
1082          V149= car((V148));          V149= CMPcar((V148));
1083          goto T728;}}          goto T728;}}
1084          base[0]=base[0];          base[0]=base[0];
1085          return Cnil;          return Cnil;

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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