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

Diff of /gcl/cmpnew/gcl_cmpfun.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 14  TTL:; Line 14  TTL:;
14          register object V4;          register object V4;
15          V3= Cnil;          V3= Cnil;
16          V4= (VFUN_NARGS=0,(*(LnkLI208))());          V4= (VFUN_NARGS=0,(*(LnkLI208))());
17          if(!(endp_prop((V2)))){          if(!(((V2))==Cnil)){
18          goto T3;}          goto T3;}
19          (void)((*(LnkLI209))(VV[0],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI209))(VV[0],small_fixnum(1),small_fixnum(0)));
20          goto T3;          goto T3;
21  T3:;  T3:;
22          if(endp_prop(cdr((V2)))){          if((CMPcdr((V2)))==Cnil){
23          goto T6;}          goto T6;}
24          if(endp_prop(cddr((V2)))){          if((CMPcddr((V2)))==Cnil){
25          goto T6;}          goto T6;}
26          V5 = make_fixnum((long)length((V2)));          V5 = CMPmake_fixnum((long)length((V2)));
27          (void)((*(LnkLI210))(VV[0],small_fixnum(2),V5));          (void)((*(LnkLI210))(VV[0],small_fixnum(2),V5));
28          goto T6;          goto T6;
29  T6:;  T6:;
30          if(!(endp_prop(cdr((V2))))){          if(!((CMPcdr((V2)))==Cnil)){
31          goto T14;}          goto T14;}
32          V3= (*(LnkLI211))();          V3= (*(LnkLI211))();
33          goto T12;          goto T12;
34          goto T14;          goto T14;
35  T14:;  T14:;
36          V3= (*(LnkLI212))(cadr((V2)),(V4));          V3= (*(LnkLI212))(CMPcadr((V2)),(V4));
37          goto T12;          goto T12;
38  T12:;  T12:;
39          if(!(type_of(car((V2)))==t_string)){          if(!(type_of(CMPcar((V2)))==t_string)){
40          goto T19;}          goto T19;}
41          V6 = make_fixnum((long)length(car((V2))));          V6 = CMPmake_fixnum((long)length(CMPcar((V2))));
42          if(number_compare(V6,symbol_value(VV[1]))<=0){          if(number_compare(V6,(VV[1]->s.s_dbind))<=0){
43          goto T18;}          goto T18;}
44          goto T19;          goto T19;
45  T19:;  T19:;
46          if(!(type_of(car((V2)))==t_character)){          if(!(type_of(CMPcar((V2)))==t_character)){
47          goto T17;}          goto T17;}
48          goto T18;          goto T18;
49  T18:;  T18:;
50          if(endp_prop(cdr((V2)))){          if((CMPcdr((V2)))==Cnil){
51          goto T16;}          goto T16;}
52          if(!((car((V3)))==(VV[2]))){          if(!((CMPcar((V3)))==(VV[2]))){
53          goto T17;}          goto T17;}
54          V8= structure_ref(caaddr((V3)),VV[2],1);          {register object x= STREF(object,CMPcaaddr((V3)),4),V7= VV[3];
55          {register object x= /* INLINE-ARGS */V8,V7= VV[3];          while(V7!=Cnil)
         while(!endp(V7))  
56          if(eql(x,V7->c.c_car)){          if(eql(x,V7->c.c_car)){
57          goto T28;          goto T28;
58          }else V7=V7->c.c_cdr;          }else V7=V7->c.c_cdr;
# Line 62  T18:; Line 61  T18:;
61  T28:;  T28:;
62          goto T16;          goto T16;
63  T16:;  T16:;
64          V9= car((V2));          V8= CMPcar((V2));
65          if(!(endp_prop(cdr((V2))))){          if(!((CMPcdr((V2)))==Cnil)){
66          goto T31;}          goto T31;}
67          V10= Cnil;          V9= Cnil;
68          goto T29;          goto T29;
69          goto T31;          goto T31;
70  T31:;  T31:;
71          V10= structure_ref(caaddr((V3)),VV[2],4);          V9= STREF(object,CMPcaaddr((V3)),16);
72          goto T29;          goto T29;
73  T29:;  T29:;
74          {object V11 = list(5,VV[0],(V4),/* INLINE-ARGS */V9,V10,(V3));          {object V10 = list(5,VV[0],(V4),/* INLINE-ARGS */V8,V9,(V3));
75          VMR1(V11)}          VMR1(V10)}
76          goto T17;          goto T17;
77  T17:;  T17:;
78          V12= (*(LnkLI212))(car((V2)),(V4));          V11= (*(LnkLI212))(CMPcar((V2)),(V4));
79          {object V13 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V12,(V3)));          {object V12 = list(4,VV[4],(V4),VV[0],list(2,/* INLINE-ARGS */V11,(V3)));
80          VMR1(V13)}}          VMR1(V12)}}
81          base[0]=base[0];          base[0]=base[0];
82          return Cnil;          return Cnil;
83  }  }
84  /*      local entry for function C2PRINC        */  /*      local entry for function C2PRINC        */
85    
86  static object LI2(V17,V18,V19)  static object LI2(V16,V17,V18)
87    
88  register object V17;register object V18;object V19;  register object V16;register object V17;object V18;
89  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
90          goto TTL;          goto TTL;
91  TTL:;  TTL:;
92          if(!((symbol_value(VV[5]))==(VV[6]))){          if(!(((VV[5]->s.s_dbind))==(VV[6]))){
93          goto T34;}          goto T34;}
94          if(!(type_of((V17))==t_character)){          if(!(type_of((V16))==t_character)){
95          goto T38;}          goto T38;}
96          princ_str("\n   princ_char(",VV[7]);          princ_str("\n   princ_char(",VV[7]);
97          base[0]= (V17);          base[0]= (V16);
98          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
99          Lchar_code();          Lchar_code();
100          vs_top=sup;          vs_top=sup;
101          V20= vs_base[0];          V19= vs_base[0];
102          (void)((*(LnkLI213))(V20));          (void)((*(LnkLI213))(V19));
103          if(((V18))!=Cnil){          if(((V17))!=Cnil){
104          goto T47;}          goto T47;}
105          princ_str(",Cnil",VV[7]);          princ_str(",Cnil",VV[7]);
106          goto T45;          goto T45;
107          goto T47;          goto T47;
108  T47:;  T47:;
109          princ_str(",VV[",VV[7]);          princ_str(",VV[",VV[7]);
110          (void)((*(LnkLI213))((V18)));          (void)((*(LnkLI213))((V17)));
111          princ_char(93,VV[7]);          princ_char(93,VV[7]);
112          goto T45;          goto T45;
113  T45:;  T45:;
# Line 116  T45:; Line 115  T45:;
115          goto T36;          goto T36;
116          goto T38;          goto T38;
117  T38:;  T38:;
118          if(!(((long)length((V17)))==(1))){          if(!(((long)length((V16)))==(1))){
119          goto T55;}          goto T55;}
120          princ_str("\n   princ_char(",VV[7]);          princ_str("\n   princ_char(",VV[7]);
121          base[0]= aref1((V17),0);          base[0]= aref1((V16),fix(small_fixnum(0)));
122          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
123          Lchar_code();          Lchar_code();
124          vs_top=sup;          vs_top=sup;
125          V21= vs_base[0];          V20= vs_base[0];
126          (void)((*(LnkLI213))(V21));          (void)((*(LnkLI213))(V20));
127          if(((V18))!=Cnil){          if(((V17))!=Cnil){
128          goto T64;}          goto T64;}
129          princ_str(",Cnil",VV[7]);          princ_str(",Cnil",VV[7]);
130          goto T62;          goto T62;
131          goto T64;          goto T64;
132  T64:;  T64:;
133          princ_str(",VV[",VV[7]);          princ_str(",VV[",VV[7]);
134          (void)((*(LnkLI213))((V18)));          (void)((*(LnkLI213))((V17)));
135          princ_char(93,VV[7]);          princ_char(93,VV[7]);
136          goto T62;          goto T62;
137  T62:;  T62:;
# Line 141  T62:; Line 140  T62:;
140          goto T55;          goto T55;
141  T55:;  T55:;
142          princ_str("\n   princ_str(\"",VV[7]);          princ_str("\n   princ_str(\"",VV[7]);
143          {register long V22;          {register long V21;
144          register long V23;          register long V22;
145          V22= (long)length((V17));          V21= (long)length((V16));
146          V23= 0;          V22= 0;
147          goto T77;          goto T77;
148  T77:;  T77:;
149          if(!((V23)>=(V22))){          if(!((V22)>=(V21))){
150          goto T78;}          goto T78;}
151          goto T73;          goto T73;
152          goto T78;          goto T78;
153  T78:;  T78:;
154          {register object V24;          {register object V23;
155          V24= elt((V17),V23);          V24 = CMPmake_fixnum(V22);
156          base[0]= (V24);          V23= code_char(((V16))->ust.ust_self[fix(V24)]);
157          base[1]= VV[8];          if(!(char_code((V23))==char_code(VV[8]))){
         vs_top=(vs_base=base+0)+2;  
         Lchar_eq();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
158          goto T85;}          goto T85;}
159          princ_str("\\\\",VV[7]);          princ_str("\\\\",VV[7]);
160          goto T82;          goto T82;
161          goto T85;          goto T85;
162  T85:;  T85:;
163          base[0]= (V24);          if(!(char_code((V23))==char_code(VV[9]))){
164          base[1]= VV[9];          goto T89;}
         vs_top=(vs_base=base+0)+2;  
         Lchar_eq();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T91;}  
165          princ_str("\\\"",VV[7]);          princ_str("\\\"",VV[7]);
166          goto T82;          goto T82;
167          goto T91;          goto T89;
168  T91:;  T89:;
169          base[0]= (V24);          if(!(char_code((V23))==char_code(VV[10]))){
170          base[1]= VV[10];          goto T93;}
         vs_top=(vs_base=base+0)+2;  
         Lchar_eq();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T97;}  
171          princ_str("\\n",VV[7]);          princ_str("\\n",VV[7]);
172          goto T82;          goto T82;
173          goto T97;          goto T93;
174  T97:;  T93:;
175          (void)((*(LnkLI213))((V24)));}          (void)((*(LnkLI213))((V23)));}
176          goto T82;          goto T82;
177  T82:;  T82:;
178          V23= (long)(V23)+1;          V22= (long)(V22)+1;
179          goto T77;}          goto T77;}
180          goto T73;          goto T73;
181  T73:;  T73:;
182          princ_str("\",",VV[7]);          princ_str("\",",VV[7]);
183          if(((V18))!=Cnil){          if(((V17))!=Cnil){
184          goto T110;}          goto T104;}
185          princ_str("Cnil",VV[7]);          princ_str("Cnil",VV[7]);
186          goto T108;          goto T102;
187          goto T110;          goto T104;
188  T110:;  T104:;
189          princ_str("VV[",VV[7]);          princ_str("VV[",VV[7]);
190          (void)((*(LnkLI213))((V18)));          (void)((*(LnkLI213))((V17)));
191          princ_char(93,VV[7]);          princ_char(93,VV[7]);
192          goto T108;          goto T102;
193  T108:;  T102:;
194          princ_str(");",VV[7]);          princ_str(");",VV[7]);
195          goto T36;          goto T36;
196  T36:;  T36:;
# Line 213  T36:; Line 198  T36:;
198          VMR2(V25)}          VMR2(V25)}
199          goto T34;          goto T34;
200  T34:;  T34:;
201          if(!(eql((V17),VV[10]))){          if(type_of(V16)==t_character){
202            goto T114;}
203            goto T112;
204            goto T114;
205    T114:;
206            if(!(((long)(10))==((long)(char_code(V16))))){
207            goto T112;}
208            V27= make_cons((V18),Cnil);
209            {object V28 = (*(LnkLI215))(VV[11],/* INLINE-ARGS */V27,Cnil,Ct);
210            VMR2(V28)}
211            goto T112;
212    T112:;
213            if(!(type_of((V16))==t_character)){
214          goto T118;}          goto T118;}
215          V26= make_cons((V19),Cnil);          V29= VV[14];
216          {object V27 = (*(LnkLI215))(VV[11],/* INLINE-ARGS */V26,Cnil,Ct);          goto T116;
         VMR2(V27)}  
217          goto T118;          goto T118;
218  T118:;  T118:;
219          if(!(type_of((V17))==t_character)){          V29= VV[15];
220          goto T122;}          goto T116;
221          V28= VV[14];  T116:;
222          goto T120;          V30= (VFUN_NARGS=2,(*(LnkLI208))(VV[13],V29));
223          goto T122;          V31= list(2,list(3,VV[12],/* INLINE-ARGS */V30,list(2,VV[16],(*(LnkLI216))((V16)))),(V18));
224  T122:;          {object V32 = (*(LnkLI215))(VV[0],/* INLINE-ARGS */V31,Cnil,Ct);
225          V28= VV[15];          VMR2(V32)}
         goto T120;  
 T120:;  
         V29= (VFUN_NARGS=2,(*(LnkLI208))(VV[13],V28));  
         V30= list(2,list(3,VV[12],/* INLINE-ARGS */V29,list(2,VV[16],(*(LnkLI216))((V17)))),(V19));  
         {object V31 = (*(LnkLI215))(VV[0],/* INLINE-ARGS */V30,Cnil,Ct);  
         VMR2(V31)}  
226          base[0]=base[0];          base[0]=base[0];
227          return Cnil;          return Cnil;
228  }  }
229  /*      local entry for function C1TERPRI       */  /*      local entry for function C1TERPRI       */
230    
231  static object LI3(V33)  static object LI3(V34)
232    
233  register object V33;  register object V34;
234  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
235          goto TTL;          goto TTL;
236  TTL:;  TTL:;
237          {register object V34;          {register object V35;
238          object V35;          object V36;
239          V34= Cnil;          V35= Cnil;
240          V35= (VFUN_NARGS=0,(*(LnkLI208))());          V36= (VFUN_NARGS=0,(*(LnkLI208))());
241          if(endp_prop((V33))){          if(((V34))==Cnil){
242          goto T126;}          goto T122;}
243          if(endp_prop(cdr((V33)))){          if((CMPcdr((V34)))==Cnil){
244          goto T126;}          goto T122;}
245          V36 = make_fixnum((long)length((V33)));          V37 = CMPmake_fixnum((long)length((V34)));
246          (void)((*(LnkLI210))(VV[11],small_fixnum(1),V36));          (void)((*(LnkLI210))(VV[11],small_fixnum(1),V37));
247          goto T126;          goto T122;
248  T126:;  T122:;
249          if(!(endp_prop((V33)))){          if(!(((V34))==Cnil)){
250          goto T134;}          goto T130;}
251          V34= (*(LnkLI211))();          V35= (*(LnkLI211))();
252          goto T132;          goto T128;
253          goto T134;          goto T130;
254  T134:;  T130:;
255          V34= (*(LnkLI212))(car((V33)),(V35));          V35= (*(LnkLI212))(CMPcar((V34)),(V36));
256            goto T128;
257    T128:;
258            if(((V34))==Cnil){
259            goto T132;}
260            if(!((CMPcar((V35)))==(VV[2]))){
261            goto T133;}
262            {register object x= STREF(object,CMPcaaddr((V35)),4),V38= VV[17];
263            while(V38!=Cnil)
264            if(eql(x,V38->c.c_car)){
265            goto T138;
266            }else V38=V38->c.c_cdr;
267            goto T133;}
268            goto T138;
269    T138:;
270          goto T132;          goto T132;
271  T132:;  T132:;
272          if(endp_prop((V33))){          if(!(((V34))==Cnil)){
273          goto T136;}          goto T141;}
         if(!((car((V34)))==(VV[2]))){  
         goto T137;}  
         V38= structure_ref(caaddr((V34)),VV[2],1);  
         {register object x= /* INLINE-ARGS */V38,V37= VV[17];  
         while(!endp(V37))  
         if(eql(x,V37->c.c_car)){  
         goto T142;  
         }else V37=V37->c.c_cdr;  
         goto T137;}  
         goto T142;  
 T142:;  
         goto T136;  
 T136:;  
         if(!(endp_prop((V33)))){  
         goto T145;}  
274          V39= Cnil;          V39= Cnil;
275          goto T143;          goto T139;
276          goto T145;          goto T141;
277  T145:;  T141:;
278          V39= structure_ref(caaddr((V34)),VV[2],4);          V39= STREF(object,CMPcaaddr((V35)),16);
279          goto T143;          goto T139;
280  T143:;  T139:;
281          {object V40 = list(5,VV[0],(V35),VV[10],V39,(V34));          {object V40 = list(5,VV[0],(V36),VV[10],V39,(V35));
282          VMR3(V40)}          VMR3(V40)}
283          goto T137;          goto T133;
284  T137:;  T133:;
285          {object V41 = list(4,VV[4],(V35),VV[11],make_cons((V34),Cnil));          {object V41 = list(4,VV[4],(V36),VV[11],make_cons((V35),Cnil));
286          VMR3(V41)}}          VMR3(V41)}}
287          base[0]=base[0];          base[0]=base[0];
288          return Cnil;          return Cnil;
# Line 308  register object V43; Line 297  register object V43;
297  TTL:;  TTL:;
298          {register object V44;          {register object V44;
299          V44= Cnil;          V44= Cnil;
300          if(endp_prop((V43))){          if(((V43))==Cnil){
301          goto T149;}          goto T145;}
302          if(!(endp_prop(cdr((V43))))){          if(!((CMPcdr((V43)))==Cnil)){
303          goto T148;}          goto T144;}
304          goto T149;          goto T145;
305  T149:;  T145:;
306          V45 = make_fixnum((long)length((V43)));          V45 = CMPmake_fixnum((long)length((V43)));
307          (void)((*(LnkLI209))(VV[18],small_fixnum(2),V45));          (void)((*(LnkLI209))(VV[18],small_fixnum(2),V45));
308          goto T148;          goto T144;
309  T148:;  T144:;
310          {register object V46;          {register object V46;
311          V46= (*(LnkLI217))(car((V43)));          V46= (*(LnkLI217))(CMPcar((V43)));
312          base[0]= cadr((V46));          base[0]= CMPcadr((V46));
313          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
314          (void) (*Lnk218)();          (void) (*Lnk218)();
315          vs_top=sup;          vs_top=sup;
316          V44= vs_base[0];          V44= vs_base[0];
317          V43= (*(LnkLI219))(cdr((V43)),(V44));          V43= (*(LnkLI219))(CMPcdr((V43)),(V44));
318          if(!((car((V46)))==(VV[19]))){          if(!((CMPcar((V46)))==(VV[19]))){
319          goto T160;}          goto T156;}
320          {object V47;          {object V47;
321          register object V48;          register object V48;
322          V47= caddr((V46));          V47= CMPcaddr((V46));
323          V48= caddr((V47));          V48= CMPcaddr((V47));
324          if((cadr((V48)))!=Cnil){          if((CMPcadr((V48)))!=Cnil){
325          goto T165;}          goto T161;}
326          if((cadddr((V48)))!=Cnil){          if((CMPcadddr((V48)))!=Cnil){
327          goto T165;}          goto T161;}
328          {object V49 = (*(LnkLI220))((V44),car((V48)),caddr((V48)),car(cddddr((V47))),(V43));          {object V49 = (*(LnkLI220))((V44),CMPcar((V48)),CMPcaddr((V48)),CMPcar(CMPcddddr((V47))),(V43));
329          VMR4(V49)}          VMR4(V49)}
330          goto T165;          goto T161;
331  T165:;  T161:;
332          {object V50 = list(4,VV[18],(V44),(V46),(V43));          {object V50 = list(4,VV[18],(V44),(V46),(V43));
333          VMR4(V50)}}          VMR4(V50)}}
334          goto T160;          goto T156;
335  T160:;  T156:;
336          {object V51 = list(4,VV[18],(V44),(V46),(V43));          {object V51 = list(4,VV[18],(V44),(V46),(V43));
337          VMR4(V51)}}}          VMR4(V51)}}}
338          base[0]=base[0];          base[0]=base[0];
# Line 359  object V54;object V55; Line 348  object V54;object V55;
348          goto TTL;          goto TTL;
349  TTL:;  TTL:;
350          {object V56;          {object V56;
351          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
352          V56= Cnil;          V56= Cnil;
353          V56= (*(LnkLI221))((V54));          V56= (*(LnkLI221))((V54));
354          {object V57;          {object V57;
355          register object V58;          register object V58;
356          base[1]= (VV[20]->s.s_dbind);          base[1]= (VV[20]->s.s_dbind);
357          V57= (VV[20]->s.s_dbind);          V57= (VV[20]->s.s_dbind);
358          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          (VV[22]->s.s_dbind)= number_plus((VV[22]->s.s_dbind),small_fixnum(1));
359          V58= list(2,VV[21],symbol_value(VV[22]));          V58= list(2,VV[21],(VV[22]->s.s_dbind));
360          bds_bind(VV[20],base[1]);          bds_bind(VV[20],base[1]);
361          {register object V59;          {register object V59;
362          V59= (V55);          V59= (V55);
363          goto T179;          goto T175;
364  T179:;  T175:;
365          if(!(endp_prop(cdr((V59))))){          if(!((CMPcdr((V59)))==Cnil)){
366          goto T180;}          goto T176;}
367          princ_str("\n   {object ",VV[7]);          princ_str("\n   {object ",VV[7]);
368          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
369          princ_char(59,VV[7]);          princ_char(59,VV[7]);
370          bds_bind(VV[5],(V58));          bds_bind(VV[5],(V58));
371          V60= (*(LnkLI222))(car((V59)));          V60= (*(LnkLI222))(CMPcar((V59)));
372          bds_unwind1;          bds_unwind1;
373          goto T177;          goto T173;
374          goto T180;          goto T176;
375  T180:;  T176:;
376          base[2]= list(2,VV[23],(*(LnkLI223))());          base[2]= list(2,VV[23],(*(LnkLI223))());
377          bds_bind(VV[5],base[2]);          bds_bind(VV[5],base[2]);
378          V61= (*(LnkLI222))(car((V59)));          V61= (*(LnkLI222))(CMPcar((V59)));
379          bds_unwind1;          bds_unwind1;
380          V59= cdr((V59));          V59= CMPcdr((V59));
381          goto T179;}          goto T175;}
382          goto T177;          goto T173;
383  T177:;  T173:;
384          princ_str("\n    vs_top=base+",VV[7]);          princ_str("\n    vs_top=base+",VV[7]);
385          (void)((*(LnkLI213))((VV[20]->s.s_dbind)));          (void)((*(LnkLI213))((VV[20]->s.s_dbind)));
386          princ_char(59,VV[7]);          princ_char(59,VV[7]);
387          setq(VV[24],Ct);          (VV[24]->s.s_dbind)= Ct;
388          if((symbol_value(VV[25]))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
389          goto T201;}          goto T197;}
390          princ_str("\n    while(!endp(",VV[7]);          princ_str("\n    while(!endp(",VV[7]);
391          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
392          princ_str("))",VV[7]);          princ_str("))",VV[7]);
# Line 408  T177:; Line 397  T177:;
397          princ_str("=cdr(",VV[7]);          princ_str("=cdr(",VV[7]);
398          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
399          princ_str(");}",VV[7]);          princ_str(");}",VV[7]);
400          goto T199;          goto T195;
401          goto T201;          goto T197;
402  T201:;  T197:;
403          princ_str("\n    while(",VV[7]);          princ_str("\n    while(",VV[7]);
404          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
405          princ_str("!=Cnil)",VV[7]);          princ_str("!=Cnil)",VV[7]);
# Line 421  T201:; Line 410  T201:;
410          princ_str("=(",VV[7]);          princ_str("=(",VV[7]);
411          (void)((*(LnkLI213))((V58)));          (void)((*(LnkLI213))((V58)));
412          princ_str(")->c.c_cdr;}",VV[7]);          princ_str(")->c.c_cdr;}",VV[7]);
413          goto T199;          goto T195;
414  T199:;  T195:;
415          princ_str("\n   vs_base=base+",VV[7]);          princ_str("\n   vs_base=base+",VV[7]);
416          (void)((*(LnkLI213))((V57)));          (void)((*(LnkLI213))((V57)));
417          princ_str(";}",VV[7]);          princ_str(";}",VV[7]);
418          setq(VV[24],Ct);          (VV[24]->s.s_dbind)= Ct;
419          bds_unwind1;}          bds_unwind1;}
420          {object V62 = (VFUN_NARGS=3,(*(LnkLI224))((V54),VV[26],(V56)));          {object V62 = (VFUN_NARGS=3,(*(LnkLI224))((V54),VV[26],(V56)));
421          bds_unwind1;          bds_unwind1;
# Line 446  TTL:; Line 435  TTL:;
435          register object V74;          register object V74;
436          V73= Cnil;          V73= Cnil;
437          V74= Cnil;          V74= Cnil;
438          goto T236;          goto T232;
439  T236:;  T232:;
440          if(endp_prop(cdr((V72)))){          if((CMPcdr((V72)))==Cnil){
441          goto T238;}          goto T234;}
442          if(!(endp_prop((V69)))){          if(!(((V69))==Cnil)){
443          goto T237;}          goto T233;}
         goto T238;  
 T238:;  
444          goto T234;          goto T234;
445          goto T237;  T234:;
446  T237:;          goto T230;
447            goto T233;
448    T233:;
449          {register object V75;          {register object V75;
450          {register object V76;          {register object V76;
451          V76= car((V69));          V76= CMPcar((V69));
452          V69= cdr((V69));          V69= CMPcdr((V69));
453          V75= (V76);}          V75= (V76);}
454          V73= make_cons((V75),(V73));}          V73= make_cons((V75),(V73));}
455          {register object V77;          {register object V77;
456          {register object V78;          {register object V78;
457          V78= car((V72));          V78= CMPcar((V72));
458          V72= cdr((V72));          V72= CMPcdr((V72));
459          V77= (V78);}          V77= (V78);}
460          V74= make_cons((V77),(V74));}          V74= make_cons((V77),(V74));}
461          goto T236;          goto T232;
462          goto T234;          goto T230;
463  T234:;  T230:;
464          if((cdr((V72)))==Cnil){          if((CMPcdr((V72)))==Cnil){
465          goto T258;}          goto T254;}
466          if(((V70))!=Cnil){          if(((V70))!=Cnil){
467          goto T260;}          goto T256;}
468          (void)((VFUN_NARGS=1,(*(LnkLI225))(VV[27])));          (void)((VFUN_NARGS=1,(*(LnkLI225))(VV[27])));
469          goto T260;          goto T256;
470  T260:;  T256:;
471          V73= make_cons(V70,(V73));          V73= make_cons(V70,(V73));
472          {object V80;          {object V80;
473          V80= list(4,VV[4],(V68),VV[28],(V72));          V80= list(4,VV[4],(V68),VV[28],(V72));
# Line 486  T260:; Line 475  T260:;
475          V81= reverse((V73));          V81= reverse((V73));
476          {object V82 = list(5,VV[29],(V68),/* INLINE-ARGS */V81,reverse((V74)),(V71));          {object V82 = list(5,VV[29],(V68),/* INLINE-ARGS */V81,reverse((V74)),(V71));
477          VMR6(V82)}          VMR6(V82)}
478          goto T258;          goto T254;
479  T258:;  T254:;
480          if(((V69))==Cnil){          if(((V69))==Cnil){
481          goto T269;}          goto T265;}
482          {object V83;          {object V83;
483          V83= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));          V83= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));
484          V73= make_cons(V83,(V73));          V73= make_cons(V83,(V73));
485          {object V85;          {object V85;
486          V85= car((V72));          V85= CMPcar((V72));
487          V74= make_cons((V85),(V74));}          V74= make_cons((V85),(V74));}
488          V86= reverse((V73));          V86= reverse((V73));
489          V87= reverse((V74));          V87= reverse((V74));
490          {object V88 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,/* INLINE-ARGS */V87,list(6,VV[33],cadr((V71)),(V83),(V69),(V70),(V71)));          {object V88 = list(5,VV[29],(V68),/* INLINE-ARGS */V86,/* INLINE-ARGS */V87,list(6,VV[33],CMPcadr((V71)),(V83),(V69),(V70),(V71)));
491          VMR6(V88)}}          VMR6(V88)}}
492          goto T269;          goto T265;
493  T269:;  T265:;
494          if(((V70))==Cnil){          if(((V70))==Cnil){
495          goto T278;}          goto T274;}
496          V73= make_cons(V70,(V73));          V73= make_cons(V70,(V73));
497          {object V90;          {object V90;
498          V90= car((V72));          V90= CMPcar((V72));
499          V74= make_cons((V90),(V74));}          V74= make_cons((V90),(V74));}
500          V91= reverse((V73));          V91= reverse((V73));
501          {object V92 = list(5,VV[29],(V68),/* INLINE-ARGS */V91,reverse((V74)),(V71));          {object V92 = list(5,VV[29],(V68),/* INLINE-ARGS */V91,reverse((V74)),(V71));
502          VMR6(V92)}          VMR6(V92)}
503          goto T278;          goto T274;
504  T278:;  T274:;
505          {object V93;          {object V93;
506          V93= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));          V93= (VFUN_NARGS=4,(*(LnkLI226))(VV[30],VV[31],VV[32],Ct));
507          V73= make_cons(V93,(V73));          V73= make_cons(V93,(V73));
508          {object V95;          {object V95;
509          V95= car((V72));          V95= CMPcar((V72));
510          V74= make_cons((V95),(V74));}          V74= make_cons((V95),(V74));}
511          V96= reverse((V73));          V96= reverse((V73));
512          V97= reverse((V74));          V97= reverse((V74));
513          {object V98 = list(5,VV[29],(V68),/* INLINE-ARGS */V96,/* INLINE-ARGS */V97,list(6,VV[33],cadr((V71)),(V93),(V69),(V70),(V71)));          {object V98 = list(5,VV[29],(V68),/* INLINE-ARGS */V96,/* INLINE-ARGS */V97,list(6,VV[33],CMPcadr((V71)),(V93),(V69),(V70),(V71)));
514          VMR6(V98)}}}          VMR6(V98)}}}
515          base[0]=base[0];          base[0]=base[0];
516          return Cnil;          return Cnil;
# Line 531  T278:; Line 520  T278:;
520  static void L7()  static void L7()
521  {register object *base=vs_base;  {register object *base=vs_base;
522          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
523          vs_reserve(VM7);          vs_check;
524          bds_check;          bds_check;
525          {object V99;          {object V99;
526          object V100;          object V100;
527          object V101;          object V101;
528          object V102;          object V102;
         check_arg(4);  
529          V99=(base[0]);          V99=(base[0]);
530          V100=(base[1]);          V100=(base[1]);
531          V101=(base[2]);          V101=(base[2]);
# Line 545  static void L7() Line 533  static void L7()
533          vs_top=sup;          vs_top=sup;
534          goto TTL;          goto TTL;
535  TTL:;  TTL:;
536          bds_bind(VV[34],symbol_value(VV[34]));          bds_bind(VV[34],(VV[34]->s.s_dbind));
537          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
538          bds_bind(VV[35],symbol_value(VV[35]));          bds_bind(VV[35],(VV[35]->s.s_dbind));
539          bds_bind(VV[36],symbol_value(VV[36]));          bds_bind(VV[36],(VV[36]->s.s_dbind));
540          if((symbol_value(VV[25]))!=Cnil){          if(((VV[25]->s.s_dbind))!=Cnil){
541          goto T292;}          goto T288;}
542          if((symbol_value(VV[37]))==Cnil){          if(((VV[37]->s.s_dbind))==Cnil){
543          goto T291;}          goto T287;}
544          goto T292;          goto T288;
545  T292:;  T288:;
546          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
547          if(((V101))==Cnil){          if(((V101))==Cnil){
548          goto T301;}          goto T297;}
549          V103= VV[38];          V103= VV[38];
550          goto T299;          goto T295;
551          goto T301;          goto T297;
552  T301:;  T297:;
553          V103= VV[39];          V103= VV[39];
554          goto T299;          goto T295;
555  T299:;  T295:;
556          (void)((*(LnkLI213))(V103));          (void)((*(LnkLI213))(V103));
557          princ_char(40,VV[7]);          princ_char(40,VV[7]);
558          V104 = make_fixnum((long)length((V100)));          V104 = CMPmake_fixnum((long)length((V100)));
559          (void)((*(LnkLI213))(V104));          (void)((*(LnkLI213))(V104));
560          princ_char(44,VV[7]);          princ_char(44,VV[7]);
561          (void)((*(LnkLI227))((V99),Cnil));          (void)((*(LnkLI227))((V99),Cnil));
562          princ_str(");",VV[7]);          princ_str(");",VV[7]);
563          goto T291;          goto T287;
564  T291:;  T287:;
565          {object V105;          {object V105;
566          object V106;          object V106;
567          V105= (V100);          V105= (V100);
568          V106= car((V105));          V106= CMPcar((V105));
         goto T312;  
 T312:;  
         if(!(endp_prop((V105)))){  
         goto T313;}  
         goto T308;  
         goto T313;  
 T313:;  
         V107= (*(LnkLI223))();  
         (void)(structure_set((V106),VV[2],2,/* INLINE-ARGS */V107));  
         V105= cdr((V105));  
         V106= car((V105));  
         goto T312;}  
569          goto T308;          goto T308;
570  T308:;  T308:;
571            if(!(((V105))==Cnil)){
572            goto T309;}
573            goto T304;
574            goto T309;
575    T309:;
576            V107= (*(LnkLI223))();
577            V108= Ct;
578            STSET(object,(V106),8, /* INLINE-ARGS */V107);
579            (void)(/* INLINE-ARGS */V107);
580            V105= CMPcdr((V105));
581            V106= CMPcar((V105));
582            goto T308;}
583            goto T304;
584    T304:;
585          if(((V101))==Cnil){          if(((V101))==Cnil){
586          goto T323;}          goto T319;}
587          V108= (*(LnkLI223))();          V109= (*(LnkLI223))();
588          (void)(structure_set((V101),VV[2],2,/* INLINE-ARGS */V108));          V110= Ct;
589          goto T323;          STSET(object,(V101),8, /* INLINE-ARGS */V109);
590  T323:;          (void)(/* INLINE-ARGS */V109);
591          {register long V109;          goto T319;
592          object V110;  T319:;
593          V109= 0;          {register long V111;
594          V110= (V100);          object V112;
595          goto T329;          V111= 0;
596  T329:;          V112= (V100);
597          if(!(endp_prop((V110)))){          goto T325;
598          goto T330;}  T325:;
599          if(((V101))==Cnil){          if(!(((V112))==Cnil)){
600          goto T326;}          goto T326;}
601            if(((V101))==Cnil){
602            goto T322;}
603          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
604          V111= structure_ref((V101),VV[2],2);          (void)((*(LnkLI228))(STREF(object,(V101),8)));
         (void)((*(LnkLI228))(/* INLINE-ARGS */V111));  
605          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
606          {long V112;          {long V113;
607          register long V113;          register long V114;
608          V112= V109;          V113= V111;
609          V113= 0;          V114= 0;
         goto T343;  
 T343:;  
         if(!((V113)>=(V112))){  
         goto T344;}  
         goto T339;  
         goto T344;  
 T344:;  
         princ_char(40,VV[7]);  
         V113= (long)(V113)+1;  
         goto T343;}  
610          goto T339;          goto T339;
611  T339:;  T339:;
612            if(!((V114)>=(V113))){
613            goto T340;}
614            goto T335;
615            goto T340;
616    T340:;
617            princ_char(40,VV[7]);
618            V114= (long)(V114)+1;
619            goto T339;}
620            goto T335;
621    T335:;
622          (void)((*(LnkLI227))((V99),Cnil));          (void)((*(LnkLI227))((V99),Cnil));
623          {long V114;          {long V115;
624          register long V115;          register long V116;
625          V114= V109;          V115= V111;
626          V115= 0;          V116= 0;
         goto T358;  
 T358:;  
         if(!((V115)>=(V114))){  
         goto T359;}  
         goto T354;  
         goto T359;  
 T359:;  
         princ_str("\n   )->c.c_cdr",VV[7]);  
         V115= (long)(V115)+1;  
         goto T358;}  
627          goto T354;          goto T354;
628  T354:;  T354:;
629            if(!((V116)>=(V115))){
630            goto T355;}
631            goto T350;
632            goto T355;
633    T355:;
634            princ_str("\n   )->c.c_cdr",VV[7]);
635            V116= (long)(V116)+1;
636            goto T354;}
637            goto T350;
638    T350:;
639          princ_char(59,VV[7]);          princ_char(59,VV[7]);
640            goto T322;
641          goto T326;          goto T326;
642          goto T330;  T326:;
 T330:;  
643          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
644          V116= structure_ref(car((V110)),VV[2],2);          (void)((*(LnkLI228))(STREF(object,CMPcar((V112)),8)));
         (void)((*(LnkLI228))(/* INLINE-ARGS */V116));  
645          princ_str("=(",VV[7]);          princ_str("=(",VV[7]);
646          {long V117;          {long V117;
647          register long V118;          register long V118;
648          V117= V109;          V117= V111;
649          V118= 0;          V118= 0;
         goto T378;  
 T378:;  
         if(!((V118)>=(V117))){  
         goto T379;}  
650          goto T374;          goto T374;
651          goto T379;  T374:;
652  T379:;          if(!((V118)>=(V117))){
653            goto T375;}
654            goto T370;
655            goto T375;
656    T375:;
657          princ_char(40,VV[7]);          princ_char(40,VV[7]);
658          V118= (long)(V118)+1;          V118= (long)(V118)+1;
659          goto T378;}          goto T374;}
660          goto T374;          goto T370;
661  T374:;  T370:;
662          (void)((*(LnkLI227))((V99),Cnil));          (void)((*(LnkLI227))((V99),Cnil));
663          {long V119;          {long V119;
664          register long V120;          register long V120;
665          V119= V109;          V119= V111;
666          V120= 0;          V120= 0;
         goto T393;  
 T393:;  
         if(!((V120)>=(V119))){  
         goto T394;}  
667          goto T389;          goto T389;
668          goto T394;  T389:;
669  T394:;          if(!((V120)>=(V119))){
670            goto T390;}
671            goto T385;
672            goto T390;
673    T390:;
674          princ_str("\n   )->c.c_cdr",VV[7]);          princ_str("\n   )->c.c_cdr",VV[7]);
675          V120= (long)(V120)+1;          V120= (long)(V120)+1;
676          goto T393;}          goto T389;}
677          goto T389;          goto T385;
678  T389:;  T385:;
679          princ_str(")->c.c_car;",VV[7]);          princ_str(")->c.c_car;",VV[7]);
680          V109= (long)(V109)+1;          V111= (long)(V111)+1;
681          V110= cdr((V110));          V112= CMPcdr((V112));
682          goto T329;}          goto T325;}
683          goto T326;          goto T322;
684  T326:;  T322:;
685          {object V121;          {object V121;
686          object V122;          object V122;
687          V121= (V100);          V121= (V100);
688          V122= car((V121));          V122= CMPcar((V121));
         goto T413;  
 T413:;  
         if(!(endp_prop((V121)))){  
         goto T414;}  
         goto T409;  
         goto T414;  
 T414:;  
         (void)((*(LnkLI229))((V122)));  
         V121= cdr((V121));  
         V122= car((V121));  
         goto T413;}  
689          goto T409;          goto T409;
690  T409:;  T409:;
691            if(!(((V121))==Cnil)){
692            goto T410;}
693            goto T405;
694            goto T410;
695    T410:;
696            (void)((*(LnkLI229))((V122)));
697            V121= CMPcdr((V121));
698            V122= CMPcar((V121));
699            goto T409;}
700            goto T405;
701    T405:;
702          if(((V101))==Cnil){          if(((V101))==Cnil){
703          goto T424;}          goto T420;}
704          (void)((*(LnkLI229))((V101)));          (void)((*(LnkLI229))((V101)));
705          goto T424;          goto T420;
706  T424:;  T420:;
707          base[8]= (V102);          base[8]= (V102);
708          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
709          (void) (*Lnk230)();          (void) (*Lnk230)();
# Line 736  TTL:; Line 726  TTL:;
726          object V126;          object V126;
727          V125= Cnil;          V125= Cnil;
728          V126= (VFUN_NARGS=0,(*(LnkLI208))());          V126= (VFUN_NARGS=0,(*(LnkLI208))());
729          if(!(endp_prop((V124)))){          if(!(((V124))==Cnil)){
730          goto T430;}          goto T426;}
731          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));          (void)((*(LnkLI209))(VV[40],small_fixnum(1),small_fixnum(0)));
732          goto T430;          goto T426;
733  T430:;  T426:;
734          V125= (*(LnkLI217))(car((V124)));          V125= (*(LnkLI217))(CMPcar((V124)));
735          (void)((*(LnkLI231))((V126),cadr((V125))));          (void)((*(LnkLI231))((V126),CMPcadr((V125))));
736          {object V127 = list(4,VV[40],(V126),(V125),(*(LnkLI219))(cdr((V124)),(V126)));          {object V127 = list(4,VV[40],(V126),(V125),(*(LnkLI219))(CMPcdr((V124)),(V126)));
737          VMR8(V127)}}          VMR8(V127)}}
738          base[0]=base[0];          base[0]=base[0];
739          return Cnil;          return Cnil;
# Line 758  register object V129; Line 748  register object V129;
748  TTL:;  TTL:;
749          {object V130;          {object V130;
750          V130= (VFUN_NARGS=0,(*(LnkLI208))());          V130= (VFUN_NARGS=0,(*(LnkLI208))());
751          if(endp_prop((V129))){          if(((V129))==Cnil){
752            goto T434;}
753            if(!((CMPcdr((V129)))==Cnil)){
754            goto T433;}
755            goto T434;
756    T434:;
757            V131 = CMPmake_fixnum((long)length((V129)));
758            (void)((*(LnkLI209))(VV[41],small_fixnum(2),V131));
759            goto T433;
760    T433:;
761            if((CMPcddr((V129)))==Cnil){
762          goto T438;}          goto T438;}
763          if(!(endp_prop(cdr((V129))))){          V132 = CMPmake_fixnum((long)length((V129)));
764          goto T437;}          (void)((*(LnkLI210))(VV[41],small_fixnum(2),V132));
765          goto T438;          goto T438;
766  T438:;  T438:;
         V131 = make_fixnum((long)length((V129)));  
         (void)((*(LnkLI209))(VV[41],small_fixnum(2),V131));  
         goto T437;  
 T437:;  
         if(endp_prop(cddr((V129)))){  
         goto T442;}  
         V132 = make_fixnum((long)length((V129)));  
         (void)((*(LnkLI210))(VV[41],small_fixnum(2),V132));  
         goto T442;  
 T442:;  
767          V129= (*(LnkLI219))((V129),(V130));          V129= (*(LnkLI219))((V129),(V130));
768          {object V133 = list(3,VV[41],(V130),(V129));          {object V133 = list(3,VV[41],(V130),(V129));
769          VMR9(V133)}}          VMR9(V133)}}
# Line 789  register object V135; Line 779  register object V135;
779          bds_check;          bds_check;
780          goto TTL;          goto TTL;
781  TTL:;  TTL:;
782          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
783          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
784          V135= (VFUN_NARGS=2,(*(LnkLI232))((V135),VV[43]));          V135= (VFUN_NARGS=2,(*(LnkLI232))((V135),VV[43]));
785          if((symbol_value(VV[25]))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
786          goto T449;}          goto T445;}
787          princ_str("\n   if(type_of(",VV[7]);          princ_str("\n   if(type_of(",VV[7]);
788          (void)((*(LnkLI213))(car((V135))));          (void)((*(LnkLI213))(CMPcar((V135))));
789          princ_str(")!=t_cons)",VV[7]);          princ_str(")!=t_cons)",VV[7]);
790          princ_str("FEwrong_type_argument(Scons,",VV[7]);          princ_str("FEwrong_type_argument(Scons,",VV[7]);
791          (void)((*(LnkLI213))(car((V135))));          (void)((*(LnkLI213))(CMPcar((V135))));
792          princ_str(");",VV[7]);          princ_str(");",VV[7]);
793          goto T449;          goto T445;
794  T449:;  T445:;
795          princ_str("\n   (",VV[7]);          princ_str("\n   (",VV[7]);
796          (void)((*(LnkLI213))(car((V135))));          (void)((*(LnkLI213))(CMPcar((V135))));
797          princ_str(")->c.c_car = ",VV[7]);          princ_str(")->c.c_car = ",VV[7]);
798          (void)((*(LnkLI213))(cadr((V135))));          (void)((*(LnkLI213))(CMPcadr((V135))));
799          princ_char(59,VV[7]);          princ_char(59,VV[7]);
800          (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V135)))));          (void)((VFUN_NARGS=1,(*(LnkLI214))(CMPcar((V135)))));
801          {object V136 = (*(LnkLI233))();          {object V136 = (*(LnkLI233))();
802          bds_unwind1;          bds_unwind1;
803          bds_unwind1;          bds_unwind1;
# Line 825  register object V138; Line 815  register object V138;
815  TTL:;  TTL:;
816          {object V139;          {object V139;
817          V139= (VFUN_NARGS=0,(*(LnkLI208))());          V139= (VFUN_NARGS=0,(*(LnkLI208))());
818          if(endp_prop((V138))){          if(((V138))==Cnil){
819            goto T463;}
820            if(!((CMPcdr((V138)))==Cnil)){
821            goto T462;}
822            goto T463;
823    T463:;
824            V140 = CMPmake_fixnum((long)length((V138)));
825            (void)((*(LnkLI209))(VV[44],small_fixnum(2),V140));
826            goto T462;
827    T462:;
828            if((CMPcddr((V138)))==Cnil){
829          goto T467;}          goto T467;}
830          if(!(endp_prop(cdr((V138))))){          V141 = CMPmake_fixnum((long)length((V138)));
831          goto T466;}          (void)((*(LnkLI210))(VV[44],small_fixnum(2),V141));
832          goto T467;          goto T467;
833  T467:;  T467:;
         V140 = make_fixnum((long)length((V138)));  
         (void)((*(LnkLI209))(VV[44],small_fixnum(2),V140));  
         goto T466;  
 T466:;  
         if(endp_prop(cddr((V138)))){  
         goto T471;}  
         V141 = make_fixnum((long)length((V138)));  
         (void)((*(LnkLI210))(VV[44],small_fixnum(2),V141));  
         goto T471;  
 T471:;  
834          V138= (*(LnkLI219))((V138),(V139));          V138= (*(LnkLI219))((V138),(V139));
835          {object V142 = list(3,VV[44],(V139),(V138));          {object V142 = list(3,VV[44],(V139),(V138));
836          VMR11(V142)}}          VMR11(V142)}}
# Line 856  register object V144; Line 846  register object V144;
846          bds_check;          bds_check;
847          goto TTL;          goto TTL;
848  TTL:;  TTL:;
849          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
850          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
851          V144= (VFUN_NARGS=2,(*(LnkLI232))((V144),VV[45]));          V144= (VFUN_NARGS=2,(*(LnkLI232))((V144),VV[45]));
852          if((symbol_value(VV[25]))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
853          goto T478;}          goto T474;}
854          princ_str("\n   if(type_of(",VV[7]);          princ_str("\n   if(type_of(",VV[7]);
855          (void)((*(LnkLI213))(car((V144))));          (void)((*(LnkLI213))(CMPcar((V144))));
856          princ_str(")!=t_cons)",VV[7]);          princ_str(")!=t_cons)",VV[7]);
857          princ_str("FEwrong_type_argument(Scons,",VV[7]);          princ_str("FEwrong_type_argument(Scons,",VV[7]);
858          (void)((*(LnkLI213))(car((V144))));          (void)((*(LnkLI213))(CMPcar((V144))));
859          princ_str(");",VV[7]);          princ_str(");",VV[7]);
860          goto T478;          goto T474;
861  T478:;  T474:;
862          princ_str("\n   (",VV[7]);          princ_str("\n   (",VV[7]);
863          (void)((*(LnkLI213))(car((V144))));          (void)((*(LnkLI213))(CMPcar((V144))));
864          princ_str(")->c.c_cdr = ",VV[7]);          princ_str(")->c.c_cdr = ",VV[7]);
865          (void)((*(LnkLI213))(cadr((V144))));          (void)((*(LnkLI213))(CMPcadr((V144))));
866          princ_char(59,VV[7]);          princ_char(59,VV[7]);
867          (void)((VFUN_NARGS=1,(*(LnkLI214))(car((V144)))));          (void)((VFUN_NARGS=1,(*(LnkLI214))(CMPcar((V144)))));
868          {object V145 = (*(LnkLI233))();          {object V145 = (*(LnkLI233))();
869          bds_unwind1;          bds_unwind1;
870          bds_unwind1;          bds_unwind1;
# Line 892  register object V147; Line 882  register object V147;
882  TTL:;  TTL:;
883          {object V148;          {object V148;
884          V148= (VFUN_NARGS=0,(*(LnkLI208))());          V148= (VFUN_NARGS=0,(*(LnkLI208))());
885          if(endp_prop((V147))){          if(((V147))==Cnil){
886            goto T492;}
887            if(!((CMPcdr((V147)))==Cnil)){
888            goto T491;}
889            goto T492;
890    T492:;
891            V149 = CMPmake_fixnum((long)length((V147)));
892            (void)((*(LnkLI209))(VV[46],small_fixnum(2),V149));
893            goto T491;
894    T491:;
895            if((CMPcddr((V147)))==Cnil){
896          goto T496;}          goto T496;}
897          if(!(endp_prop(cdr((V147))))){          V150 = CMPmake_fixnum((long)length((V147)));
898          goto T495;}          (void)((*(LnkLI210))(VV[46],small_fixnum(2),V150));
899          goto T496;          goto T496;
900  T496:;  T496:;
901          V149 = make_fixnum((long)length((V147)));          V151= list(2,CMPcar((V147)),CMPcadr((V147)));
         (void)((*(LnkLI209))(VV[46],small_fixnum(2),V149));  
         goto T495;  
 T495:;  
         if(endp_prop(cddr((V147)))){  
         goto T500;}  
         V150 = make_fixnum((long)length((V147)));  
         (void)((*(LnkLI210))(VV[46],small_fixnum(2),V150));  
         goto T500;  
 T500:;  
         V151= list(2,car((V147)),cadr((V147)));  
902          {object V152 = list(4,VV[47],(V148),VV[48],(*(LnkLI219))(/* INLINE-ARGS */V151,(V148)));          {object V152 = list(4,VV[47],(V148),VV[48],(*(LnkLI219))(/* INLINE-ARGS */V151,(V148)));
903          VMR13(V152)}}          VMR13(V152)}}
904          base[0]=base[0];          base[0]=base[0];
# Line 924  register object V154; Line 914  register object V154;
914  TTL:;  TTL:;
915          {register object V155;          {register object V155;
916          V155= (VFUN_NARGS=0,(*(LnkLI208))());          V155= (VFUN_NARGS=0,(*(LnkLI208))());
917          if(endp_prop((V154))){          if(((V154))==Cnil){
918          goto T505;}          goto T501;}
919          if(!(endp_prop(cdr((V154))))){          if(!((CMPcdr((V154)))==Cnil)){
920          goto T504;}          goto T500;}
921          goto T505;          goto T501;
922  T505:;  T501:;
923          V156 = make_fixnum((long)length((V154)));          V156 = CMPmake_fixnum((long)length((V154)));
924          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V156));          (void)((*(LnkLI209))(VV[49],small_fixnum(2),V156));
925          goto T504;          goto T500;
926  T504:;  T500:;
927          if(!(endp_prop(cddr((V154))))){          if(!((CMPcddr((V154)))==Cnil)){
928          goto T510;}          goto T506;}
929          {object V157 = list(4,VV[47],(V155),VV[50],(*(LnkLI219))((V154),(V155)));          {object V157 = list(4,VV[47],(V155),VV[50],(*(LnkLI219))((V154),(V155)));
930          VMR14(V157)}          VMR14(V157)}
931          goto T510;          goto T506;
932  T510:;  T506:;
933          if(!((caddr((V154)))==(VV[51]))){          if(!((CMPcaddr((V154)))==(VV[51]))){
934          goto T513;}          goto T509;}
935          if(!(((long)length((V154)))==(4))){          if(!(((long)length((V154)))==(4))){
936          goto T513;}          goto T509;}
937          {register object x= cadddr((V154)),V158= VV[52];          {register object x= CMPcadddr((V154)),V158= VV[52];
938          while(!endp(V158))          while(V158!=Cnil)
939          if(equal(x,V158->c.c_car)){          if(equal(x,V158->c.c_car)){
940          goto T518;          goto T514;
941          }else V158=V158->c.c_cdr;          }else V158=V158->c.c_cdr;
942          goto T513;}          goto T509;}
943          goto T518;          goto T514;
944  T518:;  T514:;
945          V159= cadr(cadddr((V154)));          V159= CMPcadr(CMPcadddr((V154)));
946          V160= list(2,car((V154)),cadr((V154)));          V160= list(2,CMPcar((V154)),CMPcadr((V154)));
947          {object V161 = list(4,VV[47],(V155),/* INLINE-ARGS */V159,(*(LnkLI219))(/* INLINE-ARGS */V160,(V155)));          {object V161 = list(4,VV[47],(V155),/* INLINE-ARGS */V159,(*(LnkLI219))(/* INLINE-ARGS */V160,(V155)));
948          VMR14(V161)}          VMR14(V161)}
949          goto T513;          goto T509;
950  T513:;  T509:;
951          {object V162 = list(4,VV[4],(V155),VV[49],(*(LnkLI219))((V154),(V155)));          {object V162 = list(4,VV[4],(V155),VV[49],(*(LnkLI219))((V154),(V155)));
952          VMR14(V162)}}          VMR14(V162)}}
953          base[0]=base[0];          base[0]=base[0];
# Line 973  object V165;register object V166; Line 963  object V165;register object V166;
963          goto TTL;          goto TTL;
964  TTL:;  TTL:;
965          {register object V167;          {register object V167;
966          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
967          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
968          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          (VV[22]->s.s_dbind)= number_plus((VV[22]->s.s_dbind),small_fixnum(1));
969          V167= symbol_value(VV[22]);          V167= (VV[22]->s.s_dbind);
970          V166= (VFUN_NARGS=2,(*(LnkLI232))((V166),VV[53]));          V166= (VFUN_NARGS=2,(*(LnkLI232))((V166),VV[53]));
971          princ_str("\n   {register object x= ",VV[7]);          princ_str("\n   {register object x= ",VV[7]);
972          (void)((*(LnkLI213))(car((V166))));          (void)((*(LnkLI213))(CMPcar((V166))));
973          princ_str(",V",VV[7]);          princ_str(",V",VV[7]);
974          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
975          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
976          (void)((*(LnkLI213))(cadr((V166))));          (void)((*(LnkLI213))(CMPcadr((V166))));
977          princ_char(59,VV[7]);          princ_char(59,VV[7]);
978          if((symbol_value(VV[25]))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
979          goto T533;}          goto T529;}
980          princ_str("\n   while(!endp(V",VV[7]);          princ_str("\n   while(!endp(V",VV[7]);
981          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
982          princ_str("))",VV[7]);          princ_str("))",VV[7]);
983          goto T531;          goto T527;
984          goto T533;          goto T529;
985  T533:;  T529:;
986          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
987          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
988          princ_str("!=Cnil)",VV[7]);          princ_str("!=Cnil)",VV[7]);
989          goto T531;          goto T527;
990  T531:;  T527:;
991          if(!(((V165))==(VV[48]))){          if(!(((V165))==(VV[48]))){
992          goto T543;}          goto T539;}
993          princ_str("\n   if(x==(V",VV[7]);          princ_str("\n   if(x==(V",VV[7]);
994          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
995          princ_str("->c.c_car)){",VV[7]);          princ_str("->c.c_car)){",VV[7]);
996          goto T541;          goto T537;
997          goto T543;          goto T539;
998  T543:;  T539:;
999          princ_str("\n   if(",VV[7]);          princ_str("\n   if(",VV[7]);
1000          base[3]= symbol_name((V165));          base[3]= symbol_name((V165));
1001          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 1016  T543:; Line 1006  T543:;
1006          princ_str("(x,V",VV[7]);          princ_str("(x,V",VV[7]);
1007          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
1008          princ_str("->c.c_car)){",VV[7]);          princ_str("->c.c_car)){",VV[7]);
1009          goto T541;          goto T537;
1010  T541:;  T537:;
1011          if(!(type_of(symbol_value(VV[5]))==t_cons)){          if(!(type_of((VV[5]->s.s_dbind))==t_cons)){
1012          goto T557;}          goto T553;}
1013          if((car(symbol_value(VV[5])))==(VV[54])){          if((CMPcar((VV[5]->s.s_dbind)))==(VV[54])){
1014          goto T556;}          goto T552;}
1015          if(!((car(symbol_value(VV[5])))==(VV[55]))){          if(!((CMPcar((VV[5]->s.s_dbind)))==(VV[55]))){
1016          goto T557;}          goto T553;}
1017          goto T556;          goto T552;
1018  T556:;  T552:;
1019          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1020          goto T555;          goto T551;
1021          goto T557;          goto T553;
1022  T557:;  T553:;
1023          V169= list(2,VV[21],(V167));          V169= list(2,VV[21],(V167));
1024          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V169,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V169,VV[56])));
1025          goto T555;          goto T551;
1026  T555:;  T551:;
1027          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1028          (void)((*(LnkLI213))((V167)));          (void)((*(LnkLI213))((V167)));
1029          princ_str("=V",VV[7]);          princ_str("=V",VV[7]);
# Line 1058  register object V172; Line 1048  register object V172;
1048  TTL:;  TTL:;
1049          {register object V173;          {register object V173;
1050          V173= (VFUN_NARGS=0,(*(LnkLI208))());          V173= (VFUN_NARGS=0,(*(LnkLI208))());
1051          if(endp_prop((V172))){          if(((V172))==Cnil){
1052          goto T574;}          goto T570;}
1053          if(!(endp_prop(cdr((V172))))){          if(!((CMPcdr((V172)))==Cnil)){
1054          goto T573;}          goto T569;}
1055          goto T574;          goto T570;
1056  T574:;  T570:;
1057          V174 = make_fixnum((long)length((V172)));          V174 = CMPmake_fixnum((long)length((V172)));
1058          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V174));          (void)((*(LnkLI209))(VV[57],small_fixnum(2),V174));
1059          goto T573;          goto T569;
1060  T573:;  T569:;
1061          if(!(endp_prop(cddr((V172))))){          if(!((CMPcddr((V172)))==Cnil)){
1062          goto T579;}          goto T575;}
1063          {object V175 = list(4,VV[58],(V173),VV[50],(*(LnkLI219))((V172),(V173)));          {object V175 = list(4,VV[58],(V173),VV[50],(*(LnkLI219))((V172),(V173)));
1064          VMR16(V175)}          VMR16(V175)}
1065          goto T579;          goto T575;
1066  T579:;  T575:;
1067          if(!((caddr((V172)))==(VV[51]))){          if(!((CMPcaddr((V172)))==(VV[51]))){
1068          goto T582;}          goto T578;}
1069          if(!(((long)length((V172)))==(4))){          if(!(((long)length((V172)))==(4))){
1070          goto T582;}          goto T578;}
1071          {register object x= cadddr((V172)),V176= VV[59];          {register object x= CMPcadddr((V172)),V176= VV[59];
1072          while(!endp(V176))          while(V176!=Cnil)
1073          if(equal(x,V176->c.c_car)){          if(equal(x,V176->c.c_car)){
1074          goto T587;          goto T583;
1075          }else V176=V176->c.c_cdr;          }else V176=V176->c.c_cdr;
1076          goto T582;}          goto T578;}
1077          goto T587;          goto T583;
1078  T587:;  T583:;
1079          V177= cadr(cadddr((V172)));          V177= CMPcadr(CMPcadddr((V172)));
1080          V178= list(2,car((V172)),cadr((V172)));          V178= list(2,CMPcar((V172)),CMPcadr((V172)));
1081          {object V179 = list(4,VV[58],(V173),/* INLINE-ARGS */V177,(*(LnkLI219))(/* INLINE-ARGS */V178,(V173)));          {object V179 = list(4,VV[58],(V173),/* INLINE-ARGS */V177,(*(LnkLI219))(/* INLINE-ARGS */V178,(V173)));
1082          VMR16(V179)}          VMR16(V179)}
1083          goto T582;          goto T578;
1084  T582:;  T578:;
1085          {object V180 = list(4,VV[4],(V173),VV[57],(*(LnkLI219))((V172),(V173)));          {object V180 = list(4,VV[4],(V173),VV[57],(*(LnkLI219))((V172),(V173)));
1086          VMR16(V180)}}          VMR16(V180)}}
1087          base[0]=base[0];          base[0]=base[0];
# Line 1108  object V183;register object V184; Line 1098  object V183;register object V184;
1098  TTL:;  TTL:;
1099          {register object V185;          {register object V185;
1100          register object V186;          register object V186;
1101          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
1102          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
1103          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          (VV[22]->s.s_dbind)= number_plus((VV[22]->s.s_dbind),small_fixnum(1));
1104          V185= symbol_value(VV[22]);          V185= (VV[22]->s.s_dbind);
1105          V186= Cnil;          V186= Cnil;
1106          V184= (VFUN_NARGS=2,(*(LnkLI232))((V184),VV[60]));          V184= (VFUN_NARGS=2,(*(LnkLI232))((V184),VV[60]));
1107          V186= symbol_name((V183));          V186= symbol_name((V183));
1108          if(!(((V183))==(VV[48]))){          if(!(((V183))==(VV[48]))){
1109          goto T596;}          goto T592;}
1110          goto T595;          goto T591;
1111          goto T596;          goto T592;
1112  T596:;  T592:;
1113          base[3]= (V186);          base[3]= (V186);
1114          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1115          Lstring_downcase();          Lstring_downcase();
1116          vs_top=sup;          vs_top=sup;
1117          V186= vs_base[0];          V186= vs_base[0];
1118          goto T595;          goto T591;
1119  T595:;  T591:;
1120          princ_str("\n   {register object x= ",VV[7]);          princ_str("\n   {register object x= ",VV[7]);
1121          (void)((*(LnkLI213))(car((V184))));          (void)((*(LnkLI213))(CMPcar((V184))));
1122          princ_str(",V",VV[7]);          princ_str(",V",VV[7]);
1123          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1124          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
1125          (void)((*(LnkLI213))(cadr((V184))));          (void)((*(LnkLI213))(CMPcadr((V184))));
1126          princ_char(59,VV[7]);          princ_char(59,VV[7]);
1127          if((symbol_value(VV[25]))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
1128          goto T610;}          goto T606;}
1129          princ_str("\n   while(!endp(V",VV[7]);          princ_str("\n   while(!endp(V",VV[7]);
1130          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1131          princ_str("))",VV[7]);          princ_str("))",VV[7]);
# Line 1146  T595:; Line 1136  T595:;
1136          princ_str("(x,V",VV[7]);          princ_str("(x,V",VV[7]);
1137          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1138          princ_str("->c.c_car->c.c_car)){",VV[7]);          princ_str("->c.c_car->c.c_car)){",VV[7]);
1139          goto T608;          goto T604;
1140          goto T610;          goto T606;
1141  T610:;  T606:;
1142          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
1143          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1144          princ_str("!=Cnil)",VV[7]);          princ_str("!=Cnil)",VV[7]);
# Line 1160  T610:; Line 1150  T610:;
1150          princ_char(86,VV[7]);          princ_char(86,VV[7]);
1151          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1152          princ_str("->c.c_car != Cnil){",VV[7]);          princ_str("->c.c_car != Cnil){",VV[7]);
1153          goto T608;          goto T604;
1154  T608:;  T604:;
1155          if(!(type_of(symbol_value(VV[5]))==t_cons)){          if(!(type_of((VV[5]->s.s_dbind))==t_cons)){
1156          goto T637;}          goto T633;}
1157          if((car(symbol_value(VV[5])))==(VV[54])){          if((CMPcar((VV[5]->s.s_dbind)))==(VV[54])){
1158          goto T636;}          goto T632;}
1159          if(!((car(symbol_value(VV[5])))==(VV[55]))){          if(!((CMPcar((VV[5]->s.s_dbind)))==(VV[55]))){
1160          goto T637;}          goto T633;}
1161          goto T636;          goto T632;
1162  T636:;  T632:;
1163          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(Ct,VV[56])));
1164          goto T635;          goto T631;
1165          goto T637;          goto T633;
1166  T637:;  T633:;
1167          V187= list(2,VV[61],(V185));          V187= list(2,VV[61],(V185));
1168          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V187,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V187,VV[56])));
1169          goto T635;          goto T631;
1170  T635:;  T631:;
1171          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1172          (void)((*(LnkLI213))((V185)));          (void)((*(LnkLI213))((V185)));
1173          princ_str("=V",VV[7]);          princ_str("=V",VV[7]);
# Line 1192  T635:; Line 1182  T635:;
1182          base[0]=base[0];          base[0]=base[0];
1183          return Cnil;          return Cnil;
1184  }  }
1185  /*      function definition for BOOLE3  */  /*      local entry for function BOOLE3 */
1186    
1187  static void L18()  static object LI18(V192,V193,V194)
1188  {register object *base=vs_base;  
1189          register object *sup=base+VM18; VC18  object V192;object V193;object V194;
1190          vs_reserve(VM18);  {        VMB18 VMS18 VMV18
         {object V189;  
         object V190;  
         object V191;  
         check_arg(3);  
         V189=(base[0]);  
         V190=(base[1]);  
         V191=(base[2]);  
         vs_top=sup;  
1191          goto TTL;          goto TTL;
1192  TTL:;  TTL:;
1193          base[3]= (V189);          base[0]= (V192);
1194          base[4]= (V190);          base[1]= (V193);
1195          base[5]= (V191);          base[2]= (V194);
1196          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+0)+3;
1197          Lboole();          Lboole();
1198          return;          vs_top=sup;
1199          }          {object V195 = vs_base[0];
1200            VMR18(V195)}
1201            base[0]=base[0];
1202            return Cnil;
1203  }  }
1204  /*      local entry for function C1BOOLE-CONDITION      */  /*      local entry for function C1BOOLE-CONDITION      */
1205    
1206  static object LI19(V193)  static object LI19(V197)
1207    
1208  object V193;  object V197;
1209  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1210          goto TTL;          goto TTL;
1211  TTL:;  TTL:;
1212          if(((endp_prop(cddr((V193)))?Ct:Cnil))==Cnil){          if((((CMPcddr((V197)))==Cnil?Ct:Cnil))==Cnil){
1213          goto T655;}          goto T651;}
1214          {object V194 = Cnil;          {object V198 = Cnil;
1215          VMR19(V194)}          VMR19(V198)}
1216          goto T655;          goto T651;
1217  T655:;  T651:;
1218          if(endp_prop(cdddr((V193)))){          if((CMPcdddr((V197)))==Cnil){
1219          goto T657;}          goto T653;}
1220          {object V195 = Cnil;          {object V199 = Cnil;
1221          VMR19(V195)}          VMR19(V199)}
1222          goto T657;          goto T653;
1223  T657:;  T653:;
1224          {object V196 = (*(LnkLI234))(car((V193)));          {object V200 = (*(LnkLI234))(CMPcar((V197)));
1225          VMR19(V196)}          VMR19(V200)}
1226          return Cnil;          return Cnil;
1227  }  }
1228  /*      local entry for function C1BOOLE3       */  /*      local entry for function C1BOOLE3       */
1229    
1230  static object LI20(V198)  static object LI20(V202)
1231    
1232  object V198;  object V202;
1233  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1234          goto TTL;          goto TTL;
1235  TTL:;  TTL:;
1236          V199= make_cons(VV[62],(V198));          V203= make_cons(VV[62],(V202));
1237          {object V200 = (*(LnkLI235))(/* INLINE-ARGS */V199);          {object V204 = (*(LnkLI235))(/* INLINE-ARGS */V203);
1238          VMR20(V200)}          VMR20(V204)}
1239          return Cnil;          return Cnil;
1240  }  }
1241  /*      function definition for INLINE-BOOLE3   */  /*      function definition for INLINE-BOOLE3   */
# Line 1258  TTL:; Line 1243  TTL:;
1243  static void L21()  static void L21()
1244  {register object *base=vs_base;  {register object *base=vs_base;
1245          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1246          vs_reserve(VM21);          vs_check;
1247          {object V201;          {object V205;
1248          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1249          {object *p=vs_top;          {object *p=vs_top;
1250           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1251          V201=(base[0]);          V205=(base[0]);
1252          vs_top=sup;          vs_top=sup;
1253          {object V202;          {object V206;
1254          V202= cadr(car((V201)));          V206= CMPcadr(CMPcar((V205)));
1255          if(!((car((V202)))==(VV[63]))){          if(!((CMPcar((V206)))==(VV[63]))){
1256          goto T661;}          goto T657;}
1257          goto T660;          goto T656;
1258          goto T661;          goto T657;
1259  T661:;  T657:;
1260          base[1]= VV[64];          base[1]= VV[64];
1261          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1262          Lerror();          Lerror();
1263          vs_top=sup;          vs_top=sup;
1264          goto T660;          goto T656;
1265  T660:;  T656:;
1266          {object V203;          {object V207;
1267          V203= (*(LnkLI234))(caddr((V202)));          V207= (*(LnkLI234))(CMPcaddr((V206)));
1268          if((V203)!=Cnil){          if((V207)!=Cnil){
1269          goto T665;}          goto T661;}
1270          base[1]= VV[65];          base[1]= VV[65];
1271          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1272          Lerror();          Lerror();
1273          vs_top=sup;          vs_top=sup;
1274          goto T665;          goto T661;
1275  T665:;  T661:;
1276          base[1]= (V203);          base[1]= (V207);
1277          base[2]= cdr((V201));          base[2]= CMPcdr((V205));
1278          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1279          (void) (*Lnk236)();          (void) (*Lnk236)();
1280          return;}}          return;}}
# Line 1297  T665:; Line 1282  T665:;
1282  }  }
1283  /*      local entry for function INLINE-BOOLE3-STRING   */  /*      local entry for function INLINE-BOOLE3-STRING   */
1284    
1285  static object LI22(V205)  static object LI22(V209)
1286    
1287  register object V205;  register object V209;
1288  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1289          goto TTL;          goto TTL;
1290  TTL:;  TTL:;
1291          base[0]= (V205);          base[0]= (V209);
1292          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1293          Lconstantp();          Lconstantp();
1294          vs_top=sup;          vs_top=sup;
1295          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1296          goto T670;}          goto T666;}
1297          goto T669;          goto T665;
1298          goto T670;          goto T666;
1299  T670:;  T666:;
1300          base[0]= (V205);          base[0]= (V209);
1301          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1302          Leval();          Leval();
1303          vs_top=sup;          vs_top=sup;
1304          V205= vs_base[0];          V209= vs_base[0];
1305          goto T669;          goto T665;
1306  T669:;  T665:;
1307          {object V206= (V205);          {object V210= (V209);
1308          if(!eql(V206,VV[66]))goto T675;          if(!eql(V210,VV[66]))goto T671;
1309          {object V207 = VV[67];          {object V211 = VV[67];
1310          VMR22(V207)}          VMR22(V211)}
1311            goto T671;
1312    T671:;
1313            if(!eql(V210,VV[68]))goto T672;
1314            {object V212 = VV[69];
1315            VMR22(V212)}
1316            goto T672;
1317    T672:;
1318            if(!eql(V210,VV[70]))goto T673;
1319            {object V213 = VV[71];
1320            VMR22(V213)}
1321            goto T673;
1322    T673:;
1323            if(!eql(V210,VV[72]))goto T674;
1324            {object V214 = VV[73];
1325            VMR22(V214)}
1326            goto T674;
1327    T674:;
1328            if(!eql(V210,VV[74]))goto T675;
1329            {object V215 = VV[75];
1330            VMR22(V215)}
1331          goto T675;          goto T675;
1332  T675:;  T675:;
1333          if(!eql(V206,VV[68]))goto T676;          if(!eql(V210,VV[76]))goto T676;
1334          {object V208 = VV[69];          {object V216 = VV[77];
1335          VMR22(V208)}          VMR22(V216)}
1336          goto T676;          goto T676;
1337  T676:;  T676:;
1338          if(!eql(V206,VV[70]))goto T677;          if(!eql(V210,VV[78]))goto T677;
1339          {object V209 = VV[71];          {object V217 = VV[79];
1340          VMR22(V209)}          VMR22(V217)}
1341          goto T677;          goto T677;
1342  T677:;  T677:;
1343          if(!eql(V206,VV[72]))goto T678;          if(!eql(V210,VV[80]))goto T678;
1344          {object V210 = VV[73];          {object V218 = VV[81];
1345          VMR22(V210)}          VMR22(V218)}
1346          goto T678;          goto T678;
1347  T678:;  T678:;
1348          if(!eql(V206,VV[74]))goto T679;          if(!eql(V210,VV[82]))goto T679;
1349          {object V211 = VV[75];          {object V219 = VV[83];
1350          VMR22(V211)}          VMR22(V219)}
1351          goto T679;          goto T679;
1352  T679:;  T679:;
1353          if(!eql(V206,VV[76]))goto T680;          if(!eql(V210,VV[84]))goto T680;
1354          {object V212 = VV[77];          {object V220 = VV[85];
1355          VMR22(V212)}          VMR22(V220)}
1356          goto T680;          goto T680;
1357  T680:;  T680:;
1358          if(!eql(V206,VV[78]))goto T681;          {object V221 = Cnil;
1359          {object V213 = VV[79];          VMR22(V221)}}
         VMR22(V213)}  
         goto T681;  
 T681:;  
         if(!eql(V206,VV[80]))goto T682;  
         {object V214 = VV[81];  
         VMR22(V214)}  
         goto T682;  
 T682:;  
         if(!eql(V206,VV[82]))goto T683;  
         {object V215 = VV[83];  
         VMR22(V215)}  
         goto T683;  
 T683:;  
         if(!eql(V206,VV[84]))goto T684;  
         {object V216 = VV[85];  
         VMR22(V216)}  
         goto T684;  
 T684:;  
         {object V217 = Cnil;  
         VMR22(V217)}}  
1360          base[0]=base[0];          base[0]=base[0];
1361          return Cnil;          return Cnil;
1362  }  }
1363  /*      local entry for function C1ASH-CONDITION        */  /*      local entry for function C1ASH-CONDITION        */
1364    
1365  static object LI23(V219)  static object LI23(V223)
1366    
1367  object V219;  object V223;
1368  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1369          goto TTL;          goto TTL;
1370  TTL:;  TTL:;
1371          {register object V220;          {register object V224;
1372          V220= cadr((V219));{object V221;          V224= CMPcadr((V223));{object V225;
1373          {register object V222;          {register object V226;
1374          V222= (V220);          V226= (V224);
1375          if(type_of((V222))==t_fixnum){          if(type_of((V226))==t_fixnum){
1376            goto T684;}
1377            V225= Cnil;
1378            goto T683;
1379            goto T684;
1380    T684:;
1381            if((fix((V226)))>=(-31)){
1382            goto T686;}
1383            V225= Cnil;
1384            goto T683;
1385            goto T686;
1386    T686:;
1387            V225= ((fix((V226)))<=(31)?Ct:Cnil);}
1388            goto T683;
1389    T683:;
1390            if(V225==Cnil)goto T682;
1391            {object V227 = V225;
1392            VMR23(V227)}
1393            goto T682;
1394    T682:;}
1395            if(type_of((V224))==t_cons){
1396          goto T688;}          goto T688;}
1397          V221= Cnil;          {object V228 = Cnil;
1398          goto T687;          VMR23(V228)}
1399          goto T688;          goto T688;
1400  T688:;  T688:;
1401          if((fix((V222)))>=(-31)){          if((CMPcar((V224)))==(VV[86])){
1402          goto T690;}          goto T690;}
1403          V221= Cnil;          {object V229 = Cnil;
1404          goto T687;          VMR23(V229)}
1405          goto T690;          goto T690;
1406  T690:;  T690:;
1407          V221= ((fix((V222)))<=(31)?Ct:Cnil);}          {object V230;
1408          goto T687;          V230= CMPcadr((V224));
1409  T687:;          base[0]= (V230);
         if(V221==Cnil)goto T686;  
         {object V223 = V221;  
         VMR23(V223)}  
         goto T686;  
 T686:;}  
         if(type_of((V220))==t_cons){  
         goto T692;}  
         {object V224 = Cnil;  
         VMR23(V224)}  
         goto T692;  
 T692:;  
         if((car((V220)))==(VV[86])){  
         goto T694;}  
         {object V225 = Cnil;  
         VMR23(V225)}  
         goto T694;  
 T694:;  
         {object V226;  
         V226= cadr((V220));  
         base[0]= (V226);  
1410          base[1]= VV[87];          base[1]= VV[87];
1411          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1412          (void) (*Lnk237)();          (void) (*Lnk237)();
1413          vs_top=sup;          vs_top=sup;
1414          {object V227 = vs_base[0];          {object V231 = vs_base[0];
1415          VMR23(V227)}}}          VMR23(V231)}}}
1416          base[0]=base[0];          base[0]=base[0];
1417          return Cnil;          return Cnil;
1418  }  }
1419  /*      local entry for function C1ASH  */  /*      local entry for function C1ASH  */
1420    
1421  static object LI24(V229)  static object LI24(V233)
1422    
1423  object V229;  object V233;
1424  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
1425          goto TTL;          goto TTL;
1426  TTL:;  TTL:;
1427          {register object V230;          {register object V234;
1428          register object V231;          register object V235;
1429          V230= cadr((V229));          V234= CMPcadr((V233));
1430          V231= Cnil;          V235= Cnil;
1431          base[0]= (V230);          base[0]= (V234);
1432          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1433          Lconstantp();          Lconstantp();
1434          vs_top=sup;          vs_top=sup;
1435          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1436          goto T702;}          goto T698;}
1437          base[0]= (V230);          base[0]= (V234);
1438          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1439          Leval();          Leval();
1440          vs_top=sup;          vs_top=sup;
1441          V230= vs_base[0];{object V232;          V234= vs_base[0];{object V236;
1442          base[0]= (V230);          base[0]= (V234);
1443          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1444          (void) (*Lnk238)();          (void) (*Lnk238)();
1445          vs_top=sup;          vs_top=sup;
1446          V232= vs_base[0];          V236= vs_base[0];
1447          if(V232==Cnil)goto T709;          if(V236==Cnil)goto T705;
1448          goto T708;          goto T704;
1449          goto T709;          goto T705;
1450  T709:;}  T705:;}
1451          base[0]= VV[88];          base[0]= VV[88];
1452          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1453          Lerror();          Lerror();
1454          vs_top=sup;          vs_top=sup;
1455          goto T708;          goto T704;
1456  T708:;  T704:;
1457          if(!(number_compare((V230),small_fixnum(0))<0)){          if(!(number_compare((V234),small_fixnum(0))<0)){
1458          goto T714;}          goto T710;}
1459          V231= VV[89];          V235= VV[89];
1460          goto T700;          goto T696;
1461          goto T714;          goto T710;
1462  T714:;  T710:;
1463          if(!(number_compare((V230),small_fixnum(0))>=0)){          if(!(number_compare((V234),small_fixnum(0))>=0)){
1464          goto T700;}          goto T696;}
1465          V231= VV[90];          V235= VV[90];
1466          goto T700;          goto T696;
1467          goto T702;          goto T698;
1468  T702:;  T698:;
1469          {object V233;          {object V237;
1470          V233= cadr((V230));          V237= CMPcadr((V234));
1471          base[0]= (V233);          base[0]= (V237);
1472          base[1]= VV[91];          base[1]= VV[91];
1473          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1474          (void) (*Lnk237)();          (void) (*Lnk237)();
1475          vs_top=sup;          vs_top=sup;
1476          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1477          goto T722;}          goto T718;}
1478          V231= VV[90];          V235= VV[90];
1479          goto T700;          goto T696;
1480          goto T722;          goto T718;
1481  T722:;  T718:;
1482          base[0]= (V233);          base[0]= (V237);
1483          base[1]= VV[92];          base[1]= VV[92];
1484          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1485          (void) (*Lnk237)();          (void) (*Lnk237)();
1486          vs_top=sup;          vs_top=sup;
1487          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1488          goto T728;}          goto T724;}
1489          V231= VV[89];          V235= VV[89];
1490          goto T700;          goto T696;
1491          goto T728;          goto T724;
1492  T728:;  T724:;
1493          base[0]= VV[93];          base[0]= VV[93];
1494          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1495          Lerror();          Lerror();
1496          vs_top=sup;}          vs_top=sup;}
1497          goto T700;          goto T696;
1498  T700:;  T696:;
1499          V234= make_cons((V231),(V229));          V238= make_cons((V235),(V233));
1500          {object V235 = (*(LnkLI235))(/* INLINE-ARGS */V234);          {object V239 = (*(LnkLI235))(/* INLINE-ARGS */V238);
1501          VMR24(V235)}}          VMR24(V239)}}
1502          base[0]=base[0];          base[0]=base[0];
1503          return Cnil;          return Cnil;
1504  }  }
1505  /*      local entry for function SHIFT>>        */  /*      local entry for function SHIFT>>        */
1506    
1507  static object LI25(V238,V239)  static object LI25(V242,V243)
1508    
1509  object V238;object V239;  object V242;object V243;
1510  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
1511          goto TTL;          goto TTL;
1512  TTL:;  TTL:;
1513          base[0]= (V238);          base[0]= (V242);
1514          base[1]= (V239);          base[1]= (V243);
1515          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1516          Lash();          Lash();
1517          vs_top=sup;          vs_top=sup;
1518          {object V240 = vs_base[0];          {object V244 = vs_base[0];
1519          VMR25(V240)}          VMR25(V244)}
1520          base[0]=base[0];          base[0]=base[0];
1521          return Cnil;          return Cnil;
1522  }  }
1523  /*      local entry for function SHIFT<<        */  /*      local entry for function SHIFT<<        */
1524    
1525  static object LI26(V243,V244)  static object LI26(V247,V248)
1526    
1527  object V243;object V244;  object V247;object V248;
1528  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
1529          goto TTL;          goto TTL;
1530  TTL:;  TTL:;
1531          base[0]= (V243);          base[0]= (V247);
1532          base[1]= (V244);          base[1]= (V248);
1533          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1534          Lash();          Lash();
1535          vs_top=sup;          vs_top=sup;
1536          {object V245 = vs_base[0];          {object V249 = vs_base[0];
1537          VMR26(V245)}          VMR26(V249)}
1538          base[0]=base[0];          base[0]=base[0];
1539          return Cnil;          return Cnil;
1540  }  }
1541  /*      function definition for CO1LDB  */  /*      local entry for function CO1LDB */
1542    
1543  static void L27()  static object LI27(V252,V253)
1544  {register object *base=vs_base;  
1545          register object *sup=base+VM27; VC27  object V252;object V253;
1546          vs_reserve(VM27);  {        VMB27 VMS27 VMV27
         {object V246;  
         object V247;  
         check_arg(2);  
         V246=(base[0]);  
         V247=(base[1]);  
         vs_top=sup;  
1547          goto TTL;          goto TTL;
1548  TTL:;  TTL:;
1549          {register object V248;          {register object V254;
1550          object V249;          object V255;
1551          V248= Cnil;          V254= Cnil;
1552          base[3]= VV[94];          base[1]= VV[94];
1553          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+1)+1;
1554          Linteger_length();          Linteger_length();
1555          vs_top=sup;          vs_top=sup;
1556          V249= vs_base[0];          V255= vs_base[0];
1557          {register object V250;          {register object V256;
1558          {object V251;          {object V257;
1559          V248= car((V247));          V254= CMPcar((V253));
1560          if(type_of((V248))==t_cons){          if(type_of((V254))==t_cons){
1561          goto T744;}          goto T740;}
1562          V251= Cnil;          V257= Cnil;
1563          goto T743;          goto T739;
1564          goto T744;          goto T740;
1565  T744:;  T740:;
1566          if((VV[95])==(car((V248)))){          if((VV[95])==(CMPcar((V254)))){
1567          goto T747;}          goto T743;}
1568          V251= Cnil;          V257= Cnil;
1569          goto T743;          goto T739;
         goto T747;  
 T747:;  
         V251= make_cons(cadr((V248)),caddr((V248)));  
1570          goto T743;          goto T743;
1571  T743:;  T743:;
1572          if(((V251))==Cnil){          V257= make_cons(CMPcadr((V254)),CMPcaddr((V254)));
1573          goto T750;}          goto T739;
1574          V250= (V251);  T739:;
1575          goto T742;          if(((V257))==Cnil){
1576          goto T750;          goto T746;}
1577  T750:;          V256= (V257);
1578          V250= Cnil;}          goto T738;
1579          goto T742;          goto T746;
1580  T742:;  T746:;
1581          {object V252= cdr((V250));          V256= Cnil;}
1582          if(!(type_of(V252)==t_fixnum||type_of(V252)==t_bignum)){          goto T738;
1583          goto T753;}}  T738:;
1584          {object V253= car((V250));          {object V258= CMPcdr((V256));
1585          if(!(type_of(V253)==t_fixnum||type_of(V253)==t_bignum)){          if(!(type_of(V258)==t_fixnum||type_of(V258)==t_bignum)){
1586          goto T753;}}          goto T749;}}
1587          V254= number_plus(car((V250)),cdr((V250)));          {object V259= CMPcar((V256));
1588          if(!(number_compare(/* INLINE-ARGS */V254,(V249))<0)){          if(!(type_of(V259)==t_fixnum||type_of(V259)==t_bignum)){
1589          goto T753;}          goto T749;}}
1590          base[3]= (*(LnkLI239))(cadr((V247)));          V260= number_plus(CMPcar((V256)),CMPcdr((V256)));
1591          base[4]= VV[96];          if(!(number_compare(/* INLINE-ARGS */V260,(V255))<0)){
1592          vs_top=(vs_base=base+3)+2;          goto T749;}
1593            base[1]= (*(LnkLI239))(CMPcadr((V253)));
1594            base[2]= VV[96];
1595            vs_top=(vs_base=base+1)+2;
1596          (void) (*Lnk237)();          (void) (*Lnk237)();
1597          vs_top=sup;          vs_top=sup;
1598          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1599          goto T753;}          goto T749;}
1600          V255= list(3,VV[86],VV[96],list(4,VV[97],car((V250)),cdr((V250)),cadr((V247))));          V261= list(3,VV[86],VV[96],list(4,VV[97],CMPcar((V256)),CMPcdr((V256)),CMPcadr((V253))));
1601          base[3]= (*(LnkLI235))(/* INLINE-ARGS */V255);          {object V262 = (*(LnkLI235))(/* INLINE-ARGS */V261);
1602          vs_top=(vs_base=base+3)+1;          VMR27(V262)}
1603          return;          goto T749;
1604          goto T753;  T749:;
1605  T753:;          {object V263 = Cnil;
1606          base[3]= Cnil;          VMR27(V263)}}}
1607          vs_top=(vs_base=base+3)+1;          base[0]=base[0];
1608          return;}}          return Cnil;
         }  
1609  }  }
1610  /*      local entry for function C1LENGTH       */  /*      local entry for function C1LENGTH       */
1611    
1612  static object LI28(V257)  static object LI28(V265)
1613    
1614  register object V257;  register object V265;
1615  {        VMB28 VMS28 VMV28  {        VMB28 VMS28 VMV28
1616          goto TTL;          goto TTL;
1617  TTL:;  TTL:;
1618          {register object V258;          {register object V266;
1619          V258= (VFUN_NARGS=0,(*(LnkLI208))());          V266= (VFUN_NARGS=0,(*(LnkLI208))());
1620          (void)(structure_set((V258),VV[98],2,VV[96]));          V267= Ct;
1621          {object V259;          STSET(object,(V266),8, VV[96]);
1622          if(type_of(car((V257)))==t_cons){          (void)(VV[96]);
1623          goto T766;}          {object V268;
1624          V259= Cnil;          if(type_of(CMPcar((V265)))==t_cons){
1625          goto T765;          goto T762;}
1626          goto T766;          V268= Cnil;
1627  T766:;          goto T761;
1628          if((caar((V257)))==(VV[99])){          goto T762;
1629          goto T768;}  T762:;
1630          V259= Cnil;          if((CMPcaar((V265)))==(VV[99])){
1631          goto T765;          goto T764;}
1632          goto T768;          V268= Cnil;
1633  T768:;          goto T761;
1634          {object V260;          goto T764;
1635          V260= cdr(car((V257)));  T764:;
1636          if((V260)==Cnil){          {object V269;
1637          V259= Cnil;          V269= CMPcdr(CMPcar((V265)));
1638          goto T765;}          if((V269)==Cnil){
1639          if((cddr((V260)))==Cnil){          V268= Cnil;
1640          goto T771;}          goto T761;}
1641          V259= Cnil;          if((CMPcddr((V269)))==Cnil){
1642          goto T765;          goto T767;}
1643          goto T771;          V268= Cnil;
1644  T771:;          goto T761;
1645          V259= list(4,VV[4],(V258),VV[100],(*(LnkLI219))((V260),(V258)));}          goto T767;
1646          goto T765;  T767:;
1647  T765:;          V268= list(4,VV[4],(V266),VV[100],(*(LnkLI219))((V269),(V266)));}
1648          if(((V259))==Cnil){          goto T761;
1649          goto T774;}  T761:;
1650          {object V261 = (V259);          if(((V268))==Cnil){
1651          VMR28(V261)}          goto T770;}
1652          goto T774;          {object V270 = (V268);
1653  T774:;          VMR28(V270)}
1654          V257= (*(LnkLI219))((V257),(V258));          goto T770;
1655          {object V262 = list(4,VV[4],(V258),VV[101],(V257));  T770:;
1656          VMR28(V262)}}}          V265= (*(LnkLI219))((V265),(V266));
1657            {object V271 = list(4,VV[4],(V266),VV[101],(V265));
1658            VMR28(V271)}}}
1659          base[0]=base[0];          base[0]=base[0];
1660          return Cnil;          return Cnil;
1661  }  }
1662  /*      local entry for function C1GET  */  /*      local entry for function C1GET  */
1663    
1664  static object LI29(V264)  static object LI29(V273)
1665    
1666  register object V264;  register object V273;
1667  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
1668          goto TTL;          goto TTL;
1669  TTL:;  TTL:;
1670          {object V265;          {object V274;
1671          V265= (VFUN_NARGS=0,(*(LnkLI208))());          V274= (VFUN_NARGS=0,(*(LnkLI208))());
1672          if(endp_prop((V264))){          if(((V273))==Cnil){
1673            goto T776;}
1674            if(!((CMPcdr((V273)))==Cnil)){
1675            goto T775;}
1676            goto T776;
1677    T776:;
1678            V275 = CMPmake_fixnum((long)length((V273)));
1679            (void)((*(LnkLI209))(VV[102],small_fixnum(2),V275));
1680            goto T775;
1681    T775:;
1682            if((CMPcddr((V273)))==Cnil){
1683            goto T780;}
1684            if((CMPcdddr((V273)))==Cnil){
1685          goto T780;}          goto T780;}
1686          if(!(endp_prop(cdr((V264))))){          V276 = CMPmake_fixnum((long)length((V273)));
1687          goto T779;}          (void)((*(LnkLI210))(VV[102],small_fixnum(3),V276));
1688          goto T780;          goto T780;
1689  T780:;  T780:;
1690          V266 = make_fixnum((long)length((V264)));          {object V277 = list(3,VV[102],(V274),(*(LnkLI219))((V273),(V274)));
1691          (void)((*(LnkLI209))(VV[102],small_fixnum(2),V266));          VMR29(V277)}}
         goto T779;  
 T779:;  
         if(endp_prop(cddr((V264)))){  
         goto T784;}  
         if(endp_prop(cdddr((V264)))){  
         goto T784;}  
         V267 = make_fixnum((long)length((V264)));  
         (void)((*(LnkLI210))(VV[102],small_fixnum(3),V267));  
         goto T784;  
 T784:;  
         {object V268 = list(3,VV[102],(V265),(*(LnkLI219))((V264),(V265)));  
         VMR29(V268)}}  
1692          base[0]=base[0];          base[0]=base[0];
1693          return Cnil;          return Cnil;
1694  }  }
1695  /*      local entry for function C2GET  */  /*      local entry for function C2GET  */
1696    
1697  static object LI30(V270)  static object LI30(V279)
1698    
1699  register object V270;  register object V279;
1700  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
1701          bds_check;          bds_check;
1702          goto TTL;          goto TTL;
1703  TTL:;  TTL:;
1704          if((symbol_value(VV[25]))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
1705          goto T790;}          goto T786;}
1706          {object V271 = (*(LnkLI215))(VV[102],(V270),Cnil,Ct);          {object V280 = (*(LnkLI215))(VV[102],(V279),Cnil,Ct);
1707          VMR30(V271)}          VMR30(V280)}
1708          goto T790;          goto T786;
1709  T790:;  T786:;
1710          {register object V272;          {register object V281;
1711          base[0]= symbol_value(VV[20]);          base[0]= (VV[20]->s.s_dbind);
1712          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          (VV[22]->s.s_dbind)= number_plus((VV[22]->s.s_dbind),small_fixnum(1));
1713          V272= symbol_value(VV[22]);          V281= (VV[22]->s.s_dbind);
1714          bds_bind(VV[20],base[0]);          bds_bind(VV[20],base[0]);
1715          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
1716          if((cddr((V270)))==Cnil){          if((CMPcddr((V279)))==Cnil){
1717          goto T799;}          goto T795;}
1718          V273= VV[103];          V282= VV[103];
1719          goto T797;          goto T793;
1720          goto T799;          goto T795;
1721  T799:;  T795:;
1722          V273= VV[104];          V282= VV[104];
1723          goto T797;          goto T793;
1724  T797:;  T793:;
1725          V270= (VFUN_NARGS=2,(*(LnkLI232))((V270),V273));          V279= (VFUN_NARGS=2,(*(LnkLI232))((V279),V282));
1726          princ_str("\n   {object V",VV[7]);          princ_str("\n   {object V",VV[7]);
1727          (void)((*(LnkLI213))((V272)));          (void)((*(LnkLI213))((V281)));
1728          princ_str(" =(",VV[7]);          princ_str(" =(",VV[7]);
1729          (void)((*(LnkLI213))(car((V270))));          (void)((*(LnkLI213))(CMPcar((V279))));
1730          princ_str(")->s.s_plist;",VV[7]);          princ_str(")->s.s_plist;",VV[7]);
1731          princ_str("\n    object ind= ",VV[7]);          princ_str("\n    object ind= ",VV[7]);
1732          (void)((*(LnkLI213))(cadr((V270))));          (void)((*(LnkLI213))(CMPcadr((V279))));
1733          princ_char(59,VV[7]);          princ_char(59,VV[7]);
1734          princ_str("\n   while(V",VV[7]);          princ_str("\n   while(V",VV[7]);
1735          (void)((*(LnkLI213))((V272)));          (void)((*(LnkLI213))((V281)));
1736          princ_str("!=Cnil){",VV[7]);          princ_str("!=Cnil){",VV[7]);
1737          princ_str("\n   if(V",VV[7]);          princ_str("\n   if(V",VV[7]);
1738          (void)((*(LnkLI213))((V272)));          (void)((*(LnkLI213))((V281)));
1739          princ_str("->c.c_car==ind){",VV[7]);          princ_str("->c.c_car==ind){",VV[7]);
1740          V274= list(2,VV[105],(V272));          V283= list(2,VV[105],(V281));
1741          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V274,VV[56])));          (void)((VFUN_NARGS=2,(*(LnkLI214))(/* INLINE-ARGS */V283,VV[56])));
1742          princ_str("\n   }else V",VV[7]);          princ_str("\n   }else V",VV[7]);
1743          (void)((*(LnkLI213))((V272)));          (void)((*(LnkLI213))((V281)));
1744          princ_str("=V",VV[7]);          princ_str("=V",VV[7]);
1745          (void)((*(LnkLI213))((V272)));          (void)((*(LnkLI213))((V281)));
1746          princ_str("->c.c_cdr->c.c_cdr;}",VV[7]);          princ_str("->c.c_cdr->c.c_cdr;}",VV[7]);
1747          if((cddr((V270)))==Cnil){          if((CMPcddr((V279)))==Cnil){
1748          goto T829;}          goto T825;}
1749          V275= caddr((V270));          V284= CMPcaddr((V279));
1750          goto T827;          goto T823;
1751          goto T829;          goto T825;
1752  T829:;  T825:;
1753          V275= Cnil;          V284= Cnil;
1754          goto T827;          goto T823;
1755  T827:;  T823:;
1756          (void)((VFUN_NARGS=1,(*(LnkLI214))(V275)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(V284)));
1757          princ_char(125,VV[7]);          princ_char(125,VV[7]);
1758          {object V276 = (*(LnkLI233))();          {object V285 = (*(LnkLI233))();
1759          bds_unwind1;          bds_unwind1;
1760          bds_unwind1;          bds_unwind1;
1761          VMR30(V276)}}          VMR30(V285)}}
1762          base[0]=base[0];          base[0]=base[0];
1763          return Cnil;          return Cnil;
1764  }  }
1765  /*      local entry for function CO1EQL */  /*      local entry for function CO1EQL */
1766    
1767  static object LI31(V279,V280)  static object LI31(V288,V289)
1768    
1769  object V279;register object V280;  object V288;register object V289;
1770  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
1771          goto TTL;          goto TTL;
1772  TTL:;{object V281;  TTL:;{object V290;
1773          if((cdr((V280)))!=Cnil){          if((CMPcdr((V289)))!=Cnil){
1774          goto T837;}          goto T833;}
1775          V281= Cnil;          V290= Cnil;
1776          goto T836;          goto T832;
1777          goto T837;          goto T833;
1778  T837:;  T833:;
1779          V281= ((symbol_value(VV[25]))==Cnil?Ct:Cnil);          V290= (((VV[25]->s.s_dbind))==Cnil?Ct:Cnil);
1780          goto T836;          goto T832;
1781  T836:;  T832:;
1782          if(V281==Cnil)goto T835;          if(V290==Cnil)goto T831;
1783          goto T834;          goto T830;
1784          goto T835;          goto T831;
1785  T835:;}  T831:;}
1786          {object V282 = Cnil;          {object V291 = Cnil;
1787          VMR31(V282)}          VMR31(V291)}
1788          goto T834;          goto T830;
1789  T834:;  T830:;
1790          if(((*(LnkLI240))((V280)))==Cnil){          if(((*(LnkLI240))((V289)))==Cnil){
1791          goto T840;}          goto T836;}
1792          if(!(type_of(cadr((V280)))==t_character)){          if(!(type_of(CMPcadr((V289)))==t_character)){
1793          goto T842;}          goto T838;}
1794          V280= reverse((V280));          V289= reverse((V289));
1795          goto T842;          goto T838;
1796  T842:;  T838:;
1797          if(!(type_of(car((V280)))==t_character)){          if(!(type_of(CMPcar((V289)))==t_character)){
1798          goto T847;}          goto T843;}
1799          {register object V283;          {register object V292;
1800          vs_base=vs_top;          vs_base=vs_top;
1801          Lgensym();          Lgensym();
1802          vs_top=sup;          vs_top=sup;
1803          V283= vs_base[0];          V292= vs_base[0];
1804          V284= list(2,(V283),cadr((V280)));          V293= list(2,(V292),CMPcadr((V289)));
1805          V285= make_cons(/* INLINE-ARGS */V284,Cnil);          V294= make_cons(/* INLINE-ARGS */V293,Cnil);
1806          V286= (*(LnkLI239))(cadr((V280)));          V295= (*(LnkLI239))(CMPcadr((V289)));
1807          V287= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V286,(V283)));          V296= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V295,(V292)));
1808          V288= list(3,VV[109],(V283),VV[110]);          V297= list(3,VV[109],(V292),VV[110]);
1809          V289= list(2,VV[112],car((V280)));          V298= list(2,VV[112],CMPcar((V289)));
1810          V290= list(4,VV[29],/* INLINE-ARGS */V285,/* INLINE-ARGS */V287,list(3,VV[108],/* INLINE-ARGS */V288,list(3,VV[111],/* INLINE-ARGS */V289,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V283)))))));          V299= list(4,VV[29],/* INLINE-ARGS */V294,/* INLINE-ARGS */V296,list(3,VV[108],/* INLINE-ARGS */V297,list(3,VV[111],/* INLINE-ARGS */V298,list(3,VV[86],VV[96],list(2,VV[112],list(3,VV[86],VV[14],(V292)))))));
1811          {object V291 = (*(LnkLI235))(/* INLINE-ARGS */V290);          {object V300 = (*(LnkLI235))(/* INLINE-ARGS */V299);
1812          VMR31(V291)}}          VMR31(V300)}}
1813          goto T847;          goto T843;
1814  T847:;  T843:;
1815          {object V292 = Cnil;          {object V301 = Cnil;
1816          VMR31(V292)}          VMR31(V301)}
1817          goto T840;          goto T836;
1818  T840:;  T836:;
1819          {object V293 = Cnil;          {object V302 = Cnil;
1820          VMR31(V293)}          VMR31(V302)}
1821          base[0]=base[0];          base[0]=base[0];
1822          return Cnil;          return Cnil;
1823  }  }
1824  /*      local entry for function RESULT-TYPE    */  /*      local entry for function RESULT-TYPE    */
1825    
1826  static object LI32(V295)  static object LI32(V304)
1827    
1828  register object V295;  register object V304;
1829  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
1830          goto TTL;          goto TTL;
1831  TTL:;  TTL:;
1832          if(!(type_of((V295))==t_symbol)){          if(!(type_of((V304))==t_symbol)){
1833          goto T851;}          goto T847;}
1834          {object V296;          {object V305;
1835          V296= (*(LnkLI235))((V295));          V305= (*(LnkLI235))((V304));
1836          {object V297 = structure_ref(cadr((V296)),VV[98],2);          {object V306 = STREF(object,CMPcadr((V305)),8);
1837          VMR32(V297)}}          VMR32(V306)}}
1838          goto T851;          goto T847;
1839  T851:;  T847:;
1840          base[0]= (V295);          base[0]= (V304);
1841          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1842          Lconstantp();          Lconstantp();
1843          vs_top=sup;          vs_top=sup;
1844          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1845          goto T855;}          goto T851;}
1846          base[0]= (V295);          base[0]= (V304);
1847          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1848          Ltype_of();          Ltype_of();
1849          vs_top=sup;          vs_top=sup;
1850          V298= vs_base[0];          V307= vs_base[0];
1851          {object V299 = (*(LnkLI241))(V298);          {object V308 = (*(LnkLI241))(V307);
1852          VMR32(V299)}          VMR32(V308)}
1853          goto T855;          goto T851;
1854  T855:;  T851:;
1855          if(!(type_of((V295))==t_cons)){          if(!(type_of((V304))==t_cons)){
1856          goto T861;}          goto T857;}
1857          if(!((car((V295)))==(VV[86]))){          if(!((CMPcar((V304)))==(VV[86]))){
1858          goto T861;}          goto T857;}
1859          {object V300 = (*(LnkLI241))(cadr((V295)));          {object V309 = (*(LnkLI241))(CMPcadr((V304)));
1860          VMR32(V300)}          VMR32(V309)}
1861          goto T861;          goto T857;
1862  T861:;  T857:;
1863          {object V301 = Ct;          {object V310 = Ct;
1864          VMR32(V301)}          VMR32(V310)}
1865          base[0]=base[0];          base[0]=base[0];
1866          return Cnil;          return Cnil;
1867  }  }
1868  /*      local entry for function CO1TYPEP       */  /*      local entry for function CO1TYPEP       */
1869    
1870  static object LI33(V304,V305)  static object LI33(V313,V314)
1871    
1872  object V304;register object V305;  object V313;register object V314;
1873  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
1874          goto TTL;          goto TTL;
1875  TTL:;  TTL:;
1876          {register object V306;          {register object V315;
1877          V306= Cnil;          V315= Cnil;
1878          {register object V307;          {register object V316;
1879          register object V308;          register object V317;
1880          register object V309;          register object V318;
1881          V307= car((V305));          V316= CMPcar((V314));
1882          V308= Cnil;          V317= Cnil;
1883          if(type_of(cadr((V305)))==t_cons){          if(type_of(CMPcadr((V314)))==t_cons){
1884          goto T870;}          goto T866;}
1885          V309= Cnil;          V318= Cnil;
1886          goto T869;          goto T865;
1887          goto T870;          goto T866;
1888  T870:;  T866:;
1889          if((car(cadr((V305))))==(VV[113])){          if((CMPcar(CMPcadr((V314))))==(VV[113])){
1890          goto T872;}          goto T868;}
1891          V309= Cnil;          V318= Cnil;
1892          goto T869;          goto T865;
1893          goto T872;          goto T868;
1894  T872:;  T868:;
1895          V309= cadr(cadr((V305)));          V318= CMPcadr(CMPcadr((V314)));
1896          goto T869;          goto T865;
1897  T869:;  T865:;
1898          base[2]= (*(LnkLI239))(car((V305)));          base[2]= (*(LnkLI239))(CMPcar((V314)));
1899          base[3]= (V309);          base[3]= (V318);
1900          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1901          (void) (*Lnk237)();          (void) (*Lnk237)();
1902          vs_top=sup;          vs_top=sup;
1903          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1904          goto T874;}          goto T870;}
1905          V308= Ct;          V317= Ct;
1906          {object V310 = (*(LnkLI235))((V308));          {object V319 = (*(LnkLI235))((V317));
1907          VMR33(V310)}          VMR33(V319)}
1908          goto T874;          goto T870;
1909  T874:;  T870:;
1910          if(((V309))!=Cnil){          if(((V318))!=Cnil){
1911          goto T884;}          goto T880;}
1912          V308= Cnil;          V317= Cnil;
1913          goto T882;          goto T878;
1914          goto T884;          goto T880;
1915  T884:;  T880:;
1916          {register object x= (V309),V311= symbol_value(VV[114]);          {register object x= (V318),V320= (VV[114]->s.s_dbind);
1917          while(!endp(V311))          while(V320!=Cnil)
1918          if(type_of(V311->c.c_car)==t_cons &&equal(x,V311->c.c_car->c.c_car)){          if(equal(x,V320->c.c_car->c.c_car) &&V320->c.c_car != Cnil){
1919          V304= (V311->c.c_car);          V313= (V320->c.c_car);
1920          goto T889;          goto T885;
1921          }else V311=V311->c.c_cdr;          }else V320=V320->c.c_cdr;
1922          V304= Cnil;}          V313= Cnil;}
1923          goto T889;          goto T885;
1924  T889:;  T885:;
1925          if(((V304))==Cnil){          if(((V313))==Cnil){
1926            goto T883;}
1927            V317= list(2,CMPcdr((V313)),(V316));
1928            goto T878;
1929            goto T883;
1930    T883:;
1931            if(!(type_of((V318))==t_cons)){
1932          goto T887;}          goto T887;}
1933          V308= list(2,cdr((V304)),(V307));          if(!((CMPcar((V318)))==(VV[115]))){
         goto T882;  
         goto T887;  
 T887:;  
         if(!(type_of((V309))==t_cons)){  
         goto T891;}  
         if(!((car((V309)))==(VV[115]))){  
         goto T894;}  
         if((cddr((V309)))==Cnil){  
1934          goto T890;}          goto T890;}
1935          goto T894;          if((CMPcddr((V318)))==Cnil){
1936  T894:;          goto T886;}
         {register object x= car((V309)),V312= VV[116];  
         while(!endp(V312))  
         if(eql(x,V312->c.c_car)){  
         goto T899;  
         }else V312=V312->c.c_cdr;  
         goto T891;}  
         goto T899;  
 T899:;  
         if(!(equal(caddr((V309)),VV[117]))){  
         goto T891;}  
1937          goto T890;          goto T890;
1938  T890:;  T890:;
1939          V306= (*(LnkLI242))(cadr((V309)));          {register object x= CMPcar((V318)),V321= VV[116];
1940          if(!(((V306))==(VV[118]))){          while(V321!=Cnil)
1941          goto T904;}          if(eql(x,V321->c.c_car)){
1942          V308= list(2,VV[119],(V307));          goto T895;
1943          goto T882;          }else V321=V321->c.c_cdr;
1944          goto T904;          goto T887;}
1945  T904:;          goto T895;
1946          if(!(((V306))==(VV[120]))){  T895:;
1947          goto T907;}          if(!(equal(CMPcaddr((V318)),VV[117]))){
1948          V308= list(2,VV[121],(V307));          goto T887;}
1949          goto T882;          goto T886;
1950          goto T907;  T886:;
1951  T907:;          V315= (*(LnkLI242))(CMPcadr((V318)));
1952          V306= (VFUN_NARGS=2,(*(LnkLI243))((V306),symbol_value(VV[122])));          if(!(((V315))==(VV[118]))){
1953          if(((V306))==Cnil){          goto T900;}
1954            V317= list(2,VV[119],(V316));
1955            goto T878;
1956            goto T900;
1957    T900:;
1958            if(!(((V315))==(VV[120]))){
1959            goto T903;}
1960            V317= list(2,VV[121],(V316));
1961            goto T878;
1962            goto T903;
1963    T903:;
1964            V315= (VFUN_NARGS=2,(*(LnkLI243))((V315),(VV[122]->s.s_dbind)));
1965            if(((V315))==Cnil){
1966            goto T906;}
1967            V317= list(3,VV[86],VV[123],list(3,VV[124],(V316),(V315)));
1968            goto T878;
1969            goto T906;
1970    T906:;
1971            V317= Cnil;
1972            goto T878;
1973            goto T887;
1974    T887:;
1975            {object V322;
1976            if(type_of((V318))==t_cons){
1977          goto T910;}          goto T910;}
1978          V308= list(3,VV[86],VV[123],list(3,VV[124],(V307),(V306)));          V322= Cnil;
1979          goto T882;          goto T909;
1980          goto T910;          goto T910;
1981  T910:;  T910:;
1982          V308= Cnil;          if((CMPcar((V318)))==(VV[125])){
1983          goto T882;          goto T912;}
1984          goto T891;          V322= Cnil;
1985  T891:;          goto T909;
1986          {object V313;          goto T912;
1987          if(type_of((V309))==t_cons){  T912:;
1988            if(type_of(CMPcdr((V318)))==t_cons){
1989          goto T914;}          goto T914;}
1990          V313= Cnil;          V322= Cnil;
1991          goto T913;          goto T909;
1992          goto T914;          goto T914;
1993  T914:;  T914:;
1994          if((car((V309)))==(VV[125])){          if((CMPcadr((V318)))!=Cnil){
1995          goto T916;}          goto T916;}
1996          V313= Cnil;          V322= Cnil;
1997          goto T913;          goto T909;
1998          goto T916;          goto T916;
1999  T916:;  T916:;
2000          if(type_of(cdr((V309)))==t_cons){          if(type_of(CMPcadr((V318)))==t_symbol){
2001          goto T918;}          goto T918;}
2002          V313= Cnil;          V322= Cnil;
2003          goto T913;          goto T909;
2004          goto T918;          goto T918;
2005  T918:;  T918:;
2006          if((cadr((V309)))!=Cnil){          base[2]= CMPcadr((V318));
         goto T920;}  
         V313= Cnil;  
         goto T913;  
         goto T920;  
 T920:;  
         if(type_of(cadr((V309)))==t_symbol){  
         goto T922;}  
         V313= Cnil;  
         goto T913;  
         goto T922;  
 T922:;  
         base[2]= cadr((V309));  
2007          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2008          Lsymbol_package();          Lsymbol_package();
2009          vs_top=sup;          vs_top=sup;
2010          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2011          goto T924;}          goto T920;}
2012          V313= Cnil;          V322= Cnil;
2013          goto T913;          goto T909;
2014          goto T924;          goto T920;
2015  T924:;  T920:;
2016          if((cddr((V309)))==Cnil){          if((CMPcddr((V318)))==Cnil){
2017          goto T927;}          goto T923;}
2018          V313= Cnil;          V322= Cnil;
2019          goto T913;          goto T909;
2020          goto T927;          goto T923;
2021  T927:;  T923:;
2022          V313= list(2,cadr((V309)),(V307));          V322= list(2,CMPcadr((V318)),(V316));
2023          goto T913;          goto T909;
2024  T913:;  T909:;
2025          if(((V313))==Cnil){          if(((V322))==Cnil){
2026          goto T930;}          goto T926;}
2027          V308= (V313);          V317= (V322);
2028          goto T882;          goto T878;
2029          goto T930;          goto T926;
2030  T930:;  T926:;
2031          base[2]= (V309);          base[2]= (V318);
2032          base[3]= VV[96];          base[3]= VV[96];
2033          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2034          (void) (*Lnk237)();          (void) (*Lnk237)();
2035          vs_top=sup;          vs_top=sup;
2036          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2037          goto T933;}          goto T929;}
2038          V306= (*(LnkLI244))((V309));          V315= (*(LnkLI244))((V318));
2039          if(type_of((V306))==t_cons){          if(type_of((V315))==t_cons){
2040          goto T939;}          goto T935;}
2041          V308= Cnil;          V317= Cnil;
2042          goto T882;          goto T878;
2043          goto T939;          goto T935;
2044  T939:;  T935:;
2045          base[2]= cadr((V306));          base[2]= CMPcadr((V315));
2046          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2047          (void) (*Lnk238)();          (void) (*Lnk238)();
2048          vs_top=sup;          vs_top=sup;
2049          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2050          goto T941;}          goto T937;}
2051          V308= Cnil;          V317= Cnil;
2052          goto T882;          goto T878;
2053          goto T941;          goto T937;
2054  T941:;  T937:;
2055          base[2]= caddr((V306));          base[2]= CMPcaddr((V315));
2056          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2057          (void) (*Lnk238)();          (void) (*Lnk238)();
2058          vs_top=sup;          vs_top=sup;
2059          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2060            goto T940;}
2061            V317= Cnil;
2062            goto T878;
2063            goto T940;
2064    T940:;
2065            V323= list(2,VV[126],(V316));
2066            V324= make_cons(/* INLINE-ARGS */V323,Cnil);
2067            V325= (*(LnkLI239))((V316));
2068            V326= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V325,VV[126]));
2069            V327= list(3,VV[128],VV[129],CMPcadr((V315)));
2070            V317= list(4,VV[29],/* INLINE-ARGS */V324,/* INLINE-ARGS */V326,list(4,VV[108],VV[127],/* INLINE-ARGS */V327,list(3,VV[130],VV[131],CMPcaddr((V315)))));
2071            goto T878;
2072            goto T929;
2073    T929:;
2074            if(!(type_of((V318))==t_symbol)){
2075          goto T944;}          goto T944;}
2076          V308= Cnil;          {object V328 =((V318))->s.s_plist;
2077          goto T882;           object ind= VV[132];
2078          goto T944;          while(V328!=Cnil){
2079  T944:;          if(V328->c.c_car==ind){
2080          V314= list(2,VV[126],(V307));          V315= (V328->c.c_cdr->c.c_car);
2081          V315= make_cons(/* INLINE-ARGS */V314,Cnil);          goto T948;
2082          V316= (*(LnkLI239))((V307));          }else V328=V328->c.c_cdr->c.c_cdr;}
2083          V317= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V316,VV[126]));          V315= Cnil;}
         V318= list(3,VV[128],VV[129],cadr((V306)));  
         V308= list(4,VV[29],/* INLINE-ARGS */V315,/* INLINE-ARGS */V317,list(4,VV[108],VV[127],/* INLINE-ARGS */V318,list(3,VV[130],VV[131],caddr((V306)))));  
         goto T882;  
         goto T933;  
 T933:;  
         if(!(type_of((V309))==t_symbol)){  
         goto T948;}  
         V306= get((V309),VV[132],Cnil);  
         if(((V306))==Cnil){  
         goto T948;}  
         if((structure_ref((V306),VV[132],11))!=Cnil){  
         goto T953;}  
         if((symbol_value(VV[133]))==Cnil){  
         goto T954;}  
         goto T953;  
 T953:;  
         V308= (*(LnkLI245))((V307),(V306));  
         goto T882;  
         goto T954;  
 T954:;  
         V308= list(3,VV[134],(V307),list(2,VV[113],(V309)));  
         goto T882;  
2084          goto T948;          goto T948;
2085  T948:;  T948:;
2086          V308= Cnil;}          if(((V315))==Cnil){
2087          goto T882;          goto T944;}
2088  T882:;          if((STREF(object,(V315),44))!=Cnil){
2089          if((V308)==Cnil){          goto T949;}
2090          {object V319 = Cnil;          if(((VV[133]->s.s_dbind))==Cnil){
2091          VMR33(V319)}}          goto T950;}
2092          V320= list(3,VV[86],VV[123],(V308));          goto T949;
2093          {object V321 = (*(LnkLI235))(/* INLINE-ARGS */V320);  T949:;
2094          VMR33(V321)}}}          V317= (*(LnkLI245))((V316),(V315));
2095            goto T878;
2096            goto T950;
2097    T950:;
2098            V317= list(3,VV[134],(V316),list(2,VV[113],(V318)));
2099            goto T878;
2100            goto T944;
2101    T944:;
2102            V317= Cnil;}
2103            goto T878;
2104    T878:;
2105            if((V317)==Cnil){
2106            {object V329 = Cnil;
2107            VMR33(V329)}}
2108            V330= list(3,VV[86],VV[123],(V317));
2109            {object V331 = (*(LnkLI235))(/* INLINE-ARGS */V330);
2110            VMR33(V331)}}}
2111          base[0]=base[0];          base[0]=base[0];
2112          return Cnil;          return Cnil;
2113  }  }
2114  /*      local entry for function STRUCT-TYPE-OPT        */  /*      local entry for function STRUCT-TYPE-OPT        */
2115    
2116  static object LI34(V324,V325)  static object LI34(V334,V335)
2117    
2118  object V324;object V325;  object V334;object V335;
2119  {        VMB34 VMS34 VMV34  {        VMB34 VMS34 VMV34
2120          goto TTL;          goto TTL;
2121  TTL:;  TTL:;
2122          {register object V326;          {register object V336;
2123          object V327;          object V337;
2124          vs_base=vs_top;          vs_base=vs_top;
2125          Lgensym();          Lgensym();
2126          vs_top=sup;          vs_top=sup;
2127          V326= vs_base[0];          V336= vs_base[0];
2128          V328= structure_ref((V325),VV[132],0);          V337= (*(LnkLI246))(STREF(object,(V335),0));
2129          V327= (*(LnkLI246))(/* INLINE-ARGS */V328);          V338= list(2,(V336),(V334));
2130          V329= list(2,(V326),(V324));          V339= make_cons(/* INLINE-ARGS */V338,Cnil);
2131          V330= make_cons(/* INLINE-ARGS */V329,Cnil);          V340= list(2,VV[135],(V336));
2132          V331= list(2,VV[135],(V326));          if(!(((long)length((V337)))<(3))){
2133          if(!(((long)length((V327)))<(3))){          goto T958;}
2134          goto T962;}          {object V343;
2135          {object V334;          object V344= (V337);
2136          object V335= (V327);          if(V344==Cnil){
2137          if(endp(V335)){          V342= Cnil;
2138          V333= Cnil;          goto T960;}
2139          goto T964;}          base[0]=V343=MMcons(Cnil,Cnil);
2140          base[0]=V334=MMcons(Cnil,Cnil);          goto T961;
2141          goto T965;  T961:;
2142  T965:;          V346= list(2,VV[137],(V336));
2143          V337= list(2,VV[137],(V326));          (V343->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V346,(*(LnkLI247))((V344->c.c_car)));
2144          (V334->c.c_car)= list(3,VV[48],/* INLINE-ARGS */V337,(*(LnkLI247))((V335->c.c_car)));          if((V344=MMcdr(V344))==Cnil){
2145          V335=MMcdr(V335);          V342= base[0];
2146          if(endp(V335)){          goto T960;}
2147          V333= base[0];          V343=MMcdr(V343)=MMcons(Cnil,Cnil);
2148          goto T964;}          goto T961;}
         V334=MMcdr(V334)=MMcons(Cnil,Cnil);  
         goto T965;}  
         goto T964;  
 T964:;  
         V332= make_cons(VV[136],V333);  
         goto T960;  
         goto T962;  
 T962:;  
         V338= structure_ref((V325),VV[132],0);  
         V332= list(3,VV[134],(V326),(*(LnkLI247))(/* INLINE-ARGS */V338));  
2149          goto T960;          goto T960;
2150  T960:;  T960:;
2151          {object V339 = list(3,VV[29],/* INLINE-ARGS */V330,list(3,VV[108],/* INLINE-ARGS */V331,V332));          V341= make_cons(VV[136],V342);
2152          VMR34(V339)}}          goto T956;
2153            goto T958;
2154    T958:;
2155            V341= list(3,VV[134],(V336),(*(LnkLI247))(STREF(object,(V335),0)));
2156            goto T956;
2157    T956:;
2158            {object V347 = list(3,VV[29],/* INLINE-ARGS */V339,list(3,VV[108],/* INLINE-ARGS */V340,V341));
2159            VMR34(V347)}}
2160          base[0]=base[0];          base[0]=base[0];
2161          return Cnil;          return Cnil;
2162  }  }
2163  /*      local entry for function GET-INCLUDED   */  /*      local entry for function GET-INCLUDED   */
2164    
2165  static object LI35(V341)  static object LI35(V349)
2166    
2167  object V341;  object V349;
2168  {        VMB35 VMS35 VMV35  {        VMB35 VMS35 VMV35
2169          goto TTL;          goto TTL;
2170  TTL:;  TTL:;
2171          {object V342;          {object V350;
2172          V342= get((V341),VV[132],Cnil);          {object V351 =((V349))->s.s_plist;
2173          V343= structure_ref((V342),VV[132],0);           object ind= VV[132];
2174          V347= structure_ref((V342),VV[132],3);          while(V351!=Cnil){
2175          {object V345;          if(V351->c.c_car==ind){
2176          object V346= /* INLINE-ARGS */V347;          V350= (V351->c.c_cdr->c.c_car);
2177          if(endp(V346)){          goto T963;
2178          V344= Cnil;          }else V351=V351->c.c_cdr->c.c_cdr;}
2179          goto T968;}          V350= Cnil;}
2180          base[0]=V345=MMcons(Cnil,Cnil);          goto T963;
2181          goto T969;  T963:;
2182  T969:;          {object V353;
2183          (V345->c.c_cdr)= (*(LnkLI246))((V346->c.c_car));          object V354= STREF(object,(V350),12);
2184          {object cdr_V345=MMcdr(V345);while(!endp(cdr_V345)) {cdr_V345=MMcdr(cdr_V345);V345=MMcdr(V345);}}          if(V354==Cnil){
2185          V346=MMcdr(V346);          V352= Cnil;
2186          if(endp(V346)){          goto T964;}
2187            base[0]=V353=MMcons(Cnil,Cnil);
2188            goto T965;
2189    T965:;
2190            (V353->c.c_cdr)= (*(LnkLI246))((V354->c.c_car));
2191            while(MMcdr(V353)!=Cnil)V353=MMcdr(V353);
2192            if((V354=MMcdr(V354))==Cnil){
2193          base[0]=base[0]->c.c_cdr;          base[0]=base[0]->c.c_cdr;
2194          V344= base[0];          V352= base[0];
2195          goto T968;}          goto T964;}
2196          goto T969;}          goto T965;}
2197          goto T968;          goto T964;
2198  T968:;  T964:;
2199          {object V348 = make_cons(/* INLINE-ARGS */V343,V344);          {object V355 = make_cons(STREF(object,(V350),0),V352);
2200          VMR35(V348)}}          VMR35(V355)}}
2201          base[0]=base[0];          base[0]=base[0];
2202          return Cnil;          return Cnil;
2203  }  }
2204  /*      local entry for function CO1SCHAR       */  /*      local entry for function CO1SCHAR       */
2205    
2206  static object LI36(V351,V352)  static object LI36(V358,V359)
2207    
2208  object V351;register object V352;  object V358;register object V359;
2209  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
2210          goto TTL;          goto TTL;
2211  TTL:;  TTL:;
2212          {object V353= car((V352));          {object V360= CMPcar((V359));
2213          if(type_of(V353)==t_cons||(V353)==Cnil){          if(type_of(V360)==t_cons||(V360)==Cnil){
2214          goto T972;}}          goto T968;}}
2215          {object V354 = Cnil;          {object V361 = Cnil;
2216          VMR36(V354)}          VMR36(V361)}
2217            goto T968;
2218    T968:;
2219            if(((VV[25]->s.s_dbind))==Cnil){
2220            goto T970;}
2221            {object V362 = Cnil;
2222            VMR36(V362)}
2223            goto T970;
2224    T970:;
2225            if((CMPcdr((V359)))!=Cnil){
2226            goto T972;}
2227            {object V363 = Cnil;
2228            VMR36(V363)}
2229          goto T972;          goto T972;
2230  T972:;  T972:;
2231          if((symbol_value(VV[25]))==Cnil){          if((CMPcaar((V359)))==(VV[99])){
2232          goto T974;}          goto T974;}
2233          {object V355 = Cnil;          {object V364 = Cnil;
2234          VMR36(V355)}          VMR36(V364)}
2235          goto T974;          goto T974;
2236  T974:;  T974:;
2237          if((cdr((V352)))!=Cnil){          V365= list(3,VV[138],list(3,VV[86],VV[15],CMPcadr(CMPcar((V359)))),CMPcadr((V359)));
2238          goto T976;}          {object V366 = (*(LnkLI235))(/* INLINE-ARGS */V365);
2239          {object V356 = Cnil;          VMR36(V366)}
         VMR36(V356)}  
         goto T976;  
 T976:;  
         if((caar((V352)))==(VV[99])){  
         goto T978;}  
         {object V357 = Cnil;  
         VMR36(V357)}  
         goto T978;  
 T978:;  
         V358= list(3,VV[138],list(3,VV[86],VV[15],cadr(car((V352)))),cadr((V352)));  
         {object V359 = (*(LnkLI235))(/* INLINE-ARGS */V358);  
         VMR36(V359)}  
2240          return Cnil;          return Cnil;
2241  }  }
2242  /*      local entry for function CONS-TO-LISTA  */  /*      local entry for function CONS-TO-LISTA  */
2243    
2244  static object LI37(V361)  static object LI37(V368)
2245    
2246  object V361;  object V368;
2247  {        VMB37 VMS37 VMV37  {        VMB37 VMS37 VMV37
2248          goto TTL;          goto TTL;
2249  TTL:;  TTL:;
2250          {register object V362;          {register object V369;
2251          base[0]= (V361);          base[0]= (V368);
2252          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2253          Llast();          Llast();
2254          vs_top=sup;          vs_top=sup;
2255          V362= vs_base[0];          V369= vs_base[0];
2256          {object V363;          {object V370;
2257          if(type_of((V362))==t_cons){          if(type_of((V369))==t_cons){
2258            goto T979;}
2259            V370= Cnil;
2260            goto T978;
2261            goto T979;
2262    T979:;
2263            if(type_of(CMPcar((V369)))==t_cons){
2264            goto T981;}
2265            V370= Cnil;
2266            goto T978;
2267            goto T981;
2268    T981:;
2269            if((CMPcaar((V369)))==(VV[139])){
2270          goto T983;}          goto T983;}
2271          V363= Cnil;          V370= Cnil;
2272          goto T982;          goto T978;
2273          goto T983;          goto T983;
2274  T983:;  T983:;
2275          if(type_of(car((V362)))==t_cons){          if(((long)length(CMPcdar((V369))))==(2)){
2276          goto T985;}          goto T985;}
2277          V363= Cnil;          V370= Cnil;
2278          goto T982;          goto T978;
2279          goto T985;          goto T985;
2280  T985:;  T985:;
2281          if((caar((V362)))==(VV[139])){          base[0]= (V368);
         goto T987;}  
         V363= Cnil;  
         goto T982;  
         goto T987;  
 T987:;  
         if(((long)length(cdar((V362))))==(2)){  
         goto T989;}  
         V363= Cnil;  
         goto T982;  
         goto T989;  
 T989:;  
         base[0]= (V361);  
2282          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2283          Lbutlast();          Lbutlast();
2284          vs_top=sup;          vs_top=sup;
2285          V364= vs_base[0];          V371= vs_base[0];
2286          V365= append(V364,cdar((V362)));          V372= append(V371,CMPcdar((V369)));
2287          V363= (*(LnkLI248))(/* INLINE-ARGS */V365);          V370= (*(LnkLI248))(/* INLINE-ARGS */V372);
2288          goto T982;          goto T978;
2289  T982:;  T978:;
2290          if(((V363))==Cnil){          if(((V370))==Cnil){
2291          goto T994;}          goto T990;}
2292          {object V366 = (V363);          {object V373 = (V370);
2293          VMR37(V366)}          VMR37(V373)}
2294          goto T994;          goto T990;
2295  T994:;  T990:;
2296          {object V367 = (V361);          {object V374 = (V368);
2297          VMR37(V367)}}}          VMR37(V374)}}}
2298          base[0]=base[0];          base[0]=base[0];
2299          return Cnil;          return Cnil;
2300  }  }
2301  /*      local entry for function CO1CONS        */  /*      local entry for function CO1CONS        */
2302    
2303  static object LI38(V370,V371)  static object LI38(V377,V378)
2304    
2305  object V370;object V371;  object V377;object V378;
2306  {        VMB38 VMS38 VMV38  {        VMB38 VMS38 VMV38
2307          goto TTL;          goto TTL;
2308  TTL:;  TTL:;
2309          {register object V372;          {register object V379;
2310          if(((long)length((V371)))==(2)){          if(((long)length((V378)))==(2)){
2311          goto T998;}          goto T994;}
2312          V372= Cnil;          V379= Cnil;
2313          goto T997;          goto T993;
2314          goto T998;          goto T994;
2315  T998:;  T994:;
2316          V372= (*(LnkLI248))((V371));          V379= (*(LnkLI248))((V378));
2317          goto T997;          goto T993;
2318  T997:;  T993:;
2319          if(((((V372))==((V371))?Ct:Cnil))==Cnil){          if(((((V379))==((V378))?Ct:Cnil))==Cnil){
2320          goto T1000;}          goto T996;}
2321          {object V373 = Cnil;          {object V380 = Cnil;
2322          VMR38(V373)}          VMR38(V380)}
2323          goto T1000;          goto T996;
2324  T1000:;  T996:;
2325          base[0]= (V372);          base[0]= (V379);
2326          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2327          Llast();          Llast();
2328          vs_top=sup;          vs_top=sup;
2329          V375= vs_base[0];          V382= vs_base[0];
2330          if(!(equal(VV[140],V375))){          if(!(equal(VV[140],V382))){
2331          goto T1004;}          goto T1000;}
2332          base[0]= (V372);          base[0]= (V379);
2333          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2334          Lbutlast();          Lbutlast();
2335          vs_top=sup;          vs_top=sup;
2336          V376= vs_base[0];          V383= vs_base[0];
2337          V374= make_cons(VV[141],V376);          V381= make_cons(VV[141],V383);
2338          goto T1002;          goto T998;
2339          goto T1004;          goto T1000;
2340  T1004:;  T1000:;
2341          V374= make_cons(VV[28],(V372));          V381= make_cons(VV[28],(V379));
2342          goto T1002;          goto T998;
2343  T1002:;  T998:;
2344          {object V377 = (*(LnkLI235))(V374);          {object V384 = (*(LnkLI235))(V381);
2345          VMR38(V377)}}          VMR38(V384)}}
2346          base[0]=base[0];          base[0]=base[0];
2347          return Cnil;          return Cnil;
2348  }  }
2349  /*      local entry for function C1NTH-CONDITION        */  /*      local entry for function C1NTH-CONDITION        */
2350    
2351  static object LI39(V379)  static object LI39(V386)
2352    
2353  register object V379;  register object V386;
2354  {        VMB39 VMS39 VMV39  {        VMB39 VMS39 VMV39
2355          goto TTL;          goto TTL;
2356  TTL:;  TTL:;
2357          if(((endp_prop((V379))?Ct:Cnil))==Cnil){          if(((((V386))==Cnil?Ct:Cnil))==Cnil){
2358            goto T1006;}
2359            {object V387 = Cnil;
2360            VMR39(V387)}
2361            goto T1006;
2362    T1006:;
2363            if((((CMPcdr((V386)))==Cnil?Ct:Cnil))==Cnil){
2364            goto T1008;}
2365            {object V388 = Cnil;
2366            VMR39(V388)}
2367            goto T1008;
2368    T1008:;
2369            if((CMPcddr((V386)))==Cnil){
2370          goto T1010;}          goto T1010;}
2371          {object V380 = Cnil;          {object V389 = Cnil;
2372          VMR39(V380)}          VMR39(V389)}
2373          goto T1010;          goto T1010;
2374  T1010:;  T1010:;
2375          if(((endp_prop(cdr((V379)))?Ct:Cnil))==Cnil){          {object V390= CMPcar((V386));
2376          goto T1012;}          if(type_of(V390)==t_fixnum||
2377          {object V381 = Cnil;  type_of(V390)==t_bignum||
2378          VMR39(V381)}  type_of(V390)==t_ratio||
2379    type_of(V390)==t_shortfloat||
2380    type_of(V390)==t_longfloat||
2381    type_of(V390)==t_complex){
2382            goto T1012;}}
2383            {object V391 = Cnil;
2384            VMR39(V391)}
2385          goto T1012;          goto T1012;
2386  T1012:;  T1012:;
         if(endp_prop(cddr((V379)))){  
         goto T1014;}  
         {object V382 = Cnil;  
         VMR39(V382)}  
         goto T1014;  
 T1014:;  
         {object V383= car((V379));  
         if(type_of(V383)==t_fixnum||  
 type_of(V383)==t_bignum||  
 type_of(V383)==t_ratio||  
 type_of(V383)==t_shortfloat||  
 type_of(V383)==t_longfloat||  
 type_of(V383)==t_complex){  
         goto T1016;}}  
         {object V384 = Cnil;  
         VMR39(V384)}  
         goto T1016;  
 T1016:;  
2387          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
2388          base[1]= car((V379));          base[1]= CMPcar((V386));
2389          base[2]= small_fixnum(7);          base[2]= small_fixnum(7);
2390          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2391          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
2392          vs_top=sup;          vs_top=sup;
2393          {object V385 = vs_base[0];          {object V392 = vs_base[0];
2394          VMR39(V385)}          VMR39(V392)}
2395          base[0]=base[0];          base[0]=base[0];
2396          return Cnil;          return Cnil;
2397  }  }
2398  /*      local entry for function C1NTH  */  /*      local entry for function C1NTH  */
2399    
2400  static object LI40(V387)  static object LI40(V394)
2401    
2402  register object V387;  register object V394;
2403  {        VMB40 VMS40 VMV40  {        VMB40 VMS40 VMV40
2404          goto TTL;          goto TTL;
2405  TTL:;  TTL:;
2406          {object V389= car((V387));          {object V396= CMPcar((V394));
2407          if(!eql(V389,VV[142]))goto T1022;          if(!eql(V396,VV[142]))goto T1018;
2408          V388= make_cons(VV[61],cdr((V387)));          V395= make_cons(VV[61],CMPcdr((V394)));
2409            goto T1017;
2410            goto T1018;
2411    T1018:;
2412            if(!eql(V396,VV[80]))goto T1019;
2413            V395= make_cons(VV[105],CMPcdr((V394)));
2414            goto T1017;
2415            goto T1019;
2416    T1019:;
2417            if(!eql(V396,VV[68]))goto T1020;
2418            V395= make_cons(VV[143],CMPcdr((V394)));
2419            goto T1017;
2420            goto T1020;
2421    T1020:;
2422            if(!eql(V396,VV[144]))goto T1021;
2423            V395= make_cons(VV[145],CMPcdr((V394)));
2424            goto T1017;
2425          goto T1021;          goto T1021;
2426    T1021:;
2427            if(!eql(V396,VV[66]))goto T1022;
2428            V395= list(2,VV[61],make_cons(VV[146],CMPcdr((V394))));
2429            goto T1017;
2430          goto T1022;          goto T1022;
2431  T1022:;  T1022:;
2432          if(!eql(V389,VV[80]))goto T1023;          if(!eql(V396,VV[147]))goto T1023;
2433          V388= make_cons(VV[105],cdr((V387)));          V395= list(2,VV[105],make_cons(VV[146],CMPcdr((V394))));
2434          goto T1021;          goto T1017;
2435          goto T1023;          goto T1023;
2436  T1023:;  T1023:;
2437          if(!eql(V389,VV[68]))goto T1024;          if(!eql(V396,VV[82]))goto T1024;
2438          V388= make_cons(VV[143],cdr((V387)));          V395= list(2,VV[143],make_cons(VV[146],CMPcdr((V394))));
2439          goto T1021;          goto T1017;
2440          goto T1024;          goto T1024;
2441  T1024:;  T1024:;
2442          if(!eql(V389,VV[144]))goto T1025;          if(!eql(V396,VV[84]))goto T1025;
2443          V388= make_cons(VV[145],cdr((V387)));          V395= list(2,VV[145],make_cons(VV[146],CMPcdr((V394))));
2444          goto T1021;          goto T1017;
2445          goto T1025;          goto T1025;
2446  T1025:;  T1025:;
2447          if(!eql(V389,VV[66]))goto T1026;          V395= Cnil;}
2448          V388= list(2,VV[61],make_cons(VV[146],cdr((V387))));          goto T1017;
2449          goto T1021;  T1017:;
2450          goto T1026;          {object V397 = (*(LnkLI235))(V395);
2451  T1026:;          VMR40(V397)}
         if(!eql(V389,VV[147]))goto T1027;  
         V388= list(2,VV[105],make_cons(VV[146],cdr((V387))));  
         goto T1021;  
         goto T1027;  
 T1027:;  
         if(!eql(V389,VV[82]))goto T1028;  
         V388= list(2,VV[143],make_cons(VV[146],cdr((V387))));  
         goto T1021;  
         goto T1028;  
 T1028:;  
         if(!eql(V389,VV[84]))goto T1029;  
         V388= list(2,VV[145],make_cons(VV[146],cdr((V387))));  
         goto T1021;  
         goto T1029;  
 T1029:;  
         V388= Cnil;}  
         goto T1021;  
 T1021:;  
         {object V390 = (*(LnkLI235))(V388);  
         VMR40(V390)}  
2452          return Cnil;          return Cnil;
2453  }  }
2454  /*      local entry for function C1NTHCDR-CONDITION     */  /*      local entry for function C1NTHCDR-CONDITION     */
2455    
2456  static object LI41(V392)  static object LI41(V399)
2457    
2458  register object V392;  register object V399;
2459  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
2460          goto TTL;          goto TTL;
2461  TTL:;  TTL:;
2462          if(((endp_prop((V392))?Ct:Cnil))==Cnil){          if(((((V399))==Cnil?Ct:Cnil))==Cnil){
2463            goto T1026;}
2464            {object V400 = Cnil;
2465            VMR41(V400)}
2466            goto T1026;
2467    T1026:;
2468            if((((CMPcdr((V399)))==Cnil?Ct:Cnil))==Cnil){
2469            goto T1028;}
2470            {object V401 = Cnil;
2471            VMR41(V401)}
2472            goto T1028;
2473    T1028:;
2474            if((CMPcddr((V399)))==Cnil){
2475          goto T1030;}          goto T1030;}
2476          {object V393 = Cnil;          {object V402 = Cnil;
2477          VMR41(V393)}          VMR41(V402)}
2478          goto T1030;          goto T1030;
2479  T1030:;  T1030:;
2480          if(((endp_prop(cdr((V392)))?Ct:Cnil))==Cnil){          {object V403= CMPcar((V399));
2481          goto T1032;}          if(type_of(V403)==t_fixnum||
2482          {object V394 = Cnil;  type_of(V403)==t_bignum||
2483          VMR41(V394)}  type_of(V403)==t_ratio||
2484    type_of(V403)==t_shortfloat||
2485    type_of(V403)==t_longfloat||
2486    type_of(V403)==t_complex){
2487            goto T1032;}}
2488            {object V404 = Cnil;
2489            VMR41(V404)}
2490          goto T1032;          goto T1032;
2491  T1032:;  T1032:;
         if(endp_prop(cddr((V392)))){  
         goto T1034;}  
         {object V395 = Cnil;  
         VMR41(V395)}  
         goto T1034;  
 T1034:;  
         {object V396= car((V392));  
         if(type_of(V396)==t_fixnum||  
 type_of(V396)==t_bignum||  
 type_of(V396)==t_ratio||  
 type_of(V396)==t_shortfloat||  
 type_of(V396)==t_longfloat||  
 type_of(V396)==t_complex){  
         goto T1036;}}  
         {object V397 = Cnil;  
         VMR41(V397)}  
         goto T1036;  
 T1036:;  
2492          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
2493          base[1]= car((V392));          base[1]= CMPcar((V399));
2494          base[2]= small_fixnum(7);          base[2]= small_fixnum(7);
2495          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2496          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
2497          vs_top=sup;          vs_top=sup;
2498          {object V398 = vs_base[0];          {object V405 = vs_base[0];
2499          VMR41(V398)}          VMR41(V405)}
2500          base[0]=base[0];          base[0]=base[0];
2501          return Cnil;          return Cnil;
2502  }  }
2503  /*      local entry for function C1NTHCDR       */  /*      local entry for function C1NTHCDR       */
2504    
2505  static object LI42(V400)  static object LI42(V407)
2506    
2507  register object V400;  register object V407;
2508  {        VMB42 VMS42 VMV42  {        VMB42 VMS42 VMV42
2509          goto TTL;          goto TTL;
2510  TTL:;  TTL:;
2511          {object V402= car((V400));          {object V409= CMPcar((V407));
2512          if(!eql(V402,VV[142]))goto T1042;          if(!eql(V409,VV[142]))goto T1038;
2513          V401= cadr((V400));          V408= CMPcadr((V407));
2514            goto T1037;
2515            goto T1038;
2516    T1038:;
2517            if(!eql(V409,VV[80]))goto T1039;
2518            V408= make_cons(VV[148],CMPcdr((V407)));
2519            goto T1037;
2520            goto T1039;
2521    T1039:;
2522            if(!eql(V409,VV[68]))goto T1040;
2523            V408= make_cons(VV[149],CMPcdr((V407)));
2524            goto T1037;
2525            goto T1040;
2526    T1040:;
2527            if(!eql(V409,VV[144]))goto T1041;
2528            V408= make_cons(VV[150],CMPcdr((V407)));
2529            goto T1037;
2530          goto T1041;          goto T1041;
2531    T1041:;
2532            if(!eql(V409,VV[66]))goto T1042;
2533            V408= make_cons(VV[146],CMPcdr((V407)));
2534            goto T1037;
2535          goto T1042;          goto T1042;
2536  T1042:;  T1042:;
2537          if(!eql(V402,VV[80]))goto T1043;          if(!eql(V409,VV[147]))goto T1043;
2538          V401= make_cons(VV[148],cdr((V400)));          V408= list(2,VV[148],make_cons(VV[146],CMPcdr((V407))));
2539          goto T1041;          goto T1037;
2540          goto T1043;          goto T1043;
2541  T1043:;  T1043:;
2542          if(!eql(V402,VV[68]))goto T1044;          if(!eql(V409,VV[82]))goto T1044;
2543          V401= make_cons(VV[149],cdr((V400)));          V408= list(2,VV[149],make_cons(VV[146],CMPcdr((V407))));
2544          goto T1041;          goto T1037;
2545          goto T1044;          goto T1044;
2546  T1044:;  T1044:;
2547          if(!eql(V402,VV[144]))goto T1045;          if(!eql(V409,VV[84]))goto T1045;
2548          V401= make_cons(VV[150],cdr((V400)));          V408= list(2,VV[150],make_cons(VV[146],CMPcdr((V407))));
2549          goto T1041;          goto T1037;
2550          goto T1045;          goto T1045;
2551  T1045:;  T1045:;
2552          if(!eql(V402,VV[66]))goto T1046;          V408= Cnil;}
2553          V401= make_cons(VV[146],cdr((V400)));          goto T1037;
2554          goto T1041;  T1037:;
2555          goto T1046;          {object V410 = (*(LnkLI235))(V408);
2556  T1046:;          VMR42(V410)}
         if(!eql(V402,VV[147]))goto T1047;  
         V401= list(2,VV[148],make_cons(VV[146],cdr((V400))));  
         goto T1041;  
         goto T1047;  
 T1047:;  
         if(!eql(V402,VV[82]))goto T1048;  
         V401= list(2,VV[149],make_cons(VV[146],cdr((V400))));  
         goto T1041;  
         goto T1048;  
 T1048:;  
         if(!eql(V402,VV[84]))goto T1049;  
         V401= list(2,VV[150],make_cons(VV[146],cdr((V400))));  
         goto T1041;  
         goto T1049;  
 T1049:;  
         V401= Cnil;}  
         goto T1041;  
 T1041:;  
         {object V403 = (*(LnkLI235))(V401);  
         VMR42(V403)}  
2557          return Cnil;          return Cnil;
2558  }  }
2559  /*      local entry for function C1RPLACA-NTHCDR        */  /*      local entry for function C1RPLACA-NTHCDR        */
2560    
2561  static object LI43(V405)  static object LI43(V412)
2562    
2563  register object V405;  register object V412;
2564  {        VMB43 VMS43 VMV43  {        VMB43 VMS43 VMV43
2565          goto TTL;          goto TTL;
2566  TTL:;  TTL:;
2567          {object V406;          {object V413;
2568          V406= (VFUN_NARGS=0,(*(LnkLI208))());          V413= (VFUN_NARGS=0,(*(LnkLI208))());
2569          if(endp_prop((V405))){          if(((V412))==Cnil){
2570          goto T1052;}          goto T1048;}
2571          if(endp_prop(cdr((V405)))){          if((CMPcdr((V412)))==Cnil){
2572          goto T1052;}          goto T1048;}
2573          if(!(endp_prop(cddr((V405))))){          if(!((CMPcddr((V412)))==Cnil)){
2574          goto T1051;}          goto T1047;}
2575          goto T1052;          goto T1048;
2576  T1052:;  T1048:;
2577          V407 = make_fixnum((long)length((V405)));          V414 = CMPmake_fixnum((long)length((V412)));
2578          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V407));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V414));
2579          goto T1051;          goto T1047;
2580  T1051:;  T1047:;
2581          if(endp_prop(cdddr((V405)))){          if((CMPcdddr((V412)))==Cnil){
2582          goto T1058;}          goto T1054;}
2583          V408 = make_fixnum((long)length((V405)));          V415 = CMPmake_fixnum((long)length((V412)));
2584          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V408));          (void)((*(LnkLI209))(VV[151],small_fixnum(3),V415));
2585          goto T1058;          goto T1054;
2586  T1058:;  T1054:;
2587          {object V409= cadr((V405));          {object V416= CMPcadr((V412));
2588          if(!(type_of(V409)==t_fixnum||          if(!(type_of(V416)==t_fixnum||
2589  type_of(V409)==t_bignum||  type_of(V416)==t_bignum||
2590  type_of(V409)==t_ratio||  type_of(V416)==t_ratio||
2591  type_of(V409)==t_shortfloat||  type_of(V416)==t_shortfloat||
2592  type_of(V409)==t_longfloat||  type_of(V416)==t_longfloat||
2593  type_of(V409)==t_complex)){  type_of(V416)==t_complex)){
2594          goto T1062;}}          goto T1058;}}
2595          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
2596          base[2]= cadr((V405));          base[2]= CMPcadr((V412));
2597          base[3]= small_fixnum(10);          base[3]= small_fixnum(10);
2598          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
2599          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
2600          vs_top=sup;          vs_top=sup;
2601          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2602          goto T1062;}          goto T1058;}
2603          {register object V410;          {register object V417;
2604          object V411;          object V418;
2605          vs_base=vs_top;          vs_base=vs_top;
2606          Lgensym();          Lgensym();
2607          vs_top=sup;          vs_top=sup;
2608          V410= vs_base[0];          V417= vs_base[0];
2609          vs_base=vs_top;          vs_base=vs_top;
2610          Lgensym();          Lgensym();
2611          vs_top=sup;          vs_top=sup;
2612          V411= vs_base[0];          V418= vs_base[0];
2613          V412= list(2,(V410),car((V405)));          V419= list(2,(V417),CMPcar((V412)));
2614          V413= list(2,/* INLINE-ARGS */V412,list(2,(V411),caddr((V405))));          V420= list(2,/* INLINE-ARGS */V419,list(2,(V418),CMPcaddr((V412))));
2615          V414= list(3,VV[152],(V410),list(3,VV[153],cadr((V405)),(V410)));          V421= list(3,VV[152],(V417),list(3,VV[153],CMPcadr((V412)),(V417)));
2616          V415= list(5,VV[29],/* INLINE-ARGS */V413,/* INLINE-ARGS */V414,list(3,VV[152],list(2,VV[61],(V410)),(V411)),(V411));          V422= list(5,VV[29],/* INLINE-ARGS */V420,/* INLINE-ARGS */V421,list(3,VV[152],list(2,VV[61],(V417)),(V418)),(V418));
2617          {object V416 = (*(LnkLI235))(/* INLINE-ARGS */V415);          {object V423 = (*(LnkLI235))(/* INLINE-ARGS */V422);
2618          VMR43(V416)}}          VMR43(V423)}}
2619          goto T1062;          goto T1058;
2620  T1062:;  T1058:;
2621          {object V417 = list(4,VV[4],(V406),VV[151],(*(LnkLI219))((V405),(V406)));          {object V424 = list(4,VV[4],(V413),VV[151],(*(LnkLI219))((V412),(V413)));
2622          VMR43(V417)}}          VMR43(V424)}}
2623          base[0]=base[0];          base[0]=base[0];
2624          return Cnil;          return Cnil;
2625  }  }
2626  /*      local entry for function FAST-READ      */  /*      local entry for function FAST-READ      */
2627    
2628  static object LI44(V420,V421)  static object LI44(V427,V428)
2629    
2630  register object V420;object V421;  register object V427;object V428;
2631  {        VMB44 VMS44 VMV44  {        VMB44 VMS44 VMV44
2632          goto TTL;          goto TTL;
2633  TTL:;  TTL:;
2634          if((symbol_value(VV[25]))!=Cnil){          if(((VV[25]->s.s_dbind))!=Cnil){
2635          goto T1072;}          goto T1068;}
2636          if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){          if(!(number_compare((VV[154]->s.s_dbind),small_fixnum(2))<0)){
2637          goto T1072;}          goto T1068;}
2638          if((cadr((V420)))!=Cnil){          if((CMPcadr((V427)))!=Cnil){
2639          goto T1072;}          goto T1068;}
2640          base[0]= VV[155];          if(!((VV[155])->s.s_dbind!=OBJNULL)){
2641          vs_top=(vs_base=base+0)+1;          goto T1068;}
2642          Lboundp();          if(!(type_of(CMPcar((V427)))!=t_cons)){
2643          vs_top=sup;          goto T1077;}{object V429;
2644          if((vs_base[0])==Cnil){          V429= CMPcar((V427));
2645          goto T1072;}          if(V429==Cnil)goto T1080;
2646          if(!(type_of(car((V420)))!=t_cons)){          goto T1079;
2647          goto T1082;}{object V422;          goto T1080;
2648          V422= car((V420));  T1080:;}
2649          if(V422==Cnil)goto T1085;          V427= make_cons(VV[156],CMPcdr((V427)));
2650          goto T1084;          goto T1079;
2651    T1079:;
2652            {register object V430;
2653            object V431;
2654            V430= CMPcar((V427));
2655            V431= CMPcaddr((V427));
2656            V432= list(2,VV[160],(V430));
2657            V433= list(3,VV[161],VV[162],list(2,VV[163],(V430)));
2658            V434= list(3,VV[50],VV[162],small_fixnum(-1));
2659            V435= list(2,list(3,VV[108],/* INLINE-ARGS */V434,list(2,VV[164],(V430))),(V431));
2660            if(!(((V428))==(VV[165]))){
2661            goto T1087;}
2662            V436= VV[166];
2663          goto T1085;          goto T1085;
2664  T1085:;}          goto T1087;
2665          V420= make_cons(VV[156],cdr((V420)));  T1087:;
2666          goto T1084;          V436= VV[162];
2667  T1084:;          goto T1085;
2668          {register object V423;  T1085:;
2669          object V424;          V437= list(3,/* INLINE-ARGS */V432,/* INLINE-ARGS */V433,list(3,VV[159],/* INLINE-ARGS */V435,list(2,Ct,V436)));
2670          V423= car((V420));          {object V438 = list(4,VV[29],VV[157],VV[158],list(3,VV[159],/* INLINE-ARGS */V437,list(2,Ct,list(3,(V428),(V430),(V431)))));
2671          V424= caddr((V420));          VMR44(V438)}}
2672          V425= list(2,VV[160],(V423));          goto T1077;
2673          V426= list(3,VV[161],VV[162],list(2,VV[163],(V423)));  T1077:;
2674          V427= list(3,VV[50],VV[162],small_fixnum(-1));          V439= list(2,VV[167],CMPcar((V427)));
2675          V428= list(2,list(3,VV[108],/* INLINE-ARGS */V427,list(2,VV[164],(V423))),(V424));          V440= make_cons(/* INLINE-ARGS */V439,Cnil);
2676          if(!(((V421))==(VV[165]))){          V441= (*(LnkLI239))(CMPcar((V427)));
2677          goto T1092;}          V442= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V441,VV[167]));
2678          V429= VV[166];          V443= make_cons(VV[167],CMPcdr((V427)));
2679          goto T1090;          {object V444 = list(4,VV[29],/* INLINE-ARGS */V440,/* INLINE-ARGS */V442,(*(LnkLI249))(/* INLINE-ARGS */V443,(V428)));
2680          goto T1092;          VMR44(V444)}
2681  T1092:;          goto T1068;
2682          V429= VV[162];  T1068:;
2683          goto T1090;          {object V445 = Cnil;
2684  T1090:;          VMR44(V445)}
         V430= list(3,/* INLINE-ARGS */V425,/* INLINE-ARGS */V426,list(3,VV[159],/* INLINE-ARGS */V428,list(2,Ct,V429)));  
         {object V431 = list(4,VV[29],VV[157],VV[158],list(3,VV[159],/* INLINE-ARGS */V430,list(2,Ct,list(3,(V421),(V423),(V424)))));  
         VMR44(V431)}}  
         goto T1082;  
 T1082:;  
         V432= list(2,VV[167],car((V420)));  
         V433= make_cons(/* INLINE-ARGS */V432,Cnil);  
         V434= (*(LnkLI239))(car((V420)));  
         V435= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V434,VV[167]));  
         V436= make_cons(VV[167],cdr((V420)));  
         {object V437 = list(4,VV[29],/* INLINE-ARGS */V433,/* INLINE-ARGS */V435,(*(LnkLI249))(/* INLINE-ARGS */V436,(V421)));  
         VMR44(V437)}  
         goto T1072;  
 T1072:;  
         {object V438 = Cnil;  
         VMR44(V438)}  
         base[0]=base[0];  
2685          return Cnil;          return Cnil;
2686  }  }
2687  /*      local entry for function CO1READ-BYTE   */  /*      local entry for function CO1READ-BYTE   */
2688    
2689  static object LI45(V441,V442)  static object LI45(V448,V449)
2690    
2691  object V441;object V442;  object V448;object V449;
2692  {        VMB45 VMS45 VMV45  {        VMB45 VMS45 VMV45
2693          bds_check;          bds_check;
2694          goto TTL;          goto TTL;
2695  TTL:;  TTL:;
2696          {object V443;          {object V450;
2697          V443= Cnil;          V450= Cnil;
2698          V443= (*(LnkLI249))((V442),VV[168]);          V450= (*(LnkLI249))((V449),VV[168]);
2699          if(((V443))==Cnil){          if(((V450))==Cnil){
2700          goto T1097;}          goto T1092;}
2701          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2702          {object V444 = (*(LnkLI235))((V443));          {object V451 = (*(LnkLI235))((V450));
2703          bds_unwind1;          bds_unwind1;
2704          VMR45(V444)}          VMR45(V451)}
2705          goto T1097;          goto T1092;
2706  T1097:;  T1092:;
2707          {object V445 = Cnil;          {object V452 = Cnil;
2708          VMR45(V445)}}          VMR45(V452)}}
2709          base[0]=base[0];          base[0]=base[0];
2710          return Cnil;          return Cnil;
2711  }  }
2712  /*      local entry for function CO1READ-CHAR   */  /*      local entry for function CO1READ-CHAR   */
2713    
2714  static object LI46(V448,V449)  static object LI46(V455,V456)
2715    
2716  object V448;object V449;  object V455;object V456;
2717  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
2718          bds_check;          bds_check;
2719          goto TTL;          goto TTL;
2720  TTL:;  TTL:;
2721          {object V450;          {object V457;
2722          V450= Cnil;          V457= Cnil;
2723          V450= (*(LnkLI249))((V449),VV[165]);          V457= (*(LnkLI249))((V456),VV[165]);
2724          if(((V450))==Cnil){          if(((V457))==Cnil){
2725          goto T1103;}          goto T1098;}
2726          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2727          {object V451 = (*(LnkLI235))((V450));          {object V458 = (*(LnkLI235))((V457));
2728          bds_unwind1;          bds_unwind1;
2729          VMR46(V451)}          VMR46(V458)}
2730          goto T1103;          goto T1098;
2731  T1103:;  T1098:;
2732          {object V452 = Cnil;          {object V459 = Cnil;
2733          VMR46(V452)}}          VMR46(V459)}}
2734          base[0]=base[0];          base[0]=base[0];
2735          return Cnil;          return Cnil;
2736  }  }
2737  /*      local entry for function CFAST-WRITE    */  /*      local entry for function CFAST-WRITE    */
2738    
2739  static object LI47(V455,V456)  static object LI47(V462,V463)
2740    
2741  object V455;object V456;  object V462;object V463;
2742  {        VMB47 VMS47 VMV47  {        VMB47 VMS47 VMV47
2743          goto TTL;          goto TTL;
2744  TTL:;  TTL:;
2745          if((symbol_value(VV[25]))!=Cnil){          if(((VV[25]->s.s_dbind))!=Cnil){
2746          goto T1107;}          goto T1102;}
2747          if(!(number_compare(symbol_value(VV[154]),small_fixnum(2))<0)){          if(!(number_compare((VV[154]->s.s_dbind),small_fixnum(2))<0)){
2748          goto T1107;}          goto T1102;}
2749          base[0]= VV[155];          if(!((VV[155])->s.s_dbind!=OBJNULL)){
2750          vs_top=(vs_base=base+0)+1;          goto T1102;}
2751          Lboundp();          {register object V464;
2752          vs_top=sup;          V464= CMPcadr((V462));
2753          if((vs_base[0])==Cnil){          if((V464)!=Cnil){
2754          goto T1107;}          goto T1109;}
2755          {register object V457;          V464= VV[169];
2756          V457= cadr((V455));          goto T1109;
2757          if((V457)!=Cnil){  T1109:;
2758          goto T1115;}          if(!(type_of((V464))!=t_cons)){
2759          V457= VV[169];          goto T1112;}
2760          goto T1115;          V465= list(2,VV[160],(V464));
2761  T1115:;          V466= list(2,/* INLINE-ARGS */V465,list(3,VV[86],VV[96],list(3,VV[170],VV[171],(V464))));
2762          if(!(type_of((V457))!=t_cons)){          {object V467 = list(3,VV[159],/* INLINE-ARGS */V466,list(2,Ct,list(3,(V463),VV[171],(V464))));
         goto T1118;}  
         V458= list(2,VV[160],(V457));  
         V459= list(2,/* INLINE-ARGS */V458,list(3,VV[86],VV[96],list(3,VV[170],VV[171],(V457))));  
         {object V460 = list(3,VV[159],/* INLINE-ARGS */V459,list(2,Ct,list(3,(V456),VV[171],(V457))));  
         VMR47(V460)}  
         goto T1118;  
 T1118:;  
         V461= list(2,VV[172],(V457));  
         V462= make_cons(/* INLINE-ARGS */V461,Cnil);  
         V463= (*(LnkLI239))((V457));  
         V464= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V463,VV[172]));  
         V465= list(2,VV[171],VV[172]);  
         {object V466 = list(4,VV[29],/* INLINE-ARGS */V462,/* INLINE-ARGS */V464,(*(LnkLI250))(/* INLINE-ARGS */V465,(V456)));  
         VMR47(V466)}}  
         goto T1107;  
 T1107:;  
         {object V467 = Cnil;  
2763          VMR47(V467)}          VMR47(V467)}
2764          base[0]=base[0];          goto T1112;
2765    T1112:;
2766            V468= list(2,VV[172],(V464));
2767            V469= make_cons(/* INLINE-ARGS */V468,Cnil);
2768            V470= (*(LnkLI239))((V464));
2769            V471= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V470,VV[172]));
2770            V472= list(2,VV[171],VV[172]);
2771            {object V473 = list(4,VV[29],/* INLINE-ARGS */V469,/* INLINE-ARGS */V471,(*(LnkLI250))(/* INLINE-ARGS */V472,(V463)));
2772            VMR47(V473)}}
2773            goto T1102;
2774    T1102:;
2775            {object V474 = Cnil;
2776            VMR47(V474)}
2777          return Cnil;          return Cnil;
2778  }  }
2779  /*      local entry for function CO1WRITE-BYTE  */  /*      local entry for function CO1WRITE-BYTE  */
2780    
2781  static object LI48(V470,V471)  static object LI48(V477,V478)
2782    
2783  object V470;register object V471;  object V477;register object V478;
2784  {        VMB48 VMS48 VMV48  {        VMB48 VMS48 VMV48
2785          bds_check;          bds_check;
2786          goto TTL;          goto TTL;
2787  TTL:;  TTL:;
2788          {object V472;          {object V479;
2789          V472= (*(LnkLI250))((V471),VV[173]);          V479= (*(LnkLI250))((V478),VV[173]);
2790          if(((V472))==Cnil){          if(((V479))==Cnil){
2791          goto T1123;}          goto T1117;}
2792          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2793          V473= list(2,VV[171],car((V471)));          V480= list(2,VV[171],CMPcar((V478)));
2794          V474= make_cons(/* INLINE-ARGS */V473,Cnil);          V481= make_cons(/* INLINE-ARGS */V480,Cnil);
2795          if(!(type_of(car((V471)))!=t_cons)){          if(!(type_of(CMPcar((V478)))!=t_cons)){
2796          goto T1127;}          goto T1121;}
2797          V475= car((V471));          V482= CMPcar((V478));
2798          goto T1125;          goto T1119;
2799          goto T1127;          goto T1121;
2800  T1127:;  T1121:;
2801          V475= VV[171];          V482= VV[171];
2802          goto T1125;          goto T1119;
2803  T1125:;  T1119:;
2804          V476= list(5,VV[29],/* INLINE-ARGS */V474,VV[174],(V472),V475);          V483= list(5,VV[29],/* INLINE-ARGS */V481,VV[174],(V479),V482);
2805          {object V477 = (*(LnkLI235))(/* INLINE-ARGS */V476);          {object V484 = (*(LnkLI235))(/* INLINE-ARGS */V483);
2806          bds_unwind1;          bds_unwind1;
2807          VMR48(V477)}          VMR48(V484)}
2808          goto T1123;          goto T1117;
2809  T1123:;  T1117:;
2810          {object V478 = Cnil;          {object V485 = Cnil;
2811          VMR48(V478)}}          VMR48(V485)}}
2812          base[0]=base[0];          base[0]=base[0];
2813          return Cnil;          return Cnil;
2814  }  }
2815  /*      local entry for function CO1WRITE-CHAR  */  /*      local entry for function CO1WRITE-CHAR  */
2816    
2817  static object LI49(V481,V482)  static object LI49(V488,V489)
2818    
2819  object V481;register object V482;  object V488;register object V489;
2820  {        VMB49 VMS49 VMV49  {        VMB49 VMS49 VMV49
2821          bds_check;          bds_check;
2822          goto TTL;          goto TTL;
2823  TTL:;  TTL:;
2824          {object V483;          {object V490;
2825          V483= (*(LnkLI250))((V482),VV[175]);          V490= (*(LnkLI250))((V489),VV[175]);
2826          if(((V483))==Cnil){          if(((V490))==Cnil){
2827          goto T1132;}          goto T1126;}
2828          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2829          V484= list(2,VV[171],car((V482)));          V491= list(2,VV[171],CMPcar((V489)));
2830          V485= make_cons(/* INLINE-ARGS */V484,Cnil);          V492= make_cons(/* INLINE-ARGS */V491,Cnil);
2831          if(!(type_of(car((V482)))!=t_cons)){          if(!(type_of(CMPcar((V489)))!=t_cons)){
2832          goto T1136;}          goto T1130;}
2833          V486= car((V482));          V493= CMPcar((V489));
2834          goto T1134;          goto T1128;
2835          goto T1136;          goto T1130;
2836  T1136:;  T1130:;
2837          V486= VV[171];          V493= VV[171];
2838          goto T1134;          goto T1128;
2839  T1134:;  T1128:;
2840          V487= list(5,VV[29],/* INLINE-ARGS */V485,VV[176],(V483),V486);          V494= list(5,VV[29],/* INLINE-ARGS */V492,VV[176],(V490),V493);
2841          {object V488 = (*(LnkLI235))(/* INLINE-ARGS */V487);          {object V495 = (*(LnkLI235))(/* INLINE-ARGS */V494);
2842          bds_unwind1;          bds_unwind1;
2843          VMR49(V488)}          VMR49(V495)}
2844          goto T1132;          goto T1126;
2845  T1132:;  T1126:;
2846          {object V489 = Cnil;          {object V496 = Cnil;
2847          VMR49(V489)}}          VMR49(V496)}}
2848          base[0]=base[0];          base[0]=base[0];
2849          return Cnil;          return Cnil;
2850  }  }
2851  /*      local entry for function AET-C-TYPE     */  /*      local entry for function AET-C-TYPE     */
2852    
2853  static object LI50(V491)  static object LI50(V498)
2854    
2855  object V491;  object V498;
2856  {        VMB50 VMS50 VMV50  {        VMB50 VMS50 VMV50
2857          goto TTL;          goto TTL;
2858  TTL:;  TTL:;
2859          {object V492= (V491);          {object V499= (V498);
2860          if((V492!= Ct))goto T1138;          if((V499!= Ct))goto T1132;
2861          {object V493 = VV[177];          {object V500 = VV[177];
2862          VMR50(V493)}          VMR50(V500)}
2863            goto T1132;
2864    T1132:;
2865            if((V499!= VV[118])
2866            && (V499!= VV[251]))goto T1133;
2867            {object V501 = VV[178];
2868            VMR50(V501)}
2869            goto T1133;
2870    T1133:;
2871            if((V499!= VV[96]))goto T1134;
2872            {object V502 = VV[179];
2873            VMR50(V502)}
2874            goto T1134;
2875    T1134:;
2876            if((V499!= VV[252]))goto T1135;
2877            {object V503 = VV[180];
2878            VMR50(V503)}
2879            goto T1135;
2880    T1135:;
2881            if((V499!= VV[253]))goto T1136;
2882            {object V504 = VV[181];
2883            VMR50(V504)}
2884            goto T1136;
2885    T1136:;
2886            if((V499!= VV[254]))goto T1137;
2887            {object V505 = VV[182];
2888            VMR50(V505)}
2889            goto T1137;
2890    T1137:;
2891            if((V499!= VV[253]))goto T1138;
2892            {object V506 = VV[183];
2893            VMR50(V506)}
2894          goto T1138;          goto T1138;
2895  T1138:;  T1138:;
2896          if((V492!= VV[118])          if((V499!= VV[255]))goto T1139;
2897          && (V492!= VV[251]))goto T1139;          {object V507 = VV[184];
2898          {object V494 = VV[178];          VMR50(V507)}
         VMR50(V494)}  
2899          goto T1139;          goto T1139;
2900  T1139:;  T1139:;
2901          if((V492!= VV[96]))goto T1140;          if((V499!= VV[256]))goto T1140;
2902          {object V495 = VV[179];          {object V508 = VV[185];
2903          VMR50(V495)}          VMR50(V508)}
2904          goto T1140;          goto T1140;
2905  T1140:;  T1140:;
2906          if((V492!= VV[252]))goto T1141;          FEerror("The ECASE key value ~s is illegal.",1,V499);
2907          {object V496 = VV[180];          {object V509 = Cnil;
2908          VMR50(V496)}          VMR50(V509)}}
         goto T1141;  
 T1141:;  
         if((V492!= VV[253]))goto T1142;  
         {object V497 = VV[181];  
         VMR50(V497)}  
         goto T1142;  
 T1142:;  
         if((V492!= VV[254]))goto T1143;  
         {object V498 = VV[182];  
         VMR50(V498)}  
         goto T1143;  
 T1143:;  
         if((V492!= VV[253]))goto T1144;  
         {object V499 = VV[183];  
         VMR50(V499)}  
         goto T1144;  
 T1144:;  
         if((V492!= VV[255]))goto T1145;  
         {object V500 = VV[184];  
         VMR50(V500)}  
         goto T1145;  
 T1145:;  
         if((V492!= VV[256]))goto T1146;  
         {object V501 = VV[185];  
         VMR50(V501)}  
         goto T1146;  
 T1146:;  
         FEerror("The ECASE key value ~s is illegal.",1,V492);  
         {object V502 = Cnil;  
         VMR50(V502)}}  
2909          return Cnil;          return Cnil;
2910  }  }
2911  /*      local entry for function CO1VECTOR-PUSH */  /*      local entry for function CO1VECTOR-PUSH */
2912    
2913  static object LI51(V505,V506)  static object LI51(V512,V513)
2914    
2915  object V505;register object V506;  object V512;register object V513;
2916  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
2917          bds_check;          bds_check;
2918          goto TTL;          goto TTL;
2919  TTL:;  TTL:;
2920          if((symbol_value(VV[25]))!=Cnil){          if(((VV[25]->s.s_dbind))!=Cnil){
2921          goto T1149;}          goto T1143;}
2922          if(number_compare(symbol_value(VV[154]),small_fixnum(3))>0){          if(number_compare((VV[154]->s.s_dbind),small_fixnum(3))>0){
2923          goto T1149;}          goto T1143;}
2924          if((cdr((V506)))==Cnil){          if((CMPcdr((V513)))==Cnil){
2925          goto T1149;}          goto T1143;}
2926          bds_bind(VV[154],small_fixnum(10));          bds_bind(VV[154],small_fixnum(10));
2927          V507= list(2,VV[187],car((V506)));          V514= list(2,VV[187],CMPcar((V513)));
2928          V508= listA(3,/* INLINE-ARGS */V507,list(2,VV[188],cadr((V506))),VV[189]);          V515= listA(3,/* INLINE-ARGS */V514,list(2,VV[188],CMPcadr((V513))),VV[189]);
2929          V509= (*(LnkLI239))(cadr((V506)));          V516= (*(LnkLI239))(CMPcadr((V513)));
2930          V510= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V509,VV[188]));          V517= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V516,VV[188]));
2931          V511= (*(LnkLI239))(car((V506)));          V518= (*(LnkLI239))(CMPcar((V513)));
2932          V512= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V511,VV[187]));          V519= list(2,VV[106],list(3,VV[107],/* INLINE-ARGS */V518,VV[187]));
2933          if(!(((V505))==(VV[192]))){          if(!(((V512))==(VV[192]))){
2934          goto T1157;}          goto T1151;}
2935          V513= listA(4,VV[192],VV[187],VV[188],cddr((V506)));          V520= listA(4,VV[192],VV[187],VV[188],CMPcddr((V513)));
2936          goto T1155;          goto T1149;
2937          goto T1157;          goto T1151;
2938  T1157:;  T1151:;
2939          V513= Cnil;          V520= Cnil;
         goto T1155;  
 T1155:;  
         V514= list(6,VV[186],/* INLINE-ARGS */V508,VV[190],/* INLINE-ARGS */V510,/* INLINE-ARGS */V512,list(3,VV[159],VV[191],list(2,Ct,V513)));  
         {object V515 = (*(LnkLI235))(/* INLINE-ARGS */V514);  
         bds_unwind1;  
         VMR51(V515)}  
2940          goto T1149;          goto T1149;
2941  T1149:;  T1149:;
2942          {object V516 = Cnil;          V521= list(6,VV[186],/* INLINE-ARGS */V515,VV[190],/* INLINE-ARGS */V517,/* INLINE-ARGS */V519,list(3,VV[159],VV[191],list(2,Ct,V520)));
2943          VMR51(V516)}          {object V522 = (*(LnkLI235))(/* INLINE-ARGS */V521);
2944            bds_unwind1;
2945            VMR51(V522)}
2946            goto T1143;
2947    T1143:;
2948            {object V523 = Cnil;
2949            VMR51(V523)}
2950          base[0]=base[0];          base[0]=base[0];
2951          return Cnil;          return Cnil;
2952  }  }
2953  /*      local entry for function CONSTANT-FOLD-P        */  /*      local entry for function CONSTANT-FOLD-P        */
2954    
2955  static object LI52(V518)  static object LI52(V525)
2956    
2957  register object V518;  register object V525;
2958  {        VMB52 VMS52 VMV52  {        VMB52 VMS52 VMV52
2959          goto TTL;          goto TTL;
2960  TTL:;  TTL:;
2961          base[0]= (V518);          base[0]= (V525);
2962          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2963          Lconstantp();          Lconstantp();
2964          vs_top=sup;          vs_top=sup;
2965          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2966          goto T1160;}          goto T1154;}
         {object V519 = Ct;  
         VMR52(V519)}  
         goto T1160;  
 T1160:;  
         if(!(type_of((V518))!=t_cons)){  
         goto T1164;}  
         {object V520 = Cnil;  
         VMR52(V520)}  
         goto T1164;  
 T1164:;  
         if(!((car((V518)))==(VV[86]))){  
         goto T1167;}  
         V518= caddr((V518));  
         goto TTL;  
         goto T1167;  
 T1167:;  
         if(!(type_of(car((V518)))==t_symbol)){  
         goto T1172;}  
         V521= get(car((V518)),VV[193],Cnil);  
         if(!((V521)==(VV[194]))){  
         goto T1172;}  
         {register object V522;  
         register object V523;  
         V522= cdr((V518));  
         V523= car((V522));  
         goto T1181;  
 T1181:;  
         if(!(endp_prop((V522)))){  
         goto T1182;}  
         goto T1177;  
         goto T1182;  
 T1182:;{object V524;  
         V524= (*(LnkLI257))((V523));  
         if(V524==Cnil)goto T1187;  
         goto T1186;  
         goto T1187;  
 T1187:;}  
         {object V525 = Cnil;  
         VMR52(V525)}  
         goto T1186;  
 T1186:;  
         V522= cdr((V522));  
         V523= car((V522));  
         goto T1181;}  
         goto T1177;  
 T1177:;  
2967          {object V526 = Ct;          {object V526 = Ct;
2968          VMR52(V526)}          VMR52(V526)}
2969          goto T1172;          goto T1154;
2970  T1172:;  T1154:;
2971            if(!(type_of((V525))!=t_cons)){
2972            goto T1158;}
2973          {object V527 = Cnil;          {object V527 = Cnil;
2974          VMR52(V527)}          VMR52(V527)}
2975            goto T1158;
2976    T1158:;
2977            if(!((CMPcar((V525)))==(VV[86]))){
2978            goto T1161;}
2979            V525= CMPcaddr((V525));
2980            goto TTL;
2981            goto T1161;
2982    T1161:;
2983            if(!(type_of(CMPcar((V525)))==t_symbol)){
2984            goto T1166;}
2985            {object V529 =(CMPcar((V525)))->s.s_plist;
2986             object ind= VV[193];
2987            while(V529!=Cnil){
2988            if(V529->c.c_car==ind){
2989            V528= (V529->c.c_cdr->c.c_car);
2990            goto T1170;
2991            }else V529=V529->c.c_cdr->c.c_cdr;}
2992            V528= Cnil;}
2993            goto T1170;
2994    T1170:;
2995            if(!((V528)==(VV[194]))){
2996            goto T1166;}
2997            {register object V530;
2998            register object V531;
2999            V530= CMPcdr((V525));
3000            V531= CMPcar((V530));
3001            goto T1175;
3002    T1175:;
3003            if(!(((V530))==Cnil)){
3004            goto T1176;}
3005            goto T1171;
3006            goto T1176;
3007    T1176:;{object V532;
3008            V532= (*(LnkLI257))((V531));
3009            if(V532==Cnil)goto T1181;
3010            goto T1180;
3011            goto T1181;
3012    T1181:;}
3013            {object V533 = Cnil;
3014            VMR52(V533)}
3015            goto T1180;
3016    T1180:;
3017            V530= CMPcdr((V530));
3018            V531= CMPcar((V530));
3019            goto T1175;}
3020            goto T1171;
3021    T1171:;
3022            {object V534 = Ct;
3023            VMR52(V534)}
3024            goto T1166;
3025    T1166:;
3026            {object V535 = Cnil;
3027            VMR52(V535)}
3028          base[0]=base[0];          base[0]=base[0];
3029          return Cnil;          return Cnil;
3030  }  }
3031  /*      local entry for function CO1CONSTANT-FOLD       */  /*      local entry for function CO1CONSTANT-FOLD       */
3032    
3033  static object LI53(V530,V531)  static object LI53(V538,V539)
3034    
3035  object V530;object V531;  object V538;object V539;
3036  {        VMB53 VMS53 VMV53  {        VMB53 VMS53 VMV53
3037          goto TTL;          goto TTL;
3038  TTL:;  TTL:;
3039          base[0]= (V530);          base[0]= (V538);
3040          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3041          Lfboundp();          Lfboundp();
3042          vs_top=sup;          vs_top=sup;
3043          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3044          goto T1195;}          goto T1189;}
3045          {register object V532;          {register object V540;
3046          register object V533;          register object V541;
3047          V532= (V531);          V540= (V539);
3048          V533= car((V532));          V541= CMPcar((V540));
3049            goto T1197;
3050    T1197:;
3051            if(!(((V540))==Cnil)){
3052            goto T1198;}
3053            goto T1193;
3054            goto T1198;
3055    T1198:;{object V542;
3056            V542= (*(LnkLI257))((V541));
3057            if(V542==Cnil)goto T1203;
3058            goto T1202;
3059          goto T1203;          goto T1203;
3060  T1203:;  T1203:;}
3061          if(!(endp_prop((V532)))){          {object V543 = Cnil;
3062          goto T1204;}          VMR53(V543)}
3063          goto T1199;          goto T1202;
3064          goto T1204;  T1202:;
3065  T1204:;{object V534;          V540= CMPcdr((V540));
3066          V534= (*(LnkLI257))((V533));          V541= CMPcar((V540));
3067          if(V534==Cnil)goto T1209;          goto T1197;}
3068          goto T1208;          goto T1193;
3069          goto T1209;  T1193:;
3070  T1209:;}          base[0]= make_cons((V538),(V539));
         {object V535 = Cnil;  
         VMR53(V535)}  
         goto T1208;  
 T1208:;  
         V532= cdr((V532));  
         V533= car((V532));  
         goto T1203;}  
         goto T1199;  
 T1199:;  
         base[0]= make_cons((V530),(V531));  
3071          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3072          (void) (*Lnk258)();          (void) (*Lnk258)();
3073          vs_top=sup;          vs_top=sup;
3074          V536= vs_base[0];          V544= vs_base[0];
3075          {object V537 = (*(LnkLI235))(V536);          {object V545 = (*(LnkLI235))(V544);
3076          VMR53(V537)}          VMR53(V545)}
3077          goto T1195;          goto T1189;
3078  T1195:;  T1189:;
3079          {object V538 = Cnil;          {object V546 = Cnil;
3080          VMR53(V538)}          VMR53(V546)}
3081          base[0]=base[0];          base[0]=base[0];
3082          return Cnil;          return Cnil;
3083  }  }
3084  /*      local entry for function CO1SPECIAL-FIX-DECL    */  /*      local entry for function CO1SPECIAL-FIX-DECL    */
3085    
3086  static object LI54(V541,V542)  static object LI54(V549,V550)
3087    
3088  object V541;register object V542;  object V549;register object V550;
3089  {        VMB54 VMS54 VMV54  {        VMB54 VMS54 VMV54
3090          goto TTL;          goto TTL;
3091  TTL:;  TTL:;
3092          {object V544= (V541);          {object V552= (V549);
3093          if((V544!= VV[260])          if((V552!= VV[260])
3094          && (V544!= VV[261]))goto T1219;          && (V552!= VV[261]))goto T1213;
3095          V545= car((V542));          V553= CMPcar((V550));
3096          V546= cadr((V542));          V554= CMPcadr((V550));
3097          base[0]= cddr((V542));          base[0]= CMPcddr((V550));
3098          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3099          L55(base);          L55(base);
3100          vs_top=sup;          vs_top=sup;
3101          V547= vs_base[0];          V555= vs_base[0];
3102          V543= listA(4,(V541),/* INLINE-ARGS */V545,/* INLINE-ARGS */V546,V547);          V551= listA(4,(V549),/* INLINE-ARGS */V553,/* INLINE-ARGS */V554,V555);
3103          goto T1218;          goto T1212;
3104          goto T1219;          goto T1213;
3105  T1219:;  T1213:;
3106          if((V544!= VV[262])          if((V552!= VV[262])
3107          && (V544!= VV[263]))goto T1222;          && (V552!= VV[263]))goto T1216;
3108          V548= car((V542));          V556= CMPcar((V550));
3109          base[0]= cdr((V542));          base[0]= CMPcdr((V550));
3110          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3111          L55(base);          L55(base);
3112          vs_top=sup;          vs_top=sup;
3113          V549= vs_base[0];          V557= vs_base[0];
3114          V543= listA(3,(V541),/* INLINE-ARGS */V548,V549);          V551= listA(3,(V549),/* INLINE-ARGS */V556,V557);
3115          goto T1218;          goto T1212;
3116          goto T1222;          goto T1216;
3117  T1222:;  T1216:;
3118          V543= Cnil;}          V551= Cnil;}
3119          goto T1218;          goto T1212;
3120  T1218:;  T1212:;
3121          V550= (*(LnkLI259))(V543);          V558= (*(LnkLI259))(V551);
3122          {object V551 = (*(LnkLI235))(/* INLINE-ARGS */V550);          {object V559 = (*(LnkLI235))(/* INLINE-ARGS */V558);
3123          VMR54(V551)}          VMR54(V559)}
3124          base[0]=base[0];          base[0]=base[0];
3125          return Cnil;          return Cnil;
3126  }  }
3127  /*      local entry for function CO1SUBLIS      */  /*      local entry for function CO1SUBLIS      */
3128    
3129  static object LI56(V554,V555)  static object LI56(V562,V563)
3130    
3131  object V554;register object V555;  object V562;register object V563;
3132  {        VMB55 VMS55 VMV55  {        VMB55 VMS55 VMV55
3133          goto TTL;          goto TTL;
3134  TTL:;  TTL:;
3135          {register object V556;          {register object V564;
3136          V556= Cnil;switch((long)length((V555))){          V564= Cnil;switch((long)length((V563))){
3137          case 2:          case 2:
3138          goto T1230;          goto T1224;
3139  T1230:;  T1224:;
3140          V556= VV[50];          V564= VV[50];
3141          if((VV[50])!=Cnil){          if((VV[50])!=Cnil){
3142          goto T1227;}          goto T1221;}
3143          goto T1228;          goto T1222;
3144          case 4:          case 4:
3145          goto T1231;          goto T1225;
3146  T1231:;  T1225:;
3147          if((caddr((V555)))==(VV[51])){          if((CMPcaddr((V563)))==(VV[51])){
3148          goto T1234;}          goto T1228;}
3149            goto T1222;
3150          goto T1228;          goto T1228;
3151          goto T1234;  T1228:;
3152  T1234:;          {register object x= CMPcadddr((V563)),V565= VV[195];
3153          {register object x= cadddr((V555)),V557= VV[195];          while(V565!=Cnil)
3154          while(!endp(V557))          if(eql(x,V565->c.c_car)){
3155          if(eql(x,V557->c.c_car)){          goto T1232;
3156          goto T1238;          }else V565=V565->c.c_cdr;
3157          }else V557=V557->c.c_cdr;          goto T1231;}
3158          goto T1237;}          goto T1232;
3159          goto T1238;  T1232:;
3160  T1238:;          V564= VV[196];
         V556= VV[196];  
3161          if((VV[196])!=Cnil){          if((VV[196])!=Cnil){
3162          goto T1227;}          goto T1221;}
3163          goto T1228;          goto T1222;
3164          goto T1237;          goto T1231;
3165  T1237:;  T1231:;
3166          {register object x= cadddr((V555)),V558= VV[197];          {register object x= CMPcadddr((V563)),V566= VV[197];
3167          while(!endp(V558))          while(V566!=Cnil)
3168          if(eql(x,V558->c.c_car)){          if(eql(x,V566->c.c_car)){
3169          goto T1242;          goto T1236;
3170          }else V558=V558->c.c_cdr;          }else V566=V566->c.c_cdr;
3171          goto T1241;}          goto T1235;}
3172          goto T1242;          goto T1236;
3173  T1242:;  T1236:;
3174          V556= VV[50];          V564= VV[50];
3175          if((VV[50])!=Cnil){          if((VV[50])!=Cnil){
3176          goto T1227;}          goto T1221;}
3177          goto T1228;          goto T1222;
3178          goto T1241;          goto T1235;
3179  T1241:;  T1235:;
3180          {register object x= cadddr((V555)),V559= VV[198];          {register object x= CMPcadddr((V563)),V567= VV[198];
3181          while(!endp(V559))          while(V567!=Cnil)
3182          if(eql(x,V559->c.c_car)){          if(eql(x,V567->c.c_car)){
3183          goto T1246;          goto T1240;
3184          }else V559=V559->c.c_cdr;          }else V567=V567->c.c_cdr;
3185          goto T1245;}          goto T1239;}
3186          goto T1246;          goto T1240;
3187  T1246:;  T1240:;
3188          V556= VV[48];          V564= VV[48];
3189          if((VV[48])!=Cnil){          if((VV[48])!=Cnil){
3190          goto T1227;}          goto T1221;}
3191          goto T1228;          goto T1222;
3192          goto T1245;          goto T1239;
3193  T1245:;  T1239:;
3194          goto T1228;          goto T1222;
3195          default:          default:
3196          goto T1232;          goto T1226;
3197  T1232:;  T1226:;
3198          goto T1228;}          goto T1222;}
3199          goto T1228;          goto T1222;
3200  T1228:;  T1222:;
3201          {object V560 = Cnil;          {object V568 = Cnil;
3202          VMR55(V560)}          VMR55(V568)}
3203          goto T1227;          goto T1221;
3204  T1227:;  T1221:;
3205          {object V561;          {object V569;
3206          vs_base=vs_top;          vs_base=vs_top;
3207          Lgensym();          Lgensym();
3208          vs_top=sup;          vs_top=sup;
3209          V561= vs_base[0];          V569= vs_base[0];
3210          V562= list(2,(V561),car((V555)));          V570= list(2,(V569),CMPcar((V563)));
3211          V563= make_cons(/* INLINE-ARGS */V562,Cnil);          V571= make_cons(/* INLINE-ARGS */V570,Cnil);
3212          V564= cadr((V555));          V572= CMPcadr((V563));
3213          V565= list(3,VV[29],/* INLINE-ARGS */V563,list(4,VV[199],(V561),/* INLINE-ARGS */V564,list(2,VV[113],(V556))));          V573= list(3,VV[29],/* INLINE-ARGS */V571,list(4,VV[199],(V569),/* INLINE-ARGS */V572,list(2,VV[113],(V564))));
3214          {object V566 = (*(LnkLI235))(/* INLINE-ARGS */V565);          {object V574 = (*(LnkLI235))(/* INLINE-ARGS */V573);
3215          VMR55(V566)}}}          VMR55(V574)}}}
3216          base[0]=base[0];          base[0]=base[0];
3217          return Cnil;          return Cnil;
3218  }  }
3219  /*      local entry for function SUBLIS1-INLINE */  /*      local entry for function SUBLIS1-INLINE */
3220    
3221  static object LI57(V570,V571,V572)  static object LI57(V578,V579,V580)
3222    
3223  object V570;object V571;object V572;  object V578;object V579;object V580;
3224  {        VMB56 VMS56 VMV56  {        VMB56 VMS56 VMV56
3225          goto TTL;          goto TTL;
3226  TTL:;  TTL:;
3227          {object V573;          {object V581;
3228          V574= (VFUN_NARGS=4,(*(LnkLI264))(cadr((V572)),symbol_value(VV[200]),VV[201],VV[105]));          V582= (VFUN_NARGS=4,(*(LnkLI264))(CMPcadr((V580)),(VV[200]->s.s_dbind),VV[201],VV[105]));
3229          V573= car(/* INLINE-ARGS */V574);{object V575;          V581= CMPcar(/* INLINE-ARGS */V582);{object V583;
3230          {register object x= (V573),V576= VV[202];          {register object x= (V581),V584= VV[202];
3231          while(!endp(V576))          while(V584!=Cnil)
3232          if(eql(x,V576->c.c_car)){          if(eql(x,V584->c.c_car)){
3233          V575= V576;          V583= V584;
3234          goto T1252;          goto T1246;
3235          }else V576=V576->c.c_cdr;          }else V584=V584->c.c_cdr;
3236          V575= Cnil;}          V583= Cnil;}
3237          goto T1252;          goto T1246;
3238  T1252:;  T1246:;
3239          if(V575==Cnil)goto T1251;          if(V583==Cnil)goto T1245;
3240          goto T1250;          goto T1244;
3241          goto T1251;          goto T1245;
3242  T1251:;}  T1245:;}
3243          base[0]= VV[203];          base[0]= VV[203];
3244          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3245          Lerror();          Lerror();
3246          vs_top=sup;          vs_top=sup;
3247          goto T1250;          goto T1244;
3248  T1250:;  T1244:;
3249          princ_str("(check_alist(",VV[7]);          princ_str("(check_alist(",VV[7]);
3250          (void)((*(LnkLI213))((V570)));          (void)((*(LnkLI213))((V578)));
3251          princ_str("),sublis1(",VV[7]);          princ_str("),sublis1(",VV[7]);
3252          (void)((*(LnkLI213))((V570)));          (void)((*(LnkLI213))((V578)));
3253          princ_char(44,VV[7]);          princ_char(44,VV[7]);
3254          (void)((*(LnkLI213))((V571)));          (void)((*(LnkLI213))((V579)));
3255          princ_char(44,VV[7]);          princ_char(44,VV[7]);
3256          base[0]= Cnil;          base[0]= Cnil;
3257          base[1]= VV[204];          base[1]= VV[204];
3258          base[2]= (V573);          base[2]= (V581);
3259          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3260          Lformat();          Lformat();
3261          vs_top=sup;          vs_top=sup;
3262          V577= vs_base[0];          V585= vs_base[0];
3263          (void)((*(LnkLI213))(V577));          (void)((*(LnkLI213))(V585));
3264          {object V578 = Cnil;          {object V586 = Cnil;
3265          VMR56(V578)}}          VMR56(V586)}}
3266          base[0]=base[0];          base[0]=base[0];
3267          return Cnil;          return Cnil;
3268  }  }
3269  /*      local entry for function C1LIST-NTH     */  /*      local entry for function C1LIST-NTH     */
3270    
3271  static object LI58(V580)  static object LI58(V588)
3272    
3273  register object V580;  register object V588;
3274  {        VMB57 VMS57 VMV57  {        VMB57 VMS57 VMV57
3275          goto TTL;          goto TTL;
3276  TTL:;  TTL:;
3277          {register object V581;          {register object V589;
3278          V581= (VFUN_NARGS=0,(*(LnkLI208))());          V589= (VFUN_NARGS=0,(*(LnkLI208))());
3279          if(endp_prop((V580))){          if(((V588))==Cnil){
3280          goto T1268;}          goto T1262;}
3281          if(!(endp_prop(cdr((V580))))){          if(!((CMPcdr((V588)))==Cnil)){
3282          goto T1267;}          goto T1261;}
3283          goto T1268;          goto T1262;
3284  T1268:;  T1262:;
3285          V582 = make_fixnum((long)length((V580)));          V590 = CMPmake_fixnum((long)length((V588)));
3286          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V582));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V590));
3287          goto T1267;          goto T1261;
3288  T1267:;  T1261:;
3289          if(endp_prop(cddr((V580)))){          if((CMPcddr((V588)))==Cnil){
3290          goto T1272;}          goto T1266;}
3291          V583 = make_fixnum((long)length((V580)));          V591 = CMPmake_fixnum((long)length((V588)));
3292          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V583));          (void)((*(LnkLI209))(VV[151],small_fixnum(2),V591));
3293          goto T1272;          goto T1266;
3294  T1272:;  T1266:;
3295          {object V584= car((V580));          {object V592= CMPcar((V588));
3296          if(!(type_of(V584)==t_fixnum||          if(!(type_of(V592)==t_fixnum||
3297  type_of(V584)==t_bignum||  type_of(V592)==t_bignum||
3298  type_of(V584)==t_ratio||  type_of(V592)==t_ratio||
3299  type_of(V584)==t_shortfloat||  type_of(V592)==t_shortfloat||
3300  type_of(V584)==t_longfloat||  type_of(V592)==t_longfloat||
3301  type_of(V584)==t_complex)){  type_of(V592)==t_complex)){
3302          goto T1276;}}          goto T1270;}}
3303          base[1]= small_fixnum(0);          base[1]= small_fixnum(0);
3304          base[2]= car((V580));          base[2]= CMPcar((V588));
3305          base[3]= small_fixnum(10);          base[3]= small_fixnum(10);
3306          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+1)+3;
3307          Lmonotonically_nondecreasing();          Lmonotonically_nondecreasing();
3308          vs_top=sup;          vs_top=sup;
3309          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3310          goto T1276;}          goto T1270;}
3311          V585= car((V580));          V593= CMPcar((V588));
3312          V586= make_cons(cadr((V580)),Cnil);          V594= make_cons(CMPcadr((V588)),Cnil);
3313          {object V587 = list(4,VV[205],(V581),/* INLINE-ARGS */V585,(*(LnkLI219))(/* INLINE-ARGS */V586,(V581)));          {object V595 = list(4,VV[205],(V589),/* INLINE-ARGS */V593,(*(LnkLI219))(/* INLINE-ARGS */V594,(V589)));
3314          VMR57(V587)}          VMR57(V595)}
3315          goto T1276;          goto T1270;
3316  T1276:;  T1270:;
3317          {object V588 = list(4,VV[4],(V581),VV[206],(*(LnkLI219))((V580),(V581)));          {object V596 = list(4,VV[4],(V589),VV[206],(*(LnkLI219))((V588),(V589)));
3318          VMR57(V588)}}          VMR57(V596)}}
3319          base[0]=base[0];          base[0]=base[0];
3320          return Cnil;          return Cnil;
3321  }  }
3322  /*      local entry for function C2LIST-NTH-IMMEDIATE   */  /*      local entry for function C2LIST-NTH-IMMEDIATE   */
3323    
3324  static object LI59(V591,V592)  static object LI59(V599,V600)
3325    
3326  object V591;object V592;  object V599;object V600;
3327  {        VMB58 VMS58 VMV58  {        VMB58 VMS58 VMV58
3328          bds_check;          bds_check;
3329          goto TTL;          goto TTL;
3330  TTL:;  TTL:;
3331          {object V593;          {object V601;
3332          setq(VV[22],number_plus(symbol_value(VV[22]),small_fixnum(1)));          (VV[22]->s.s_dbind)= number_plus((VV[22]->s.s_dbind),small_fixnum(1));
3333          V593= symbol_value(VV[22]);          V601= (VV[22]->s.s_dbind);
3334          bds_bind(VV[20],symbol_value(VV[20]));          bds_bind(VV[20],(VV[20]->s.s_dbind));
3335          bds_bind(VV[42],small_fixnum(0));          bds_bind(VV[42],small_fixnum(0));
3336          V592= (VFUN_NARGS=2,(*(LnkLI232))((V592),VV[207]));          V600= (VFUN_NARGS=2,(*(LnkLI232))((V600),VV[207]));
3337          princ_str("\n   {object V",VV[7]);          princ_str("\n   {object V",VV[7]);
3338          (void)((*(LnkLI213))((V593)));          (void)((*(LnkLI213))((V601)));
3339          princ_str("= ",VV[7]);          princ_str("= ",VV[7]);
3340          if((symbol_value(VV[25]))==Cnil){          if(((VV[25]->s.s_dbind))==Cnil){
3341          goto T1293;}          goto T1287;}
3342          {register long V594;          {register long V602;
3343          register long V595;          register long V603;
3344          V594= fix((V591));          V602= fix((V599));
3345          V595= 0;          V603= 0;
3346          goto T1299;          goto T1293;
3347  T1299:;  T1293:;
3348          if(!((V595)>=(V594))){          if(!((V603)>=(V602))){
3349          goto T1300;}          goto T1294;}
3350          goto T1295;          goto T1289;
3351          goto T1300;          goto T1294;
3352  T1300:;  T1294:;
3353          princ_str("cdr(",VV[7]);          princ_str("cdr(",VV[7]);
3354          V595= (long)(V595)+1;          V603= (long)(V603)+1;
3355          goto T1299;}          goto T1293;}
3356          goto T1295;          goto T1289;
3357  T1295:;  T1289:;
3358          (void)((*(LnkLI213))(car((V592))));          (void)((*(LnkLI213))(CMPcar((V600))));
3359          {register long V596;          {register long V604;
3360          register long V597;          register long V605;
3361          V596= fix((V591));          V604= fix((V599));
3362          V597= 0;          V605= 0;
3363          goto T1315;          goto T1309;
3364  T1315:;  T1309:;
3365          if(!((V597)>=(V596))){          if(!((V605)>=(V604))){
3366          goto T1316;}          goto T1310;}
3367          goto T1311;          goto T1305;
3368          goto T1316;          goto T1310;
3369  T1316:;  T1310:;
3370          princ_char(41,VV[7]);          princ_char(41,VV[7]);
3371          V597= (long)(V597)+1;          V605= (long)(V605)+1;
3372          goto T1315;}          goto T1309;}
3373          goto T1311;          goto T1305;
3374  T1311:;  T1305:;
3375          princ_char(59,VV[7]);          princ_char(59,VV[7]);
3376          princ_str("\n   if((type_of(V",VV[7]);          princ_str("\n   if((type_of(V",VV[7]);
3377          (void)((*(LnkLI213))((V593)));          (void)((*(LnkLI213))((V601)));
3378          princ_str(")!=t_cons) && (",VV[7]);          princ_str(")!=t_cons) && (",VV[7]);
3379          (void)((*(LnkLI213))(car((V592))));          (void)((*(LnkLI213))(CMPcar((V600))));
3380          princ_str("!= Cnil))",VV[7]);          princ_str("!= Cnil))",VV[7]);
3381          princ_str("\n    FEwrong_type_argument(Scons,V",VV[7]);          princ_str("\n    FEwrong_type_argument(Scons,V",VV[7]);
3382          (void)((*(LnkLI213))((V593)));          (void)((*(LnkLI213))((V601)));
3383          princ_str(");",VV[7]);          princ_str(");",VV[7]);
3384          goto T1291;          goto T1285;
3385          goto T1293;          goto T1287;
3386  T1293:;  T1287:;
3387          princ_str("\n   ",VV[7]);          princ_str("\n   ",VV[7]);
3388          (void)((*(LnkLI213))(car((V592))));          (void)((*(LnkLI213))(CMPcar((V600))));
3389          {register long V598;          {register long V606;
3390          register long V599;          register long V607;
3391          V598= fix((V591));          V606= fix((V599));
3392          V599= 0;          V607= 0;
3393          goto T1343;          goto T1337;
3394  T1343:;  T1337:;
3395          if(!((V599)>=(V598))){          if(!((V607)>=(V606))){
3396          goto T1344;}          goto T1338;}
3397          goto T1339;          goto T1333;
3398          goto T1344;          goto T1338;
3399  T1344:;  T1338:;
3400          princ_str("\n   ->c.c_cdr",VV[7]);          princ_str("\n   ->c.c_cdr",VV[7]);
3401          V599= (long)(V599)+1;          V607= (long)(V607)+1;
3402          goto T1343;}          goto T1337;}
3403          goto T1339;          goto T1333;
3404  T1339:;  T1333:;
3405          princ_char(59,VV[7]);          princ_char(59,VV[7]);
3406          goto T1291;          goto T1285;
3407  T1291:;  T1285:;
3408          V600= list(2,VV[61],(V593));          V608= list(2,VV[61],(V601));
3409          (void)((VFUN_NARGS=1,(*(LnkLI214))(/* INLINE-ARGS */V600)));          (void)((VFUN_NARGS=1,(*(LnkLI214))(/* INLINE-ARGS */V608)));
3410          princ_char(125,VV[7]);          princ_char(125,VV[7]);
3411          {object V601 = (*(LnkLI233))();          {object V609 = (*(LnkLI233))();
3412          bds_unwind1;          bds_unwind1;
3413          bds_unwind1;          bds_unwind1;
3414          VMR58(V601)}}          VMR58(V609)}}
3415          base[0]=base[0];          base[0]=base[0];
3416          return Cnil;          return Cnil;
3417  }  }
# Line 3430  static void L55(base0) Line 3421  static void L55(base0)
3421  register object *base0;  register object *base0;
3422  {       register object *base=vs_base;  {       register object *base=vs_base;
3423          register object *sup=base+VM59; VC59          register object *sup=base+VM59; VC59
3424          vs_reserve(VM59);          vs_check;
3425          {register object V602;          {register object V610;
3426          check_arg(1);          V610=(base[0]);
         V602=(base[0]);  
3427          vs_top=sup;          vs_top=sup;
3428          goto TTL;          goto TTL;
3429  TTL:;  TTL:;
3430          {register object V603;          {register object V611;
3431          V603= Cnil;          V611= Cnil;
3432          goto T1359;          goto T1353;
3433  T1359:;  T1353:;
3434          if(!(type_of((V602))==t_cons)){          if(!(type_of((V610))==t_cons)){
3435          goto T1362;}          goto T1356;}
3436          goto T1361;          goto T1355;
3437          goto T1362;          goto T1356;
3438  T1362:;  T1356:;
3439          goto T1360;          goto T1354;
3440            goto T1355;
3441    T1355:;
3442            {register object V612;
3443            V612= CMPcar((V610));
3444            if(!(type_of((V612))==t_cons)){
3445            goto T1361;}
3446            V612= (*(LnkLI259))((V612));
3447            if(((V612))==Cnil){
3448            goto T1361;}
3449            if(!((CMPcar((V612)))==(VV[106]))){
3450            goto T1361;}
3451            {register object V613;
3452            V613= (V612);
3453            V611= make_cons((V613),(V611));}
3454            {register object V614;
3455            V614= CMPcar((V610));
3456            V610= CMPcdr((V610));
3457            goto T1358;}
3458          goto T1361;          goto T1361;
3459  T1361:;  T1361:;
3460          {register object V604;          goto T1354;}
3461          V604= car((V602));          goto T1358;
3462          if(!(type_of((V604))==t_cons)){  T1358:;
3463          goto T1367;}          goto T1353;
3464          V604= (*(LnkLI259))((V604));          goto T1354;
3465          if(((V604))==Cnil){  T1354:;
3466          goto T1367;}          V615= nreverse((V611));
3467          if(!((car((V604)))==(VV[106]))){          base[1]= nconc(/* INLINE-ARGS */V615,(V610));
         goto T1367;}  
         {register object V605;  
         V605= (V604);  
         V603= make_cons((V605),(V603));}  
         {register object V606;  
         V606= car((V602));  
         V602= cdr((V602));  
         goto T1364;}  
         goto T1367;  
 T1367:;  
         goto T1360;}  
         goto T1364;  
 T1364:;  
         goto T1359;  
         goto T1360;  
 T1360:;  
         V607= nreverse((V603));  
         base[1]= nconc(/* INLINE-ARGS */V607,(V602));  
3468          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3469          return;          return;
3470          base[1]= Cnil;          base[1]= Cnil;

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