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

Diff of /gcl/lsp/loop.c

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

revision 1.1 by camm, Thu May 16 21:52:46 2002 UTC revision 1.2 by camm, Mon Jun 10 18:36:36 2002 UTC
# Line 7  init_loop(){do_init(VV);} Line 7  init_loop(){do_init(VV);}
7  static L1()  static L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_check;
         check_arg(2);  
11          vs_top=sup;          vs_top=sup;
12          {object V1=base[0]->c.c_cdr;          {object V1=base[0]->c.c_cdr;
13          if(endp(V1))invalid_macro_call();          base[2]= (V1->c.c_car);}
         base[2]= (V1->c.c_car);  
         V1=V1->c.c_cdr;  
         if(!endp(V1))invalid_macro_call();}  
14          base[3]= list(2,VV[0],base[2]);          base[3]= list(2,VV[0],base[2]);
15          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
16          return;          return;
17  }  }
18  /*      macro definition for LOOP-SIMPLE-ERROR  */  /*      function definition for LOOP-GENTEMP    */
19    
20  static L2()  static L2()
21  {register object *base=vs_base;  {register object *base=vs_base;
22          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
23          vs_reserve(VM2);          vs_check;
24          check_arg(2);          {object V2;
25            if(vs_base>=vs_top){vs_top=sup;goto T1;}
26            V2=(base[0]);
27          vs_top=sup;          vs_top=sup;
         {object V2=base[0]->c.c_cdr;  
         if(endp(V2))invalid_macro_call();  
         base[2]= (V2->c.c_car);  
         V2=V2->c.c_cdr;  
         if(endp(V2)){  
         base[3]= Cnil;  
         base[4]= Cnil;  
         } else {  
         base[3]= (V2->c.c_car);  
         base[4]= Ct;  
         V2=V2->c.c_cdr;}  
         if(!endp(V2))invalid_macro_call();}  
         if((base[4])==Cnil){  
         goto T4;}  
         V3= VV[2];  
28          goto T2;          goto T2;
29  T4:;  T1:;
30          V3= VV[3];          V2= VV[1];
31  T2:;  T2:;
32          V4= list(2,VV[4],base[2]);          if(((VV[2]->s.s_dbind))==Cnil){
33          if(base[4]==Cnil){          goto T5;}
34          V5= Cnil;          base[1]= coerce_to_string((V2));
35          goto T6;}          vs_top=(vs_base=base+1)+1;
36          V5= make_cons(base[3],Cnil);          Lgentemp();
 T6:;  
         base[5]= listA(4,VV[1],V3,/* INLINE-ARGS */V4,V5);  
         vs_top=(vs_base=base+5)+1;  
37          return;          return;
38    T5:;
39            vs_base=vs_top;
40            Lgensym();
41            return;
42            }
43  }  }
44  /*      macro definition for LOOP-WARN  */  /*      function definition for LOOP-OPTIMIZATION-QUANTITIES    */
45    
46  static L3()  static L3()
47  {register object *base=vs_base;  {register object *base=vs_base;
48          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
49          vs_reserve(VM3);          vs_check;
50          check_arg(2);          {object V3;
51            V3=(base[0]);
52          vs_top=sup;          vs_top=sup;
53          {object V6=base[0]->c.c_cdr;  TTL:;
54          if(endp(V6))invalid_macro_call();          base[1]= small_fixnum(1);
55          base[2]= (V6->c.c_car);          base[2]= small_fixnum(1);
56          V6=V6->c.c_cdr;          base[3]= small_fixnum(1);
57          if(endp(V6)){          base[4]= small_fixnum(1);
58          base[3]= Cnil;          base[5]= small_fixnum(1);
59          base[4]= Cnil;          vs_top=(vs_base=base+1)+5;
         } else {  
         base[3]= (V6->c.c_car);  
         base[4]= Ct;  
         V6=V6->c.c_cdr;}  
         if(!endp(V6))invalid_macro_call();}  
         if((base[4])==Cnil){  
         goto T9;}  
         V7= (VFUN_NARGS=4,(*(LnkLI225))(VV[6],VV[7],base[2],VV[8]));  
         base[5]= list(3,VV[5],/* INLINE-ARGS */V7,base[3]);  
         vs_top=(vs_base=base+5)+1;  
         return;  
 T9:;  
         base[5]= list(2,VV[5],list(2,VV[4],(VFUN_NARGS=3,(*(LnkLI225))(VV[6],VV[9],base[2]))));  
         vs_top=(vs_base=base+5)+1;  
60          return;          return;
61            }
62  }  }
63  /*      macro definition for LOOP-POP-SOURCE    */  /*      function definition for HIDE-VARIABLE-REFERENCES        */
64    
65  static L4()  static L4()
66  {register object *base=vs_base;  {register object *base=vs_base;
67          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
68          vs_reserve(VM4);          vs_check;
69          check_arg(2);          {object V4;
70            object V5;
71            V4=(base[0]);
72            V5=(base[1]);
73          vs_top=sup;          vs_top=sup;
74          {object V8=base[0]->c.c_cdr;  TTL:;
75          if(!endp(V8))invalid_macro_call();}          base[2]= (V5);
         base[2]= VV[10];  
76          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
77          return;          return;
78            }
79  }  }
80  /*      macro definition for LOOP-GENTEMP       */  /*      function definition for HIDE-VARIABLE-REFERENCE */
81    
82  static L5()  static L5()
83  {register object *base=vs_base;  {register object *base=vs_base;
84          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
85          vs_reserve(VM5);          vs_check;
86          check_arg(2);          {object V6;
87            object V7;
88            object V8;
89            V6=(base[0]);
90            V7=(base[1]);
91            V8=(base[2]);
92          vs_top=sup;          vs_top=sup;
93          {object V9=base[0]->c.c_cdr;  TTL:;
94          if(endp(V9)){          base[3]= (V8);
         base[2]= VV[11];  
         } else {  
         base[2]= (V9->c.c_car);  
         V9=V9->c.c_cdr;}  
         if(!endp(V9))invalid_macro_call();}  
         base[3]= list(2,VV[12],list(2,VV[4],symbol_name(cadr(base[2]))));  
95          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
96          return;          return;
97            }
98  }  }
99  /*      function definition for LOOP-MAKE-PSETQ */  /*      macro definition for WITH-LOOP-LIST-COLLECTION-HEAD     */
100    
101  static L6()  static L6()
102  {register object *base=vs_base;  {register object *base=vs_base;
103          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
104          vs_reserve(VM6);          vs_check;
         {register object V10;  
         check_arg(1);  
         V10=(base[0]);  
105          vs_top=sup;          vs_top=sup;
106  TTL:;          {object V9=base[0]->c.c_cdr;
107          if((V10)==Cnil){          {object V10= (V9->c.c_car);
108          base[1]= Cnil;          base[2]= (V10->c.c_car);
109          vs_top=(vs_base=base+1)+1;          V10=V10->c.c_cdr;
110            base[3]= (V10->c.c_car);
111            V10=V10->c.c_cdr;
112            if(endp(V10)){
113            base[4]= Cnil;
114            } else {
115            base[4]= (V10->c.c_car);}}
116            V9=V9->c.c_cdr;
117            base[5]= V9;}
118            {object V11;
119            if(base[4]==Cnil){
120            V11= Cnil;
121            goto T14;}
122            V12= list(2,base[4],Cnil);
123            V11= make_cons(/* INLINE-ARGS */V12,Cnil);
124    T14:;
125            V13= list(2,base[2],VV[4]);
126            base[6]= listA(3,VV[3],listA(3,/* INLINE-ARGS */V13,list(2,base[3],base[2]),(V11)),base[5]);
127            vs_top=(vs_base=base+6)+1;
128          return;}          return;}
         V11= car((V10));  
         if((cddr((V10)))!=Cnil){  
         goto T15;}  
         V12= cadr((V10));  
         goto T13;  
 T15:;  
         V13= cadr((V10));  
         base[2]= cddr((V10));  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk226)();  
         vs_top=sup;  
         V14= vs_base[0];  
         V12= list(3,VV[13],/* INLINE-ARGS */V13,V14);  
 T13:;  
         base[1]= list(2,/* INLINE-ARGS */V11,V12);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk227)();  
         return;  
         }  
129  }  }
130  /*      function definition for LOOP-MAKE-DESETQ        */  /*      macro definition for LOOP-COLLECT-RPLACD        */
131    
132  static L7()  static L7()
133  {register object *base=vs_base;  {register object *base=vs_base;
134          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
135          vs_reserve(VM7);          vs_check;
         {object V15;  
         check_arg(1);  
         V15=(base[0]);  
136          vs_top=sup;          vs_top=sup;
137  TTL:;          {object V14=base[0]->c.c_cdr;
138          if((symbol_value(VV[14]))==Cnil){          {object V15= (V14->c.c_car);
139          goto T20;}          base[2]= (V15->c.c_car);
140            V15=V15->c.c_cdr;
141            base[3]= (V15->c.c_car);
142            V15=V15->c.c_cdr;
143            if(endp(V15)){
144            base[4]= Cnil;
145            } else {
146            base[4]= (V15->c.c_car);}}
147            V14=V14->c.c_cdr;
148            base[5]= (V14->c.c_car);}
149            base[6]= base[5];
150            base[7]= base[1];
151            vs_top=(vs_base=base+6)+2;
152            Lmacroexpand();
153            vs_top=sup;
154            base[5]= vs_base[0];
155          {register object V17;          {register object V17;
156          V17= (V15);          V17= Cnil;
157            if(!(type_of(base[5])==t_cons)){
158            goto T20;}
159            if(!((CMPcar(base[5]))==(VV[5]))){
160            goto T24;}
161            V18 = CMPmake_fixnum(length(CMPcdr(base[5])));
162            V17= one_minus(V18);
163            goto T20;
164  T24:;  T24:;
165          if(((V17))!=Cnil){          {register object x= CMPcar(base[5]),V19= VV[6];
166          goto T25;}          while(V19!=Cnil)
167          V16= VV[15];          if(eql(x,V19->c.c_car)){
168          goto T22;          goto T28;
169  T25:;{object V18;          }else V19=V19->c.c_cdr;
170          if((((car((V17)))==Cnil?Ct:Cnil))==Cnil){          goto T20;}
171          goto T32;}  T28:;
172          V18= Cnil;          if((CMPcddr(base[5]))==Cnil){
173          goto T31;          goto T20;}
174            base[6]= base[5];
175            vs_top=(vs_base=base+6)+1;
176            Llast();
177            vs_top=sup;
178            V21= vs_base[0];
179            {register object x= CMPcar(V21),V20= VV[7];
180            while(V20!=Cnil)
181            if(eql(x,V20->c.c_car)){
182            goto T32;
183            }else V20=V20->c.c_cdr;
184            goto T20;}
185  T32:;  T32:;
186          V18= (type_of(car((V17)))==t_symbol?Ct:Cnil);          V22 = CMPmake_fixnum(length(CMPcdr(base[5])));
187  T31:;          V17= number_minus(V22,small_fixnum(2));
         if(V18==Cnil)goto T30;  
         goto T29;  
 T30:;}  
         V16= VV[16];  
         goto T22;  
 T29:;  
         V17= cddr((V17));  
         goto T24;}  
 T22:;  
         base[1]= make_cons(V16,(V15));  
         vs_top=(vs_base=base+1)+1;  
         return;  
188  T20:;  T20:;
189          {register object V19;          {object V23;
190          register object V20;          if(((V17))!=Cnil){
191          register object V21;          goto T38;}
192          register object V22;          V24= list(3,VV[9],list(2,VV[10],base[3]),base[5]);
193          V19= (V15);          V23= list(3,VV[8],/* INLINE-ARGS */V24,list(3,VV[11],base[3],list(2,VV[12],list(2,VV[10],base[3]))));
194          V20= Cnil;          goto T36;
         V21= Cnil;  
         V22= Cnil;  
195  T38:;  T38:;
196          if(((V19))!=Cnil){          if(!(number_compare((V17),small_fixnum(0))<0)){
197          goto T39;}          goto T41;}
198          if((V20)==Cnil){          base[6]= Cnil;
199          base[1]= Cnil;          vs_top=(vs_base=base+6)+1;
         vs_top=(vs_base=base+1)+1;  
         return;}  
         base[1]= make_cons(VV[15],(V20));  
         vs_top=(vs_base=base+1)+1;  
200          return;          return;
201  T39:;  T41:;
202          V21= car((V19));          if(!(number_compare((V17),small_fixnum(0))==0)){
203          V22= cadr((V19));          goto T44;}
204          if(type_of((V21))!=t_cons){          V23= list(3,VV[13],base[3],list(3,VV[11],base[3],base[5]));
205          goto T47;}          goto T36;
206          if(type_of((V22))!=t_cons){  T44:;
207          goto T47;}          base[6]= list(3,VV[9],list(2,VV[10],base[3]),base[5]);
208          {register object x= car((V22)),V23= VV[17];          base[7]= (V17);
209          while(!endp(V23))          vs_top=(vs_base=base+6)+2;
210          if(eql(x,V23->c.c_car)){          L8(base);
211          goto T54;          vs_top=sup;
212          }else V23=V23->c.c_cdr;          V25= vs_base[0];
213          goto T48;}          V23= list(3,VV[11],base[3],V25);
214  T54:;  T36:;
215          if(type_of(cadr((V22)))!=t_cons){          if((base[4])==Cnil){
216          goto T47;}          goto T49;}
217  T48:;          V23= list(3,VV[14],(V23),list(3,VV[11],base[4],list(2,VV[10],base[2])));
218          if(symbol_value(VV[18])!=Cnil){  T49:;
219          V24= symbol_value(VV[18]);          base[6]= (V23);
220          goto T57;}          vs_top=(vs_base=base+6)+1;
221          base[1]= VV[19];          return;}}
         vs_top=(vs_base=base+1)+1;  
         Lgentemp();  
         vs_top=sup;  
         setq(VV[18],vs_base[0]);  
         V24= symbol_value(VV[18]);  
 T57:;{object V25;  
         V25= symbol_value(VV[18]);  
         V19= listA(5,V24,(V22),(V21),V25,cddr((V19)));}  
 T47:;  
         base[1]= car((V19));  
         base[2]= cadr((V19));  
         vs_top=(vs_base=base+1)+2;  
         (void) (*Lnk228)();  
         vs_top=sup;  
         V26= vs_base[0];  
         V20= nconc((V20),V26);  
         V19= cddr((V19));  
         goto T38;}  
         }  
222  }  }
223  /*      function definition for LOOP-DESETQ-INTERNAL    */  /*      macro definition for LOOP-COLLECT-ANSWER        */
224    
225  static L8()  static L9()
226  {register object *base=vs_base;  {register object *base=vs_base;
227          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
228          vs_reserve(VM8);          vs_check;
229          {register object V27;          vs_top=sup;
230            {object V26=base[0]->c.c_cdr;
231            base[2]= (V26->c.c_car);
232            V26=V26->c.c_cdr;
233            if(endp(V26)){
234            base[3]= Cnil;
235            } else {
236            base[3]= (V26->c.c_car);}}
237            if(base[3]!=Cnil){
238            vs_top=(vs_base=base+3)+1;
239            return;}
240            base[4]= list(2,VV[10],base[2]);
241            vs_top=(vs_base=base+4)+1;
242            return;
243    }
244    /*      function definition for MAKE-LOOP-MINIMAX-INTERNAL      */
245    
246    static L10()
247    {register object *base=vs_base;
248            register object *sup=base+VM9; VC9
249            vs_check;
250            {object V27;
251          object V28;          object V28;
252          check_arg(2);          object V29;
253            object V30;
254            object V31;
255            object V32;
256            parse_key(vs_base,FALSE,FALSE,6,VV[21],VV[22],VV[23],VV[25],VV[27],VV[28]);
257            vs_top=sup;
258          V27=(base[0]);          V27=(base[0]);
259          V28=(base[1]);          V28=(base[1]);
260            V29=(base[2]);
261            V30=(base[3]);
262            V31=(base[4]);
263            V32=(base[5]);
264            base[12]= VV[18];
265            base[13]= (V27);
266            base[14]= (V28);
267            base[15]= (V29);
268            base[16]= (V30);
269            base[17]= (V31);
270            base[18]= (V32);
271            vs_top=(vs_base=base+12)+7;
272            siLmake_structure();
273            return;
274            }
275    }
276    /*      function definition for MAKE-LOOP-MINIMAX       */
277    
278    static L11()
279    {register object *base=vs_base;
280            register object *sup=base+VM10; VC10
281            vs_check;
282            {object V33;
283            object V34;
284            V33=(base[0]);
285            V34=(base[1]);
286          vs_top=sup;          vs_top=sup;
287  TTL:;  TTL:;
288          if(((V27))!=Cnil){          {object V35;
289          goto T69;}          base[2]= (V34);
290          base[2]= Cnil;          base[3]= (VV[19]->s.s_dbind);
291          vs_top=(vs_base=base+2)+1;          base[4]= VV[20];
292          return;          base[5]= (VV[323]->s.s_gfdef);
293  T69:;          vs_top=(vs_base=base+2)+4;
294          if(!(type_of((V27))!=t_cons)){          Lassoc();
         goto T72;}  
         base[2]= list(2,(V27),(V28));  
         vs_top=(vs_base=base+2)+1;  
         return;  
 T72:;  
         base[2]= car((V27));  
         base[3]= list(2,VV[20],(V28));  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk228)();  
295          vs_top=sup;          vs_top=sup;
296          V29= vs_base[0];          V36= vs_base[0];
297          base[2]= cdr((V27));          V35= CMPcdr(V36);
298          base[3]= list(2,VV[21],(V28));          base[2]= VV[21];
299          vs_top=(vs_base=base+2)+2;          base[3]= (V33);
300          (void) (*Lnk228)();          base[4]= VV[22];
301            base[5]= (V34);
302            base[6]= VV[23];
303            base[8]= VV[24];
304            vs_top=(vs_base=base+8)+1;
305            (void) (*Lnk324)();
306            vs_top=sup;
307            base[7]= vs_base[0];
308            base[8]= VV[25];
309            if(((V35))==Cnil){
310            goto T76;}
311            base[9]= Cnil;
312            goto T75;
313    T76:;
314            base[10]= VV[26];
315            vs_top=(vs_base=base+10)+1;
316            (void) (*Lnk324)();
317          vs_top=sup;          vs_top=sup;
318          V30= vs_base[0];          base[9]= vs_base[0];
319          base[2]= nconc(V29,V30);  T75:;
320          vs_top=(vs_base=base+2)+1;          base[10]= VV[27];
321          return;          base[11]= Cnil;
322            base[12]= VV[28];
323            base[13]= (V35);
324            vs_top=(vs_base=base+2)+12;
325            (void) (*Lnk325)();
326            return;}
327          }          }
328  }  }
329  /*      function definition for LOOP-MAKE-SETQ  */  /*      function definition for LOOP-NOTE-MINIMAX-OPERATION     */
330    
331  static L9()  static L12()
332  {register object *base=vs_base;  {register object *base=vs_base;
333          register object *sup=base+VM9; VC9          register object *sup=base+VM11; VC11
334          vs_reserve(VM9);          vs_check;
335          {object V31;          {object V37;
336          check_arg(1);          register object V38;
337          V31=(base[0]);          V37=(base[0]);
338            V38=(base[1]);
339          vs_top=sup;          vs_top=sup;
340  TTL:;  TTL:;
341          if((V31)==Cnil){          {object V40;
342          base[1]= Cnil;          base[3]= (V37);
343          vs_top=(vs_base=base+1)+1;          base[4]= STREF(object,V38,16);
344          return;}          vs_top=(vs_base=base+3)+2;
345          base[1]= (V31);          Ladjoin();
346          vs_top=(vs_base=base+1)+1;          vs_top=sup;
347          (void) (*Lnk229)();          V40= vs_base[0];
348            V41= Ct;
349            STSET(object,V38,16, (V40));
350            (void)((V40));}
351            if((CMPcdr(STREF(object,(V38),16)))==Cnil){
352            goto T87;}
353            if((STREF(object,(V38),12))!=Cnil){
354            goto T87;}
355            base[2]= VV[26];
356            vs_top=(vs_base=base+2)+1;
357            (void) (*Lnk324)();
358            vs_top=sup;
359            V42= vs_base[0];
360            V43= Ct;
361            STSET(object,(V38),12, V42);
362            (void)(V42);
363    T87:;
364            base[2]= (V37);
365            vs_top=(vs_base=base+2)+1;
366          return;          return;
367          }          }
368  }  }
369  /*      function definition for LOOP-CONSTRUCT-RETURN   */  /*      macro definition for WITH-MINIMAX-VALUE */
370    
371  static L10()  static L13()
372  {register object *base=vs_base;  {register object *base=vs_base;
373          register object *sup=base+VM10; VC10          register object *sup=base+VM12; VC12
374          vs_reserve(VM10);          vs_check;
         {object V32;  
         check_arg(1);  
         V32=(base[0]);  
375          vs_top=sup;          vs_top=sup;
376  TTL:;          {object V44=base[0]->c.c_cdr;
377          if((symbol_value(VV[22]))==Cnil){          base[2]= (V44->c.c_car);
378          goto T82;}          V44=V44->c.c_cdr;
379          base[1]= list(3,VV[23],car(symbol_value(VV[22])),(V32));          base[3]= V44;}
380          vs_top=(vs_base=base+1)+1;          {object V45;
381          return;          object V46;
382  T82:;          object V47;
383          base[1]= list(2,VV[24],(V32));          register object V48;
384          vs_top=(vs_base=base+1)+1;          register object V49;
385            object V50;
386            object V51;
387            base[4]= STREF(object,base[2],4);
388            vs_top=(vs_base=base+4)+1;
389            (void) (*Lnk326)();
390            vs_top=sup;
391            V45= vs_base[0];
392            V46= CMPcar(STREF(object,base[2],16));
393            V47= STREF(object,base[2],20);
394            V48= STREF(object,base[2],0);
395            V49= STREF(object,base[2],8);
396            V50= STREF(object,base[2],12);
397            V51= STREF(object,base[2],4);
398            if(((V50))==Cnil){
399            goto T103;}
400            V52= list(2,(V48),(V45));
401            V53= list(2,(V49),(V45));
402            V54= list(3,/* INLINE-ARGS */V52,/* INLINE-ARGS */V53,list(2,(V50),Cnil));
403            base[4]= listA(4,VV[29],/* INLINE-ARGS */V54,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]);
404            vs_top=(vs_base=base+4)+1;
405          return;          return;
406          }  T103:;
407            if(!(((V46))==(VV[32]))){
408            goto T107;}
409            V55= CMPcar((V47));
410            goto T105;
411    T107:;
412            V55= CMPcadr((V47));
413    T105:;
414            V56= list(2,(V48),V55);
415            V57= list(2,/* INLINE-ARGS */V56,list(2,(V49),(V45)));
416            base[4]= listA(4,VV[29],/* INLINE-ARGS */V57,list(2,VV[30],list(4,VV[31],(V51),(V48),(V49))),base[3]);
417            vs_top=(vs_base=base+4)+1;
418            return;}
419    }
420    /*      macro definition for LOOP-ACCUMULATE-MINIMAX-VALUE      */
421    
422    static L14()
423    {register object *base=vs_base;
424            register object *sup=base+VM13; VC13
425            vs_check;
426            vs_top=sup;
427            {object V58=base[0]->c.c_cdr;
428            base[2]= (V58->c.c_car);
429            V58=V58->c.c_cdr;
430            base[3]= (V58->c.c_car);
431            V58=V58->c.c_cdr;
432            base[4]= (V58->c.c_car);}
433            {object V59;
434            object V60;
435            register object V61;
436            object V62;
437            V59= STREF(object,base[2],0);
438            V60= STREF(object,base[2],8);
439            V61= STREF(object,base[2],12);
440            base[9]= Ct;
441            base[10]= STREF(object,base[2],0);
442            {object V64= base[3];
443            if((V64!= VV[32]))goto T117;
444            V63= VV[33];
445            goto T116;
446    T117:;
447            if((V64!= VV[327]))goto T118;
448            V63= VV[34];
449            goto T116;
450    T118:;
451            FEerror("The ECASE key value ~s is illegal.",1,V64);}
452    T116:;
453            base[11]= list(3,V63,(V60),(V59));
454            vs_top=(vs_base=base+9)+3;
455            (void) (*Lnk328)();
456            vs_top=sup;
457            V62= vs_base[0];
458            V65= list(3,VV[11],(V60),base[4]);
459            if(((V61))==Cnil){
460            goto T121;}
461            V66= list(3,VV[35],list(2,VV[36],(V61)),(V62));
462            goto T119;
463    T121:;
464            V66= (V62);
465    T119:;
466            if((V61)==Cnil){
467            V67= Cnil;
468            goto T123;}
469            V67= list(2,(V61),Ct);
470    T123:;
471            V68= list(2,(V59),(V60));
472            V69= append(V67,/* INLINE-ARGS */V68);
473            base[9]= list(3,VV[14],/* INLINE-ARGS */V65,list(3,VV[8],V66,make_cons(VV[11],/* INLINE-ARGS */V69)));
474            vs_top=(vs_base=base+9)+1;
475            return;}
476  }  }
477  /*      function definition for LOOP-TEQUAL     */  /*      function definition for LOOP-TEQUAL     */
478    
479  static L11()  static L15()
480  {register object *base=vs_base;  {register object *base=vs_base;
481          register object *sup=base+VM11; VC11          register object *sup=base+VM14; VC14
482          vs_reserve(VM11);          vs_check;
483          {object V33;          {object V70;
484          object V34;          object V71;
485          check_arg(2);          V70=(base[0]);
486          V33=(base[0]);          V71=(base[1]);
         V34=(base[1]);  
487          vs_top=sup;          vs_top=sup;
488  TTL:;  TTL:;
489          if(type_of((V33))==t_symbol){          if(type_of((V70))==t_symbol){
490          goto T84;}          goto T124;}
491          base[2]= Cnil;          base[2]= Cnil;
492          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
493          return;          return;
494  T84:;  T124:;
495          base[2]= (V33);          base[2]= (V70);
496          base[3]= (V34);          base[3]= (V71);
497          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
498          Lstring_eq();          Lstring_eq();
499          return;          return;
# Line 368  T84:; Line 501  T84:;
501  }  }
502  /*      function definition for LOOP-TASSOC     */  /*      function definition for LOOP-TASSOC     */
503    
504  static L12()  static L16()
505  {register object *base=vs_base;  {register object *base=vs_base;
506          register object *sup=base+VM12; VC12          register object *sup=base+VM15; VC15
507          vs_reserve(VM12);          vs_check;
508          {object V35;          {object V72;
509          object V36;          object V73;
510          check_arg(2);          V72=(base[0]);
511          V35=(base[0]);          V73=(base[1]);
         V36=(base[1]);  
512          vs_top=sup;          vs_top=sup;
513  TTL:;  TTL:;
514          if(type_of((V35))==t_symbol){          if(type_of((V72))==t_symbol){
515          goto T88;}          goto T128;}
516          base[2]= Cnil;          base[2]= Cnil;
517          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
518          return;          return;
519  T88:;  T128:;
520          base[2]= (V35);          base[2]= (V72);
521          base[3]= (V36);          base[3]= (V73);
522          base[4]= VV[25];          base[4]= VV[20];
523          base[5]= symbol_function(VV[230]);          base[5]= (VV[329]->s.s_gfdef);
524          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
525          Lassoc();          Lassoc();
526          return;          return;
# Line 396  T88:; Line 528  T88:;
528  }  }
529  /*      function definition for LOOP-TMEMBER    */  /*      function definition for LOOP-TMEMBER    */
530    
531  static L13()  static L17()
532  {register object *base=vs_base;  {register object *base=vs_base;
533          register object *sup=base+VM13; VC13          register object *sup=base+VM16; VC16
534          vs_reserve(VM13);          vs_check;
535          {object V37;          {object V74;
536          object V38;          object V75;
537          check_arg(2);          V74=(base[0]);
538          V37=(base[0]);          V75=(base[1]);
         V38=(base[1]);  
539          vs_top=sup;          vs_top=sup;
540  TTL:;  TTL:;
541          if(type_of((V37))==t_symbol){          if(type_of((V74))==t_symbol){
542          goto T94;}          goto T134;}
543          base[2]= Cnil;          base[2]= Cnil;
544          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
545          return;          return;
546  T94:;  T134:;
547          base[2]= (V37);          base[2]= (V74);
548          base[3]= (V38);          base[3]= (V75);
549          base[4]= VV[25];          base[4]= VV[20];
550          base[5]= symbol_function(VV[230]);          base[5]= (VV[329]->s.s_gfdef);
551          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
552          Lmember();          Lmember();
553          return;          return;
554          }          }
555  }  }
556  /*      macro definition for DEFINE-LOOP-MACRO  */  /*      function definition for LOOP-LOOKUP-KEYWORD     */
557    
558  static L14()  static L18()
559  {register object *base=vs_base;  {register object *base=vs_base;
560          register object *sup=base+VM14; VC14          register object *sup=base+VM17; VC17
561          vs_reserve(VM14);          vs_check;
562          check_arg(2);          {object V76;
563          vs_top=sup;          object V77;
564          {object V39=base[0]->c.c_cdr;          V76=(base[0]);
565          if(endp(V39))invalid_macro_call();          V77=(base[1]);
         base[2]= (V39->c.c_car);  
         V39=V39->c.c_cdr;  
         if(!endp(V39))invalid_macro_call();}  
         if(!((base[2])==(VV[26]))){  
         goto T101;}  
         goto T100;  
 T101:;{object V40;  
         base[3]= base[2];  
         base[4]= VV[27];  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk231)();  
566          vs_top=sup;          vs_top=sup;
567          V40= vs_base[0];  TTL:;
568          if(V40==Cnil)goto T103;          if(type_of((V76))==t_symbol){
569          goto T100;          goto T140;}
570  T103:;}{object V41;          base[2]= Cnil;
571          base[3]= base[2];          vs_top=(vs_base=base+2)+1;
572          base[4]= VV[28];          return;
573    T140:;
574            base[3]= symbol_name((V76));
575            base[4]= (V77);
576          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
577          (void) (*Lnk231)();          Lgethash();
         vs_top=sup;  
         V41= vs_base[0];  
         if(V41==Cnil)goto T107;  
         goto T100;  
 T107:;}  
         base[3]= VV[2];  
         base[4]= VV[29];  
         base[5]= base[2];  
         vs_top=(vs_base=base+3)+3;  
         Lerror();  
578          vs_top=sup;          vs_top=sup;
579  T100:;          base[2]= vs_base[0];
580          base[3]= listA(3,VV[30],base[2],VV[31]);          vs_top=(vs_base=base+2)+1;
         vs_top=(vs_base=base+3)+1;  
581          return;          return;
582            }
583  }  }
584  /*      macro definition for LOOP       */  /*      macro definition for LOOP-STORE-TABLE-DATA      */
585    
586  static L15()  static L19()
587  {register object *base=vs_base;  {register object *base=vs_base;
588          register object *sup=base+VM15; VC15          register object *sup=base+VM18; VC18
589          vs_reserve(VM15);          vs_check;
         check_arg(2);  
590          vs_top=sup;          vs_top=sup;
591          {object V42=base[0]->c.c_cdr;          {object V78=base[0]->c.c_cdr;
592          base[2]= V42;}          base[2]= (V78->c.c_car);
593          base[3]= base[0];          V78=V78->c.c_cdr;
594          base[4]= base[1];          base[3]= (V78->c.c_car);
595          vs_top=(vs_base=base+3)+2;          V78=V78->c.c_cdr;
596          (void) (*Lnk232)();          base[4]= (V78->c.c_car);}
597            base[5]= list(3,VV[9],list(3,VV[37],list(2,VV[38],base[2]),base[3]),base[4]);
598            vs_top=(vs_base=base+5)+1;
599          return;          return;
600  }  }
601  /*      macro definition for LOOP-FINISH        */  /*      function definition for MAKE-LOOP-UNIVERSE      */
602    
603  static L16()  static L20()
604  {register object *base=vs_base;  {register object *base=vs_base;
605          register object *sup=base+VM16; VC16          register object *sup=base+VM19; VC19
606          vs_reserve(VM16);          vs_check;
607          check_arg(2);          {object V79;
608          vs_top=sup;          object V80;
609          {object V43=base[0]->c.c_cdr;          object V81;
610          if(!endp(V43))invalid_macro_call();}          object V82;
611          base[2]= VV[32];          object V83;
612          vs_top=(vs_base=base+2)+1;          object V84;
613            object V85;
614            object V86;
615            parse_key(vs_base,FALSE,FALSE,8,VV[53],VV[55],VV[54],VV[56],VV[60],VV[59],VV[57],VV[58]);
616            vs_top=sup;
617            V79=(base[0]);
618            V80=(base[1]);
619            V81=(base[2]);
620            V82=(base[3]);
621            V83=(base[4]);
622            V84=(base[5]);
623            V85=(base[6]);
624            V86=(base[7]);
625            base[16]= VV[39];
626            base[17]= (V79);
627            base[18]= (V80);
628            base[19]= (V81);
629            base[20]= (V82);
630            base[21]= (V83);
631            base[22]= (V84);
632            base[23]= (V85);
633            base[24]= (V86);
634            vs_top=(vs_base=base+16)+9;
635            siLmake_structure();
636          return;          return;
637            }
638  }  }
639  /*      function definition for LOOP-TRANSLATE  */  /*      function definition for PRINT-LOOP-UNIVERSE     */
640    
641  static L17()  static L21()
642  {register object *base=vs_base;  {register object *base=vs_base;
643          register object *sup=base+VM17; VC17          register object *sup=base+VM20; VC20
644          vs_reserve(VM17);          vs_check;
645          bds_check;          {object V87;
646          {object V44;          object V88;
647          check_arg(2);          object V89;
648          V44=(base[0]);          V87=(base[0]);
649          bds_bind(VV[33],base[1]);          V88=(base[1]);
650            V89=(base[2]);
651          vs_top=sup;          vs_top=sup;
652  TTL:;  TTL:;
653          base[2]= (V44);          {object V90;
654          vs_top=(vs_base=base+2)+1;          {object V91= STREF(object,(V87),24);
655          (void) (*Lnk233)();          if((V91!= Cnil))goto T155;
656            V90= VV[40];
657            goto T154;
658    T155:;
659            if((V91!= Ct))goto T156;
660            V90= VV[41];
661            goto T154;
662    T156:;
663            if((V91!= VV[304]))goto T157;
664            V90= VV[42];
665            goto T154;
666    T157:;
667            V90= STREF(object,(V87),24);}
668    T154:;
669            base[3]= (V88);
670            base[4]= VV[43];
671            base[6]= (V87);
672            vs_top=(vs_base=base+6)+1;
673            Ltype_of();
674            vs_top=sup;
675            base[5]= vs_base[0];
676            base[6]= (V90);
677            vs_top=(vs_base=base+3)+4;
678            Lformat();
679            return;}
680            }
681    }
682    /*      function definition for MAKE-STANDARD-LOOP-UNIVERSE     */
683    
684    static L22()
685    {register object *base=vs_base;
686            register object *sup=base+VM21; VC21
687            vs_check;
688            bds_check;
689            {object V92;
690            object V93;
691            object V94;
692            object V95;
693            object V96;
694            object V97;
695            register object V98;
696            parse_key(vs_base,FALSE,FALSE,7,VV[53],VV[54],VV[55],VV[56],VV[59],VV[60],VV[57]);
697            vs_top=sup;
698            V92=(base[0]);
699            V93=(base[1]);
700            V94=(base[2]);
701            V95=(base[3]);
702            V96=(base[4]);
703            V97=(base[5]);
704            V98=(base[6]);
705            bds_bind(VV[44],small_fixnum(4));
706            bds_bind(VV[45],small_fixnum(4));
707    T165:;
708            base[16]= (V98);
709            base[17]= VV[46];
710            vs_top=(vs_base=base+16)+2;
711            (void) (*Lnk330)();
712            vs_top=sup;
713            if((vs_base[0])==Cnil){
714            goto T166;}
715            bds_unwind1;
716          bds_unwind1;          bds_unwind1;
717            goto T163;
718    T166:;
719            base[16]= VV[47];
720            base[17]= VV[48];
721            base[18]= VV[49];
722            base[19]= (V98);
723            base[20]= VV[46];
724            vs_top=(vs_base=base+16)+5;
725            Lcerror();
726            vs_top=sup;
727            base[16]= (VV[50]->s.s_dbind);
728            base[17]= VV[51];
729            base[18]= VV[49];
730            vs_top=(vs_base=base+16)+3;
731            Lformat();
732            vs_top=sup;
733            base[16]= (VV[50]->s.s_dbind);
734            vs_top=(vs_base=base+16)+1;
735            Lfinish_output();
736            vs_top=sup;
737            vs_base=vs_top;
738            Lread();
739            vs_top=sup;
740            V98= vs_base[0];
741            base[16]= (VV[50]->s.s_dbind);
742            base[17]= VV[52];
743            vs_top=(vs_base=base+16)+2;
744            Lformat();
745            vs_top=sup;
746            goto T165;
747    T163:;
748            base[14]= VV[53];
749            base[16]= (V92);
750            vs_top=(vs_base=base+16)+1;
751            L23(base);
752            vs_top=sup;
753            base[15]= vs_base[0];
754            base[16]= VV[54];
755            base[18]= (V93);
756            vs_top=(vs_base=base+18)+1;
757            L23(base);
758            vs_top=sup;
759            base[17]= vs_base[0];
760            base[18]= VV[55];
761            base[20]= (V94);
762            vs_top=(vs_base=base+20)+1;
763            L23(base);
764            vs_top=sup;
765            base[19]= vs_base[0];
766            base[20]= VV[56];
767            base[22]= (V95);
768            vs_top=(vs_base=base+22)+1;
769            L23(base);
770            vs_top=sup;
771            base[21]= vs_base[0];
772            base[22]= VV[57];
773            base[23]= (V98);
774            base[24]= VV[58];
775            base[25]= (((((V98))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);
776            base[26]= VV[59];
777            base[28]= (V96);
778            vs_top=(vs_base=base+28)+1;
779            L23(base);
780            vs_top=sup;
781            base[27]= vs_base[0];
782            base[28]= VV[60];
783            {object V99;
784            object V100;
785            V99= CMPmake_fixnum(length((V97)));
786            base[32]= VV[61];
787            if(!(number_compare((V99),small_fixnum(10))<0)){
788            goto T217;}
789            base[33]= small_fixnum(10);
790            goto T215;
791    T217:;
792            base[33]= (V99);
793    T215:;
794            base[34]= VV[20];
795            base[35]= (VV[331]->s.s_gfdef);
796            vs_top=(vs_base=base+32)+4;
797            Lmake_hash_table();
798            vs_top=sup;
799            V100= vs_base[0];
800            {register object V101;
801            register object V102;
802            V101= (V97);
803            V102= CMPcar((V101));
804    T225:;
805            if(!(((V101))==Cnil)){
806            goto T226;}
807            goto T221;
808    T226:;
809            if(!(type_of((V102))!=t_cons)){
810            goto T232;}
811            base[33]= V102;
812            base[34]= V100;
813            base[35]= V102;
814            vs_top=(vs_base=base+33)+3;
815            siLhash_set();
816            vs_top=sup;
817            goto T230;
818    T232:;
819            {object V106;
820            object V108;
821            V106= CMPcar((V102));
822            V108= CMPcadr((V102));
823            base[35]= (V106);
824            base[36]= V100;
825            base[37]= (V108);
826            vs_top=(vs_base=base+35)+3;
827            siLhash_set();
828            vs_top=sup;}
829    T230:;
830            V101= CMPcdr((V101));
831            V102= CMPcar((V101));
832            goto T225;}
833    T221:;
834            base[29]= (V100);}
835            vs_top=(vs_base=base+14)+16;
836            (void) (*Lnk332)();
837          return;          return;
838          }          }
839  }  }
840  /*      function definition for LOOP-END-TESTIFY        */  /*      function definition for LOOP-MAKE-PSETQ */
841    
842  static L18()  static L24()
843  {register object *base=vs_base;  {register object *base=vs_base;
844          register object *sup=base+VM18; VC18          register object *sup=base+VM22; VC22
845          vs_reserve(VM18);          vs_check;
846          {register object V45;          {register object V109;
847          check_arg(1);          V109=(base[0]);
         V45=(base[0]);  
848          vs_top=sup;          vs_top=sup;
849  TTL:;  TTL:;
850          if(((V45))!=Cnil){          if((V109)==Cnil){
         goto T118;}  
851          base[1]= Cnil;          base[1]= Cnil;
852          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
853          return;          return;}
854  T118:;          V110= CMPcar((V109));
855          V45= nreverse((V45));          if((CMPcddr((V109)))!=Cnil){
856          if((cdr((V45)))!=Cnil){          goto T250;}
857          goto T122;}          V111= CMPcadr((V109));
858          V46= car((V45));          goto T248;
859          goto T120;  T250:;
860  T122:;          V112= CMPcadr((V109));
861          V46= make_cons(VV[35],(V45));          base[2]= CMPcddr((V109));
862  T120:;          vs_top=(vs_base=base+2)+1;
863          base[1]= list(3,VV[34],V46,VV[36]);          (void) (*Lnk333)();
864            vs_top=sup;
865            V113= vs_base[0];
866            V111= list(3,VV[62],/* INLINE-ARGS */V112,V113);
867    T248:;
868            base[1]= list(2,/* INLINE-ARGS */V110,V111);
869          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
870            (void) (*Lnk334)();
871          return;          return;
872          }          }
873  }  }
874  /*      function definition for LOOP-OPTIMIZE-DUPLICATED-CODE-ETC       */  /*      function definition for LOOP-MAKE-DESETQ        */
875    
876  static L19()  static L25()
877  {register object *base=vs_base;  {register object *base=vs_base;
878          register object *sup=base+VM19; VC19          register object *sup=base+VM23; VC23
879          vs_reserve(VM19);          vs_check;
880          check_arg(0);          {object V114;
881            V114=(base[0]);
882          vs_top=sup;          vs_top=sup;
883  TTL:;  TTL:;
884          {register object V47;          if(((V114))!=Cnil){
885          register object V48;          goto T255;}
886          object V49;          base[1]= Cnil;
887          object V50;          vs_top=(vs_base=base+1)+1;
888          register object V51;          return;
889          object V52;  T255:;
890          object V53;          if(((VV[63]->s.s_dbind))==Cnil){
891          V47= Cnil;          goto T259;}
892          V48= Cnil;          V115= CMPcadr((VV[63]->s.s_dbind));
893          V49= Cnil;          goto T257;
894          V50= Cnil;  T259:;
895          V51= Cnil;          V115= VV[64];
896          V52= Cnil;  T257:;
897          V53= Cnil;          base[1]= make_cons(V115,(V114));
898          {object V54;          vs_top=(vs_base=base+1)+1;
899          object V55;          return;
900          V54= nreverse(symbol_value(VV[37]));          }
901          V55= nreverse(symbol_value(VV[38]));  }
902  T136:;  /*      macro definition for LOOP-REALLY-DESETQ */
903          if(!(equal((V54),(V55)))){  
904          goto T137;}  static L26()
905          V56= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V54)));  {register object *base=vs_base;
906          V57= nreverse(symbol_value(VV[39]));          register object *sup=base+VM24; VC24
907          setq(VV[39],nconc(/* INLINE-ARGS */V56,/* INLINE-ARGS */V57));          vs_check;
908          goto T132;          vs_top=sup;
909  T137:;          {object V116=base[0]->c.c_cdr;
910          V47= make_cons(car((V54)),(V47));          base[2]= V116;}
911          V48= make_cons(car((V55)),(V48));          {register object V117;
912          V54= cdr((V54));          V117= Cnil;
913          V55= cdr((V55));  T262:;
914          goto T136;}          if((base[2])!=Cnil){
915  T132:;          goto T263;}
916          if((symbol_value(VV[40]))==Cnil){          if((CMPcdr((V117)))!=Cnil){
917          goto T152;}          goto T267;}
918          V58= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V47)));          base[3]= CMPcar((V117));
919          setq(VV[37],nreverse(/* INLINE-ARGS */V58));          vs_top=(vs_base=base+3)+1;
920          V59= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V48)));          return;
921          setq(VV[38],nreverse(/* INLINE-ARGS */V59));  T267:;
922          goto T150;          V118= nreverse((V117));
923  T152:;          base[3]= make_cons(VV[14],/* INLINE-ARGS */V118);
924          setq(VV[37],Cnil);          vs_top=(vs_base=base+3)+1;
925          setq(VV[38],Cnil);          return;
926          V47= nreverse((V47));  T263:;
927          V48= nreverse((V48));          {register object V119;
928          {object V60;          V119= CMPcar(base[2]);
929          register object V61;          base[2]= CMPcdr(base[2]);
930          V60= (V47);          base[4]= (V119);}
931          V61= (V48);          {register object V120;
932  T167:;          V120= CMPcar(base[2]);
933          if(((V61))!=Cnil){          base[2]= CMPcdr(base[2]);
934          goto T168;}          base[5]= (V120);}
935          goto T165;          vs_top=(vs_base=base+4)+2;
936  T168:;          L28(base);
937          if(equal(car((V61)),car((V60)))){          vs_top=sup;
938          goto T174;}          base[3]= vs_base[0];
939          V53= (V61);          base[4]= (V117);
940          goto T172;          vs_top=(vs_base=base+3)+2;
941  T174:;          Lrevappend();
942          base[0]= car((V61));          vs_top=sup;
943          vs_top=(vs_base=base+0)+1;          V117= vs_base[0];
944          (void) (*Lnk136)();          goto T262;}
945    }
946    /*      function definition for LOOP-CONSTANT-FOLD-IF-POSSIBLE  */
947    
948    static L29()
949    {register object *base=vs_base;
950            register object *sup=base+VM25; VC25
951            vs_check;
952            {object V121;
953            object V122;
954            V121=(base[0]);
955            vs_base=vs_base+1;
956            if(vs_base>=vs_top){vs_top=sup;goto T284;}
957            V122=(base[1]);
958            vs_top=sup;
959            goto T285;
960    T284:;
961            V122= Cnil;
962    T285:;
963            {register object V124;
964            register object V125;
965            V124= Cnil;
966            V125= Cnil;
967            base[2]= V121;
968            vs_top=(vs_base=base+2)+1;
969            Lconstantp();
970            vs_top=sup;
971            V124= vs_base[0];
972            if(((V124))==Cnil){
973            goto T287;}
974            base[2]= V121;
975            vs_top=(vs_base=base+2)+1;
976            Leval();
977            vs_top=sup;
978            V125= vs_base[0];
979    T287:;
980            if(((V124))==Cnil){
981            goto T294;}
982            if(((V122))==Cnil){
983            goto T294;}
984            base[2]= (V125);
985            base[3]= (V122);
986            vs_top=(vs_base=base+2)+2;
987            (void) (*Lnk330)();
988          vs_top=sup;          vs_top=sup;
989          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
990          goto T172;}          goto T294;}
991          goto T165;          base[2]= VV[67];
992  T172:;          base[3]= (V121);
993          V60= cdr((V60));          base[4]= (V125);
994          V61= cdr((V61));          base[5]= (V122);
995          goto T167;}          vs_top=(vs_base=base+2)+4;
996  T165:;          (void) (*Lnk335)();
         if(((V53))==Cnil){  
         goto T184;}  
 T189:;  
         if((car((V47)))!=Cnil){  
         goto T193;}  
         goto T192;  
 T193:;  
         setq(VV[37],make_cons(car((V47)),symbol_value(VV[37])));  
 T192:;  
         if((car((V48)))!=Cnil){  
         goto T197;}  
         goto T196;  
 T197:;  
         setq(VV[38],make_cons(car((V48)),symbol_value(VV[38])));  
 T196:;  
         V47= cdr((V47));  
         V48= cdr((V48));  
         if(((V48))==(cdr((V53)))){  
         goto T205;}  
         goto T204;  
 T205:;  
         goto T187;  
 T204:;  
         goto T189;  
 T187:;  
         setq(VV[37],nreverse(symbol_value(VV[37])));  
         setq(VV[38],nreverse(symbol_value(VV[38])));  
 T184:;  
         {object V62;  
         object V63;  
         V62= nreverse((V47));  
         V63= nreverse((V48));  
 T216:;  
         if(((V63))!=Cnil){  
         goto T217;}  
         goto T212;  
 T217:;  
         V51= car((V63));  
         V52= car((V62));  
         {object V64;  
         if(((V51))==Cnil){  
         goto T227;}  
         V64= Cnil;  
         goto T226;  
 T227:;  
         V64= (((V52))==Cnil?Ct:Cnil);  
 T226:;  
         if(((V64))==Cnil){  
         goto T230;}  
         goto T225;  
 T230:;  
         if(!(equal((V51),(V52)))){  
         goto T233;}  
         base[0]= (V50);  
         base[1]= (V49);  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk235)();  
997          vs_top=sup;          vs_top=sup;
998          setq(VV[39],make_cons((V51),symbol_value(VV[39])));          V124= Cnil;
999          V50= Cnil;          V125= Cnil;
1000          V49= Cnil;  T294:;
1001          goto T225;          base[2]= V121;
1002  T233:;          base[3]= (V124);
1003          if((V51)==Cnil){          base[4]= (V125);
1004          goto T243;}          vs_top=(vs_base=base+2)+3;
1005          V49= make_cons((V51),(V49));          return;}
1006  T243:;          }
1007          if((V52)==Cnil){  }
1008          goto T225;}  /*      function definition for LOOP-CONSTANTP  */
1009          V50= make_cons((V52),(V50));}  
1010  T225:;  static L30()
1011          V62= cdr((V62));  {register object *base=vs_base;
1012          V63= cdr((V63));          register object *sup=base+VM26; VC26
1013          goto T216;}          vs_check;
1014  T212:;          {object V126;
1015          base[0]= (V50);          V126=(base[0]);
         base[1]= (V49);  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk235)();  
1016          vs_top=sup;          vs_top=sup;
1017  T150:;  TTL:;
1018          if(symbol_value(VV[41])==Cnil){          base[1]= (V126);
1019          goto T252;}          vs_top=(vs_base=base+1)+1;
1020          V65= list(3,VV[15],symbol_value(VV[41]),Cnil);          Lconstantp();
1021          setq(VV[38],make_cons(/* INLINE-ARGS */V65,symbol_value(VV[38])));          return;
1022  T252:;          }
1023          base[0]= Cnil;  }
1024          vs_top=(vs_base=base+0)+1;  /*      function definition for LOOP-CODE-DUPLICATION-THRESHOLD */
1025    
1026    static L31()
1027    {register object *base=vs_base;
1028            register object *sup=base+VM27; VC27
1029            vs_check;
1030            {object V127;
1031            V127=(base[0]);
1032            vs_top=sup;
1033    TTL:;
1034            {object V128;
1035            object V129;
1036            base[1]= (V127);
1037            vs_top=(vs_base=base+1)+1;
1038            (void) (*Lnk336)();
1039            if(vs_base>=vs_top){vs_top=sup;goto T317;}
1040            V128= vs_base[0];
1041            vs_base++;
1042            if(vs_base>=vs_top){vs_top=sup;goto T318;}
1043            V129= vs_base[0];
1044            vs_top=sup;
1045            goto T319;
1046    T317:;
1047            V128= Cnil;
1048    T318:;
1049            V129= Cnil;
1050    T319:;
1051            V130= number_minus((V128),(V129));
1052            V131= number_times(/* INLINE-ARGS */V130,small_fixnum(10));
1053            base[1]= number_plus(small_fixnum(40),/* INLINE-ARGS */V131);
1054            vs_top=(vs_base=base+1)+1;
1055          return;}          return;}
1056            }
1057  }  }
1058  /*      function definition for LOOP-OUTPUT-GROUP       */  /*      macro definition for LOOP-BODY  */
1059    
1060  static L20()  static L32()
1061  {register object *base=vs_base;  {register object *base=vs_base;
1062          register object *sup=base+VM20; VC20          register object *sup=base+VM28; VC28
1063          vs_reserve(VM20);          vs_check;
1064          {register object V66;          vs_top=sup;
1065          register object V67;          {object V132=base[0]->c.c_cdr;
1066          check_arg(2);          base[2]= (V132->c.c_car);
1067          V66=(base[0]);          V132=V132->c.c_cdr;
1068          V67=(base[1]);          base[3]= (V132->c.c_car);
1069            V132=V132->c.c_cdr;
1070            base[4]= (V132->c.c_car);
1071            V132=V132->c.c_cdr;
1072            base[5]= (V132->c.c_car);
1073            V132=V132->c.c_cdr;
1074            base[6]= (V132->c.c_car);
1075            base[7]= Cnil;
1076            base[8]= Cnil;
1077            base[9]= Cnil;}
1078            if((length(base[3]))==(length(base[5]))){
1079            goto T323;}
1080            base[10]= VV[68];
1081            vs_top=(vs_base=base+10)+1;
1082            Lerror();
1083            vs_top=sup;
1084    T323:;
1085            base[7]= reverse(base[3]);
1086            base[8]= reverse(base[5]);
1087            if(((VV[69]->s.s_dbind))!=Cnil){
1088            goto T332;}
1089            if((base[7])!=Cnil){
1090            goto T331;}
1091    T332:;
1092            vs_base=vs_top;
1093            L35(base);
1094            return;
1095    T331:;
1096            {register int V133;
1097            base[10]= base[1];
1098            vs_top=(vs_base=base+10)+1;
1099            (void) (*Lnk337)();
1100            vs_top=sup;
1101            V133= fix(vs_base[0]);
1102    T339:;
1103    T344:;
1104            if((base[7])==Cnil){
1105            goto T346;}
1106            if(equal(CMPcar(base[7]),CMPcar(base[8]))){
1107            goto T345;}
1108    T346:;
1109            goto T342;
1110    T345:;
1111            {register object V135;
1112            V135= CMPcar(base[7]);
1113            base[7]= CMPcdr(base[7]);
1114            V134= (V135);}
1115            base[4]= make_cons(V134,base[4]);
1116            {register object V136;
1117            V136= CMPcar(base[8]);
1118            base[8]= CMPcdr(base[8]);}
1119            goto T344;
1120    T342:;
1121            if((base[7])!=Cnil){
1122            goto T363;}
1123            vs_base=vs_top;
1124            L35(base);
1125            return;
1126    T363:;
1127            {register object V137;
1128            register object V138;
1129            register object V139;
1130            register object V140;
1131            register object V141;
1132            V137= base[7];
1133            V138= base[8];
1134            V139= Cnil;
1135            V140= small_fixnum(0);
1136            V141= Cnil;
1137    T368:;
1138            if(((V137))!=Cnil){
1139            goto T369;}
1140            vs_base=vs_top;
1141            L35(base);
1142            return;
1143    T369:;
1144            if(equal(CMPcar((V137)),CMPcar((V138)))){
1145            goto T375;}
1146            V139= (V137);
1147            V140= small_fixnum(0);
1148            goto T373;
1149    T375:;
1150            base[10]= CMPcar((V137));
1151            base[11]= base[1];
1152            vs_top=(vs_base=base+10)+2;
1153            (void) (*Lnk77)();
1154            vs_top=sup;
1155            V141= vs_base[0];
1156            if(((V141))==Cnil){
1157            goto T380;}
1158            V140= number_plus((V140),(V141));
1159            V142 = CMPmake_fixnum(V133);
1160            if(!(number_compare((V140),V142)>0)){
1161            goto T373;}
1162    T380:;
1163            {register object V143;
1164            register object V144;
1165            V143= Cnil;
1166            V144= Cnil;
1167    T391:;
1168            {register object V146;
1169            V146= CMPcar(base[7]);
1170            base[7]= CMPcdr(base[7]);
1171            V145= (V146);}
1172            V144= make_cons(V145,(V144));
1173            {register object V148;
1174            V148= CMPcar(base[8]);
1175            base[8]= CMPcdr(base[8]);
1176            V147= (V148);}
1177            V143= make_cons(V147,(V143));
1178            if(!((base[7])==(CMPcdr((V139))))){
1179            goto T406;}
1180            goto T389;
1181    T406:;
1182            goto T391;
1183    T389:;
1184            if((base[9])!=Cnil){
1185            goto T411;}
1186            base[9]= (VV[70]->s.s_dbind);
1187            V149= list(3,VV[11],base[9],Ct);
1188            V144= make_cons(/* INLINE-ARGS */V149,(V144));
1189    T411:;
1190            base[11]= (V143);
1191            vs_top=(vs_base=base+11)+1;
1192            L33(base);
1193            vs_top=sup;
1194            base[10]= vs_base[0];
1195            vs_top=(vs_base=base+10)+1;
1196            L34(base);
1197            vs_top=sup;
1198            V150= vs_base[0];
1199            base[11]= (V144);
1200            vs_top=(vs_base=base+11)+1;
1201            L33(base);
1202            vs_top=sup;
1203            base[10]= vs_base[0];
1204            vs_top=(vs_base=base+10)+1;
1205            L34(base);
1206            vs_top=sup;
1207            V151= vs_base[0];
1208            V152= list(4,VV[71],base[9],V150,V151);
1209            base[4]= make_cons(/* INLINE-ARGS */V152,base[4]);}
1210    T425:;
1211            {register object V153;
1212            V153= CMPcar(base[8]);
1213            base[8]= CMPcdr(base[8]);}
1214            {register object V155;
1215            V155= CMPcar(base[7]);
1216            base[7]= CMPcdr(base[7]);
1217            V154= (V155);}
1218            base[4]= make_cons(V154,base[4]);
1219            if(!((base[7])==(CMPcdr((V137))))){
1220            goto T438;}
1221            goto T423;
1222    T438:;
1223            goto T425;
1224    T423:;
1225            goto T366;
1226    T373:;
1227            V137= CMPcdr((V137));
1228            V138= CMPcdr((V138));
1229            goto T368;}
1230    T366:;
1231            goto T339;}
1232    }
1233    /*      function definition for DUPLICATABLE-CODE-P     */
1234    
1235    static L36()
1236    {register object *base=vs_base;
1237            register object *sup=base+VM29; VC29
1238            vs_check;
1239            {object V156;
1240            object V157;
1241            V156=(base[0]);
1242            V157=(base[1]);
1243            vs_top=sup;
1244    TTL:;
1245            if(((V156))!=Cnil){
1246            goto T450;}
1247            base[2]= small_fixnum(0);
1248            vs_top=(vs_base=base+2)+1;
1249            return;
1250    T450:;
1251            {int V158;
1252            base[2]= (V156);
1253            base[3]= (V157);
1254            vs_top=(vs_base=base+2)+2;
1255            (void) (*Lnk77)();
1256            vs_top=sup;
1257            V158= fix(vs_base[0]);
1258            base[2]= CMPmake_fixnum(V158);
1259            vs_top=(vs_base=base+2)+1;
1260            return;}
1261            }
1262    }
1263    /*      function definition for DESTRUCTURING-SIZE      */
1264    
1265    static L37()
1266    {register object *base=vs_base;
1267            register object *sup=base+VM30; VC30
1268            vs_check;
1269            {object V159;
1270            V159=(base[0]);
1271          vs_top=sup;          vs_top=sup;
1272  TTL:;  TTL:;
1273          if((V67)!=Cnil){          {register object V160;
1274          if(((V67))!=Cnil){          register object V161;
1275          goto T254;}          V160= (V159);
1276          goto T255;}          V161= small_fixnum(0);
1277          if(((V66))!=Cnil){  T456:;
1278          goto T254;}          if(!(type_of((V160))!=t_cons)){
1279  T255:;          goto T457;}
1280          base[2]= Cnil;          if(((V160))!=Cnil){
1281            goto T462;}
1282            V162= small_fixnum(0);
1283            goto T460;
1284    T462:;
1285            V162= small_fixnum(1);
1286    T460:;
1287            base[1]= number_plus((V161),V162);
1288            vs_top=(vs_base=base+1)+1;
1289            return;
1290    T457:;
1291            {object V163;
1292            V163= CMPcdr((V160));
1293            base[1]= CMPcar((V160));
1294            vs_top=(vs_base=base+1)+1;
1295            (void) (*Lnk338)();
1296            vs_top=sup;
1297            V164= vs_base[0];
1298            V161= number_plus(V164,(V161));
1299            V160= (V163);}
1300            goto T456;}
1301            }
1302    }
1303    /*      function definition for ESTIMATE-CODE-SIZE      */
1304    
1305    static L38()
1306    {register object *VOL base=vs_base;
1307            register object *VOL sup=base+VM31; VC31
1308            vs_check;
1309            {VOL object V165;
1310            VOL object V166;
1311            V165=(base[0]);
1312            V166=(base[1]);
1313            vs_top=sup;
1314    TTL:;
1315            frs_push(FRS_CATCH,VV[77]);
1316            if(nlj_active)
1317            {nlj_active=FALSE;frs_pop();
1318            return;}
1319            else{
1320            base[2]= (V165);
1321            base[3]= (V166);
1322            vs_top=(vs_base=base+2)+2;
1323            (void) (*Lnk339)();
1324            frs_pop();
1325            return;}
1326            }
1327    }
1328    /*      function definition for ESTIMATE-CODE-SIZE-1    */
1329    
1330    static L39()
1331    {register object *base=vs_base;
1332            register object *sup=base+VM32; VC32
1333            vs_check;
1334            {object V167;
1335            V167=(base[0]);
1336            vs_top=sup;
1337    TTL:;
1338            base[2]= (V167);
1339            vs_top=(vs_base=base+2)+1;
1340            Lconstantp();
1341            vs_top=sup;
1342            if((vs_base[0])==Cnil){
1343            goto T475;}
1344            base[2]= small_fixnum(1);
1345          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1346          return;          return;
1347  T254:;  T475:;
1348          {object V68;          if(!(type_of((V167))==t_symbol)){
1349          if(symbol_value(VV[41])!=Cnil){          goto T479;}
1350          V68= symbol_value(VV[41]);          {object V168;
1351          goto T256;}          object V169;
1352          base[3]= VV[42];          base[2]= (V167);
1353          vs_top=(vs_base=base+3)+1;          base[3]= base[1];
1354          Lgentemp();          vs_top=(vs_base=base+2)+2;
1355            Lmacroexpand_1();
1356            if(vs_base>=vs_top){vs_top=sup;goto T484;}
1357            V168= vs_base[0];
1358            vs_base++;
1359            if(vs_base>=vs_top){vs_top=sup;goto T485;}
1360            V169= vs_base[0];
1361          vs_top=sup;          vs_top=sup;
1362          base[2]= vs_base[0];          goto T486;
1363          base[3]= Ct;  T484:;
1364          base[4]= Cnil;          V168= Cnil;
1365    T485:;
1366            V169= Cnil;
1367    T486:;
1368            if(((V169))==Cnil){
1369            goto T488;}
1370            V167= (V168);
1371            goto TTL;
1372    T488:;
1373            base[2]= small_fixnum(1);
1374            vs_top=(vs_base=base+2)+1;
1375            return;}
1376    T479:;
1377            if(!(type_of((V167))!=t_cons)){
1378            goto T494;}
1379            base[2]= small_fixnum(1);
1380            vs_top=(vs_base=base+2)+1;
1381            return;
1382    T494:;
1383            if(!(type_of(CMPcar((V167)))==t_symbol)){
1384            goto T497;}
1385            {object V170;
1386            object V171;
1387            register int V172;
1388            V170= CMPcar((V167));
1389            V172= 0;
1390            V171= Cnil;
1391            {object V173 =((V170))->s.s_plist;
1392             object ind= VV[77];
1393            while(V173!=Cnil){
1394            if(V173->c.c_car==ind){
1395            V171= (V173->c.c_cdr->c.c_car);
1396            goto T504;
1397            }else V173=V173->c.c_cdr->c.c_cdr;}
1398            V171= Cnil;}
1399    T504:;
1400            if(((V171))==Cnil){
1401            goto T502;}
1402            if(!(type_of(V171)==t_fixnum)){
1403            goto T506;}
1404            base[2]= CMPcdr((V167));
1405            vs_top=(vs_base=base+2)+1;
1406            L40(base);
1407            vs_top=sup;
1408            V175= fix(vs_base[0]);
1409            base[2]= CMPmake_fixnum((fix((V171)))+(V175));
1410            vs_top=(vs_base=base+2)+1;
1411            return;
1412    T506:;
1413            base[2]= (V167);
1414            base[3]= base[1];
1415            vs_top=(vs_base=base+2)+2;
1416            super_funcall_no_event((V171));
1417            return;
1418    T502:;
1419            {register object x= (V170),V176= (VV[78]->s.s_dbind);
1420            while(V176!=Cnil)
1421            if(eql(x,V176->c.c_car->c.c_car) &&V176->c.c_car != Cnil){
1422            V171= (V176->c.c_car);
1423            goto T515;
1424            }else V176=V176->c.c_cdr;
1425            V171= Cnil;}
1426    T515:;
1427            if(((V171))==Cnil){
1428            goto T513;}
1429            {int V177= fix(CMPcadr((V171)));
1430            base[2]= CMPcdr((V167));
1431            vs_top=(vs_base=base+2)+1;
1432            L40(base);
1433            vs_top=sup;
1434            V178= fix(vs_base[0]);
1435            base[2]= CMPmake_fixnum((/* INLINE-ARGS */V177)+(V178));
1436            vs_top=(vs_base=base+2)+1;
1437            return;}
1438    T513:;
1439            if(!(((V170))==(VV[79]))){
1440            goto T519;}
1441            {register object V179;
1442            object V180;
1443            V179= CMPcdr((V167));
1444            V180= CMPcar((V179));
1445    T524:;
1446            if(!(((V179))==Cnil)){
1447            goto T525;}
1448            base[4]= CMPmake_fixnum(V172);
1449            vs_top=(vs_base=base+4)+1;
1450            return;
1451    T525:;
1452            V181 = CMPmake_fixnum(V172);
1453            base[4]= (V180);
1454            vs_top=(vs_base=base+4)+1;
1455            L40(base);
1456            vs_top=sup;
1457            V182= vs_base[0];
1458            V172= fix(number_plus(V181,V182));
1459            V172= (V172)+(1);
1460            V179= CMPcdr((V179));
1461            V180= CMPcar((V179));
1462            goto T524;}
1463    T519:;
1464            if(!(((V170))==(VV[80]))){
1465            goto T541;}
1466            {register object V183;
1467            V183= CMPcdr((V167));
1468    T545:;
1469            if(((V183))!=Cnil){
1470            goto T546;}
1471            base[2]= CMPmake_fixnum(V172);
1472            vs_top=(vs_base=base+2)+1;
1473            return;
1474    T546:;
1475            base[2]= CMPmake_fixnum(V172);
1476            base[4]= CMPcar((V183));
1477            vs_top=(vs_base=base+4)+1;
1478            (void) (*Lnk338)();
1479            vs_top=sup;
1480            base[3]= vs_base[0];
1481            base[5]= CMPcadr((V183));
1482            base[6]= base[1];
1483            vs_top=(vs_base=base+5)+2;
1484            (void) (*Lnk339)();
1485            vs_top=sup;
1486            base[4]= vs_base[0];
1487          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1488          (void) (*Lnk236)();          Lplus();
1489          vs_top=sup;          vs_top=sup;
1490          setq(VV[41],vs_base[0]);          V172= fix(vs_base[0]);
1491          V68= symbol_value(VV[41]);          V183= CMPcdr((V183));
1492  T256:;          goto T545;}
1493          if(((V66))!=Cnil){  T541:;
1494          goto T265;}          {register object x= (V170),V184= VV[81];
1495          V69= list(3,VV[43],(V68),make_cons(VV[44],(V67)));          while(V184!=Cnil)
1496          goto T263;          if(eql(x,V184->c.c_car)){
1497  T265:;          goto T563;
1498          if(((V67))!=Cnil){          }else V184=V184->c.c_cdr;
1499          goto T268;}          goto T562;}
1500          V69= list(3,VV[34],(V68),make_cons(VV[44],(V66)));  T563:;
1501          goto T263;          {register object V185;
1502  T268:;          V185= CMPcdr((V167));
1503          V70= make_cons((V68),(V66));  T566:;
1504          V69= list(3,VV[45],/* INLINE-ARGS */V70,make_cons(Ct,(V67)));          if(((V185))!=Cnil){
1505  T263:;          goto T567;}
1506          setq(VV[39],make_cons(V69,symbol_value(VV[39])));          base[2]= CMPmake_fixnum(V172);
1507          base[2]= symbol_value(VV[39]);          vs_top=(vs_base=base+2)+1;
1508            return;
1509    T567:;
1510            base[2]= CMPmake_fixnum(V172);
1511            base[4]= CMPcadr((V185));
1512            base[5]= base[1];
1513            vs_top=(vs_base=base+4)+2;
1514            (void) (*Lnk339)();
1515            vs_top=sup;
1516            base[3]= vs_base[0];
1517            base[4]= small_fixnum(1);
1518            vs_top=(vs_base=base+2)+3;
1519            Lplus();
1520            vs_top=sup;
1521            V172= fix(vs_base[0]);
1522            V185= CMPcdr((V185));
1523            goto T566;}
1524    T562:;
1525            if(!(((V170))==(VV[82]))){
1526            goto T582;}
1527            base[2]= small_fixnum(1);
1528            vs_top=(vs_base=base+2)+1;
1529            return;
1530    T582:;
1531            if(!(((V170))==(VV[83]))){
1532            goto T585;}
1533            if(type_of(CMPcadr((V167)))==t_symbol){
1534            goto T587;}
1535            if(!(type_of(CMPcadr((V167)))==t_cons)){
1536            goto T588;}
1537            if(!((CMPcaadr((V167)))==(VV[9]))){
1538            goto T588;}
1539    T587:;
1540            base[2]= small_fixnum(1);
1541            vs_top=(vs_base=base+2)+1;
1542            return;
1543    T588:;
1544            {frame_ptr fr;
1545            fr=frs_sch_catch(VV[84]);
1546            if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[84]);
1547            base[2]= Cnil;
1548            vs_top=(vs_base=base+2)+1;
1549            unwind(fr,VV[84]);}
1550    T585:;
1551            if(!(((V170))==(VV[85]))){
1552            goto T596;}
1553            {int V186= length(CMPcadr((V167)));
1554            base[2]= CMPcddr((V167));
1555            vs_top=(vs_base=base+2)+1;
1556            L40(base);
1557            vs_top=sup;
1558            V187= fix(vs_base[0]);
1559            base[2]= CMPmake_fixnum((/* INLINE-ARGS */V186)+(V187));
1560          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1561          return;}          return;}
1562    T596:;
1563            if(!(((V170))==(VV[86]))){
1564            goto T601;}
1565            base[2]= CMPcaddr((V167));
1566            base[3]= base[1];
1567            vs_top=(vs_base=base+2)+2;
1568            (void) (*Lnk339)();
1569            vs_top=sup;
1570            V188= vs_base[0];
1571            base[2]= one_plus(V188);
1572            vs_top=(vs_base=base+2)+1;
1573            return;
1574    T601:;
1575            base[2]= (V170);
1576            vs_top=(vs_base=base+2)+1;
1577            (void) (*Lnk340)();
1578            vs_top=sup;
1579            if((vs_base[0])!=Cnil){
1580            goto T606;}
1581            {register object x= (V170),V189= (VV[87]->s.s_dbind);
1582            while(V189!=Cnil)
1583            if(eql(x,V189->c.c_car)){
1584            goto T611;
1585            }else V189=V189->c.c_cdr;
1586            goto T607;}
1587    T611:;
1588    T606:;
1589            {frame_ptr fr;
1590            fr=frs_sch_catch(VV[77]);
1591            if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]);
1592            base[2]= Cnil;
1593            vs_top=(vs_base=base+2)+1;
1594            unwind(fr,VV[77]);}
1595    T607:;
1596            {object V190;
1597            object V191;
1598            base[2]= (V167);
1599            base[3]= base[1];
1600            vs_top=(vs_base=base+2)+2;
1601            Lmacroexpand_1();
1602            if(vs_base>=vs_top){vs_top=sup;goto T616;}
1603            V190= vs_base[0];
1604            vs_base++;
1605            if(vs_base>=vs_top){vs_top=sup;goto T617;}
1606            V191= vs_base[0];
1607            vs_top=sup;
1608            goto T618;
1609    T616:;
1610            V190= Cnil;
1611    T617:;
1612            V191= Cnil;
1613    T618:;
1614            if(((V191))==Cnil){
1615            goto T620;}
1616            V167= (V190);
1617            goto TTL;
1618    T620:;
1619            base[2]= CMPcdr((V167));
1620            vs_top=(vs_base=base+2)+1;
1621            L40(base);
1622            vs_top=sup;
1623            V192= fix(vs_base[0]);
1624            base[2]= CMPmake_fixnum((3)+(V192));
1625            vs_top=(vs_base=base+2)+1;
1626            return;}}
1627    T497:;
1628            {frame_ptr fr;
1629            fr=frs_sch_catch(VV[77]);
1630            if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[77]);
1631            base[2]= Cnil;
1632            vs_top=(vs_base=base+2)+1;
1633            unwind(fr,VV[77]);}
1634          }          }
1635  }  }
1636  /*      function definition for LOOP-TRANSLATE-1        */  /*      function definition for LOOP-CONTEXT    */
1637    
1638  static L21()  static L41()
1639  {register object *base=vs_base;  {register object *base=vs_base;
1640          register object *sup=base+VM21; VC21          register object *sup=base+VM33; VC33
1641          vs_reserve(VM21);          vs_check;
         bds_check;  
         check_arg(1);  
         bds_bind(VV[46],base[0]);  
1642          vs_top=sup;          vs_top=sup;
1643  TTL:;  TTL:;
1644          if((car((VV[46]->s.s_dbind)))==(VV[26])){          {register object V193;
1645          goto T271;}          register object V194;
1646          goto T270;          V193= (VV[88]->s.s_dbind);
1647  T271:;          V194= Cnil;
1648          (VV[46]->s.s_dbind)= cdr((VV[46]->s.s_dbind));  T629:;
1649  T270:;          if(!(((V193))==(CMPcdr((VV[89]->s.s_dbind))))){
1650          {register object V71;          goto T630;}
1651          register object V72;          base[0]= nreverse((V194));
1652          object V73;          vs_top=(vs_base=base+0)+1;
1653          bds_bind(VV[47],Cnil);          return;
1654          bds_bind(VV[48],Cnil);  T630:;
1655          bds_bind(VV[49],Cnil);          {object V195;
1656          bds_bind(VV[50],Cnil);          V195= CMPcdr((V193));
1657          bds_bind(VV[51],Cnil);          V194= make_cons(CMPcar((V193)),(V194));
1658          bds_bind(VV[52],Cnil);          V193= (V195);}
1659          bds_bind(VV[53],Cnil);          goto T629;}
1660          bds_bind(VV[54],Cnil);  }
1661          bds_bind(VV[55],Cnil);  /*      function definition for LOOP-ERROR      */
1662          bds_bind(VV[56],Cnil);  
1663          bds_bind(VV[57],Cnil);  static L42()
1664          bds_bind(VV[58],Cnil);  {register object *base=vs_base;
1665          bds_bind(VV[37],Cnil);          register object *sup=base+VM34; VC34
1666          bds_bind(VV[39],Cnil);          vs_check;
1667          bds_bind(VV[59],Cnil);          {object V196;
1668          bds_bind(VV[38],Cnil);          object V197;
1669          bds_bind(VV[60],Cnil);          V196=(base[0]);
1670          bds_bind(VV[61],Cnil);          vs_base=vs_base+1;
1671          bds_bind(VV[62],Cnil);          vs_top[0]=Cnil;
1672          bds_bind(VV[63],Cnil);          {object *p=vs_top;
1673          bds_bind(VV[41],Cnil);           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1674          bds_bind(VV[18],Cnil);          V197=(base[1]);
1675          bds_bind(VV[22],Cnil);          vs_top=sup;
1676          bds_bind(VV[64],Cnil);          base[2]= VV[90];
1677          V71= Cnil;          base[3]= (V196);
1678          V72= Cnil;          base[4]= (V197);
1679          V73= Cnil;          vs_base=vs_top;
1680  T278:;          (void) (*Lnk341)();
1681          if(((VV[46]->s.s_dbind))!=Cnil){          vs_top=sup;
1682          goto T279;}          base[5]= vs_base[0];
1683          if((VV[62]->s.s_dbind)==Cnil){          vs_top=(vs_base=base+2)+4;
         goto T282;}  
         base[25]= VV[2];  
         base[26]= VV[65];  
         base[27]= caadar((VV[62]->s.s_dbind));  
         vs_top=(vs_base=base+25)+3;  
1684          Lerror();          Lerror();
1685            return;
1686            }
1687    }
1688    /*      function definition for LOOP-WARN       */
1689    
1690    static L43()
1691    {register object *base=vs_base;
1692            register object *sup=base+VM35; VC35
1693            vs_check;
1694            {object V198;
1695            object V199;
1696            V198=(base[0]);
1697            vs_base=vs_base+1;
1698            vs_top[0]=Cnil;
1699            {object *p=vs_top;
1700             for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1701            V199=(base[1]);
1702          vs_top=sup;          vs_top=sup;
1703  T282:;          base[2]= VV[91];
1704            base[3]= (V198);
1705            base[4]= (V199);
1706          vs_base=vs_top;          vs_base=vs_top;
1707          (void) (*Lnk237)();          (void) (*Lnk341)();
1708            vs_top=sup;
1709            base[5]= vs_base[0];
1710            vs_top=(vs_base=base+2)+4;
1711            (void) (*Lnk342)();
1712            return;
1713            }
1714    }
1715    /*      function definition for LOOP-CHECK-DATA-TYPE    */
1716    
1717    static L44()
1718    {register object *base=vs_base;
1719            register object *sup=base+VM36; VC36
1720            vs_check;
1721            {register object V200;
1722            register object V201;
1723            object V202;
1724            V200=(base[0]);
1725            V201=(base[1]);
1726            vs_base=vs_base+2;
1727            if(vs_base>=vs_top){vs_top=sup;goto T646;}
1728            V202=(base[2]);
1729            vs_top=sup;
1730            goto T647;
1731    T646:;
1732            V202= (V201);
1733    T647:;
1734            if(((V200))!=Cnil){
1735            goto T650;}
1736            base[3]= (V202);
1737            vs_top=(vs_base=base+3)+1;
1738            return;
1739    T650:;
1740            {object V203;
1741            object V204;
1742            base[3]= (V200);
1743            base[4]= (V201);
1744            vs_top=(vs_base=base+3)+2;
1745            (void) (*Lnk323)();
1746            if(vs_base>=vs_top){vs_top=sup;goto T655;}
1747            V203= vs_base[0];
1748            vs_base++;
1749            if(vs_base>=vs_top){vs_top=sup;goto T656;}
1750            V204= vs_base[0];
1751          vs_top=sup;          vs_top=sup;
1752            goto T657;
1753    T655:;
1754            V203= Cnil;
1755    T656:;
1756            V204= Cnil;
1757    T657:;
1758            if(((V204))!=Cnil){
1759            goto T660;}
1760            base[3]= VV[92];
1761            base[4]= (V200);
1762            base[5]= (V201);
1763            vs_top=(vs_base=base+3)+3;
1764            (void) (*Lnk335)();
1765            vs_top=sup;
1766            goto T658;
1767    T660:;
1768            if(((V203))!=Cnil){
1769            goto T658;}
1770            base[3]= VV[93];
1771            base[4]= (V200);
1772            base[5]= (V201);
1773            vs_top=(vs_base=base+3)+3;
1774            (void) (*Lnk343)();
1775            vs_top=sup;
1776    T658:;
1777            base[3]= (V200);
1778            vs_top=(vs_base=base+3)+1;
1779            return;}
1780            }
1781    }
1782    /*      macro definition for LOOP-FINISH        */
1783    
1784    static L45()
1785    {register object *base=vs_base;
1786            register object *sup=base+VM37; VC37
1787            vs_check;
1788            vs_top=sup;
1789            {object V205=base[0]->c.c_cdr;}
1790            base[2]= VV[94];
1791            vs_top=(vs_base=base+2)+1;
1792            return;
1793    }
1794    /*      function definition for LOOP-TRANSLATE  */
1795    
1796    static L46()
1797    {register object *base=vs_base;
1798            register object *sup=base+VM38; VC38
1799            vs_check;
1800            bds_check;
1801            bds_bind(VV[89],base[0]);
1802            bds_bind(VV[95],base[1]);
1803            bds_bind(VV[96],base[2]);
1804            vs_top=sup;
1805    TTL:;
1806            bds_bind(VV[97],(VV[89]->s.s_dbind));
1807            bds_bind(VV[88],Cnil);
1808            bds_bind(VV[98],Cnil);
1809            bds_bind(VV[99],Cnil);
1810            bds_bind(VV[100],Cnil);
1811            bds_bind(VV[101],Cnil);
1812            bds_bind(VV[102],Cnil);
1813            bds_bind(VV[103],Cnil);
1814            bds_bind(VV[104],Cnil);
1815            bds_bind(VV[105],Cnil);
1816            bds_bind(VV[106],Cnil);
1817            bds_bind(VV[107],Cnil);
1818            bds_bind(VV[108],Cnil);
1819            bds_bind(VV[109],Cnil);
1820            bds_bind(VV[110],Cnil);
1821            bds_bind(VV[111],Cnil);
1822            bds_bind(VV[112],Cnil);
1823            bds_bind(VV[113],Cnil);
1824            bds_bind(VV[114],Cnil);
1825            bds_bind(VV[115],Cnil);
1826            bds_bind(VV[116],Cnil);
1827            bds_bind(VV[117],Cnil);
1828            bds_bind(VV[118],Cnil);
1829          vs_base=vs_top;          vs_base=vs_top;
1830          (void) (*Lnk238)();          (void) (*Lnk344)();
1831          vs_top=sup;          vs_top=sup;
1832          if((VV[18]->s.s_dbind)==Cnil){          vs_base=vs_top;
1833          goto T288;}          (void) (*Lnk345)();
         V73= make_cons((VV[18]->s.s_dbind),(V73));  
 T288:;  
         V74= car((VV[22]->s.s_dbind));  
         base[25]= nreverse((VV[57]->s.s_dbind));  
         base[26]= (VV[37]->s.s_dbind);  
         base[28]= (VV[39]->s.s_dbind);  
         base[29]= (VV[38]->s.s_dbind);  
         V77= nreverse((VV[60]->s.s_dbind));  
         V78= nreverse((VV[61]->s.s_dbind));  
         base[30]= listA(4,VV[70],VV[71],VV[72],append(/* INLINE-ARGS */V77,/* INLINE-ARGS */V78));  
         vs_top=(vs_base=base+28)+3;  
         Lappend();  
         vs_top=sup;  
         V76= vs_base[0];  
         base[27]= make_cons(VV[69],V76);  
         vs_top=(vs_base=base+25)+3;  
         Lappend();  
1834          vs_top=sup;          vs_top=sup;
1835          V75= vs_base[0];          {register object V206;
1836          V72= list(3,VV[66],/* INLINE-ARGS */V74,list(3,VV[67],(V73),make_cons(VV[68],V75)));          V207= nreverse((VV[105]->s.s_dbind));
1837          {object V79;          V208= nreverse((VV[107]->s.s_dbind));
1838          register object V80;          V209= nreverse((VV[108]->s.s_dbind));
1839          object V81;          V210= nreverse((VV[110]->s.s_dbind));
1840          V79= Cnil;          base[26]= (VV[111]->s.s_dbind);
1841          V80= Cnil;          base[27]= nreverse((VV[112]->s.s_dbind));
1842          V81= Cnil;          vs_top=(vs_base=base+26)+2;
1843  T302:;          Lreconc();
         if(((VV[54]->s.s_dbind))!=Cnil){  
         goto T303;}  
         goto T300;  
 T303:;  
         V79= car((VV[54]->s.s_dbind));  
         (VV[54]->s.s_dbind)= cdr((VV[54]->s.s_dbind));  
         V80= car((VV[55]->s.s_dbind));  
         (VV[55]->s.s_dbind)= cdr((VV[55]->s.s_dbind));  
         V72= make_cons((V72),Cnil);  
         {object V82;  
         V82= car((VV[56]->s.s_dbind));  
         (VV[56]->s.s_dbind)= cdr((VV[56]->s.s_dbind));  
         V81= (V82);}  
         if(((V81))!=Cnil){  
         goto T318;}  
         goto T317;  
 T318:;  
         base[25]= (V81);  
         vs_top=(vs_base=base+25)+1;  
         (void) (*Lnk229)();  
1844          vs_top=sup;          vs_top=sup;
1845          V83= vs_base[0];          V211= vs_base[0];
1846          V72= make_cons(V83,(V72));          V206= list(6,VV[119],/* INLINE-ARGS */V207,/* INLINE-ARGS */V208,/* INLINE-ARGS */V209,/* INLINE-ARGS */V210,V211);
1847  T317:;  T678:;
1848          if((V80)==Cnil){          {object V213;
1849          goto T327;}          V213= CMPcar((VV[117]->s.s_dbind));
1850          V84= make_cons(VV[73],(V80));          (VV[117]->s.s_dbind)= CMPcdr((VV[117]->s.s_dbind));
1851          V72= make_cons(/* INLINE-ARGS */V84,(V72));          V212= (V213);}
1852  T327:;          V206= list(3,VV[120],V212,(V206));
1853          V85= nreverse((V79));          if(((VV[117]->s.s_dbind))!=Cnil){
1854          V72= listA(3,VV[67],/* INLINE-ARGS */V85,(V72));          goto T687;}
1855          goto T302;}          goto T676;
1856  T300:;  T687:;
1857          {register object V86;          goto T678;
1858          V86= (VV[58]->s.s_dbind);  T676:;
1859  T335:;          {register object V214;
1860          if(((V86))!=Cnil){          register object V215;
1861          goto T336;}          V214= (VV[104]->s.s_dbind);
1862          goto T333;          V215= CMPcar((V214));
1863  T336:;  T696:;
1864          V87= car((V86));          if(!(((V214))==Cnil)){
1865          V88= make_cons((V72),Cnil);          goto T697;}
1866          V72= append(/* INLINE-ARGS */V87,/* INLINE-ARGS */V88);          goto T692;
1867          V86= cdr((V86));  T697:;
1868          goto T335;}          {object V216;
1869  T333:;          object V217;
1870          base[25]= (V72);          object V218;
1871          vs_top=(vs_base=base+25)+1;          object V219;
1872            V216= CMPcar((V215));
1873            V217= CMPcadr((V215));
1874            V218= CMPcaddr((V215));
1875            V219= CMPcadddr((V215));
1876            {register object V220;
1877            register object V221;
1878            V220= (V219);
1879            V221= CMPcar((V220));
1880    T710:;
1881            if(!(((V220))==Cnil)){
1882            goto T711;}
1883            goto T706;
1884    T711:;
1885            V222= make_cons((V206),Cnil);
1886            V206= append((V221),/* INLINE-ARGS */V222);
1887            V220= CMPcdr((V220));
1888            V221= CMPcar((V220));
1889            goto T710;}
1890    T706:;
1891            if(((V216))!=Cnil){
1892            goto T722;}
1893            if(((V217))!=Cnil){
1894            goto T722;}
1895            if(((V218))==Cnil){
1896            goto T701;}
1897    T722:;
1898            {register object V223;
1899            V223= make_cons((V206),Cnil);
1900            if(((V217))==Cnil){
1901            goto T729;}
1902            V224= make_cons(VV[30],(V217));
1903            V223= make_cons(/* INLINE-ARGS */V224,(V223));
1904    T729:;
1905            if(((V216))!=Cnil){
1906            goto T736;}
1907            V225= VV[121];
1908            goto T734;
1909    T736:;
1910            if(((VV[63]->s.s_dbind))==Cnil){
1911            goto T739;}
1912            V225= CMPcar((VV[63]->s.s_dbind));
1913            goto T734;
1914    T739:;
1915            V225= VV[29];
1916    T734:;
1917            if(((V218))==Cnil){
1918            goto T743;}
1919            V227= append((V218),(V223));
1920            V228= make_cons(VV[122],/* INLINE-ARGS */V227);
1921            V226= make_cons(/* INLINE-ARGS */V228,Cnil);
1922            goto T741;
1923    T743:;
1924            V226= (V223);
1925    T741:;
1926            V206= listA(3,V225,(V216),V226);}}
1927    T701:;
1928            V214= CMPcdr((V214));
1929            V215= CMPcar((V214));
1930            goto T696;}
1931    T692:;
1932            base[26]= (V206);
1933            vs_top=(vs_base=base+26)+1;
1934          bds_unwind1;          bds_unwind1;
1935          bds_unwind1;          bds_unwind1;
1936          bds_unwind1;          bds_unwind1;
# Line 944  T333:; Line 1956  T333:;
1956          bds_unwind1;          bds_unwind1;
1957          bds_unwind1;          bds_unwind1;
1958          bds_unwind1;          bds_unwind1;
1959          return;          bds_unwind1;
1960  T279:;          return;}
         V71= car((VV[46]->s.s_dbind));  
         if(!(type_of((V71))==t_symbol)){  
         goto T348;}  
         {object V89;  
         V89= car((VV[46]->s.s_dbind));  
         (VV[46]->s.s_dbind)= cdr((VV[46]->s.s_dbind));  
         goto T346;}  
 T348:;  
         V71= VV[74];  
 T346:;  
         base[25]= (V71);  
         base[26]= VV[27];  
         vs_top=(vs_base=base+25)+2;  
         (void) (*Lnk231)();  
         vs_top=sup;  
         V72= vs_base[0];  
         if(((V72))==Cnil){  
         goto T357;}  
         base[25]= cadr((V72));  
         {object V90;  
         V90= cddr((V72));  
          vs_top=base+26;  
          while(!endp(V90))  
          {vs_push(car(V90));V90=cdr(V90);}  
         vs_base=base+26;}  
         super_funcall_no_event(base[25]);  
         vs_top=sup;  
         goto T355;  
 T357:;  
         base[25]= (V71);  
         base[26]= VV[28];  
         vs_top=(vs_base=base+25)+2;  
         (void) (*Lnk231)();  
         vs_top=sup;  
         V72= vs_base[0];  
         if(((V72))==Cnil){  
         goto T365;}  
         base[25]= (V72);  
         vs_top=(vs_base=base+25)+1;  
         (void) (*Lnk239)();  
         vs_top=sup;  
         goto T355;  
 T365:;  
         base[25]= (V71);  
         base[26]= VV[75];  
         vs_top=(vs_base=base+25)+2;  
         (void) (*Lnk240)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T372;}  
         base[25]= VV[2];  
         base[26]= VV[76];  
         base[27]= list(3,(V71),car((VV[46]->s.s_dbind)),cadr((VV[46]->s.s_dbind)));  
         vs_top=(vs_base=base+25)+3;  
         Lerror();  
         vs_top=sup;  
         goto T355;  
 T372:;  
         base[25]= VV[2];  
         base[26]= VV[77];  
         base[27]= (V71);  
         vs_top=(vs_base=base+25)+3;  
         Lerror();  
         vs_top=sup;  
 T355:;  
         goto T278;}  
1961  }  }
1962  /*      function definition for LOOP-BIND-BLOCK */  /*      function definition for LOOP-ITERATION-DRIVER   */
1963    
1964  static L22()  static L47()
1965  {register object *base=vs_base;  {register object *base=vs_base;
1966          register object *sup=base+VM22; VC22          register object *sup=base+VM39; VC39
1967          vs_reserve(VM22);          vs_check;
         check_arg(0);  
1968          vs_top=sup;          vs_top=sup;
1969  TTL:;  TTL:;
1970          if((symbol_value(VV[49]))==Cnil){  T751:;
1971          goto T385;}          if(((VV[89]->s.s_dbind))!=Cnil){
1972          setq(VV[54],make_cons(symbol_value(VV[49]),symbol_value(VV[54])));          goto T752;}
         setq(VV[55],make_cons(symbol_value(VV[52]),symbol_value(VV[55])));  
         setq(VV[49],Cnil);  
         setq(VV[52],Cnil);  
         setq(VV[56],make_cons(symbol_value(VV[53]),symbol_value(VV[56])));  
         setq(VV[53],Cnil);  
1973          base[0]= Cnil;          base[0]= Cnil;
1974          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
1975          return;          return;
1976  T385:;  T752:;
1977          base[0]= Cnil;          {register object V229;
1978            register object V230;
1979            V229= CMPcar((VV[89]->s.s_dbind));
1980            V230= Cnil;
1981            if(type_of((V229))==t_symbol){
1982            goto T759;}
1983            base[0]= VV[123];
1984            base[1]= (V229);
1985            vs_top=(vs_base=base+0)+2;
1986            (void) (*Lnk343)();
1987            vs_top=sup;
1988            goto T756;
1989    T759:;
1990            (VV[88]->s.s_dbind)= (VV[89]->s.s_dbind);
1991            vs_base=vs_top;
1992            (void) (*Lnk346)();
1993            vs_top=sup;
1994            base[0]= (V229);
1995            base[1]= STREF(object,(VV[96]->s.s_dbind),0);
1996            vs_top=(vs_base=base+0)+2;
1997            (void) (*Lnk347)();
1998            vs_top=sup;
1999            V230= vs_base[0];
2000            if(((V230))==Cnil){
2001            goto T767;}
2002            base[1]= CMPcar((V230));
2003            vs_top=(vs_base=base+1)+1;
2004            Lsymbol_function();
2005            vs_top=sup;
2006            base[0]= vs_base[0];
2007            {object V231;
2008            V231= CMPcdr((V230));
2009             vs_top=base+1;
2010             while(V231!=Cnil)
2011             {vs_push((V231)->c.c_car);V231=(V231)->c.c_cdr;}
2012            vs_base=base+1;}
2013            super_funcall_no_event(base[0]);
2014            vs_top=sup;
2015            goto T756;
2016    T767:;
2017            base[0]= (V229);
2018            base[1]= STREF(object,(VV[96]->s.s_dbind),4);
2019            vs_top=(vs_base=base+0)+2;
2020            (void) (*Lnk347)();
2021            vs_top=sup;
2022            V230= vs_base[0];
2023            if(((V230))==Cnil){
2024            goto T776;}
2025            base[0]= (V230);
2026          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2027          return;          (void) (*Lnk348)();
2028            vs_top=sup;
2029            goto T756;
2030    T776:;
2031            base[0]= (V229);
2032            base[1]= VV[124];
2033            vs_top=(vs_base=base+0)+2;
2034            (void) (*Lnk349)();
2035            vs_top=sup;
2036            if((vs_base[0])==Cnil){
2037            goto T783;}
2038            base[0]= VV[125];
2039            base[1]= (V229);
2040            base[2]= CMPcar((VV[89]->s.s_dbind));
2041            base[3]= CMPcadr((VV[89]->s.s_dbind));
2042            vs_top=(vs_base=base+0)+4;
2043            (void) (*Lnk343)();
2044            vs_top=sup;
2045            goto T756;
2046    T783:;
2047            base[0]= VV[126];
2048            base[1]= (V229);
2049            vs_top=(vs_base=base+0)+2;
2050            (void) (*Lnk343)();
2051            vs_top=sup;}
2052    T756:;
2053            goto T751;
2054  }  }
2055  /*      function definition for LOOP-GET-PROGN-1        */  /*      function definition for LOOP-POP-SOURCE */
2056    
2057  static L23()  static L48()
2058  {register object *base=vs_base;  {register object *base=vs_base;
2059          register object *sup=base+VM23; VC23          register object *sup=base+VM40; VC40
2060          vs_reserve(VM23);          vs_check;
         check_arg(0);  
2061          vs_top=sup;          vs_top=sup;
2062  TTL:;  TTL:;
2063          {register object V91;          if(((VV[89]->s.s_dbind))==Cnil){
2064          register object V92;          goto T796;}
2065          {object V94;          {object V232;
2066          V94= car(symbol_value(VV[46]));          V232= CMPcar((VV[89]->s.s_dbind));
2067          setq(VV[46],cdr(symbol_value(VV[46])));          (VV[89]->s.s_dbind)= CMPcdr((VV[89]->s.s_dbind));
2068          V93= (V94);}          base[0]= (V232);
2069          V91= make_cons(V93,Cnil);          vs_top=(vs_base=base+0)+1;
2070          V92= car(symbol_value(VV[46]));          return;}
2071  T405:;  T796:;
2072          if(!(type_of((V92))!=t_cons)){          base[0]= VV[127];
         goto T406;}  
         base[0]= nreverse((V91));  
2073          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2074            (void) (*Lnk343)();
2075          return;          return;
 T406:;  
         {register object V96;  
         V96= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V95= (V96);}  
         V91= make_cons(V95,(V91));  
         V92= car(symbol_value(VV[46]));  
         goto T405;}  
2076  }  }
2077  /*      function definition for LOOP-GET-PROGN  */  /*      function definition for LOOP-GET-PROGN  */
2078    
2079  static L24()  static L49()
2080  {register object *base=vs_base;  {register object *base=vs_base;
2081          register object *sup=base+VM24; VC24          register object *sup=base+VM41; VC41
2082          vs_reserve(VM24);          vs_check;
         check_arg(0);  
2083          vs_top=sup;          vs_top=sup;
2084  TTL:;  TTL:;
2085          {object V97;          {register object V233;
2086            register object V234;
2087          vs_base=vs_top;          vs_base=vs_top;
2088          (void) (*Lnk241)();          (void) (*Lnk346)();
2089          vs_top=sup;          vs_top=sup;
2090          V97= vs_base[0];          V235= vs_base[0];
2091          if((cdr((V97)))!=Cnil){          V233= make_cons(V235,Cnil);
2092          goto T420;}          V234= CMPcar((VV[89]->s.s_dbind));
2093          base[0]= car((V97));  T806:;
2094            if(!(type_of((V234))!=t_cons)){
2095            goto T807;}
2096            if((CMPcdr((V233)))!=Cnil){
2097            goto T811;}
2098            base[0]= CMPcar((V233));
2099          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2100          return;          return;
2101  T420:;  T811:;
2102          base[0]= make_cons(VV[44],(V97));          V236= nreverse((V233));
2103            base[0]= make_cons(VV[14],/* INLINE-ARGS */V236);
2104          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2105          return;}          return;
2106    T807:;
2107            vs_base=vs_top;
2108            (void) (*Lnk346)();
2109            vs_top=sup;
2110            V237= vs_base[0];
2111            V233= make_cons(V237,(V233));
2112            V234= CMPcar((VV[89]->s.s_dbind));
2113            goto T806;}
2114  }  }
2115  /*      function definition for LOOP-GET-FORM   */  /*      function definition for LOOP-GET-FORM   */
2116    
2117  static L25()  static L50()
2118  {register object *base=vs_base;  {register object *base=vs_base;
2119          register object *sup=base+VM25; VC25          register object *sup=base+VM42; VC42
2120          vs_reserve(VM25);          vs_check;
2121          {object V98;          vs_top=sup;
2122          check_arg(1);  TTL:;
2123          V98=(base[0]);          if(((VV[89]->s.s_dbind))==Cnil){
2124          vs_top=sup;          goto T820;}
2125  TTL:;          vs_base=vs_top;
2126          {register object V99;          (void) (*Lnk346)();
2127          vs_base=vs_top;          return;
2128          (void) (*Lnk241)();  T820:;
2129          vs_top=sup;          base[0]= VV[128];
2130          V99= vs_base[0];          vs_top=(vs_base=base+0)+1;
2131          if((cdr((V99)))!=Cnil){          (void) (*Lnk343)();
2132          goto T424;}          return;
         base[1]= car((V99));  
         vs_top=(vs_base=base+1)+1;  
         return;  
 T424:;  
         if(!(type_of((V98))!=t_cons)){  
         goto T429;}  
         V100= make_cons((V98),(V99));  
         goto T427;  
 T429:;  
         V100= append((V98),(V99));  
 T427:;  
         (void)((VFUN_NARGS=2,(*(LnkLI5))(VV[78],V100)));  
         base[1]= make_cons(VV[44],(V99));  
         vs_top=(vs_base=base+1)+1;  
         return;}  
         }  
2133  }  }
2134  /*      function definition for LOOP-TYPED-ARITH        */  /*      function definition for LOOP-CONSTRUCT-RETURN   */
2135    
2136  static L26()  static L51()
2137  {register object *base=vs_base;  {register object *base=vs_base;
2138          register object *sup=base+VM26; VC26          register object *sup=base+VM43; VC43
2139          vs_reserve(VM26);          vs_check;
2140          {object V101;          {object V238;
2141          object V102;          V238=(base[0]);
         check_arg(2);  
         V101=(base[0]);  
         V102=(base[1]);  
2142          vs_top=sup;          vs_top=sup;
2143  TTL:;  TTL:;
2144          base[2]= (V101);          base[1]= list(3,VV[86],CMPcar((VV[117]->s.s_dbind)),(V238));
2145          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+1)+1;
2146          return;          return;
2147          }          }
2148  }  }
2149  /*      function definition for LOOP-TYPED-INIT */  /*      function definition for LOOP-PSEUDO-BODY        */
2150    
2151  static L27()  static L52()
2152  {register object *base=vs_base;  {register object *base=vs_base;
2153          register object *sup=base+VM27; VC27          register object *sup=base+VM44; VC44
2154          vs_reserve(VM27);          vs_check;
2155          {object V103;          {object V239;
2156          check_arg(1);          V239=(base[0]);
         V103=(base[0]);  
2157          vs_top=sup;          vs_top=sup;
2158  TTL:;  TTL:;
2159          {object V104;          if(((VV[109]->s.s_dbind))!=Cnil){
2160          V104= Cnil;          goto T823;}
2161          base[1]= (V103);          if(((VV[114]->s.s_dbind))==Cnil){
2162          base[2]= VV[79];          goto T824;}
2163          vs_top=(vs_base=base+1)+2;  T823:;
2164          (void) (*Lnk240)();          (VV[108]->s.s_dbind)= make_cons((V239),(VV[108]->s.s_dbind));
2165          vs_top=sup;          base[1]= (VV[108]->s.s_dbind);
         if((vs_base[0])==Cnil){  
         goto T432;}  
         base[1]= small_fixnum(0);  
2166          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2167          return;          return;
2168  T432:;  T824:;
2169          base[1]= (V103);          (VV[107]->s.s_dbind)= make_cons((V239),(VV[107]->s.s_dbind));
2170          base[2]= symbol_value(VV[80]);          (VV[110]->s.s_dbind)= make_cons((V239),(VV[110]->s.s_dbind));
2171          vs_top=(vs_base=base+1)+2;          base[1]= (VV[110]->s.s_dbind);
         (void) (*Lnk240)();  
         vs_top=sup;  
         V105= vs_base[0];  
         V104= car(V105);  
         if(((V104))==Cnil){  
         goto T437;}  
         {register object x= (V104),V106= VV[81];  
         while(!endp(V106))  
         if(eql(x,V106->c.c_car)){  
         goto T445;  
         }else V106=V106->c.c_cdr;  
         goto T444;}  
 T445:;  
         base[1]= VV[82];  
2172          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2173          return;          return;
2174  T444:;          }
2175          base[1]= (*(LnkLI242))(small_fixnum(0),(V104));  }
2176    /*      function definition for LOOP-EMIT-BODY  */
2177    
2178    static L53()
2179    {register object *base=vs_base;
2180            register object *sup=base+VM45; VC45
2181            vs_check;
2182            {object V240;
2183            V240=(base[0]);
2184            vs_top=sup;
2185    TTL:;
2186            (VV[109]->s.s_dbind)= Ct;
2187            base[1]= (V240);
2188          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2189            (void) (*Lnk350)();
2190          return;          return;
 T437:;  
         base[1]= Cnil;  
         vs_top=(vs_base=base+1)+1;  
         return;}  
2191          }          }
2192  }  }
2193  /*      function definition for LOOP-MAKE-VARIABLE      */  /*      function definition for LOOP-EMIT-FINAL-VALUE   */
2194    
2195  static L28()  static L54()
2196  {register object *base=vs_base;  {register object *base=vs_base;
2197          register object *sup=base+VM28; VC28          register object *sup=base+VM46; VC46
2198          vs_reserve(VM28);          vs_check;
2199          {register object V107;          {object V241;
2200          register object V108;          V241=(base[0]);
         register object V109;  
         check_arg(3);  
         V107=(base[0]);  
         V108=(base[1]);  
         V109=(base[2]);  
2201          vs_top=sup;          vs_top=sup;
2202  TTL:;  TTL:;
2203          if(((V107))!=Cnil){          base[1]= (V241);
2204          goto T448;}          vs_top=(vs_base=base+1)+1;
2205          if(((V108))==Cnil){          (void) (*Lnk351)();
         goto T446;}  
         base[3]= VV[83];  
         vs_top=(vs_base=base+3)+1;  
         Lgentemp();  
         vs_top=sup;  
         V107= vs_base[0];  
         V110= list(2,(V107),(V108));  
         setq(VV[49],make_cons(/* INLINE-ARGS */V110,symbol_value(VV[49])));  
         V111= list(2,VV[84],(V107));  
         setq(VV[52],make_cons(/* INLINE-ARGS */V111,symbol_value(VV[52])));  
         goto T446;  
 T448:;  
         if(!(type_of((V107))!=t_cons)){  
         goto T458;}  
         if((symbol_value(VV[48]))==Cnil){  
         goto T462;}  
         {register object x= (V107),V112= symbol_value(VV[47]);  
         while(!endp(V112))  
         if(eql(x,V112->c.c_car)){  
         goto T466;  
         }else V112=V112->c.c_cdr;  
         goto T465;}  
 T466:;  
         base[3]= VV[2];  
         base[4]= VV[85];  
         base[5]= (V107);  
         vs_top=(vs_base=base+3)+3;  
         Lerror();  
         vs_top=sup;  
         goto T460;  
 T465:;  
         setq(VV[47],make_cons((V107),symbol_value(VV[47])));  
         goto T460;  
 T462:;  
         {register object x= (V107),V113= symbol_value(VV[49]);  
         while(!endp(V113))  
         if(type_of(V113->c.c_car)==t_cons &&eql(x,V113->c.c_car->c.c_car)){  
         goto T472;  
         }else V113=V113->c.c_cdr;  
         goto T460;}  
 T472:;  
         base[3]= VV[2];  
         base[4]= VV[86];  
         base[5]= (V107);  
         vs_top=(vs_base=base+3)+3;  
         Lerror();  
         vs_top=sup;  
 T460:;  
         if(!(type_of((V107))==t_symbol)){  
         goto T477;}  
         goto T476;  
 T477:;  
         base[3]= VV[2];  
         base[4]= VV[87];  
         base[5]= (V107);  
         vs_top=(vs_base=base+3)+3;  
         Lerror();  
         vs_top=sup;  
 T476:;  
         base[3]= (V107);  
         base[4]= (V109);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk92)();  
         vs_top=sup;  
         if((V108)!=Cnil){  
         V114= (V108);  
         goto T486;}  
         base[3]= (V109);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk243)();  
         vs_top=sup;  
         V114= vs_base[0];  
 T486:;  
         V115= list(2,(V107),V114);  
         setq(VV[49],make_cons(/* INLINE-ARGS */V115,symbol_value(VV[49])));  
         goto T446;  
 T458:;  
         if(((V108))==Cnil){  
         goto T489;}  
         if((symbol_value(VV[14]))==Cnil){  
         goto T492;}  
         base[3]= (V107);  
         base[4]= (V109);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk92)();  
         vs_top=sup;  
         V116= list(2,(V107),(V108));  
         setq(VV[49],make_cons(/* INLINE-ARGS */V116,symbol_value(VV[49])));  
         goto T446;  
 T492:;  
         {object V117;  
         base[3]= VV[88];  
         vs_top=(vs_base=base+3)+1;  
         Lgentemp();  
         vs_top=sup;  
         V117= vs_base[0];  
         V118= list(2,(V117),(V108));  
         setq(VV[49],make_cons(/* INLINE-ARGS */V118,symbol_value(VV[49])));  
         setq(VV[53],listA(3,(V107),(V117),symbol_value(VV[53])));  
         base[3]= (V107);  
         base[4]= Cnil;  
         base[5]= (V109);  
         vs_top=(vs_base=base+3)+3;  
         (void) (*Lnk236)();  
2206          vs_top=sup;          vs_top=sup;
2207          goto T446;}          V242= vs_base[0];
2208  T489:;          (VV[112]->s.s_dbind)= make_cons(V242,(VV[112]->s.s_dbind));
2209          {object V119;          if(((VV[113]->s.s_dbind))==Cnil){
2210          object V120;          goto T839;}
2211          V119= Cnil;          base[1]= VV[129];
2212          V120= Cnil;          base[2]= (VV[113]->s.s_dbind);
2213          if(!(type_of((V109))!=t_cons)){          vs_top=(vs_base=base+1)+2;
2214          goto T509;}          (void) (*Lnk335)();
         V120= (V109);  
         V119= (V120);  
         goto T507;  
 T509:;  
         V119= car((V109));  
         V120= cdr((V109));  
 T507:;  
         base[3]= car((V107));  
         base[4]= Cnil;  
         base[5]= (V119);  
         vs_top=(vs_base=base+3)+3;  
         (void) (*Lnk236)();  
2215          vs_top=sup;          vs_top=sup;
2216          base[3]= cdr((V107));  T839:;
2217          base[4]= Cnil;          (VV[113]->s.s_dbind)= CMPcar((VV[88]->s.s_dbind));
2218          base[5]= (V120);          base[1]= (VV[113]->s.s_dbind);
2219          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+1)+1;
         (void) (*Lnk236)();  
         vs_top=sup;}  
 T446:;  
         base[3]= (V107);  
         vs_top=(vs_base=base+3)+1;  
2220          return;          return;
2221          }          }
2222  }  }
2223  /*      function definition for LOOP-MAKE-ITERATION-VARIABLE    */  /*      function definition for LOOP-DISALLOW-CONDITIONAL       */
2224    
2225  static L29()  static L55()
2226  {register object *base=vs_base;  {register object *base=vs_base;
2227          register object *sup=base+VM29; VC29          register object *sup=base+VM47; VC47
2228          vs_reserve(VM29);          vs_check;
2229          bds_check;          {object V243;
2230          {object V121;          if(vs_base>=vs_top){vs_top=sup;goto T845;}
2231          object V122;          V243=(base[0]);
2232          object V123;          vs_top=sup;
2233          check_arg(3);          goto T846;
2234          V121=(base[0]);  T845:;
2235          V122=(base[1]);          V243= Cnil;
2236          V123=(base[2]);  T846:;
2237          vs_top=sup;          if(((VV[114]->s.s_dbind))==Cnil){
2238  TTL:;          goto T849;}
2239          bds_bind(VV[48],Ct);          base[1]= VV[130];
2240          base[4]= (V121);          base[2]= (V243);
2241          base[5]= (V122);          vs_top=(vs_base=base+1)+2;
2242          base[6]= (V123);          (void) (*Lnk343)();
2243          vs_top=(vs_base=base+4)+3;          return;
2244          (void) (*Lnk236)();  T849:;
2245          bds_unwind1;          base[1]= Cnil;
2246            vs_top=(vs_base=base+1)+1;
2247          return;          return;
2248          }          }
2249  }  }
2250  /*      function definition for LOOP-DECLARE-VARIABLE   */  /*      function definition for LOOP-TYPED-INIT */
2251    
2252  static L30()  static L56()
2253  {register object *base=vs_base;  {register object *base=vs_base;
2254          register object *sup=base+VM30; VC30          register object *sup=base+VM48; VC48
2255          vs_reserve(VM30);          vs_check;
2256          {register object V124;          {register object V244;
2257          register object V125;          V244=(base[0]);
         check_arg(2);  
         V124=(base[0]);  
         V125=(base[1]);  
2258          vs_top=sup;          vs_top=sup;
2259  TTL:;  TTL:;
2260          if(((V124))==Cnil){          if(((V244))==Cnil){
2261          goto T526;}          goto T854;}
2262          if(((V125))!=Cnil){          base[1]= (V244);
2263          goto T527;}          base[2]= VV[131];
2264  T526:;          vs_top=(vs_base=base+1)+2;
2265          base[2]= Cnil;          (void) (*Lnk323)();
         vs_top=(vs_base=base+2)+1;  
         return;  
 T527:;  
         if(!(type_of((V124))==t_symbol)){  
         goto T532;}  
         {register object x= (V124),V126= symbol_value(VV[50]);  
         while(!endp(V126))  
         if(eql(x,V126->c.c_car)){  
         goto T532;  
         }else V126=V126->c.c_cdr;}  
         base[2]= (V125);  
         base[3]= VV[90];  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk244)();  
2266          vs_top=sup;          vs_top=sup;
2267          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2268          goto T539;}          goto T854;}
2269          V127= Ct;          base[1]= (V244);
2270          goto T537;          base[2]= VV[132];
2271  T539:;          vs_top=(vs_base=base+1)+2;
2272          V127= (V125);          (void) (*Lnk323)();
 T537:;  
         V128= list(3,VV[89],V127,(V124));  
         setq(VV[52],make_cons(/* INLINE-ARGS */V128,symbol_value(VV[52])));  
         base[2]= symbol_value(VV[52]);  
         vs_top=(vs_base=base+2)+1;  
         return;  
 T532:;  
         if(!(type_of((V124))==t_cons)){  
         goto T544;}  
         if(!(type_of((V125))==t_cons)){  
         goto T547;}  
         base[2]= car((V124));  
         base[3]= car((V125));  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk92)();  
2273          vs_top=sup;          vs_top=sup;
2274          V124= cdr((V124));          if((vs_base[0])!=Cnil){
2275          V125= cdr((V125));          goto T860;}
2276          goto TTL;          base[1]= (V244);
2277  T547:;          base[2]= VV[133];
2278          base[2]= car((V124));          vs_top=(vs_base=base+1)+2;
2279          base[3]= (V125);          (void) (*Lnk323)();
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk92)();  
2280          vs_top=sup;          vs_top=sup;
2281          V124= cdr((V124));          if((vs_base[0])==Cnil){
2282          goto TTL;          goto T861;}
2283  T544:;  T860:;
2284          base[2]= VV[2];          base[1]= small_fixnum(0);
2285          base[3]= VV[91];          base[2]= (V244);
2286          base[4]= list(3,VV[92],(V124),(V125));          vs_top=(vs_base=base+1)+2;
2287          vs_top=(vs_base=base+2)+3;          (void) (*Lnk352)();
         Lerror();  
2288          return;          return;
2289          }  T861:;
2290  }          base[1]= small_fixnum(0);
2291  /*      function definition for LOOP-CONSTANTP  */          vs_top=(vs_base=base+1)+1;
2292            return;
2293  static L31()  T854:;
2294  {register object *base=vs_base;          base[1]= Cnil;
         register object *sup=base+VM31; VC31  
         vs_reserve(VM31);  
         {object V129;  
         check_arg(1);  
         V129=(base[0]);  
         vs_top=sup;  
 TTL:;  
         base[1]= (V129);  
2295          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
         Lconstantp();  
2296          return;          return;
2297          }          }
2298  }  }
2299  /*      function definition for LOOP-MAYBE-BIND-FORM    */  /*      function definition for LOOP-OPTIONAL-TYPE      */
2300    
2301  static L32()  static L57()
2302  {register object *base=vs_base;  {register object *base=vs_base;
2303          register object *sup=base+VM32; VC32          register object *sup=base+VM49; VC49
2304          vs_reserve(VM32);          vs_check;
2305          {object V130;          if(vs_base>=vs_top){vs_top=sup;goto T871;}
         object V131;  
         check_arg(2);  
         V130=(base[0]);  
         V131=(base[1]);  
2306          vs_top=sup;          vs_top=sup;
2307  TTL:;          goto T872;
2308          base[2]= (V130);  T871:;
2309          vs_top=(vs_base=base+2)+1;          base[0]= Cnil;
2310          (void) (*Lnk245)();  T872:;
2311            if((VV[89]->s.s_dbind)==Cnil){
2312            base[1]= Cnil;
2313            vs_top=(vs_base=base+1)+1;
2314            return;}
2315            base[1]= CMPcar((VV[89]->s.s_dbind));
2316            base[2]= base[1];
2317            base[3]= VV[134];
2318            vs_top=(vs_base=base+2)+2;
2319            (void) (*Lnk353)();
2320          vs_top=sup;          vs_top=sup;
2321          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2322          goto T566;}          goto T876;}
2323          base[2]= (V130);          vs_base=vs_top;
2324            (void) (*Lnk346)();
2325            vs_top=sup;
2326            vs_base=vs_top;
2327            (void) (*Lnk346)();
2328            return;
2329    T876:;
2330            if(!(type_of(base[1])==t_symbol)){
2331            goto T882;}
2332            {object V245;{object V246;
2333            base[2]= base[1];
2334            base[3]= STREF(object,(VV[96]->s.s_dbind),16);
2335            vs_top=(vs_base=base+2)+2;
2336            Lgethash();
2337            vs_top=sup;
2338            V246= vs_base[0];
2339            if(V246==Cnil)goto T885;
2340            V245= V246;
2341            goto T884;
2342    T885:;}
2343            base[2]= symbol_name(base[1]);
2344            base[3]= STREF(object,(VV[96]->s.s_dbind),20);
2345            vs_top=(vs_base=base+2)+2;
2346            Lgethash();
2347            vs_top=sup;
2348            V245= vs_base[0];
2349    T884:;
2350            if(((V245))==Cnil){
2351            goto T892;}
2352            vs_base=vs_top;
2353            (void) (*Lnk346)();
2354            vs_top=sup;
2355            base[2]= (V245);
2356          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2357          return;          return;
2358  T566:;  T892:;
2359          base[3]= VV[93];          base[2]= Cnil;
2360          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+2)+1;
2361          Lgentemp();          return;}
2362    T882:;
2363            if(!(type_of(base[0])==t_cons)){
2364            goto T897;}
2365            if(type_of(base[1])==t_cons){
2366            goto T895;}
2367            base[2]= VV[135];
2368            base[3]= base[1];
2369            vs_top=(vs_base=base+2)+2;
2370            (void) (*Lnk343)();
2371          vs_top=sup;          vs_top=sup;
2372          base[2]= vs_base[0];          goto T895;
2373          base[3]= (V130);  T897:;
2374          base[4]= (V131);          base[2]= VV[136];
2375          vs_top=(vs_base=base+2)+3;          base[3]= base[1];
2376          (void) (*Lnk236)();          vs_top=(vs_base=base+2)+2;
2377            (void) (*Lnk343)();
2378            vs_top=sup;
2379    T895:;
2380            vs_base=vs_top;
2381            (void) (*Lnk346)();
2382            vs_top=sup;
2383            base[2]= base[1];
2384            base[3]= base[0];
2385            vs_top=(vs_base=base+2)+2;
2386            L58(base);
2387          return;          return;
         }  
2388  }  }
2389  /*      function definition for LOOP-OPTIONAL-TYPE      */  /*      function definition for LOOP-BIND-BLOCK */
2390    
2391  static L33()  static L60()
2392  {register object *base=vs_base;  {register object *base=vs_base;
2393          register object *sup=base+VM33; VC33          register object *sup=base+VM50; VC50
2394          vs_reserve(VM33);          vs_check;
         check_arg(0);  
2395          vs_top=sup;          vs_top=sup;
2396  TTL:;  TTL:;
2397          {register object V132;          if(((VV[99]->s.s_dbind))!=Cnil){
2398          V132= car(symbol_value(VV[46]));          goto T908;}
2399          if(((((V132))==Cnil?Ct:Cnil))==Cnil){          if(((VV[102]->s.s_dbind))!=Cnil){
2400          goto T574;}          goto T908;}
2401            if(((VV[106]->s.s_dbind))==Cnil){
2402            goto T909;}
2403    T908:;
2404            V247= nreverse((VV[99]->s.s_dbind));
2405            V248= list(4,/* INLINE-ARGS */V247,(VV[102]->s.s_dbind),(VV[103]->s.s_dbind),(VV[106]->s.s_dbind));
2406            (VV[104]->s.s_dbind)= make_cons(/* INLINE-ARGS */V248,(VV[104]->s.s_dbind));
2407            (VV[99]->s.s_dbind)= Cnil;
2408            (VV[102]->s.s_dbind)= Cnil;
2409            (VV[103]->s.s_dbind)= Cnil;
2410            (VV[106]->s.s_dbind)= Cnil;
2411          base[0]= Cnil;          base[0]= Cnil;
2412          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2413          return;          return;
2414  T574:;  T909:;
         if(!(((type_of((V132))!=t_cons?Ct:Cnil))==Cnil)){  
         goto T578;}  
         goto T576;  
 T578:;{object V133;  
         base[0]= (V132);  
         base[1]= VV[94];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk240)();  
         vs_top=sup;  
         V133= vs_base[0];  
         if(V133==Cnil)goto T580;  
         if((V133)!=Cnil){  
         goto T576;}  
         goto T577;  
 T580:;}  
         base[0]= (V132);  
         base[1]= symbol_value(VV[80]);  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk240)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T576;}  
 T577:;  
2415          base[0]= Cnil;          base[0]= Cnil;
2416          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2417          return;          return;
 T576:;  
         {object V134;  
         V134= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));  
         base[0]= (V134);  
         vs_top=(vs_base=base+0)+1;  
         return;}}  
2418  }  }
2419  /*      function definition for LOOP-MAKE-CONDITIONALIZATION    */  /*      function definition for LOOP-MAKE-VARIABLE      */
2420    
2421  static L34()  static L61()
2422  {register object *base=vs_base;  {register object *base=vs_base;
2423          register object *sup=base+VM34; VC34          register object *sup=base+VM51; VC51
2424          vs_reserve(VM34);          vs_check;
2425          {object V135;          {register object V249;
2426          check_arg(1);          register object V250;
2427          V135=(base[0]);          register object V251;
2428          vs_top=sup;          object V252;
2429  TTL:;          V249=(base[0]);
2430          if((symbol_value(VV[62]))==Cnil){          V250=(base[1]);
2431          goto T590;}          V251=(base[2]);
2432          base[3]= symbol_value(VV[62]);          vs_base=vs_base+3;
2433          vs_top=(vs_base=base+3)+1;          if(vs_base>=vs_top){vs_top=sup;goto T924;}
2434          Llast();          V252=(base[3]);
         vs_top=sup;  
         V138= vs_base[0];  
         base[2]= car(V138);  
         vs_top=(vs_base=base+2)+1;  
         Llast();  
2435          vs_top=sup;          vs_top=sup;
2436          V137= vs_base[0];          goto T925;
2437          base[1]= car(V137);  T924:;
2438          vs_top=(vs_base=base+1)+1;          V252= Cnil;
2439          Llast();  T925:;
2440            if(((V249))!=Cnil){
2441            goto T929;}
2442            if(((V250))==Cnil){
2443            goto T927;}
2444            base[4]= VV[139];
2445            vs_top=(vs_base=base+4)+1;
2446            (void) (*Lnk324)();
2447          vs_top=sup;          vs_top=sup;
2448          V136= vs_base[0];          V249= vs_base[0];
2449          V139= make_cons((V135),Cnil);          V253= list(2,(V249),(V250));
2450          if(type_of(V136)!=t_cons)FEwrong_type_argument(Scons,V136);          (VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V253,(VV[99]->s.s_dbind));
2451          (V136)->c.c_cdr = /* INLINE-ARGS */V139;          V254= list(2,VV[140],(V249));
2452          base[1]= car(symbol_value(VV[46]));          (VV[102]->s.s_dbind)= make_cons(/* INLINE-ARGS */V254,(VV[102]->s.s_dbind));
2453          base[2]= VV[95];          goto T927;
2454          vs_top=(vs_base=base+1)+2;  T929:;
2455          (void) (*Lnk244)();          if(!(type_of((V249))!=t_cons)){
2456            goto T939;}
2457            if(((V252))==Cnil){
2458            goto T943;}
2459            {register object x= (V249),V255= (VV[98]->s.s_dbind);
2460            while(V255!=Cnil)
2461            if(eql(x,V255->c.c_car)){
2462            goto T947;
2463            }else V255=V255->c.c_cdr;
2464            goto T946;}
2465    T947:;
2466            base[4]= VV[141];
2467            base[5]= (V249);
2468            vs_top=(vs_base=base+4)+2;
2469            (void) (*Lnk343)();
2470          vs_top=sup;          vs_top=sup;
2471          if((vs_base[0])==Cnil){          goto T941;
2472          goto T600;}  T946:;
2473          {object V140;          (VV[98]->s.s_dbind)= make_cons((V249),(VV[98]->s.s_dbind));
2474          V140= car(symbol_value(VV[46]));          goto T941;
2475          setq(VV[46],cdr(symbol_value(VV[46])));}  T943:;
2476          base[1]= Cnil;          {register object x= (V249),V256= (VV[99]->s.s_dbind);
2477          vs_top=(vs_base=base+1)+1;          while(V256!=Cnil)
2478          return;          if(eql(x,V256->c.c_car->c.c_car) &&V256->c.c_car != Cnil){
2479  T600:;          goto T952;
2480          base[1]= car(symbol_value(VV[46]));          }else V256=V256->c.c_cdr;
2481          base[2]= VV[96];          goto T941;}
2482          vs_top=(vs_base=base+1)+2;  T952:;
2483          (void) (*Lnk244)();          base[4]= VV[142];
2484            base[5]= (V249);
2485            vs_top=(vs_base=base+4)+2;
2486            (void) (*Lnk343)();
2487          vs_top=sup;          vs_top=sup;
2488          if((vs_base[0])==Cnil){  T941:;
2489          goto T609;}          if(type_of((V249))==t_symbol){
2490          {object V141;          goto T955;}
2491          V141= car(symbol_value(VV[46]));          base[4]= VV[143];
2492          setq(VV[46],cdr(symbol_value(VV[46])));}          base[5]= (V249);
2493          {object V142;          vs_top=(vs_base=base+4)+2;
2494          base[1]= symbol_value(VV[62]);          (void) (*Lnk343)();
         vs_top=(vs_base=base+1)+1;  
         Llast();  
2495          vs_top=sup;          vs_top=sup;
2496          V143= vs_base[0];  T955:;
2497          V142= car(V143);          base[4]= (V249);
2498          {object V144;          base[5]= (V251);
2499          V144= ((cddr((V142)))==Cnil?Ct:Cnil);          vs_top=(vs_base=base+4)+2;
2500          if(((V144))==Cnil){          (void) (*Lnk354)();
         goto T623;}  
         goto T617;  
 T623:;  
         if((cdr(symbol_value(VV[62])))!=Cnil){  
         goto T626;}  
         base[1]= VV[2];  
         base[2]= VV[97];  
         base[3]= list(3,VV[96],car(symbol_value(VV[46])),cadr(symbol_value(VV[46])));  
         vs_top=(vs_base=base+1)+3;  
         Lerror();  
2501          vs_top=sup;          vs_top=sup;
2502          goto T617;          if((V250)!=Cnil){
2503  T626:;          V257= (V250);
2504          V145= nreverse(symbol_value(VV[62]));          goto T964;}
2505          setq(VV[62],cdr(/* INLINE-ARGS */V145));          base[4]= (V251);
2506          base[2]= car(symbol_value(VV[62]));          vs_top=(vs_base=base+4)+1;
2507          vs_top=(vs_base=base+2)+1;          (void) (*Lnk326)();
         Llast();  
2508          vs_top=sup;          vs_top=sup;
2509          V147= vs_base[0];          V257= vs_base[0];
2510          base[1]= car(V147);  T964:;
2511          vs_top=(vs_base=base+1)+1;          V258= list(2,(V249),V257);
2512          Llast();          (VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V258,(VV[99]->s.s_dbind));
2513            goto T927;
2514    T939:;
2515            if(((V250))==Cnil){
2516            goto T967;}
2517            if(((VV[63]->s.s_dbind))==Cnil){
2518            goto T970;}
2519            base[4]= (V249);
2520            base[5]= (V251);
2521            vs_top=(vs_base=base+4)+2;
2522            (void) (*Lnk354)();
2523          vs_top=sup;          vs_top=sup;
2524          V146= vs_base[0];          V259= list(2,(V249),(V250));
2525          V148= make_cons((V142),Cnil);          (VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V259,(VV[99]->s.s_dbind));
2526          if(type_of(V146)!=t_cons)FEwrong_type_argument(Scons,V146);          goto T927;
2527          (V146)->c.c_cdr = /* INLINE-ARGS */V148;  T970:;
2528          setq(VV[62],nreverse(symbol_value(VV[62])));}}          {object V260;
2529  T617:;          base[4]= VV[144];
2530          base[2]= symbol_value(VV[62]);          vs_top=(vs_base=base+4)+1;
2531          vs_top=(vs_base=base+2)+1;          (void) (*Lnk324)();
         Llast();  
2532          vs_top=sup;          vs_top=sup;
2533          V150= vs_base[0];          V260= vs_base[0];
2534          base[1]= car(V150);          V261= list(2,(V260),(V250));
2535          vs_top=(vs_base=base+1)+1;          (VV[99]->s.s_dbind)= make_cons(/* INLINE-ARGS */V261,(VV[99]->s.s_dbind));
2536          Llast();          (VV[103]->s.s_dbind)= listA(3,(V249),(V260),(VV[103]->s.s_dbind));
2537            goto T927;}
2538    T967:;
2539            {object V262;
2540            object V263;
2541            V262= Cnil;
2542            V263= Cnil;
2543            if(!(type_of((V251))!=t_cons)){
2544            goto T983;}
2545            V263= (V251);
2546            V262= (V263);
2547            goto T981;
2548    T983:;
2549            V262= CMPcar((V251));
2550            V263= CMPcdr((V251));
2551    T981:;
2552            base[4]= CMPcar((V249));
2553            base[5]= Cnil;
2554            base[6]= (V262);
2555            base[7]= (V252);
2556            vs_top=(vs_base=base+4)+4;
2557            (void) (*Lnk355)();
2558          vs_top=sup;          vs_top=sup;
2559          V149= vs_base[0];          base[4]= CMPcdr((V249));
2560          V151= make_cons(Ct,Cnil);          base[5]= Cnil;
2561          V152= make_cons(/* INLINE-ARGS */V151,Cnil);          base[6]= (V263);
2562          if(type_of(V149)!=t_cons)FEwrong_type_argument(Scons,V149);          base[7]= (V252);
2563          (V149)->c.c_cdr = /* INLINE-ARGS */V152;          vs_top=(vs_base=base+4)+4;
2564          base[1]= Cnil;          (void) (*Lnk355)();
2565          vs_top=(vs_base=base+1)+1;          vs_top=sup;}
2566    T927:;
2567            base[4]= (V249);
2568            vs_top=(vs_base=base+4)+1;
2569          return;          return;
2570  T609:;          }
2571          {register object V153;  }
2572          register object V154;  /*      function definition for LOOP-MAKE-ITERATION-VARIABLE    */
2573          V153= car(symbol_value(VV[62]));  
2574          V154= cdr(symbol_value(VV[62]));  static L62()
2575  T648:;  {register object *base=vs_base;
2576          if(((V154))!=Cnil){          register object *sup=base+VM52; VC52
2577          goto T649;}          vs_check;
2578          goto T644;          {object V264;
2579  T649:;          object V265;
2580          base[2]= (V153);          object V266;
2581          vs_top=(vs_base=base+2)+1;          V264=(base[0]);
2582          Llast();          V265=(base[1]);
2583          vs_top=sup;          V266=(base[2]);
         V156= vs_base[0];  
         base[1]= car(V156);  
         vs_top=(vs_base=base+1)+1;  
         Llast();  
2584          vs_top=sup;          vs_top=sup;
2585          V155= vs_base[0];  TTL:;
2586          V157= make_cons(car((V154)),Cnil);          base[3]= (V264);
2587          if(type_of(V155)!=t_cons)FEwrong_type_argument(Scons,V155);          base[4]= (V265);
2588          (V155)->c.c_cdr = /* INLINE-ARGS */V157;          base[5]= (V266);
2589          V153= car((V154));          base[6]= Ct;
2590          V154= cdr((V154));          vs_top=(vs_base=base+3)+4;
2591          goto T648;}          (void) (*Lnk355)();
 T644:;  
         {object V158;  
         V158= car(symbol_value(VV[62]));  
         setq(VV[62],Cnil);  
         base[1]= (V158);  
         vs_top=(vs_base=base+1)+1;  
         return;}  
 T590:;  
         base[1]= (V135);  
         vs_top=(vs_base=base+1)+1;  
2592          return;          return;
2593          }          }
2594  }  }
2595  /*      function definition for LOOP-PSEUDO-BODY        */  /*      function definition for LOOP-DECLARE-VARIABLE   */
2596    
2597  static L35()  static L63()
2598  {register object *base=vs_base;  {register object *base=vs_base;
2599          register object *sup=base+VM35; VC35          register object *sup=base+VM53; VC53
2600          vs_reserve(VM35);          vs_check;
2601          {object V159;          {register object V267;
2602          check_arg(1);          register object V268;
2603          V159=(base[0]);          V267=(base[0]);
2604            V268=(base[1]);
2605          vs_top=sup;          vs_top=sup;
2606  TTL:;  TTL:;
2607          {register object V160;          if(((V267))==Cnil){
2608          base[2]= (V159);          goto T1003;}
2609          vs_top=(vs_base=base+2)+1;          if(((V268))==Cnil){
2610          (void) (*Lnk246)();          goto T1003;}
2611          vs_top=sup;          if(!(((V268))==(Ct))){
2612          V160= vs_base[0];          goto T1004;}
2613          if(((V160))==Cnil){  T1003:;
2614          goto T668;}          base[2]= Cnil;
         if((symbol_value(VV[59]))==Cnil){  
         goto T671;}  
         setq(VV[39],make_cons((V160),symbol_value(VV[39])));  
         base[2]= symbol_value(VV[39]);  
2615          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2616          return;          return;
2617  T671:;  T1004:;
2618          setq(VV[37],make_cons((V160),symbol_value(VV[37])));          if(!(type_of((V267))==t_symbol)){
2619          setq(VV[38],make_cons((V160),symbol_value(VV[38])));          goto T1011;}
2620          base[2]= symbol_value(VV[38]);          if(((V268))==(Ct)){
2621            goto T1014;}
2622            {register object x= (V267),V269= (VV[100]->s.s_dbind);
2623            while(V269!=Cnil)
2624            if(eql(x,V269->c.c_car)){
2625            goto T1014;
2626            }else V269=V269->c.c_cdr;}
2627            V271= list(3,VV[31],V268,(V267));
2628            (VV[102]->s.s_dbind)= make_cons(/* INLINE-ARGS */V271,(VV[102]->s.s_dbind));
2629            base[2]= (VV[102]->s.s_dbind);
2630          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2631          return;          return;
2632  T668:;  T1014:;
2633          base[2]= Cnil;          base[2]= Cnil;
2634          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2635          return;}          return;
2636    T1011:;
2637            if(!(type_of((V267))==t_cons)){
2638            goto T1020;}
2639            if(!(type_of((V268))==t_cons)){
2640            goto T1023;}
2641            base[2]= CMPcar((V267));
2642            base[3]= CMPcar((V268));
2643            vs_top=(vs_base=base+2)+2;
2644            (void) (*Lnk354)();
2645            vs_top=sup;
2646            V267= CMPcdr((V267));
2647            V268= CMPcdr((V268));
2648            goto TTL;
2649    T1023:;
2650            base[2]= CMPcar((V267));
2651            base[3]= (V268);
2652            vs_top=(vs_base=base+2)+2;
2653            (void) (*Lnk354)();
2654            vs_top=sup;
2655            V267= CMPcdr((V267));
2656            goto TTL;
2657    T1020:;
2658            base[2]= VV[145];
2659            base[3]= (V267);
2660            vs_top=(vs_base=base+2)+2;
2661            Lerror();
2662            return;
2663          }          }
2664  }  }
2665  /*      function definition for LOOP-EMIT-BODY  */  /*      function definition for LOOP-MAYBE-BIND-FORM    */
2666    
2667  static L36()  static L64()
2668  {register object *base=vs_base;  {register object *base=vs_base;
2669          register object *sup=base+VM36; VC36          register object *sup=base+VM54; VC54
2670          vs_reserve(VM36);          vs_check;
2671          {object V161;          {object V272;
2672          check_arg(1);          object V273;
2673          V161=(base[0]);          V272=(base[0]);
2674            V273=(base[1]);
2675          vs_top=sup;          vs_top=sup;
2676  TTL:;  TTL:;
2677          setq(VV[59],Ct);          base[2]= (V272);
2678          base[1]= (V161);          vs_top=(vs_base=base+2)+1;
2679          vs_top=(vs_base=base+1)+1;          (void) (*Lnk356)();
2680          (void) (*Lnk247)();          vs_top=sup;
2681            if((vs_base[0])==Cnil){
2682            goto T1040;}
2683            base[2]= (V272);
2684            vs_top=(vs_base=base+2)+1;
2685            return;
2686    T1040:;
2687            base[3]= VV[146];
2688            vs_top=(vs_base=base+3)+1;
2689            (void) (*Lnk324)();
2690            vs_top=sup;
2691            base[2]= vs_base[0];
2692            base[3]= (V272);
2693            base[4]= (V273);
2694            vs_top=(vs_base=base+2)+3;
2695            (void) (*Lnk355)();
2696          return;          return;
2697          }          }
2698  }  }
2699  /*      function definition for LOOP-DO-NAMED   */  /*      function definition for LOOP-DO-IF      */
2700    
2701  static L37()  static L65()
2702  {register object *base=vs_base;  {register object *base=vs_base;
2703          register object *sup=base+VM37; VC37          register object *sup=base+VM55; VC55
2704          vs_reserve(VM37);          vs_check;
2705          check_arg(0);          bds_check;
2706            {object V274;
2707            object V275;
2708            V274=(base[0]);
2709            V275=(base[1]);
2710          vs_top=sup;          vs_top=sup;
2711  TTL:;  TTL:;
2712          {register object V162;          {object V276;
2713          {object V163;          vs_base=vs_top;
2714          V163= car(symbol_value(VV[46]));          (void) (*Lnk357)();
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V162= (V163);}  
         if(((V162))==Cnil){  
         goto T685;}  
         if(type_of((V162))==t_symbol){  
         goto T684;}  
 T685:;  
         base[0]= VV[2];  
         base[1]= VV[98];  
         base[2]= (V162);  
         vs_top=(vs_base=base+0)+3;  
         Lerror();  
2715          vs_top=sup;          vs_top=sup;
2716  T684:;          V276= vs_base[0];
2717          if((symbol_value(VV[37]))!=Cnil){          bds_bind(VV[114],Ct);
2718          goto T693;}          base[3]= Cnil;
2719          if((symbol_value(VV[39]))!=Cnil){          {object V277;
2720          goto T693;}          object V278;
2721          if((symbol_value(VV[61]))==Cnil){          base[4]= (V274);
2722          goto T692;}          vs_top=(vs_base=base+4)+1;
2723  T693:;          L66(base);
         base[0]= VV[2];  
         base[1]= VV[99];  
         base[2]= (V162);  
         vs_top=(vs_base=base+0)+3;  
         Lerror();  
2724          vs_top=sup;          vs_top=sup;
2725  T692:;          V277= vs_base[0];
2726          setq(VV[22],make_cons((V162),symbol_value(VV[22])));          base[4]= CMPcar((VV[89]->s.s_dbind));
2727          if((cdr(symbol_value(VV[22])))==Cnil){          base[5]= VV[147];
2728          goto T703;}          vs_top=(vs_base=base+4)+2;
2729          base[0]= VV[2];          (void) (*Lnk353)();
2730          base[1]= VV[100];          vs_top=sup;
2731          base[2]= symbol_value(VV[22]);          if((vs_base[0])==Cnil){
2732          vs_top=(vs_base=base+0)+3;          goto T1052;}
2733          Lerror();          vs_base=vs_top;
2734          return;          (void) (*Lnk346)();
2735  T703:;          vs_top=sup;
2736          base[0]= Cnil;          base[4]= VV[147];
2737          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+4)+1;
2738          return;}          L66(base);
2739            vs_top=sup;
2740            V279= vs_base[0];
2741            V278= make_cons(V279,Cnil);
2742            goto T1050;
2743    T1052:;
2744            V278= Cnil;
2745    T1050:;
2746            base[4]= CMPcar((VV[89]->s.s_dbind));
2747            base[5]= VV[148];
2748            vs_top=(vs_base=base+4)+2;
2749            (void) (*Lnk353)();
2750            vs_top=sup;
2751            if((vs_base[0])==Cnil){
2752            goto T1059;}
2753            vs_base=vs_top;
2754            (void) (*Lnk346)();
2755            vs_top=sup;
2756    T1059:;
2757            if((base[3])==Cnil){
2758            goto T1064;}
2759            V276= list(3,VV[11],base[3],(V276));
2760    T1064:;
2761            if(((V275))==Cnil){
2762            goto T1071;}
2763            V280= list(2,VV[36],(V276));
2764            goto T1069;
2765    T1071:;
2766            V280= (V276);
2767    T1069:;
2768            base[4]= listA(4,VV[71],V280,(V277),(V278));
2769            vs_top=(vs_base=base+4)+1;
2770            (void) (*Lnk350)();
2771            bds_unwind1;
2772            return;}}
2773            }
2774  }  }
2775  /*      function definition for LOOP-DO-INITIALLY       */  /*      function definition for LOOP-DO-INITIALLY       */
2776    
2777  static L38()  static L67()
2778  {register object *base=vs_base;  {register object *base=vs_base;
2779          register object *sup=base+VM38; VC38          register object *sup=base+VM56; VC56
2780          vs_reserve(VM38);          vs_check;
         check_arg(0);  
2781          vs_top=sup;          vs_top=sup;
2782  TTL:;  TTL:;
2783            base[0]= VV[153];
2784            vs_top=(vs_base=base+0)+1;
2785            (void) (*Lnk358)();
2786            vs_top=sup;
2787          vs_base=vs_top;          vs_base=vs_top;
2788          (void) (*Lnk248)();          (void) (*Lnk359)();
2789          vs_top=sup;          vs_top=sup;
2790          V164= vs_base[0];          V281= vs_base[0];
2791          setq(VV[57],make_cons(V164,symbol_value(VV[57])));          (VV[105]->s.s_dbind)= make_cons(V281,(VV[105]->s.s_dbind));
2792          base[0]= symbol_value(VV[57]);          base[0]= (VV[105]->s.s_dbind);
2793          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2794          return;          return;
2795  }  }
2796  /*      function definition for LOOP-NODECLARE  */  /*      function definition for LOOP-DO-FINALLY */
2797    
2798  static L39()  static L68()
2799  {register object *base=vs_base;  {register object *base=vs_base;
2800          register object *sup=base+VM39; VC39          register object *sup=base+VM57; VC57
2801          vs_reserve(VM39);          vs_check;
         check_arg(0);  
2802          vs_top=sup;          vs_top=sup;
2803  TTL:;  TTL:;
2804          {register object V165;          base[0]= VV[154];
2805          {object V166;          vs_top=(vs_base=base+0)+1;
2806          V166= car(symbol_value(VV[46]));          (void) (*Lnk358)();
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V165= (V166);}  
         if(!(((V165))==Cnil)){  
         goto T716;}  
         goto T715;  
 T716:;  
         if(!(type_of((V165))==t_cons)){  
         goto T718;}  
         goto T715;  
 T718:;  
         base[1]= VV[2];  
         base[2]= VV[101];  
         base[3]= (V165);  
         vs_top=(vs_base=base+1)+3;  
         Lerror();  
2807          vs_top=sup;          vs_top=sup;
2808  T715:;          vs_base=vs_top;
2809          setq(VV[50],append((V165),symbol_value(VV[50])));          (void) (*Lnk359)();
2810          base[1]= symbol_value(VV[50]);          vs_top=sup;
2811          vs_top=(vs_base=base+1)+1;          V282= vs_base[0];
2812          return;}          (VV[111]->s.s_dbind)= make_cons(V282,(VV[111]->s.s_dbind));
2813            base[0]= (VV[111]->s.s_dbind);
2814            vs_top=(vs_base=base+0)+1;
2815            return;
2816  }  }
2817  /*      function definition for LOOP-DO-FINALLY */  /*      function definition for LOOP-DO-DO      */
2818    
2819  static L40()  static L69()
2820  {register object *base=vs_base;  {register object *base=vs_base;
2821          register object *sup=base+VM40; VC40          register object *sup=base+VM58; VC58
2822          vs_reserve(VM40);          vs_check;
         check_arg(0);  
2823          vs_top=sup;          vs_top=sup;
2824  TTL:;  TTL:;
2825          vs_base=vs_top;          vs_base=vs_top;
2826          (void) (*Lnk248)();          (void) (*Lnk359)();
2827          vs_top=sup;          vs_top=sup;
2828          V167= vs_base[0];          base[0]= vs_base[0];
         setq(VV[60],make_cons(V167,symbol_value(VV[60])));  
         base[0]= symbol_value(VV[60]);  
2829          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2830            (void) (*Lnk360)();
2831          return;          return;
2832  }  }
2833  /*      function definition for LOOP-DO-DO      */  /*      function definition for LOOP-DO-NAMED   */
2834    
2835  static L41()  static L70()
2836  {register object *base=vs_base;  {register object *base=vs_base;
2837          register object *sup=base+VM41; VC41          register object *sup=base+VM59; VC59
2838          vs_reserve(VM41);          vs_check;
         check_arg(0);  
2839          vs_top=sup;          vs_top=sup;
2840  TTL:;  TTL:;
2841            {register object V283;
2842          vs_base=vs_top;          vs_base=vs_top;
2843          (void) (*Lnk248)();          (void) (*Lnk346)();
2844          vs_top=sup;          vs_top=sup;
2845          base[0]= vs_base[0];          V283= vs_base[0];
2846            if(type_of((V283))==t_symbol){
2847            goto T1083;}
2848            base[0]= VV[155];
2849            base[1]= (V283);
2850            vs_top=(vs_base=base+0)+2;
2851            (void) (*Lnk343)();
2852            vs_top=sup;
2853    T1083:;
2854            if(((VV[107]->s.s_dbind))!=Cnil){
2855            goto T1089;}
2856            if(((VV[108]->s.s_dbind))!=Cnil){
2857            goto T1089;}
2858            if(((VV[112]->s.s_dbind))!=Cnil){
2859            goto T1089;}
2860            if(((VV[114]->s.s_dbind))==Cnil){
2861            goto T1088;}
2862    T1089:;
2863            base[0]= VV[156];
2864            base[1]= (V283);
2865            vs_top=(vs_base=base+0)+2;
2866            (void) (*Lnk343)();
2867            vs_top=sup;
2868    T1088:;
2869            if(((VV[117]->s.s_dbind))==Cnil){
2870            goto T1099;}
2871            base[0]= VV[157];
2872            base[1]= CMPcar((VV[117]->s.s_dbind));
2873            base[2]= (V283);
2874            vs_top=(vs_base=base+0)+3;
2875            (void) (*Lnk343)();
2876            vs_top=sup;
2877    T1099:;
2878            (VV[117]->s.s_dbind)= list(2,(V283),Cnil);
2879            base[0]= (VV[117]->s.s_dbind);
2880          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2881          (void) (*Lnk249)();          return;}
         return;  
2882  }  }
2883  /*      function definition for LOOP-DO-RETURN  */  /*      function definition for LOOP-DO-RETURN  */
2884    
2885  static L42()  static L71()
2886  {register object *base=vs_base;  {register object *base=vs_base;
2887          register object *sup=base+VM42; VC42          register object *sup=base+VM60; VC60
2888          vs_reserve(VM42);          vs_check;
         check_arg(0);  
2889          vs_top=sup;          vs_top=sup;
2890  TTL:;  TTL:;
2891          base[2]= VV[24];          vs_base=vs_top;
2892          vs_top=(vs_base=base+2)+1;          (void) (*Lnk357)();
         (void) (*Lnk250)();  
2893          vs_top=sup;          vs_top=sup;
2894          base[1]= vs_base[0];          base[1]= vs_base[0];
2895          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2896          (void) (*Lnk251)();          (void) (*Lnk351)();
2897          vs_top=sup;          vs_top=sup;
2898          base[0]= vs_base[0];          base[0]= vs_base[0];
2899          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2900          (void) (*Lnk247)();          (void) (*Lnk350)();
2901          return;          return;
2902  }  }
2903  /*      function definition for LOOP-DO-COLLECT */  /*      function definition for MAKE-LOOP-COLLECTOR     */
2904    
2905  static L43()  static L72()
2906  {register object *base=vs_base;  {register object *base=vs_base;
2907          register object *sup=base+VM43; VC43          register object *sup=base+VM61; VC61
2908          vs_reserve(VM43);          vs_check;
2909          {object V168;          {object V284;
2910          check_arg(1);          object V285;
2911          V168=(base[0]);          object V286;
2912            object V287;
2913            object V288;
2914            object V289;
2915            parse_key(vs_base,FALSE,FALSE,6,VV[162],VV[163],VV[164],VV[361],VV[165],VV[362]);
2916            vs_top=sup;
2917            V284=(base[0]);
2918            V285=(base[1]);
2919            V286=(base[2]);
2920            V287=(base[3]);
2921            V288=(base[4]);
2922            V289=(base[5]);
2923            base[12]= VV[158];
2924            base[13]= (V284);
2925            base[14]= (V285);
2926            base[15]= (V286);
2927            base[16]= (V287);
2928            base[17]= (V288);
2929            base[18]= (V289);
2930            vs_top=(vs_base=base+12)+7;
2931            siLmake_structure();
2932            return;
2933            }
2934    }
2935    /*      function definition for LOOP-GET-COLLECTION-INFO        */
2936    
2937    static L73()
2938    {register object *base=vs_base;
2939            register object *sup=base+VM62; VC62
2940            vs_check;
2941            {object V290;
2942            object V291;
2943            object V292;
2944            V290=(base[0]);
2945            V291=(base[1]);
2946            V292=(base[2]);
2947          vs_top=sup;          vs_top=sup;
2948  TTL:;  TTL:;
2949          {register object V169;          {object V293;
2950          register object V170;          register object V294;
2951          register object V171;          register object V295;
2952          object V172;          vs_base=vs_top;
2953          register object V173;          (void) (*Lnk357)();
         register object V174;  
         object V175;  
         object V176;  
         {object V177= (V168);  
         if((V177!= VV[118])  
         && (V177!= VV[252]))goto T731;  
         V176= VV[102];  
         goto T730;  
 T731:;  
         if((V177!= VV[253])  
         && (V177!= VV[103])  
         && (V177!= VV[254]))goto T732;  
         V176= VV[103];  
         goto T730;  
 T732:;  
         if((V177!= VV[255])  
         && (V177!= VV[104]))goto T733;  
         V176= VV[104];  
         goto T730;  
 T733:;  
         base[1]= VV[105];  
         base[2]= (V168);  
         vs_top=(vs_base=base+1)+2;  
         Lerror();  
         vs_top=sup;  
         V176= vs_base[0];}  
 T730:;  
         V169= Cnil;  
         V170= Cnil;  
         V171= Cnil;  
         V172= Cnil;  
         V173= Cnil;  
         V174= Cnil;  
         V175= Cnil;  
         base[1]= (V168);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk250)();  
2954          vs_top=sup;          vs_top=sup;
2955          V170= vs_base[0];          V293= vs_base[0];
2956            if((STREF(object,(VV[96]->s.s_dbind),24))==Cnil){
2957            goto T1117;}
2958            V294= Cnil;
2959            goto T1116;
2960    T1117:;
2961          vs_base=vs_top;          vs_base=vs_top;
2962          (void) (*Lnk256)();          (void) (*Lnk363)();
2963          vs_top=sup;          vs_top=sup;
2964          V173= vs_base[0];          V294= vs_base[0];
2965          base[1]= car(symbol_value(VV[46]));  T1116:;
2966          base[2]= VV[106];          base[3]= CMPcar((VV[89]->s.s_dbind));
2967          vs_top=(vs_base=base+1)+2;          base[4]= VV[159];
2968          (void) (*Lnk244)();          vs_top=(vs_base=base+3)+2;
2969            (void) (*Lnk353)();
2970          vs_top=sup;          vs_top=sup;
2971          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2972          goto T741;}          goto T1121;}
2973          {object V178;          vs_base=vs_top;
2974          V178= car(symbol_value(VV[46]));          (void) (*Lnk346)();
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         {object V179;  
         V179= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V169= (V179);}  
         V175= (V169);  
 T741:;  
         {register object x= (V169),V180= symbol_value(VV[64]);  
         while(!endp(V180))  
         if(type_of(V180->c.c_car)==t_cons &&eql(x,V180->c.c_car->c.c_car)){  
         V174= (V180->c.c_car);  
         goto T759;  
         }else V180=V180->c.c_cdr;  
         V174= Cnil;}  
 T759:;  
         if(((V174))==Cnil){  
         goto T757;}  
         V174= cdr((V174));  
         if(((V176))==(car((V174)))){  
         goto T762;}  
         base[1]= VV[2];  
         base[2]= VV[107];  
         base[3]= list(2,(V176),car((V174)));  
         vs_top=(vs_base=base+1)+3;  
         Lerror();  
         vs_top=sup;  
         goto T760;  
 T762:;  
         if(((V173))==Cnil){  
         goto T760;}  
         if(((V173))==(cadr((V174)))){  
         goto T760;}  
         base[1]= VV[108];  
         base[2]= (V173);  
         base[3]= cadr((V174));  
         base[4]= car((V174));  
         vs_top=(vs_base=base+1)+4;  
         Lerror();  
         vs_top=sup;  
 T760:;  
         V174= cdr((V174));  
         V173= car((V174));  
         V174= cdr((V174));  
         V169= car((V174));  
         V174= cdr((V174));  
         V172= car((V174));  
         V171= cadr((V174));  
         if(((V176))==(VV[102])){  
         goto T787;}  
         goto T755;  
 T787:;  
         if(((type_of((V170))!=t_cons?Ct:Cnil))==Cnil){  
         goto T789;}  
         goto T755;  
 T789:;  
         if(((V171))==Cnil){  
         goto T791;}  
         goto T755;  
 T791:;  
         V181= cdr((V174));  
         base[2]= VV[109];  
         vs_top=(vs_base=base+2)+1;  
         Lgentemp();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         base[2]= Cnil;  
         base[3]= (V173);  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk236)();  
         vs_top=sup;  
         V171= vs_base[0];  
         if(type_of(/* INLINE-ARGS */V181)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V181);  
         (/* INLINE-ARGS */V181)->c.c_car = (V171);  
         goto T755;  
 T757:;  
         if(((V173))!=Cnil){  
         goto T798;}  
         {object V182= (V168);  
         if((V182!= VV[255]))goto T802;  
         V173= VV[110];  
         goto T801;  
 T802:;  
         if((V182!= VV[252])  
         && (V182!= VV[118])  
         && (V182!= VV[104]))goto T803;  
         V173= VV[111];  
         goto T801;  
 T803:;  
         V173= Cnil;}  
 T801:;  
 T798:;  
         if(((V169))!=Cnil){  
         goto T804;}  
         base[2]= VV[112];  
         vs_top=(vs_base=base+2)+1;  
         Lgentemp();  
         vs_top=sup;  
         V169= vs_base[0];  
         base[1]= (V169);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk251)();  
         vs_top=sup;  
         V183= vs_base[0];  
         setq(VV[61],make_cons(V183,symbol_value(VV[61])));  
 T804:;  
         base[1]= (V169);  
         base[2]= Cnil;  
         base[3]= (V173);  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk257)();  
         vs_top=sup;  
         if(!(((V176))==(VV[102]))){  
         goto T818;}  
         if(type_of((V170))!=t_cons){  
         goto T820;}  
         base[2]= VV[112];  
         vs_top=(vs_base=base+2)+1;  
         Lgentemp();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         base[2]= Cnil;  
         base[3]= (V173);  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk236)();  
         vs_top=sup;  
         V171= vs_base[0];  
 T820:;  
         base[2]= VV[113];  
         vs_top=(vs_base=base+2)+1;  
         Lgentemp();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         base[2]= Ct;  
         base[3]= Cnil;  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk236)();  
         vs_top=sup;  
         V172= vs_base[0];  
         goto T816;  
 T818:;  
         if(!(((V176))==(VV[103]))){  
         goto T816;}  
         base[2]= VV[112];  
         vs_top=(vs_base=base+2)+1;  
         Lgentemp();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         base[2]= Cnil;  
         base[3]= Cnil;  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk236)();  
         vs_top=sup;  
         V172= vs_base[0];  
         base[2]= VV[112];  
         vs_top=(vs_base=base+2)+1;  
         Lgentemp();  
         vs_top=sup;  
         base[1]= vs_base[0];  
         base[2]= Cnil;  
         base[3]= Cnil;  
         vs_top=(vs_base=base+1)+3;  
         (void) (*Lnk236)();  
         vs_top=sup;  
         V171= vs_base[0];  
 T816:;  
         V184= list(6,(V175),(V176),(V173),(V169),(V172),(V171));  
         setq(VV[64],make_cons(/* INLINE-ARGS */V184,symbol_value(VV[64])));  
 T755:;  
         {object V185= (V168);  
         if((V185!= VV[255]))goto T848;  
         base[2]= VV[114];  
         base[3]= (V173);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk258)();  
2975          vs_top=sup;          vs_top=sup;
2976          V186= vs_base[0];          vs_base=vs_top;
2977          V171= list(3,VV[15],(V169),list(2,V186,(V169)));          (void) (*Lnk346)();
         if(((V170))==(Ct)){  
         goto T854;}  
         if(!(equal((V170),VV[115]))){  
         goto T855;}  
 T854:;  
         base[1]= (V171);  
         goto T847;  
 T855:;  
         base[1]= list(3,VV[34],(V170),(V171));  
         goto T847;  
 T848:;  
         if((V185!= VV[104]))goto T859;  
         base[2]= VV[116];  
         base[3]= (V173);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk258)();  
2978          vs_top=sup;          vs_top=sup;
2979          V187= vs_base[0];          V295= vs_base[0];
2980          base[1]= list(3,VV[15],(V169),list(3,V187,(V170),(V169)));          goto T1119;
2981          goto T847;  T1121:;
2982  T859:;          V295= Cnil;
2983          if((V185!= VV[118])  T1119:;
2984          && (V185!= VV[252]))goto T863;          if(type_of((V295))==t_symbol){
2985          {object V188;          goto T1126;}
2986          object V189;          base[3]= VV[160];
2987          V188= Cnil;          base[4]= (V295);
2988          V189= Cnil;          vs_top=(vs_base=base+3)+2;
2989          if((V171)==Cnil){          (void) (*Lnk343)();
         goto T864;}  
         V190= list(3,VV[15],(V171),(V170));  
         V188= make_cons(/* INLINE-ARGS */V190,Cnil);  
         V170= (V171);  
 T864:;  
         V189= list(2,(V169),(V170));  
         base[2]= (V173);  
         base[3]= VV[117];  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk240)();  
2990          vs_top=sup;          vs_top=sup;
2991          if((vs_base[0])==Cnil){  T1126:;
2992          goto T874;}          if(((V294))!=Cnil){
2993          if(!(((V168))==(VV[118]))){          goto T1131;}{object V296;
2994          goto T881;}          vs_base=vs_top;
2995          base[2]= VV[119];          (void) (*Lnk363)();
         goto T879;  
 T881:;  
         base[2]= VV[120];  
 T879:;  
         base[3]= (V173);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk258)();  
2996          vs_top=sup;          vs_top=sup;
2997          V192= vs_base[0];          V296= vs_base[0];
2998          V193= list(3,VV[35],(V172),make_cons(V192,(V189)));          if(V296==Cnil)goto T1135;
2999          V191= list(3,VV[34],/* INLINE-ARGS */V193,listA(4,VV[15],(V172),Cnil,(V189)));          V294= V296;
3000          goto T872;          goto T1134;
3001  T874:;  T1135:;}
3002          V194= list(3,(V172),list(3,VV[15],(V172),Cnil),(V170));          V294= (V292);
3003          V191= list(3,VV[15],(V169),list(3,VV[45],/* INLINE-ARGS */V194,list(2,Ct,make_cons((V168),(V189)))));  T1134:;
3004  T872:;  T1131:;
3005          V188= make_cons(V191,(V188));          {register object V297;
3006          if((cdr((V188)))==Cnil){          base[3]= (V295);
3007          goto T885;}          base[4]= (VV[118]->s.s_dbind);
3008          V195= nreverse((V188));          base[5]= VV[161];
3009          base[1]= make_cons(VV[44],/* INLINE-ARGS */V195);          base[6]= (VV[364]->s.s_gfdef);
3010          goto T847;          vs_top=(vs_base=base+3)+4;
3011  T885:;          (void) (*Lnk365)();
         base[1]= car((V188));  
         goto T847;}  
 T863:;  
         {object V196= (V168);  
         if((V196!= VV[103]))goto T888;  
         V170= list(2,VV[103],(V170));  
         goto T887;  
 T888:;  
         if((V196!= VV[254]))goto T890;{object V197;  
         if(((type_of((V170))!=t_cons?Ct:Cnil))==Cnil){  
         goto T893;}  
         V197= Cnil;  
         goto T892;  
 T893:;  
         V197= ((car((V170)))==(VV[103])?Ct:Cnil);  
 T892:;  
         if(V197==Cnil)goto T891;  
         goto T887;  
 T891:;}  
         V170= list(2,VV[0],(V170));  
         goto T887;  
 T890:;}  
 T887:;  
         {object V198;  
         V199= list(2,VV[21],list(3,VV[122],(V172),(V171)));  
         V198= list(4,VV[121],(V172),/* INLINE-ARGS */V199,list(3,VV[15],(V169),(V171)));  
         if(type_of((V170))!=t_cons){  
         goto T898;}  
         if(!((car((V170)))==(VV[103]))){  
         goto T898;}  
         if((cdr((V170)))==Cnil){  
         goto T898;}  
         base[2]= cddr((V170));  
         base[3]= (V198);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk259)();  
3012          vs_top=sup;          vs_top=sup;
3013          V200= vs_base[0];          V297= vs_base[0];
3014          base[1]= list(5,VV[15],(V171),(V170),(V172),V200);          if(((V297))!=Cnil){
3015          goto T847;          goto T1144;}
3016  T898:;          base[3]= VV[162];
3017          V201= list(3,VV[15],(V171),(V170));          base[4]= (V295);
3018          base[1]= list(3,VV[34],/* INLINE-ARGS */V201,list(3,VV[15],(V172),list(2,VV[123],(V198))));}}          base[5]= VV[163];
3019  T847:;          base[6]= (V291);
3020          vs_top=(vs_base=base+1)+1;          base[7]= VV[164];
3021          (void) (*Lnk249)();          base[8]= make_cons((V290),Cnil);
3022          return;}          base[9]= VV[165];
3023            base[10]= (V294);
3024            vs_top=(vs_base=base+3)+8;
3025            (void) (*Lnk366)();
3026            vs_top=sup;
3027            V297= vs_base[0];
3028            (VV[118]->s.s_dbind)= make_cons((V297),(VV[118]->s.s_dbind));
3029            goto T1142;
3030    T1144:;
3031            if((STREF(object,(V297),4))==((V291))){
3032            goto T1156;}
3033            base[3]= VV[166];
3034            base[4]= (V295);
3035            base[5]= CMPcar(STREF(object,(V297),8));
3036            base[6]= (V290);
3037            vs_top=(vs_base=base+3)+4;
3038            (void) (*Lnk343)();
3039            vs_top=sup;
3040    T1156:;
3041            if(equal((V294),STREF(object,(V297),16))){
3042            goto T1163;}
3043            base[3]= VV[167];
3044            base[4]= (V295);
3045            base[5]= (V294);
3046            base[6]= STREF(object,(V297),16);
3047            vs_top=(vs_base=base+3)+4;
3048            (void) (*Lnk335)();
3049            vs_top=sup;
3050            if(!((STREF(object,(V297),16))==(Ct))){
3051            goto T1163;}
3052            V298= Ct;
3053            STSET(object,(V297),16, (V294));
3054            (void)((V294));
3055    T1163:;
3056            {object V300;
3057            V300= make_cons((V290),STREF(object,V297,8));
3058            V301= Ct;
3059            STSET(object,V297,8, (V300));
3060            (void)((V300));}
3061    T1142:;
3062            base[3]= (V297);
3063            base[4]= (V293);
3064            vs_top=(vs_base=base+3)+2;
3065            return;}}
3066          }          }
3067  }  }
3068  /*      function definition for LOOP-CDRIFY     */  /*      function definition for LOOP-LIST-COLLECTION    */
3069    
3070  static L44()  static L74()
3071  {register object *base=vs_base;  {register object *base=vs_base;
3072          register object *sup=base+VM44; VC44          register object *sup=base+VM63; VC63
3073          vs_reserve(VM44);          vs_check;
3074          {object V202;          {object V302;
3075          register object V203;          V302=(base[0]);
         check_arg(2);  
         V202=(base[0]);  
         V203=(base[1]);  
3076          vs_top=sup;          vs_top=sup;
3077  TTL:;  TTL:;
3078          {register int V204;          {register object V303;
3079          V204= length((V202));          register object V304;
3080  T909:;          base[1]= (V302);
3081          if(!((V204)<(4))){          base[2]= VV[5];
3082          goto T910;}          base[3]= VV[5];
3083          if(!((V204)==0)){          vs_top=(vs_base=base+1)+3;
3084          goto T914;}          (void) (*Lnk367)();
3085          base[2]= (V203);          if(vs_base>=vs_top){vs_top=sup;goto T1180;}
3086          vs_top=(vs_base=base+2)+1;          V303= vs_base[0];
3087          return;          vs_base++;
3088  T914:;          if(vs_base>=vs_top){vs_top=sup;goto T1181;}
3089          if(!((V204)==(1))){          V304= vs_base[0];
3090          goto T918;}          vs_top=sup;
3091          V205= VV[21];          goto T1182;
3092          goto T916;  T1180:;
3093  T918:;          V303= Cnil;
3094          if(!((V204)==(2))){  T1181:;
3095          goto T921;}          V304= Cnil;
3096          V205= VV[124];  T1182:;
3097          goto T916;          {register object V305;
3098  T921:;          V305= STREF(object,(V303),12);
3099          V205= VV[125];          if(((V305))!=Cnil){
3100  T916:;          goto T1184;}
3101          base[2]= list(2,V205,(V203));          base[1]= VV[168];
3102          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+1)+1;
3103          return;          (void) (*Lnk324)();
3104  T910:;          vs_top=sup;
3105          V203= list(2,VV[126],(V203));          V306= vs_base[0];
3106          V204= (V204)-(4);          base[1]= VV[169];
3107          goto T909;}          vs_top=(vs_base=base+1)+1;
3108            (void) (*Lnk324)();
3109            vs_top=sup;
3110            V307= vs_base[0];
3111            if((STREF(object,(V303),0))!=Cnil){
3112            goto T1194;}
3113            V308= Cnil;
3114            goto T1193;
3115    T1194:;
3116            V308= make_cons(STREF(object,(V303),0),Cnil);
3117    T1193:;
3118            V305= listA(3,V306,V307,V308);
3119            V309= Ct;
3120            STSET(object,(V303),12, (V305));
3121            (void)((V305));
3122            V310= list(2,VV[170],(V305));
3123            (VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V310,(VV[106]->s.s_dbind));
3124            if((STREF(object,(V303),0))!=Cnil){
3125            goto T1184;}
3126            base[1]= listA(3,VV[171],CMPcar((V305)),CMPcddr((V305)));
3127            vs_top=(vs_base=base+1)+1;
3128            (void) (*Lnk368)();
3129            vs_top=sup;
3130    T1184:;
3131            {object V311= (V302);
3132            if((V311!= VV[5]))goto T1202;
3133            V304= list(2,VV[5],(V304));
3134            goto T1201;
3135    T1202:;
3136            if((V311!= VV[369]))goto T1204;
3137            goto T1201;
3138    T1204:;
3139            if((V311!= VV[370]))goto T1205;
3140            if(!(type_of((V304))==t_cons)){
3141            goto T1206;}
3142            if((CMPcar((V304)))==(VV[5])){
3143            goto T1201;}
3144    T1206:;
3145            V304= list(2,VV[172],(V304));
3146            goto T1201;
3147    T1205:;
3148            FEerror("The ECASE key value ~s is illegal.",1,V311);}
3149    T1201:;
3150            base[1]= list(3,VV[173],(V305),(V304));
3151            vs_top=(vs_base=base+1)+1;
3152            (void) (*Lnk360)();
3153            return;}}
3154          }          }
3155  }  }
3156  /*      function definition for LOOP-DO-WHILE   */  /*      function definition for LOOP-SUM-COLLECTION     */
3157    
3158  static L45()  static L75()
3159  {register object *base=vs_base;  {register object *base=vs_base;
3160          register object *sup=base+VM45; VC45          register object *sup=base+VM64; VC64
3161          vs_reserve(VM45);          vs_check;
3162          {object V206;          {object V312;
3163          object V207;          object V313;
3164          check_arg(2);          object V314;
3165          V206=(base[0]);          V312=(base[0]);
3166          V207=(base[1]);          V313=(base[1]);
3167            V314=(base[2]);
3168          vs_top=sup;          vs_top=sup;
3169  TTL:;  TTL:;
3170          {object V208;          {register object V315;
3171          base[3]= (V207);          object V316;
3172          vs_top=(vs_base=base+3)+1;          base[3]= (V312);
3173          (void) (*Lnk250)();          base[4]= VV[174];
3174            base[5]= (V314);
3175            vs_top=(vs_base=base+3)+3;
3176            (void) (*Lnk367)();
3177            if(vs_base>=vs_top){vs_top=sup;goto T1216;}
3178            V315= vs_base[0];
3179            vs_base++;
3180            if(vs_base>=vs_top){vs_top=sup;goto T1217;}
3181            V316= vs_base[0];
3182            vs_top=sup;
3183            goto T1218;
3184    T1216:;
3185            V315= Cnil;
3186    T1217:;
3187            V316= Cnil;
3188    T1218:;
3189            base[3]= STREF(object,(V315),16);
3190            base[4]= (V313);
3191            vs_top=(vs_base=base+3)+2;
3192            (void) (*Lnk371)();
3193            vs_top=sup;
3194            {register object V317;
3195            V317= STREF(object,(V315),12);
3196            if(((V317))!=Cnil){
3197            goto T1223;}{object V319;
3198            V319= STREF(object,(V315),0);
3199            if(V319==Cnil)goto T1230;
3200            base[3]= V319;
3201            goto T1229;
3202    T1230:;}
3203            base[4]= VV[175];
3204            vs_top=(vs_base=base+4)+1;
3205            (void) (*Lnk324)();
3206          vs_top=sup;          vs_top=sup;
3207          V208= vs_base[0];          base[3]= vs_base[0];
3208          if((symbol_value(VV[62]))==Cnil){  T1229:;
3209          goto T931;}          base[4]= Cnil;
3210          base[3]= VV[2];          base[5]= STREF(object,(V315),16);
         base[4]= VV[127];  
         base[5]= list(2,(V207),(V208));  
3211          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3212          Lerror();          (void) (*Lnk355)();
3213          vs_top=sup;          vs_top=sup;
3214  T931:;          V318= vs_base[0];
3215          if(((V206))==Cnil){          V317= make_cons(V318,Cnil);
3216          goto T940;}          V320= Ct;
3217          V209= VV[34];          STSET(object,(V315),12, (V317));
3218          goto T938;          (void)((V317));
3219  T940:;          if((STREF(object,(V315),0))!=Cnil){
3220          V209= VV[43];          goto T1223;}
3221  T938:;          base[3]= CMPcar(STREF(object,(V315),12));
         base[3]= list(3,V209,(V208),VV[128]);  
3222          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3223          (void) (*Lnk247)();          (void) (*Lnk368)();
         return;}  
         }  
 }  
 /*      function definition for LOOP-DO-WHEN    */  
   
 static L46()  
 {register object *base=vs_base;  
         register object *sup=base+VM46; VC46  
         vs_reserve(VM46);  
         {object V210;  
         object V211;  
         check_arg(2);  
         V210=(base[0]);  
         V211=(base[1]);  
         vs_top=sup;  
 TTL:;  
         {object V212;  
         register object V213;  
         base[2]= (V211);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk250)();  
         vs_top=sup;  
         V212= vs_base[0];  
         V213= Cnil;  
         base[2]= cadr(symbol_value(VV[46]));  
         base[3]= VV[129];  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk244)();  
3224          vs_top=sup;          vs_top=sup;
3225          if((vs_base[0])==Cnil){  T1223:;
3226          goto T946;}          if(!(((V312))==(VV[176]))){
3227          vs_base=vs_top;          goto T1240;}
3228          (void) (*Lnk260)();          V321= CMPcar((V317));
3229            base[4]= Ct;
3230            base[5]= CMPcar((V317));
3231            base[6]= list(2,VV[177],CMPcar((V317)));
3232            vs_top=(vs_base=base+4)+3;
3233            (void) (*Lnk328)();
3234          vs_top=sup;          vs_top=sup;
3235          V214= vs_base[0];          V322= vs_base[0];
3236          V213= list(3,VV[15],V214,(V212));          base[3]= list(3,VV[8],(V316),list(3,VV[11],/* INLINE-ARGS */V321,V322));
3237          V215= car(symbol_value(VV[46]));{object V216;          goto T1238;
3238          V216= symbol_value(VV[63]);  T1240:;
3239          setq(VV[46],listA(3,/* INLINE-ARGS */V215,V216,cddr(symbol_value(VV[46]))));}          V323= CMPcar((V317));
3240          goto T944;          base[4]= Ct;
3241  T946:;          base[5]= CMPcar((V317));
3242          V213= (V212);          base[6]= CMPcar((V317));
3243  T944:;          vs_top=(vs_base=base+4)+3;
3244          if((V210)==Cnil){          (void) (*Lnk328)();
3245          goto T955;}          vs_top=sup;
3246          V213= list(2,VV[130],(V213));          V324= vs_base[0];
3247  T955:;{object V217;          base[3]= list(3,VV[11],/* INLINE-ARGS */V323,list(3,VV[178],V324,(V316)));
3248          V217= symbol_value(VV[62]);  T1238:;
3249          V218= list(2,VV[45],make_cons((V213),Cnil));          vs_top=(vs_base=base+3)+1;
3250          V219= make_cons(/* INLINE-ARGS */V218,Cnil);          (void) (*Lnk360)();
3251          setq(VV[62],nconc(V217,/* INLINE-ARGS */V219));}          return;}}
         base[2]= symbol_value(VV[62]);  
         vs_top=(vs_base=base+2)+1;  
         return;}  
3252          }          }
3253  }  }
3254  /*      function definition for LOOP-DO-WITH    */  /*      function definition for LOOP-MAXMIN-COLLECTION  */
3255    
3256  static L47()  static L76()
3257  {register object *base=vs_base;  {register object *base=vs_base;
3258          register object *sup=base+VM47; VC47          register object *sup=base+VM65; VC65
3259          vs_reserve(VM47);          vs_check;
3260          check_arg(0);          {object V325;
3261            V325=(base[0]);
3262          vs_top=sup;          vs_top=sup;
3263  TTL:;  TTL:;
3264          {register object V220;          {register object V326;
3265          register object V221;          object V327;
3266          register object V222;          base[1]= (V325);
3267          register object V223;          base[2]= VV[179];
3268          V220= Cnil;          base[3]= (VV[180]->s.s_dbind);
3269          V221= Cnil;          vs_top=(vs_base=base+1)+3;
3270          V222= Cnil;          (void) (*Lnk367)();
3271          V223= Cnil;          if(vs_base>=vs_top){vs_top=sup;goto T1254;}
3272  T960:;          V326= vs_base[0];
3273          {register object V224;          vs_base++;
3274          V224= car(symbol_value(VV[46]));          if(vs_base>=vs_top){vs_top=sup;goto T1255;}
3275          setq(VV[46],cdr(symbol_value(VV[46])));          V327= vs_base[0];
         V220= (V224);}  
         V221= car(symbol_value(VV[46]));  
         base[0]= (V221);  
         base[1]= VV[131];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk244)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T972;}  
         {register object V225;  
         V225= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         base[0]= list(3,VV[132],(V220),VV[131]);  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk250)();  
         vs_top=sup;  
         V222= vs_base[0];  
         V223= Cnil;  
         goto T970;  
 T972:;  
         base[0]= (V221);  
         base[1]= VV[95];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk244)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T984;}  
         base[0]= (V221);  
         base[1]= VV[27];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk231)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T984;}  
         base[0]= (V221);  
         base[1]= VV[28];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk231)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T985;}  
 T984:;  
         V222= Cnil;  
         V223= Cnil;  
         goto T970;  
 T985:;  
         vs_base=vs_top;  
         (void) (*Lnk256)();  
         vs_top=sup;  
         V223= vs_base[0];  
         V221= car(symbol_value(VV[46]));  
         base[0]= (V221);  
         base[1]= VV[131];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk244)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T1005;}  
         {register object V226;  
         V226= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         base[0]= list(4,VV[132],(V220),(V223),VV[131]);  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk250)();  
         vs_top=sup;  
         V222= vs_base[0];  
         goto T970;  
 T1005:;  
         if((symbol_value(VV[46]))==Cnil){  
         goto T1016;}  
         base[0]= (V221);  
         base[1]= VV[27];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk231)();  
         vs_top=sup;  
         if((vs_base[0])!=Cnil){  
         goto T1016;}  
         base[0]= (V221);  
         base[1]= VV[28];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk231)();  
3276          vs_top=sup;          vs_top=sup;
3277          if((vs_base[0])!=Cnil){          goto T1256;
3278          goto T1016;}  T1254:;
3279          base[0]= (V221);          V326= Cnil;
3280          base[1]= VV[95];  T1255:;
3281          vs_top=(vs_base=base+0)+2;          V327= Cnil;
3282          (void) (*Lnk244)();  T1256:;
3283            base[1]= STREF(object,(V326),16);
3284            base[2]= (VV[180]->s.s_dbind);
3285            vs_top=(vs_base=base+1)+2;
3286            (void) (*Lnk371)();
3287          vs_top=sup;          vs_top=sup;
3288          if((vs_base[0])!=Cnil){          {register object V328;
3289          goto T1016;}          V328= STREF(object,(V326),20);
3290          base[0]= VV[2];          if(((V328))!=Cnil){
3291          base[1]= VV[133];          goto T1261;}{object V329;
3292          base[2]= (V221);          V329= STREF(object,(V326),0);
3293          vs_top=(vs_base=base+0)+3;          if(V329==Cnil)goto T1267;
3294          Lerror();          base[1]= V329;
3295            goto T1266;
3296    T1267:;}
3297            base[2]= VV[181];
3298            vs_top=(vs_base=base+2)+1;
3299            (void) (*Lnk324)();
3300          vs_top=sup;          vs_top=sup;
3301          goto T970;          base[1]= vs_base[0];
3302  T1016:;  T1266:;
3303          V222= Cnil;          base[2]= STREF(object,(V326),16);
3304  T970:;          vs_top=(vs_base=base+1)+2;
3305          base[0]= (V220);          (void) (*Lnk372)();
         base[1]= (V222);  
         base[2]= (V223);  
         vs_top=(vs_base=base+0)+3;  
         (void) (*Lnk236)();  
3306          vs_top=sup;          vs_top=sup;
3307          base[0]= car(symbol_value(VV[46]));          V328= vs_base[0];
3308          base[1]= VV[95];          V330= Ct;
3309          vs_top=(vs_base=base+0)+2;          STSET(object,(V326),20, (V328));
3310          (void) (*Lnk244)();          (void)((V328));
3311            if((STREF(object,(V326),0))!=Cnil){
3312            goto T1261;}
3313            base[1]= STREF(object,(V328),0);
3314            vs_top=(vs_base=base+1)+1;
3315            (void) (*Lnk368)();
3316            vs_top=sup;
3317    T1261:;
3318            base[1]= (V325);
3319            base[2]= (V328);
3320            vs_top=(vs_base=base+1)+2;
3321            (void) (*Lnk373)();
3322          vs_top=sup;          vs_top=sup;
3323          if((vs_base[0])!=Cnil){          V331= list(2,VV[182],(V328));
3324          goto T1040;}          (VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V331,(VV[106]->s.s_dbind));
3325          goto T958;          base[1]= list(4,VV[183],(V328),(V325),(V327));
3326  T1040:;          vs_top=(vs_base=base+1)+1;
3327          {register object V227;          (void) (*Lnk360)();
3328          V227= car(symbol_value(VV[46]));          return;}}
3329          setq(VV[46],cdr(symbol_value(VV[46])));}          }
         goto T960;}  
 T958:;  
         vs_base=vs_top;  
         (void) (*Lnk238)();  
         return;  
3330  }  }
3331  /*      function definition for LOOP-DO-ALWAYS  */  /*      function definition for LOOP-DO-ALWAYS  */
3332    
3333  static L48()  static L77()
3334  {register object *base=vs_base;  {register object *base=vs_base;
3335          register object *sup=base+VM48; VC48          register object *sup=base+VM66; VC66
3336          vs_reserve(VM48);          vs_check;
3337          {object V228;          {object V332;
3338          check_arg(1);          object V333;
3339          V228=(base[0]);          V332=(base[0]);
3340          vs_top=sup;          V333=(base[1]);
 TTL:;  
         {object V229;  
         base[1]= VV[134];  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk250)();  
         vs_top=sup;  
         V229= vs_base[0];  
         if(((V228))==Cnil){  
         goto T1055;}  
         V230= VV[34];  
         goto T1053;  
 T1055:;  
         V230= VV[43];  
 T1053:;  
         base[2]= Cnil;  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk251)();  
3341          vs_top=sup;          vs_top=sup;
3342          V231= vs_base[0];  TTL:;
3343          base[1]= list(3,V230,(V229),V231);          {object V334;
3344          vs_top=(vs_base=base+1)+1;          vs_base=vs_top;
3345          (void) (*Lnk249)();          (void) (*Lnk357)();
3346          vs_top=sup;          vs_top=sup;
3347          base[1]= Ct;          V334= vs_base[0];
3348          vs_top=(vs_base=base+1)+1;          if(((V332))==Cnil){
3349          (void) (*Lnk251)();          goto T1281;}
3350            vs_base=vs_top;
3351            (void) (*Lnk358)();
3352          vs_top=sup;          vs_top=sup;
3353          V232= vs_base[0];  T1281:;
3354          setq(VV[61],make_cons(V232,symbol_value(VV[61])));          if(((V333))==Cnil){
3355          base[1]= symbol_value(VV[61]);          goto T1288;}
3356          vs_top=(vs_base=base+1)+1;          V335= VV[8];
3357            goto T1286;
3358    T1288:;
3359            V335= VV[184];
3360    T1286:;
3361            base[3]= Cnil;
3362            vs_top=(vs_base=base+3)+1;
3363            (void) (*Lnk351)();
3364            vs_top=sup;
3365            V336= vs_base[0];
3366            base[2]= list(3,V335,(V334),V336);
3367            vs_top=(vs_base=base+2)+1;
3368            (void) (*Lnk360)();
3369            vs_top=sup;
3370            base[2]= Ct;
3371            vs_top=(vs_base=base+2)+1;
3372            (void) (*Lnk368)();
3373          return;}          return;}
3374          }          }
3375  }  }
3376  /*      function definition for LOOP-DO-THEREIS */  /*      function definition for LOOP-DO-THEREIS */
3377    
3378  static L49()  static L78()
3379  {register object *base=vs_base;  {register object *base=vs_base;
3380          register object *sup=base+VM49; VC49          register object *sup=base+VM67; VC67
3381          vs_reserve(VM49);          vs_check;
3382          check_arg(0);          {object V337;
3383            V337=(base[0]);
3384          vs_top=sup;          vs_top=sup;
3385  TTL:;  TTL:;
3386            if(((V337))==Cnil){
3387            goto T1293;}
3388          vs_base=vs_top;          vs_base=vs_top;
3389          (void) (*Lnk260)();          (void) (*Lnk358)();
3390          vs_top=sup;          vs_top=sup;
3391          V233= vs_base[0];  T1293:;
3392          base[1]= VV[135];          vs_base=vs_top;
3393          vs_top=(vs_base=base+1)+1;          (void) (*Lnk374)();
         (void) (*Lnk250)();  
3394          vs_top=sup;          vs_top=sup;
3395          V234= vs_base[0];          V338= vs_base[0];
3396          V235= list(3,VV[15],V233,V234);          vs_base=vs_top;
3397          base[1]= symbol_value(VV[63]);          (void) (*Lnk357)();
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk251)();  
3398          vs_top=sup;          vs_top=sup;
3399          V236= vs_base[0];          V339= vs_base[0];
3400          base[0]= list(3,VV[34],/* INLINE-ARGS */V235,V236);          V340= list(3,VV[11],V338,V339);
3401          vs_top=(vs_base=base+0)+1;          base[2]= (VV[115]->s.s_dbind);
3402          (void) (*Lnk249)();          vs_top=(vs_base=base+2)+1;
3403            (void) (*Lnk351)();
3404            vs_top=sup;
3405            V341= vs_base[0];
3406            base[1]= list(3,VV[8],/* INLINE-ARGS */V340,V341);
3407            vs_top=(vs_base=base+1)+1;
3408            (void) (*Lnk360)();
3409          return;          return;
3410            }
3411  }  }
3412  /*      function definition for LOOP-SIMPLEP    */  /*      function definition for LOOP-DO-WHILE   */
3413    
3414  static L50()  static L79()
3415  {register object *VOL base=vs_base;  {register object *base=vs_base;
3416          register object *VOL sup=base+VM50; VC50          register object *sup=base+VM68; VC68
3417          vs_reserve(VM50);          vs_check;
3418          {VOL object V237;          {object V342;
3419          check_arg(1);          object V343;
3420          V237=(base[0]);          V342=(base[0]);
3421            V343=(base[1]);
3422          vs_top=sup;          vs_top=sup;
3423  TTL:;  TTL:;
3424          if(((V237))!=Cnil){          {object V344;
3425          goto T1069;}          vs_base=vs_top;
3426          base[1]= small_fixnum(0);          (void) (*Lnk357)();
         vs_top=(vs_base=base+1)+1;  
         return;  
 T1069:;  
         frs_push(FRS_CATCH,VV[136]);  
         if(nlj_active)  
         {nlj_active=FALSE;frs_pop();  
         return;}  
         else{  
         {int V238;  
         base[1]= (V237);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk261)();  
3427          vs_top=sup;          vs_top=sup;
3428          V238= fix(vs_base[0]);          V344= vs_base[0];
3429          if((V238)<(20)){          base[3]= (V343);
3430          goto T1074;}          vs_top=(vs_base=base+3)+1;
3431          frs_pop();          (void) (*Lnk358)();
3432          base[1]= Cnil;          vs_top=sup;
3433          vs_top=(vs_base=base+1)+1;          if(((V342))==Cnil){
3434          return;          goto T1307;}
3435  T1074:;          V345= VV[8];
3436          frs_pop();          goto T1305;
3437          base[1]= make_fixnum(V238);  T1307:;
3438          vs_top=(vs_base=base+1)+1;          V345= VV[184];
3439          return;}}  T1305:;
3440            base[3]= list(3,V345,(V344),VV[185]);
3441            vs_top=(vs_base=base+3)+1;
3442            (void) (*Lnk350)();
3443            return;}
3444          }          }
3445  }  }
3446  /*      function definition for LOOP-SIMPLEP-1  */  /*      function definition for LOOP-DO-WITH    */
3447    
3448  static L51()  static L80()
3449  {register object *base=vs_base;  {register object *base=vs_base;
3450          register object *sup=base+VM51; VC51          register object *sup=base+VM69; VC69
3451          vs_reserve(VM51);          vs_check;
         {register object V239;  
         check_arg(1);  
         V239=(base[0]);  
3452          vs_top=sup;          vs_top=sup;
3453  TTL:;  TTL:;
3454          {register int V240;          base[0]= VV[186];
3455          V240= 0;          vs_top=(vs_base=base+0)+1;
3456          base[1]= (V239);          (void) (*Lnk358)();
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk245)();  
3457          vs_top=sup;          vs_top=sup;
3458          if((vs_base[0])==Cnil){          {register object V346;
3459          goto T1078;}          register object V347;
3460          base[1]= small_fixnum(0);          register object V348;
3461          vs_top=(vs_base=base+1)+1;          V346= Cnil;
3462          return;          V347= Cnil;
3463  T1078:;          V348= Cnil;
3464          if(!(type_of((V239))!=t_cons)){  T1312:;
3465          goto T1082;}          vs_base=vs_top;
3466          base[1]= small_fixnum(1);          (void) (*Lnk346)();
         vs_top=(vs_base=base+1)+1;  
         return;  
 T1082:;  
         if(!((car((V239)))==(VV[45]))){  
         goto T1085;}  
         {register object V241;  
         V241= cdr((V239));  
 T1090:;  
         if(((V241))!=Cnil){  
         goto T1091;}  
         goto T1087;  
 T1091:;  
         {register object V242;  
         V242= car((V241));  
 T1098:;  
         if(((V242))!=Cnil){  
         goto T1099;}  
         goto T1095;  
 T1099:;  
         base[2]= car((V242));  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk261)();  
3467          vs_top=sup;          vs_top=sup;
3468          base[1]= vs_base[0];          V346= vs_base[0];
3469          base[2]= make_fixnum(V240);          base[0]= (V346);
3470          base[3]= small_fixnum(1);          vs_top=(vs_base=base+0)+1;
3471          vs_top=(vs_base=base+1)+3;          (void) (*Lnk363)();
         Lplus();  
3472          vs_top=sup;          vs_top=sup;
3473          V240= fix(vs_base[0]);          V348= vs_base[0];
3474          V242= cdr((V242));          base[0]= CMPcar((VV[89]->s.s_dbind));
3475          goto T1098;}          base[1]= VV[187];
3476  T1095:;          vs_top=(vs_base=base+0)+2;
3477          V241= cdr((V241));          (void) (*Lnk353)();
         goto T1090;}  
 T1087:;  
         base[1]= make_fixnum(V240);  
         vs_top=(vs_base=base+1)+1;  
         return;  
 T1085:;  
         if(!(type_of(car((V239)))==t_symbol)){  
         goto T1116;}  
         {register object V243;  
         object V244;  
         V243= car((V239));  
         V244= Cnil;  
         V244= get((V243),VV[136],Cnil);  
         if(((V244))==Cnil){  
         goto T1121;}  
         if(!(type_of((V244))==t_fixnum)){  
         goto T1125;}  
         V240= fix((V244));  
         goto T1119;  
 T1125:;  
         V240= fix((  
         (type_of((V244)) == t_sfun ?(*(object (*)())(((V244))->sfn.sfn_self)):  
         (fcall.fun=((V244)),fcall.argd=1,fcalln))((V239))));  
         V239= Cnil;  
         goto T1119;  
 T1121:;  
         {object V245;  
         {register object x= (V243),V246= VV[137];  
         while(!endp(V246))  
         if(eql(x,V246->c.c_car)){  
         V245= V246;  
         goto T1131;  
         }else V246=V246->c.c_cdr;  
         V245= Cnil;}  
 T1131:;  
         if(((V245))==Cnil){  
         goto T1133;}  
         goto T1119;  
 T1133:;  
         {register object x= (V243),V247= VV[138];  
         while(!endp(V247))  
         if(eql(x,V247->c.c_car)){  
         goto T1137;  
         }else V247=V247->c.c_cdr;  
         goto T1136;}  
 T1137:;  
         V240= 1;  
         goto T1119;  
 T1136:;  
         {register object x= (V243),V248= VV[139];  
         while(!endp(V248))  
         if(eql(x,V248->c.c_car)){  
         goto T1141;  
         }else V248=V248->c.c_cdr;  
         goto T1140;}  
 T1141:;  
         V240= 2;  
         goto T1119;  
 T1140:;  
         {register object x= (V243),V249= VV[140];  
         while(!endp(V249))  
         if(eql(x,V249->c.c_car)){  
         goto T1145;  
         }else V249=V249->c.c_cdr;  
         goto T1144;}  
 T1145:;  
         V240= 3;  
         goto T1119;  
 T1144:;  
         {register object x= (V243),V250= VV[141];  
         while(!endp(V250))  
         if(eql(x,V250->c.c_car)){  
         goto T1149;  
         }else V250=V250->c.c_cdr;  
         goto T1148;}  
 T1149:;  
         V240= 4;  
         goto T1119;  
 T1148:;  
         {register object x= (V243),V251= symbol_value(VV[136]);  
         while(!endp(V251))  
         if(eql(x,V251->c.c_car)){  
         goto T1153;  
         }else V251=V251->c.c_cdr;  
         goto T1152;}  
 T1153:;  
         V240= 2;  
         goto T1119;  
 T1152:;  
         {object V252;  
         object V253;  
         base[1]= (V239);  
         base[2]= symbol_value(VV[33]);  
         vs_top=(vs_base=base+1)+2;  
         Lmacroexpand_1();  
         if(vs_base>=vs_top){vs_top=sup;goto T1158;}  
         V252= vs_base[0];  
         vs_base++;  
         if(vs_base>=vs_top){vs_top=sup;goto T1159;}  
         V253= vs_base[0];  
3478          vs_top=sup;          vs_top=sup;
3479          goto T1160;          if((vs_base[0])==Cnil){
3480  T1158:;          goto T1323;}
3481          V252= Cnil;          vs_base=vs_top;
3482  T1159:;          (void) (*Lnk346)();
         V253= Cnil;  
 T1160:;  
         if(((V253))==Cnil){  
         goto T1162;}  
         base[1]= (V252);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk261)();  
3483          vs_top=sup;          vs_top=sup;
3484          V240= fix(vs_base[0]);          vs_base=vs_top;
3485          V239= Cnil;          (void) (*Lnk357)();
         goto T1119;  
 T1162:;  
         {frame_ptr fr;  
         fr=frs_sch_catch(VV[136]);  
         if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[136]);  
         base[1]= Cnil;  
         vs_top=(vs_base=base+1)+1;  
         unwind(fr,VV[136]);}}}  
 T1119:;  
         {register object V254;  
         V254= cdr((V239));  
 T1172:;  
         if(((V254))!=Cnil){  
         goto T1173;}  
         goto T1169;  
 T1173:;  
         base[2]= car((V254));  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk261)();  
3486          vs_top=sup;          vs_top=sup;
3487          base[1]= vs_base[0];          V347= vs_base[0];
3488          base[2]= small_fixnum(1);          goto T1321;
3489          base[3]= make_fixnum(V240);  T1323:;
3490          vs_top=(vs_base=base+1)+3;          V347= Cnil;
3491          Lplus();  T1321:;
3492            base[0]= (V346);
3493            base[1]= (V347);
3494            base[2]= (V348);
3495            vs_top=(vs_base=base+0)+3;
3496            (void) (*Lnk355)();
3497          vs_top=sup;          vs_top=sup;
3498          V240= fix(vs_base[0]);          base[0]= CMPcar((VV[89]->s.s_dbind));
3499          V254= cdr((V254));          base[1]= VV[152];
3500          goto T1172;}          vs_top=(vs_base=base+0)+2;
3501  T1169:;          (void) (*Lnk353)();
3502          base[1]= make_fixnum(V240);          vs_top=sup;
3503          vs_top=(vs_base=base+1)+1;          if((vs_base[0])==Cnil){
3504          return;}          goto T1334;}
3505  T1116:;          vs_base=vs_top;
3506          {frame_ptr fr;          (void) (*Lnk346)();
3507          fr=frs_sch_catch(VV[136]);          vs_top=sup;
3508          if(fr==NULL) FEerror("The tag ~s is undefined.",1,VV[136]);          goto T1332;
3509          base[1]= Cnil;  T1334:;
3510          vs_top=(vs_base=base+1)+1;          vs_base=vs_top;
3511          unwind(fr,VV[136]);}}          (void) (*Lnk345)();
3512          }          return;
3513    T1332:;
3514            goto T1312;}
3515  }  }
3516  /*      function definition for LOOP-HACK-ITERATION     */  /*      function definition for LOOP-HACK-ITERATION     */
3517    
3518  static L52()  static L81()
3519  {register object *base=vs_base;  {register object *base=vs_base;
3520          register object *sup=base+VM52; VC52          register object *sup=base+VM70; VC70
3521          vs_reserve(VM52);          vs_check;
3522          bds_check;          {register object V349;
3523          {register object V255;          V349=(base[0]);
         check_arg(1);  
         V255=(base[0]);  
3524          vs_top=sup;          vs_top=sup;
3525  TTL:;  TTL:;
3526          {object V256;          {register object V350;
3527          register object V257;          register object V351;
3528          register object V258;          register object V352;
3529          object V259;          register object V353;
3530          register object V260;          register object V354;
3531          register object V261;          register object V355;
3532          object V262;          register object V356;
3533          object V263;          register object V357;
3534          object V264;          register object V358;
3535          object V265;          object V359;
3536          register object V266;          V350= Cnil;
3537          object V267;          V351= Cnil;
3538          object V268;          V352= Cnil;
3539          object V269;          V353= Cnil;
3540          V256= (V255);          V354= Cnil;
3541          V257= symbol_value(VV[46]);          V355= Cnil;
3542          V258= Cnil;          V356= Cnil;
3543          V259= Cnil;          V357= Cnil;
3544          V260= Cnil;          V358= Cnil;
3545          V261= Cnil;          V359= Cnil;
3546          V262= Cnil;  T1341:;
3547          V263= Cnil;          base[2]= CMPcar((V349));
3548          V264= Cnil;          vs_top=(vs_base=base+2)+1;
3549          V265= Cnil;          Lsymbol_function();
3550          V266= Cnil;          vs_top=sup;
3551          V267= Cnil;          base[1]= vs_base[0];
3552          V268= Cnil;          {object V360;
3553          V269= Cnil;          V360= CMPcdr((V349));
 T1188:;  
         base[1]= cadr((V255));  
         {object V270;  
         V270= cddr((V255));  
3554           vs_top=base+2;           vs_top=base+2;
3555           while(!endp(V270))           while(V360!=Cnil)
3556           {vs_push(car(V270));V270=cdr(V270);}           {vs_push((V360)->c.c_car);V360=(V360)->c.c_cdr;}
3557          vs_base=base+2;}          vs_base=base+2;}
3558          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
3559          vs_top=sup;          vs_top=sup;
3560          V267= vs_base[0];          V359= vs_base[0];
3561          V266= (V267);          V358= (V359);
3562          if((car((V266)))!=Cnil){          if((CMPcar((V358)))!=Cnil){
3563          goto T1197;}          goto T1351;}
3564          goto T1196;          goto T1350;
3565  T1197:;  T1351:;
3566          V258= make_cons(car((V266)),(V258));          V350= make_cons(CMPcar((V358)),(V350));
3567  T1196:;  T1350:;
3568          V266= cdr((V266));          V358= CMPcdr((V358));
3569          base[1]= car((V266));          base[1]= CMPcar((V358));
3570          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3571          Lcopy_list();          Lcopy_list();
3572          vs_top=sup;          vs_top=sup;
3573          V271= vs_base[0];          V361= vs_base[0];
3574          V259= nconc((V259),V271);          V351= nconc((V351),V361);
3575          V266= cdr((V266));          V358= CMPcdr((V358));
3576          if((car((V266)))!=Cnil){          if((CMPcar((V358)))!=Cnil){
3577          goto T1206;}          goto T1360;}
3578          goto T1205;          goto T1359;
3579  T1206:;  T1360:;
3580          V260= make_cons(car((V266)),(V260));          V352= make_cons(CMPcar((V358)),(V352));
3581  T1205:;  T1359:;
3582          V266= cdr((V266));          V358= CMPcdr((V358));
3583          base[1]= car((V266));          base[1]= CMPcar((V358));
3584          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3585          Lcopy_list();          Lcopy_list();
3586          vs_top=sup;          vs_top=sup;
3587          V272= vs_base[0];          V362= vs_base[0];
3588          V261= nconc((V261),V272);          V353= nconc((V353),V362);
3589          V266= cdr((V266));          V358= CMPcdr((V358));
3590          if(symbol_value(VV[62])!=Cnil){          if(((VV[109]->s.s_dbind))==Cnil){
3591          if((symbol_value(VV[62]))!=Cnil){          goto T1371;}
3592          goto T1218;}          base[1]= VV[188];
3593          goto T1219;}          vs_top=(vs_base=base+1)+1;
3594          if((symbol_value(VV[59]))!=Cnil){          (void) (*Lnk343)();
3595          goto T1218;}          vs_top=sup;
3596  T1219:;  T1371:;
3597          goto T1217;          if(((V358))!=Cnil){
3598  T1218:;          goto T1375;}
3599          if((V266)!=Cnil){          V358= (V359);
3600          if(((V266))!=Cnil){  T1375:;
3601          goto T1220;}          if((CMPcar((V358)))==Cnil){
3602          goto T1221;}          goto T1379;}
3603          if((V258)!=Cnil){          V354= make_cons(CMPcar((V358)),(V354));
3604          if(((V258))!=Cnil){  T1379:;
3605          goto T1220;}          V358= CMPcdr((V358));
3606          goto T1221;}          base[1]= CMPcar((V358));
         if((V260)!=Cnil){  
         if(((V260))!=Cnil){  
         goto T1220;}  
         goto T1221;}  
         if(((V261))!=Cnil){  
         goto T1220;}  
 T1221:;  
         goto T1217;  
 T1220:;  
         {object V273;  
         V273= list(4,car((V255)),car((V257)),cadr((V257)),caddr((V257)));  
         if((symbol_value(VV[59]))==Cnil){  
         goto T1224;}  
         base[1]= VV[2];  
         base[2]= VV[142];  
         base[3]= (V273);  
         vs_top=(vs_base=base+1)+3;  
         Lerror();  
         vs_top=sup;  
         goto T1217;  
 T1224:;  
         base[1]= VV[2];  
         base[2]= VV[143];  
         base[3]= (V273);  
         vs_top=(vs_base=base+1)+3;  
         Lerror();  
         vs_top=sup;}  
 T1217:;  
         if((V266)!=Cnil){  
         goto T1232;}  
         V266= (V267);  
 T1232:;  
         if((car((V266)))!=Cnil){  
         goto T1235;}  
         goto T1234;  
 T1235:;  
         V262= make_cons(car((V266)),(V262));  
 T1234:;  
         V266= cdr((V266));  
         base[1]= car((V266));  
3607          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3608          Lcopy_list();          Lcopy_list();
3609          vs_top=sup;          vs_top=sup;
3610          V274= vs_base[0];          V363= vs_base[0];
3611          V263= nconc((V263),V274);          V355= nconc((V355),V363);
3612          V266= cdr((V266));          V358= CMPcdr((V358));
3613          if((car((V266)))!=Cnil){          if((CMPcar((V358)))==Cnil){
3614          goto T1244;}          goto T1388;}
3615          goto T1243;          V356= make_cons(CMPcar((V358)),(V356));
3616  T1244:;  T1388:;
3617          V264= make_cons(car((V266)),(V264));          base[1]= CMPcadr((V358));
 T1243:;  
         base[1]= cadr((V266));  
3618          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3619          Lcopy_list();          Lcopy_list();
3620          vs_top=sup;          vs_top=sup;
3621          V275= vs_base[0];          V364= vs_base[0];
3622          V265= nconc((V265),V275);          V357= nconc((V357),V364);
3623          base[1]= car(symbol_value(VV[46]));          base[1]= CMPcar((VV[89]->s.s_dbind));
3624          base[2]= VV[95];          base[2]= VV[152];
         vs_top=(vs_base=base+1)+2;  
         (void) (*Lnk244)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T1253;}  
         if((symbol_value(VV[62]))==Cnil){  
         goto T1252;}  
         base[1]= cadr(symbol_value(VV[46]));  
         base[2]= VV[28];  
3625          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3626          (void) (*Lnk231)();          (void) (*Lnk353)();
3627          vs_top=sup;          vs_top=sup;
3628          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
3629          goto T1252;}          goto T1397;}
3630  T1253:;          base[1]= (V357);
         base[1]= (V262);  
3631          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3632          (void) (*Lnk262)();          (void) (*Lnk334)();
3633          vs_top=sup;          vs_top=sup;
3634          V276= vs_base[0];          V365= vs_base[0];
3635          base[1]= (V263);          base[1]= (V356);
3636          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3637          (void) (*Lnk226)();          L82(base);
3638          vs_top=sup;          vs_top=sup;
3639          V277= vs_base[0];          V366= vs_base[0];
3640          base[1]= (V264);          base[1]= (V355);
3641          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3642          (void) (*Lnk262)();          (void) (*Lnk333)();
3643          vs_top=sup;          vs_top=sup;
3644          V278= vs_base[0];          V367= vs_base[0];
3645          base[1]= (V265);          base[1]= (V354);
3646          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3647          (void) (*Lnk227)();          L82(base);
3648          vs_top=sup;          vs_top=sup;
3649          V279= vs_base[0];          V368= vs_base[0];
3650          V268= list(4,V276,V277,V278,V279);          (VV[107]->s.s_dbind)= listA(5,V365,V366,V367,V368,(VV[107]->s.s_dbind));
3651          base[1]= (V258);          base[1]= (V353);
3652          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3653          (void) (*Lnk262)();          (void) (*Lnk334)();
3654          vs_top=sup;          vs_top=sup;
3655          V280= vs_base[0];          V369= vs_base[0];
3656          base[1]= (V259);          base[1]= (V352);
3657          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3658          (void) (*Lnk226)();          L82(base);
3659          vs_top=sup;          vs_top=sup;
3660          V281= vs_base[0];          V370= vs_base[0];
3661          base[1]= (V260);          base[1]= (V351);
3662          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3663          (void) (*Lnk262)();          (void) (*Lnk333)();
3664          vs_top=sup;          vs_top=sup;
3665          V282= vs_base[0];          V371= vs_base[0];
3666          base[1]= (V261);          base[1]= (V350);
3667          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3668          (void) (*Lnk227)();          L82(base);
3669          vs_top=sup;          vs_top=sup;
3670          V283= vs_base[0];          V372= vs_base[0];
3671          V269= list(4,V280,V281,V282,V283);          (VV[110]->s.s_dbind)= listA(5,V369,V370,V371,V372,(VV[110]->s.s_dbind));
         if((symbol_value(VV[62]))!=Cnil){  
         goto T1285;}  
         base[1]= (V268);  
         base[2]= symbol_value(VV[37]);  
         vs_top=(vs_base=base+1)+2;  
         Lreconc();  
         vs_top=sup;  
         setq(VV[37],vs_base[0]);  
         base[1]= (V269);  
         base[2]= symbol_value(VV[38]);  
         vs_top=(vs_base=base+1)+2;  
         Lreconc();  
         vs_top=sup;  
         setq(VV[38],vs_base[0]);  
         goto T1283;  
 T1285:;  
         base[3]= symbol_value(VV[62]);  
         {object V284;  
         object V285= base[3];  
         if(endp(V285)){  
         base[1]= Cnil;  
         goto T1295;}  
         base[2]=V284=MMcons(Cnil,Cnil);  
 T1296:;  
         V287= car((V285->c.c_car));  
         {object V289;  
         object V290= cdr((V285->c.c_car));  
         if(endp(V290)){  
         V288= Cnil;  
         goto T1298;}  
         base[4]=V289=MMcons(Cnil,Cnil);  
 T1299:;  
         base[5]= (V290->c.c_car);  
         vs_top=(vs_base=base+5)+1;  
         Lcopy_list();  
         vs_top=sup;  
         (V289->c.c_car)= vs_base[0];  
         if(endp(V290=MMcdr(V290))){  
         V288= base[4];  
         goto T1298;}  
         V289=MMcdr(V289)=MMcons(Cnil,Cnil);  
         goto T1299;}  
 T1298:;  
         (V284->c.c_car)= make_cons(/* INLINE-ARGS */V287,V288);  
         if(endp(V285=MMcdr(V285))){  
         base[1]= base[2];  
         goto T1295;}  
         V284=MMcdr(V284)=MMcons(Cnil,Cnil);  
         goto T1296;}  
 T1295:;  
         bds_bind(VV[62],base[1]);  
         V293= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V268)));  
         base[2]= make_cons(VV[44],/* INLINE-ARGS */V293);  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk246)();  
         vs_top=sup;  
         V292= vs_base[0];  
         setq(VV[37],make_cons(V292,symbol_value(VV[37])));  
         V294= symbol_value(VV[37]);  
         bds_unwind1;  
         V296= (VFUN_NARGS=2,(*(LnkLI234))(Cnil,(V269)));  
         base[1]= make_cons(VV[44],/* INLINE-ARGS */V296);  
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk246)();  
         vs_top=sup;  
         V295= vs_base[0];  
         setq(VV[38],make_cons(V295,symbol_value(VV[38])));  
 T1283:;  
3672          vs_base=vs_top;          vs_base=vs_top;
3673          (void) (*Lnk238)();          (void) (*Lnk345)();
3674          vs_top=sup;          vs_top=sup;
3675          base[1]= Cnil;          base[1]= Cnil;
3676          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3677          return;          return;
3678  T1252:;  T1397:;
3679          {object V297;          vs_base=vs_top;
3680          V297= car(symbol_value(VV[46]));          (void) (*Lnk346)();
3681          setq(VV[46],cdr(symbol_value(VV[46])));}          vs_top=sup;
3682          base[1]= car(symbol_value(VV[46]));          if((STREF(object,(VV[96]->s.s_dbind),28))!=Cnil){
3683          base[2]= VV[28];          goto T1424;}
3684            base[1]= CMPcar((VV[89]->s.s_dbind));
3685            base[2]= STREF(object,(VV[96]->s.s_dbind),4);
3686          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
3687          (void) (*Lnk231)();          (void) (*Lnk347)();
3688            vs_top=sup;
3689            V358= vs_base[0];
3690            if(((V358))==Cnil){
3691            goto T1424;}
3692            vs_base=vs_top;
3693            (void) (*Lnk346)();
3694          vs_top=sup;          vs_top=sup;
3695          V266= vs_base[0];          V349= (V358);
3696          if(((V266))==Cnil){  T1424:;
3697          goto T1316;}          goto T1341;}
         {object V298;  
         V298= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         V256= (V266);  
         V255= (V256);  
         goto T1314;  
 T1316:;  
         V255= (V256);  
 T1314:;  
         V257= symbol_value(VV[46]);  
         goto T1188;}  
3698          }          }
3699  }  }
3700  /*      function definition for LOOP-DO-FOR     */  /*      function definition for LOOP-DO-FOR     */
3701    
3702  static L53()  static L83()
3703  {register object *base=vs_base;  {register object *base=vs_base;
3704          register object *sup=base+VM53; VC53          register object *sup=base+VM71; VC71
3705          vs_reserve(VM53);          vs_check;
         check_arg(0);  
3706          vs_top=sup;          vs_top=sup;
3707  TTL:;  TTL:;
3708          {object V299;          {object V373;
3709          object V300;          object V374;
3710          object V301;          object V375;
3711          object V302;          object V376;
3712          object V303;          object V377;
3713          {object V304;          vs_base=vs_top;
3714          V304= car(symbol_value(VV[46]));          (void) (*Lnk346)();
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V299= (V304);}  
         vs_base=vs_top;  
         (void) (*Lnk256)();  
         vs_top=sup;  
         V300= vs_base[0];  
         {object V305;  
         V305= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V301= (V305);}  
         V302= Cnil;  
         V303= Cnil;  
         base[0]= list(3,VV[144],(V299),(V301));  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk250)();  
3715          vs_top=sup;          vs_top=sup;
3716          V302= vs_base[0];{object V306;          V373= vs_base[0];
3717          base[0]= (V301);          base[3]= (V373);
3718          base[1]= VV[145];          vs_top=(vs_base=base+3)+1;
3719          vs_top=(vs_base=base+0)+2;          (void) (*Lnk363)();
         (void) (*Lnk231)();  
3720          vs_top=sup;          vs_top=sup;
3721          V303= vs_base[0];          V374= vs_base[0];
3722          V306= (V303);          vs_base=vs_top;
3723          if(V306==Cnil)goto T1342;          (void) (*Lnk346)();
         goto T1341;  
 T1342:;}  
         base[0]= VV[2];  
         base[1]= VV[146];  
         base[2]= list(3,VV[144],(V299),(V301));  
         vs_top=(vs_base=base+0)+3;  
         Lerror();  
3724          vs_top=sup;          vs_top=sup;
3725  T1341:;          V375= vs_base[0];
3726          base[0]= cadr((V303));          V376= Cnil;
3727          base[1]= (V299);          V377= Cnil;
3728          base[2]= (V302);          vs_base=vs_top;
3729          base[3]= (V300);          (void) (*Lnk357)();
3730          {object V307;          vs_top=sup;
3731          V307= cddr((V303));          V376= vs_base[0];
3732           vs_top=base+4;          if(!(type_of((V375))==t_symbol)){
3733           while(!endp(V307))          goto T1445;}
3734           {vs_push(car(V307));V307=cdr(V307);}          base[3]= (V375);
3735          vs_base=base+1;}          base[4]= STREF(object,(VV[96]->s.s_dbind),8);
3736          super_funcall_no_event(base[0]);          vs_top=(vs_base=base+3)+2;
3737            (void) (*Lnk347)();
3738            vs_top=sup;
3739            V377= vs_base[0];
3740            if(((V377))!=Cnil){
3741            goto T1444;}
3742    T1445:;
3743            base[3]= VV[191];
3744            base[4]= (V375);
3745            vs_top=(vs_base=base+3)+2;
3746            (void) (*Lnk343)();
3747            vs_top=sup;
3748    T1444:;
3749            base[3]= CMPcar((V377));
3750            base[4]= (V373);
3751            base[5]= (V376);
3752            base[6]= (V374);
3753            {object V378;
3754            V378= CMPcdr((V377));
3755             vs_top=base+7;
3756             while(V378!=Cnil)
3757             {vs_push((V378)->c.c_car);V378=(V378)->c.c_cdr;}
3758            vs_base=base+4;}
3759            super_funcall_no_event(base[3]);
3760          return;}          return;}
3761  }  }
3762  /*      function definition for LOOP-DO-REPEAT  */  /*      function definition for LOOP-DO-REPEAT  */
3763    
3764  static L54()  static L84()
3765  {register object *base=vs_base;  {register object *base=vs_base;
3766          register object *sup=base+VM54; VC54          register object *sup=base+VM72; VC72
3767          vs_reserve(VM54);          vs_check;
         check_arg(0);  
3768          vs_top=sup;          vs_top=sup;
3769  TTL:;  TTL:;
3770          {object V308;          {register object V379;
3771          base[1]= VV[147];          register object V380;
3772          vs_top=(vs_base=base+1)+1;          vs_base=vs_top;
3773          Lgentemp();          (void) (*Lnk357)();
3774          vs_top=sup;          vs_top=sup;
3775          base[0]= vs_base[0];          V379= vs_base[0];
3776          base[2]= VV[148];          vs_base=vs_top;
3777          vs_top=(vs_base=base+2)+1;          (void) (*Lnk363)();
         (void) (*Lnk250)();  
3778          vs_top=sup;          vs_top=sup;
3779          base[1]= vs_base[0];          base[0]= vs_base[0];
3780          base[2]= VV[110];          base[1]= (VV[180]->s.s_dbind);
3781          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+2;
3782          (void) (*Lnk236)();          (void) (*Lnk371)();
3783          vs_top=sup;          vs_top=sup;
3784          V308= vs_base[0];          V380= vs_base[0];
3785          base[0]= VV[149];          if(!(type_of((V379))==t_cons)){
3786          base[1]= VV[110];          goto T1463;}
3787            if(!((CMPcar((V379)))==(VV[192]))){
3788            goto T1463;}
3789            base[0]= CMPcadr((V379));
3790            base[1]= (V380);
3791          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3792          (void) (*Lnk258)();          (void) (*Lnk323)();
3793          vs_top=sup;          vs_top=sup;
3794          V309= vs_base[0];          if((vs_base[0])==Cnil){
3795          V310= list(2,VV[130],list(2,V309,(V308)));          goto T1463;}
3796          base[0]= VV[150];          V380= CMPcadr((V379));
3797          base[1]= VV[110];  T1463:;
3798            {object V381;
3799            object V382;
3800            object V383;
3801            base[0]= (V379);
3802            base[1]= (V380);
3803          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3804          (void) (*Lnk258)();          (void) (*Lnk375)();
3805            if(vs_base>=vs_top){vs_top=sup;goto T1476;}
3806            V381= vs_base[0];
3807            vs_base++;
3808            if(vs_base>=vs_top){vs_top=sup;goto T1477;}
3809            V382= vs_base[0];
3810            vs_base++;
3811            if(vs_base>=vs_top){vs_top=sup;goto T1478;}
3812            V383= vs_base[0];
3813          vs_top=sup;          vs_top=sup;
3814          V311= vs_base[0];          goto T1479;
3815          base[0]= list(4,/* INLINE-ARGS */V310,Cnil,Cnil,list(2,(V308),list(2,V311,(V308))));  T1476:;
3816            V381= Cnil;
3817    T1477:;
3818            V382= Cnil;
3819    T1478:;
3820            V383= Cnil;
3821    T1479:;
3822            if(((V382))==Cnil){
3823            goto T1481;}
3824            if(!(number_compare((V383),small_fixnum(1))<=0)){
3825            goto T1481;}
3826            base[0]= listA(6,Ct,Cnil,Cnil,Cnil,(number_compare((V383),small_fixnum(0))<=0?Ct:Cnil),VV[193]);
3827          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3828          return;}          return;
3829    T1481:;
3830            {register object V384;
3831            base[1]= VV[194];
3832            vs_top=(vs_base=base+1)+1;
3833            (void) (*Lnk324)();
3834            vs_top=sup;
3835            base[0]= vs_base[0];
3836            base[1]= (V381);
3837            base[2]= (V380);
3838            vs_top=(vs_base=base+0)+3;
3839            (void) (*Lnk355)();
3840            vs_top=sup;
3841            V384= vs_base[0];
3842            if(((V382))==Cnil){
3843            goto T1491;}
3844            V385= list(2,VV[36],list(2,VV[195],list(3,VV[11],(V384),list(2,VV[196],(V384)))));
3845            base[0]= make_cons(/* INLINE-ARGS */V385,VV[197]);
3846            vs_top=(vs_base=base+0)+1;
3847            return;
3848    T1491:;
3849            V386= list(2,VV[198],list(3,VV[11],(V384),list(2,VV[196],(V384))));
3850            base[0]= make_cons(/* INLINE-ARGS */V386,VV[199]);
3851            vs_top=(vs_base=base+0)+1;
3852            return;}}}
3853  }  }
3854  /*      function definition for LOOP-WHEN-IT-VARIABLE   */  /*      function definition for LOOP-WHEN-IT-VARIABLE   */
3855    
3856  static L55()  static L85()
3857  {register object *base=vs_base;  {register object *base=vs_base;
3858          register object *sup=base+VM55; VC55          register object *sup=base+VM73; VC73
3859          vs_reserve(VM55);          vs_check;
         check_arg(0);  
3860          vs_top=sup;          vs_top=sup;
3861  TTL:;  TTL:;
3862          if(symbol_value(VV[63])!=Cnil){          if((VV[115]->s.s_dbind)!=Cnil){
3863          base[0]= symbol_value(VV[63]);          base[0]= (VV[115]->s.s_dbind);
3864          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3865          return;}          return;}
3866          base[1]= VV[151];          base[1]= VV[200];
3867          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3868          Lgentemp();          (void) (*Lnk324)();
3869          vs_top=sup;          vs_top=sup;
3870          base[0]= vs_base[0];          base[0]= vs_base[0];
3871          base[1]= Cnil;          base[1]= Cnil;
3872          base[2]= Cnil;          base[2]= Cnil;
3873          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
3874          (void) (*Lnk236)();          (void) (*Lnk355)();
3875          vs_top=sup;          vs_top=sup;
3876          setq(VV[63],vs_base[0]);          (VV[115]->s.s_dbind)= vs_base[0];
3877          base[0]= symbol_value(VV[63]);          base[0]= (VV[115]->s.s_dbind);
3878          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3879          return;          return;
3880  }  }
3881  /*      function definition for LOOP-FOR-EQUALS */  /*      function definition for LOOP-ANSI-FOR-EQUALS    */
3882    
3883  static L56()  static L86()
3884  {register object *base=vs_base;  {register object *base=vs_base;
3885          register object *sup=base+VM56; VC56          register object *sup=base+VM74; VC74
3886          vs_reserve(VM56);          vs_check;
3887          {register object V312;          {register object V387;
3888          object V313;          object V388;
3889          object V314;          object V389;
3890          check_arg(3);          V387=(base[0]);
3891          V312=(base[0]);          V388=(base[1]);
3892          V313=(base[1]);          V389=(base[2]);
         V314=(base[2]);  
3893          vs_top=sup;          vs_top=sup;
3894  TTL:;  TTL:;
3895          base[3]= car(symbol_value(VV[46]));          base[3]= (V387);
3896          base[4]= VV[152];          base[4]= Cnil;
3897            base[5]= (V389);
3898            vs_top=(vs_base=base+3)+3;
3899            (void) (*Lnk376)();
3900            vs_top=sup;
3901            base[3]= CMPcar((VV[89]->s.s_dbind));
3902            base[4]= VV[201];
3903          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3904          (void) (*Lnk244)();          (void) (*Lnk353)();
3905          vs_top=sup;          vs_top=sup;
3906          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3907          goto T1373;}          goto T1503;}
3908          {object V315;          vs_base=vs_top;
3909          V315= car(symbol_value(VV[46]));          (void) (*Lnk346)();
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         base[3]= (V312);  
         base[4]= (V313);  
         base[5]= (V314);  
         vs_top=(vs_base=base+3)+3;  
         (void) (*Lnk257)();  
3910          vs_top=sup;          vs_top=sup;
3911          base[3]= list(5,VV[144],(V312),VV[131],(V313),VV[152]);          vs_base=vs_top;
3912          vs_top=(vs_base=base+3)+1;          (void) (*Lnk357)();
         (void) (*Lnk250)();  
3913          vs_top=sup;          vs_top=sup;
3914          V316= vs_base[0];          V390= vs_base[0];
3915          base[3]= listA(3,Cnil,list(2,(V312),V316),VV[153]);          V391= list(2,(V387),V390);
3916            base[3]= listA(7,Cnil,/* INLINE-ARGS */V391,Cnil,Cnil,Cnil,list(2,(V387),(V388)),VV[202]);
3917          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3918          return;          return;
3919  T1373:;  T1503:;
3920          base[3]= (V312);          base[3]= listA(3,Cnil,list(2,(V387),(V388)),VV[203]);
3921            vs_top=(vs_base=base+3)+1;
3922            return;
3923            }
3924    }
3925    /*      function definition for LOOP-FOR-ACROSS */
3926    
3927    static L87()
3928    {register object *base=vs_base;
3929            register object *sup=base+VM75; VC75
3930            vs_check;
3931            {object V392;
3932            object V393;
3933            object V394;
3934            V392=(base[0]);
3935            V393=(base[1]);
3936            V394=(base[2]);
3937            vs_top=sup;
3938    TTL:;
3939            base[3]= (V392);
3940          base[4]= Cnil;          base[4]= Cnil;
3941          base[5]= (V314);          base[5]= (V394);
3942          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
3943          (void) (*Lnk257)();          (void) (*Lnk376)();
3944          vs_top=sup;          vs_top=sup;
3945          {object V317;          {object V395;
3946          V317= list(2,(V312),(V313));          register object V396;
3947          if((symbol_value(VV[59]))==Cnil){          base[3]= VV[204];
         goto T1393;}  
         base[4]= (V317);  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk227)();  
         vs_top=sup;  
         base[3]= vs_base[0];  
3948          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3949          (void) (*Lnk249)();          (void) (*Lnk324)();
3950          vs_top=sup;          vs_top=sup;
3951          base[3]= VV[154];          V395= vs_base[0];
3952          vs_top=(vs_base=base+3)+1;          base[3]= VV[205];
         return;  
 T1393:;  
         {object V318;  
         V318= listA(3,Cnil,(V317),VV[155]);  
         if(((V318))==Cnil){  
         goto T1400;}  
         base[3]= (V318);  
         vs_top=(vs_base=base+3)+1;  
         return;  
 T1400:;  
         base[3]= Cnil;  
3953          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3954          return;}}          (void) (*Lnk324)();
3955            vs_top=sup;
3956            V396= vs_base[0];
3957            {register object V397;
3958            object V398;
3959            object V399;
3960            base[3]= (V393);
3961            base[4]= VV[206];
3962            vs_top=(vs_base=base+3)+2;
3963            (void) (*Lnk375)();
3964            if(vs_base>=vs_top){vs_top=sup;goto T1520;}
3965            V397= vs_base[0];
3966            vs_base++;
3967            if(vs_base>=vs_top){vs_top=sup;goto T1521;}
3968            V398= vs_base[0];
3969            vs_base++;
3970            if(vs_base>=vs_top){vs_top=sup;goto T1522;}
3971            V399= vs_base[0];
3972            vs_top=sup;
3973            goto T1523;
3974    T1520:;
3975            V397= Cnil;
3976    T1521:;
3977            V398= Cnil;
3978    T1522:;
3979            V399= Cnil;
3980    T1523:;
3981            base[3]= (V395);
3982            base[4]= (V397);
3983            if(!(type_of((V397))==t_cons)){
3984            goto T1529;}
3985            if(!((CMPcar((V397)))==(VV[192]))){
3986            goto T1529;}
3987            base[5]= CMPcadr((V397));
3988            goto T1527;
3989    T1529:;
3990            base[5]= VV[206];
3991    T1527:;
3992            vs_top=(vs_base=base+3)+3;
3993            (void) (*Lnk355)();
3994            vs_top=sup;
3995            base[3]= (V396);
3996            base[4]= small_fixnum(0);
3997            base[5]= VV[207];
3998            vs_top=(vs_base=base+3)+3;
3999            (void) (*Lnk355)();
4000            vs_top=sup;
4001            {int V400;
4002            object V401;
4003            register object V402;
4004            object V403;
4005            object V404;
4006            object V405;
4007            V400= 0;
4008            if(((V398))!=Cnil){
4009            goto T1540;}
4010            {object V406;
4011            base[7]= VV[208];
4012            vs_top=(vs_base=base+7)+1;
4013            (void) (*Lnk324)();
4014            vs_top=sup;
4015            V406= vs_base[0];
4016            V407= list(3,VV[11],(V406),list(2,VV[209],(V395)));
4017            (VV[105]->s.s_dbind)= make_cons(/* INLINE-ARGS */V407,(VV[105]->s.s_dbind));
4018            base[7]= (V406);
4019            base[8]= small_fixnum(0);
4020            base[9]= VV[207];
4021            vs_top=(vs_base=base+7)+3;
4022            (void) (*Lnk355)();
4023            vs_top=sup;
4024            V401= vs_base[0];
4025            goto T1538;}
4026    T1540:;
4027            V400= length((V399));
4028            V401= CMPmake_fixnum(V400);
4029    T1538:;
4030            V402= list(3,VV[210],(V396),(V401));
4031            V403= (V402);
4032            V404= list(2,(V392),list(3,VV[211],(V395),(V396)));
4033            V405= list(2,(V396),list(2,VV[177],(V396)));
4034            if(((V398))==Cnil){
4035            goto T1554;}
4036            V402= ((V400)==(0)?Ct:Cnil);
4037            if(!((V400)<=(1))){
4038            goto T1554;}
4039            V403= Ct;
4040    T1554:;
4041            if(((((V402))==((V403))?Ct:Cnil))==Cnil){
4042            goto T1563;}
4043            V408= Cnil;
4044            goto T1562;
4045    T1563:;
4046            V408= list(4,(V402),(V404),Cnil,(V405));
4047    T1562:;
4048            base[7]= listA(5,(V403),(V404),Cnil,(V405),V408);
4049            vs_top=(vs_base=base+7)+1;
4050            return;}}}
4051          }          }
4052  }  }
4053  /*      function definition for LOOP-FOR-FIRST  */  /*      function definition for LOOP-LIST-STEP  */
4054    
4055  static L57()  static L88()
4056  {register object *base=vs_base;  {register object *base=vs_base;
4057          register object *sup=base+VM57; VC57          register object *sup=base+VM76; VC76
4058          vs_reserve(VM57);          vs_check;
4059          {register object V319;          {object V409;
4060          object V320;          V409=(base[0]);
         object V321;  
         check_arg(3);  
         V319=(base[0]);  
         V320=(base[1]);  
         V321=(base[2]);  
4061          vs_top=sup;          vs_top=sup;
4062  TTL:;{object V322;  TTL:;
4063          base[3]= car(symbol_value(VV[46]));          {register object V410;
4064          base[4]= VV[152];          base[1]= CMPcar((VV[89]->s.s_dbind));
4065          vs_top=(vs_base=base+3)+2;          base[2]= VV[212];
4066          (void) (*Lnk244)();          vs_top=(vs_base=base+1)+2;
4067            (void) (*Lnk353)();
4068          vs_top=sup;          vs_top=sup;
4069          V322= vs_base[0];          if((vs_base[0])==Cnil){
4070          if(V322==Cnil)goto T1403;          goto T1567;}
4071          goto T1402;          vs_base=vs_top;
4072  T1403:;}          (void) (*Lnk346)();
         base[3]= VV[2];  
         base[4]= VV[156];  
         base[5]= car(symbol_value(VV[46]));  
         vs_top=(vs_base=base+3)+3;  
         Lerror();  
4073          vs_top=sup;          vs_top=sup;
4074  T1402:;          vs_base=vs_top;
4075          {object V323;          (void) (*Lnk357)();
         V323= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         base[3]= (V319);  
         base[4]= Cnil;  
         base[5]= (V321);  
         vs_top=(vs_base=base+3)+3;  
         (void) (*Lnk257)();  
4076          vs_top=sup;          vs_top=sup;
4077          base[3]= list(5,VV[144],(V319),VV[157],(V320),VV[152]);          V410= vs_base[0];
4078          vs_top=(vs_base=base+3)+1;          goto T1565;
4079          (void) (*Lnk250)();  T1567:;
4080            V410= VV[213];
4081    T1565:;
4082            if(!(type_of((V410))==t_cons)){
4083            goto T1573;}
4084            if(!((CMPcar((V410)))==(VV[214]))){
4085            goto T1573;}
4086            base[1]= VV[215];
4087            vs_top=(vs_base=base+1)+1;
4088            (void) (*Lnk335)();
4089          vs_top=sup;          vs_top=sup;
4090          V324= vs_base[0];          base[1]= list(3,VV[216],(V410),(V409));
4091          V325= list(2,(V319),V324);          base[2]= Cnil;
4092          base[3]= listA(7,Cnil,/* INLINE-ARGS */V325,Cnil,Cnil,Cnil,list(2,(V319),(V320)),VV[158]);          vs_top=(vs_base=base+1)+2;
         vs_top=(vs_base=base+3)+1;  
4093          return;          return;
4094    T1573:;
4095            if(!(type_of((V410))==t_cons)){
4096            goto T1582;}
4097            if(!((CMPcar((V410)))==(VV[83]))){
4098            goto T1582;}
4099            base[1]= list(2,CMPcadr((V410)),(V409));
4100            base[2]= CMPcadr((V410));
4101            vs_top=(vs_base=base+1)+2;
4102            return;
4103    T1582:;
4104            base[3]= VV[217];
4105            vs_top=(vs_base=base+3)+1;
4106            (void) (*Lnk324)();
4107            vs_top=sup;
4108            base[2]= vs_base[0];
4109            base[3]= (V410);
4110            base[4]= VV[83];
4111            vs_top=(vs_base=base+2)+3;
4112            (void) (*Lnk355)();
4113            vs_top=sup;
4114            V411= vs_base[0];
4115            base[1]= list(3,VV[216],V411,(V409));
4116            base[2]= Cnil;
4117            vs_top=(vs_base=base+1)+2;
4118            return;}
4119          }          }
4120  }  }
4121  /*      function definition for LOOP-LIST-STEPPER       */  /*      function definition for LOOP-FOR-ON     */
4122    
4123  static L58()  static L89()
4124  {register object *base=vs_base;  {register object *base=vs_base;
4125          register object *sup=base+VM58; VC58          register object *sup=base+VM77; VC77
4126          vs_reserve(VM58);          vs_check;
4127          {register object V326;          {register object V412;
4128          object V327;          object V413;
4129          object V328;          object V414;
4130          object V329;          V412=(base[0]);
4131          check_arg(4);          V413=(base[1]);
4132          V326=(base[0]);          V414=(base[2]);
         V327=(base[1]);  
         V328=(base[2]);  
         V329=(base[3]);  
4133          vs_top=sup;          vs_top=sup;
4134  TTL:;  TTL:;
4135          {register object V330;          {object V415;
4136          register object V331;          object V416;
4137          object V332;          object V417;
4138          object V333;          base[3]= (V413);
4139          register object V334;          vs_top=(vs_base=base+3)+1;
4140          register object V335;          (void) (*Lnk375)();
4141          base[4]= car(symbol_value(VV[46]));          if(vs_base>=vs_top){vs_top=sup;goto T1597;}
4142          base[5]= VV[159];          V415= vs_base[0];
4143          vs_top=(vs_base=base+4)+2;          vs_base++;
4144          (void) (*Lnk244)();          if(vs_base>=vs_top){vs_top=sup;goto T1598;}
4145            V416= vs_base[0];
4146            vs_base++;
4147            if(vs_base>=vs_top){vs_top=sup;goto T1599;}
4148            V417= vs_base[0];
4149          vs_top=sup;          vs_top=sup;
4150          if((vs_base[0])==Cnil){          goto T1600;
4151          goto T1422;}  T1597:;
4152          {object V336;          V415= Cnil;
4153          V336= car(symbol_value(VV[46]));  T1598:;
4154          setq(VV[46],cdr(symbol_value(VV[46])));}          V416= Cnil;
4155          if(!(((V329))==(VV[20]))){  T1599:;
4156          goto T1433;}          V417= Cnil;
4157          V337= VV[160];  T1600:;
4158          goto T1431;          {register object V418;
4159  T1433:;          V418= (V412);
4160          V337= VV[161];          if(((V412))==Cnil){
4161  T1431:;          goto T1603;}
4162          base[4]= list(5,VV[144],(V326),V337,(V327),VV[159]);          if(!(type_of((V412))==t_symbol)){
4163          vs_top=(vs_base=base+4)+1;          goto T1603;}
4164          (void) (*Lnk250)();          base[3]= (V412);
4165            base[4]= (V415);
4166            base[5]= (V414);
4167            vs_top=(vs_base=base+3)+3;
4168            (void) (*Lnk376)();
4169          vs_top=sup;          vs_top=sup;
4170          V330= vs_base[0];          goto T1601;
4171          goto T1420;  T1603:;
4172  T1422:;          vs_base=vs_top;
4173          V330= VV[162];          (void) (*Lnk324)();
 T1420:;  
         V331= Cnil;  
         V332= Cnil;  
         V333= Cnil;  
         V334= Cnil;  
         V335= Cnil;  
         if(type_of((V330))!=t_cons){  
         goto T1437;}  
         {register object x= car((V330)),V338= VV[163];  
         while(!endp(V338))  
         if(eql(x,V338->c.c_car)){  
         goto T1438;  
         }else V338=V338->c.c_cdr;}  
 T1437:;  
         base[4]= VV[165];  
         vs_top=(vs_base=base+4)+1;  
         Lgentemp();  
4174          vs_top=sup;          vs_top=sup;
4175          V332= vs_base[0];          V418= vs_base[0];
4176          V333= list(2,VV[164],(V332));          base[3]= (V418);
4177          goto T1436;          base[4]= (V415);
4178  T1438:;          base[5]= VV[5];
4179          V333= make_cons(cadr((V330)),Cnil);          vs_top=(vs_base=base+3)+3;
4180  T1436:;          (void) (*Lnk355)();
         if(!(type_of((V326))!=t_cons)){  
         goto T1446;}  
         if(((V329))!=Cnil){  
         goto T1446;}  
         base[4]= (V326);  
         base[5]= (V327);  
         base[6]= (V328);  
         vs_top=(vs_base=base+4)+3;  
         (void) (*Lnk257)();  
4181          vs_top=sup;          vs_top=sup;
4182          V331= vs_base[0];          base[3]= (V412);
4183          goto T1444;          base[4]= Cnil;
4184  T1446:;          base[5]= (V414);
4185          base[4]= (V326);          vs_top=(vs_base=base+3)+3;
4186          base[5]= Cnil;          (void) (*Lnk376)();
         base[6]= (V328);  
         vs_top=(vs_base=base+4)+3;  
         (void) (*Lnk257)();  
4187          vs_top=sup;          vs_top=sup;
4188          base[5]= VV[166];  T1601:;
4189          vs_top=(vs_base=base+5)+1;          {object V419;
4190          Lgentemp();          object V420;
4191            base[3]= (V418);
4192            vs_top=(vs_base=base+3)+1;
4193            (void) (*Lnk377)();
4194            if(vs_base>=vs_top){vs_top=sup;goto T1620;}
4195            V419= vs_base[0];
4196            vs_base++;
4197            if(vs_base>=vs_top){vs_top=sup;goto T1621;}
4198            V420= vs_base[0];
4199          vs_top=sup;          vs_top=sup;
4200          base[4]= vs_base[0];          goto T1622;
4201          base[5]= (V327);  T1620:;
4202          base[6]= Cnil;          V419= Cnil;
4203    T1621:;
4204            V420= Cnil;
4205    T1622:;
4206            {register object V421;
4207            object V422;
4208            base[4]= (((V412))==((V418))?Ct:Cnil);
4209            base[5]= (V418);
4210            base[6]= list(2,VV[218],(V418));
4211          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4212          (void) (*Lnk236)();          (void) (*Lnk328)();
4213          vs_top=sup;          vs_top=sup;
4214          V331= vs_base[0];          V421= vs_base[0];
4215          if(((V329))==Cnil){          V422= (V421);
4216          goto T1467;}          if(((V416))==Cnil){
4217          V339= list(2,(V329),(V331));          goto T1628;}
4218          goto T1465;          if(!(type_of((V417))==t_cons||((V417))==Cnil)){
4219  T1467:;          goto T1628;}
4220          V339= (V331);          V421= (((V417))==Cnil?Ct:Cnil);
4221  T1465:;  T1628:;
4222          V335= list(2,(V326),V339);          if(!(((V412))==((V418)))){
4223  T1444:;          goto T1635;}
4224          base[4]= (V333);          base[4]= Ct;
4225          vs_top=(vs_base=base+4)+1;          base[5]= (V418);
4226          Llast();          base[6]= (V419);
         vs_top=sup;  
         V340= vs_base[0];  
         V341= make_cons((V331),Cnil);  
         if(type_of(V340)!=t_cons)FEwrong_type_argument(Scons,V340);  
         (V340)->c.c_cdr = /* INLINE-ARGS */V341;  
         if((V332)==Cnil){  
         goto T1472;}  
         base[4]= (V332);  
         base[5]= (V330);  
         base[6]= Cnil;  
4227          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4228          (void) (*Lnk236)();          (void) (*Lnk328)();
4229          vs_top=sup;          vs_top=sup;
4230  T1472:;          V423= vs_base[0];
4231          V330= list(2,(V331),(V333));          base[4]= list(8,Cnil,list(2,(V418),V423),(V422),Cnil,Cnil,Cnil,(V421),Cnil);
         V334= list(2,VV[167],(V331));  
         if(((V335))!=Cnil){  
         goto T1481;}  
         base[4]= list(8,Cnil,(V330),(V334),Cnil,Cnil,Cnil,(V334),Cnil);  
4232          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4233          return;          return;
4234  T1481:;  T1635:;
4235          if(!((car((V333)))==(VV[21]))){          {object V424;
4236          goto T1484;}          object V425;
4237          base[4]= list(4,(V334),(V335),Cnil,(V330));          V424= list(2,(V412),(V418));
4238          vs_top=(vs_base=base+4)+1;          V425= list(2,(V418),(V419));
4239          return;          if(((((V421))==((V422))?Ct:Cnil))==Cnil){
4240  T1484:;          goto T1644;}
4241          base[4]= list(8,list(2,VV[167],make_cons(VV[15],(V330))),Cnil,Cnil,(V335),(V334),Cnil,Cnil,(V335));          V426= Cnil;
4242            goto T1643;
4243    T1644:;
4244            V426= list(4,(V421),(V424),Cnil,(V425));
4245    T1643:;
4246            base[4]= listA(5,(V422),(V424),Cnil,(V425),V426);
4247          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4248          return;}          return;}}}}}
4249          }          }
4250  }  }
4251  /*      function definition for LOOP-FOR-ARITHMETIC     */  /*      function definition for LOOP-FOR-IN     */
4252    
4253  static L59()  static L90()
4254  {register object *base=vs_base;  {register object *base=vs_base;
4255          register object *sup=base+VM59; VC59          register object *sup=base+VM78; VC78
4256          vs_reserve(VM59);          vs_check;
4257          {object V342;          {object V427;
4258          object V343;          object V428;
4259          object V344;          object V429;
4260          object V345;          V427=(base[0]);
4261          check_arg(4);          V428=(base[1]);
4262          V342=(base[0]);          V429=(base[2]);
         V343=(base[1]);  
         V344=(base[2]);  
         V345=(base[3]);  
4263          vs_top=sup;          vs_top=sup;
4264  TTL:;  TTL:;
4265          base[4]= (V342);          {object V430;
4266          if((V344)!=Cnil){          object V431;
4267          base[5]= (V344);          object V432;
4268          goto T1487;}          base[3]= (V428);
4269          base[5]= VV[110];          vs_top=(vs_base=base+3)+1;
4270  T1487:;          (void) (*Lnk375)();
4271          base[6]= Cnil;          if(vs_base>=vs_top){vs_top=sup;goto T1648;}
4272          base[7]= Cnil;          V430= vs_base[0];
4273          base[8]= Cnil;          vs_base++;
4274          base[9]= Cnil;          if(vs_base>=vs_top){vs_top=sup;goto T1649;}
4275          base[10]= Cnil;          V431= vs_base[0];
4276          base[11]= Cnil;          vs_base++;
4277          base[12]= list(4,VV[144],(V342),(V345),(V343));          if(vs_base>=vs_top){vs_top=sup;goto T1650;}
4278          V346= list(2,(V345),(V343));          V432= vs_base[0];
         base[14]= VV[168];  
         base[15]= Cnil;  
         vs_top=(vs_base=base+14)+2;  
         (void) (*Lnk263)();  
4279          vs_top=sup;          vs_top=sup;
4280          V347= vs_base[0];          goto T1651;
4281          base[13]= make_cons(/* INLINE-ARGS */V346,V347);  T1648:;
4282          vs_top=(vs_base=base+4)+10;          V430= Cnil;
4283          (void) (*Lnk264)();  T1649:;
4284            V431= Cnil;
4285    T1650:;
4286            V432= Cnil;
4287    T1651:;
4288            {register object V433;
4289            base[3]= VV[219];
4290            vs_top=(vs_base=base+3)+1;
4291            (void) (*Lnk324)();
4292            vs_top=sup;
4293            V433= vs_base[0];
4294            base[3]= (V427);
4295            base[4]= Cnil;
4296            base[5]= (V429);
4297            vs_top=(vs_base=base+3)+3;
4298            (void) (*Lnk376)();
4299            vs_top=sup;
4300            base[3]= (V433);
4301            base[4]= (V430);
4302            base[5]= VV[5];
4303            vs_top=(vs_base=base+3)+3;
4304            (void) (*Lnk355)();
4305            vs_top=sup;
4306            {object V434;
4307            object V435;
4308            base[3]= (V433);
4309            vs_top=(vs_base=base+3)+1;
4310            (void) (*Lnk377)();
4311            if(vs_base>=vs_top){vs_top=sup;goto T1664;}
4312            V434= vs_base[0];
4313            vs_base++;
4314            if(vs_base>=vs_top){vs_top=sup;goto T1665;}
4315            V435= vs_base[0];
4316            vs_top=sup;
4317            goto T1666;
4318    T1664:;
4319            V434= Cnil;
4320    T1665:;
4321            V435= Cnil;
4322    T1666:;
4323            {register object V436;
4324            object V437;
4325            object V438;
4326            object V439;
4327            V436= list(2,VV[220],(V433));
4328            V437= (V436);
4329            V438= list(2,(V427),list(2,VV[65],(V433)));
4330            V439= list(2,(V433),(V434));
4331            if(((V431))==Cnil){
4332            goto T1671;}
4333            if(!(type_of((V432))==t_cons||((V432))==Cnil)){
4334            goto T1671;}
4335            V436= (((V432))==Cnil?Ct:Cnil);
4336    T1671:;
4337            if(((((V436))==((V437))?Ct:Cnil))==Cnil){
4338            goto T1678;}
4339            V440= Cnil;
4340            goto T1677;
4341    T1678:;
4342            V440= list(4,(V436),(V438),Cnil,(V439));
4343    T1677:;
4344            base[6]= listA(5,(V437),(V438),Cnil,(V439),V440);
4345            vs_top=(vs_base=base+6)+1;
4346            return;}}}}
4347            }
4348    }
4349    /*      function definition for MAKE-LOOP-PATH  */
4350    
4351    static L91()
4352    {register object *base=vs_base;
4353            register object *sup=base+VM79; VC79
4354            vs_check;
4355            {object V441;
4356            object V442;
4357            object V443;
4358            object V444;
4359            object V445;
4360            parse_key(vs_base,FALSE,FALSE,5,VV[223],VV[226],VV[227],VV[224],VV[225]);
4361            vs_top=sup;
4362            V441=(base[0]);
4363            V442=(base[1]);
4364            V443=(base[2]);
4365            V444=(base[3]);
4366            V445=(base[4]);
4367            base[10]= VV[221];
4368            base[11]= (V441);
4369            base[12]= (V442);
4370            base[13]= (V443);
4371            base[14]= (V444);
4372            base[15]= (V445);
4373            vs_top=(vs_base=base+10)+6;
4374            siLmake_structure();
4375          return;          return;
4376          }          }
4377  }  }
4378  /*      function definition for LOOP-NAMED-VARIABLE     */  /*      function definition for ADD-LOOP-PATH   */
4379    
4380  static L60()  static L92()
4381  {register object *base=vs_base;  {register object *base=vs_base;
4382          register object *sup=base+VM60; VC60          register object *sup=base+VM80; VC80
4383          vs_reserve(VM60);          vs_check;
4384          {object V348;          bds_check;
4385          check_arg(1);          {object V446;
4386          V348=(base[0]);          object V447;
4387            register object V448;
4388            object V449;
4389            object V450;
4390            object V451;
4391            parse_key(vs_base+3,FALSE,FALSE,3,VV[226],VV[227],VV[225]);
4392            V446=(base[0]);
4393            V447=(base[1]);
4394            V448=(base[2]);
4395            vs_top=sup;
4396            V449=(base[3]);
4397            V450=(base[4]);
4398            V451=(base[5]);
4399            if(type_of((V446))==t_cons||((V446))==Cnil){
4400            goto T1686;}
4401            V446= make_cons((V446),Cnil);
4402    T1686:;
4403            bds_bind(VV[44],small_fixnum(4));
4404            bds_bind(VV[45],small_fixnum(4));
4405    T1692:;
4406            base[11]= (V448);
4407            base[12]= VV[39];
4408            vs_top=(vs_base=base+11)+2;
4409            (void) (*Lnk378)();
4410          vs_top=sup;          vs_top=sup;
4411  TTL:;          if((vs_base[0])==Cnil){
4412          {object V349;          goto T1693;}
4413          base[1]= (V348);          bds_unwind1;
4414          base[2]= symbol_value(VV[51]);          bds_unwind1;
4415          vs_top=(vs_base=base+1)+2;          goto T1690;
4416          (void) (*Lnk231)();  T1693:;
4417            base[11]= VV[47];
4418            base[12]= VV[48];
4419            base[13]= VV[222];
4420            base[14]= (V448);
4421            base[15]= VV[39];
4422            vs_top=(vs_base=base+11)+5;
4423            Lcerror();
4424            vs_top=sup;
4425            base[11]= (VV[50]->s.s_dbind);
4426            base[12]= VV[51];
4427            base[13]= VV[222];
4428            vs_top=(vs_base=base+11)+3;
4429            Lformat();
4430          vs_top=sup;          vs_top=sup;
4431          V349= vs_base[0];          base[11]= (VV[50]->s.s_dbind);
4432          if(((V349))!=Cnil){          vs_top=(vs_base=base+11)+1;
4433          goto T1503;}          Lfinish_output();
4434          base[1]= VV[112];          vs_top=sup;
4435          vs_top=(vs_base=base+1)+1;          vs_base=vs_top;
4436          Lgentemp();          Lread();
4437          return;          vs_top=sup;
4438  T1503:;          V448= vs_base[0];
4439          setq(VV[51],(VFUN_NARGS=2,(*(LnkLI234))((V349),symbol_value(VV[51]))));          base[11]= (VV[50]->s.s_dbind);
4440          base[1]= cdr((V349));          base[12]= VV[52];
4441          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+11)+2;
4442            Lformat();
4443            vs_top=sup;
4444            goto T1692;
4445    T1690:;
4446            {object V452;
4447            object V453;
4448            V452= STREF(object,(V448),12);
4449            base[9]= VV[223];
4450            {object V454;
4451            object V455= (V446);
4452            if(V455==Cnil){
4453            base[10]= Cnil;
4454            goto T1721;}
4455            base[11]=V454=MMcons(Cnil,Cnil);
4456    T1722:;
4457            (V454->c.c_car)= symbol_name((V455->c.c_car));
4458            if((V455=MMcdr(V455))==Cnil){
4459            base[10]= base[11];
4460            goto T1721;}
4461            V454=MMcdr(V454)=MMcons(Cnil,Cnil);
4462            goto T1722;}
4463    T1721:;
4464            base[11]= VV[224];
4465            base[12]= (V447);
4466            base[13]= VV[225];
4467            base[14]= (V451);
4468            base[15]= VV[226];
4469            {object V456;
4470            object V457= (V449);
4471            if(V457==Cnil){
4472            base[16]= Cnil;
4473            goto T1729;}
4474            base[17]=V456=MMcons(Cnil,Cnil);
4475    T1730:;
4476            if(!(type_of((V457->c.c_car))==t_cons||((V457->c.c_car))==Cnil)){
4477            goto T1733;}
4478            (V456->c.c_car)= (V457->c.c_car);
4479            goto T1731;
4480    T1733:;
4481            (V456->c.c_car)= make_cons((V457->c.c_car),Cnil);
4482    T1731:;
4483            if((V457=MMcdr(V457))==Cnil){
4484            base[16]= base[17];
4485            goto T1729;}
4486            V456=MMcdr(V456)=MMcons(Cnil,Cnil);
4487            goto T1730;}
4488    T1729:;
4489            base[17]= VV[227];
4490            base[18]= (V450);
4491            vs_top=(vs_base=base+9)+10;
4492            (void) (*Lnk379)();
4493            vs_top=sup;
4494            V453= vs_base[0];
4495            {register object V459;
4496            register object V460;
4497            V459= (V446);
4498            V460= CMPcar((V459));
4499    T1741:;
4500            if(!(((V459))==Cnil)){
4501            goto T1742;}
4502            goto T1737;
4503    T1742:;
4504            {register object V461;
4505            register object V462;
4506            register object V463;
4507            V461= symbol_name((V460));
4508            V462= (V452);
4509            V463= (V453);
4510            base[11]= (V461);
4511            base[12]= (V462);
4512            base[13]= (V463);
4513            vs_top=(vs_base=base+11)+3;
4514            siLhash_set();
4515            vs_top=sup;}
4516            V459= CMPcdr((V459));
4517            V460= CMPcar((V459));
4518            goto T1741;}
4519    T1737:;
4520            base[9]= (V453);
4521            vs_top=(vs_base=base+9)+1;
4522          return;}          return;}
4523          }          }
4524  }  }
4525  /*      function definition for LOOP-FOR-BEING  */  /*      function definition for LOOP-FOR-BEING  */
4526    
4527  static L61()  static L93()
4528  {register object *base=vs_base;  {register object *base=vs_base;
4529          register object *sup=base+VM61; VC61          register object *sup=base+VM81; VC81
4530          vs_reserve(VM61);          vs_check;
4531          {object V350;          {object V464;
4532          register object V351;          object V465;
4533          object V352;          object V466;
4534          check_arg(3);          V464=(base[0]);
4535          V350=(base[0]);          V465=(base[1]);
4536          V351=(base[1]);          V466=(base[2]);
4537          V352=(base[2]);          vs_top=sup;
4538          vs_top=sup;  TTL:;
4539  TTL:;          {register object V467;
4540          {register object V353;          object V468;
4541          object V354;          object V469;
4542          object V355;          object V470;
4543          object V356;          object V471;
4544          object V357;          V467= Cnil;
4545          V353= Cnil;          V468= Cnil;
4546          V354= Cnil;          V469= Cnil;
4547          V355= Cnil;          V470= Cnil;
4548          V356= Cnil;          V471= Cnil;
4549          V357= Cnil;          base[3]= (V465);
4550          base[3]= (V351);          base[4]= VV[228];
         base[4]= VV[169];  
4551          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4552          (void) (*Lnk244)();          (void) (*Lnk349)();
4553          vs_top=sup;          vs_top=sup;
4554          if((vs_base[0])!=Cnil){          if((vs_base[0])==Cnil){
4555          goto T1509;}          goto T1760;}
4556          base[3]= (V351);          vs_base=vs_top;
4557          base[4]= VV[170];          (void) (*Lnk346)();
4558            vs_top=sup;
4559            V467= vs_base[0];
4560            goto T1758;
4561    T1760:;
4562            base[3]= CMPcar((VV[89]->s.s_dbind));
4563            base[4]= VV[152];
4564          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4565          (void) (*Lnk244)();          (void) (*Lnk353)();
4566          vs_top=sup;          vs_top=sup;
4567          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4568          goto T1510;}          goto T1766;}
4569  T1509:;          vs_base=vs_top;
4570          V356= Ct;          (void) (*Lnk346)();
         V351= car(symbol_value(VV[46]));  
         goto T1508;  
 T1510:;  
         setq(VV[46],make_cons((V351),symbol_value(VV[46])));  
 T1508:;  
         base[3]= (V351);  
         base[4]= symbol_value(VV[171]);  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk231)();  
4571          vs_top=sup;          vs_top=sup;
4572          V353= vs_base[0];          V469= Ct;
4573          if(((V353))==Cnil){          base[3]= CMPcar((VV[89]->s.s_dbind));
4574          goto T1524;}          base[4]= VV[229];
         if(((V356))!=Cnil){  
         goto T1523;}  
         base[3]= cadr(symbol_value(VV[46]));  
         base[4]= VV[95];  
4575          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4576          (void) (*Lnk244)();          (void) (*Lnk349)();
4577          vs_top=sup;          vs_top=sup;
4578          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
4579          goto T1524;}          goto T1773;}
4580  T1523:;          base[3]= VV[230];
4581          {object V358;          base[4]= CMPcar((VV[89]->s.s_dbind));
         V358= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));  
         goto T1522;}  
 T1524:;  
         base[3]= list(3,VV[144],(V350),VV[172]);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk250)();  
         vs_top=sup;  
         V351= vs_base[0];  
         base[3]= car(symbol_value(VV[46]));  
         base[4]= VV[95];  
4582          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4583          (void) (*Lnk244)();          (void) (*Lnk343)();
4584          vs_top=sup;          vs_top=sup;
4585          if((vs_base[0])==Cnil){  T1773:;
4586          goto T1542;}          vs_base=vs_top;
4587          if(!(((V356))==Cnil)){          (void) (*Lnk346)();
         goto T1547;}  
         goto T1546;  
 T1547:;  
         base[3]= VV[2];  
         base[4]= VV[173];  
         base[5]= (V350);  
         vs_top=(vs_base=base+3)+3;  
         Lerror();  
4588          vs_top=sup;          vs_top=sup;
4589  T1546:;          vs_base=vs_top;
4590          V359= list(2,VV[174],(V351));          (void) (*Lnk346)();
         V355= make_cons(/* INLINE-ARGS */V359,Cnil);  
         V354= Ct;  
         {object V360;  
         V360= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}{object V361;  
         {object V362;  
         V362= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V353= (V362);}  
         base[3]= (V353);  
         base[4]= VV[175];  
         vs_top=(vs_base=base+3)+2;  
         (void) (*Lnk240)();  
4591          vs_top=sup;          vs_top=sup;
4592          V361= vs_base[0];          V467= vs_base[0];
4593          if(V361==Cnil)goto T1561;          V472= list(2,VV[231],(V465));
4594          goto T1560;          V471= make_cons(/* INLINE-ARGS */V472,Cnil);
4595  T1561:;}          goto T1758;
4596          base[3]= VV[2];  T1766:;
4597          base[4]= VV[176];          base[3]= VV[232];
4598          base[5]= (V353);          vs_top=(vs_base=base+3)+1;
4599          vs_top=(vs_base=base+3)+3;          (void) (*Lnk343)();
         Lerror();  
4600          vs_top=sup;          vs_top=sup;
4601  T1560:;  T1758:;
4602          base[3]= car(symbol_value(VV[46]));          if(type_of((V467))==t_symbol){
4603          base[4]= symbol_value(VV[171]);          goto T1787;}
4604            base[3]= VV[233];
4605            base[4]= (V467);
4606          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4607          (void) (*Lnk231)();          (void) (*Lnk343)();
4608          vs_top=sup;          vs_top=sup;
4609          V353= vs_base[0];          goto T1785;
4610          if(((V353))==Cnil){  T1787:;
4611          goto T1573;}          base[3]= (V467);
4612          {object V363;          base[4]= STREF(object,(VV[96]->s.s_dbind),12);
4613          V363= car(symbol_value(VV[46]));          vs_top=(vs_base=base+3)+2;
4614          setq(VV[46],cdr(symbol_value(VV[46])));          (void) (*Lnk347)();
         goto T1522;}  
 T1573:;  
         base[3]= listA(3,VV[144],(V350),VV[177]);  
         vs_top=(vs_base=base+3)+1;  
         (void) (*Lnk250)();  
4615          vs_top=sup;          vs_top=sup;
4616          V364= vs_base[0];          V468= vs_base[0];
4617          V357= list(2,VV[160],V364);          if(((V468))!=Cnil){
4618          V355= make_cons((V357),(V355));          goto T1792;}
4619          goto T1522;          base[3]= VV[234];
4620  T1542:;          base[4]= (V467);
         base[3]= car(symbol_value(VV[46]));  
         base[4]= symbol_value(VV[171]);  
4621          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4622          (void) (*Lnk231)();          (void) (*Lnk343)();
4623          vs_top=sup;          vs_top=sup;
4624          V353= vs_base[0];          goto T1785;
4625          if(((V353))!=Cnil){  T1792:;
4626          goto T1586;}          if(((V469))==Cnil){
4627          V357= list(2,VV[160],(V351));          goto T1785;}
4628          V355= make_cons((V357),Cnil);          if((STREF(object,(V468),8))!=Cnil){
4629          goto T1522;          goto T1785;}
4630  T1586:;          base[3]= VV[235];
4631          {object V365;          base[4]= (V467);
         V365= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}  
 T1522:;  
         {object V366;  
         V366= (((((V353))==Cnil?Ct:Cnil))==Cnil?Ct:Cnil);  
         if(((V366))==Cnil){  
         goto T1599;}  
         goto T1596;  
 T1599:;  
         base[3]= VV[178];  
         base[4]= symbol_value(VV[171]);  
4632          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4633          (void) (*Lnk231)();          (void) (*Lnk343)();
4634          vs_top=sup;          vs_top=sup;
4635          V353= vs_base[0];  T1785:;
4636          if(((V353))!=Cnil){          {object V473;
4637          goto T1596;}          object V474;
4638          base[3]= VV[2];          object V475;
4639          base[4]= VV[179];          V473= STREF(object,(V468),12);
4640          base[5]= cadr((V357));          base[3]= STREF(object,(V468),4);
4641          vs_top=(vs_base=base+3)+3;          base[4]= Ct;
4642          Lerror();          vs_top=(vs_base=base+3)+2;
4643          vs_top=sup;}          (void) (*Lnk380)();
 T1596:;  
         V367= cadr((V353));  
         V368= car((V353));  
         base[3]= (V355);  
         base[5]= caddr((V353));  
         base[6]= Ct;  
         vs_top=(vs_base=base+5)+2;  
         (void) (*Lnk263)();  
4644          vs_top=sup;          vs_top=sup;
4645          base[4]= vs_base[0];          V476= vs_base[0];
4646            V474= nconc((V471),V476);
4647            V475= STREF(object,(V468),16);
4648            if(!(type_of((V473))==t_symbol)){
4649            goto T1812;}
4650            base[3]= (V473);
4651            vs_top=(vs_base=base+3)+1;
4652            Lsymbol_function();
4653            vs_top=sup;
4654            V473= vs_base[0];
4655    T1812:;
4656            if(((V469))==Cnil){
4657            goto T1819;}
4658            base[3]= (V473);
4659            base[4]= (V464);
4660            base[5]= (V466);
4661            base[6]= (V474);
4662            base[7]= VV[236];
4663            base[8]= Ct;
4664            {object V477;
4665            V477= (V475);
4666             vs_top=base+9;
4667             while(V477!=Cnil)
4668             {vs_push((V477)->c.c_car);V477=(V477)->c.c_cdr;}
4669            vs_base=base+4;}
4670            super_funcall_no_event(base[3]);
4671            vs_top=sup;
4672            V470= vs_base[0];
4673            goto T1817;
4674    T1819:;
4675            base[3]= (V473);
4676            base[4]= (V464);
4677            base[5]= (V466);
4678            base[6]= (V474);
4679            {object V478;
4680            V478= (V475);
4681             vs_top=base+7;
4682             while(V478!=Cnil)
4683             {vs_push((V478)->c.c_car);V478=(V478)->c.c_cdr;}
4684            vs_base=base+4;}
4685            super_funcall_no_event(base[3]);
4686            vs_top=sup;
4687            V470= vs_base[0];
4688    T1817:;}
4689            if(((VV[101]->s.s_dbind))==Cnil){
4690            goto T1833;}
4691            base[3]= VV[237];
4692            base[4]= (VV[101]->s.s_dbind);
4693          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
4694          Lreconc();          (void) (*Lnk343)();
4695          vs_top=sup;          vs_top=sup;
4696          V369= vs_base[0];  T1833:;
4697          V353= (          V480 = CMPmake_fixnum(length((V470)));
4698          V370 = /* INLINE-ARGS */V367,          {register object x= V480,V479= VV[238];
4699          (type_of(V370) == t_sfun ?(*(object (*)())((V370)->sfn.sfn_self)):          while(V479!=Cnil)
4700          (fcall.fun=(V370),fcall.argd=7,fcalln))(/* INLINE-ARGS */V368,(V350),(V352),V369,(V354),caddr((V353)),cdddr((V353))));          if(eql(x,V479->c.c_car)){
4701          if(symbol_value(VV[51])==Cnil){          goto T1838;
4702          goto T1616;}          }else V479=V479->c.c_cdr;}
4703          base[3]= VV[2];          base[3]= VV[239];
4704          base[4]= VV[180];          base[4]= (V467);
4705          base[5]= symbol_value(VV[51]);          vs_top=(vs_base=base+3)+2;
4706          vs_top=(vs_base=base+3)+3;          (void) (*Lnk343)();
         Lerror();  
4707          vs_top=sup;          vs_top=sup;
4708  T1616:;  T1838:;
4709          setq(VV[51],Cnil);          {register object V481;
4710          {register object V371;          register object V482;
4711          register object V372;          V481= CMPcar((V470));
4712          V371= car((V353));          V482= Cnil;
4713          V372= Cnil;  T1846:;
4714  T1625:;          if(((V481))!=Cnil){
4715          if(((V371))!=Cnil){          goto T1847;}
4716          goto T1626;}          goto T1843;
4717          goto T1622;  T1847:;
4718  T1626:;          V482= CMPcar((V481));
4719          V372= car((V371));          if(!(type_of((V482))!=t_cons)){
4720          if(!(type_of((V372))!=t_cons)){          goto T1853;}
4721          goto T1632;}          base[3]= (V482);
         base[3]= (V372);  
4722          base[4]= Cnil;          base[4]= Cnil;
4723          base[5]= Cnil;          base[5]= Cnil;
4724          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4725          (void) (*Lnk257)();          (void) (*Lnk376)();
4726          vs_top=sup;          vs_top=sup;
4727          goto T1630;          goto T1851;
4728  T1632:;  T1853:;
4729          base[3]= car((V372));          base[3]= CMPcar((V482));
4730          base[4]= cadr((V372));          base[4]= CMPcadr((V482));
4731          base[5]= caddr((V372));          base[5]= CMPcaddr((V482));
4732          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+3)+3;
4733          (void) (*Lnk257)();          (void) (*Lnk376)();
4734          vs_top=sup;          vs_top=sup;
4735  T1630:;  T1851:;
4736          V371= cdr((V371));          V481= CMPcdr((V481));
4737          goto T1625;}          goto T1846;}
4738  T1622:;  T1843:;
4739          V373= reverse(cadr((V353)));          V483= reverse(CMPcadr((V470)));
4740          setq(VV[57],nconc(/* INLINE-ARGS */V373,symbol_value(VV[57])));          (VV[105]->s.s_dbind)= nconc(/* INLINE-ARGS */V483,(VV[105]->s.s_dbind));
4741          base[3]= cddr((V353));          base[3]= CMPcddr((V470));
4742          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4743          return;}          return;}
4744          }          }
4745  }  }
4746  /*      function definition for LOOP-GATHER-PREPS       */  /*      function definition for NAMED-VARIABLE  */
4747    
4748  static L62()  static L94()
4749  {register object *base=vs_base;  {register object *base=vs_base;
4750          register object *sup=base+VM62; VC62          register object *sup=base+VM82; VC82
4751          vs_reserve(VM62);          vs_check;
4752          {object V374;          {object V484;
4753          object V375;          V484=(base[0]);
         check_arg(2);  
         V374=(base[0]);  
         V375=(base[1]);  
4754          vs_top=sup;          vs_top=sup;
4755  TTL:;  TTL:;
4756          {register object V376;          {object V485;
4757          object V377;          base[1]= (V484);
4758          V376= car(symbol_value(VV[46]));          base[2]= (VV[101]->s.s_dbind);
4759          V377= Cnil;          vs_top=(vs_base=base+1)+2;
4760  T1648:;          (void) (*Lnk381)();
         base[2]= (V376);  
         base[3]= (V374);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk240)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T1653;}  
         {object V379;  
         V379= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));  
         V378= (V379);}  
         base[2]= list(5,VV[144],VV[181],VV[172],VV[181],(V376));  
         vs_top=(vs_base=base+2)+1;  
         (void) (*Lnk250)();  
         vs_top=sup;  
         V380= vs_base[0];  
         V381= list(2,V378,V380);  
         V377= make_cons(/* INLINE-ARGS */V381,(V377));  
         goto T1651;  
 T1653:;  
         base[2]= (V376);  
         base[3]= VV[182];  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk244)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T1665;}  
         {object V382;  
         V382= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         if((V375)!=Cnil){  
         goto T1673;}  
         base[2]= VV[2];  
         base[3]= VV[183];  
         base[4]= list(2,VV[182],car(symbol_value(VV[46])));  
         vs_top=(vs_base=base+2)+3;  
         Lerror();  
         vs_top=sup;  
 T1673:;  
         {register object V383;  
         register object V384;  
         V383= car(symbol_value(VV[46]));  
         V384= Cnil;  
 T1679:;  
         if(!(type_of((V383))!=t_cons)){  
         goto T1680;}  
         goto T1651;  
 T1680:;  
         if(!(type_of(cdr((V383)))!=t_cons)){  
         goto T1687;}  
         goto T1685;  
 T1687:;  
         if(!((((cddr((V383)))==Cnil?Ct:Cnil))==Cnil)){  
         goto T1689;}  
         goto T1685;  
 T1689:;  
         if(!(((type_of(car((V383)))==t_symbol?Ct:Cnil))==Cnil)){  
         goto T1691;}  
         goto T1685;  
 T1691:;  
         if((cadr((V383)))!=Cnil){  
         goto T1693;}  
         goto T1686;  
 T1693:;  
         if(((type_of(cadr((V383)))==t_symbol?Ct:Cnil))==Cnil){  
         goto T1685;}  
 T1686:;  
         goto T1684;  
 T1685:;  
         base[2]= VV[2];  
         base[3]= VV[184];  
         base[4]= (V383);  
         vs_top=(vs_base=base+2)+3;  
         Lerror();  
         vs_top=sup;  
 T1684:;  
         if((cadr((V383)))==Cnil){  
         goto T1698;}  
         base[2]= car((V383));  
         base[3]= symbol_value(VV[51]);  
         vs_top=(vs_base=base+2)+2;  
         (void) (*Lnk231)();  
4761          vs_top=sup;          vs_top=sup;
4762          V384= vs_base[0];          V485= vs_base[0];
4763          if(((V384))!=Cnil){          if(((V485))!=Cnil){
4764          goto T1702;}          goto T1871;}
4765          goto T1701;          vs_base=vs_top;
4766  T1702:;          (void) (*Lnk324)();
         base[2]= VV[2];  
         base[3]= VV[185];  
         base[4]= list(2,(V384),(V383));  
         vs_top=(vs_base=base+2)+3;  
         Lerror();  
4767          vs_top=sup;          vs_top=sup;
4768  T1701:;          base[1]= vs_base[0];
4769          V385= make_cons(car((V383)),cadr((V383)));          base[2]= Cnil;
4770          setq(VV[51],make_cons(/* INLINE-ARGS */V385,symbol_value(VV[51])));          vs_top=(vs_base=base+1)+2;
 T1698:;  
         {register object V386;  
         V386= car(symbol_value(VV[46]));  
         setq(VV[46],cdr(symbol_value(VV[46])));}  
         V383= car(symbol_value(VV[46]));  
         goto T1679;}  
 T1665:;  
         base[2]= nreverse((V377));  
         vs_top=(vs_base=base+2)+1;  
4771          return;          return;
4772  T1651:;  T1871:;
4773          V376= car(symbol_value(VV[46]));          base[1]= (V485);
4774          goto T1648;}          base[2]= (VV[101]->s.s_dbind);
4775            vs_top=(vs_base=base+1)+2;
4776            (void) (*Lnk382)();
4777            vs_top=sup;
4778            (VV[101]->s.s_dbind)= vs_base[0];
4779            base[1]= CMPcdr((V485));
4780            base[2]= Ct;
4781            vs_top=(vs_base=base+1)+2;
4782            return;}
4783          }          }
4784  }  }
4785  /*      function definition for LOOP-ADD-PATH   */  /*      function definition for LOOP-COLLECT-PREPOSITIONAL-PHRASES      */
4786    
4787  static L63()  static L95()
4788  {register object *base=vs_base;  {register object *base=vs_base;
4789          register object *sup=base+VM63; VC63          register object *sup=base+VM83; VC83
4790          vs_reserve(VM63);          vs_check;
4791          {object V387;          {object V486;
4792          object V388;          object V487;
4793          check_arg(2);          object V488;
4794          V387=(base[0]);          V486=(base[0]);
4795          V388=(base[1]);          vs_base=vs_base+1;
4796            if(vs_base>=vs_top){vs_top=sup;goto T1881;}
4797            V487=(base[1]);
4798            vs_base++;
4799            if(vs_base>=vs_top){vs_top=sup;goto T1882;}
4800            V488=(base[2]);
4801          vs_top=sup;          vs_top=sup;
4802  TTL:;          goto T1883;
4803          V389= make_cons((V387),(V388));  T1881:;
4804          base[2]= (V387);          V487= Cnil;
4805          base[3]= symbol_value(VV[171]);  T1882:;
4806          vs_top=(vs_base=base+2)+2;          V488= Cnil;
4807          (void) (*Lnk231)();  T1883:;
4808            base[3]=make_cclosure_new(LC96,Cnil,Cnil,Cdata);
4809            base[3]=MMcons(base[3],Cnil);
4810            {object V489;
4811            object V490;
4812            register object V491;
4813            register object V492;
4814            object V493;
4815            object V494;
4816            {object V495;
4817            object V496= (V488);
4818            if(V496==Cnil){
4819            V493= Cnil;
4820            goto T1886;}
4821            base[4]=V495=MMcons(Cnil,Cnil);
4822    T1887:;
4823            base[6]= CMPcar((V496->c.c_car));
4824            base[7]= (V486);
4825            base[8]= VV[20];
4826            base[9]= (base[3]->c.c_car);
4827            vs_top=(vs_base=base+6)+4;
4828            (void) (*Lnk365)();
4829          vs_top=sup;          vs_top=sup;
4830          V390= vs_base[0];{object V391;          base[5]= vs_base[0];
4831          V391= symbol_value(VV[171]);          vs_top=(vs_base=base+5)+1;
4832          V392= symbol_function(VV[265]);          Lcopy_list();
4833          V393= (VFUN_NARGS=4,(*(LnkLI234))(V390,V391,VV[25],V392));          vs_top=sup;
4834          setq(VV[171],make_cons(/* INLINE-ARGS */V389,/* INLINE-ARGS */V393));}          (V495->c.c_cdr)= vs_base[0];
4835          base[2]= Cnil;          while(MMcdr(V495)!=Cnil)V495=MMcdr(V495);
4836          vs_top=(vs_base=base+2)+1;          if((V496=MMcdr(V496))==Cnil){
4837            base[4]=base[4]->c.c_cdr;
4838            V493= base[4];
4839            goto T1886;}
4840            goto T1887;}
4841    T1886:;
4842            {object V498;
4843            object V499= (V488);
4844            if(V499==Cnil){
4845            V494= Cnil;
4846            goto T1894;}
4847            base[4]=V498=MMcons(Cnil,Cnil);
4848    T1895:;
4849            (V498->c.c_car)= CMPcar((V499->c.c_car));
4850            if((V499=MMcdr(V499))==Cnil){
4851            V494= base[4];
4852            goto T1894;}
4853            V498=MMcdr(V498)=MMcons(Cnil,Cnil);
4854            goto T1895;}
4855    T1894:;
4856            V489= Cnil;
4857            V490= (V488);
4858            V491= Cnil;
4859            V492= Cnil;
4860    T1898:;
4861            if(((VV[89]->s.s_dbind))!=Cnil){
4862            goto T1899;}
4863            base[4]= nreverse((V490));
4864            vs_top=(vs_base=base+4)+1;
4865          return;          return;
4866          }  T1899:;
4867  }          V489= CMPcar((VV[89]->s.s_dbind));
4868  /*      macro definition for DEFINE-LOOP-PATH   */          {register object V500;
4869            register object V501;
4870  static L64()          V500= (V486);
4871  {register object *base=vs_base;          V501= CMPcar((V500));
4872          register object *sup=base+VM64; VC64  T1909:;
4873          vs_reserve(VM64);          if(!(((V500))==Cnil)){
4874          check_arg(2);          goto T1910;}
4875            goto T1905;
4876    T1910:;
4877            base[5]= (V489);
4878            base[6]= (V501);
4879            vs_top=(vs_base=base+5)+2;
4880            L96(base);
4881          vs_top=sup;          vs_top=sup;
4882          {object V394=base[0]->c.c_cdr;          V492= vs_base[0];
4883          if(endp(V394))invalid_macro_call();          if(((V492))==Cnil){
4884          base[2]= (V394->c.c_car);          goto T1914;}
4885          V394=V394->c.c_cdr;          V491= (V501);
4886          base[3]= V394;}          goto T1905;
4887          if(!(type_of(base[2])!=t_cons)){  T1914:;
4888          goto T1730;}          V500= CMPcdr((V500));
4889          base[2]= make_cons(base[2],Cnil);          V501= CMPcar((V500));
4890          goto T1728;          goto T1909;}
4891  T1730:;  T1905:;
4892  T1728:;          if(((V491))==Cnil){
4893          {object V395;          goto T1928;}
4894          {object V396;          {register object x= (V492),V502= (V493);
4895          object V397= base[2];          while(V502!=Cnil)
4896          if(endp(V397)){          if(eql(x,V502->c.c_car)){
4897          V395= Cnil;          goto T1932;
4898          goto T1732;}          }else V502=V502->c.c_cdr;
4899          base[4]=V396=MMcons(Cnil,Cnil);          goto T1930;}
4900  T1733:;  T1932:;
4901          V399= list(2,VV[4],(V397->c.c_car));          {register object x= (V492),V503= (V494);
4902          (V396->c.c_car)= list(3,VV[186],/* INLINE-ARGS */V399,list(2,VV[4],base[3]));          while(V503!=Cnil)
4903          if(endp(V397=MMcdr(V397))){          if(eql(x,V503->c.c_car)){
4904          V395= base[4];          goto T1936;
4905          goto T1732;}          }else V503=V503->c.c_cdr;
4906          V396=MMcdr(V396)=MMcons(Cnil,Cnil);          goto T1935;}
4907          goto T1733;}  T1936:;
4908  T1732:;          base[4]= VV[240];
4909          base[4]= listA(3,VV[187],VV[188],(V395));          goto T1933;
4910    T1935:;
4911            base[4]= VV[241];
4912    T1933:;
4913            base[5]= (V489);
4914            vs_top=(vs_base=base+4)+2;
4915            (void) (*Lnk343)();
4916            vs_top=sup;
4917    T1930:;
4918            if(!(type_of((V491))==t_cons||((V491))==Cnil)){
4919            goto T1941;}
4920            V494= append((V491),(V494));
4921            goto T1939;
4922    T1941:;
4923            V494= make_cons((V491),(V494));
4924    T1939:;
4925            vs_base=vs_top;
4926            (void) (*Lnk346)();
4927            vs_top=sup;
4928            vs_base=vs_top;
4929            (void) (*Lnk357)();
4930            vs_top=sup;
4931            V504= vs_base[0];
4932            V505= list(2,(V492),V504);
4933            V490= make_cons(/* INLINE-ARGS */V505,(V490));
4934            goto T1926;
4935    T1928:;
4936            if(((V487))==Cnil){
4937            goto T1947;}
4938            base[4]= (V489);
4939            base[5]= VV[242];
4940            vs_top=(vs_base=base+4)+2;
4941            (void) (*Lnk353)();
4942            vs_top=sup;
4943            if((vs_base[0])==Cnil){
4944            goto T1947;}
4945            vs_base=vs_top;
4946            (void) (*Lnk346)();
4947            vs_top=sup;
4948            {register object V506;
4949            object V507;
4950            vs_base=vs_top;
4951            (void) (*Lnk346)();
4952            vs_top=sup;
4953            V506= vs_base[0];
4954            V507= Cnil;
4955    T1956:;
4956            if(type_of((V506))!=t_cons){
4957            goto T1960;}
4958            if(type_of(CMPcdr((V506)))!=t_cons){
4959            goto T1960;}
4960            if((CMPcddr((V506)))!=Cnil){
4961            goto T1960;}
4962            if(!(type_of(CMPcar((V506)))==t_symbol)){
4963            goto T1960;}
4964            if((CMPcadr((V506)))==Cnil){
4965            goto T1959;}
4966            if(type_of(CMPcadr((V506)))==t_symbol){
4967            goto T1959;}
4968    T1960:;
4969            base[4]= VV[243];
4970            base[5]= (V506);
4971            vs_top=(vs_base=base+4)+2;
4972            (void) (*Lnk343)();
4973            vs_top=sup;
4974    T1959:;
4975            if((CMPcadr((V506)))==Cnil){
4976            goto T1974;}
4977            base[4]= CMPcar((V506));
4978            base[5]= (VV[101]->s.s_dbind);
4979            vs_top=(vs_base=base+4)+2;
4980            (void) (*Lnk381)();
4981            vs_top=sup;
4982            V507= vs_base[0];
4983            if(((V507))==Cnil){
4984            goto T1978;}
4985            base[4]= VV[244];
4986            base[5]= CMPcar((V506));
4987            base[6]= CMPcadr((V506));
4988            base[7]= CMPcadr((V507));
4989            vs_top=(vs_base=base+4)+4;
4990            (void) (*Lnk343)();
4991            vs_top=sup;
4992            goto T1974;
4993    T1978:;
4994            V508= make_cons(CMPcar((V506)),CMPcadr((V506)));
4995            (VV[101]->s.s_dbind)= make_cons(/* INLINE-ARGS */V508,(VV[101]->s.s_dbind));
4996    T1974:;
4997            if(((VV[89]->s.s_dbind))==Cnil){
4998            goto T1989;}
4999            if(!(type_of(CMPcar((VV[89]->s.s_dbind)))==t_symbol)){
5000            goto T1988;}
5001    T1989:;
5002            goto T1926;
5003    T1988:;
5004            vs_base=vs_top;
5005            (void) (*Lnk346)();
5006            vs_top=sup;
5007            V506= vs_base[0];
5008            goto T1956;}
5009    T1947:;
5010            base[4]= nreverse((V490));
5011          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
5012          return;}          return;
5013    T1926:;
5014            V491= Cnil;
5015            V492= Cnil;
5016            goto T1898;}
5017            }
5018  }  }
5019  /*      function definition for LOOP-SEQUENCER  */  /*      function definition for LOOP-SEQUENCER  */
5020    
5021  static L65()  static L97()
5022  {register object *base=vs_base;  {register object *base=vs_base;
5023          register object *sup=base+VM65; VC65          register object *sup=base+VM84; VC84
5024          vs_reserve(VM65);          vs_check;
5025          {object V400;          {object V509;
5026          object V401;          register object V510;
5027          object V402;          object V511;
5028          object V403;          object V512;
5029          object V404;          object V513;
5030          object V405;          object V514;
5031          object V406;          object V515;
5032          object V407;          object V516;
5033          register object V408;          object V517;
5034          object V409;          object V518;
5035          check_arg(10);          V509=(base[0]);
5036          V400=(base[0]);          V510=(base[1]);
5037          V401=(base[1]);          V511=(base[2]);
5038          V402=(base[2]);          V512=(base[3]);
5039          V403=(base[3]);          V513=(base[4]);
5040          V404=(base[4]);          V514=(base[5]);
5041          V405=(base[5]);          V515=(base[6]);
5042          V406=(base[6]);          V516=(base[7]);
5043          V407=(base[7]);          V517=(base[8]);
5044          V408=(base[8]);          V518=(base[9]);
5045          V409=(base[9]);          vs_top=sup;
5046          vs_top=sup;  TTL:;
5047  TTL:;          {object V519;
5048          {object V410;          object V520;
5049          object V411;          object V521;
5050          object V412;          object V522;
5051          object V413;          object V523;
5052          register object V414;          object V524;
5053          register object V415;          object V525;
5054          object V416;          register object V526;
5055          object V417;{object V419;          register object V527;
5056          base[10]= (V401);          object V528;
5057            object V529;
5058            object V530;
5059            object V531;
5060            object V532;
5061            object V533;{object V535;
5062            base[10]= (V510);
5063          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5064          (void) (*Lnk243)();          (void) (*Lnk326)();
5065          vs_top=sup;          vs_top=sup;
5066          V419= vs_base[0];          V535= vs_base[0];
5067          if(V419==Cnil)goto T1737;          if(V535==Cnil)goto T2002;
5068          V418= V419;          V534= V535;
5069          goto T1736;          goto T2001;
5070  T1737:;}  T2002:;}
5071          V418= small_fixnum(0);          V534= small_fixnum(0);
5072  T1736:;  T2001:;
5073          V413= one_plus(V418);          V523= one_plus(V534);
5074          V410= Cnil;          V519= Cnil;
5075          V411= Cnil;          V520= Cnil;
5076          V412= Cnil;          V521= Cnil;
5077          V414= Cnil;          V522= Cnil;
5078          V415= Cnil;          V524= Ct;
5079          V416= Cnil;          V525= Cnil;
5080          V417= Cnil;          V526= Cnil;
5081          if((V402)==Cnil){          V527= Cnil;
5082          goto T1740;}          V528= Cnil;
5083          base[10]= (V402);          V529= Cnil;
5084            V530= Cnil;
5085            V531= Cnil;
5086            V532= Cnil;
5087            V533= Cnil;
5088            if(((V512))==Cnil){
5089            goto T2005;}
5090            base[10]= (V512);
5091          base[11]= Cnil;          base[11]= Cnil;
5092          base[12]= (V403);          base[12]= (V513);
         vs_top=(vs_base=base+10)+3;  
         (void) (*Lnk257)();  
         vs_top=sup;  
 T1740:;  
         {register object V420;  
         register object V421;  
         register object V422;  
         object V423;  
         V420= (V409);  
         V421= Cnil;  
         V422= Cnil;  
         V423= Cnil;  
 T1746:;  
         if(((V420))!=Cnil){  
         goto T1747;}  
         goto T1744;  
 T1747:;  
         V421= caar((V420));  
         V422= cadar((V420));  
         base[10]= (V421);  
         base[11]= VV[189];  
         vs_top=(vs_base=base+10)+2;  
         (void) (*Lnk240)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T1757;}  
         if((V411)==Cnil){  
         goto T1761;}  
         base[10]= VV[2];  
         base[11]= VV[190];  
         base[12]= list(2,(V402),car((V420)));  
5093          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5094          Lerror();          (void) (*Lnk376)();
5095          vs_top=sup;          vs_top=sup;
5096  T1761:;  T2005:;
5097          V411= Ct;          {register object V536;
5098          base[10]= (V404);          register object V537;
5099          base[11]= (V422);          register object V538;
5100          base[12]= (V405);          object V539;
5101            V536= (V518);
5102            V537= Cnil;
5103            V538= Cnil;
5104            V539= Cnil;
5105    T2013:;
5106            if(((V536))!=Cnil){
5107            goto T2014;}
5108            goto T2011;
5109    T2014:;
5110            V537= CMPcaar((V536));
5111            V538= CMPcadar((V536));
5112            {object V540= (V537);
5113            if((V540!= VV[383])
5114            && (V540!= VV[231]))goto T2023;
5115            V520= Ct;
5116            base[10]= (V514);
5117            base[11]= (V538);
5118            base[12]= (V515);
5119          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5120          (void) (*Lnk236)();          (void) (*Lnk355)();
5121          vs_top=sup;          vs_top=sup;
5122          goto T1755;          goto T2022;
5123  T1757:;  T2023:;
5124          base[10]= (V421);          if((V540!= VV[384])
5125          base[11]= VV[191];          && (V540!= VV[245])
5126            && (V540!= VV[247]))goto T2029;
5127            V528= Ct;
5128            if(!(((V537))==(VV[245]))){
5129            goto T2034;}
5130            V526= VV[246];
5131            goto T2032;
5132    T2034:;
5133            if(!(((V537))==(VV[247]))){
5134            goto T2032;}
5135            V526= VV[248];
5136    T2032:;
5137            base[10]= (V538);
5138            base[11]= (V510);
5139          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5140          (void) (*Lnk240)();          (void) (*Lnk375)();
5141          vs_top=sup;          if(vs_base<vs_top){
5142          if((vs_base[0])==Cnil){          V538= vs_base[0];
5143          goto T1771;}          vs_base++;
5144          if((V416)==Cnil){          }else{
5145          goto T1775;}          V538= Cnil;}
5146          base[10]= VV[2];          if(vs_base<vs_top){
5147          base[11]= VV[192];          V530= vs_base[0];
5148          base[12]= append((V408),(V420));          vs_base++;
5149            }else{
5150            V530= Cnil;}
5151            if(vs_base<vs_top){
5152            V529= vs_base[0];
5153            }else{
5154            V529= Cnil;}
5155            vs_top=sup;
5156            base[10]= (V509);
5157            base[11]= (V538);
5158            base[12]= (V510);
5159          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5160          Lerror();          (void) (*Lnk376)();
5161          vs_top=sup;          vs_top=sup;
5162  T1775:;          goto T2022;
5163          V416= Ct;  T2029:;
5164          base[10]= (V421);          if((V540!= VV[249])
5165          base[11]= VV[193];          && (V540!= VV[250])
5166            && (V540!= VV[251])
5167            && (V540!= VV[252])
5168            && (V540!= VV[253]))goto T2047;
5169            base[10]= (V537);
5170            base[11]= VV[249];
5171          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5172          (void) (*Lnk244)();          (void) (*Lnk353)();
5173          vs_top=sup;          vs_top=sup;
5174          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5175          goto T1783;}          goto T2050;}
5176          V414= VV[194];          V526= VV[248];
5177          goto T1781;          V527= VV[248];
5178  T1783:;          goto T2048;
5179          base[10]= (V421);  T2050:;
5180          base[11]= VV[195];          base[10]= (V537);
5181            base[11]= VV[250];
5182          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5183          (void) (*Lnk244)();          (void) (*Lnk353)();
5184          vs_top=sup;          vs_top=sup;
5185          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5186          goto T1781;}          goto T2057;}
5187          V414= VV[196];          V527= Ct;
5188  T1781:;          goto T2048;
5189          base[10]= (V400);  T2057:;
5190          base[11]= (V422);          base[10]= (V537);
5191          base[12]= (V401);          base[11]= VV[251];
         vs_top=(vs_base=base+10)+3;  
         (void) (*Lnk257)();  
         vs_top=sup;  
         goto T1755;  
 T1771:;  
         base[10]= (V421);  
         base[11]= VV[197];  
5192          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5193          (void) (*Lnk244)();          (void) (*Lnk353)();
5194          vs_top=sup;          vs_top=sup;
5195          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5196          goto T1800;}          goto T2063;}
5197          V414= VV[196];          V526= VV[246];
5198          V415= VV[196];          V527= VV[246];
5199          if(((V415))==Cnil){          goto T2048;
5200          goto T1797;}  T2063:;
5201          goto T1798;          base[10]= (V537);
5202  T1800:;          base[11]= VV[252];
         base[10]= (V421);  
         base[11]= VV[198];  
5203          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5204          (void) (*Lnk244)();          (void) (*Lnk353)();
5205          vs_top=sup;          vs_top=sup;
5206          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5207          goto T1807;}          goto T2070;}
5208          V415= Ct;          V526= VV[246];
5209          goto T1798;          goto T2048;
5210  T1807:;  T2070:;
5211          base[10]= (V421);          base[10]= (V537);
5212          base[11]= VV[199];          base[11]= VV[253];
5213          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5214          (void) (*Lnk244)();          (void) (*Lnk353)();
5215          vs_top=sup;          vs_top=sup;
5216          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5217          goto T1813;}          goto T2048;}
5218          V414= VV[194];          V526= VV[248];
5219          V415= VV[194];  T2048:;
5220          if(((V415))==Cnil){          V531= Ct;
5221          goto T1797;}          base[10]= (V538);
5222          goto T1798;          base[11]= (V510);
 T1813:;  
         base[10]= (V421);  
         base[11]= VV[200];  
5223          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5224          (void) (*Lnk244)();          (void) (*Lnk375)();
5225          vs_top=sup;          if(vs_base<vs_top){
5226          if((vs_base[0])==Cnil){          V538= vs_base[0];
5227          goto T1820;}          vs_base++;
5228          V414= VV[194];          }else{
5229          if((VV[194])==Cnil){          V538= Cnil;}
5230          goto T1797;}          if(vs_base<vs_top){
5231          goto T1798;          V532= vs_base[0];
5232  T1820:;          vs_base++;
5233          base[10]= (V421);          }else{
5234          base[11]= VV[201];          V532= Cnil;}
5235          vs_top=(vs_base=base+10)+2;          if(vs_base<vs_top){
5236          (void) (*Lnk244)();          V533= vs_base[0];
5237            }else{
5238            V533= Cnil;}
5239            vs_top=sup;
5240            if(((V532))==Cnil){
5241            goto T2088;}
5242            V519= list(2,VV[214],(V533));
5243            goto T2086;
5244    T2088:;
5245            base[11]= VV[254];
5246            vs_top=(vs_base=base+11)+1;
5247            (void) (*Lnk324)();
5248          vs_top=sup;          vs_top=sup;
5249          if((vs_base[0])==Cnil){          base[10]= vs_base[0];
5250          goto T1826;}          base[11]= (V538);
5251          V414= VV[196];          base[12]= (V510);
         if((VV[196])==Cnil){  
         goto T1797;}  
         goto T1798;  
 T1826:;  
         goto T1797;  
 T1798:;  
         if((V417)==Cnil){  
         goto T1831;}  
         base[10]= VV[2];  
         base[11]= VV[202];  
         base[12]= append((V408),(V420));  
5252          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5253          Lerror();          (void) (*Lnk355)();
5254          vs_top=sup;          vs_top=sup;
5255  T1831:;          V519= vs_base[0];
5256          V417= Ct;  T2086:;
5257          base[10]= (V422);          goto T2022;
5258          base[11]= (V401);  T2047:;
5259            if((V540!= VV[212]))goto T2094;
5260            base[10]= (V538);
5261            base[11]= (V510);
5262          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5263          (void) (*Lnk266)();          (void) (*Lnk375)();
5264            if(vs_base<vs_top){
5265            V538= vs_base[0];
5266            vs_base++;
5267            }else{
5268            V538= Cnil;}
5269            if(vs_base<vs_top){
5270            V524= vs_base[0];
5271            vs_base++;
5272            }else{
5273            V524= Cnil;}
5274            if(vs_base<vs_top){
5275            V523= vs_base[0];
5276            }else{
5277            V523= Cnil;}
5278            vs_top=sup;
5279            if(((V524))!=Cnil){
5280            goto T2022;}
5281            base[11]= VV[255];
5282            vs_top=(vs_base=base+11)+1;
5283            (void) (*Lnk324)();
5284          vs_top=sup;          vs_top=sup;
5285          V410= vs_base[0];          V523= vs_base[0];
5286          goto T1755;          base[10]= (V523);
5287  T1797:;          base[11]= (V538);
5288          base[10]= (V421);          base[12]= (V510);
5289          base[11]= VV[159];          vs_top=(vs_base=base+10)+3;
5290            (void) (*Lnk355)();
5291            vs_top=sup;
5292            goto T2022;
5293    T2094:;
5294            base[10]= VV[256];
5295            base[11]= (V537);
5296          vs_top=(vs_base=base+10)+2;          vs_top=(vs_base=base+10)+2;
5297          (void) (*Lnk244)();          (void) (*Lnk343)();
5298            vs_top=sup;}
5299    T2022:;
5300            if(((V539))==Cnil){
5301            goto T2108;}
5302            if(((V526))==Cnil){
5303            goto T2108;}
5304            if(((V526))==((V539))){
5305            goto T2108;}
5306            base[10]= VV[257];
5307            vs_top=(vs_base=base+10)+1;
5308            (void) (*Lnk343)();
5309          vs_top=sup;          vs_top=sup;
5310          if((vs_base[0])==Cnil){  T2108:;
5311          goto T1841;}          V539= (V526);
5312          base[10]= (V422);          V536= CMPcdr((V536));
5313            goto T2013;}
5314    T2011:;
5315            if(((V514))==Cnil){
5316            goto T2121;}
5317            if(((V520))!=Cnil){
5318            goto T2121;}
5319            base[10]= VV[258];
5320          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
5321          (void) (*Lnk245)();          (void) (*Lnk343)();
5322          vs_top=sup;          vs_top=sup;
5323          if((vs_base[0])==Cnil){  T2121:;
5324          goto T1847;}          if(((V528))!=Cnil){
5325          V413= (V422);          goto T2127;}
5326          goto T1845;          base[10]= (V509);
5327  T1847:;          V530= Ct;{object V541;
5328          base[11]= VV[203];          base[12]= (V510);
5329            vs_top=(vs_base=base+12)+1;
5330            (void) (*Lnk326)();
5331            vs_top=sup;
5332            V541= vs_base[0];
5333            if(V541==Cnil)goto T2135;
5334            V529= V541;
5335            goto T2134;
5336    T2135:;}
5337            V529= small_fixnum(0);
5338    T2134:;
5339            base[11]= (V529);
5340            base[12]= (V510);
5341            vs_top=(vs_base=base+10)+3;
5342            (void) (*Lnk376)();
5343            vs_top=sup;
5344    T2127:;
5345            {register object x= (V526),V542= VV[259];
5346            while(V542!=Cnil)
5347            if(eql(x,V542->c.c_car)){
5348            goto T2142;
5349            }else V542=V542->c.c_cdr;
5350            goto T2141;}
5351    T2142:;
5352            if(((V531))!=Cnil){
5353            goto T2144;}
5354            if(((V517))==Cnil){
5355            goto T2143;}
5356    T2144:;
5357            if(((V531))!=Cnil){
5358            goto T2148;}
5359            base[11]= VV[260];
5360          vs_top=(vs_base=base+11)+1;          vs_top=(vs_base=base+11)+1;
5361          Lgentemp();          (void) (*Lnk324)();
5362          vs_top=sup;          vs_top=sup;
5363          base[10]= vs_base[0];          V519= vs_base[0];
5364          base[11]= (V422);          base[10]= (V519);
5365          base[12]= VV[110];          base[11]= Cnil;
5366            base[12]= (V510);
5367          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5368          (void) (*Lnk236)();          (void) (*Lnk355)();
5369          vs_top=sup;          vs_top=sup;
5370          V413= vs_base[0];          V543= list(3,VV[11],(V519),(V517));
5371  T1845:;          (VV[105]->s.s_dbind)= make_cons(/* INLINE-ARGS */V543,(VV[105]->s.s_dbind));
5372          goto T1755;  T2148:;
5373  T1841:;          if(((V527))==Cnil){
5374          base[10]= VV[2];          goto T2160;}
5375          base[11]= VV[204];          V521= VV[34];
5376          base[12]= append((V408),(V420));          goto T2158;
5377          vs_top=(vs_base=base+10)+3;  T2160:;
5378          Lerror();          V521= VV[210];
5379    T2158:;
5380    T2143:;
5381            if(!(eql((V523),small_fixnum(1)))){
5382            goto T2164;}
5383            V525= list(2,VV[177],(V509));
5384            goto T2162;
5385    T2164:;
5386            V525= list(3,VV[178],(V509),(V523));
5387    T2162:;
5388            goto T2139;
5389    T2141:;
5390            if(((V528))!=Cnil){
5391            goto T2166;}
5392            if(((V517))!=Cnil){
5393            goto T2169;}
5394            base[10]= VV[261];
5395            vs_top=(vs_base=base+10)+1;
5396            (void) (*Lnk343)();
5397          vs_top=sup;          vs_top=sup;
5398  T1755:;  T2169:;
5399          if((V423)==Cnil){          V544= list(3,VV[11],(V509),list(2,VV[196],(V517)));
5400          goto T1857;}          (VV[105]->s.s_dbind)= make_cons(/* INLINE-ARGS */V544,(VV[105]->s.s_dbind));
5401          if((V414)==Cnil){  T2166:;
5402          goto T1857;}          if(((V517))==Cnil){
5403          if(((((V414))==((V423))?Ct:Cnil))==Cnil){          goto T2174;}
5404          goto T1858;}          if(((V519))!=Cnil){
5405          goto T1857;          goto T2174;}
5406  T1858:;          base[10]= (V510);
5407          base[10]= VV[2];          vs_top=(vs_base=base+10)+1;
5408          base[11]= VV[205];          (void) (*Lnk326)();
5409          base[12]= append((V408),(V420));          vs_top=sup;
5410            V519= vs_base[0];
5411            V527= Ct;
5412    T2174:;
5413            if(((V519))==Cnil){
5414            goto T2183;}
5415            if(((V527))==Cnil){
5416            goto T2188;}
5417            V521= VV[33];
5418            goto T2186;
5419    T2188:;
5420            V521= VV[262];
5421    T2186:;
5422    T2183:;
5423            if(!(eql((V523),small_fixnum(1)))){
5424            goto T2192;}
5425            V525= list(2,VV[196],(V509));
5426            goto T2190;
5427    T2192:;
5428            V525= list(3,VV[263],(V509),(V523));
5429    T2190:;
5430    T2139:;
5431            if(((V521))==Cnil){
5432            goto T2194;}
5433            base[10]= Ct;
5434            base[11]= (V509);
5435            base[12]= list(3,(V521),(V509),(V519));
5436          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5437          Lerror();          (void) (*Lnk328)();
5438          vs_top=sup;          vs_top=sup;
5439  T1857:;          V522= vs_base[0];
5440          V423= (V414);  T2194:;
5441          V420= cdr((V420));          if(((V516))==Cnil){
5442          goto T1746;}          goto T2201;}
5443  T1744:;          base[10]= (V511);
5444          if((V404)==Cnil){          base[11]= (V509);
5445          goto T1868;}          base[12]= (V516);
         if(((V411))==Cnil){  
         goto T1869;}  
         goto T1868;  
 T1869:;  
         base[10]= VV[2];  
         base[11]= VV[206];  
         base[12]= (V408);  
5446          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5447          Lerror();          (void) (*Lnk328)();
5448          vs_top=sup;          vs_top=sup;
5449  T1868:;          V545= vs_base[0];
5450          V413= list(2,(V400),(V413));          V516= list(2,(V512),V545);
5451          {register object x= (V414),V424= VV[207];  T2201:;
5452          while(!endp(V424))          {object V546;
5453          if(eql(x,V424->c.c_car)){          object V547;
5454          goto T1879;          V546= (V522);
5455          }else V424=V424->c.c_cdr;          V547= (V522);
5456          goto T1878;}          if(((V524))==Cnil){
5457  T1879:;          goto T2209;}
5458          if((V416)!=Cnil){          if(((V530))==Cnil){
5459          goto T1880;}          goto T2209;}
5460          base[10]= (V400);          if(((V532))==Cnil){
5461          base[11]= small_fixnum(0);          goto T2209;}
5462          base[12]= (V401);          base[10]= (V521);
5463            vs_top=(vs_base=base+10)+1;
5464            Lsymbol_function();
5465            vs_top=sup;
5466            V548= vs_base[0];
5467            V546= (
5468            V549 = V548,
5469            (type_of(V549) == t_sfun ?(*(object (*)())((V549)->sfn.sfn_self)):
5470            (fcall.argd=2,type_of(V549)==t_vfun) ?
5471            (*(object (*)())((V549)->sfn.sfn_self)):
5472            (fcall.fun=(V549),fcalln))((V529),(V533)));
5473            if(((V546))==Cnil){
5474            goto T2209;}
5475            V547= Ct;
5476    T2209:;
5477            base[10]= Ct;
5478            base[11]= (V509);
5479            base[12]= (V525);
5480          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
5481          (void) (*Lnk257)();          (void) (*Lnk328)();
5482          vs_top=sup;          vs_top=sup;
5483  T1880:;          V550= vs_base[0];
5484          if((V417)!=Cnil){          base[10]= list(8,Cnil,list(2,(V509),V550),(V547),(V516),Cnil,Cnil,(V546),(V516));
5485          if(((V417))!=Cnil){          vs_top=(vs_base=base+10)+1;
5486          goto T1885;}          return;}}
5487          goto T1886;}          }
5488          if(((V407))==Cnil){  }
5489          goto T1888;}  /*      function definition for LOOP-FOR-ARITHMETIC     */
5490          base[11]= VV[208];  
5491          vs_top=(vs_base=base+11)+1;  static L98()
5492          Lgentemp();  {register object *base=vs_base;
5493            register object *sup=base+VM85; VC85
5494            vs_check;
5495            {object V551;
5496            object V552;
5497            object V553;
5498            object V554;
5499            V551=(base[0]);
5500            V552=(base[1]);
5501            V553=(base[2]);
5502            V554=(base[3]);
5503            vs_top=sup;
5504    TTL:;
5505            base[4]= (V551);
5506            base[6]= (V553);
5507            base[7]= (VV[180]->s.s_dbind);
5508            vs_top=(vs_base=base+6)+2;
5509            (void) (*Lnk371)();
5510          vs_top=sup;          vs_top=sup;
5511          V410= vs_base[0];          base[5]= vs_base[0];
5512          base[10]= (V410);          base[6]= Ct;
5513            base[7]= Cnil;
5514            base[8]= Cnil;
5515            base[9]= Cnil;
5516            base[10]= Cnil;
5517          base[11]= Cnil;          base[11]= Cnil;
5518          base[12]= (V401);          base[12]= Cnil;
5519          vs_top=(vs_base=base+10)+3;          base[14]= VV[264];
5520          (void) (*Lnk236)();          base[15]= Cnil;
5521            V555= list(2,(V554),(V552));
5522            base[16]= make_cons(/* INLINE-ARGS */V555,Cnil);
5523            vs_top=(vs_base=base+14)+3;
5524            (void) (*Lnk380)();
5525          vs_top=sup;          vs_top=sup;
5526          V425= list(3,VV[15],(V410),(V407));          base[13]= vs_base[0];
5527          setq(VV[57],make_cons(/* INLINE-ARGS */V425,symbol_value(VV[57])));          vs_top=(vs_base=base+4)+10;
5528          if((symbol_value(VV[57]))!=Cnil){          (void) (*Lnk385)();
5529          goto T1885;}          return;
5530          goto T1886;          }
5531  T1888:;  }
5532  T1886:;  /*      function definition for LOOP-SEQUENCE-ELEMENTS-PATH     */
5533          goto T1884;  
5534  T1885:;  static L99()
5535          if(((V415))==Cnil){  {register object *base=vs_base;
5536          goto T1899;}          register object *sup=base+VM86; VC86
5537          V412= VV[209];          vs_check;
5538          goto T1897;          {object V556;
5539  T1899:;          object V557;
5540          V412= VV[210];          object V558;
5541  T1897:;          object V559;
5542  T1884:;          object V560;
5543          V413= make_cons(VV[116],(V413));          object V561;
5544          goto T1876;          object V562;
5545  T1878:;          parse_key(vs_base+3,FALSE,FALSE,4,VV[386],VV[387],VV[388],VV[389]);
5546          if(((V416))!=Cnil){          V556=(base[0]);
5547          goto T1902;}          V557=(base[1]);
5548          if((V407)!=Cnil){          V558=(base[2]);
5549          goto T1905;}          vs_top=sup;
5550          base[10]= VV[2];          V559=(base[3]);
5551          base[11]= VV[211];          V560=(base[4]);
5552          base[12]= append((V408),(V409));          V561=(base[5]);
5553          vs_top=(vs_base=base+10)+3;          V562=(base[6]);
5554          Lerror();          {object V563;
5555            object V564;
5556            base[11]= VV[265];
5557            vs_top=(vs_base=base+11)+1;
5558            (void) (*Lnk390)();
5559            if(vs_base>=vs_top){vs_top=sup;goto T2243;}
5560            V563= vs_base[0];
5561            vs_base++;
5562            if(vs_base>=vs_top){vs_top=sup;goto T2244;}
5563            V564= vs_base[0];
5564          vs_top=sup;          vs_top=sup;
5565  T1905:;          goto T2245;
5566          base[10]= (V400);  T2243:;
5567          base[11]= small_fixnum(0);          V563= Cnil;
5568          base[12]= (V401);  T2244:;
5569          vs_top=(vs_base=base+10)+3;          V564= Cnil;
5570          (void) (*Lnk257)();  T2245:;
5571            {object V565;
5572            base[11]= VV[266];
5573            vs_top=(vs_base=base+11)+1;
5574            (void) (*Lnk390)();
5575          vs_top=sup;          vs_top=sup;
5576          base[10]= VV[150];          V565= vs_base[0];
5577          base[11]= (V401);          base[11]= (V563);
5578          vs_top=(vs_base=base+10)+2;          base[12]= VV[207];
5579          (void) (*Lnk258)();          base[13]= (V564);
5580            base[14]= (V556);
5581            if((V557)!=Cnil){
5582            base[15]= (V557);
5583            goto T2253;}
5584            base[15]= (V562);
5585    T2253:;
5586            base[16]= (V565);
5587            base[17]= (V561);
5588            base[18]= list(3,(V559),(V565),(V563));
5589            base[19]= list(2,(V560),(V565));
5590            base[20]= (V558);
5591            vs_top=(vs_base=base+11)+10;
5592            (void) (*Lnk385)();
5593          vs_top=sup;          vs_top=sup;
5594          V426= vs_base[0];          V566= vs_base[0];
5595          V427= list(3,VV[15],(V400),list(2,V426,(V407)));          base[11]= listA(3,Cnil,Cnil,V566);
5596          setq(VV[57],make_cons(/* INLINE-ARGS */V427,symbol_value(VV[57])));          vs_top=(vs_base=base+11)+1;
5597  T1902:;          return;}}
5598          if(((V407))==Cnil){          }
5599          goto T1917;}  }
5600          if(((V410))!=Cnil){  /*      function definition for LOOP-HASH-TABLE-ITERATION-PATH  */
5601          goto T1917;}  
5602          base[10]= (V401);  static L100()
5603          vs_top=(vs_base=base+10)+1;  {register object *base=vs_base;
5604          (void) (*Lnk243)();          register object *sup=base+VM87; VC87
5605            vs_check;
5606            bds_check;
5607            {object V567;
5608            object V568;
5609            object V569;
5610            register object V570;
5611            parse_key(vs_base+3,FALSE,FALSE,1,VV[391]);
5612            V567=(base[0]);
5613            V568=(base[1]);
5614            V569=(base[2]);
5615            vs_top=sup;
5616            V570=(base[3]);
5617            bds_bind(VV[44],small_fixnum(4));
5618            bds_bind(VV[45],small_fixnum(4));
5619    T2261:;
5620            base[7]= (V570);
5621            base[8]= VV[267];
5622            vs_top=(vs_base=base+7)+2;
5623            (void) (*Lnk330)();
5624          vs_top=sup;          vs_top=sup;
5625          V410= vs_base[0];          if((vs_base[0])==Cnil){
5626          V415= Ct;          goto T2262;}
5627  T1917:;          bds_unwind1;
5628          if(((((V410))==Cnil?Ct:Cnil))==Cnil){          bds_unwind1;
5629          goto T1927;}          goto T2259;
5630          goto T1926;  T2262:;
5631  T1927:;          base[7]= VV[47];
5632          if(((V415))==Cnil){          base[8]= VV[48];
5633          goto T1931;}          base[9]= VV[268];
5634          V412= VV[212];          base[10]= (V570);
5635          goto T1929;          base[11]= VV[267];
5636  T1931:;          vs_top=(vs_base=base+7)+5;
5637          V412= VV[213];          Lcerror();
5638  T1929:;          vs_top=sup;
5639  T1926:;          base[7]= (VV[50]->s.s_dbind);
5640          V413= make_cons(VV[214],(V413));          base[8]= VV[51];
5641  T1876:;          base[9]= VV[268];
5642          {object V428= caddr((V413));          vs_top=(vs_base=base+7)+3;
5643          if(type_of(V428)==t_fixnum||          Lformat();
 type_of(V428)==t_bignum||  
 type_of(V428)==t_ratio||  
 type_of(V428)==t_shortfloat||  
 type_of(V428)==t_longfloat||  
 type_of(V428)==t_complex){  
         goto T1937;}}  
         goto T1936;  
 T1937:;  
         if(number_compare(caddr((V413)),small_fixnum(1))==0){  
         goto T1935;}  
 T1936:;  
         goto T1934;  
 T1935:;  
         if(!((car((V413)))==(VV[116]))){  
         goto T1942;}  
         V430= VV[114];  
         goto T1940;  
 T1942:;  
         V430= VV[150];  
 T1940:;  
         if(type_of((V413))!=t_cons)FEwrong_type_argument(Scons,(V413));  
         ((V413))->c.c_car = V430;  
         V429= (V413);  
         if(type_of(cdr(V429))!=t_cons)FEwrong_type_argument(Scons,cdr(V429));  
         (cdr(V429))->c.c_cdr = Cnil;  
         (void)(cdr(V429));  
 T1934:;  
         base[10]= car((V413));  
         base[11]= (V401);  
         vs_top=(vs_base=base+10)+2;  
         (void) (*Lnk258)();  
5644          vs_top=sup;          vs_top=sup;
5645          V431= vs_base[0];          base[7]= (VV[50]->s.s_dbind);
5646          if(type_of((V413))!=t_cons)FEwrong_type_argument(Scons,(V413));          vs_top=(vs_base=base+7)+1;
5647          ((V413))->c.c_car = V431;          Lfinish_output();
         V413= list(2,(V400),(V413));  
         base[10]= (V412);  
         base[11]= (V401);  
         vs_top=(vs_base=base+10)+2;  
         (void) (*Lnk258)();  
5648          vs_top=sup;          vs_top=sup;
5649          V412= vs_base[0];          vs_base=vs_top;
5650          base[10]= list(2,(V400),(V410));          Lread();
         base[11]= VV[215];  
         base[12]= (V412);  
         vs_top=(vs_base=base+10)+3;  
         Lsubst();  
5651          vs_top=sup;          vs_top=sup;
5652          V412= vs_base[0];          V570= vs_base[0];
5653          if((V406)==Cnil){          base[7]= (VV[50]->s.s_dbind);
5654          goto T1959;}          base[8]= VV[52];
5655          V406= list(2,(V402),(V406));          vs_top=(vs_base=base+7)+2;
5656  T1959:;          Lformat();
5657          base[10]= list(8,Cnil,(V413),(V412),(V406),Cnil,Cnil,(V412),(V406));          vs_top=sup;
5658          vs_top=(vs_base=base+10)+1;          goto T2261;
5659          return;}  T2259:;
5660            if((CMPcdr((V569)))!=Cnil){
5661            goto T2288;}
5662            {register object x= CMPcaar((V569)),V571= VV[269];
5663            while(V571!=Cnil)
5664            if(eql(x,V571->c.c_car)){
5665            goto T2289;
5666            }else V571=V571->c.c_cdr;}
5667    T2288:;
5668            base[5]= VV[270];
5669            vs_top=(vs_base=base+5)+1;
5670            (void) (*Lnk343)();
5671            vs_top=sup;
5672            goto T2287;
5673    T2289:;
5674            if(((V569))!=Cnil){
5675            goto T2287;}
5676            base[5]= VV[271];
5677            vs_top=(vs_base=base+5)+1;
5678            (void) (*Lnk343)();
5679            vs_top=sup;
5680    T2287:;
5681            {object V572;
5682            object V573;
5683            object V574;
5684            register object V575;
5685            base[5]= VV[272];
5686            vs_top=(vs_base=base+5)+1;
5687            (void) (*Lnk324)();
5688            vs_top=sup;
5689            V572= vs_base[0];
5690            base[5]= VV[273];
5691            vs_top=(vs_base=base+5)+1;
5692            (void) (*Lnk324)();
5693            vs_top=sup;
5694            V573= vs_base[0];
5695            V574= Cnil;
5696            V575= Cnil;
5697            {object V576;
5698            object V577;
5699            if(!(((V570))==(VV[274]))){
5700            goto T2304;}
5701            base[5]= VV[275];
5702            goto T2302;
5703    T2304:;
5704            base[5]= VV[274];
5705    T2302:;
5706            vs_top=(vs_base=base+5)+1;
5707            (void) (*Lnk390)();
5708            if(vs_base>=vs_top){vs_top=sup;goto T2306;}
5709            V576= vs_base[0];
5710            vs_base++;
5711            if(vs_base>=vs_top){vs_top=sup;goto T2307;}
5712            V577= vs_base[0];
5713            vs_top=sup;
5714            goto T2308;
5715    T2306:;
5716            V576= Cnil;
5717    T2307:;
5718            V577= Cnil;
5719    T2308:;
5720            V577= Ct;
5721            vs_base=vs_top;
5722            (void) (*Lnk374)();
5723            vs_top=sup;
5724            V574= vs_base[0];
5725            {register object V578;
5726            register object V579;
5727            register object V580;
5728            V581= list(3,(V567),Cnil,(V568));
5729            V582= list(2,(V572),CMPcadar((V569)));
5730            if((V577)==Cnil){
5731            V583= Cnil;
5732            goto T2314;}
5733            if((V576)==Cnil){
5734            V583= Cnil;
5735            goto T2314;}
5736            V584= list(2,(V576),Cnil);
5737            V583= make_cons(/* INLINE-ARGS */V584,Cnil);
5738    T2314:;
5739            V580= listA(3,/* INLINE-ARGS */V581,/* INLINE-ARGS */V582,V583);
5740            V578= Cnil;
5741            V579= Cnil;
5742            if(!(((V570))==(VV[274]))){
5743            goto T2317;}
5744            V578= (V567);
5745            if((V577)==Cnil){
5746            V579= Cnil;
5747            goto T2321;}
5748            V579= (V576);
5749    T2321:;
5750            goto T2315;
5751    T2317:;
5752            if((V577)==Cnil){
5753            V578= Cnil;
5754            goto T2323;}
5755            V578= (V576);
5756    T2323:;
5757            V579= (V567);
5758    T2315:;
5759            V585= list(2,VV[276],list(2,(V573),(V572)));
5760            (VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V585,(VV[106]->s.s_dbind));
5761            if(!(type_of((V578))==t_cons)){
5762            goto T2327;}{object V586;
5763            V586= (V578);
5764            base[5]= VV[277];
5765            vs_top=(vs_base=base+5)+1;
5766            (void) (*Lnk324)();
5767            vs_top=sup;
5768            V578= vs_base[0];
5769            V575= listA(3,V586,(V578),(V575));}
5770            V587= list(2,(V578),Cnil);
5771            V580= make_cons(/* INLINE-ARGS */V587,(V580));
5772    T2327:;
5773            if(!(type_of((V579))==t_cons)){
5774            goto T2335;}{object V588;
5775            V588= (V579);
5776            base[5]= VV[278];
5777            vs_top=(vs_base=base+5)+1;
5778            (void) (*Lnk324)();
5779            vs_top=sup;
5780            V579= vs_base[0];
5781            V575= listA(3,V588,(V579),(V575));}
5782            V589= list(2,(V579),Cnil);
5783            V580= make_cons(/* INLINE-ARGS */V589,(V580));
5784    T2335:;
5785            V590= list(3,(V574),(V578),(V579));
5786            base[5]= list(6,(V580),Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V590,make_cons((V573),Cnil))),(V575));
5787            vs_top=(vs_base=base+5)+1;
5788            return;}}}
5789          }          }
5790  }  }
5791  /*      function definition for LOOP-SEQUENCE-ELEMENTS-PATH     */  /*      function definition for LOOP-PACKAGE-SYMBOLS-ITERATION-PATH     */
5792    
5793  static L66()  static L101()
5794  {register object *base=vs_base;  {register object *base=vs_base;
5795          register object *sup=base+VM66; VC66          register object *sup=base+VM88; VC88
5796          vs_reserve(VM66);          vs_check;
5797          {object V432;          {object V591;
5798          object V433;          object V592;
5799          object V434;          register object V593;
5800          object V435;          object V594;
5801          object V436;          parse_key(vs_base+3,FALSE,FALSE,1,VV[392]);
5802          object V437;          V591=(base[0]);
5803          register object V438;          V592=(base[1]);
5804          check_arg(7);          V593=(base[2]);
5805          V432=(base[0]);          vs_top=sup;
5806          V433=(base[1]);          V594=(base[3]);
5807          V434=(base[2]);          if((CMPcdr((V593)))!=Cnil){
5808          V435=(base[3]);          goto T2344;}
5809          V436=(base[4]);          {register object x= CMPcaar((V593)),V595= VV[279];
5810          V437=(base[5]);          while(V595!=Cnil)
5811          V438=(base[6]);          if(eql(x,V595->c.c_car)){
5812            goto T2345;
5813            }else V595=V595->c.c_cdr;}
5814    T2344:;
5815            base[5]= VV[280];
5816            vs_top=(vs_base=base+5)+1;
5817            (void) (*Lnk343)();
5818          vs_top=sup;          vs_top=sup;
5819  TTL:;          goto T2343;
5820          {object V439;  T2345:;
5821          object V440;          if(((V593))!=Cnil){
5822          object V441;          goto T2343;}
5823          object V442;          base[5]= VV[281];
5824          object V443;          vs_top=(vs_base=base+5)+1;
5825          object V444;          (void) (*Lnk343)();
         object V445;  
         base[7]= VV[216];  
         vs_top=(vs_base=base+7)+1;  
         (void) (*Lnk267)();  
5826          vs_top=sup;          vs_top=sup;
5827          V439= vs_base[0];  T2343:;
5828          base[7]= VV[217];          if(type_of((V591))==t_symbol){
5829          vs_top=(vs_base=base+7)+1;          goto T2353;}
5830          (void) (*Lnk267)();          base[5]= VV[282];
5831            vs_top=(vs_base=base+5)+1;
5832            (void) (*Lnk343)();
5833          vs_top=sup;          vs_top=sup;
5834          V440= vs_base[0];  T2353:;
5835          V445= list(5,VV[144],(V433),VV[172],VV[170],(V432));          {object V596;
5836          V441= Cnil;          object V597;
5837          V442= Cnil;          base[5]= VV[283];
5838          V443= Cnil;          vs_top=(vs_base=base+5)+1;
5839          V444= Cnil;          (void) (*Lnk324)();
         if(((V436))==Cnil){  
         goto T1967;}  
         V446= cddr((V445));  
         V447= list(4,cadar((V435)),VV[95],VV[218],(V432));  
         if(type_of(/* INLINE-ARGS */V446)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V446);  
         (/* INLINE-ARGS */V446)->c.c_cdr = /* INLINE-ARGS */V447;  
         base[7]= VV[2];  
         base[8]= VV[219];  
         base[9]= (V445);  
         vs_top=(vs_base=base+7)+3;  
         Lerror();  
5840          vs_top=sup;          vs_top=sup;
5841  T1967:;          V596= vs_base[0];
5842          V441= car((V438));          base[5]= VV[284];
5843          V438= cdr((V438));          vs_top=(vs_base=base+5)+1;
5844          V442= car((V438));          (void) (*Lnk324)();
         V438= cdr((V438));  
         V443= car((V438));  
         V444= cadr((V438));  
         base[7]= (V439);  
         base[8]= VV[110];  
         base[9]= (V433);  
         if((V434)!=Cnil){  
         base[10]= (V434);  
         goto T1988;}  
         base[10]= (V444);  
 T1988:;  
         base[11]= (V440);  
         base[12]= (V443);  
         base[13]= list(3,(V441),(V440),(V439));  
         base[14]= list(2,(V442),(V440));  
         base[15]= (V445);  
         base[16]= (V435);  
         vs_top=(vs_base=base+7)+10;  
         (void) (*Lnk264)();  
5845          vs_top=sup;          vs_top=sup;
5846          V448= vs_base[0];          V597= vs_base[0];
5847          base[7]= listA(3,Cnil,Cnil,V448);          V598= list(2,VV[285],listA(3,(V597),(V596),(V594)));
5848          vs_top=(vs_base=base+7)+1;          (VV[106]->s.s_dbind)= make_cons(/* INLINE-ARGS */V598,(VV[106]->s.s_dbind));
5849            V599= list(3,(V591),Cnil,(V592));
5850            V600= list(2,/* INLINE-ARGS */V599,list(2,(V596),CMPcadar((V593))));
5851            vs_base=vs_top;
5852            (void) (*Lnk374)();
5853            vs_top=sup;
5854            V601= vs_base[0];
5855            V602= list(2,V601,(V591));
5856            base[5]= list(6,/* INLINE-ARGS */V600,Cnil,Cnil,Cnil,list(2,VV[36],list(3,VV[85],/* INLINE-ARGS */V602,make_cons((V597),Cnil))),Cnil);
5857            vs_top=(vs_base=base+5)+1;
5858          return;}          return;}
5859          }          }
5860  }  }
5861  /*      macro definition for DEFINE-LOOP-SEQUENCE-PATH  */  /*      function definition for MAKE-ANSI-LOOP-UNIVERSE */
5862    
5863  static L67()  static L102()
5864  {register object *base=vs_base;  {register object *base=vs_base;
5865          register object *sup=base+VM67; VC67          register object *sup=base+VM89; VC89
5866          vs_reserve(VM67);          vs_check;
5867          check_arg(2);          {object V603;
5868            V603=(base[0]);
5869            vs_top=sup;
5870    TTL:;
5871            {register object V604;
5872            base[1]= VV[53];
5873            base[3]= VV[286];
5874            base[4]= VV[287];
5875            base[5]= VV[288];
5876            base[6]= VV[289];
5877            base[7]= VV[290];
5878            base[8]= VV[291];
5879            base[9]= VV[292];
5880            base[10]= VV[293];
5881            base[11]= VV[294];
5882            base[12]= VV[295];
5883            base[13]= VV[296];
5884            base[14]= VV[297];
5885            base[15]= list(2,VV[176],list(4,VV[298],VV[176],(VV[180]->s.s_dbind),VV[207]));
5886            base[16]= list(2,VV[299],list(4,VV[298],VV[176],(VV[180]->s.s_dbind),VV[207]));
5887            base[17]= VV[300];
5888            vs_top=(vs_base=base+3)+15;
5889            LlistA();
5890          vs_top=sup;          vs_top=sup;
5891          {object V449=base[0]->c.c_cdr;          base[2]= vs_base[0];
5892          if(endp(V449))invalid_macro_call();          base[3]= VV[54];
5893          base[2]= (V449->c.c_car);          base[4]= VV[301];
5894          V449=V449->c.c_cdr;          base[5]= VV[55];
5895          if(endp(V449))invalid_macro_call();          base[6]= VV[302];
5896          base[3]= (V449->c.c_car);          base[7]= VV[60];
5897          V449=V449->c.c_cdr;          base[8]= VV[303];
5898          if(endp(V449))invalid_macro_call();          base[9]= VV[59];
5899          base[4]= (V449->c.c_car);          base[10]= Cnil;
5900          V449=V449->c.c_cdr;          base[11]= VV[57];
5901          if(endp(V449)){          if(((V603))==Cnil){
5902          base[5]= Cnil;          goto T2393;}
5903          } else {          base[12]= VV[304];
5904          base[5]= (V449->c.c_car);          goto T2391;
5905          V449=V449->c.c_cdr;}  T2393:;
5906          if(endp(V449)){          base[12]= Ct;
5907          base[6]= Cnil;  T2391:;
5908          } else {          vs_top=(vs_base=base+1)+12;
5909          base[6]= (V449->c.c_car);          (void) (*Lnk393)();
5910          V449=V449->c.c_cdr;}          vs_top=sup;
5911          if(!endp(V449))invalid_macro_call();}          V604= vs_base[0];
5912          base[7]= list(8,VV[220],base[2],VV[221],VV[222],base[3],base[4],base[5],base[6]);          base[1]= VV[305];
5913          vs_top=(vs_base=base+7)+1;          base[2]= VV[306];
5914            base[3]= (V604);
5915            base[4]= VV[226];
5916            base[5]= VV[307];
5917            base[6]= VV[227];
5918            base[7]= Cnil;
5919            base[8]= VV[225];
5920            base[9]= VV[308];
5921            vs_top=(vs_base=base+1)+9;
5922            (void) (*Lnk394)();
5923            vs_top=sup;
5924            base[1]= VV[309];
5925            base[2]= VV[306];
5926            base[3]= (V604);
5927            base[4]= VV[226];
5928            base[5]= VV[310];
5929            base[6]= VV[227];
5930            base[7]= Cnil;
5931            base[8]= VV[225];
5932            base[9]= VV[311];
5933            vs_top=(vs_base=base+1)+9;
5934            (void) (*Lnk394)();
5935            vs_top=sup;
5936            base[1]= VV[312];
5937            base[2]= VV[313];
5938            base[3]= (V604);
5939            base[4]= VV[226];
5940            base[5]= VV[314];
5941            base[6]= VV[227];
5942            base[7]= Cnil;
5943            base[8]= VV[225];
5944            base[9]= VV[315];
5945            vs_top=(vs_base=base+1)+9;
5946            (void) (*Lnk394)();
5947            vs_top=sup;
5948            base[1]= VV[316];
5949            base[2]= VV[313];
5950            base[3]= (V604);
5951            base[4]= VV[226];
5952            base[5]= VV[317];
5953            base[6]= VV[227];
5954            base[7]= Cnil;
5955            base[8]= VV[225];
5956            base[9]= VV[318];
5957            vs_top=(vs_base=base+1)+9;
5958            (void) (*Lnk394)();
5959            vs_top=sup;
5960            base[1]= VV[319];
5961            base[2]= VV[313];
5962            base[3]= (V604);
5963            base[4]= VV[226];
5964            base[5]= VV[320];
5965            base[6]= VV[227];
5966            base[7]= Cnil;
5967            base[8]= VV[225];
5968            base[9]= VV[321];
5969            vs_top=(vs_base=base+1)+9;
5970            (void) (*Lnk394)();
5971            vs_top=sup;
5972            base[1]= (V604);
5973            vs_top=(vs_base=base+1)+1;
5974            return;}
5975            }
5976    }
5977    /*      function definition for LOOP-STANDARD-EXPANSION */
5978    
5979    static L103()
5980    {register object *base=vs_base;
5981            register object *sup=base+VM90; VC90
5982            vs_check;
5983            {register object V605;
5984            object V606;
5985            object V607;
5986            V605=(base[0]);
5987            V606=(base[1]);
5988            V607=(base[2]);
5989            vs_top=sup;
5990    TTL:;
5991            if(((V605))==Cnil){
5992            goto T2446;}
5993            if(!(type_of(CMPcar((V605)))==t_symbol)){
5994            goto T2446;}
5995            base[3]= (V605);
5996            base[4]= (V606);
5997            base[5]= (V607);
5998            vs_top=(vs_base=base+3)+3;
5999            (void) (*Lnk395)();
6000          return;          return;
6001    T2446:;
6002            {object V608;
6003            vs_base=vs_top;
6004            Lgensym();
6005            vs_top=sup;
6006            V608= vs_base[0];
6007            V609= make_cons(VV[14],(V605));
6008            base[3]= list(3,VV[120],Cnil,list(4,VV[73],(V608),/* INLINE-ARGS */V609,list(2,VV[82],(V608))));
6009            vs_top=(vs_base=base+3)+1;
6010            return;}
6011            }
6012  }  }
6013  /*      function definition for G1216   */  /*      macro definition for LOOP       */
6014    
6015  static L68()  static L104()
6016  {register object *base=vs_base;  {register object *base=vs_base;
6017          register object *sup=base+VM68; VC68          register object *sup=base+VM91; VC91
6018          vs_reserve(VM68);          vs_check;
6019          {object V450;          vs_top=sup;
6020          check_arg(1);          {object V610=base[0]->c.c_cdr;
6021          V450=(base[0]);          base[2]= V610;}
6022            base[3]= base[2];
6023            base[4]= base[1];
6024            base[5]= (VV[322]->s.s_dbind);
6025            vs_top=(vs_base=base+3)+3;
6026            (void) (*Lnk396)();
6027            return;
6028    }
6029    /*      local function IN-GROUP-P       */
6030    
6031    static LC96(base0)
6032    register object *base0;
6033    {       register object *base=vs_base;
6034            register object *sup=base+VM92; VC92
6035            vs_check;
6036            {object V611;
6037            object V612;
6038            V611=(base[0]);
6039            V612=(base[1]);
6040            vs_top=sup;
6041            base[2]= (V611);
6042            base[3]= (V612);
6043            vs_top=(vs_base=base+2)+2;
6044            (void) (*Lnk349)();
6045            vs_top=sup;
6046            V613= vs_base[0];
6047            base[2]= CMPcar(V613);
6048            vs_top=(vs_base=base+2)+1;
6049            return;
6050            }
6051    }
6052    /*      local function IN-GROUP-P       */
6053    
6054    static L96(base0)
6055    register object *base0;
6056    {       register object *base=vs_base;
6057            register object *sup=base+VM93; VC93
6058            vs_check;
6059            {object V614;
6060            object V615;
6061            V614=(base[0]);
6062            V615=(base[1]);
6063            vs_top=sup;
6064    TTL:;
6065            base[2]= (V614);
6066            base[3]= (V615);
6067            vs_top=(vs_base=base+2)+2;
6068            (void) (*Lnk349)();
6069            vs_top=sup;
6070            V616= vs_base[0];
6071            base[2]= CMPcar(V616);
6072            vs_top=(vs_base=base+2)+1;
6073            return;
6074            }
6075    }
6076    /*      local function MAKE-ENDTEST     */
6077    
6078    static L82(base0)
6079    register object *base0;
6080    {       register object *base=vs_base;
6081            register object *sup=base+VM94; VC94
6082            vs_check;
6083            {object V617;
6084            V617=(base[0]);
6085          vs_top=sup;          vs_top=sup;
6086  TTL:;  TTL:;
6087          {          if(((V617))!=Cnil){
6088          object V451= car((V450));          goto T2464;}
         if(endp(V451)){  
6089          base[1]= Cnil;          base[1]= Cnil;
6090          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6091          return;}          return;
6092  T1997:;  T2464:;
6093          V453= listA(4,(V451->c.c_car),VV[221],VV[223],cdr((V450)));          {register object x= Ct,V618= (V617);
6094          base[1]= (V451->c.c_car);          while(V618!=Cnil)
6095          base[2]= symbol_value(VV[171]);          if(eql(x,V618->c.c_car)){
6096            goto T2468;
6097            }else V618=V618->c.c_cdr;
6098            goto T2467;}
6099    T2468:;
6100            base[1]= VV[189];
6101            vs_top=(vs_base=base+1)+1;
6102            return;
6103    T2467:;
6104            V617= nreverse((V617));
6105            if((CMPcdr((V617)))!=Cnil){
6106            goto T2471;}
6107            V619= CMPcar((V617));
6108            goto T2469;
6109    T2471:;
6110            V619= make_cons(VV[35],(V617));
6111    T2469:;
6112            base[1]= list(3,VV[8],V619,VV[190]);
6113            vs_top=(vs_base=base+1)+1;
6114            return;
6115            }
6116    }
6117    /*      local function GET-CLAUSE       */
6118    
6119    static L66(base0)
6120    register object *base0;
6121    {       register object *base=vs_base;
6122            register object *sup=base+VM95; VC95
6123            vs_check;
6124            {object V620;
6125            V620=(base[0]);
6126            vs_top=sup;
6127    TTL:;
6128            {register object V621;
6129            V621= Cnil;
6130    T2475:;
6131            {register object V622;
6132            register object V623;
6133            V622= CMPcar((VV[89]->s.s_dbind));
6134            bds_bind(VV[108],Cnil);
6135            V623= Cnil;
6136            if(type_of((V622))==t_symbol){
6137            goto T2481;}
6138            base[2]= VV[149];
6139            base[3]= (V622);
6140            base[4]= (V620);
6141            vs_top=(vs_base=base+2)+3;
6142            (void) (*Lnk343)();
6143            vs_top=sup;
6144            bds_unwind1;
6145            goto T2478;
6146    T2481:;
6147            (VV[88]->s.s_dbind)= (VV[89]->s.s_dbind);
6148            vs_base=vs_top;
6149            (void) (*Lnk346)();
6150            vs_top=sup;
6151            base[2]= CMPcar((VV[89]->s.s_dbind));
6152            base[3]= VV[150];
6153            vs_top=(vs_base=base+2)+2;
6154            (void) (*Lnk353)();
6155            vs_top=sup;
6156            if((vs_base[0])==Cnil){
6157            goto T2489;}
6158            if(base0[3]!=Cnil){
6159            V624= base0[3];
6160            goto T2495;}
6161            vs_base=vs_top;
6162            (void) (*Lnk374)();
6163            vs_top=sup;
6164            base0[3]= vs_base[0];
6165            V624= base0[3];
6166    T2495:;
6167            (VV[89]->s.s_dbind)= make_cons(V624,CMPcdr((VV[89]->s.s_dbind)));
6168    T2489:;
6169            base[2]= (V622);
6170            base[3]= STREF(object,(VV[96]->s.s_dbind),0);
6171            vs_top=(vs_base=base+2)+2;
6172            (void) (*Lnk347)();
6173            vs_top=sup;
6174            V623= vs_base[0];
6175            if(((V623))==Cnil){
6176            goto T2497;}
6177            base[3]= CMPcar((V623));
6178            vs_top=(vs_base=base+3)+1;
6179            Lsymbol_function();
6180            vs_top=sup;
6181            base[2]= vs_base[0];
6182            {object V625;
6183            V625= CMPcdr((V623));
6184             vs_top=base+3;
6185             while(V625!=Cnil)
6186             {vs_push((V625)->c.c_car);V625=(V625)->c.c_cdr;}
6187            vs_base=base+3;}
6188            super_funcall_no_event(base[2]);
6189            vs_top=sup;
6190            if(!(((VV[108]->s.s_dbind))==Cnil)){
6191            goto T2498;}
6192    T2497:;
6193            base[2]= VV[151];
6194            base[3]= (V622);
6195            base[4]= (V620);
6196            vs_top=(vs_base=base+2)+3;
6197            (void) (*Lnk343)();
6198            vs_top=sup;
6199            bds_unwind1;
6200            goto T2478;
6201    T2498:;
6202            base[2]= (VV[108]->s.s_dbind);
6203            base[3]= (V621);
6204            vs_top=(vs_base=base+2)+2;
6205            Lreconc();
6206            vs_top=sup;
6207            V621= vs_base[0];
6208            bds_unwind1;}
6209    T2478:;
6210            base[1]= CMPcar((VV[89]->s.s_dbind));
6211            base[2]= VV[152];
6212            vs_top=(vs_base=base+1)+2;
6213            (void) (*Lnk353)();
6214            vs_top=sup;
6215            if((vs_base[0])==Cnil){
6216            goto T2517;}
6217            vs_base=vs_top;
6218            (void) (*Lnk346)();
6219            vs_top=sup;
6220            goto T2515;
6221    T2517:;
6222            if((CMPcdr((V621)))==Cnil){
6223            goto T2522;}
6224            V626= nreverse((V621));
6225            base[1]= make_cons(VV[14],/* INLINE-ARGS */V626);
6226            vs_top=(vs_base=base+1)+1;
6227            return;
6228    T2522:;
6229            base[1]= CMPcar((V621));
6230            vs_top=(vs_base=base+1)+1;
6231            return;
6232    T2515:;
6233            goto T2475;}
6234            }
6235    }
6236    /*      local function REPLICATE        */
6237    
6238    static L59(base0)
6239    register object *base0;
6240    {       register object *base=vs_base;
6241            register object *sup=base+VM96; VC96
6242            vs_check;
6243            {object V627;
6244            object V628;
6245            V627=(base[0]);
6246            V628=(base[1]);
6247            vs_top=sup;
6248    TTL:;
6249            if(!(type_of((V628))!=t_cons)){
6250            goto T2527;}
6251            base[2]= (V627);
6252            vs_top=(vs_base=base+2)+1;
6253            return;
6254    T2527:;
6255            base[2]= (V627);
6256            base[3]= CMPcar((V628));
6257            vs_top=(vs_base=base+2)+2;
6258            L59(base0);
6259            vs_top=sup;
6260            V629= vs_base[0];
6261            base[2]= (V627);
6262            base[3]= CMPcdr((V628));
6263            vs_top=(vs_base=base+2)+2;
6264            L59(base0);
6265            vs_top=sup;
6266            V630= vs_base[0];
6267            base[2]= make_cons(V629,V630);
6268            vs_top=(vs_base=base+2)+1;
6269            return;
6270            }
6271    }
6272    /*      local function TRANSLATE        */
6273    
6274    static L58(base0)
6275    register object *base0;
6276    {       register object *base=vs_base;
6277            register object *sup=base+VM97; VC97
6278            vs_check;
6279            {register object V631;
6280            register object V632;
6281            V631=(base[0]);
6282            V632=(base[1]);
6283            vs_top=sup;
6284    TTL:;
6285            if(((V631))!=Cnil){
6286            goto T2536;}
6287            base[2]= Cnil;
6288            vs_top=(vs_base=base+2)+1;
6289            return;
6290    T2536:;
6291            if(!(type_of((V631))!=t_cons)){
6292            goto T2539;}{object V633;
6293            base[3]= (V631);
6294            base[4]= STREF(object,(VV[96]->s.s_dbind),16);
6295            vs_top=(vs_base=base+3)+2;
6296            Lgethash();
6297            vs_top=sup;
6298            V633= vs_base[0];
6299            if(V633==Cnil)goto T2542;
6300            base[2]= V633;
6301            goto T2541;
6302    T2542:;}{object V634;
6303            base[3]= symbol_name((V631));
6304            base[4]= STREF(object,(VV[96]->s.s_dbind),20);
6305            vs_top=(vs_base=base+3)+2;
6306            Lgethash();
6307            vs_top=sup;
6308            V634= vs_base[0];
6309            if(V634==Cnil)goto T2546;
6310            base[2]= V634;
6311            goto T2541;
6312    T2546:;}
6313            base[3]= VV[137];
6314            base[4]= base0[1];
6315            base[5]= (V631);
6316            vs_top=(vs_base=base+3)+3;
6317            (void) (*Lnk343)();
6318            vs_top=sup;
6319            base[2]= vs_base[0];
6320    T2541:;
6321            base[3]= (V632);
6322            vs_top=(vs_base=base+2)+2;
6323            L59(base0);
6324            return;
6325    T2539:;
6326            if(!(type_of((V632))!=t_cons)){
6327            goto T2555;}
6328            base[2]= VV[138];
6329            base[3]= base0[1];
6330            base[4]= base0[0];
6331            vs_top=(vs_base=base+2)+3;
6332            (void) (*Lnk343)();
6333            return;
6334    T2555:;
6335            base[2]= CMPcar((V631));
6336            base[3]= CMPcar((V632));
6337            vs_top=(vs_base=base+2)+2;
6338            L58(base0);
6339            vs_top=sup;
6340            V635= vs_base[0];
6341            base[2]= CMPcdr((V631));
6342            base[3]= CMPcdr((V632));
6343            vs_top=(vs_base=base+2)+2;
6344            L58(base0);
6345            vs_top=sup;
6346            V636= vs_base[0];
6347            base[2]= make_cons(V635,V636);
6348            vs_top=(vs_base=base+2)+1;
6349            return;
6350            }
6351    }
6352    /*      local function LIST-SIZE        */
6353    
6354    static L40(base0)
6355    register object *base0;
6356    {       register object *base=vs_base;
6357            register object *sup=base+VM98; VC98
6358            vs_check;
6359            {object V637;
6360            V637=(base[0]);
6361            vs_top=sup;
6362    TTL:;
6363            {int V638;
6364            V638= 0;
6365            {register object V639;
6366            object V640;
6367            V639= (V637);
6368            V640= CMPcar((V639));
6369    T2570:;
6370            if(!(((V639))==Cnil)){
6371            goto T2571;}
6372            base[2]= CMPmake_fixnum(V638);
6373            vs_top=(vs_base=base+2)+1;
6374            return;
6375    T2571:;
6376            V641 = CMPmake_fixnum(V638);
6377            base[2]= (V640);
6378            base[3]= base0[1];
6379            vs_top=(vs_base=base+2)+2;
6380            (void) (*Lnk339)();
6381            vs_top=sup;
6382            V642= vs_base[0];
6383            V638= fix(number_plus(V641,V642));
6384            V639= CMPcdr((V639));
6385            V640= CMPcar((V639));
6386            goto T2570;}}
6387            }
6388    }
6389    /*      local function MAKEBODY */
6390    
6391    static L35(base0)
6392    register object *base0;
6393    {       register object *base=vs_base;
6394            register object *sup=base+VM99; VC99
6395            vs_check;
6396            vs_top=sup;
6397    TTL:;
6398            {object V643;
6399            V645= nreverse(base0[7]);
6400            base[0]= append(base0[2],/* INLINE-ARGS */V645);
6401            vs_top=(vs_base=base+0)+1;
6402            L33(base0);
6403            vs_top=sup;
6404            V644= vs_base[0];
6405            base[1]= base0[8];
6406            base[2]= VV[75];
6407          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
6408          (void) (*Lnk231)();          Lreconc();
6409            vs_top=sup;
6410            V647= vs_base[0];
6411            base[0]= append(base0[4],V647);
6412            vs_top=(vs_base=base+0)+1;
6413            L33(base0);
6414            vs_top=sup;
6415            V646= vs_base[0];
6416            base[0]= base0[6];
6417            vs_top=(vs_base=base+0)+1;
6418            L33(base0);
6419            vs_top=sup;
6420            V648= vs_base[0];
6421            V649= make_cons(VV[76],V648);
6422            V650= append(V646,/* INLINE-ARGS */V649);
6423            V651= make_cons(VV[74],/* INLINE-ARGS */V650);
6424            V652= append(V644,/* INLINE-ARGS */V651);
6425            V643= make_cons(VV[73],/* INLINE-ARGS */V652);
6426            if((base0[9])==Cnil){
6427            goto T2596;}
6428            V653= list(2,base0[9],Cnil);
6429            base[0]= list(3,VV[29],make_cons(/* INLINE-ARGS */V653,Cnil),(V643));
6430            vs_top=(vs_base=base+0)+1;
6431            return;
6432    T2596:;
6433            base[0]= (V643);
6434            vs_top=(vs_base=base+0)+1;
6435            return;}
6436    }
6437    /*      local function PIFY     */
6438    
6439    static L34(base0)
6440    register object *base0;
6441    {       register object *base=vs_base;
6442            register object *sup=base+VM100; VC100
6443            vs_check;
6444            {object V654;
6445            V654=(base[0]);
6446            vs_top=sup;
6447    TTL:;
6448            if((CMPcdr((V654)))!=Cnil){
6449            goto T2599;}
6450            base[1]= CMPcar((V654));
6451            vs_top=(vs_base=base+1)+1;
6452            return;
6453    T2599:;
6454            base[1]= make_cons(VV[14],(V654));
6455            vs_top=(vs_base=base+1)+1;
6456            return;
6457            }
6458    }
6459    /*      local function PSIMP    */
6460    
6461    static L33(base0)
6462    register object *base0;
6463    {       register object *base=vs_base;
6464            register object *sup=base+VM101; VC101
6465            vs_check;
6466            {object V655;
6467            V655=(base[0]);
6468            vs_top=sup;
6469    TTL:;
6470            {register object V656;
6471            V656= Cnil;
6472            {register object V657;
6473            register object V658;
6474            V657= (V655);
6475            V658= CMPcar((V657));
6476    T2605:;
6477            if(!(((V657))==Cnil)){
6478            goto T2606;}
6479            goto T2601;
6480    T2606:;
6481            if(((V658))==Cnil){
6482            goto T2610;}
6483            V656= make_cons((V658),(V656));
6484            if(!(type_of((V658))==t_cons)){
6485            goto T2610;}
6486            {register object x= CMPcar((V658)),V659= VV[72];
6487            while(V659!=Cnil)
6488            if(eql(x,V659->c.c_car)){
6489            goto T2618;
6490            }else V659=V659->c.c_cdr;
6491            goto T2610;}
6492    T2618:;
6493            goto T2601;
6494    T2610:;
6495            V657= CMPcdr((V657));
6496            V658= CMPcar((V657));
6497            goto T2605;}
6498    T2601:;
6499            base[1]= nreverse((V656));
6500            vs_top=(vs_base=base+1)+1;
6501            return;}
6502            }
6503    }
6504    /*      local function FIND-NON-NULL    */
6505    
6506    static L27(base0)
6507    register object *base0;
6508    {       register object *base=vs_base;
6509            register object *sup=base+VM102; VC102
6510            vs_check;
6511            {object V660;
6512            V660=(base[0]);
6513            vs_top=sup;
6514    TTL:;
6515            {register object V661;
6516            V661= (V660);
6517    T2625:;
6518            if(type_of((V661))==t_cons){
6519            goto T2626;}
6520            base[1]= (V661);
6521            vs_top=(vs_base=base+1)+1;
6522            return;
6523    T2626:;
6524            {register object V662;
6525            V662= CMPcar((V661));
6526            V661= CMPcdr((V661));
6527            base[1]= (V662);}
6528            vs_top=(vs_base=base+1)+1;
6529            L27(base0);
6530          vs_top=sup;          vs_top=sup;
6531          V454= vs_base[0];{object V455;          if((vs_base[0])==Cnil){
6532          V455= symbol_value(VV[171]);          goto T2630;}
6533          V456= symbol_function(VV[265]);          base[1]= Ct;
         V457= (VFUN_NARGS=6,(*(LnkLI234))(V454,V455,VV[25],V456,VV[224],small_fixnum(1)));  
         setq(VV[171],make_cons(/* INLINE-ARGS */V453,/* INLINE-ARGS */V457));}  
         if(endp(V451=MMcdr(V451))){  
         base[1]= car((V450));  
6534          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
6535            return;
6536    T2630:;
6537            goto T2625;}
6538            }
6539    }
6540    /*      local function LOOP-DESETQ-INTERNAL     */
6541    
6542    static L28(base0)
6543    register object *base0;
6544    {       register object *base=vs_base;
6545            register object *sup=base+VM103; VC103
6546            vs_check;
6547            {register object V663;
6548            register object V664;
6549            object V665;
6550            V663=(base[0]);
6551            V664=(base[1]);
6552            vs_base=vs_base+2;
6553            if(vs_base>=vs_top){vs_top=sup;goto T2639;}
6554            V665=(base[2]);
6555            vs_top=sup;
6556            goto T2640;
6557    T2639:;
6558            V665= Cnil;
6559    T2640:;
6560            {register object V666;
6561            V666= (V663);
6562            if(!(((V666))==Cnil)){
6563            goto T2643;}
6564            if(!(type_of((V664))==t_cons)){
6565            goto T2646;}
6566            if(!((CMPcar((V664)))==(VV[62]))){
6567            goto T2649;}
6568            {object V667;
6569            object V668= CMPcdr((V664));
6570            if(V668==Cnil){
6571            base[4]= Cnil;
6572            vs_top=(vs_base=base+4)+1;
6573            return;}
6574            base[3]=V667=MMcons(Cnil,Cnil);
6575    T2651:;
6576            {register object V669;
6577            V669= (V668->c.c_car);
6578            if(type_of((V669))==t_cons){
6579            goto T2653;}
6580            (V667->c.c_cdr)= Cnil;
6581            goto T2652;
6582    T2653:;
6583            if(!((((CMPcar((V669)))==(VV[65])?Ct:Cnil))==Cnil)){
6584            goto T2657;}
6585            goto T2655;
6586    T2657:;
6587            if(!(((type_of(CMPcadr((V669)))==t_symbol?Ct:Cnil))==Cnil)){
6588            goto T2659;}
6589            goto T2655;
6590    T2659:;
6591            base[4]= (V669);
6592            base[5]= base0[1];
6593            vs_top=(vs_base=base+4)+2;
6594            Lmacroexpand();
6595            vs_top=sup;
6596            V669= vs_base[0];
6597            if(((type_of((V669))==t_symbol?Ct:Cnil))==Cnil){
6598            goto T2655;}
6599            (V667->c.c_cdr)= Cnil;
6600            goto T2652;
6601    T2655:;
6602            (V667->c.c_cdr)= make_cons((V669),Cnil);}
6603    T2652:;
6604            while(MMcdr(V667)!=Cnil)V667=MMcdr(V667);
6605            if((V668=MMcdr(V668))==Cnil){
6606            base[3]=base[3]->c.c_cdr;
6607            vs_top=(vs_base=base+3)+1;
6608            return;}
6609            goto T2651;}
6610    T2649:;
6611            base[3]= make_cons((V664),Cnil);
6612            vs_top=(vs_base=base+3)+1;
6613            return;
6614    T2646:;
6615            base[3]= Cnil;
6616            vs_top=(vs_base=base+3)+1;
6617            return;
6618    T2643:;
6619            if(!(type_of((V666))==t_cons)){
6620            goto T2665;}
6621            {object V670;
6622            object V671;
6623            object V672;
6624            object V673;
6625            V670= CMPcar((V663));
6626            V671= CMPcdr((V663));
6627            base[7]= (V670);
6628            vs_top=(vs_base=base+7)+1;
6629            L27(base0);
6630            vs_top=sup;
6631            V672= vs_base[0];
6632            base[7]= (V671);
6633            vs_top=(vs_base=base+7)+1;
6634            L27(base0);
6635            vs_top=sup;
6636            V673= vs_base[0];
6637            if(((V672))!=Cnil){
6638            goto T2673;}
6639            if(((V673))==Cnil){
6640            goto T2674;}
6641    T2673:;
6642            if(((V673))==Cnil){
6643            goto T2679;}
6644            {register object V675;
6645            object V676;
6646            if((V665)!=Cnil){
6647            V675= (V665);
6648            goto T2681;}
6649            V675= (VV[66]->s.s_dbind);
6650    T2681:;
6651            base[9]= (V670);
6652            base[10]= list(2,VV[65],(V675));
6653            vs_top=(vs_base=base+9)+2;
6654            L28(base0);
6655            vs_top=sup;
6656            V677= vs_base[0];
6657            V678= list(3,VV[11],(V675),list(2,VV[10],(V675)));
6658            base[9]= (V671);
6659            base[10]= (V675);
6660            base[11]= (V675);
6661            vs_top=(vs_base=base+9)+3;
6662            L28(base0);
6663            vs_top=sup;
6664            V679= vs_base[0];
6665            V680= make_cons(/* INLINE-ARGS */V678,V679);
6666            V676= append(V677,/* INLINE-ARGS */V680);
6667            if((V665)==Cnil){
6668            goto T2691;}
6669            if(((V675))==((V664))){
6670            goto T2695;}
6671            V682= list(3,VV[11],(V675),(V664));
6672            V681= make_cons(/* INLINE-ARGS */V682,Cnil);
6673            goto T2693;
6674    T2695:;
6675            V681= Cnil;
6676    T2693:;
6677            base[9]= append(V681,(V676));
6678            vs_top=(vs_base=base+9)+1;
6679            return;
6680    T2691:;
6681            V683= list(2,(V675),(V664));
6682            V684= listA(3,VV[29],make_cons(/* INLINE-ARGS */V683,Cnil),(V676));
6683            base[9]= make_cons(/* INLINE-ARGS */V684,Cnil);
6684            vs_top=(vs_base=base+9)+1;
6685            return;}
6686    T2679:;
6687            base[7]= (V670);
6688            base[8]= list(2,VV[65],(V664));
6689            base[9]= (V665);
6690            vs_top=(vs_base=base+7)+3;
6691            L28(base0);
6692            return;
6693    T2674:;
6694            base[7]= Cnil;
6695            vs_top=(vs_base=base+7)+1;
6696            return;}
6697    T2665:;
6698            if(((V663))==((V664))){
6699            goto T2701;}
6700            V685= list(3,VV[11],(V663),(V664));
6701            base[3]= make_cons(/* INLINE-ARGS */V685,Cnil);
6702            vs_top=(vs_base=base+3)+1;
6703            return;
6704    T2701:;
6705            base[3]= Cnil;
6706            vs_top=(vs_base=base+3)+1;
6707          return;}          return;}
         goto T1997;}  
6708          }          }
6709  }  }
6710  static LnkT267(){ call_or_link(VV[267],&Lnk267);} /* LOOP-NAMED-VARIABLE */  /*      local function MAKETABLE        */
6711  static LnkT266(){ call_or_link(VV[266],&Lnk266);} /* LOOP-MAYBE-BIND-FORM */  
6712  static LnkT264(){ call_or_link(VV[264],&Lnk264);} /* LOOP-SEQUENCER */  static L23(base0)
6713  static LnkT263(){ call_or_link(VV[263],&Lnk263);} /* LOOP-GATHER-PREPS */  register object *base0;
6714  static LnkT262(){ call_or_link(VV[262],&Lnk262);} /* LOOP-END-TESTIFY */  {       register object *base=vs_base;
6715  static LnkT261(){ call_or_link(VV[261],&Lnk261);} /* LOOP-SIMPLEP-1 */          register object *sup=base+VM104; VC104
6716  static LnkT260(){ call_or_link(VV[260],&Lnk260);} /* LOOP-WHEN-IT-VARIABLE */          vs_check;
6717  static LnkT259(){ call_or_link(VV[259],&Lnk259);} /* LOOP-CDRIFY */          {object V686;
6718  static LnkT258(){ call_or_link(VV[258],&Lnk258);} /* LOOP-TYPED-ARITH */          V686=(base[0]);
6719  static LnkT257(){ call_or_link(VV[257],&Lnk257);} /* LOOP-MAKE-ITERATION-VARIABLE */          vs_top=sup;
6720  static LnkT256(){ call_or_link(VV[256],&Lnk256);} /* LOOP-OPTIONAL-TYPE */  TTL:;
6721  static LnkT251(){ call_or_link(VV[251],&Lnk251);} /* LOOP-CONSTRUCT-RETURN */          {object V687;
6722  static LnkT250(){ call_or_link(VV[250],&Lnk250);} /* LOOP-GET-FORM */          object V688;
6723  static LnkT249(){ call_or_link(VV[249],&Lnk249);} /* LOOP-EMIT-BODY */          V687= CMPmake_fixnum(length((V686)));
6724  static LnkT248(){ call_or_link(VV[248],&Lnk248);} /* LOOP-GET-PROGN */          base[3]= VV[61];
6725  static LnkT247(){ call_or_link(VV[247],&Lnk247);} /* LOOP-PSEUDO-BODY */          if(!(number_compare((V687),small_fixnum(10))<0)){
6726  static LnkT246(){ call_or_link(VV[246],&Lnk246);} /* LOOP-MAKE-CONDITIONALIZATION */          goto T2708;}
6727  static LnkT245(){ call_or_link(VV[245],&Lnk245);} /* LOOP-CONSTANTP */          base[4]= small_fixnum(10);
6728  static LnkT244(){ call_or_link(VV[244],&Lnk244);} /* LOOP-TEQUAL */          goto T2706;
6729  static LnkT243(){ call_or_link(VV[243],&Lnk243);} /* LOOP-TYPED-INIT */  T2708:;
6730  static LnkT92(){ call_or_link(VV[92],&Lnk92);} /* LOOP-DECLARE-VARIABLE */          base[4]= (V687);
6731  static object  LnkTLI242(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[242],&LnkLI242,2,ap);} /* COERCE */  T2706:;
6732  static object  LnkTLI5(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[5],&LnkLI5,ap);} /* WARN */          base[5]= VV[20];
6733  static LnkT241(){ call_or_link(VV[241],&Lnk241);} /* LOOP-GET-PROGN-1 */          base[6]= (VV[397]->s.s_gfdef);
6734  static LnkT240(){ call_or_link(VV[240],&Lnk240);} /* LOOP-TMEMBER */          vs_top=(vs_base=base+3)+4;
6735  static LnkT239(){ call_or_link(VV[239],&Lnk239);} /* LOOP-HACK-ITERATION */          Lmake_hash_table();
6736  static LnkT238(){ call_or_link(VV[238],&Lnk238);} /* LOOP-BIND-BLOCK */          vs_top=sup;
6737  static LnkT237(){ call_or_link(VV[237],&Lnk237);} /* LOOP-OPTIMIZE-DUPLICATED-CODE-ETC */          V688= vs_base[0];
6738  static LnkT236(){ call_or_link(VV[236],&Lnk236);} /* LOOP-MAKE-VARIABLE */          {register object V689;
6739  static LnkT235(){ call_or_link(VV[235],&Lnk235);} /* LOOP-OUTPUT-GROUP */          register object V690;
6740  static LnkT136(){ call_or_link(VV[136],&Lnk136);} /* LOOP-SIMPLEP */          V689= (V686);
6741  static object  LnkTLI234(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[234],&LnkLI234,ap);} /* DELETE */          V690= CMPcar((V689));
6742  static LnkT233(){ call_or_link(VV[233],&Lnk233);} /* LOOP-TRANSLATE-1 */  T2716:;
6743  static LnkT232(){ call_or_link(VV[232],&Lnk232);} /* LOOP-TRANSLATE */          if(!(((V689))==Cnil)){
6744  static LnkT231(){ call_or_link(VV[231],&Lnk231);} /* LOOP-TASSOC */          goto T2717;}
6745  static LnkT229(){ call_or_link(VV[229],&Lnk229);} /* LOOP-MAKE-DESETQ */          goto T2712;
6746  static LnkT228(){ call_or_link(VV[228],&Lnk228);} /* LOOP-DESETQ-INTERNAL */  T2717:;
6747  static LnkT227(){ call_or_link(VV[227],&Lnk227);} /* LOOP-MAKE-SETQ */          {object V691;
6748  static LnkT226(){ call_or_link(VV[226],&Lnk226);} /* LOOP-MAKE-PSETQ */          object V693;
6749  static object  LnkTLI225(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[225],&LnkLI225,ap);} /* CONCATENATE */          V691= symbol_name(CMPcar((V690)));
6750            V693= CMPcadr((V690));
6751            base[6]= (V691);
6752            base[7]= V688;
6753            base[8]= (V693);
6754            vs_top=(vs_base=base+6)+3;
6755            siLhash_set();
6756            vs_top=sup;}
6757            V689= CMPcdr((V689));
6758            V690= CMPcar((V689));
6759            goto T2716;}
6760    T2712:;
6761            base[3]= (V688);
6762            vs_top=(vs_base=base+3)+1;
6763            return;}
6764            }
6765    }
6766    /*      local function CDR-WRAP */
6767    
6768    static L8(base0)
6769    register object *base0;
6770    {       register object *base=vs_base;
6771            register object *sup=base+VM105; VC105
6772            vs_check;
6773            {register object V694;
6774            register int V695;
6775            V694=(base[0]);
6776            V695=fix(base[1]);
6777            vs_top=sup;
6778    TTL:;
6779    T2733:;
6780            if(!((V695)<=(4))){
6781            goto T2734;}switch(V695){
6782            case 1:
6783    T2740:;
6784            V696= VV[10];
6785            goto T2738;
6786            case 2:
6787    T2741:;
6788            V696= VV[15];
6789            goto T2738;
6790            case 3:
6791    T2742:;
6792            V696= VV[16];
6793            goto T2738;
6794            case 4:
6795    T2743:;
6796            V696= VV[17];
6797            goto T2738;
6798            default:
6799    T2744:;
6800            V696= Cnil;
6801            goto T2738;}
6802            V696= Cnil;
6803    T2738:;
6804            V694= list(2,V696,(V694));
6805            base[2]= (V694);
6806            vs_top=(vs_base=base+2)+1;
6807            return;
6808    T2734:;
6809            V694= list(2,VV[17],(V694));
6810            V695= (V695)-(4);
6811            goto T2733;
6812            }
6813    }
6814    static LnkT396(){ call_or_link(VV[396],&Lnk396);} /* LOOP-STANDARD-EXPANSION */
6815    static LnkT395(){ call_or_link(VV[395],&Lnk395);} /* LOOP-TRANSLATE */
6816    static LnkT394(){ call_or_link(VV[394],&Lnk394);} /* ADD-LOOP-PATH */
6817    static LnkT393(){ call_or_link(VV[393],&Lnk393);} /* MAKE-STANDARD-LOOP-UNIVERSE */
6818    static LnkT390(){ call_or_link(VV[390],&Lnk390);} /* NAMED-VARIABLE */
6819    static LnkT385(){ call_or_link(VV[385],&Lnk385);} /* LOOP-SEQUENCER */
6820    static LnkT382(){ call_or_link(VV[382],&Lnk382);} /* DELETE */
6821    static LnkT381(){ call_or_link(VV[381],&Lnk381);} /* LOOP-TASSOC */
6822    static LnkT380(){ call_or_link(VV[380],&Lnk380);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */
6823    static LnkT379(){ call_or_link(VV[379],&Lnk379);} /* MAKE-LOOP-PATH */
6824    static LnkT378(){ call_or_link(VV[378],&Lnk378);} /* STRUCTURE-SUBTYPE-P */
6825    static LnkT377(){ call_or_link(VV[377],&Lnk377);} /* LOOP-LIST-STEP */
6826    static LnkT376(){ call_or_link(VV[376],&Lnk376);} /* LOOP-MAKE-ITERATION-VARIABLE */
6827    static LnkT375(){ call_or_link(VV[375],&Lnk375);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */
6828    static LnkT374(){ call_or_link(VV[374],&Lnk374);} /* LOOP-WHEN-IT-VARIABLE */
6829    static LnkT373(){ call_or_link(VV[373],&Lnk373);} /* LOOP-NOTE-MINIMAX-OPERATION */
6830    static LnkT372(){ call_or_link(VV[372],&Lnk372);} /* MAKE-LOOP-MINIMAX */
6831    static LnkT371(){ call_or_link(VV[371],&Lnk371);} /* LOOP-CHECK-DATA-TYPE */
6832    static LnkT368(){ call_or_link(VV[368],&Lnk368);} /* LOOP-EMIT-FINAL-VALUE */
6833    static LnkT367(){ call_or_link(VV[367],&Lnk367);} /* LOOP-GET-COLLECTION-INFO */
6834    static LnkT366(){ call_or_link(VV[366],&Lnk366);} /* MAKE-LOOP-COLLECTOR */
6835    static LnkT365(){ call_or_link(VV[365],&Lnk365);} /* FIND */
6836    static LnkT363(){ call_or_link(VV[363],&Lnk363);} /* LOOP-OPTIONAL-TYPE */
6837    static LnkT360(){ call_or_link(VV[360],&Lnk360);} /* LOOP-EMIT-BODY */
6838    static LnkT359(){ call_or_link(VV[359],&Lnk359);} /* LOOP-GET-PROGN */
6839    static LnkT358(){ call_or_link(VV[358],&Lnk358);} /* LOOP-DISALLOW-CONDITIONAL */
6840    static LnkT357(){ call_or_link(VV[357],&Lnk357);} /* LOOP-GET-FORM */
6841    static LnkT356(){ call_or_link(VV[356],&Lnk356);} /* LOOP-CONSTANTP */
6842    static LnkT355(){ call_or_link(VV[355],&Lnk355);} /* LOOP-MAKE-VARIABLE */
6843    static LnkT354(){ call_or_link(VV[354],&Lnk354);} /* LOOP-DECLARE-VARIABLE */
6844    static LnkT353(){ call_or_link(VV[353],&Lnk353);} /* LOOP-TEQUAL */
6845    static LnkT352(){ call_or_link(VV[352],&Lnk352);} /* COERCE */
6846    static LnkT351(){ call_or_link(VV[351],&Lnk351);} /* LOOP-CONSTRUCT-RETURN */
6847    static LnkT350(){ call_or_link(VV[350],&Lnk350);} /* LOOP-PSEUDO-BODY */
6848    static LnkT349(){ call_or_link(VV[349],&Lnk349);} /* LOOP-TMEMBER */
6849    static LnkT348(){ call_or_link(VV[348],&Lnk348);} /* LOOP-HACK-ITERATION */
6850    static LnkT347(){ call_or_link(VV[347],&Lnk347);} /* LOOP-LOOKUP-KEYWORD */
6851    static LnkT346(){ call_or_link(VV[346],&Lnk346);} /* LOOP-POP-SOURCE */
6852    static LnkT345(){ call_or_link(VV[345],&Lnk345);} /* LOOP-BIND-BLOCK */
6853    static LnkT344(){ call_or_link(VV[344],&Lnk344);} /* LOOP-ITERATION-DRIVER */
6854    static LnkT343(){ call_or_link(VV[343],&Lnk343);} /* LOOP-ERROR */
6855    static LnkT323(){ call_or_link(VV[323],&Lnk323);} /* SUBTYPEP */
6856    static LnkT342(){ call_or_link(VV[342],&Lnk342);} /* WARN */
6857    static LnkT341(){ call_or_link(VV[341],&Lnk341);} /* LOOP-CONTEXT */
6858    static LnkT340(){ call_or_link(VV[340],&Lnk340);} /* SPECIAL-OPERATOR-P */
6859    static LnkT339(){ call_or_link(VV[339],&Lnk339);} /* ESTIMATE-CODE-SIZE-1 */
6860    static LnkT338(){ call_or_link(VV[338],&Lnk338);} /* DESTRUCTURING-SIZE */
6861    static LnkT77(){ call_or_link(VV[77],&Lnk77);} /* ESTIMATE-CODE-SIZE */
6862    static LnkT337(){ call_or_link(VV[337],&Lnk337);} /* LOOP-CODE-DUPLICATION-THRESHOLD */
6863    static LnkT336(){ call_or_link(VV[336],&Lnk336);} /* LOOP-OPTIMIZATION-QUANTITIES */
6864    static LnkT335(){ call_or_link(VV[335],&Lnk335);} /* LOOP-WARN */
6865    static LnkT334(){ call_or_link(VV[334],&Lnk334);} /* LOOP-MAKE-DESETQ */
6866    static LnkT333(){ call_or_link(VV[333],&Lnk333);} /* LOOP-MAKE-PSETQ */
6867    static LnkT332(){ call_or_link(VV[332],&Lnk332);} /* MAKE-LOOP-UNIVERSE */
6868    static LnkT330(){ call_or_link(VV[330],&Lnk330);} /* TYPEP */
6869    static LnkT328(){ call_or_link(VV[328],&Lnk328);} /* HIDE-VARIABLE-REFERENCE */
6870    static LnkT326(){ call_or_link(VV[326],&Lnk326);} /* LOOP-TYPED-INIT */
6871    static LnkT325(){ call_or_link(VV[325],&Lnk325);} /* MAKE-LOOP-MINIMAX-INTERNAL */
6872    static LnkT324(){ call_or_link(VV[324],&Lnk324);} /* LOOP-GENTEMP */

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

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