/[gcl]/gcl/lsp/trace.c
ViewVC logotype

Diff of /gcl/lsp/trace.c

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

revision 1.8 by camm, Wed Feb 26 22:21:37 2003 UTC revision 1.9 by camm, Thu Feb 27 00:07:48 2003 UTC
# Line 17  static void L1() Line 17  static void L1()
17          base[3]= VV[0];          base[3]= VV[0];
18          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
19          return;          return;
20  goto T2;          goto T2;
21  T2:;  T2:;
22          base[3]= list(3,VV[1],VV[2],list(3,VV[3],list(3,VV[4],list(3,VV[5],VV[6],list(2,VV[7],base[2])),VV[8]),VV[9]));          base[3]= list(3,VV[1],VV[2],list(3,VV[3],list(3,VV[4],list(3,VV[5],VV[6],list(2,VV[7],base[2])),VV[8]),VV[9]));
23          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 38  static void L2() Line 38  static void L2()
38          base[3]= VV[10];          base[3]= VV[10];
39          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
40          return;          return;
41  goto T5;          goto T5;
42  T5:;  T5:;
43          base[3]= list(3,VV[5],VV[11],list(2,VV[7],base[2]));          base[3]= list(3,VV[5],VV[11],list(2,VV[7],base[2]));
44          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 56  TTL:; Line 56  TTL:;
56          goto T8;}          goto T8;}
57          V4= make_cons((V4),Cnil);          V4= make_cons((V4),Cnil);
58          goto TTL;          goto TTL;
59  goto T8;          goto T8;
60  T8:;  T8:;
61          {register object V5;          {register object V5;
62          register object V6;          register object V6;
# Line 76  T8:; Line 76  T8:;
76          V11= Ct;          V11= Ct;
77          V12= Cnil;          V12= Cnil;
78          V13= Cnil;          V13= Cnil;
79  goto T16;          goto T16;
80  T16:;  T16:;
81          if(((V5))!=Cnil){          if(((V5))!=Cnil){
82          goto T17;}          goto T17;}
# Line 90  T16:; Line 90  T16:;
90          goto T27;}          goto T27;}
91          V9= list(3,VV[15],(V13),(V12));          V9= list(3,VV[15],(V13),(V12));
92          goto T25;          goto T25;
93  goto T27;          goto T27;
94  T27:;  T27:;
95          V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil);          V9= list(4,VV[16],list(3,VV[15],(V13),(V12)),(V9),Cnil);
96  goto T25;          goto T25;
97  T25:;  T25:;
98          V14= make_cons((V13),small_fixnum(0));          V14= make_cons((V13),small_fixnum(0));
99          V6= make_cons(/* INLINE-ARGS */V14,(V6));          V6= make_cons(/* INLINE-ARGS */V14,(V6));
100          V10= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[19],(V13))),(V10));          V10= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[19],(V13))),(V10));
101          V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11));          V11= list(3,VV[17],list(3,VV[18],(V13),list(2,VV[20],(V13))),(V11));
102  goto T20;          goto T20;
103  T20:;  T20:;
104          V15= car((V4));          V15= car((V4));
105          V16= list(2,VV[7],(V9));          V16= list(2,VV[7],(V9));
# Line 108  T20:; Line 108  T20:;
108          V19= list(2,VV[7],(V11));          V19= list(2,VV[7],(V11));
109          {object V20 = list(7,/* INLINE-ARGS */V15,(V6),/* INLINE-ARGS */V16,/* INLINE-ARGS */V17,/* INLINE-ARGS */V18,/* INLINE-ARGS */V19,list(2,VV[7],(V8)));          {object V20 = list(7,/* INLINE-ARGS */V15,(V6),/* INLINE-ARGS */V16,/* INLINE-ARGS */V17,/* INLINE-ARGS */V18,/* INLINE-ARGS */V19,list(2,VV[7],(V8)));
110          VMR3(V20)}          VMR3(V20)}
111  goto T17;          goto T17;
112  T17:;  T17:;
113          {object V21= car((V5));          {object V21= car((V5));
114          if((V21!= VV[29]))goto T38;          if((V21!= VV[29]))goto T38;
# Line 116  T17:; Line 116  T17:;
116          register object V23;          register object V23;
117          V22= cadr((V5));          V22= cadr((V5));
118          V23= Cnil;          V23= Cnil;
119  goto T42;          goto T42;
120  T42:;  T42:;
121          if(((V22))!=Cnil){          if(((V22))!=Cnil){
122          goto T43;}          goto T43;}
123          V6= (V23);          V6= (V23);
124          goto T39;          goto T39;
125  goto T43;          goto T43;
126  T43:;  T43:;
127          if(!(type_of(car((V22)))==t_symbol)){          if(!(type_of(car((V22)))==t_symbol)){
128          goto T51;}          goto T51;}
129          V24= make_cons(car((V22)),Cnil);          V24= make_cons(car((V22)),Cnil);
130          goto T49;          goto T49;
131  goto T51;          goto T51;
132  T51:;  T51:;
133          V25= caar((V22));          V25= caar((V22));
134          base[0]= cadar((V22));          base[0]= cadar((V22));
# Line 137  T51:; Line 137  T51:;
137          vs_top=sup;          vs_top=sup;
138          V26= vs_base[0];          V26= vs_base[0];
139          V24= make_cons(/* INLINE-ARGS */V25,V26);          V24= make_cons(/* INLINE-ARGS */V25,V26);
140  goto T49;          goto T49;
141  T49:;  T49:;
142          V23= make_cons(V24,(V23));          V23= make_cons(V24,(V23));
143          V22= cdr((V22));          V22= cdr((V22));
144          goto T42;}          goto T42;}
145  goto T39;          goto T39;
146  T39:;  T39:;
147          goto T37;          goto T37;
148  goto T38;          goto T38;
149  T38:;  T38:;
150          if((V21!= VV[98]))goto T58;          if((V21!= VV[98]))goto T58;
151          V9= cadr((V5));          V9= cadr((V5));
152          goto T37;          goto T37;
153  goto T58;          goto T58;
154  T58:;  T58:;
155          if((V21!= VV[99]))goto T60;          if((V21!= VV[99]))goto T60;
156          V10= cadr((V5));          V10= cadr((V5));
157          goto T37;          goto T37;
158  goto T60;          goto T60;
159  T60:;  T60:;
160          if((V21!= VV[100]))goto T62;          if((V21!= VV[100]))goto T62;
161          V7= cadr((V5));          V7= cadr((V5));
162          goto T37;          goto T37;
163  goto T62;          goto T62;
164  T62:;  T62:;
165          if((V21!= VV[101]))goto T64;          if((V21!= VV[101]))goto T64;
166          V11= cadr((V5));          V11= cadr((V5));
167          goto T37;          goto T37;
168  goto T64;          goto T64;
169  T64:;  T64:;
170          if((V21!= VV[102]))goto T66;          if((V21!= VV[102]))goto T66;
171          V8= cadr((V5));          V8= cadr((V5));
172          goto T37;          goto T37;
173  goto T66;          goto T66;
174  T66:;  T66:;
175          if((V21!= VV[28]))goto T68;          if((V21!= VV[28]))goto T68;
176          V12= cadr((V5));          V12= cadr((V5));
177          goto T37;          goto T37;
178  goto T68;          goto T68;
179  T68:;}  T68:;}
180  goto T37;          goto T37;
181  T37:;  T37:;
182          V5= cddr((V5));          V5= cddr((V5));
183          goto T16;}          goto T16;}
# Line 196  TTL:; Line 196  TTL:;
196          goto T73;}          goto T73;}
197          {object V29 = Ct;          {object V29 = Ct;
198          VMR4(V29)}          VMR4(V29)}
199  goto T73;          goto T73;
200  T73:;  T73:;
201          if(!(type_of((V28))==t_cons)){          if(!(type_of((V28))==t_cons)){
202          goto T76;}          goto T76;}
# Line 209  T73:; Line 209  T73:;
209          goto T76;}          goto T76;}
210          {object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil);          {object V31 = (*(LnkLI103))((V28),cdr((V28)),Cnil);
211          VMR4(V31)}          VMR4(V31)}
212  goto T76;          goto T76;
213  T76:;  T76:;
214          base[0]= VV[21];          base[0]= VV[21];
215          base[1]= (V28);          base[1]= (V28);
# Line 237  TTL:; Line 237  TTL:;
237          goto T91;}          goto T91;}
238          V35= car((V34));          V35= car((V34));
239          goto T89;          goto T89;
240  goto T91;          goto T91;
241  T91:;  T91:;
242          V35= list(2,car((V34)),Cnil);          V35= list(2,car((V34)),Cnil);
243  goto T89;          goto T89;
244  T89:;  T89:;
245          if(type_of(car((V35)))==t_symbol){          if(type_of(car((V35)))==t_symbol){
246          goto T93;}          goto T93;}
# Line 249  T89:; Line 249  T89:;
249          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
250          Lerror();          Lerror();
251          vs_top=sup;          vs_top=sup;
252  goto T93;          goto T93;
253  T93:;  T93:;
254          if((cddr((V35)))==Cnil){          if((cddr((V35)))==Cnil){
255          goto T98;}          goto T98;}
# Line 258  T93:; Line 258  T93:;
258          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
259          Lerror();          Lerror();
260          vs_top=sup;          vs_top=sup;
261  goto T98;          goto T98;
262  T98:;  T98:;
263          V37= car((V35));          V37= car((V35));
264          V38= (*(LnkLI104))();          V38= (*(LnkLI104))();
# Line 268  T98:; Line 268  T98:;
268          goto T105;          goto T105;
269          }else V36=V36->c.c_cdr;          }else V36=V36->c.c_cdr;
270          goto T104;}          goto T104;}
271  goto T105;          goto T105;
272  T105:;  T105:;
273          base[0]= VV[24];          base[0]= VV[24];
274          base[1]= car((V35));          base[1]= car((V35));
# Line 277  T105:; Line 277  T105:;
277          vs_top=sup;          vs_top=sup;
278          {object V39 = vs_base[0];          {object V39 = vs_base[0];
279          VMR5(V39)}          VMR5(V39)}
280  goto T104;          goto T104;
281  T104:;  T104:;
282          {object V40 = Cnil;          {object V40 = Cnil;
283          VMR5(V40)}          VMR5(V40)}
284  goto T86;          goto T86;
285  T86:;  T86:;
286          {object V41 = Cnil;          {object V41 = Cnil;
287          VMR5(V41)}}          VMR5(V41)}}
# Line 307  TTL:; Line 307  TTL:;
307          vs_top=sup;          vs_top=sup;
308          {object V48 = vs_base[0];          {object V48 = vs_base[0];
309          VMR6(V48)}          VMR6(V48)}
310  goto T112;          goto T112;
311  T112:;  T112:;
312          {register object x= car((V46)),V49= (V47);          {register object x= car((V46)),V49= (V47);
313          while(!endp(V49))          while(!endp(V49))
# Line 315  T112:; Line 315  T112:;
315          goto T118;          goto T118;
316          }else V49=V49->c.c_cdr;          }else V49=V49->c.c_cdr;
317          goto T117;}          goto T117;}
318  goto T118;          goto T118;
319  T118:;  T118:;
320          base[0]= VV[26];          base[0]= VV[26];
321          base[1]= car((V46));          base[1]= car((V46));
# Line 325  T118:; Line 325  T118:;
325          vs_top=sup;          vs_top=sup;
326          {object V50 = vs_base[0];          {object V50 = vs_base[0];
327          VMR6(V50)}          VMR6(V50)}
328  goto T117;          goto T117;
329  T117:;  T117:;
330          {object V51= car((V46));          {object V51= car((V46));
331          if((V51!= VV[100])          if((V51!= VV[100])
# Line 338  T117:; Line 338  T117:;
338          V47= make_cons(car((V46)),(V47));          V47= make_cons(car((V46)),(V47));
339          V46= (V52);}          V46= (V52);}
340          goto TTL;          goto TTL;
341  goto T122;          goto T122;
342  T122:;  T122:;
343          if((V51!= VV[28]))goto T127;          if((V51!= VV[28]))goto T127;
344          {object V53= cadr((V46));          {object V53= cadr((V46));
# Line 346  T122:; Line 346  T122:;
346          goto T129;}}          goto T129;}}
347          if(number_compare(cadr((V46)),small_fixnum(0))>0){          if(number_compare(cadr((V46)),small_fixnum(0))>0){
348          goto T128;}          goto T128;}
349  goto T129;          goto T129;
350  T129:;  T129:;
351          base[0]= VV[27];          base[0]= VV[27];
352          base[1]= cadr((V46));          base[1]= cadr((V46));
353          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
354          Lerror();          Lerror();
355          vs_top=sup;          vs_top=sup;
356  goto T128;          goto T128;
357  T128:;  T128:;
358          V46= cddr((V46));          V46= cddr((V46));
359          V47= make_cons(VV[28],(V47));          V47= make_cons(VV[28],(V47));
360          goto TTL;          goto TTL;
361  goto T127;          goto T127;
362  T127:;  T127:;
363          if((V51!= VV[29]))goto T139;          if((V51!= VV[29]))goto T139;
364          (void)((*(LnkLI105))(cadr((V46))));          (void)((*(LnkLI105))(cadr((V46))));
365          V46= cddr((V46));          V46= cddr((V46));
366          V47= make_cons(VV[29],(V47));          V47= make_cons(VV[29],(V47));
367          goto TTL;          goto TTL;
368  goto T139;          goto T139;
369  T139:;  T139:;
370          base[0]= VV[30];          base[0]= VV[30];
371          base[1]= (V45);          base[1]= (V45);
# Line 375  T139:; Line 375  T139:;
375          vs_top=sup;          vs_top=sup;
376          {object V54 = vs_base[0];          {object V54 = vs_base[0];
377          VMR6(V54)}}          VMR6(V54)}}
378  goto T109;          goto T109;
379  T109:;  T109:;
380          {object V55 = Cnil;          {object V55 = Cnil;
381          VMR6(V55)}          VMR6(V55)}
# Line 397  TTL:; Line 397  TTL:;
397          goto T151;}          goto T151;}
398          V59= car((V57));          V59= car((V57));
399          goto T149;          goto T149;
400  goto T151;          goto T151;
401  T151:;  T151:;
402          V59= (V57);          V59= (V57);
403  goto T149;          goto T149;
404  T149:;  T149:;
405          base[1]= (V59);          base[1]= (V59);
406          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 416  T149:; Line 416  T149:;
416          vs_top=sup;          vs_top=sup;
417          {object V60 = Cnil;          {object V60 = Cnil;
418          VMR7(V60)}          VMR7(V60)}
419  goto T153;          goto T153;
420  T153:;  T153:;
421          base[1]= (V59);          base[1]= (V59);
422          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 432  T153:; Line 432  T153:;
432          vs_top=sup;          vs_top=sup;
433          {object V61 = Cnil;          {object V61 = Cnil;
434          VMR7(V61)}          VMR7(V61)}
435  goto T161;          goto T161;
436  T161:;  T161:;
437          base[1]= (V59);          base[1]= (V59);
438          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 448  T161:; Line 448  T161:;
448          vs_top=sup;          vs_top=sup;
449          {object V62 = Cnil;          {object V62 = Cnil;
450          VMR7(V62)}          VMR7(V62)}
451  goto T169;          goto T169;
452  T169:;  T169:;
453          if((get((V59),VV[35],Cnil))==Cnil){          if((get((V59),VV[35],Cnil))==Cnil){
454          goto T177;}          goto T177;}
455          (void)((*(LnkLI106))((V59)));          (void)((*(LnkLI106))((V59)));
456  goto T177;          goto T177;
457  T177:;  T177:;
458          (void)((*(LnkLI107))((V57)));          (void)((*(LnkLI107))((V57)));
459          V57= (*(LnkLI108))((V57));          V57= (*(LnkLI108))((V57));
# Line 499  TTL:; Line 499  TTL:;
499          vs_top=sup;          vs_top=sup;
500          V66= cdr((V66));          V66= cdr((V66));
501          goto TTL;          goto TTL;
502  goto T194;          goto T194;
503  T194:;  T194:;
504          {object V67 = Cnil;          {object V67 = Cnil;
505          VMR8(V67)}          VMR8(V67)}
# Line 519  TTL:; Line 519  TTL:;
519          register object V70;          register object V70;
520          V69= symbol_value(VV[40]);          V69= symbol_value(VV[40]);
521          V70= car((V69));          V70= car((V69));
522  goto T206;          goto T206;
523  T206:;  T206:;
524          if(!(endp_prop((V69)))){          if(!(endp_prop((V69)))){
525          goto T207;}          goto T207;}
526          goto T202;          goto T202;
527  goto T207;          goto T207;
528  T207:;  T207:;
529          V68= append((V68),cdr((V70)));          V68= append((V68),cdr((V70)));
530          V69= cdr((V69));          V69= cdr((V69));
531          V70= car((V69));          V70= car((V69));
532          goto T206;}          goto T206;}
533  goto T202;          goto T202;
534  T202:;  T202:;
535          {object V71 = (V68);          {object V71 = (V68);
536          VMR9(V71)}}          VMR9(V71)}}
# Line 571  TTL:; Line 571  TTL:;
571          goto T220;}          goto T220;}
572          V81= (*(LnkLI104))();          V81= (*(LnkLI104))();
573          (void)((*(LnkLI109))(/* INLINE-ARGS */V81));          (void)((*(LnkLI109))(/* INLINE-ARGS */V81));
574  goto T220;          goto T220;
575  T220:;  T220:;
576          V82= list(2,VV[13],list(2,VV[7],(V73)));          V82= list(2,VV[13],list(2,VV[7],(V73)));
577          base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74));          base[8]= list(3,VV[1],make_cons(/* INLINE-ARGS */V82,Cnil),(V74));
# Line 596  T220:; Line 596  T220:;
596          vs_top=sup;          vs_top=sup;
597          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
598          goto T233;}          goto T233;}
599  goto T234;          goto T234;
600  T234:;  T234:;
601          base[8]= symbol_value(VV[31]);          base[8]= symbol_value(VV[31]);
602          base[9]= VV[42];          base[9]= VV[42];
# Line 620  T234:; Line 620  T234:;
620          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
621          Lfresh_line();          Lfresh_line();
622          vs_top=sup;          vs_top=sup;
623  goto T233;          goto T233;
624  T233:;  T233:;
625          base[8]= (V72);          base[8]= (V72);
626          {object V86;          {object V86;
# Line 642  T233:; Line 642  T233:;
642          vs_top=sup;          vs_top=sup;
643          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
644          goto T255;}          goto T255;}
645  goto T256;          goto T256;
646  T256:;  T256:;
647          base[8]= symbol_value(VV[31]);          base[8]= symbol_value(VV[31]);
648          base[9]= VV[44];          base[9]= VV[44];
# Line 662  T256:; Line 662  T256:;
662          vs_top=(vs_base=base+8)+3;          vs_top=(vs_base=base+8)+3;
663          Lformat();          Lformat();
664          vs_top=sup;          vs_top=sup;
665  goto T255;          goto T255;
666  T255:;  T255:;
667          (VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind));          (VV[41]->s.s_dbind)= one_minus((VV[41]->s.s_dbind));
668          base[8]= (V79);          base[8]= (V79);
# Line 670  T255:; Line 670  T255:;
670          Lvalues_list();          Lvalues_list();
671          bds_unwind1;          bds_unwind1;
672          return;          return;
673  goto T224;          goto T224;
674  T224:;  T224:;
675          base[8]= (V72);          base[8]= (V72);
676          {object V89;          {object V89;
# Line 712  TTL:; Line 712  TTL:;
712          Lformat();          Lformat();
713          vs_top=sup;          vs_top=sup;
714          goto T281;          goto T281;
715  goto T283;          goto T283;
716  T283:;  T283:;
717          base[1]= (base[0]->c.c_car);          base[1]= (base[0]->c.c_car);
718          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 745  T283:; Line 745  T283:;
745          siLfset();          siLfset();
746          vs_top=sup;          vs_top=sup;
747          goto T281;          goto T281;
748  goto T290;          goto T290;
749  T290:;  T290:;
750          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
751          base[2]= VV[47];          base[2]= VV[47];
# Line 753  T290:; Line 753  T290:;
753          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
754          Lformat();          Lformat();
755          vs_top=sup;          vs_top=sup;
756  goto T281;          goto T281;
757  T281:;  T281:;
758          V96=          V96=
759          make_cclosure_new(LC17,Cnil,base[0],Cdata);          make_cclosure_new(LC17,Cnil,base[0],Cdata);
760          setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1))));          setq(VV[40],(VFUN_NARGS=4,(*(LnkLI110))(V96,symbol_value(VV[40]),VV[48],small_fixnum(1))));
761          {object V97 = make_cons((base[0]->c.c_car),Cnil);          {object V97 = make_cons((base[0]->c.c_car),Cnil);
762          VMR11(V97)}          VMR11(V97)}
763  goto T277;          goto T277;
764  T277:;  T277:;
765          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[31]);
766          base[2]= VV[49];          base[2]= VV[49];
# Line 786  TTL:; Line 786  TTL:;
786          Lread_char();          Lread_char();
787          vs_top=sup;          vs_top=sup;
788          V99= vs_base[0];          V99= vs_base[0];
789  goto T318;          goto T318;
790  T318:;  T318:;
791          base[0]= (V99);          base[0]= (V99);
792          base[1]= VV[51];          base[1]= VV[51];
# Line 802  T318:; Line 802  T318:;
802          vs_top=sup;          vs_top=sup;
803          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
804          goto T319;}          goto T319;}
805  goto T320;          goto T320;
806  T320:;  T320:;
807          {object V100 = Cnil;          {object V100 = Cnil;
808          VMR12(V100)}          VMR12(V100)}
809  goto T319;          goto T319;
810  T319:;  T319:;
811          base[0]= symbol_value(VV[50]);          base[0]= symbol_value(VV[50]);
812          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 888  static void L16() Line 888  static void L16()
888          V109=(base[1]);          V109=(base[1]);
889          vs_top=sup;          vs_top=sup;
890          goto T337;          goto T337;
891  goto T336;          goto T336;
892  T336:;  T336:;
893          V109= Cnil;          V109= Cnil;
894  goto T337;          goto T337;
895  T337:;  T337:;
896          {VOL object V110;          {VOL object V110;
897          VOL object V111;          VOL object V111;
# Line 908  T337:; Line 908  T337:;
908          Levalhook();          Levalhook();
909          bds_unwind1;          bds_unwind1;
910          return;          return;
911  goto T341;          goto T341;
912  T341:;  T341:;
913          if(!(type_of(symbol_value(VV[62]))==t_fixnum||          if(!(type_of(symbol_value(VV[62]))==t_fixnum||
914  type_of(symbol_value(VV[62]))==t_bignum||  type_of(symbol_value(VV[62]))==t_bignum||
# Line 928  type_of(symbol_value(VV[62]))==t_complex Line 928  type_of(symbol_value(VV[62]))==t_complex
928          Levalhook();          Levalhook();
929          bds_unwind1;          bds_unwind1;
930          return;          return;
931  goto T352;          goto T352;
932  T352:;  T352:;
933          setq(VV[62],Cnil);          setq(VV[62],Cnil);
934  goto T348;          goto T348;
935  T348:;  T348:;
936          if((symbol_value(VV[63]))==Cnil){          if((symbol_value(VV[63]))==Cnil){
937          goto T359;}          goto T359;}
# Line 947  T348:; Line 947  T348:;
947          bds_unwind1;          bds_unwind1;
948          bds_unwind1;          bds_unwind1;
949          return;          return;
950  goto T363;          goto T363;
951  T363:;  T363:;
952          base[3]= (V108);          base[3]= (V108);
953          base[4]= symbol_function(VV[60]);          base[4]= symbol_function(VV[60]);
# Line 957  T363:; Line 957  T363:;
957          Levalhook();          Levalhook();
958          bds_unwind1;          bds_unwind1;
959          return;          return;
960  goto T359;          goto T359;
961  T359:;  T359:;
962          (VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind));          (VV[61]->s.s_dbind)= one_plus((VV[61]->s.s_dbind));
963          V113= number_times((VV[61]->s.s_dbind),small_fixnum(2));          V113= number_times((VV[61]->s.s_dbind),small_fixnum(2));
964          V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20));          V111= (number_compare(/* INLINE-ARGS */V113,small_fixnum(20))<=0?(/* INLINE-ARGS */V113):small_fixnum(20));
965  goto T379;          goto T379;
966  T379:;  T379:;
967          base[3]= symbol_value(VV[50]);          base[3]= symbol_value(VV[50]);
968          base[4]= VV[64];          base[4]= VV[64];
# Line 981  T379:; Line 981  T379:;
981          Lread_char();          Lread_char();
982          vs_top=sup;          vs_top=sup;
983          V116= vs_base[0];          V116= vs_base[0];
984  goto T392;          goto T392;
985  T392:;  T392:;
986          base[3]= (V116);          base[3]= (V116);
987          base[4]= VV[65];          base[4]= VV[65];
# Line 999  T392:; Line 999  T392:;
999          goto T393;}          goto T393;}
1000          V115= (V116);          V115= (V116);
1001          goto T388;          goto T388;
1002  goto T393;          goto T393;
1003  T393:;  T393:;
1004          base[3]= symbol_value(VV[50]);          base[3]= symbol_value(VV[50]);
1005          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1007  T393:; Line 1007  T393:;
1007          vs_top=sup;          vs_top=sup;
1008          V116= vs_base[0];          V116= vs_base[0];
1009          goto T392;}          goto T392;}
1010  goto T388;          goto T388;
1011  T388:;  T388:;
1012          {object V114= V115;          {object V114= V115;
1013          if(!eql(V114,VV[51])          if(!eql(V114,VV[51])
# Line 1022  T388:; Line 1022  T388:;
1022          vs_top=sup;          vs_top=sup;
1023          V110= vs_base[0];          V110= vs_base[0];
1024          goto T377;          goto T377;
1025  goto T407;          goto T407;
1026  T407:;  T407:;
1027          if(!eql(V114,VV[67])          if(!eql(V114,VV[67])
1028          && !eql(V114,VV[68]))goto T415;          && !eql(V114,VV[68]))goto T415;
# Line 1037  T407:; Line 1037  T407:;
1037          vs_top=sup;          vs_top=sup;
1038          V110= vs_base[0];          V110= vs_base[0];
1039          goto T377;          goto T377;
1040  goto T415;          goto T415;
1041  T415:;  T415:;
1042          if(!eql(V114,VV[69])          if(!eql(V114,VV[69])
1043          && !eql(V114,VV[70]))goto T424;          && !eql(V114,VV[70]))goto T424;
# Line 1052  T415:; Line 1052  T415:;
1052          vs_top=sup;          vs_top=sup;
1053          V110= vs_base[0];          V110= vs_base[0];
1054          goto T377;          goto T377;
1055  goto T424;          goto T424;
1056  T424:;  T424:;
1057          if(!eql(V114,VV[71])          if(!eql(V114,VV[71])
1058          && !eql(V114,VV[72]))goto T433;          && !eql(V114,VV[72]))goto T433;
# Line 1071  T424:; Line 1071  T424:;
1071          vs_top=sup;          vs_top=sup;
1072          princ_char(10,Cnil);          princ_char(10,Cnil);
1073          goto T380;          goto T380;
1074  goto T433;          goto T433;
1075  T433:;  T433:;
1076          if(!eql(V114,VV[77])          if(!eql(V114,VV[77])
1077          && !eql(V114,VV[78]))goto T445;          && !eql(V114,VV[78]))goto T445;
# Line 1102  T433:; Line 1102  T433:;
1102          goto T456;}          goto T456;}
1103          base[3]= base[4];          base[3]= base[4];
1104          goto T446;          goto T446;
1105  goto T456;          goto T456;
1106  T456:;  T456:;
1107          base[3]= Cnil;          base[3]= Cnil;
1108          goto T446;          goto T446;
# Line 1111  T456:; Line 1111  T456:;
1111          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1112          vs_top=sup;          vs_top=sup;
1113          base[3]= vs_base[0];}}          base[3]= vs_base[0];}}
1114  goto T446;          goto T446;
1115  T446:;  T446:;
1116          bds_bind(VV[63],base[3]);          bds_bind(VV[63],base[3]);
1117          base[4]= (V108);          base[4]= (V108);
# Line 1125  T446:; Line 1125  T446:;
1125          V110= vs_base[0];          V110= vs_base[0];
1126          bds_unwind1;          bds_unwind1;
1127          goto T377;          goto T377;
1128  goto T445;          goto T445;
1129  T445:;  T445:;
1130          if(!eql(V114,VV[79])          if(!eql(V114,VV[79])
1131          && !eql(V114,VV[80]))goto T465;          && !eql(V114,VV[80]))goto T465;
# Line 1141  T445:; Line 1141  T445:;
1141          vs_top=sup;          vs_top=sup;
1142          V110= vs_base[0];          V110= vs_base[0];
1143          goto T377;          goto T377;
1144  goto T465;          goto T465;
1145  T465:;  T465:;
1146          if(!eql(V114,VV[81])          if(!eql(V114,VV[81])
1147          && !eql(V114,VV[82]))goto T476;          && !eql(V114,VV[82]))goto T476;
# Line 1157  T465:; Line 1157  T465:;
1157          vs_top=sup;          vs_top=sup;
1158          V110= vs_base[0];          V110= vs_base[0];
1159          goto T377;          goto T377;
1160  goto T476;          goto T476;
1161  T476:;  T476:;
1162          if(!eql(V114,VV[83])          if(!eql(V114,VV[83])
1163          && !eql(V114,VV[84]))goto T487;          && !eql(V114,VV[84]))goto T487;
# Line 1197  T476:; Line 1197  T476:;
1197          goto T503;}          goto T503;}
1198          base[9]= base[10];          base[9]= base[10];
1199          goto T493;          goto T493;
1200  goto T503;          goto T503;
1201  T503:;  T503:;
1202          base[9]= Cnil;          base[9]= Cnil;
1203          goto T493;          goto T493;
# Line 1206  T503:; Line 1206  T503:;
1206          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1207          vs_top=sup;          vs_top=sup;
1208          base[9]= vs_base[0];}}          base[9]= vs_base[0];}}
1209  goto T493;          goto T493;
1210  T493:;  T493:;
1211          base[10]= Cnil;          base[10]= Cnil;
1212          base[11]= Cnil;          base[11]= Cnil;
# Line 1229  T493:; Line 1229  T493:;
1229          goto T511;}          goto T511;}
1230          V118= base[6];          V118= base[6];
1231          goto T488;          goto T488;
1232  goto T511;          goto T511;
1233  T511:;  T511:;
1234          V118= Cnil;          V118= Cnil;
1235          goto T488;          goto T488;
# Line 1238  T511:; Line 1238  T511:;
1238          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1239          vs_top=sup;          vs_top=sup;
1240          V118= vs_base[0];}}          V118= vs_base[0];}}
1241  goto T488;          goto T488;
1242  T488:;  T488:;
1243          V119= car((V118));          V119= car((V118));
1244  goto T515;          goto T515;
1245  T515:;  T515:;
1246          if(!(endp_prop((V118)))){          if(!(endp_prop((V118)))){
1247          goto T516;}          goto T516;}
1248          goto T380;          goto T380;
1249  goto T516;          goto T516;
1250  T516:;  T516:;
1251          base[6]= (V119);          base[6]= (V119);
1252          base[7]= VV[73];          base[7]= VV[73];
# Line 1262  T516:; Line 1262  T516:;
1262          V118= cdr((V118));          V118= cdr((V118));
1263          V119= car((V118));          V119= car((V118));
1264          goto T515;}          goto T515;}
1265  goto T487;          goto T487;
1266  T487:;  T487:;
1267          if(!eql(V114,VV[87])          if(!eql(V114,VV[87])
1268          && !eql(V114,VV[88]))goto T534;          && !eql(V114,VV[88]))goto T534;
# Line 1300  T487:; Line 1300  T487:;
1300          goto T551;}          goto T551;}
1301          base[7]= base[8];          base[7]= base[8];
1302          goto T541;          goto T541;
1303  goto T551;          goto T551;
1304  T551:;  T551:;
1305          base[7]= Cnil;          base[7]= Cnil;
1306          goto T541;          goto T541;
# Line 1309  T551:; Line 1309  T551:;
1309          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1310          vs_top=sup;          vs_top=sup;
1311          base[7]= vs_base[0];}}          base[7]= vs_base[0];}}
1312  goto T541;          goto T541;
1313  T541:;  T541:;
1314          base[8]= Cnil;          base[8]= Cnil;
1315          base[9]= Cnil;          base[9]= Cnil;
# Line 1332  T541:; Line 1332  T541:;
1332          goto T559;}          goto T559;}
1333          V110= base[4];          V110= base[4];
1334          goto T536;          goto T536;
1335  goto T559;          goto T559;
1336  T559:;  T559:;
1337          V110= Cnil;          V110= Cnil;
1338          goto T536;          goto T536;
# Line 1341  T559:; Line 1341  T559:;
1341          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
1342          vs_top=sup;          vs_top=sup;
1343          V110= vs_base[0];}}          V110= vs_base[0];}}
1344  goto T536;          goto T536;
1345  T536:;  T536:;
1346          goto T377;          goto T377;
1347  goto T534;          goto T534;
1348  T534:;  T534:;
1349          if(!eql(V114,VV[89])          if(!eql(V114,VV[89])
1350          && !eql(V114,VV[90]))goto T561;          && !eql(V114,VV[90]))goto T561;
# Line 1366  T534:; Line 1366  T534:;
1366          bds_unwind1;          bds_unwind1;
1367          bds_unwind1;          bds_unwind1;
1368          goto T380;          goto T380;
1369  goto T561;          goto T561;
1370  T561:;  T561:;
1371          (void)((*(LnkLI111))());          (void)((*(LnkLI111))());
1372          princ_char(10,Cnil);          princ_char(10,Cnil);
# Line 1376  T561:; Line 1376  T561:;
1376          Lformat();          Lformat();
1377          vs_top=sup;          vs_top=sup;
1378          princ_char(10,Cnil);}          princ_char(10,Cnil);}
1379  goto T380;          goto T380;
1380  T380:;  T380:;
1381          goto T379;          goto T379;
1382  goto T377;          goto T377;
1383  T377:;  T377:;
1384          base[3]= (V108);          base[3]= (V108);
1385          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1391  T377:; Line 1391  T377:;
1391          goto T573;}          goto T573;}
1392          if(!((car((V108)))==(VV[7]))){          if(!((car((V108)))==(VV[7]))){
1393          goto T573;}          goto T573;}
1394  goto T574;          goto T574;
1395  T574:;  T574:;
1396          base[3]= car((V110));          base[3]= car((V110));
1397          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1398          bds_unwind1;          bds_unwind1;
1399          return;          return;
1400  goto T573;          goto T573;
1401  T573:;  T573:;
1402          if(!(endp_prop((V110)))){          if(!(endp_prop((V110)))){
1403          goto T583;}          goto T583;}
# Line 1408  T573:; Line 1408  T573:;
1408          Lformat();          Lformat();
1409          vs_top=sup;          vs_top=sup;
1410          goto T581;          goto T581;
1411  goto T583;          goto T583;
1412  T583:;  T583:;
1413          {object V123;          {object V123;
1414          object V124;          object V124;
1415          V123= (V110);          V123= (V110);
1416          V124= Ct;          V124= Ct;
1417  goto T589;          goto T589;
1418  T589:;  T589:;
1419          if(!(endp_prop((V123)))){          if(!(endp_prop((V123)))){
1420          goto T590;}          goto T590;}
1421          goto T581;          goto T581;
1422  goto T590;          goto T590;
1423  T590:;  T590:;
1424          if(((V124))==Cnil){          if(((V124))==Cnil){
1425          goto T596;}          goto T596;}
# Line 1431  T590:; Line 1431  T590:;
1431          Lformat();          Lformat();
1432          vs_top=sup;          vs_top=sup;
1433          goto T594;          goto T594;
1434  goto T596;          goto T596;
1435  T596:;  T596:;
1436          base[3]= symbol_value(VV[50]);          base[3]= symbol_value(VV[50]);
1437          base[4]= VV[97];          base[4]= VV[97];
# Line 1440  T596:; Line 1440  T596:;
1440          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
1441          Lformat();          Lformat();
1442          vs_top=sup;          vs_top=sup;
1443  goto T594;          goto T594;
1444  T594:;  T594:;
1445          V123= cdr((V123));          V123= cdr((V123));
1446          V124= Cnil;          V124= Cnil;
1447          goto T589;}          goto T589;}
1448  goto T581;          goto T581;
1449  T581:;  T581:;
1450          (VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1));          (VV[61]->s.s_dbind)= number_minus((VV[61]->s.s_dbind),small_fixnum(1));
1451          base[3]= (V110);          base[3]= (V110);

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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