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

Diff of /gcl/lsp/gcl_top.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:20 2003 UTC
# Line 42  T8:; Line 42  T8:;
42          goto T6;          goto T6;
43  T6:;  T6:;
44          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
45          base[11]= (VV[16]->s.s_dbind);          V1= (*(LnkLI150))((VV[16]->s.s_dbind));
         vs_top=(vs_base=base+11)+1;  
         (void) (*Lnk150)();  
         vs_top=sup;  
46          bds_unwind1;          bds_unwind1;
47          base[10]= (VV[17]->s.s_dbind);          base[10]= (VV[17]->s.s_dbind);
48          vs_top=(vs_base=base+10)+1;          vs_top=(vs_base=base+10)+1;
49          Lfunctionp();          Lfunctionp();
50          vs_top=sup;          vs_top=sup;
51          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
52          goto T15;}          goto T14;}
53          frs_pop();          frs_pop();
54          goto T3;          goto T3;
55          goto T15;          goto T14;
56  T15:;  T14:;
57          V1= (          V2= (
58          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)):          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)):
59          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());
60          frs_pop();}          frs_pop();}
61          goto T3;          goto T3;
62  T3:;  T3:;
63          goto T19;          goto T18;
64  T19:;  T18:;
65          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
66          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
67          (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);          (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
68          if(((VV[18]->s.s_dbind))==Cnil){          if(((VV[18]->s.s_dbind))==Cnil){
69          goto T29;}          goto T28;}
70          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
71          goto T27;          goto T26;
72          goto T29;          goto T28;
73  T29:;  T28:;
74          base[10]= Ct;          base[10]= Ct;
75          base[11]= VV[19];{VOL object V2;          base[11]= VV[19];{VOL object V3;
76          V2= (VV[20]->s.s_dbind);          V3= (VV[20]->s.s_dbind);
77          base[13]= VV[21];          base[13]= VV[21];
78          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
79          Lfind_package();          Lfind_package();
80          vs_top=sup;          vs_top=sup;
81          V3= vs_base[0];          V4= vs_base[0];
82          if(!((V2)==(V3))){          if(!((V3)==(V4))){
83          goto T36;}}          goto T35;}}
84          base[12]= VV[22];          base[12]= VV[22];
85          goto T34;          goto T33;
86          goto T36;          goto T35;
87  T36:;  T35:;
88          base[13]= (VV[20]->s.s_dbind);          base[13]= (VV[20]->s.s_dbind);
89          vs_top=(vs_base=base+13)+1;          vs_top=(vs_base=base+13)+1;
90          Lpackage_name();          Lpackage_name();
91          vs_top=sup;          vs_top=sup;
92          base[12]= vs_base[0];          base[12]= vs_base[0];
93          goto T34;          goto T33;
94  T34:;  T33:;
95          vs_top=(vs_base=base+10)+3;          vs_top=(vs_base=base+10)+3;
96          Lformat();          Lformat();
97          vs_top=sup;          vs_top=sup;
98          goto T27;          goto T26;
99  T27:;  T26:;
100          vs_base=vs_top;          vs_base=vs_top;
101          siLreset_stack_limits();          siLreset_stack_limits();
102          vs_top=sup;          vs_top=sup;
103          if(((VV[12]->s.s_dbind))==Cnil){          if(((VV[12]->s.s_dbind))==Cnil){
104          goto T42;}          goto T41;}
105          {object V4 = Cnil;          {object V5 = Cnil;
106          bds_unwind1;          bds_unwind1;
107          bds_unwind1;          bds_unwind1;
108          bds_unwind1;          bds_unwind1;
# Line 116  T27:; Line 113  T27:;
113          bds_unwind1;          bds_unwind1;
114          bds_unwind1;          bds_unwind1;
115          bds_unwind1;          bds_unwind1;
116          VMR1(V4)}          VMR1(V5)}
117          goto T42;          goto T41;
118  T42:;  T41:;
119          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
120          if(nlj_active)          if(nlj_active)
121          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
122          vs_top=sup;          vs_top=sup;
123          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
124          goto T20;}          goto T19;}
125          goto T46;}          goto T45;}
126          else{          else{
127          base[10]= (VV[23]->s.s_dbind);          base[10]= (VV[23]->s.s_dbind);
128          base[11]= Cnil;          base[11]= Cnil;
129          base[12]= (VV[24]->s.s_dbind);          base[12]= (VV[24]->s.s_dbind);
130          (VV[3]->s.s_dbind)= simple_symlispcall(VV[151],base+10,3);          (VV[3]->s.s_dbind)= simple_symlispcall(VV[151],base+10,3);
131          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){
132          goto T53;}          goto T52;}
133          vs_base=vs_top;          vs_base=vs_top;
134          Lby();          Lby();
135          vs_top=sup;          vs_top=sup;
136          goto T53;          goto T52;
137  T53:;  T52:;
138          {object V5;          {object V6;
139          base[10]= (VV[3]->s.s_dbind);          base[10]= (VV[3]->s.s_dbind);
140          symlispcall(VV[152],base+10,1);          symlispcall(VV[152],base+10,1);
141          Llist();          Llist();
142          vs_top=sup;          vs_top=sup;
143          V5= vs_base[0];          V6= vs_base[0];
144          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
145          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
146          (VV[7]->s.s_dbind)= (V5);          (VV[7]->s.s_dbind)= (V6);
147          (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);          (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
148          (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);          (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
149          (VV[4]->s.s_dbind)= CMPcar((VV[7]->s.s_dbind));          (VV[4]->s.s_dbind)= CMPcar((VV[7]->s.s_dbind));
150          vs_base=vs_top;          vs_base=vs_top;
151          Lfresh_line();          Lfresh_line();
152          vs_top=sup;          vs_top=sup;
153          {register object V6;          {register object V7;
154          register object V7;          register object V8;
155          V6= (VV[7]->s.s_dbind);          V7= (VV[7]->s.s_dbind);
156          V7= CMPcar((V6));          V8= CMPcar((V7));
157            goto T75;
158    T75:;
159            if(!(((V7))==Cnil)){
160            goto T76;}
161            goto T71;
162          goto T76;          goto T76;
163  T76:;  T76:;
164          if(!(((V6))==Cnil)){          base[11]= (V8);
         goto T77;}  
         goto T72;  
         goto T77;  
 T77:;  
         base[11]= (V7);  
165          (void)simple_symlispcall(VV[153],base+11,1);          (void)simple_symlispcall(VV[153],base+11,1);
166          princ_char(10,Cnil);          princ_char(10,Cnil);
167          V6= CMPcdr((V6));          V7= CMPcdr((V7));
168          V7= CMPcar((V6));          V8= CMPcar((V7));
169          goto T76;}          goto T75;}
170          goto T72;          goto T71;
171  T72:;  T71:;
172          frs_pop();          frs_pop();
173          goto T20;}}          goto T19;}}
174          goto T46;          goto T45;
175  T46:;  T45:;
176          (VV[25]->s.s_dbind)= Cnil;          (VV[25]->s.s_dbind)= Cnil;
177          (VV[26]->s.s_dbind)= Cnil;          (VV[26]->s.s_dbind)= Cnil;
178          princ_char(10,VV[27]);          princ_char(10,VV[27]);
179          vs_base=vs_top;          vs_base=vs_top;
180          (void) (*Lnk154)();          (void) (*Lnk154)();
181          vs_top=sup;          vs_top=sup;
         goto T20;  
 T20:;  
182          goto T19;          goto T19;
183    T19:;
184            goto T18;
185          base[0]=base[0];          base[0]=base[0];
186          return Cnil;          return Cnil;
187  }  }
188  /*      function definition for PROCESS-SOME-ARGS       */  /*      local entry for function PROCESS-SOME-ARGS      */
189    
190  static void L2()  static object LI2(V10)
191  {register object *base=vs_base;  
192          register object *sup=base+VM2; VC2  register object V10;
193          vs_check;  {        VMB2 VMS2 VMV2
         {register object V8;  
         V8=(base[0]);  
         vs_top=sup;  
194          goto TTL;          goto TTL;
195  TTL:;  TTL:;
196          goto T96;          goto T95;
197  T96:;  T95:;
198          {register object V9;          {register object V11;
199          register object V10;          register object V12;
200          V9= CMPcar((V8));          V11= CMPcar((V10));
201          V10= Cnil;          V12= Cnil;
202          if(!(equal((V9),VV[28]))){          if(!(equal((V11),VV[28]))){
203          goto T102;}          goto T101;}
204          base[1]= CMPcadr((V8));          base[0]= CMPcadr((V10));
205          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
206          (void) (*Lnk149)();          (void) (*Lnk149)();
207          vs_top=sup;          vs_top=sup;
208          goto T100;          goto T99;
209          goto T102;          goto T101;
210  T102:;  T101:;
211          if(!(equal((V9),VV[29]))){          if(!(equal((V11),VV[29]))){
212          goto T106;}          goto T105;}
213          base[2]= CMPcadr((V8));          base[1]= CMPcadr((V10));
214          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+1)+1;
215          (void) (*Lnk155)();          (void) (*Lnk155)();
216          vs_top=sup;          vs_top=sup;
217          base[1]= vs_base[0];          base[0]= vs_base[0];
218          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
219          Leval();          Leval();
220          vs_top=sup;          vs_top=sup;
221          goto T100;          goto T99;
222          goto T106;          goto T105;
223  T106:;  T105:;
224          V10= Ct;          V12= Ct;
225          goto T100;          goto T99;
226  T100:;  T99:;
227            if((V12)!=Cnil){
228            goto T110;}
229            V10= CMPcdr((V10));
230            goto T110;
231    T110:;
232            V10= CMPcdr((V10));}
233          if((V10)!=Cnil){          if((V10)!=Cnil){
234          goto T111;}          goto T96;}
235          V8= CMPcdr((V8));          {object V13 = Cnil;
236          goto T111;          VMR2(V13)}
 T111:;  
         V8= CMPcdr((V8));}  
         if((V8)!=Cnil){  
         goto T97;}  
         base[1]= Cnil;  
         vs_top=(vs_base=base+1)+1;  
         return;  
         goto T97;  
 T97:;  
237          goto T96;          goto T96;
238          }  T96:;
239            goto T95;
240            base[0]=base[0];
241            return Cnil;
242  }  }
243  /*      function definition for DBL-READ        */  /*      local entry for function DBL-READ       */
244    
245  static void L3()  static object LI3(object first,...)
246  {register object *base=vs_base;  {      
247          register object *sup=base+VM3; VC3          va_list ap;
248          vs_check;          int narg = VFUN_NARGS; VMB3 VMS3 VMV3
249          {register object V11;          {register object V14;
250          register object V12;          register object V15;
251          register object V13;          register object V16;
252          if(vs_base>=vs_top){vs_top=sup;goto T115;}          va_start(ap,first);
253          V11=(base[0]);          narg = narg - 0;
254          vs_base++;          if (narg <= 0) goto T114;
255          if(vs_base>=vs_top){vs_top=sup;goto T116;}          else {
256          V12=(base[1]);          V14= first;}
257          vs_base++;          if (--narg <= 0) goto T115;
258          if(vs_base>=vs_top){vs_top=sup;goto T117;}          else {
259          V13=(base[2]);          V15= va_arg(ap,object);}
260          vs_top=sup;          if (--narg <= 0) goto T116;
261          goto T118;          else {
262            V16= va_arg(ap,object);}
263            --narg; goto T117;
264            goto T114;
265    T114:;
266            V14= (VV[23]->s.s_dbind);
267          goto T115;          goto T115;
268  T115:;  T115:;
269          V11= (VV[23]->s.s_dbind);          V15= Ct;
270          goto T116;          goto T116;
271  T116:;  T116:;
272          V12= Ct;          V16= Cnil;
273          goto T117;          goto T117;
274  T117:;  T117:;
275          V13= Cnil;          {object V17;
276          goto T118;          register object V18;
277  T118:;          V17= Cnil;
278          {object V14;          V18= Cnil;
279          register object V15;          goto T125;
280          V14= Cnil;  T125:;
281          V15= Cnil;          base[0]= (V14);
282          goto T126;          base[1]= (V15);
283  T126:;          base[2]= (V16);
284          base[3]= (V11);          vs_top=(vs_base=base+0)+3;
         base[4]= (V12);  
         base[5]= (V13);  
         vs_top=(vs_base=base+3)+3;  
285          Lread_char();          Lread_char();
286          vs_top=sup;          vs_top=sup;
287          V15= vs_base[0];          V18= vs_base[0];
288          if(!(eql((V15),VV[30]))){          if(!(eql((V18),VV[30]))){
289          goto T134;}          goto T133;}
290          goto T126;          goto T125;
291          goto T134;          goto T133;
292  T134:;  T133:;
293          if(!(((V15))==((V13)))){          if(!(((V18))==((V16)))){
294          goto T132;}          goto T131;}
295          base[3]= (V13);          {object V19 = (V16);
296          vs_top=(vs_base=base+3)+1;          VMR3(V19)}
297          return;          goto T131;
298          goto T132;  T131:;
299  T132:;          base[0]= (V18);
300          base[3]= (V15);          base[1]= (V14);
301          base[4]= (V11);          vs_top=(vs_base=base+0)+2;
         vs_top=(vs_base=base+3)+2;  
302          Lunread_char();          Lunread_char();
303          vs_top=sup;          vs_top=sup;
304          goto T124;          goto T123;
305          goto T124;          goto T123;
306  T124:;  T123:;
307          if(!(eql(VV[31],(V15)))){          if(!(eql(VV[31],(V18)))){
308          goto T142;}          goto T141;}
309          base[3]= VV[32];          base[0]= VV[32];
310          base[5]= (V11);          base[2]= (V14);
311          base[6]= (V12);          base[3]= (V15);
312          base[7]= (V13);          base[4]= (V16);
313          vs_top=(vs_base=base+5)+3;          vs_top=(vs_base=base+2)+3;
314          Lread_line();          Lread_line();
315          vs_top=sup;          vs_top=sup;
316          base[4]= vs_base[0];          base[1]= vs_base[0];
317          base[5]= VV[33];          base[2]= VV[33];
318          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+0)+3;
319          (void) (*Lnk156)();          (void) (*Lnk156)();
320          vs_top=sup;          vs_top=sup;
321          V14= vs_base[0];          V17= vs_base[0];
322          base[4]= (V14);          base[1]= (V17);
323          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+1)+1;
324          (void) (*Lnk157)();          (void) (*Lnk157)();
325          vs_top=sup;          vs_top=sup;
326          base[3]= vs_base[0];          base[0]= vs_base[0];
327          base[4]= (V12);          base[1]= (V15);
328          base[5]= (V13);          base[2]= (V16);
329          vs_top=(vs_base=base+3)+3;          vs_top=(vs_base=base+0)+3;
330          Lread();          Lread();
331          return;          vs_top=sup;
332          goto T142;          {object V20 = vs_base[0];
333  T142:;          VMR3(V20)}
334          base[3]= (V11);          goto T141;
335          base[4]= (V12);  T141:;
336          base[5]= (V13);          base[0]= (V14);
337          vs_top=(vs_base=base+3)+3;          base[1]= (V15);
338            base[2]= (V16);
339            vs_top=(vs_base=base+0)+3;
340          Lread();          Lread();
341          return;}          vs_top=sup;
342            {object V21 = vs_base[0];
343            VMR3(V21)}}
344            va_end(ap);
345            base[0]=base[0];
346            return Cnil;}
347          }          }
348  }  /*      local entry for function BREAK-LEVEL    */
 /*      function definition for BREAK-LEVEL     */  
349    
350  static void L4()  static object LI4(object V22,object first,...)
351  {register object *VOL base=vs_base;  {      
352          register object *VOL sup=base+VM4; VC4          va_list ap;
353          vs_check;          int narg = VFUN_NARGS; VMB4 VMS4 VMV4
354          bds_check;          bds_check;
355          {VOL object V16;          {VOL object V23;
356          VOL object V17;          VOL object V24;
357          V16=(base[0]);          va_start(ap,first);
358          vs_base=vs_base+1;          V23= V22;
359          if(vs_base>=vs_top){vs_top=sup;goto T159;}          narg = narg - 1;
360          V17=(base[1]);          if (narg <= 0) goto T158;
361          vs_top=sup;          else {
362          goto T160;          V24= first;}
363            --narg; goto T159;
364            goto T158;
365    T158:;
366            V24= Cnil;
367          goto T159;          goto T159;
368  T159:;  T159:;
369          V17= Cnil;          {VOL object V25;
370          goto T160;          if(!(type_of((V23))==t_string)){
371  T160:;          goto T163;}
372          {VOL object V18;          bds_bind(VV[34],(V23));
373          if(!(type_of((V16))==t_string)){          goto T161;
374          goto T164;}          goto T163;
375          bds_bind(VV[34],(V16));  T163:;
         goto T162;  
         goto T164;  
 T164:;  
376          bds_bind(VV[34],(VV[34]->s.s_dbind));          bds_bind(VV[34],(VV[34]->s.s_dbind));
377          goto T162;          goto T161;
378  T162:;  T161:;
379          V19= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind));          V26= make_cons((VV[36]->s.s_dbind),(VV[11]->s.s_dbind));
380          bds_bind(VV[35],make_cons(/* INLINE-ARGS */V19,(VV[35]->s.s_dbind)));          bds_bind(VV[35],make_cons(/* INLINE-ARGS */V26,(VV[35]->s.s_dbind)));
381          bds_bind(VV[11],make_cons(Cnil,Cnil));          bds_bind(VV[11],make_cons(Cnil,Cnil));
382          if(((V16))!=Cnil){          if(((V23))!=Cnil){
383          goto T170;}          goto T169;}
384          bds_bind(VV[36],(VV[36]->s.s_dbind));          bds_bind(VV[36],(VV[36]->s.s_dbind));
385          goto T168;          goto T167;
386          goto T170;          goto T169;
387  T170:;  T169:;
388          bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind)));          bds_bind(VV[36],make_cons(Ct,(VV[36]->s.s_dbind)));
389          goto T168;          goto T167;
390  T168:;  T167:;
391          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));          bds_bind(VV[37],one_plus((VV[38]->s.s_dbind)));
392          vs_base=vs_top;          vs_base=vs_top;
393          (void) (*Lnk158)();          (void) (*Lnk158)();
394          vs_top=sup;          vs_top=sup;
395          V20= vs_base[0];          V27= vs_base[0];
396          bds_bind(VV[38],one_minus(V20));          bds_bind(VV[38],one_minus(V27));
397          bds_bind(VV[39],(VV[38]->s.s_dbind));{VOL object V21;          bds_bind(VV[39],(VV[38]->s.s_dbind));{VOL object V28;
398          base[25]= (VV[41]->s.s_dbind);          base[23]= (VV[41]->s.s_dbind);
399          base[26]= (VV[37]->s.s_dbind);          base[24]= (VV[37]->s.s_dbind);
400          vs_top=(vs_base=base+25)+2;          vs_top=(vs_base=base+23)+2;
401          (void) (*Lnk159)();          (void) (*Lnk159)();
402          vs_top=sup;          vs_top=sup;
403          V21= vs_base[0];          V28= vs_base[0];
404          if(V21==Cnil)goto T176;          if(V28==Cnil)goto T175;
405          bds_bind(VV[40],V21);          bds_bind(VV[40],V28);
406            goto T174;
407          goto T175;          goto T175;
408          goto T176;  T175:;}
 T176:;}  
409          vs_base=vs_top;          vs_base=vs_top;
410          (void) (*Lnk160)();          (void) (*Lnk160)();
411          vs_top=sup;          vs_top=sup;
412          V22= vs_base[0];          V29= vs_base[0];
413          bds_bind(VV[40],one_plus(V22));          bds_bind(VV[40],one_plus(V29));
414          goto T175;          goto T174;
415  T175:;  T174:;
416          vs_base=vs_top;          vs_base=vs_top;
417          (void) (*Lnk160)();          (void) (*Lnk160)();
418          vs_top=sup;          vs_top=sup;
419          bds_bind(VV[41],vs_base[0]);          bds_bind(VV[41],vs_base[0]);
420          bds_bind(VV[42],Cnil);          bds_bind(VV[42],Cnil);
421          V18= (VV[43]->s.s_dbind);          V25= (VV[43]->s.s_dbind);
422          if(!(type_of((V16))==t_string)){          if(!(type_of((V23))==t_string)){
423          goto T185;}          goto T184;}
424          bds_bind(VV[43],Cnil);          bds_bind(VV[43],Cnil);
425          goto T183;          goto T182;
426          goto T185;          goto T184;
427  T185:;  T184:;
428          bds_bind(VV[43],(V18));          bds_bind(VV[43],(V25));
429          goto T183;          goto T182;
430  T183:;  T182:;
431          if((VV[45]->s.s_dbind)!=Cnil){          if((VV[45]->s.s_dbind)!=Cnil){
432          bds_bind(VV[44],(VV[45]->s.s_dbind));          bds_bind(VV[44],(VV[45]->s.s_dbind));
433          goto T187;}          goto T186;}
434          bds_bind(VV[44],(VV[44]->s.s_dbind));          bds_bind(VV[44],(VV[44]->s.s_dbind));
435          goto T187;          goto T186;
436  T187:;  T186:;
437          bds_bind(VV[46],Cnil);          bds_bind(VV[46],Cnil);
438          bds_bind(VV[0],(VV[0]->s.s_dbind));          bds_bind(VV[0],(VV[0]->s.s_dbind));
439          bds_bind(VV[1],(VV[1]->s.s_dbind));          bds_bind(VV[1],(VV[1]->s.s_dbind));
# Line 443  T187:; Line 445  T187:;
445          bds_bind(VV[7],(VV[7]->s.s_dbind));          bds_bind(VV[7],(VV[7]->s.s_dbind));
446          bds_bind(VV[8],(VV[8]->s.s_dbind));          bds_bind(VV[8],(VV[8]->s.s_dbind));
447          bds_bind(VV[9],(VV[9]->s.s_dbind));          bds_bind(VV[9],(VV[9]->s.s_dbind));
448          if(((V18))!=Cnil){          if(((V25))!=Cnil){
449          goto T188;}          goto T187;}
450          if(!(type_of((V16))==t_string)){          if(!(type_of((V23))==t_string)){
451          goto T188;}          goto T187;}
452          vs_base=vs_top;          vs_base=vs_top;
453          (void) (*Lnk161)();          (void) (*Lnk161)();
454          vs_top=sup;          vs_top=sup;
455          base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind))));          base[23]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind))));
456          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+23)+1;
457          (void) (*Lnk162)();          (void) (*Lnk162)();
458          vs_top=sup;          vs_top=sup;
459          goto T188;          goto T187;
460  T188:;  T187:;
461          base[25]= small_fixnum(1);          base[23]= small_fixnum(1);
462          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+23)+1;
463          (void) (*Lnk163)();          (void) (*Lnk163)();
464          vs_top=sup;          vs_top=sup;
465          (VV[47]->s.s_dbind)= Ct;          (VV[47]->s.s_dbind)= Ct;
466          if(!(type_of((V16))==t_string)){          if(!(type_of((V23))==t_string)){
467          goto T201;}          goto T200;}
468          (void)((*(LnkLI164))());          (void)((*(LnkLI164))());
469          princ_char(10,VV[27]);          princ_char(10,VV[27]);
470          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
471          goto T199;          goto T198;
472          goto T201;          goto T200;
473  T201:;  T200:;
474          base[25]= (V16);          (void)((*(LnkLI165))((V23),(V24)));
475          base[26]= (V17);          goto T198;
476          vs_top=(vs_base=base+25)+2;  T198:;
477          (void) (*Lnk165)();          goto T206;
478          vs_top=sup;  T206:;
         goto T199;  
 T199:;  
         goto T209;  
 T209:;  
479          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);          (VV[2]->s.s_dbind)= (VV[1]->s.s_dbind);
480          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);          (VV[1]->s.s_dbind)= (VV[0]->s.s_dbind);
481          (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);          (VV[0]->s.s_dbind)= (VV[3]->s.s_dbind);
482          if(((VV[18]->s.s_dbind))==Cnil){          if(((VV[18]->s.s_dbind))==Cnil){
483          goto T219;}          goto T216;}
484          (VV[18]->s.s_dbind)= Cnil;          (VV[18]->s.s_dbind)= Cnil;
485          goto T217;          goto T214;
486          goto T219;          goto T216;
487  T219:;  T216:;
488          base[25]= (VV[48]->s.s_dbind);          base[23]= (VV[48]->s.s_dbind);
489          base[26]= VV[49];          base[24]= VV[49];
490          if(!(type_of((V16))==t_string)){          if(!(type_of((V23))==t_string)){
491          goto T226;}          goto T223;}
492          base[27]= VV[50];          base[25]= VV[50];
493          goto T224;          goto T221;
494          goto T226;          goto T223;
495  T226:;  T223:;
496          base[27]= VV[51];          base[25]= VV[51];
497          goto T224;          goto T221;
498  T224:;{VOL object V23;  T221:;{VOL object V30;
499          V23= (VV[20]->s.s_dbind);          V30= (VV[20]->s.s_dbind);
500          base[29]= VV[21];          base[27]= VV[21];
501          vs_top=(vs_base=base+29)+1;          vs_top=(vs_base=base+27)+1;
502          Lfind_package();          Lfind_package();
503          vs_top=sup;          vs_top=sup;
504          V24= vs_base[0];          V31= vs_base[0];
505          if(!((V23)==(V24))){          if(!((V30)==(V31))){
506          goto T230;}}          goto T227;}}
507          base[28]= VV[52];          base[26]= VV[52];
508          goto T228;          goto T225;
509          goto T230;          goto T227;
510  T230:;  T227:;
511          base[29]= (VV[20]->s.s_dbind);          base[27]= (VV[20]->s.s_dbind);
512          vs_top=(vs_base=base+29)+1;          vs_top=(vs_base=base+27)+1;
513          Lpackage_name();          Lpackage_name();
514          vs_top=sup;          vs_top=sup;
515          base[28]= vs_base[0];          base[26]= vs_base[0];
516          goto T228;          goto T225;
517  T228:;  T225:;
518          base[29]= (VV[36]->s.s_dbind);          base[27]= (VV[36]->s.s_dbind);
519          vs_top=(vs_base=base+25)+5;          vs_top=(vs_base=base+23)+5;
520          Lformat();          Lformat();
521          vs_top=sup;          vs_top=sup;
522          goto T217;          goto T214;
523  T217:;  T214:;
524          base[25]= (VV[27]->s.s_dbind);          base[23]= (VV[27]->s.s_dbind);
525          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+23)+1;
526          Lforce_output();          Lforce_output();
527          vs_top=sup;          vs_top=sup;
528          frs_push(FRS_CATCH,VV[53]);          frs_push(FRS_CATCH,VV[53]);
# Line 532  T217:; Line 530  T217:;
530          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
531          vs_top=sup;          vs_top=sup;
532          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
533          goto T210;}          goto T207;}
534          goto T239;}          goto T236;}
535          else{          else{
536          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
537          if(nlj_active)          if(nlj_active)
# Line 541  T217:; Line 539  T217:;
539          vs_top=sup;          vs_top=sup;
540          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
541          frs_pop();          frs_pop();
542          goto T210;}          goto T207;}
543          frs_pop();          frs_pop();
544          goto T239;}          goto T236;}
545          else{          else{
546          base[25]= (VV[48]->s.s_dbind);          (VV[3]->s.s_dbind)= (VFUN_NARGS=3,(*(LnkLI166))((VV[48]->s.s_dbind),Cnil,(VV[24]->s.s_dbind)));
         base[26]= Cnil;  
         base[27]= (VV[24]->s.s_dbind);  
         vs_top=(vs_base=base+25)+3;  
         (void) (*Lnk166)();  
         vs_top=sup;  
         (VV[3]->s.s_dbind)= vs_base[0];  
547          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){          if(!(((VV[3]->s.s_dbind))==((VV[24]->s.s_dbind)))){
548          goto T247;}          goto T241;}
549          vs_base=vs_top;          vs_base=vs_top;
550          Lby();          Lby();
551          vs_top=sup;          vs_top=sup;
552          goto T247;          goto T241;
553  T247:;  T241:;
554          {object V25;          {object V32;
555          object V26;          object V33;
556          V25= Cnil;          V32= Cnil;
557          if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){          if(!((type_of((VV[3]->s.s_dbind))==t_symbol&&((VV[3]->s.s_dbind))->s.s_hpack==keyword_package))){
558          goto T254;}          goto T248;}
559          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);          (VV[3]->s.s_dbind)= make_cons((VV[3]->s.s_dbind),Cnil);
560          goto T254;          goto T248;
561  T254:;  T248:;
562          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){          if(!(type_of((VV[3]->s.s_dbind))==t_cons)){
563          goto T259;}          goto T253;}
564          {object V27= CMPcar((VV[3]->s.s_dbind));          {object V34= CMPcar((VV[3]->s.s_dbind));
565          if(!((type_of(V27)==t_symbol&&(V27)->s.s_hpack==keyword_package))){          if(!((type_of(V34)==t_symbol&&(V34)->s.s_hpack==keyword_package))){
566          goto T259;}}          goto T253;}}
567          V25= Ct;          V32= Ct;
568          base[26]= CMPcar((VV[3]->s.s_dbind));          base[24]= CMPcar((VV[3]->s.s_dbind));
569          base[27]= CMPcdr((VV[3]->s.s_dbind));          base[25]= CMPcdr((VV[3]->s.s_dbind));
570          base[28]= VV[54];          base[26]= VV[54];
571          symlispcall(VV[167],base+26,3);          symlispcall(VV[167],base+24,3);
572          goto T253;          goto T247;
         goto T259;  
 T259:;  
         base[26]= (VV[3]->s.s_dbind);  
         base[27]= Cnil;  
         base[28]= Cnil;  
         base[29]= (VV[42]->s.s_dbind);  
         symlispcall(VV[168],base+26,4);  
573          goto T253;          goto T253;
574  T253:;  T253:;
575            base[24]= (VV[3]->s.s_dbind);
576            base[25]= Cnil;
577            base[26]= Cnil;
578            base[27]= (VV[42]->s.s_dbind);
579            symlispcall(VV[168],base+24,4);
580            goto T247;
581    T247:;
582          Llist();          Llist();
583          vs_top=sup;          vs_top=sup;
584          V26= vs_base[0];          V33= vs_base[0];
585          if((V25)==Cnil){          if((V32)==Cnil){
586          goto T272;}          goto T266;}
587          if((CMPcar((V26)))==(VV[55])){          if((CMPcar((V33)))==(VV[55])){
588          goto T273;}          goto T267;}
589          goto T272;          goto T266;
590          goto T273;          goto T267;
591  T273:;  T267:;
592          frs_pop();          frs_pop();
593          frs_pop();          frs_pop();
594          base[26]= Cnil;          {object V35 = Cnil;
         vs_top=(vs_base=base+26)+1;  
595          bds_unwind1;          bds_unwind1;
596          bds_unwind1;          bds_unwind1;
597          bds_unwind1;          bds_unwind1;
# Line 624  T273:; Line 615  T273:;
615          bds_unwind1;          bds_unwind1;
616          bds_unwind1;          bds_unwind1;
617          bds_unwind1;          bds_unwind1;
618          return;          VMR4(V35)}
619          goto T272;          goto T266;
620  T272:;  T266:;
621          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);          (VV[9]->s.s_dbind)= (VV[8]->s.s_dbind);
622          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);          (VV[8]->s.s_dbind)= (VV[7]->s.s_dbind);
623          (VV[7]->s.s_dbind)= (V26);          (VV[7]->s.s_dbind)= (V33);
624          (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);          (VV[6]->s.s_dbind)= (VV[5]->s.s_dbind);
625          (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);          (VV[5]->s.s_dbind)= (VV[4]->s.s_dbind);
626          (VV[4]->s.s_dbind)= CMPcar((VV[7]->s.s_dbind));          (VV[4]->s.s_dbind)= CMPcar((VV[7]->s.s_dbind));
627          base[26]= (VV[48]->s.s_dbind);          base[24]= (VV[48]->s.s_dbind);
628          vs_top=(vs_base=base+26)+1;          vs_top=(vs_base=base+24)+1;
629          Lfresh_line();          Lfresh_line();
630          vs_top=sup;          vs_top=sup;
631          {register object V28;          {register object V36;
632          register object V29;          register object V37;
633          V28= (VV[7]->s.s_dbind);          V36= (VV[7]->s.s_dbind);
634          V29= CMPcar((V28));          V37= CMPcar((V36));
635          goto T292;          goto T286;
636  T292:;  T286:;
637          if(!(((V28))==Cnil)){          if(!(((V36))==Cnil)){
638          goto T293;}          goto T287;}
639          goto T250;          goto T244;
640          goto T293;          goto T287;
641  T293:;  T287:;
642          base[27]= (V29);          base[25]= (V37);
643          base[28]= (VV[48]->s.s_dbind);          base[26]= (VV[48]->s.s_dbind);
644          (void)simple_symlispcall(VV[153],base+27,2);          (void)simple_symlispcall(VV[153],base+25,2);
645          princ_char(10,VV[48]);          princ_char(10,VV[48]);
646          V28= CMPcdr((V28));          V36= CMPcdr((V36));
647          V29= CMPcar((V28));          V37= CMPcar((V36));
648          goto T292;}}          goto T286;}}
649          goto T250;          goto T244;
650  T250:;  T244:;
651          frs_pop();          frs_pop();
652          frs_pop();          frs_pop();
653          goto T210;}}          goto T207;}}
654          goto T239;          goto T236;
655  T239:;  T236:;
656          princ_char(10,VV[48]);          princ_char(10,VV[48]);
657          vs_base=vs_top;          vs_base=vs_top;
658          (void) (*Lnk154)();          (void) (*Lnk154)();
659          vs_top=sup;          vs_top=sup;
660          goto T210;          goto T207;
661  T210:;  T207:;
662          goto T209;}          goto T206;}
663            va_end(ap);
664            base[0]=base[0];
665            return Cnil;}
666          }          }
 }  
667  /*      local entry for function WARN   */  /*      local entry for function WARN   */
668    
669  static object LI5(object V30,object first,...)  static object LI5(object V38,object first,...)
670  {        {      
671          va_list ap;          va_list ap;
672          int narg = VFUN_NARGS; VMB5 VMS5 VMV5          int narg = VFUN_NARGS; VMB5 VMS5 VMV5
673          bds_check;          bds_check;
674          {object V31;          {object V39;
675          object V32;          object V40;
676          va_start(ap,first);          va_start(ap,first);
677          V31= V30;          V39= V38;
678          narg= narg - 1;          narg= narg - 1;
679          V33 = list_vector_new(narg,first,ap);          V41 = list_vector_new(narg,first,ap);
680          V32= V33;          V40= V41;
681          bds_bind(VV[56],small_fixnum(4));          bds_bind(VV[56],small_fixnum(4));
682          bds_bind(VV[57],small_fixnum(4));          bds_bind(VV[57],small_fixnum(4));
683          bds_bind(VV[58],VV[59]);          bds_bind(VV[58],VV[59]);
684          if(((VV[60]->s.s_dbind))==Cnil){          if(((VV[60]->s.s_dbind))==Cnil){
685          goto T309;}          goto T303;}
686          base[3]= (V31);          base[3]= (V39);
687          {object V34;          {object V42;
688          V34= (V32);          V42= (V40);
689           vs_top=base+4;           vs_top=base+4;
690           while(V34!=Cnil)           while(V42!=Cnil)
691           {vs_push((V34)->c.c_car);V34=(V34)->c.c_cdr;}           {vs_push((V42)->c.c_car);V42=(V42)->c.c_cdr;}
692          vs_base=base+3;}          vs_base=base+3;}
693          (void) (*Lnk169)();          (void) (*Lnk169)();
694          vs_top=sup;          vs_top=sup;
695          {object V35 = vs_base[0];          {object V43 = vs_base[0];
696          bds_unwind1;          bds_unwind1;
697          bds_unwind1;          bds_unwind1;
698          bds_unwind1;          bds_unwind1;
699          VMR5(V35)}          VMR5(V43)}
700          goto T309;          goto T303;
701  T309:;  T303:;
702          base[3]= (VV[27]->s.s_dbind);          base[3]= (VV[27]->s.s_dbind);
703          base[4]= VV[61];          base[4]= VV[61];
704          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
# Line 713  T309:; Line 706  T309:;
706          vs_top=sup;          vs_top=sup;
707          bds_bind(VV[62],Ct);          bds_bind(VV[62],Ct);
708          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
709          base[5]= (V31);          base[5]= (V39);
710          {object V36;          {object V44;
711          V36= (V32);          V44= (V40);
712           vs_top=base+6;           vs_top=base+6;
713           while(V36!=Cnil)           while(V44!=Cnil)
714           {vs_push((V36)->c.c_car);V36=(V36)->c.c_cdr;}           {vs_push((V44)->c.c_car);V44=(V44)->c.c_cdr;}
715          vs_base=base+4;}          vs_base=base+4;}
716          Lformat();          Lformat();
717          vs_top=sup;          vs_top=sup;
718          bds_unwind1;          bds_unwind1;
719          {object V37 = Cnil;          {object V45 = Cnil;
720          bds_unwind1;          bds_unwind1;
721          bds_unwind1;          bds_unwind1;
722          bds_unwind1;          bds_unwind1;
723          VMR5(V37)}          VMR5(V45)}
724          va_end(ap);          va_end(ap);
725          base[0]=base[0];          base[0]=base[0];
726          return Cnil;}          return Cnil;}
727          }          }
728  /*      local entry for function UNIVERSAL-ERROR-HANDLER        */  /*      local entry for function UNIVERSAL-ERROR-HANDLER        */
729    
730  static object LI6(object V42,object V41,object V40,object V39,object V38,object first,...)  static object LI6(object V50,object V49,object V48,object V47,object V46,object first,...)
731  {        {      
732          va_list ap;          va_list ap;
733          int narg = VFUN_NARGS; VMB6 VMS6 VMV6          int narg = VFUN_NARGS; VMB6 VMS6 VMV6
734          bds_check;          bds_check;
735          {object V43;          {object V51;
736          object V44;          object V52;
737          register object V45;          register object V53;
738          object V46;          object V54;
739          register object V47;          register object V55;
740          register object V48;          register object V56;
741          va_start(ap,first);          va_start(ap,first);
742          V43= V42;          V51= V50;
743          V44= V41;          V52= V49;
744          V45= V40;          V53= V48;
745          V46= V39;          V54= V47;
746          V47= V38;          V55= V46;
747          narg= narg - 5;          narg= narg - 5;
748          V49 = list_vector_new(narg,first,ap);          V57 = list_vector_new(narg,first,ap);
749          V48= V49;          V56= V57;
750          {object V50;          {object V58;
751          V50= Cnil;          V58= Cnil;
752          bds_bind(VV[63],Cnil);          bds_bind(VV[63],Cnil);
753          bds_bind(VV[56],(VV[64]->s.s_dbind));          bds_bind(VV[56],(VV[64]->s.s_dbind));
754          bds_bind(VV[57],(VV[64]->s.s_dbind));          bds_bind(VV[57],(VV[64]->s.s_dbind));
755          bds_bind(VV[58],VV[59]);          bds_bind(VV[58],VV[59]);
756          princ_char(10,VV[27]);          princ_char(10,VV[27]);
757          if(((V44))==Cnil){          if(((V52))==Cnil){
758          goto T324;}          goto T318;}
759          if(((VV[43]->s.s_dbind))==Cnil){          if(((VV[43]->s.s_dbind))==Cnil){
760          goto T324;}          goto T318;}
761          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
762          base[5]= VV[65];          base[5]= VV[65];
763          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 772  static object LI6(object V42,object V41, Line 765  static object LI6(object V42,object V41,
765          vs_top=sup;          vs_top=sup;
766          bds_bind(VV[62],Ct);          bds_bind(VV[62],Ct);
767          base[5]= (VV[27]->s.s_dbind);          base[5]= (VV[27]->s.s_dbind);
768          base[6]= (V47);          base[6]= (V55);
769          {object V51;          {object V59;
770          V51= (V48);          V59= (V56);
771           vs_top=base+7;           vs_top=base+7;
772           while(V51!=Cnil)           while(V59!=Cnil)
773           {vs_push((V51)->c.c_car);V51=(V51)->c.c_cdr;}           {vs_push((V59)->c.c_car);V59=(V59)->c.c_cdr;}
774          vs_base=base+5;}          vs_base=base+5;}
775          Lformat();          Lformat();
776          vs_top=sup;          vs_top=sup;
777          bds_unwind1;          bds_unwind1;
778          princ_char(10,VV[27]);          princ_char(10,VV[27]);
779          base[4]= Cnil;          base[4]= Cnil;
780          base[5]= (V47);          base[5]= (V55);
781          {object V52;          {object V60;
782          V52= (V48);          V60= (V56);
783           vs_top=base+6;           vs_top=base+6;
784           while(V52!=Cnil)           while(V60!=Cnil)
785           {vs_push((V52)->c.c_car);V52=(V52)->c.c_cdr;}           {vs_push((V60)->c.c_car);V60=(V60)->c.c_cdr;}
786          vs_base=base+4;}          vs_base=base+4;}
787          Lformat();          Lformat();
788          vs_top=sup;          vs_top=sup;
789          V50= vs_base[0];          V58= vs_base[0];
790          if(((V45))==Cnil){          if(((V53))==Cnil){
791          goto T343;}          goto T337;}
792          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
793          base[5]= VV[66];          base[5]= VV[66];
794          base[6]= (V45);          base[6]= (V53);
795          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
796          Lformat();          Lformat();
797          vs_top=sup;          vs_top=sup;
798          goto T341;          goto T335;
799          goto T343;          goto T337;
800  T343:;  T337:;
801          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
802          base[5]= VV[67];          base[5]= VV[67];
803          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
804          Lformat();          Lformat();
805          vs_top=sup;          vs_top=sup;
806          goto T341;          goto T335;
807  T341:;  T335:;
808          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
809          base[5]= VV[68];          base[5]= VV[68];
810          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 820  T341:; Line 813  T341:;
813          bds_bind(VV[62],Ct);          bds_bind(VV[62],Ct);
814          base[5]= (VV[27]->s.s_dbind);          base[5]= (VV[27]->s.s_dbind);
815          base[6]= VV[69];          base[6]= VV[69];
816          base[7]= (V46);          base[7]= (V54);
817          base[8]= (V48);          base[8]= (V56);
818          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
819          Lformat();          Lformat();
820          vs_top=sup;          vs_top=sup;
# Line 830  T341:; Line 823  T341:;
823          bds_unwind1;          bds_unwind1;
824          bds_unwind1;          bds_unwind1;
825          bds_unwind1;          bds_unwind1;
826          goto T321;          goto T315;
827          goto T324;          goto T318;
828  T324:;  T318:;
829          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
830          base[5]= VV[70];          base[5]= VV[70];
831          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 840  T324:; Line 833  T324:;
833          vs_top=sup;          vs_top=sup;
834          bds_bind(VV[62],Ct);          bds_bind(VV[62],Ct);
835          base[5]= (VV[27]->s.s_dbind);          base[5]= (VV[27]->s.s_dbind);
836          base[6]= (V47);          base[6]= (V55);
837          {object V53;          {object V61;
838          V53= (V48);          V61= (V56);
839           vs_top=base+7;           vs_top=base+7;
840           while(V53!=Cnil)           while(V61!=Cnil)
841           {vs_push((V53)->c.c_car);V53=(V53)->c.c_cdr;}           {vs_push((V61)->c.c_car);V61=(V61)->c.c_cdr;}
842          vs_base=base+5;}          vs_base=base+5;}
843          Lformat();          Lformat();
844          vs_top=sup;          vs_top=sup;
845          bds_unwind1;          bds_unwind1;
846          princ_char(10,VV[27]);          princ_char(10,VV[27]);
847          if(!(((long)length((VV[71]->s.s_dbind)))>(0))){          if(!(((long)length((VV[71]->s.s_dbind)))>(0))){
848          goto T365;}          goto T359;}
849          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
850          base[5]= VV[72];          base[5]= VV[72];
851          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
852          Lformat();          Lformat();
853          vs_top=sup;          vs_top=sup;
854          goto T365;          goto T359;
855  T365:;  T359:;
856          base[4]= Cnil;          base[4]= Cnil;
857          base[5]= (V47);          base[5]= (V55);
858          {object V54;          {object V62;
859          V54= (V48);          V62= (V56);
860           vs_top=base+6;           vs_top=base+6;
861           while(V54!=Cnil)           while(V62!=Cnil)
862           {vs_push((V54)->c.c_car);V54=(V54)->c.c_cdr;}           {vs_push((V62)->c.c_car);V62=(V62)->c.c_cdr;}
863          vs_base=base+4;}          vs_base=base+4;}
864          Lformat();          Lformat();
865          vs_top=sup;          vs_top=sup;
866          V50= vs_base[0];          V58= vs_base[0];
867          if(((V45))==Cnil){          if(((V53))==Cnil){
868          goto T376;}          goto T370;}
869          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
870          base[5]= VV[73];          base[5]= VV[73];
871          base[6]= (V45);          base[6]= (V53);
872          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
873          Lformat();          Lformat();
874          vs_top=sup;          vs_top=sup;
# Line 883  T365:; Line 876  T365:;
876          bds_unwind1;          bds_unwind1;
877          bds_unwind1;          bds_unwind1;
878          bds_unwind1;          bds_unwind1;
879          goto T321;          goto T315;
880          goto T376;          goto T370;
881  T376:;  T370:;
882          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
883          base[5]= VV[74];          base[5]= VV[74];
884          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 895  T376:; Line 888  T376:;
888          bds_unwind1;          bds_unwind1;
889          bds_unwind1;          bds_unwind1;
890          bds_unwind1;          bds_unwind1;
891          goto T321;          goto T315;
892  T321:;  T315:;
893          base[0]= (VV[27]->s.s_dbind);          base[0]= (VV[27]->s.s_dbind);
894          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
895          Lforce_output();          Lforce_output();
896          vs_top=sup;          vs_top=sup;
897          base[0]= (V50);          (void)((VFUN_NARGS=1,(*(LnkLI170))((V58))));
898          vs_top=(vs_base=base+0)+1;          if(((V52))!=Cnil){
899          (void) (*Lnk170)();          goto T381;}
         vs_top=sup;  
         if(((V44))!=Cnil){  
         goto T388;}  
900          {frame_ptr fr;          {frame_ptr fr;
901          fr=frs_sch_catch((VV[11]->s.s_dbind));          fr=frs_sch_catch((VV[11]->s.s_dbind));
902          if(fr==NULL) FEerror("The tag ~s is undefined.",1,(VV[11]->s.s_dbind));          if(fr==NULL) FEerror("The tag ~s is undefined.",1,(VV[11]->s.s_dbind));
903          base[0]= (VV[11]->s.s_dbind);          base[0]= (VV[11]->s.s_dbind);
904          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
905          unwind(fr,(VV[11]->s.s_dbind));}          unwind(fr,(VV[11]->s.s_dbind));}
906          goto T388;          goto T381;
907  T388:;  T381:;
908          {object V55 = Cnil;          {object V63 = Cnil;
909          VMR6(V55)}}          VMR6(V63)}}
910          va_end(ap);          va_end(ap);
911          base[0]=base[0];          base[0]=base[0];
912          return Cnil;}          return Cnil;}
# Line 928  static object LI7(object first,...) Line 918  static object LI7(object first,...)
918          va_list ap;          va_list ap;
919          int narg = VFUN_NARGS; VMB7 VMS7 VMV7          int narg = VFUN_NARGS; VMB7 VMS7 VMV7
920          bds_check;          bds_check;
921          {object V56;          {object V64;
922          object V57;          object V65;
923          va_start(ap,first);          va_start(ap,first);
924          narg = narg - 0;          narg = narg - 0;
925          if (narg <= 0) goto T391;          if (narg <= 0) goto T384;
926          else {          else {
927          V56= first;}          V64= first;}
928          --narg; goto T392;          --narg; goto T385;
929          goto T391;          goto T384;
930  T391:;  T384:;
931          V56= Cnil;          V64= Cnil;
932          goto T392;          goto T385;
933  T392:;  T385:;
934          V58 = list_vector_new(narg,first,ap);          V66 = list_vector_new(narg,first,ap);
935          V57= V58;          V65= V66;
936          {object V59;          {object V67;
937          V59= Cnil;          V67= Cnil;
938          bds_bind(VV[63],Cnil);          bds_bind(VV[63],Cnil);
939          bds_bind(VV[56],small_fixnum(4));          bds_bind(VV[56],small_fixnum(4));
940          bds_bind(VV[57],small_fixnum(4));          bds_bind(VV[57],small_fixnum(4));
941          bds_bind(VV[58],VV[59]);          bds_bind(VV[58],VV[59]);
942          princ_char(10,VV[27]);          princ_char(10,VV[27]);
943          if(((V56))==Cnil){          if(((V64))==Cnil){
944          goto T398;}          goto T391;}
945          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
946          base[5]= VV[75];          base[5]= VV[75];
947          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 959  T392:; Line 949  T392:;
949          vs_top=sup;          vs_top=sup;
950          bds_bind(VV[62],Ct);          bds_bind(VV[62],Ct);
951          base[5]= (VV[27]->s.s_dbind);          base[5]= (VV[27]->s.s_dbind);
952          base[6]= (V56);          base[6]= (V64);
953          {object V60;          {object V68;
954          V60= (V57);          V68= (V65);
955           vs_top=base+7;           vs_top=base+7;
956           while(V60!=Cnil)           while(V68!=Cnil)
957           {vs_push((V60)->c.c_car);V60=(V60)->c.c_cdr;}           {vs_push((V68)->c.c_car);V68=(V68)->c.c_cdr;}
958          vs_base=base+5;}          vs_base=base+5;}
959          Lformat();          Lformat();
960          vs_top=sup;          vs_top=sup;
961          bds_unwind1;          bds_unwind1;
962          princ_char(10,VV[27]);          princ_char(10,VV[27]);
963          base[4]= Cnil;          base[4]= Cnil;
964          base[5]= (V56);          base[5]= (V64);
965          {object V61;          {object V69;
966          V61= (V57);          V69= (V65);
967           vs_top=base+6;           vs_top=base+6;
968           while(V61!=Cnil)           while(V69!=Cnil)
969           {vs_push((V61)->c.c_car);V61=(V61)->c.c_cdr;}           {vs_push((V69)->c.c_car);V69=(V69)->c.c_cdr;}
970          vs_base=base+4;}          vs_base=base+4;}
971          Lformat();          Lformat();
972          vs_top=sup;          vs_top=sup;
973          V59= vs_base[0];          V67= vs_base[0];
974          bds_unwind1;          bds_unwind1;
975          bds_unwind1;          bds_unwind1;
976          bds_unwind1;          bds_unwind1;
977          bds_unwind1;          bds_unwind1;
978          goto T395;          goto T388;
979          goto T398;          goto T391;
980  T398:;  T391:;
981          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
982          base[5]= VV[76];          base[5]= VV[76];
983          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
984          Lformat();          Lformat();
985          vs_top=sup;          vs_top=sup;
986          V59= VV[77];          V67= VV[77];
987          bds_unwind1;          bds_unwind1;
988          bds_unwind1;          bds_unwind1;
989          bds_unwind1;          bds_unwind1;
990          bds_unwind1;          bds_unwind1;
991          goto T395;          goto T388;
992  T395:;  T388:;
993          bds_bind(VV[43],Ct);          bds_bind(VV[43],Ct);
994          base[1]= (V59);          V70= (VFUN_NARGS=1,(*(LnkLI170))((V67)));
         vs_top=(vs_base=base+1)+1;  
         (void) (*Lnk170)();  
         vs_top=sup;  
995          bds_unwind1;          bds_unwind1;
996          {object V62 = Cnil;          {object V71 = Cnil;
997          VMR7(V62)}}          VMR7(V71)}}
998          va_end(ap);          va_end(ap);
999          base[0]=base[0];          base[0]=base[0];
1000          return Cnil;}          return Cnil;}
1001          }          }
1002  /*      local entry for function TERMINAL-INTERRUPT     */  /*      local entry for function TERMINAL-INTERRUPT     */
1003    
1004  static object LI8(V64)  static object LI8(V73)
1005    
1006  object V64;  object V73;
1007  {        VMB8 VMS8 VMV8  {        VMB8 VMS8 VMV8
1008          bds_check;          bds_check;
1009          goto TTL;          goto TTL;
1010  TTL:;  TTL:;
1011          bds_bind(VV[43],Ct);          bds_bind(VV[43],Ct);
1012          if(((V64))==Cnil){          if(((V73))==Cnil){
1013          goto T419;}          goto T411;}
1014          base[1]= VV[78];          base[1]= VV[78];
1015          base[2]= VV[79];          base[2]= VV[79];
1016          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
1017          Lcerror();          Lcerror();
1018          vs_top=sup;          vs_top=sup;
1019          {object V65 = vs_base[0];          {object V74 = vs_base[0];
1020          bds_unwind1;          bds_unwind1;
1021          VMR8(V65)}          VMR8(V74)}
1022          goto T419;          goto T411;
1023  T419:;  T411:;
1024          base[1]= VV[80];          base[1]= VV[80];
1025          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1026          Lerror();          Lerror();
1027          vs_top=sup;          vs_top=sup;
1028          {object V66 = vs_base[0];          {object V75 = vs_base[0];
1029          bds_unwind1;          bds_unwind1;
1030          VMR8(V66)}          VMR8(V75)}
1031          base[0]=base[0];          base[0]=base[0];
1032          return Cnil;          return Cnil;
1033  }  }
1034  /*      function definition for BREAK-CALL      */  /*      local entry for function BREAK-CALL     */
1035    
1036  static void L9()  static object LI9(object V77,object V76,object first,...)
1037  {register object *base=vs_base;  {      
1038          register object *sup=base+VM9; VC9          va_list ap;
1039          vs_check;          int narg = VFUN_NARGS; VMB9 VMS9 VMV9
1040          {object V67;          {object V78;
1041          register object V68;          register object V79;
1042          object V69;          object V80;
1043          V67=(base[0]);          va_start(ap,first);
1044          V68=(base[1]);          V78= V77;
1045          vs_base=vs_base+2;          V79= V76;
1046          if(vs_base>=vs_top){vs_top=sup;goto T424;}          narg = narg - 2;
1047          V69=(base[2]);          if (narg <= 0) goto T416;
1048          vs_top=sup;          else {
1049          goto T425;          V80= first;}
1050            --narg; goto T417;
1051            goto T416;
1052    T416:;
1053            V80= VV[54];
1054            goto T417;
1055    T417:;
1056            {register object V81;
1057            V81= Cnil;
1058            V81= (VFUN_NARGS=3,(*(LnkLI171))((V78),VV[81],(V80)));
1059            if((V81)!=Cnil){
1060            goto T422;}
1061            {object V82 = Cnil;
1062            VMR9(V82)}
1063            goto T422;
1064    T422:;
1065            {object V83 =((V81))->s.s_plist;
1066             object ind= (V80);
1067            while(V83!=Cnil){
1068            if(V83->c.c_car==ind){
1069            V81= (V83->c.c_cdr->c.c_car);
1070            goto T424;
1071            }else V83=V83->c.c_cdr->c.c_cdr;}
1072            V81= Cnil;}
1073          goto T424;          goto T424;
1074  T424:;  T424:;
1075          V69= VV[54];          if(((V81))==Cnil){
1076          goto T425;          goto T426;}
1077  T425:;          V79= make_cons((V81),(V79));
1078          {register object V70;          if(!(type_of((V81))==t_symbol)){
1079          V70= Cnil;          goto T431;}
1080          base[3]= (V67);          goto T430;
1081          base[4]= VV[81];          goto T431;
1082          base[5]= (V69);  T431:;
1083          vs_top=(vs_base=base+3)+3;          V79= make_cons(VV[82],(V79));
1084          (void) (*Lnk171)();          goto T430;
1085          vs_top=sup;  T430:;
1086          V70= vs_base[0];          base[0]= (V79);
1087          if((V70)!=Cnil){          base[1]= Cnil;
1088          goto T433;}          base[2]= Cnil;
1089          base[3]= Cnil;          base[3]= (VV[42]->s.s_dbind);
1090          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+0)+4;
         return;  
         goto T433;  
 T433:;  
         {object V71 =((V70))->s.s_plist;  
          object ind= (V69);  
         while(V71!=Cnil){  
         if(V71->c.c_car==ind){  
         V70= (V71->c.c_cdr->c.c_car);  
         goto T435;  
         }else V71=V71->c.c_cdr->c.c_cdr;}  
         V70= Cnil;}  
         goto T435;  
 T435:;  
         if(((V70))==Cnil){  
         goto T437;}  
         V68= make_cons((V70),(V68));  
         if(!(type_of((V70))==t_symbol)){  
         goto T442;}  
         goto T441;  
         goto T442;  
 T442:;  
         V68= make_cons(VV[82],(V68));  
         goto T441;  
 T441:;  
         base[3]= (V68);  
         base[4]= Cnil;  
         base[5]= Cnil;  
         base[6]= (VV[42]->s.s_dbind);  
         vs_top=(vs_base=base+3)+4;  
1091          Levalhook();          Levalhook();
1092          return;          vs_top=sup;
1093          goto T437;          {object V84 = vs_base[0];
1094  T437:;          VMR9(V84)}
1095          base[3]= (VV[48]->s.s_dbind);          goto T426;
1096          base[4]= VV[83];  T426:;
1097          base[5]= (V67);          base[0]= (VV[48]->s.s_dbind);
1098          vs_top=(vs_base=base+3)+3;          base[1]= VV[83];
1099            base[2]= (V78);
1100            vs_top=(vs_base=base+0)+3;
1101          Lformat();          Lformat();
1102          return;}          vs_top=sup;
1103            {object V85 = vs_base[0];
1104            VMR9(V85)}}
1105            va_end(ap);
1106            base[0]=base[0];
1107            return Cnil;}
1108          }          }
 }  
1109  /*      function definition for BREAK-QUIT      */  /*      function definition for BREAK-QUIT      */
1110    
1111  static void L10()  static void L10()
1112  {register object *base=vs_base;  {register object *base=vs_base;
1113          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
1114          vs_check;          vs_check;
1115          {object V72;          {object V86;
1116          if(vs_base>=vs_top){vs_top=sup;goto T452;}          if(vs_base>=vs_top){vs_top=sup;goto T441;}
1117          V72=(base[0]);          V86=(base[0]);
1118          vs_top=sup;          vs_top=sup;
1119          goto T453;          goto T442;
1120          goto T452;          goto T441;
1121  T452:;  T441:;
1122          V72= small_fixnum(0);          V86= small_fixnum(0);
1123          goto T453;          goto T442;
1124  T453:;  T442:;
1125          {object V73;          {object V87;
1126          V73= make_fixnum((long)length((VV[36]->s.s_dbind)));          V87= make_fixnum((long)length((VV[36]->s.s_dbind)));
1127          if(!(number_compare((V72),small_fixnum(0))>=0)){          if(!(number_compare((V86),small_fixnum(0))>=0)){
1128          goto T456;}          goto T445;}
1129          if(!(number_compare((V72),(V73))<0)){          if(!(number_compare((V86),(V87))<0)){
1130          goto T456;}          goto T445;}
1131          {object V74;          {object V88;
1132          base[2]= (V73);          base[2]= (V87);
1133          base[3]= (V72);          base[3]= (V86);
1134          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
1135          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
1136          Lminus();          Lminus();
1137          vs_top=sup;          vs_top=sup;
1138          V75= vs_base[0];          V89= vs_base[0];
1139          V74= nth(fix(V75),(VV[35]->s.s_dbind));          V88= nth(fix(V89),(VV[35]->s.s_dbind));
1140          {frame_ptr fr;          {frame_ptr fr;
1141          base[2]= CMPcdr((V74));          base[2]= CMPcdr((V88));
1142          fr=frs_sch_catch(base[2]);          fr=frs_sch_catch(base[2]);
1143          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[2]);          if(fr==NULL) FEerror("The tag ~s is undefined.",1,base[2]);
1144          base[3]= CMPcdr((V74));          base[3]= CMPcdr((V88));
1145          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1146          unwind(fr,base[2]);}}          unwind(fr,base[2]);}}
1147          goto T456;          goto T445;
1148  T456:;  T445:;
1149          vs_base=vs_top;          vs_base=vs_top;
1150          (void) (*Lnk154)();          (void) (*Lnk154)();
1151          return;}          return;}
# Line 1170  static void L11() Line 1157  static void L11()
1157  {register object *base=vs_base;  {register object *base=vs_base;
1158          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
1159          vs_check;          vs_check;
1160          {register object V76;          {register object V90;
1161          if(vs_base>=vs_top){vs_top=sup;goto T468;}          if(vs_base>=vs_top){vs_top=sup;goto T457;}
1162          V76=(base[0]);          V90=(base[0]);
1163          vs_top=sup;          vs_top=sup;
1164          goto T469;          goto T458;
1165          goto T468;          goto T457;
1166  T468:;  T457:;
1167          V76= small_fixnum(1);          V90= small_fixnum(1);
1168          goto T469;          goto T458;
1169  T469:;  T458:;
1170          {register object V77;          {register object V91;
1171          V77= one_minus((VV[39]->s.s_dbind));          V91= one_minus((VV[39]->s.s_dbind));
1172          goto T473;          goto T462;
1173  T473:;  T462:;
1174          if(number_compare((V77),(VV[37]->s.s_dbind))<0){          if(number_compare((V91),(VV[37]->s.s_dbind))<0){
1175          goto T475;}          goto T464;}
1176          if(!(number_compare((V76),small_fixnum(0))<=0)){          if(!(number_compare((V90),small_fixnum(0))<=0)){
1177          goto T474;}          goto T463;}
1178          goto T475;          goto T464;
1179  T475:;  T464:;
1180          (void)((*(LnkLI172))());          (void)((*(LnkLI172))());
1181          vs_base=vs_top;          vs_base=vs_top;
1182          (void) (*Lnk154)();          (void) (*Lnk154)();
1183          return;          return;
1184          goto T474;          goto T463;
1185  T474:;  T463:;
1186          if(((*(LnkLI173))((V77)))==Cnil){          if(((*(LnkLI173))((V91)))==Cnil){
1187          goto T481;}          goto T470;}
1188          (VV[39]->s.s_dbind)= (V77);          (VV[39]->s.s_dbind)= (V91);
1189          V76= one_minus((V76));          V90= one_minus((V90));
1190          goto T481;          goto T470;
1191  T481:;  T470:;
1192          V77= one_minus((V77));          V91= one_minus((V91));
1193          goto T473;}          goto T462;}
1194          }          }
1195  }  }
1196  /*      local entry for function SET-CURRENT    */  /*      local entry for function SET-CURRENT    */
# Line 1213  static object LI12() Line 1200  static object LI12()
1200  {        VMB12 VMS12 VMV12  {        VMB12 VMS12 VMV12
1201          goto TTL;          goto TTL;
1202  TTL:;  TTL:;
1203          {register object V78;          {register object V92;
1204          V78= (VV[39]->s.s_dbind);          V92= (VV[39]->s.s_dbind);
1205          goto T491;          goto T480;
1206  T491:;  T480:;
1207          if(((*(LnkLI173))((V78)))!=Cnil){          if(((*(LnkLI173))((V92)))!=Cnil){
1208          goto T493;}          goto T482;}
1209          if(!(number_compare((V78),(VV[37]->s.s_dbind))<=0)){          if(!(number_compare((V92),(VV[37]->s.s_dbind))<=0)){
1210          goto T492;}          goto T481;}
1211          goto T493;          goto T482;
1212  T493:;  T482:;
1213          (VV[39]->s.s_dbind)= (V78);          (VV[39]->s.s_dbind)= (V92);
1214          (void)((*(LnkLI172))());          (void)((*(LnkLI172))());
1215          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1216          base[1]= VV[84];          base[1]= VV[84];
# Line 1236  T493:; Line 1223  T493:;
1223          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
1224          Lformat();          Lformat();
1225          vs_top=sup;          vs_top=sup;
1226          {object V79 = vs_base[0];          {object V93 = vs_base[0];
1227          VMR12(V79)}          VMR12(V93)}
1228          goto T492;          goto T481;
1229  T492:;  T481:;
1230          V78= one_minus((V78));          V92= one_minus((V92));
1231          goto T491;}          goto T480;}
1232          base[0]=base[0];          base[0]=base[0];
1233          return Cnil;          return Cnil;
1234  }  }
# Line 1251  static void L13() Line 1238  static void L13()
1238  {register object *base=vs_base;  {register object *base=vs_base;
1239          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
1240          vs_check;          vs_check;
1241          {register object V80;          {register object V94;
1242          if(vs_base>=vs_top){vs_top=sup;goto T509;}          if(vs_base>=vs_top){vs_top=sup;goto T498;}
1243          V80=(base[0]);          V94=(base[0]);
1244          vs_top=sup;          vs_top=sup;
1245          goto T510;          goto T499;
1246          goto T509;          goto T498;
1247  T509:;  T498:;
1248          V80= small_fixnum(1);          V94= small_fixnum(1);
1249          goto T510;          goto T499;
1250  T510:;  T499:;
1251          {register object V81;          {register object V95;
1252          V81= (VV[39]->s.s_dbind);          V95= (VV[39]->s.s_dbind);
1253          goto T513;          goto T502;
1254  T513:;  T502:;
1255          if(number_compare((V81),(VV[38]->s.s_dbind))>0){          if(number_compare((V95),(VV[38]->s.s_dbind))>0){
1256          goto T515;}          goto T504;}
1257          if(!(number_compare((V80),small_fixnum(0))<0)){          if(!(number_compare((V94),small_fixnum(0))<0)){
1258          goto T514;}          goto T503;}
1259          goto T515;          goto T504;
1260  T515:;  T504:;
1261          (void)((*(LnkLI172))());          (void)((*(LnkLI172))());
1262          vs_base=vs_top;          vs_base=vs_top;
1263          (void) (*Lnk154)();          (void) (*Lnk154)();
1264          return;          return;
1265          goto T514;          goto T503;
1266  T514:;  T503:;
1267          if(((*(LnkLI173))((V81)))==Cnil){          if(((*(LnkLI173))((V95)))==Cnil){
1268          goto T521;}          goto T510;}
1269          (VV[39]->s.s_dbind)= (V81);          (VV[39]->s.s_dbind)= (V95);
1270          V80= one_minus((V80));          V94= one_minus((V94));
1271          goto T521;          goto T510;
1272  T521:;  T510:;
1273          V81= one_plus((V81));          V95= one_plus((V95));
1274          goto T513;}          goto T502;}
1275          }          }
1276  }  }
1277  /*      function definition for BREAK-GO        */  /*      function definition for BREAK-GO        */
# Line 1293  static void L14() Line 1280  static void L14()
1280  {register object *base=vs_base;  {register object *base=vs_base;
1281          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
1282          vs_check;          vs_check;
1283          {object V82;          {object V96;
1284          V82=(base[0]);          V96=(base[0]);
1285          vs_top=sup;          vs_top=sup;
1286          goto TTL;          goto TTL;
1287  TTL:;  TTL:;
1288          {object V83= (number_compare((V82),(VV[37]->s.s_dbind))>=0?((V82)):(VV[37]->s.s_dbind));          {object V97= (number_compare((V96),(VV[37]->s.s_dbind))>=0?((V96)):(VV[37]->s.s_dbind));
1289          (VV[39]->s.s_dbind)= (number_compare(V83,(VV[38]->s.s_dbind))<=0?(V83):(VV[38]->s.s_dbind));}          (VV[39]->s.s_dbind)= (number_compare(V97,(VV[38]->s.s_dbind))<=0?(V97):(VV[38]->s.s_dbind));}
1290          if(((*(LnkLI173))((VV[39]->s.s_dbind)))==Cnil){          if(((*(LnkLI173))((VV[39]->s.s_dbind)))==Cnil){
1291          goto T533;}          goto T522;}
1292          (void)((*(LnkLI172))());          (void)((*(LnkLI172))());
1293          vs_base=vs_top;          vs_base=vs_top;
1294          (void) (*Lnk154)();          (void) (*Lnk154)();
1295          return;          return;
1296          goto T533;          goto T522;
1297  T533:;  T522:;
1298          vs_base=vs_top;          vs_base=vs_top;
1299          (void) (*Lnk175)();          (void) (*Lnk175)();
1300          return;          return;
# Line 1328  TTL:; Line 1315  TTL:;
1315          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1316          return;          return;
1317  }  }
1318  /*      function definition for DESCRIBE-ENVIRONMENT    */  /*      local entry for function DESCRIBE-ENVIRONMENT   */
1319    
1320  static void L16()  static object LI16(object first,...)
1321  {register object *base=vs_base;  {      
1322          register object *sup=base+VM16; VC16          va_list ap;
1323          vs_check;          int narg = VFUN_NARGS; VMB16 VMS16 VMV16
1324          {object V84;          {object V98;
1325          register object V85;          register object V99;
1326          if(vs_base>=vs_top){vs_top=sup;goto T538;}          va_start(ap,first);
1327          V84=(base[0]);          narg = narg - 0;
1328          vs_base++;          if (narg <= 0) goto T527;
1329          if(vs_base>=vs_top){vs_top=sup;goto T539;}          else {
1330          V85=(base[1]);          V98= first;}
1331            if (--narg <= 0) goto T528;
1332            else {
1333            V99= va_arg(ap,object);}
1334            --narg; goto T529;
1335            goto T527;
1336    T527:;
1337            V98= (VV[42]->s.s_dbind);
1338            goto T528;
1339    T528:;
1340            V99= (VV[48]->s.s_dbind);
1341            goto T529;
1342    T529:;
1343            if(!(((long)length((V98)))==(3))){
1344            goto T533;}
1345            goto T532;
1346            goto T533;
1347    T533:;
1348            base[0]= VV[85];
1349            vs_top=(vs_base=base+0)+1;
1350            Lerror();
1351          vs_top=sup;          vs_top=sup;
1352          goto T540;          goto T532;
1353          goto T538;  T532:;
1354  T538:;          {register object V100;
1355          V84= (VV[42]->s.s_dbind);          V100= VV[86];
1356          goto T539;          base[0]= (V99);
1357  T539:;          base[1]= (V100);
1358          V85= (VV[48]->s.s_dbind);          base[2]= VV[87];
1359            {object V101;
1360            {object V102;
1361            object V103= CMPcar((VV[42]->s.s_dbind));
1362            if(V103==Cnil){
1363            V101= Cnil;
1364            goto T540;}
1365            base[3]=V102=MMcons(Cnil,Cnil);
1366            goto T541;
1367    T541:;
1368            (V102->c.c_car)= CMPcar((V103->c.c_car));
1369            if((V103=MMcdr(V103))==Cnil){
1370            V101= base[3];
1371            goto T540;}
1372            V102=MMcdr(V102)=MMcons(Cnil,Cnil);
1373            goto T541;}
1374          goto T540;          goto T540;
1375  T540:;  T540:;
1376          if(!(((long)length((V84)))==(3))){           vs_top=base+3;
1377          goto T544;}           while(V101!=Cnil)
1378          goto T543;           {vs_push((V101)->c.c_car);V101=(V101)->c.c_cdr;}
1379          goto T544;          vs_base=base+0;}
1380  T544:;          Lformat();
1381          base[2]= VV[85];          vs_top=sup;
1382          vs_top=(vs_base=base+2)+1;          base[0]= (V99);
1383          Lerror();          base[1]= (V100);
1384          vs_top=sup;          base[2]= VV[88];
1385          goto T543;          {object V104;
1386  T543:;          {object V105;
1387          {register object V86;          object V106= CMPcadr((VV[42]->s.s_dbind));
1388          V86= VV[86];          if(V106==Cnil){
1389          base[2]= (V85);          V104= Cnil;
1390          base[3]= (V86);          goto T547;}
1391          base[4]= VV[87];          base[3]=V105=MMcons(Cnil,Cnil);
1392          {object V87;          goto T548;
1393          {object V88;  T548:;
1394          object V89= CMPcar((VV[42]->s.s_dbind));          (V105->c.c_car)= CMPcar((V106->c.c_car));
1395          if(V89==Cnil){          if((V106=MMcdr(V106))==Cnil){
1396          V87= Cnil;          V104= base[3];
1397          goto T551;}          goto T547;}
1398          base[5]=V88=MMcons(Cnil,Cnil);          V105=MMcdr(V105)=MMcons(Cnil,Cnil);
1399          goto T552;          goto T548;}
1400  T552:;          goto T547;
1401          (V88->c.c_car)= CMPcar((V89->c.c_car));  T547:;
1402          if((V89=MMcdr(V89))==Cnil){           vs_top=base+3;
1403          V87= base[5];           while(V104!=Cnil)
1404          goto T551;}           {vs_push((V104)->c.c_car);V104=(V104)->c.c_cdr;}
1405          V88=MMcdr(V88)=MMcons(Cnil,Cnil);          vs_base=base+0;}
1406          goto T552;}          Lformat();
1407          goto T551;          vs_top=sup;
1408  T551:;          base[0]= (V99);
1409           vs_top=base+5;          base[1]= (V100);
1410           while(V87!=Cnil)          base[2]= VV[89];
1411           {vs_push((V87)->c.c_car);V87=(V87)->c.c_cdr;}          {object V107;
1412          vs_base=base+2;}          {object V108;
1413          Lformat();          object V109= CMPcaddr((VV[42]->s.s_dbind));
1414          vs_top=sup;          if(V109==Cnil){
1415          base[2]= (V85);          V107= Cnil;
1416          base[3]= (V86);          goto T554;}
1417          base[4]= VV[88];          base[3]=V108=MMcons(Cnil,Cnil);
1418          {object V90;          goto T555;
1419          {object V91;  T555:;
1420          object V92= CMPcadr((VV[42]->s.s_dbind));          if(!((CMPcadr((V109->c.c_car)))==(VV[90]))){
         if(V92==Cnil){  
         V90= Cnil;  
         goto T558;}  
         base[5]=V91=MMcons(Cnil,Cnil);  
         goto T559;  
 T559:;  
         (V91->c.c_car)= CMPcar((V92->c.c_car));  
         if((V92=MMcdr(V92))==Cnil){  
         V90= base[5];  
1421          goto T558;}          goto T558;}
1422          V91=MMcdr(V91)=MMcons(Cnil,Cnil);          (V108->c.c_cdr)= make_cons(CMPcar((V109->c.c_car)),Cnil);
1423          goto T559;}          goto T556;
1424          goto T558;          goto T558;
1425  T558:;  T558:;
1426           vs_top=base+5;          (V108->c.c_cdr)= Cnil;
1427           while(V90!=Cnil)          goto T556;
1428           {vs_push((V90)->c.c_car);V90=(V90)->c.c_cdr;}  T556:;
1429          vs_base=base+2;}          while(MMcdr(V108)!=Cnil)V108=MMcdr(V108);
1430          Lformat();          if((V109=MMcdr(V109))==Cnil){
1431          vs_top=sup;          base[3]=base[3]->c.c_cdr;
1432          base[2]= (V85);          V107= base[3];
1433          base[3]= (V86);          goto T554;}
1434          base[4]= VV[89];          goto T555;}
1435          {object V93;          goto T554;
1436          {object V94;  T554:;
1437          object V95= CMPcaddr((VV[42]->s.s_dbind));           vs_top=base+3;
1438          if(V95==Cnil){           while(V107!=Cnil)
1439          V93= Cnil;           {vs_push((V107)->c.c_car);V107=(V107)->c.c_cdr;}
1440          goto T565;}          vs_base=base+0;}
1441          base[5]=V94=MMcons(Cnil,Cnil);          Lformat();
1442          goto T566;          vs_top=sup;
1443  T566:;          base[0]= (V99);
1444          if(!((CMPcadr((V95->c.c_car)))==(VV[90]))){          base[1]= (V100);
1445          goto T569;}          base[2]= VV[91];
1446          (V94->c.c_cdr)= make_cons(CMPcar((V95->c.c_car)),Cnil);          {object V111;
1447          goto T567;          {object V112;
1448          goto T569;          object V113= CMPcaddr((VV[42]->s.s_dbind));
1449  T569:;          if(V113==Cnil){
1450          (V94->c.c_cdr)= Cnil;          V111= Cnil;
1451            goto T563;}
1452            base[3]=V112=MMcons(Cnil,Cnil);
1453            goto T564;
1454    T564:;
1455            if(!((CMPcadr((V113->c.c_car)))==(VV[92]))){
1456            goto T567;}
1457            (V112->c.c_cdr)= make_cons(CMPcar((V113->c.c_car)),Cnil);
1458            goto T565;
1459          goto T567;          goto T567;
1460  T567:;  T567:;
1461          while(MMcdr(V94)!=Cnil)V94=MMcdr(V94);          (V112->c.c_cdr)= Cnil;
         if((V95=MMcdr(V95))==Cnil){  
         base[5]=base[5]->c.c_cdr;  
         V93= base[5];  
         goto T565;}  
         goto T566;}  
1462          goto T565;          goto T565;
1463  T565:;  T565:;
1464           vs_top=base+5;          while(MMcdr(V112)!=Cnil)V112=MMcdr(V112);
1465           while(V93!=Cnil)          if((V113=MMcdr(V113))==Cnil){
1466           {vs_push((V93)->c.c_car);V93=(V93)->c.c_cdr;}          base[3]=base[3]->c.c_cdr;
1467          vs_base=base+2;}          V111= base[3];
1468            goto T563;}
1469            goto T564;}
1470            goto T563;
1471    T563:;
1472             vs_top=base+3;
1473             while(V111!=Cnil)
1474             {vs_push((V111)->c.c_car);V111=(V111)->c.c_cdr;}
1475            vs_base=base+0;}
1476          Lformat();          Lformat();
1477          vs_top=sup;          vs_top=sup;
1478          base[2]= (V85);          {object V115 = vs_base[0];
1479          base[3]= (V86);          VMR16(V115)}}
1480          base[4]= VV[91];          va_end(ap);
1481          {object V97;          base[0]=base[0];
1482          {object V98;          return Cnil;}
         object V99= CMPcaddr((VV[42]->s.s_dbind));  
         if(V99==Cnil){  
         V97= Cnil;  
         goto T574;}  
         base[5]=V98=MMcons(Cnil,Cnil);  
         goto T575;  
 T575:;  
         if(!((CMPcadr((V99->c.c_car)))==(VV[92]))){  
         goto T578;}  
         (V98->c.c_cdr)= make_cons(CMPcar((V99->c.c_car)),Cnil);  
         goto T576;  
         goto T578;  
 T578:;  
         (V98->c.c_cdr)= Cnil;  
         goto T576;  
 T576:;  
         while(MMcdr(V98)!=Cnil)V98=MMcdr(V98);  
         if((V99=MMcdr(V99))==Cnil){  
         base[5]=base[5]->c.c_cdr;  
         V97= base[5];  
         goto T574;}  
         goto T575;}  
         goto T574;  
 T574:;  
          vs_top=base+5;  
          while(V97!=Cnil)  
          {vs_push((V97)->c.c_car);V97=(V97)->c.c_cdr;}  
         vs_base=base+2;}  
         Lformat();  
         return;}  
1483          }          }
 }  
1484  /*      function definition for BREAK-VS        */  /*      function definition for BREAK-VS        */
1485    
1486  static void L17()  static void L17()
1487  {register object *base=vs_base;  {register object *base=vs_base;
1488          register object *sup=base+VM17; VC17          register object *sup=base+VM17; VC17
1489          vs_check;          vs_check;
1490          {register object V101;          {register object V116;
1491          object V102;          object V117;
1492          if(vs_base>=vs_top){vs_top=sup;goto T580;}          if(vs_base>=vs_top){vs_top=sup;goto T569;}
1493          V101=(base[0]);          V116=(base[0]);
1494          vs_base++;          vs_base++;
1495          if(vs_base>=vs_top){vs_top=sup;goto T581;}          if(vs_base>=vs_top){vs_top=sup;goto T570;}
1496          V102=(base[1]);          V117=(base[1]);
1497          vs_top=sup;          vs_top=sup;
1498          goto T582;          goto T571;
1499          goto T580;          goto T569;
1500  T580:;  T569:;
1501          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1502          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1503          (void) (*Lnk176)();          (void) (*Lnk176)();
1504          vs_top=sup;          vs_top=sup;
1505          V101= vs_base[0];          V116= vs_base[0];
1506          goto T581;          goto T570;
1507  T581:;  T570:;
1508          base[2]= (VV[38]->s.s_dbind);          base[2]= (VV[38]->s.s_dbind);
1509          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1510          (void) (*Lnk176)();          (void) (*Lnk176)();
1511          vs_top=sup;          vs_top=sup;
1512          V102= vs_base[0];          V117= vs_base[0];
1513          goto T582;          goto T571;
1514  T582:;  T571:;
1515          base[2]= (VV[37]->s.s_dbind);          base[2]= (VV[37]->s.s_dbind);
1516          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1517          (void) (*Lnk176)();          (void) (*Lnk176)();
1518          vs_top=sup;          vs_top=sup;
1519          V103= vs_base[0];          V118= vs_base[0];
1520          V101= (number_compare((V101),V103)>=0?((V101)):V103);          V116= (number_compare((V116),V118)>=0?((V116)):V118);
1521          base[2]= one_plus((VV[38]->s.s_dbind));          base[2]= one_plus((VV[38]->s.s_dbind));
1522          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1523          (void) (*Lnk176)();          (void) (*Lnk176)();
1524          vs_top=sup;          vs_top=sup;
1525          V104= vs_base[0];          V119= vs_base[0];
1526          V105= one_minus(V104);          V120= one_minus(V119);
1527          V102= (number_compare((V102),/* INLINE-ARGS */V105)<=0?((V102)):/* INLINE-ARGS */V105);          V117= (number_compare((V117),/* INLINE-ARGS */V120)<=0?((V117)):/* INLINE-ARGS */V120);
1528          {register object V106;          {register object V121;
1529          V106= (VV[37]->s.s_dbind);          V121= (VV[37]->s.s_dbind);
1530          goto T596;          goto T585;
1531  T596:;  T585:;
1532          if(number_compare((V106),(VV[38]->s.s_dbind))>=0){          if(number_compare((V121),(VV[38]->s.s_dbind))>=0){
1533          goto T598;}          goto T587;}
1534          base[2]= (V106);          base[2]= (V121);
1535          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1536          (void) (*Lnk176)();          (void) (*Lnk176)();
1537          vs_top=sup;          vs_top=sup;
1538          V107= vs_base[0];          V122= vs_base[0];
1539          if(!(number_compare(V107,(V101))>=0)){          if(!(number_compare(V122,(V116))>=0)){
1540          goto T597;}          goto T586;}
1541          goto T598;          goto T587;
1542  T598:;  T587:;
1543          {register object V108;          {register object V123;
1544          V108= (V101);          V123= (V116);
1545          goto T605;          goto T594;
1546  T605:;  T594:;
1547          if(!(number_compare((V108),(V102))>0)){          if(!(number_compare((V123),(V117))>0)){
1548          goto T606;}          goto T595;}
1549          vs_base=vs_top=base+2;          vs_base=vs_top=base+2;
1550          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1551          return;          return;
1552          goto T606;          goto T595;
1553  T606:;  T595:;
1554          goto T612;          goto T601;
1555  T612:;  T601:;
1556          base[2]= (V106);          base[2]= (V121);
1557          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1558          (void) (*Lnk176)();          (void) (*Lnk176)();
1559          vs_top=sup;          vs_top=sup;
1560          V109= vs_base[0];          V124= vs_base[0];
1561          if(!(number_compare(V109,(V108))>0)){          if(!(number_compare(V124,(V123))>0)){
1562          goto T613;}          goto T602;}
1563          goto T610;          goto T599;
1564          goto T613;          goto T602;
1565  T613:;  T602:;
1566          if(((*(LnkLI173))((V106)))==Cnil){          if(((*(LnkLI173))((V121)))==Cnil){
1567          goto T619;}          goto T608;}
1568          (void)((*(LnkLI177))((V106)));          (void)((*(LnkLI177))((V121)));
1569          goto T619;          goto T608;
1570  T619:;  T608:;
1571          V106= number_plus((V106),small_fixnum(1));          V121= number_plus((V121),small_fixnum(1));
1572          goto T612;          goto T601;
1573          goto T610;          goto T599;
1574  T610:;  T599:;
1575          base[2]= (VV[48]->s.s_dbind);          base[2]= (VV[48]->s.s_dbind);
1576          base[3]= VV[93];          base[3]= VV[93];
1577          base[4]= (V108);          base[4]= (V123);
1578          base[6]= (V108);          base[6]= (V123);
1579          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1580          (void) (*Lnk178)();          (void) (*Lnk178)();
1581          vs_top=sup;          vs_top=sup;
# Line 1590  T610:; Line 1583  T610:;
1583          vs_top=(vs_base=base+2)+4;          vs_top=(vs_base=base+2)+4;
1584          Lformat();          Lformat();
1585          vs_top=sup;          vs_top=sup;
1586          V108= one_plus((V108));          V123= one_plus((V123));
1587          goto T605;}          goto T594;}
1588          goto T597;          goto T586;
1589  T597:;  T586:;
1590          V106= one_plus((V106));          V121= one_plus((V121));
1591          goto T596;}          goto T585;}
1592          }          }
1593  }  }
1594  /*      function definition for BREAK-LOCAL     */  /*      function definition for BREAK-LOCAL     */
# Line 1604  static void L18() Line 1597  static void L18()
1597  {register object *base=vs_base;  {register object *base=vs_base;
1598          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
1599          vs_check;          vs_check;
1600          {object V110;          {object V125;
1601          if(vs_base>=vs_top){vs_top=sup;goto T639;}          if(vs_base>=vs_top){vs_top=sup;goto T628;}
1602          V110=(base[0]);          V125=(base[0]);
1603          vs_top=sup;          vs_top=sup;
1604          goto T640;          goto T629;
1605          goto T639;          goto T628;
1606  T639:;  T628:;
1607          V110= small_fixnum(0);          V125= small_fixnum(0);
1608          goto T640;          goto T629;
1609  T640:;  T629:;
1610          {object V111;          {object V126;
1611          base[2]= (VV[39]->s.s_dbind);          base[2]= (VV[39]->s.s_dbind);
1612          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1613          (void) (*Lnk176)();          (void) (*Lnk176)();
1614          vs_top=sup;          vs_top=sup;
1615          V112= vs_base[0];          V127= vs_base[0];
1616          V111= number_plus(V112,(V110));          V126= number_plus(V127,(V125));
1617          base[2]= (V111);          base[2]= (V126);
1618          base[3]= (V111);          base[3]= (V126);
1619          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1620          (void) (*Lnk179)();          (void) (*Lnk179)();
1621          return;}          return;}
# Line 1634  static void L19() Line 1627  static void L19()
1627  {register object *base=vs_base;  {register object *base=vs_base;
1628          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
1629          vs_check;          vs_check;
1630          {register object V113;          {register object V128;
1631          vs_top[0]=Cnil;          vs_top[0]=Cnil;
1632          {object *p=vs_top;          {object *p=vs_top;
1633           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
1634          V113=(base[0]);          V128=(base[0]);
1635          vs_top=sup;          vs_top=sup;
1636          {register object V114;          {register object V129;
1637          V114= (VV[40]->s.s_dbind);          V129= (VV[40]->s.s_dbind);
1638          {register object V115;          {register object V130;
1639          register object V116;          register object V131;
1640          base[1]= one_minus((VV[40]->s.s_dbind));          base[1]= one_minus((VV[40]->s.s_dbind));
1641          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1642          (void) (*Lnk180)();          (void) (*Lnk180)();
1643          vs_top=sup;          vs_top=sup;
1644          V117= vs_base[0];          V132= vs_base[0];
1645          V115= one_plus(V117);          V130= one_plus(V132);
1646          base[1]= one_plus((VV[41]->s.s_dbind));          base[1]= one_plus((VV[41]->s.s_dbind));
1647          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1648          (void) (*Lnk180)();          (void) (*Lnk180)();
1649          vs_top=sup;          vs_top=sup;
1650          V116= vs_base[0];          V131= vs_base[0];
1651          goto T654;          goto T643;
1652  T654:;  T643:;
1653          if(!(number_compare((V115),(V116))>0)){          if(!(number_compare((V130),(V131))>0)){
1654          goto T655;}          goto T644;}
1655          vs_base=vs_top=base+1;          vs_base=vs_top=base+1;
1656          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1657          return;          return;
1658          goto T655;          goto T644;
1659  T655:;  T644:;
1660          if(((V113))==Cnil){          if(((V128))==Cnil){
1661          goto T660;}          goto T649;}
1662          base[1]= (V115);          base[1]= (V130);
1663          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1664          (void) (*Lnk181)();          (void) (*Lnk181)();
1665          vs_top=sup;          vs_top=sup;
1666          V119= vs_base[0];          V134= vs_base[0];
1667          {register object x= V119,V118= (V113);          {register object x= V134,V133= (V128);
1668          while(V118!=Cnil)          while(V133!=Cnil)
1669          if(eql(x,V118->c.c_car)){          if(eql(x,V133->c.c_car)){
1670          goto T663;          goto T652;
1671          }else V118=V118->c.c_cdr;          }else V133=V133->c.c_cdr;
1672            goto T648;}
1673            goto T652;
1674    T652:;
1675            goto T649;
1676    T649:;
1677            goto T657;
1678    T657:;
1679            if(number_compare((V129),(VV[41]->s.s_dbind))>0){
1680          goto T659;}          goto T659;}
1681          goto T663;          base[1]= (V129);
 T663:;  
         goto T660;  
 T660:;  
         goto T668;  
 T668:;  
         if(number_compare((V114),(VV[41]->s.s_dbind))>0){  
         goto T670;}  
         base[1]= (V114);  
1682          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1683          (void) (*Lnk180)();          (void) (*Lnk180)();
1684          vs_top=sup;          vs_top=sup;
1685          V120= vs_base[0];          V135= vs_base[0];
1686          if(!(number_compare(V120,(V115))>0)){          if(!(number_compare(V135,(V130))>0)){
1687          goto T669;}          goto T658;}
1688          goto T670;          goto T659;
1689  T670:;  T659:;
1690          goto T666;          goto T655;
1691          goto T669;          goto T658;
1692  T669:;  T658:;
1693          (void)((*(LnkLI182))((V114)));          (void)((*(LnkLI182))((V129)));
1694          V114= number_plus((V114),small_fixnum(1));          V129= number_plus((V129),small_fixnum(1));
1695          goto T668;          goto T657;
1696          goto T666;          goto T655;
1697  T666:;  T655:;
1698          base[1]= (VV[48]->s.s_dbind);          base[1]= (VV[48]->s.s_dbind);
1699          base[2]= VV[94];          base[2]= VV[94];
1700          base[3]= (V115);          base[3]= (V130);
1701          base[5]= (V115);          base[5]= (V130);
1702          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1703          (void) (*Lnk181)();          (void) (*Lnk181)();
1704          vs_top=sup;          vs_top=sup;
1705          base[4]= vs_base[0];          base[4]= vs_base[0];
1706          base[6]= (V115);          base[6]= (V130);
1707          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1708          (void) (*Lnk183)();          (void) (*Lnk183)();
1709          vs_top=sup;          vs_top=sup;
# Line 1718  T666:; Line 1711  T666:;
1711          vs_top=(vs_base=base+1)+5;          vs_top=(vs_base=base+1)+5;
1712          Lformat();          Lformat();
1713          vs_top=sup;          vs_top=sup;
1714          goto T659;          goto T648;
1715  T659:;  T648:;
1716          V115= one_plus((V115));          V130= one_plus((V130));
1717          goto T654;}}          goto T643;}}
1718          }          }
1719  }  }
1720  /*      function definition for SIMPLE-BACKTRACE        */  /*      function definition for SIMPLE-BACKTRACE        */
# Line 1734  static void L20() Line 1727  static void L20()
1727          goto TTL;          goto TTL;
1728  TTL:;  TTL:;
1729          princ_str("Backtrace: ",VV[48]);          princ_str("Backtrace: ",VV[48]);
1730          {register object V121;          {register object V136;
1731          register object V122;          register object V137;
1732          V121= (VV[37]->s.s_dbind);          V136= (VV[37]->s.s_dbind);
1733          V122= Cnil;          V137= Cnil;
1734          goto T696;          goto T685;
1735  T696:;  T685:;
1736          if(!(number_compare((V121),(VV[38]->s.s_dbind))>0)){          if(!(number_compare((V136),(VV[38]->s.s_dbind))>0)){
1737          goto T697;}          goto T686;}
1738          princ_char(10,VV[48]);          princ_char(10,VV[48]);
1739          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
1740          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1741          return;          return;
1742          goto T697;          goto T686;
1743  T697:;  T686:;
1744          if(((*(LnkLI173))((V121)))==Cnil){          if(((*(LnkLI173))((V136)))==Cnil){
1745          goto T702;}          goto T691;}
1746          if(((V122))==Cnil){          if(((V137))==Cnil){
1747          goto T705;}          goto T694;}
1748          princ_str(" > ",VV[48]);          princ_str(" > ",VV[48]);
1749          goto T705;          goto T694;
1750  T705:;  T694:;
1751          base[1]= (V121);          base[1]= (V136);
1752          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
1753          (void) (*Lnk174)();          (void) (*Lnk174)();
1754          vs_top=sup;          vs_top=sup;
# Line 1765  T705:; Line 1758  T705:;
1758          base[3]= VV[96];          base[3]= VV[96];
1759          base[4]= Ct;          base[4]= Ct;
1760          base[5]= VV[97];          base[5]= VV[97];
1761          if(!(number_compare((V121),(VV[39]->s.s_dbind))==0)){          if(!(number_compare((V136),(VV[39]->s.s_dbind))==0)){
1762          goto T717;}          goto T706;}
1763          base[6]= VV[59];          base[6]= VV[59];
1764          goto T715;          goto T704;
1765          goto T717;          goto T706;
1766  T717:;  T706:;
1767          base[6]= VV[98];          base[6]= VV[98];
1768          goto T715;          goto T704;
1769  T715:;  T704:;
1770          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1771          Lwrite();          Lwrite();
1772          vs_top=sup;          vs_top=sup;
1773          goto T702;          goto T691;
1774  T702:;  T691:;
1775          V121= one_plus((V121));          V136= one_plus((V136));
1776          V122= Ct;          V137= Ct;
1777          goto T696;}          goto T685;}
1778  }  }
1779  /*      function definition for IHS-BACKTRACE   */  /*      function definition for IHS-BACKTRACE   */
1780    
# Line 1789  static void L21() Line 1782  static void L21()
1782  {register object *base=vs_base;  {register object *base=vs_base;
1783          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1784          vs_check;          vs_check;
1785          {object V123;          {object V138;
1786          register object V124;          register object V139;
1787          if(vs_base>=vs_top){vs_top=sup;goto T724;}          if(vs_base>=vs_top){vs_top=sup;goto T713;}
1788          V123=(base[0]);          V138=(base[0]);
1789          vs_base++;          vs_base++;
1790          if(vs_base>=vs_top){vs_top=sup;goto T725;}          if(vs_base>=vs_top){vs_top=sup;goto T714;}
1791          V124=(base[1]);          V139=(base[1]);
1792          vs_top=sup;          vs_top=sup;
1793          goto T726;          goto T715;
1794          goto T724;          goto T713;
1795  T724:;  T713:;
1796          V123= (VV[37]->s.s_dbind);          V138= (VV[37]->s.s_dbind);
1797          goto T725;          goto T714;
1798  T725:;  T714:;
1799          V124= (VV[38]->s.s_dbind);          V139= (VV[38]->s.s_dbind);
1800          goto T726;          goto T715;
1801  T726:;  T715:;
1802          V123= (number_compare((V123),(VV[37]->s.s_dbind))>=0?((V123)):(VV[37]->s.s_dbind));          V138= (number_compare((V138),(VV[37]->s.s_dbind))>=0?((V138)):(VV[37]->s.s_dbind));
1803          V124= (number_compare((V124),(VV[38]->s.s_dbind))<=0?((V124)):(VV[38]->s.s_dbind));          V139= (number_compare((V139),(VV[38]->s.s_dbind))<=0?((V139)):(VV[38]->s.s_dbind));
1804          {register object V125;          {register object V140;
1805          register object V126;          register object V141;
1806          V125= (V123);{object V127;          V140= (V138);{object V142;
1807          base[3]= (VV[40]->s.s_dbind);          base[3]= (VV[40]->s.s_dbind);
1808          base[4]= (V123);          base[4]= (V138);
1809          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1810          (void) (*Lnk159)();          (void) (*Lnk159)();
1811          vs_top=sup;          vs_top=sup;
1812          V127= vs_base[0];          V142= vs_base[0];
1813          if(V127==Cnil)goto T735;          if(V142==Cnil)goto T724;
1814          V126= V127;          V141= V142;
1815          goto T734;          goto T723;
1816          goto T735;          goto T724;
1817  T735:;}  T724:;}
1818          V126= one_plus((VV[41]->s.s_dbind));          V141= one_plus((VV[41]->s.s_dbind));
1819          goto T734;          goto T723;
1820  T734:;  T723:;
1821          goto T740;          goto T729;
1822  T740:;  T729:;
1823          if(!(number_compare((V125),(V124))>0)){          if(!(number_compare((V140),(V139))>0)){
1824          goto T741;}          goto T730;}
1825          vs_base=vs_top=base+3;          vs_base=vs_top=base+3;
1826          vs_base[0]=Cnil;          vs_base[0]=Cnil;
1827          return;          return;
1828          goto T741;          goto T730;
1829  T741:;  T730:;
1830          if(((*(LnkLI173))((V125)))==Cnil){          if(((*(LnkLI173))((V140)))==Cnil){
1831          goto T745;}          goto T734;}
1832          (void)((*(LnkLI177))((V125)));          (void)((*(LnkLI177))((V140)));
1833          goto T745;          goto T734;
1834  T745:;  T734:;
1835          goto T750;          goto T739;
1836  T750:;  T739:;
1837          if(number_compare((V126),(VV[41]->s.s_dbind))>0){          if(number_compare((V141),(VV[41]->s.s_dbind))>0){
1838          goto T752;}          goto T741;}
1839          base[3]= (V126);          base[3]= (V141);
1840          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
1841          (void) (*Lnk184)();          (void) (*Lnk184)();
1842          vs_top=sup;          vs_top=sup;
1843          V128= vs_base[0];          V143= vs_base[0];
1844          if(!(number_compare(V128,(V125))>0)){          if(!(number_compare(V143,(V140))>0)){
         goto T751;}  
         goto T752;  
 T752:;  
         goto T748;  
         goto T751;  
 T751:;  
         (void)((*(LnkLI182))((V126)));  
         V126= number_plus((V126),small_fixnum(1));  
         goto T750;  
         goto T748;  
 T748:;  
         V125= one_plus((V125));  
1845          goto T740;}          goto T740;}
1846            goto T741;
1847    T741:;
1848            goto T737;
1849            goto T740;
1850    T740:;
1851            (void)((*(LnkLI182))((V141)));
1852            V141= number_plus((V141),small_fixnum(1));
1853            goto T739;
1854            goto T737;
1855    T737:;
1856            V140= one_plus((V140));
1857            goto T729;}
1858          }          }
1859  }  }
1860  /*      local entry for function PRINT-IHS      */  /*      local entry for function PRINT-IHS      */
1861    
1862  static object LI22(V130)  static object LI22(V145)
1863    
1864  register object V130;  register object V145;
1865  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
1866          bds_check;          bds_check;
1867          goto TTL;          goto TTL;
# Line 1877  TTL:; Line 1870  TTL:;
1870          bds_bind(VV[57],small_fixnum(4));          bds_bind(VV[57],small_fixnum(4));
1871          base[2]= Ct;          base[2]= Ct;
1872          base[3]= VV[99];          base[3]= VV[99];
1873          base[4]= (number_compare((V130),(VV[39]->s.s_dbind))==0?Ct:Cnil);          base[4]= (number_compare((V145),(VV[39]->s.s_dbind))==0?Ct:Cnil);
1874          base[5]= (V130);          base[5]= (V145);
1875          {register object V131;          {register object V146;
1876          base[7]= (V130);          base[7]= (V145);
1877          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1878          (void) (*Lnk185)();          (void) (*Lnk185)();
1879          vs_top=sup;          vs_top=sup;
1880          V131= vs_base[0];          V146= vs_base[0];
1881          if(type_of((V131))==t_symbol){          if(type_of((V146))==t_symbol){
1882          goto T774;}          goto T763;}
1883          base[7]= (V131);          base[7]= (V146);
1884          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1885          Lcompiled_function_p();          Lcompiled_function_p();
1886          vs_top=sup;          vs_top=sup;
1887          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1888          goto T775;}          goto T764;}
1889            goto T763;
1890    T763:;
1891            base[6]= (V146);
1892            goto T760;
1893            goto T764;
1894    T764:;
1895            if(!(type_of((V146))==t_cons)){
1896            goto T770;}
1897            {object V147= CMPcar((V146));
1898            if((V147!= VV[100]))goto T772;
1899            base[6]= (V146);
1900            goto T760;
1901            goto T772;
1902    T772:;
1903            if((V147!= VV[186])
1904            && (V147!= VV[187]))goto T773;
1905            base[6]= CMPcdr((V146));
1906            goto T760;
1907            goto T773;
1908    T773:;
1909            if((V147!= VV[117]))goto T774;
1910            base[6]= make_cons(VV[100],CMPcddddr((V146)));
1911            goto T760;
1912          goto T774;          goto T774;
1913  T774:;  T774:;
1914          base[6]= (V131);          if((V147!= VV[188]))goto T775;
1915          goto T771;          base[6]= CMPcddddr((V146));
1916            goto T760;
1917          goto T775;          goto T775;
1918  T775:;  T775:;
1919          if(!(type_of((V131))==t_cons)){          if(!(type_of(CMPcar((V146)))==t_symbol)){
1920          goto T781;}          goto T777;}
1921          {object V132= CMPcar((V131));          base[7]= CMPcar((V146));
         if((V132!= VV[100]))goto T783;  
         base[6]= (V131);  
         goto T771;  
         goto T783;  
 T783:;  
         if((V132!= VV[186])  
         && (V132!= VV[187]))goto T784;  
         base[6]= CMPcdr((V131));  
         goto T771;  
         goto T784;  
 T784:;  
         if((V132!= VV[117]))goto T785;  
         base[6]= make_cons(VV[100],CMPcddddr((V131)));  
         goto T771;  
         goto T785;  
 T785:;  
         if((V132!= VV[188]))goto T786;  
         base[6]= CMPcddddr((V131));  
         goto T771;  
         goto T786;  
 T786:;  
         if(!(type_of(CMPcar((V131)))==t_symbol)){  
         goto T788;}  
         base[7]= CMPcar((V131));  
1922          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1923          Lspecial_form_p();          Lspecial_form_p();
1924          vs_top=sup;          vs_top=sup;
1925          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
1926          goto T787;}          goto T776;}
1927          base[7]= CMPcar((V131));          base[7]= CMPcar((V146));
1928          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1929          Lfboundp();          Lfboundp();
1930          vs_top=sup;          vs_top=sup;
1931          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1932          goto T788;}          goto T777;}
1933          goto T787;          goto T776;
1934  T787:;  T776:;
1935          base[6]= CMPcar((V131));          base[6]= CMPcar((V146));
1936          goto T771;          goto T760;
1937          goto T788;          goto T777;
1938  T788:;  T777:;
1939          base[6]= VV[101];          base[6]= VV[101];
1940          goto T771;}          goto T760;}
1941          goto T781;          goto T770;
1942  T781:;  T770:;
1943          (void)(print((V131),Cnil));          (void)(print((V146),Cnil));
1944          base[6]= VV[102];}          base[6]= VV[102];}
1945          goto T771;          goto T760;
1946  T771:;  T760:;
1947          base[8]= (V130);          base[8]= (V145);
1948          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1949          (void) (*Lnk176)();          (void) (*Lnk176)();
1950          vs_top=sup;          vs_top=sup;
# Line 1959  T771:; Line 1952  T771:;
1952          vs_top=(vs_base=base+2)+6;          vs_top=(vs_base=base+2)+6;
1953          Lformat();          Lformat();
1954          vs_top=sup;          vs_top=sup;
1955          {object V133 = vs_base[0];          {object V148 = vs_base[0];
1956          bds_unwind1;          bds_unwind1;
1957          bds_unwind1;          bds_unwind1;
1958          VMR22(V133)}          VMR22(V148)}
1959          base[0]=base[0];          base[0]=base[0];
1960          return Cnil;          return Cnil;
1961  }  }
1962  /*      local entry for function PRINT-FRS      */  /*      local entry for function PRINT-FRS      */
1963    
1964  static object LI23(V135)  static object LI23(V150)
1965    
1966  register object V135;  register object V150;
1967  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
1968          goto TTL;          goto TTL;
1969  TTL:;  TTL:;
1970          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
1971          base[1]= VV[103];          base[1]= VV[103];
1972          base[2]= (V135);          base[2]= (V150);
1973          base[3]= (*(LnkLI189))((V135));          base[3]= (*(LnkLI189))((V150));
1974          base[5]= (V135);          base[5]= (V150);
1975          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
1976          (void) (*Lnk184)();          (void) (*Lnk184)();
1977          vs_top=sup;          vs_top=sup;
1978          base[4]= vs_base[0];          base[4]= vs_base[0];
1979          base[6]= (V135);          base[6]= (V150);
1980          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
1981          (void) (*Lnk190)();          (void) (*Lnk190)();
1982          vs_top=sup;          vs_top=sup;
1983          base[5]= vs_base[0];          base[5]= vs_base[0];
1984          base[7]= (V135);          base[7]= (V150);
1985          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1986          (void) (*Lnk180)();          (void) (*Lnk180)();
1987          vs_top=sup;          vs_top=sup;
# Line 1996  TTL:; Line 1989  TTL:;
1989          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1990          Lformat();          Lformat();
1991          vs_top=sup;          vs_top=sup;
1992          {object V136 = vs_base[0];          {object V151 = vs_base[0];
1993          VMR23(V136)}          VMR23(V151)}
1994          base[0]=base[0];          base[0]=base[0];
1995          return Cnil;          return Cnil;
1996  }  }
1997  /*      local entry for function FRS-KIND       */  /*      local entry for function FRS-KIND       */
1998    
1999  static object LI24(V138)  static object LI24(V153)
2000    
2001  register object V138;  register object V153;
2002  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2003          goto TTL;          goto TTL;
2004  TTL:;  TTL:;
2005          {register object V139;          {register object V154;
2006          V139= Cnil;          V154= Cnil;
2007          base[0]= (V138);          base[0]= (V153);
2008          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2009          (void) (*Lnk191)();          (void) (*Lnk191)();
2010          vs_top=sup;          vs_top=sup;
2011          V141= vs_base[0];          V156= vs_base[0];
2012          {object V140= V141;          {object V155= V156;
2013          if((V140!= VV[192]))goto T812;          if((V155!= VV[192]))goto T801;
2014          base[1]= (V138);          base[1]= (V153);
2015          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2016          (void) (*Lnk193)();          (void) (*Lnk193)();
2017          vs_top=sup;          vs_top=sup;
# Line 2027  TTL:; Line 2020  TTL:;
2020          (void) (*Lnk194)();          (void) (*Lnk194)();
2021          vs_top=sup;          vs_top=sup;
2022          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2023          goto T814;}{object V142;          goto T803;}{object V157;
2024          base[1]= (V138);          base[1]= (V153);
2025          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2026          (void) (*Lnk193)();          (void) (*Lnk193)();
2027          vs_top=sup;          vs_top=sup;
2028          base[0]= vs_base[0];          base[0]= vs_base[0];
2029          base[3]= (V138);          base[3]= (V153);
2030          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2031          (void) (*Lnk190)();          (void) (*Lnk190)();
2032          vs_top=sup;          vs_top=sup;
2033          V143= vs_base[0];          V158= vs_base[0];
2034          base[2]= number_plus(V143,small_fixnum(2));          base[2]= number_plus(V158,small_fixnum(2));
2035          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2036          (void) (*Lnk178)();          (void) (*Lnk178)();
2037          vs_top=sup;          vs_top=sup;
# Line 2050  TTL:; Line 2043  TTL:;
2043          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
2044          Lmember();          Lmember();
2045          vs_top=sup;          vs_top=sup;
2046          V139= vs_base[0];          V154= vs_base[0];
2047          if(((V139))!=Cnil){          if(((V154))!=Cnil){
2048          goto T820;}          goto T809;}
2049          V142= Cnil;          V157= Cnil;
2050          goto T819;          goto T808;
2051          goto T820;          goto T809;
2052  T820:;  T809:;
2053          if(!((CMPcadar((V139)))==(VV[90]))){          if(!((CMPcadar((V154)))==(VV[90]))){
2054          goto T834;}          goto T823;}
2055          V142= list(3,VV[90],CMPcaar((V139)),VV[6]);          V157= list(3,VV[90],CMPcaar((V154)),VV[6]);
2056          goto T819;          goto T808;
2057          goto T834;          goto T823;
2058  T834:;  T823:;
2059          base[1]= (V138);          base[1]= (V153);
2060          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2061          (void) (*Lnk193)();          (void) (*Lnk193)();
2062          vs_top=sup;          vs_top=sup;
2063          V147= vs_base[0];          V162= vs_base[0];
2064          V148= (VV[196]->s.s_gfdef);          V163= (VV[196]->s.s_gfdef);
2065          V149= (VV[195]->s.s_gfdef);          V164= (VV[195]->s.s_gfdef);
2066          V150= (VFUN_NARGS=6,(*(LnkLI197))(V147,(V139),VV[107],V148,VV[104],V149));          V165= (VFUN_NARGS=6,(*(LnkLI197))(V162,(V154),VV[107],V163,VV[104],V164));
2067          {object V145;          {object V160;
2068          object V146= /* INLINE-ARGS */V150;          object V161= /* INLINE-ARGS */V165;
2069          if(V146==Cnil){          if(V161==Cnil){
2070          V144= Cnil;          V159= Cnil;
2071          goto T836;}          goto T825;}
2072          base[0]=V145=MMcons(Cnil,Cnil);          base[0]=V160=MMcons(Cnil,Cnil);
2073          goto T837;          goto T826;
2074  T837:;  T826:;
2075          (V145->c.c_car)= CMPcar((V146->c.c_car));          (V160->c.c_car)= CMPcar((V161->c.c_car));
2076          if((V146=MMcdr(V146))==Cnil){          if((V161=MMcdr(V161))==Cnil){
2077          V144= base[0];          V159= base[0];
2078          goto T836;}          goto T825;}
2079          V145=MMcdr(V145)=MMcons(Cnil,Cnil);          V160=MMcdr(V160)=MMcons(Cnil,Cnil);
2080          goto T837;}          goto T826;}
2081          goto T836;          goto T825;
2082  T836:;  T825:;
2083          V151= reverse(V144);          V166= reverse(V159);
2084          V152= append(/* INLINE-ARGS */V151,VV[108]);          V167= append(/* INLINE-ARGS */V166,VV[108]);
2085          V142= make_cons(VV[106],/* INLINE-ARGS */V152);          V157= make_cons(VV[106],/* INLINE-ARGS */V167);
2086          goto T819;          goto T808;
2087  T819:;  T808:;
2088          if(V142==Cnil)goto T818;          if(V157==Cnil)goto T807;
2089          {object V153 = V142;          {object V168 = V157;
2090          VMR24(V153)}          VMR24(V168)}
2091          goto T818;          goto T807;
2092  T818:;}  T807:;}
2093          base[0]= (V138);          base[0]= (V153);
2094          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2095          (void) (*Lnk193)();          (void) (*Lnk193)();
2096          vs_top=sup;          vs_top=sup;
2097          V154= vs_base[0];          V169= vs_base[0];
2098          {object V155 = list(2,VV[109],V154);          {object V170 = list(2,VV[109],V169);
2099          VMR24(V155)}          VMR24(V170)}
2100          goto T814;          goto T803;
2101  T814:;  T803:;
2102          base[0]= (V138);          base[0]= (V153);
2103          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2104          (void) (*Lnk193)();          (void) (*Lnk193)();
2105          vs_top=sup;          vs_top=sup;
2106          V156= vs_base[0];          V171= vs_base[0];
2107          {object V157 = list(3,VV[110],list(2,VV[111],V156),VV[6]);          {object V172 = list(3,VV[110],list(2,VV[111],V171),VV[6]);
2108          VMR24(V157)}          VMR24(V172)}
2109          goto T812;          goto T801;
2110  T812:;  T801:;
2111          if((V140!= VV[198]))goto T847;          if((V155!= VV[198]))goto T836;
2112          {object V158 = VV[112];          {object V173 = VV[112];
2113          VMR24(V158)}          VMR24(V173)}
2114          goto T847;          goto T836;
2115  T847:;  T836:;
2116          base[0]= (V138);          base[0]= (V153);
2117          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2118          (void) (*Lnk193)();          (void) (*Lnk193)();
2119          vs_top=sup;          vs_top=sup;
2120          V159= vs_base[0];          V174= vs_base[0];
2121          {object V160 = list(2,VV[113],V159);          {object V175 = list(2,VV[113],V174);
2122          VMR24(V160)}}}          VMR24(V175)}}}
2123          base[0]=base[0];          base[0]=base[0];
2124          return Cnil;          return Cnil;
2125  }  }
# Line 2140  static void L25() Line 2133  static void L25()
2133          goto TTL;          goto TTL;
2134  TTL:;  TTL:;
2135          if(((VV[36]->s.s_dbind))==Cnil){          if(((VV[36]->s.s_dbind))==Cnil){
2136          goto T852;}          goto T841;}
2137          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2138          base[1]= VV[114];          base[1]= VV[114];
2139          base[3]= (VV[39]->s.s_dbind);          base[3]= (VV[39]->s.s_dbind);
# Line 2151  TTL:; Line 2144  TTL:;
2144          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2145          Lformat();          Lformat();
2146          vs_top=sup;          vs_top=sup;
2147          goto T850;          goto T839;
2148          goto T852;          goto T841;
2149  T852:;  T841:;
2150          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2151          base[1]= VV[115];          base[1]= VV[115];
2152          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2153          Lformat();          Lformat();
2154          vs_top=sup;          vs_top=sup;
2155          goto T850;          goto T839;
2156  T850:;  T839:;
2157          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
2158          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2159          return;          return;
2160  }  }
2161  /*      local entry for function IHS-VISIBLE    */  /*      local entry for function IHS-VISIBLE    */
2162    
2163  static object LI26(V162)  static object LI26(V177)
2164    
2165  object V162;  object V177;
2166  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
2167          goto TTL;          goto TTL;
2168  TTL:;  TTL:;
2169          {object V163;          {object V178;
2170          base[1]= (V162);          base[1]= (V177);
2171          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2172          (void) (*Lnk174)();          (void) (*Lnk174)();
2173          vs_top=sup;          vs_top=sup;
2174          V163= vs_base[0];          V178= vs_base[0];
2175          if((V163)==Cnil){          if((V178)==Cnil){
2176          {object V164 = Cnil;          {object V179 = Cnil;
2177          VMR26(V164)}}          VMR26(V179)}}
2178          {register object x= (V163),V166= (VV[116]->s.s_dbind);          {register object x= (V178),V181= (VV[116]->s.s_dbind);
2179          while(V166!=Cnil)          while(V181!=Cnil)
2180          if(eql(x,V166->c.c_car)){          if(eql(x,V181->c.c_car)){
2181          V165= V166;          V180= V181;
2182          goto T862;          goto T851;
2183          }else V166=V166->c.c_cdr;          }else V181=V181->c.c_cdr;
2184          V165= Cnil;}          V180= Cnil;}
2185          goto T862;          goto T851;
2186  T862:;  T851:;
2187          {object V167 = ((V165)==Cnil?Ct:Cnil);          {object V182 = ((V180)==Cnil?Ct:Cnil);
2188          VMR26(V167)}}          VMR26(V182)}}
2189          base[0]=base[0];          base[0]=base[0];
2190          return Cnil;          return Cnil;
2191  }  }
# Line 2202  static void L27() Line 2195  static void L27()
2195  {register object *base=vs_base;  {register object *base=vs_base;
2196          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
2197          vs_check;          vs_check;
2198          {object V168;          {object V183;
2199          V168=(base[0]);          V183=(base[0]);
2200          vs_top=sup;          vs_top=sup;
2201          goto TTL;          goto TTL;
2202  TTL:;  TTL:;
2203          {register object V169;          {register object V184;
2204          base[1]= (V168);          base[1]= (V183);
2205          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2206          (void) (*Lnk185)();          (void) (*Lnk185)();
2207          vs_top=sup;          vs_top=sup;
2208          V169= vs_base[0];          V184= vs_base[0];
2209          if(!(type_of((V169))==t_symbol)){          if(!(type_of((V184))==t_symbol)){
2210          goto T866;}          goto T855;}
2211          base[1]= (V169);          base[1]= (V184);
2212          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2213          return;          return;
2214          goto T866;          goto T855;
2215  T866:;  T855:;
2216          if(!(type_of((V169))==t_cons)){          if(!(type_of((V184))==t_cons)){
2217          goto T869;}          goto T858;}
2218          {object V170= CMPcar((V169));          {object V185= CMPcar((V184));
2219          if((V170!= VV[100]))goto T871;          if((V185!= VV[100]))goto T860;
2220          base[1]= VV[100];          base[1]= VV[100];
2221          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2222          return;          return;
2223          goto T871;          goto T860;
2224  T871:;  T860:;
2225          if((V170!= VV[186])          if((V185!= VV[186])
2226          && (V170!= VV[187]))goto T872;          && (V185!= VV[187]))goto T861;
2227          base[1]= CMPcadr((V169));          base[1]= CMPcadr((V184));
2228          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2229          return;          return;
2230          goto T872;          goto T861;
2231  T872:;  T861:;
2232          if((V170!= VV[188]))goto T873;          if((V185!= VV[188]))goto T862;
2233          base[1]= CMPcar(CMPcddddr((V169)));          base[1]= CMPcar(CMPcddddr((V184)));
2234          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2235          return;          return;
2236          goto T873;          goto T862;
2237  T873:;  T862:;
2238          if((V170!= VV[117]))goto T874;          if((V185!= VV[117]))goto T863;
2239          base[1]= VV[117];          base[1]= VV[117];
2240          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2241          return;          return;
2242          goto T874;          goto T863;
2243  T874:;  T863:;
2244          if(!(type_of(CMPcar((V169)))==t_symbol)){          if(!(type_of(CMPcar((V184)))==t_symbol)){
2245          goto T876;}          goto T865;}
2246          base[1]= CMPcar((V169));          base[1]= CMPcar((V184));
2247          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2248          Lspecial_form_p();          Lspecial_form_p();
2249          vs_top=sup;          vs_top=sup;
2250          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
2251          goto T875;}          goto T864;}
2252          base[1]= CMPcar((V169));          base[1]= CMPcar((V184));
2253          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2254          Lfboundp();          Lfboundp();
2255          vs_top=sup;          vs_top=sup;
2256          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2257          goto T876;}          goto T865;}
2258          goto T875;          goto T864;
2259  T875:;  T864:;
2260          base[1]= CMPcar((V169));          base[1]= CMPcar((V184));
2261          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2262          return;          return;
2263          goto T876;          goto T865;
2264  T876:;  T865:;
2265          base[1]= VV[102];          base[1]= VV[102];
2266          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2267          return;}          return;}
2268          goto T869;          goto T858;
2269  T869:;  T858:;
2270          base[1]= (V169);          base[1]= (V184);
2271          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2272          Lcompiled_function_p();          Lcompiled_function_p();
2273          vs_top=sup;          vs_top=sup;
2274          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2275          goto T885;}          goto T874;}
2276          base[1]= (V169);          base[1]= (V184);
2277          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2278          (void) (*Lnk199)();          (void) (*Lnk199)();
2279          return;          return;
2280          goto T885;          goto T874;
2281  T885:;  T874:;
2282          base[1]= VV[102];          base[1]= VV[102];
2283          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2284          return;}          return;}
2285          }          }
2286  }  }
2287  /*      function definition for IHS-NOT-INTERPRETED-ENV */  /*      local entry for function IHS-NOT-INTERPRETED-ENV        */
2288    
2289  static void L28()  static object LI28(V187)
2290  {register object *base=vs_base;  
2291          register object *sup=base+VM28; VC28  object V187;
2292          vs_check;  {        VMB28 VMS28 VMV28
         {object V171;  
         V171=(base[0]);  
         vs_top=sup;  
2293          goto TTL;          goto TTL;
2294  TTL:;  TTL:;
2295          {object V172;          {object V188;
2296          base[1]= (V171);          base[0]= (V187);
2297          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
2298          (void) (*Lnk185)();          (void) (*Lnk185)();
2299          vs_top=sup;          vs_top=sup;
2300          V172= vs_base[0];          V188= vs_base[0];
2301          if(!(type_of((V172))==t_cons)){          if(!(type_of((V188))==t_cons)){
2302          goto T892;}          goto T881;}
2303          if(!(number_compare((V171),small_fixnum(3))>0)){          if(!(number_compare((V187),small_fixnum(3))>0)){
2304          goto T892;}          goto T881;}
2305          base[1]= Cnil;          {object V189 = Cnil;
2306          vs_top=(vs_base=base+1)+1;          VMR28(V189)}
2307          return;          goto T881;
2308          goto T892;  T881:;
2309  T892:;          {object V190 = Ct;
2310          base[1]= Ct;          VMR28(V190)}}
2311          vs_top=(vs_base=base+1)+1;          base[0]=base[0];
2312          return;}          return Cnil;
         }  
2313  }  }
2314  /*      local entry for function SET-ENV        */  /*      local entry for function SET-ENV        */
2315    
# Line 2329  static object LI29() Line 2318  static object LI29()
2318  {        VMB29 VMS29 VMV29  {        VMB29 VMS29 VMV29
2319          goto TTL;          goto TTL;
2320  TTL:;  TTL:;
2321          base[0]= (VV[39]->s.s_dbind);          if(((*(LnkLI200))((VV[39]->s.s_dbind)))==Cnil){
2322          vs_top=(vs_base=base+0)+1;          goto T887;}
         (void) (*Lnk200)();  
         vs_top=sup;  
         if((vs_base[0])==Cnil){  
         goto T898;}  
2323          (VV[42]->s.s_dbind)= Cnil;          (VV[42]->s.s_dbind)= Cnil;
2324          goto T896;          goto T885;
2325          goto T898;          goto T887;
2326  T898:;  T887:;
2327          {object V173;          {object V191;
2328          base[0]= (VV[39]->s.s_dbind);          base[0]= (VV[39]->s.s_dbind);
2329          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2330          (void) (*Lnk176)();          (void) (*Lnk176)();
2331          vs_top=sup;          vs_top=sup;
2332          V173= vs_base[0];          V191= vs_base[0];
2333          base[0]= (V173);          base[0]= (V191);
2334          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2335          (void) (*Lnk178)();          (void) (*Lnk178)();
2336          vs_top=sup;          vs_top=sup;
2337          V174= vs_base[0];          V192= vs_base[0];
2338          base[0]= one_plus((V173));          base[0]= one_plus((V191));
2339          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2340          (void) (*Lnk178)();          (void) (*Lnk178)();
2341          vs_top=sup;          vs_top=sup;
2342          V175= vs_base[0];          V193= vs_base[0];
2343          base[0]= number_plus((V173),small_fixnum(2));          base[0]= number_plus((V191),small_fixnum(2));
2344          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2345          (void) (*Lnk178)();          (void) (*Lnk178)();
2346          vs_top=sup;          vs_top=sup;
2347          V176= vs_base[0];          V194= vs_base[0];
2348          (VV[42]->s.s_dbind)= list(3,V174,V175,V176);}          (VV[42]->s.s_dbind)= list(3,V192,V193,V194);}
2349          goto T896;          goto T885;
2350  T896:;  T885:;
2351          {object V177 = (VV[42]->s.s_dbind);          {object V195 = (VV[42]->s.s_dbind);
2352          VMR29(V177)}          VMR29(V195)}
2353          base[0]=base[0];          base[0]=base[0];
2354          return Cnil;          return Cnil;
2355  }  }
2356  /*      local entry for function LIST-DELQ      */  /*      local entry for function LIST-DELQ      */
2357    
2358  static object LI30(V180,V181)  static object LI30(V198,V199)
2359    
2360  object V180;register object V181;  object V198;register object V199;
2361  {        VMB30 VMS30 VMV30  {        VMB30 VMS30 VMV30
2362          goto TTL;          goto TTL;
2363  TTL:;  TTL:;
2364          if(((V181))!=Cnil){          if(((V199))!=Cnil){
2365          goto T910;}          goto T898;}
2366          {object V182 = Cnil;          {object V200 = Cnil;
2367          VMR30(V182)}          VMR30(V200)}
2368          goto T910;          goto T898;
2369  T910:;  T898:;
2370          if(!(((V180))==(CMPcar((V181))))){          if(!(((V198))==(CMPcar((V199))))){
2371          goto T913;}          goto T901;}
2372          {object V183 = CMPcdr((V181));          {object V201 = CMPcdr((V199));
2373          VMR30(V183)}          VMR30(V201)}
2374          goto T913;          goto T901;
2375  T913:;  T901:;
2376          V184= (*(LnkLI201))((V180),CMPcdr((V181)));          V202= (*(LnkLI201))((V198),CMPcdr((V199)));
2377          ((V181))->c.c_cdr = /* INLINE-ARGS */V184;          ((V199))->c.c_cdr = /* INLINE-ARGS */V202;
2378          {object V185 = (V181);          {object V203 = (V199);
2379          VMR30(V185)}          VMR30(V203)}
2380          return Cnil;          return Cnil;
2381  }  }
2382  /*      local entry for function SUPER-GO       */  /*      local entry for function SUPER-GO       */
2383    
2384  static object LI31(V188,V189)  static object LI31(V206,V207)
2385    
2386  register object V188;register object V189;  register object V206;register object V207;
2387  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
2388          goto TTL;          goto TTL;
2389  TTL:;  TTL:;
2390          {object V190;          {object V208;
2391          V190= Cnil;          V208= Cnil;
2392          if(!(number_compare((V188),(VV[40]->s.s_dbind))>=0)){          if(!(number_compare((V206),(VV[40]->s.s_dbind))>=0)){
2393          goto T916;}          goto T904;}
2394          if(!(number_compare((V188),(VV[41]->s.s_dbind))<=0)){          if(!(number_compare((V206),(VV[41]->s.s_dbind))<=0)){
2395          goto T916;}          goto T904;}
2396          base[1]= (V188);          base[1]= (V206);
2397          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2398          (void) (*Lnk193)();          (void) (*Lnk193)();
2399          vs_top=sup;          vs_top=sup;
# Line 2417  TTL:; Line 2402  TTL:;
2402          (void) (*Lnk194)();          (void) (*Lnk194)();
2403          vs_top=sup;          vs_top=sup;
2404          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2405          goto T916;}          goto T904;}
2406          base[1]= (V188);          base[1]= (V206);
2407          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2408          (void) (*Lnk193)();          (void) (*Lnk193)();
2409          vs_top=sup;          vs_top=sup;
2410          base[0]= vs_base[0];          base[0]= vs_base[0];
2411          base[3]= (V188);          base[3]= (V206);
2412          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2413          (void) (*Lnk190)();          (void) (*Lnk190)();
2414          vs_top=sup;          vs_top=sup;
2415          V191= vs_base[0];          V209= vs_base[0];
2416          base[2]= number_plus(V191,small_fixnum(2));          base[2]= number_plus(V209,small_fixnum(2));
2417          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2418          (void) (*Lnk178)();          (void) (*Lnk178)();
2419          vs_top=sup;          vs_top=sup;
# Line 2440  TTL:; Line 2425  TTL:;
2425          vs_top=(vs_base=base+0)+6;          vs_top=(vs_base=base+0)+6;
2426          Lmember();          Lmember();
2427          vs_top=sup;          vs_top=sup;
2428          V190= vs_base[0];          V208= vs_base[0];
2429          if(((V190))==Cnil){          if(((V208))==Cnil){
2430          goto T926;}          goto T914;}
2431          if(!((CMPcadar((V190)))==(VV[92]))){          if(!((CMPcadar((V208)))==(VV[92]))){
2432          goto T916;}          goto T904;}
2433          base[1]= (V188);          base[1]= (V206);
2434          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2435          (void) (*Lnk193)();          (void) (*Lnk193)();
2436          vs_top=sup;          vs_top=sup;
2437          V196= vs_base[0];          V214= vs_base[0];
2438          V197= (VV[196]->s.s_gfdef);          V215= (VV[196]->s.s_gfdef);
2439          V198= (VV[195]->s.s_gfdef);          V216= (VV[195]->s.s_gfdef);
2440          V199= (VFUN_NARGS=6,(*(LnkLI197))(V196,(V190),VV[107],V197,VV[104],V198));          V217= (VFUN_NARGS=6,(*(LnkLI197))(V214,(V208),VV[107],V215,VV[104],V216));
2441          {object V194;          {object V212;
2442          object V195= /* INLINE-ARGS */V199;          object V213= /* INLINE-ARGS */V217;
2443          if(V195==Cnil){          if(V213==Cnil){
2444          V193= Cnil;          V211= Cnil;
2445          goto T943;}          goto T931;}
2446          base[0]=V194=MMcons(Cnil,Cnil);          base[0]=V212=MMcons(Cnil,Cnil);
2447          goto T944;          goto T932;
2448  T944:;  T932:;
2449          (V194->c.c_car)= CMPcar((V195->c.c_car));          (V212->c.c_car)= CMPcar((V213->c.c_car));
2450          if((V195=MMcdr(V195))==Cnil){          if((V213=MMcdr(V213))==Cnil){
2451          V193= base[0];          V211= base[0];
2452          goto T943;}          goto T931;}
2453          V194=MMcdr(V194)=MMcons(Cnil,Cnil);          V212=MMcdr(V212)=MMcons(Cnil,Cnil);
2454          goto T944;}          goto T932;}
2455          goto T943;          goto T931;
2456  T943:;  T931:;
2457          {register object x= (V189),V192= V193;          {register object x= (V207),V210= V211;
2458          while(V192!=Cnil)          while(V210!=Cnil)
2459          if(eql(x,V192->c.c_car)){          if(eql(x,V210->c.c_car)){
2460          goto T942;          goto T930;
2461          }else V192=V192->c.c_cdr;          }else V210=V210->c.c_cdr;
2462          goto T916;}          goto T904;}
2463          goto T942;          goto T930;
2464  T942:;  T930:;
2465          base[1]= (V188);          base[1]= (V206);
2466          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2467          (void) (*Lnk193)();          (void) (*Lnk193)();
2468          vs_top=sup;          vs_top=sup;
2469          base[0]= vs_base[0];          base[0]= vs_base[0];
2470          base[1]= (V189);          base[1]= (V207);
2471          base[2]= Ct;          base[2]= Ct;
2472          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2473          (void) (*Lnk202)();          (void) (*Lnk202)();
2474          vs_top=sup;          vs_top=sup;
2475          goto T916;          goto T904;
2476          goto T926;          goto T914;
2477  T926:;  T914:;
2478          base[1]= (V188);          base[1]= (V206);
2479          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
2480          (void) (*Lnk193)();          (void) (*Lnk193)();
2481          vs_top=sup;          vs_top=sup;
2482          base[0]= vs_base[0];          base[0]= vs_base[0];
2483          base[1]= (V189);          base[1]= (V207);
2484          base[2]= Cnil;          base[2]= Cnil;
2485          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
2486          (void) (*Lnk202)();          (void) (*Lnk202)();
2487          vs_top=sup;          vs_top=sup;
2488          goto T916;          goto T904;
2489  T916:;  T904:;
2490          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2491          base[1]= VV[118];          base[1]= VV[118];
2492          base[2]= (V188);          base[2]= (V206);
2493          base[3]= (V189);          base[3]= (V207);
2494          vs_top=(vs_base=base+0)+4;          vs_top=(vs_base=base+0)+4;
2495          Lformat();          Lformat();
2496          vs_top=sup;          vs_top=sup;
2497          {object V200 = vs_base[0];          {object V218 = vs_base[0];
2498          VMR31(V200)}}          VMR31(V218)}}
2499          base[0]=base[0];          base[0]=base[0];
2500          return Cnil;          return Cnil;
2501  }  }
2502  /*      local entry for function BREAK-BACKWARD-SEARCH-STACK    */  /*      local entry for function BREAK-BACKWARD-SEARCH-STACK    */
2503    
2504  static object LI32(V202)  static object LI32(V220)
2505    
2506  object V202;  object V220;
2507  {        VMB32 VMS32 VMV32  {        VMB32 VMS32 VMV32
2508          goto TTL;          goto TTL;
2509  TTL:;  TTL:;
2510          {register object V203;          {register object V221;
2511          V203= Cnil;          V221= Cnil;
2512          V203= coerce_to_string((V202));          V221= coerce_to_string((V220));
2513          {register object V204;          {register object V222;
2514          register object V205;          register object V223;
2515          V204= one_minus((VV[39]->s.s_dbind));          V222= one_minus((VV[39]->s.s_dbind));
2516          base[2]= (V204);          base[2]= (V222);
2517          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2518          (void) (*Lnk174)();          (void) (*Lnk174)();
2519          vs_top=sup;          vs_top=sup;
2520          V205= vs_base[0];          V223= vs_base[0];
2521          goto T969;          goto T957;
2522  T969:;  T957:;
2523          if(!(number_compare((V204),(VV[37]->s.s_dbind))<0)){          if(!(number_compare((V222),(VV[37]->s.s_dbind))<0)){
2524          goto T970;}          goto T958;}
2525          base[2]= (VV[48]->s.s_dbind);          base[2]= (VV[48]->s.s_dbind);
2526          base[3]= VV[119];          base[3]= VV[119];
2527          base[4]= (V203);          base[4]= (V221);
2528          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2529          Lformat();          Lformat();
2530          vs_top=sup;          vs_top=sup;
2531          {object V206 = vs_base[0];          {object V224 = vs_base[0];
2532          VMR32(V206)}          VMR32(V224)}
2533          goto T970;          goto T958;
2534  T970:;  T958:;
2535          if(((*(LnkLI173))((V204)))==Cnil){          if(((*(LnkLI173))((V222)))==Cnil){
2536          goto T977;}          goto T965;}
2537          V207= symbol_name((V205));          V225= symbol_name((V223));
2538          V208= (VV[204]->s.s_gfdef);          V226= (VV[204]->s.s_gfdef);
2539          if(((VFUN_NARGS=4,(*(LnkLI203))((V203),/* INLINE-ARGS */V207,VV[105],V208)))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI203))((V221),/* INLINE-ARGS */V225,VV[105],V226)))==Cnil){
2540          goto T977;}          goto T965;}
2541          base[2]= (V204);          base[2]= (V222);
2542          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2543          (void) (*Lnk205)();          (void) (*Lnk205)();
2544          vs_top=sup;          vs_top=sup;
2545          {object V209 = Cnil;          {object V227 = Cnil;
2546          VMR32(V209)}          VMR32(V227)}
2547          goto T977;          goto T965;
2548  T977:;  T965:;
2549          V204= one_minus((V204));          V222= one_minus((V222));
2550          base[2]= (V204);          base[2]= (V222);
2551          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2552          (void) (*Lnk174)();          (void) (*Lnk174)();
2553          vs_top=sup;          vs_top=sup;
2554          V205= vs_base[0];          V223= vs_base[0];
2555          goto T969;}}          goto T957;}}
2556          base[0]=base[0];          base[0]=base[0];
2557          return Cnil;          return Cnil;
2558  }  }
2559  /*      local entry for function BREAK-FORWARD-SEARCH-STACK     */  /*      local entry for function BREAK-FORWARD-SEARCH-STACK     */
2560    
2561  static object LI33(V211)  static object LI33(V229)
2562    
2563  object V211;  object V229;
2564  {        VMB33 VMS33 VMV33  {        VMB33 VMS33 VMV33
2565          goto TTL;          goto TTL;
2566  TTL:;  TTL:;
2567          {register object V212;          {register object V230;
2568          V212= Cnil;          V230= Cnil;
2569          V212= coerce_to_string((V211));          V230= coerce_to_string((V229));
2570          {register object V213;          {register object V231;
2571          register object V214;          register object V232;
2572          V213= one_plus((VV[39]->s.s_dbind));          V231= one_plus((VV[39]->s.s_dbind));
2573          base[2]= (V213);          base[2]= (V231);
2574          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2575          (void) (*Lnk174)();          (void) (*Lnk174)();
2576          vs_top=sup;          vs_top=sup;
2577          V214= vs_base[0];          V232= vs_base[0];
2578          goto T998;          goto T986;
2579  T998:;  T986:;
2580          if(!(number_compare((V213),(VV[38]->s.s_dbind))>0)){          if(!(number_compare((V231),(VV[38]->s.s_dbind))>0)){
2581          goto T999;}          goto T987;}
2582          base[2]= (VV[48]->s.s_dbind);          base[2]= (VV[48]->s.s_dbind);
2583          base[3]= VV[120];          base[3]= VV[120];
2584          base[4]= (V212);          base[4]= (V230);
2585          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+2)+3;
2586          Lformat();          Lformat();
2587          vs_top=sup;          vs_top=sup;
2588          {object V215 = vs_base[0];          {object V233 = vs_base[0];
2589          VMR33(V215)}          VMR33(V233)}
2590          goto T999;          goto T987;
2591  T999:;  T987:;
2592          if(((*(LnkLI173))((V213)))==Cnil){          if(((*(LnkLI173))((V231)))==Cnil){
2593          goto T1006;}          goto T994;}
2594          V216= symbol_name((V214));          V234= symbol_name((V232));
2595          V217= (VV[204]->s.s_gfdef);          V235= (VV[204]->s.s_gfdef);
2596          if(((VFUN_NARGS=4,(*(LnkLI203))((V212),/* INLINE-ARGS */V216,VV[105],V217)))==Cnil){          if(((VFUN_NARGS=4,(*(LnkLI203))((V230),/* INLINE-ARGS */V234,VV[105],V235)))==Cnil){
2597          goto T1006;}          goto T994;}
2598          base[2]= (V213);          base[2]= (V231);
2599          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2600          (void) (*Lnk205)();          (void) (*Lnk205)();
2601          vs_top=sup;          vs_top=sup;
2602          {object V218 = Cnil;          {object V236 = Cnil;
2603          VMR33(V218)}          VMR33(V236)}
2604          goto T1006;          goto T994;
2605  T1006:;  T994:;
2606          V213= one_plus((V213));          V231= one_plus((V231));
2607          base[2]= (V213);          base[2]= (V231);
2608          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2609          (void) (*Lnk174)();          (void) (*Lnk174)();
2610          vs_top=sup;          vs_top=sup;
2611          V214= vs_base[0];          V232= vs_base[0];
2612          goto T998;}}          goto T986;}}
2613          base[0]=base[0];          base[0]=base[0];
2614          return Cnil;          return Cnil;
2615  }  }
2616  /*      local entry for function BREAK-HELP     */  /*      function definition for BREAK-HELP      */
   
 static object LI34()  
2617    
2618  {        VMB34 VMS34 VMV34  static void L34()
2619    {register object *base=vs_base;
2620            register object *sup=base+VM34; VC34
2621            vs_check;
2622            vs_top=sup;
2623          goto TTL;          goto TTL;
2624  TTL:;  TTL:;
2625          {object V219;          {object V237;
2626          object V220;          object V238;
2627          V219= VV[121];          V237= VV[121];
2628          V220= CMPcar((V219));          V238= CMPcar((V237));
2629          goto T1024;          goto T1012;
2630  T1024:;  T1012:;
2631          if(!(((V219))==Cnil)){          if(!(((V237))==Cnil)){
2632          goto T1025;}          goto T1013;}
2633          goto T1020;          goto T1008;
2634          goto T1025;          goto T1013;
2635  T1025:;  T1013:;
2636          base[1]= (VV[48]->s.s_dbind);          base[1]= (VV[48]->s.s_dbind);
2637          base[2]= (V220);          base[2]= (V238);
2638          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+1)+2;
2639          Lformat();          Lformat();
2640          vs_top=sup;          vs_top=sup;
2641          V219= CMPcdr((V219));          V237= CMPcdr((V237));
2642          V220= CMPcar((V219));          V238= CMPcar((V237));
2643          goto T1024;}          goto T1012;}
2644          goto T1020;          goto T1008;
2645  T1020:;  T1008:;
2646          base[0]= (VV[48]->s.s_dbind);          base[0]= (VV[48]->s.s_dbind);
2647          base[1]= VV[122];          base[1]= VV[122];
2648          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2649          Lformat();          Lformat();
2650          vs_top=sup;          vs_top=sup;
2651          {register object V221;          {register object V239;
2652          register object V222;          register object V240;
2653          register object V223;          register object V241;
2654          {object V224;          {object V242;
2655          base[0]= VV[123];          base[0]= VV[123];
2656          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2657          Lfind_package();          Lfind_package();
2658          vs_top=sup;          vs_top=sup;
2659          V224= vs_base[0];          V242= vs_base[0];
2660          base[0]= (V224);          base[0]= (V242);
2661          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2662          Lpackagep();          Lpackagep();
2663          vs_top=sup;          vs_top=sup;
2664          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2665          goto T1045;}          goto T1033;}
2666          V221= (V224);          V239= (V242);
2667          goto T1041;          goto T1029;
2668          goto T1045;          goto T1033;
2669  T1045:;  T1033:;
2670          base[0]= coerce_to_string((V224));          base[0]= coerce_to_string((V242));
2671          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2672          Lfind_package();          Lfind_package();
2673          vs_top=sup;          vs_top=sup;
2674          V221= vs_base[0];}          V239= vs_base[0];}
2675          goto T1041;          goto T1029;
2676  T1041:;  T1029:;
2677          V222= Cnil;          V240= Cnil;
2678          V223= Cnil;          V241= Cnil;
2679          {object V225;          {object V243;
2680          register object V226;          register object V244;
2681          base[2]= (V221);          base[2]= (V239);
2682          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2683          Lpackage_use_list();          Lpackage_use_list();
2684          vs_top=sup;          vs_top=sup;
2685          V227= vs_base[0];          V245= vs_base[0];
2686          V225= make_cons((V221),V227);          V243= make_cons((V239),V245);
2687          V226= CMPcar((V225));          V244= CMPcar((V243));
2688            goto T1042;
2689    T1042:;
2690            if(!(((V243))==Cnil)){
2691            goto T1043;}
2692            V240= Cnil;
2693            goto T1028;
2694            goto T1043;
2695    T1043:;
2696            {long V246;
2697            long V247;
2698            base[2]= (V244);
2699            vs_top=(vs_base=base+2)+1;
2700            (void) (*Lnk206)();
2701            if(vs_base>=vs_top){vs_top=sup;goto T1052;}
2702            V246= fix(vs_base[0]);
2703            vs_base++;
2704            if(vs_base>=vs_top){vs_top=sup;goto T1053;}
2705            V247= fix(vs_base[0]);
2706            vs_top=sup;
2707            goto T1054;
2708            goto T1052;
2709    T1052:;
2710            V246= fix(Cnil);
2711            goto T1053;
2712    T1053:;
2713            V247= fix(Cnil);
2714          goto T1054;          goto T1054;
2715  T1054:;  T1054:;
2716          if(!(((V225))==Cnil)){          if(((V239))==((V244))){
2717          goto T1055;}          goto T1055;}
2718          V222= Cnil;          V247= 0;
         goto T1040;  
2719          goto T1055;          goto T1055;
2720  T1055:;  T1055:;
2721          {long V228;          {object V248;
2722          long V229;          register object V249;
2723          base[2]= (V226);          V250 = make_fixnum(V247);
2724          vs_top=(vs_base=base+2)+1;          V251 = make_fixnum(V246);
2725          (void) (*Lnk206)();          V248= number_plus(V250,V251);
2726          if(vs_base>=vs_top){vs_top=sup;goto T1064;}          V249= small_fixnum(0);
2727          V228= fix(vs_base[0]);          goto T1062;
2728          vs_base++;  T1062:;
2729          if(vs_base>=vs_top){vs_top=sup;goto T1065;}          if(!(number_compare((V249),(V248))>=0)){
2730          V229= fix(vs_base[0]);          goto T1063;}
2731          vs_top=sup;          goto T1049;
2732          goto T1066;          goto T1063;
2733          goto T1064;  T1063:;
2734  T1064:;          V252 = make_fixnum(V247);
2735          V228= fix(Cnil);          if(!(number_compare((V249),V252)<0)){
2736          goto T1065;          goto T1072;}
2737  T1065:;          base[3]= (V244);
2738          V229= fix(Cnil);          base[4]= (V249);
         goto T1066;  
 T1066:;  
         if(((V221))==((V226))){  
         goto T1067;}  
         V229= 0;  
         goto T1067;  
 T1067:;  
         {object V230;  
         register object V231;  
         V232 = make_fixnum(V229);  
         V233 = make_fixnum(V228);  
         V230= number_plus(V232,V233);  
         V231= small_fixnum(0);  
         goto T1074;  
 T1074:;  
         if(!(number_compare((V231),(V230))>=0)){  
         goto T1075;}  
         goto T1061;  
         goto T1075;  
 T1075:;  
         V234 = make_fixnum(V229);  
         if(!(number_compare((V231),V234)<0)){  
         goto T1084;}  
         base[3]= (V226);  
         base[4]= (V231);  
2739          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2740          siLpackage_internal();          siLpackage_internal();
2741          vs_top=sup;          vs_top=sup;
2742          V223= vs_base[0];          V241= vs_base[0];
2743          goto T1082;          goto T1070;
2744          goto T1084;          goto T1072;
2745  T1084:;  T1072:;
2746          base[3]= (V226);          base[3]= (V244);
2747          V235 = make_fixnum(V229);          V253 = make_fixnum(V247);
2748          base[4]= number_minus((V231),V235);          base[4]= number_minus((V249),V253);
2749          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
2750          siLpackage_external();          siLpackage_external();
2751          vs_top=sup;          vs_top=sup;
2752          V223= vs_base[0];          V241= vs_base[0];
2753          goto T1082;          goto T1070;
2754  T1082:;  T1070:;
2755          goto T1080;          goto T1068;
2756  T1080:;  T1068:;
2757          if(((V223))!=Cnil){          if(((V241))!=Cnil){
2758          goto T1090;}          goto T1078;}
2759          goto T1081;          goto T1069;
2760          goto T1090;          goto T1078;
2761  T1090:;  T1078:;
2762          V222= CMPcar((V223));          V240= CMPcar((V241));
2763          if(((V226))==((V221))){          if(((V244))==((V239))){
2764          goto T1096;}          goto T1084;}
2765          base[4]= symbol_name((V222));          base[4]= symbol_name((V240));
2766          base[5]= (V221);          base[5]= (V239);
2767          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2768          Lfind_symbol();          Lfind_symbol();
2769          Llist();          Llist();
# Line 2785  T1090:; Line 2772  T1090:;
2772          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
2773          Llast();          Llast();
2774          vs_top=sup;          vs_top=sup;
2775          V236= vs_base[0];          V254= vs_base[0];
2776          if(!((VV[124])==(CMPcar(V236)))){          if(!((VV[124])==(CMPcar(V254)))){
2777          goto T1095;}          goto T1083;}
2778          goto T1096;          goto T1084;
2779  T1096:;  T1084:;
2780          {object V237 =((V222))->s.s_plist;          {object V255 =((V240))->s.s_plist;
2781           object ind= VV[54];           object ind= VV[54];
2782          while(V237!=Cnil){          while(V255!=Cnil){
2783          if(V237->c.c_car==ind){          if(V255->c.c_car==ind){
2784          if(((V237->c.c_cdr->c.c_car))==Cnil){          if(((V255->c.c_cdr->c.c_car))==Cnil){
2785          goto T1105;}          goto T1093;}
2786          goto T1107;          goto T1095;
2787          }else V237=V237->c.c_cdr->c.c_cdr;}          }else V255=V255->c.c_cdr->c.c_cdr;}
2788          goto T1105;}          goto T1093;}
2789          goto T1107;          goto T1095;
2790  T1107:;  T1095:;
2791          base[3]= (VV[48]->s.s_dbind);          base[3]= (VV[48]->s.s_dbind);
2792          base[4]= VV[125];          base[4]= VV[125];
2793          base[5]= (V222);          base[5]= (V240);
2794          {object V238 =((V222))->s.s_plist;          {object V256 =((V240))->s.s_plist;
2795           object ind= VV[54];           object ind= VV[54];
2796          while(V238!=Cnil){          while(V256!=Cnil){
2797          if(V238->c.c_car==ind){          if(V256->c.c_car==ind){
2798          base[6]= (V238->c.c_cdr->c.c_car);          base[6]= (V256->c.c_cdr->c.c_car);
2799          goto T1111;          goto T1099;
2800          }else V238=V238->c.c_cdr->c.c_cdr;}          }else V256=V256->c.c_cdr->c.c_cdr;}
2801          base[6]= Cnil;}          base[6]= Cnil;}
2802          goto T1111;          goto T1099;
2803  T1111:;  T1099:;
2804          vs_top=(vs_base=base+3)+4;          vs_top=(vs_base=base+3)+4;
2805          Lformat();          Lformat();
2806          vs_top=sup;          vs_top=sup;
2807          goto T1105;          goto T1093;
2808  T1105:;  T1093:;
2809          goto T1095;          goto T1083;
2810  T1095:;  T1083:;
2811          V223= CMPcdr((V223));          V241= CMPcdr((V241));
2812          goto T1080;          goto T1068;
2813          goto T1081;          goto T1069;
2814  T1081:;  T1069:;
2815          goto T1078;          goto T1066;
2816          goto T1078;          goto T1066;
2817  T1078:;  T1066:;
2818          V231= one_plus((V231));          V249= one_plus((V249));
2819          goto T1074;}}          goto T1062;}}
2820          goto T1061;          goto T1049;
2821  T1061:;  T1049:;
2822          V225= CMPcdr((V225));          V243= CMPcdr((V243));
2823          V226= CMPcar((V225));          V244= CMPcar((V243));
2824          goto T1054;}}          goto T1042;}}
2825          goto T1040;          goto T1028;
2826  T1040:;  T1028:;
2827          vs_base=vs_top=base+0;          vs_base=vs_top=base+0;
2828          vs_base[0]=Cnil;          vs_base[0]=Cnil;
2829          vs_top=sup;          return;
         {object V239 = vs_base[0];  
         VMR34(V239)}  
         base[0]=base[0];  
         return Cnil;  
2830  }  }
2831  /*      function definition for COERCE-SLASH-TERMINATED */  /*      local entry for function COERCE-SLASH-TERMINATED        */
2832    
2833  static void L35()  static object LI35(V258)
2834  {register object *base=vs_base;  
2835          register object *sup=base+VM35; VC35  register object V258;
2836          vs_check;  {        VMB35 VMS35 VMV35
         {register object V240;  
         V240=(base[0]);  
         vs_top=sup;  
2837          goto TTL;          goto TTL;
2838  TTL:;  TTL:;
2839          if(!(type_of((V240))==t_string)){          if(!(type_of((V258))==t_string)){
2840          goto T1123;}          goto T1111;}
2841          goto T1122;          goto T1110;
2842          goto T1123;          goto T1111;
2843  T1123:;  T1111:;
2844          base[1]= VV[126];          base[0]= VV[126];
2845          base[2]= (V240);          base[1]= (V258);
2846          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
2847          Lerror();          Lerror();
2848          vs_top=sup;          vs_top=sup;
2849          goto T1122;          goto T1110;
2850  T1122:;  T1110:;
2851          {long V241;          {long V259;
2852          V241= (long)((V240))->v.v_fillp;          V259= (long)((V258))->v.v_fillp;
2853          if(!((V241)>(0))){          if(!((V259)>(0))){
2854          goto T1129;}          goto T1117;}
2855          if((((V240))->ust.ust_self[(long)(V241)-(1)])==(47)){          if((((V258))->ust.ust_self[(long)(V259)-(1)])==(47)){
2856          goto T1127;}          goto T1115;}
2857          goto T1129;          goto T1117;
2858  T1129:;  T1117:;
2859          base[1]= Cnil;          base[0]= Cnil;
2860          base[2]= VV[128];          base[1]= VV[128];
2861          base[3]= (V240);          base[2]= (V258);
2862          vs_top=(vs_base=base+1)+3;          vs_top=(vs_base=base+0)+3;
2863          Lformat();          Lformat();
2864          vs_top=sup;          vs_top=sup;
2865          V240= vs_base[0];}          V258= vs_base[0];}
2866          goto T1127;          goto T1115;
2867  T1127:;  T1115:;
2868          base[1]= (V240);          {object V260 = (V258);
2869          vs_top=(vs_base=base+1)+1;          VMR35(V260)}
2870          return;          base[0]=base[0];
2871          }          return Cnil;
2872  }  }
2873  /*      function definition for FIX-LOAD-PATH   */  /*      local entry for function FIX-LOAD-PATH  */
2874    
2875  static void L36()  static object LI36(V262)
2876  {register object *base=vs_base;  
2877          register object *sup=base+VM36; VC36  object V262;
2878          vs_check;  {        VMB36 VMS36 VMV36
         {object V242;  
         V242=(base[0]);  
         vs_top=sup;  
2879          goto TTL;          goto TTL;
2880  TTL:;  TTL:;
2881          if(equal((V242),(VV[129]->s.s_dbind))){          if(equal((V262),(VV[129]->s.s_dbind))){
2882          goto T1137;}          goto T1125;}
2883          {register object V243;          {register object V263;
2884          V243= (V242);          V263= (V262);
2885            goto T1130;
2886    T1130:;
2887            if(!(type_of((V263))!=t_cons)){
2888            goto T1131;}
2889            goto T1128;
2890            goto T1131;
2891    T1131:;
2892            {register object V265;
2893            V265= (*(LnkLI207))(CMPcar((V263)));
2894            (V263)->c.c_car = (V265);}
2895            V263= CMPcdr((V263));
2896            goto T1130;}
2897            goto T1128;
2898    T1128:;
2899            {register object V266;
2900            V266= (V262);
2901          goto T1142;          goto T1142;
2902  T1142:;  T1142:;
2903          if(!(type_of((V243))!=t_cons)){          if(!(type_of((V266))!=t_cons)){
2904          goto T1143;}          goto T1143;}
2905          goto T1140;          goto T1125;
2906          goto T1143;          goto T1143;
2907  T1143:;  T1143:;
2908          {register object V245;          {register object V267;
2909          base[2]= CMPcar((V243));          V267= (V266);
2910          vs_top=(vs_base=base+2)+1;          goto T1149;
2911          (void) (*Lnk207)();  T1149:;
2912          vs_top=sup;          if(!(type_of(CMPcdr((V267)))!=t_cons)){
2913          V245= vs_base[0];          goto T1150;}
2914          (V243)->c.c_car = (V245);}          goto T1147;
2915          V243= CMPcdr((V243));          goto T1150;
2916    T1150:;
2917            if(!(equal(CMPcadr((V267)),CMPcar((V266))))){
2918            goto T1154;}
2919            {register object V268;
2920            register object V269;
2921            V268= (V267);
2922            V269= CMPcddr((V267));
2923            ((V268))->c.c_cdr = (V269);}
2924            goto T1154;
2925    T1154:;
2926            V267= CMPcdr((V267));
2927            goto T1149;}
2928            goto T1147;
2929    T1147:;
2930            V266= CMPcdr((V266));
2931          goto T1142;}          goto T1142;}
2932          goto T1140;          goto T1125;
2933  T1140:;  T1125:;
2934          {register object V246;          (VV[129]->s.s_dbind)= (V262);
2935          V246= (V242);          {object V270 = (VV[129]->s.s_dbind);
2936          goto T1155;          VMR36(V270)}
2937  T1155:;          base[0]=base[0];
2938          if(!(type_of((V246))!=t_cons)){          return Cnil;
         goto T1156;}  
         goto T1137;  
         goto T1156;  
 T1156:;  
         {register object V247;  
         V247= (V246);  
         goto T1162;  
 T1162:;  
         if(!(type_of(CMPcdr((V247)))!=t_cons)){  
         goto T1163;}  
         goto T1160;  
         goto T1163;  
 T1163:;  
         if(!(equal(CMPcadr((V247)),CMPcar((V246))))){  
         goto T1167;}  
         {register object V248;  
         register object V249;  
         V248= (V247);  
         V249= CMPcddr((V247));  
         ((V248))->c.c_cdr = (V249);}  
         goto T1167;  
 T1167:;  
         V247= CMPcdr((V247));  
         goto T1162;}  
         goto T1160;  
 T1160:;  
         V246= CMPcdr((V246));  
         goto T1155;}  
         goto T1137;  
 T1137:;  
         (VV[129]->s.s_dbind)= (V242);  
         base[1]= (VV[129]->s.s_dbind);  
         vs_top=(vs_base=base+1)+1;  
         return;  
         }  
2939  }  }
2940  /*      function definition for FILE-SEARCH     */  /*      local entry for function FILE-SEARCH    */
2941    
2942  static void L37()  static object LI37(object V271,object first,...)
2943  {register object *base=vs_base;  {      
2944          register object *sup=base+VM37; VC37          va_list ap;
2945          vs_check;          int narg = VFUN_NARGS; VMB37 VMS37 VMV37
2946          bds_check;          bds_check;
2947          {register object V250;          {register object V272;
2948          object V251;          object V273;
2949          object V252;          object V274;
2950          object V253;          object V275;
2951          V250=(base[0]);          va_start(ap,first);
2952          vs_base=vs_base+1;          V272= V271;
2953          if(vs_base>=vs_top){vs_top=sup;goto T1180;}          narg = narg - 1;
2954          V251=(base[1]);          if (narg <= 0) goto T1167;
2955          vs_base++;          else {
2956          if(vs_base>=vs_top){vs_top=sup;goto T1181;}          V273= first;}
2957          V252=(base[2]);          if (--narg <= 0) goto T1168;
2958          vs_base++;          else {
2959          if(vs_base>=vs_top){vs_top=sup;goto T1182;}          V274= va_arg(ap,object);}
2960          V253=(base[3]);          if (--narg <= 0) goto T1169;
2961          vs_top=sup;          else {
2962          goto T1183;          V275= va_arg(ap,object);}
2963            --narg; goto T1170;
2964            goto T1167;
2965    T1167:;
2966            V273= (VV[130]->s.s_dbind);
2967            goto T1168;
2968    T1168:;
2969            V274= (VV[131]->s.s_dbind);
2970            goto T1169;
2971    T1169:;
2972            V275= Ct;
2973            goto T1170;
2974    T1170:;
2975            {register object V276;
2976            V276= Cnil;
2977            (void)((*(LnkLI208))((V273)));
2978            {register object V277;
2979            register object V278;
2980            V277= (V273);
2981            V278= CMPcar((V277));
2982          goto T1180;          goto T1180;
2983  T1180:;  T1180:;
2984          V251= (VV[130]->s.s_dbind);          if(!(((V277))==Cnil)){
2985            goto T1181;}
2986            goto T1176;
2987          goto T1181;          goto T1181;
2988  T1181:;  T1181:;
2989          V252= (VV[131]->s.s_dbind);          {register object V279;
2990          goto T1182;          register object V280;
2991  T1182:;          V279= (V274);
2992          V253= Ct;          V280= CMPcar((V279));
2993          goto T1183;          goto T1189;
2994  T1183:;  T1189:;
2995          {register object V254;          if(!(((V279))==Cnil)){
2996          V254= Cnil;          goto T1190;}
2997          base[4]= (V251);          goto T1185;
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk208)();  
         vs_top=sup;  
         {register object V255;  
         register object V256;  
         V255= (V251);  
         V256= CMPcar((V255));  
         goto T1194;  
 T1194:;  
         if(!(((V255))==Cnil)){  
         goto T1195;}  
2998          goto T1190;          goto T1190;
2999          goto T1195;  T1190:;
3000  T1195:;          base[2]= (V278);
3001          {register object V257;          base[3]= (V272);
3002          register object V258;          base[4]= (V280);
3003          V257= (V252);          vs_top=(vs_base=base+2)+3;
         V258= CMPcar((V257));  
         goto T1203;  
 T1203:;  
         if(!(((V257))==Cnil)){  
         goto T1204;}  
         goto T1199;  
         goto T1204;  
 T1204:;  
         base[6]= (V256);  
         base[7]= (V250);  
         base[8]= (V258);  
         vs_top=(vs_base=base+6)+3;  
3004          (void) (*Lnk156)();          (void) (*Lnk156)();
3005          vs_top=sup;          vs_top=sup;
3006          V254= vs_base[0];          V276= vs_base[0];
3007          if(!((file_exists((V254))))){          if(!((file_exists((V276))))){
         goto T1208;}  
         base[6]= (V254);  
         vs_top=(vs_base=base+6)+1;  
         return;  
         goto T1208;  
 T1208:;  
         V257= CMPcdr((V257));  
         V258= CMPcar((V257));  
         goto T1203;}  
         goto T1199;  
 T1199:;  
         V255= CMPcdr((V255));  
         V256= CMPcar((V255));  
3008          goto T1194;}          goto T1194;}
3009          goto T1190;          {object V281 = (V276);
3010  T1190:;          VMR37(V281)}
3011          if(((V253))==Cnil){          goto T1194;
3012          goto T1226;}  T1194:;
3013            V279= CMPcdr((V279));
3014            V280= CMPcar((V279));
3015            goto T1189;}
3016            goto T1185;
3017    T1185:;
3018            V277= CMPcdr((V277));
3019            V278= CMPcar((V277));
3020            goto T1180;}
3021            goto T1176;
3022    T1176:;
3023            if(((V275))==Cnil){
3024            goto T1212;}
3025          bds_bind(VV[132],Cnil);          bds_bind(VV[132],Cnil);
3026          base[5]= VV[133];          base[1]= VV[133];
3027          base[6]= VV[134];          base[2]= VV[134];
3028          base[7]= (V251);          base[3]= (V273);
3029          base[8]= (V250);          base[4]= (V272);
3030          base[9]= (V252);          base[5]= (V274);
3031          vs_top=(vs_base=base+5)+5;          vs_top=(vs_base=base+1)+5;
3032          Lcerror();          Lcerror();
3033          vs_top=sup;          vs_top=sup;
3034          base[5]= (VV[132]->s.s_dbind);          {object V282 = (VV[132]->s.s_dbind);
         vs_top=(vs_base=base+5)+1;  
3035          bds_unwind1;          bds_unwind1;
3036          return;          VMR37(V282)}
3037          goto T1226;          goto T1212;
3038  T1226:;  T1212:;
3039          base[4]= Cnil;          {object V283 = Cnil;
3040          vs_top=(vs_base=base+4)+1;          VMR37(V283)}}
3041          return;}          va_end(ap);
3042            base[0]=base[0];
3043            return Cnil;}
3044          }          }
 }  
3045  /*      function definition for ALOAD   */  /*      function definition for ALOAD   */
3046    
3047  static void L38()  static void L38()
3048  {register object *base=vs_base;  {register object *base=vs_base;
3049          register object *sup=base+VM38; VC38          register object *sup=base+VM38; VC38
3050          vs_check;          vs_check;
3051          {object V259;          {object V284;
3052          V259=(base[0]);          V284=(base[0]);
3053          vs_top=sup;          vs_top=sup;
3054          goto TTL;          goto TTL;
3055  TTL:;  TTL:;
3056          base[2]= (V259);          base[1]= (VFUN_NARGS=3,(*(LnkLI209))((V284),(VV[130]->s.s_dbind),(VV[131]->s.s_dbind)));
         base[3]= (VV[130]->s.s_dbind);  
         base[4]= (VV[131]->s.s_dbind);  
         vs_top=(vs_base=base+2)+3;  
         (void) (*Lnk209)();  
         vs_top=sup;  
         base[1]= vs_base[0];  
3057          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3058          (void) (*Lnk149)();          (void) (*Lnk149)();
3059          return;          return;
3060          }          }
3061  }  }
3062  /*      function definition for AUTOLOAD        */  /*      local entry for function AUTOLOAD       */
3063    
3064  static void L39()  static object LI40(V287,V288)
3065  {register object *base=vs_base;  
3066          register object *sup=base+VM39; VC39  object V287;object V288;
3067          vs_check;  {        VMB39 VMS39 VMV39
3068          bds_check;          bds_check;
3069          base[0]=MMcons(base[0],Cnil);          goto TTL;
3070          base[1]=MMcons(base[1],base[0]);  TTL:;
3071          vs_top=sup;          base[0]=MMcons((V288),Cnil);
3072            base[1]=MMcons((V287),base[0]);
3073          bds_bind(VV[135],Ct);          bds_bind(VV[135],Ct);
3074          base[3]= (base[0]->c.c_car);          base[3]= (base[1]->c.c_car);
3075          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3076          Lfboundp();          Lfboundp();
3077          vs_top=sup;          vs_top=sup;
3078          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3079          goto T1238;}          goto T1221;}
3080          base[3]= Ct;          {object V289 = Ct;
         vs_top=(vs_base=base+3)+1;  
3081          bds_unwind1;          bds_unwind1;
3082          return;          VMR39(V289)}
3083          goto T1238;          goto T1221;
3084  T1238:;  T1221:;
3085          base[3]= (base[0]->c.c_car);          base[3]= (base[1]->c.c_car);
3086          base[4]=          base[4]=
3087          make_cclosure_new(LC45,Cnil,base[1],Cdata);          make_cclosure_new(LC47,Cnil,base[1],Cdata);
3088          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
3089          siLfset();          siLfset();
3090            vs_top=sup;
3091            {object V290 = vs_base[0];
3092          bds_unwind1;          bds_unwind1;
3093          return;          VMR39(V290)}
3094            base[0]=base[0];
3095            return Cnil;
3096  }  }
3097  /*      function definition for AUTOLOAD-MACRO  */  /*      local entry for function AUTOLOAD-MACRO */
3098    
3099  static void L40()  static object LI42(V293,V294)
3100  {register object *base=vs_base;  
3101          register object *sup=base+VM40; VC40  object V293;object V294;
3102          vs_check;  {        VMB40 VMS40 VMV40
3103          bds_check;          bds_check;
3104          base[0]=MMcons(base[0],Cnil);          goto TTL;
3105          base[1]=MMcons(base[1],base[0]);  TTL:;
3106          vs_top=sup;          base[0]=MMcons((V294),Cnil);
3107            base[1]=MMcons((V293),base[0]);
3108          bds_bind(VV[135],Ct);          bds_bind(VV[135],Ct);
3109          base[3]= (base[0]->c.c_car);          base[3]= (base[1]->c.c_car);
3110          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
3111          Lfboundp();          Lfboundp();
3112          vs_top=sup;          vs_top=sup;
3113          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3114          goto T1243;}          goto T1226;}
3115          base[3]= Ct;          {object V295 = Ct;
         vs_top=(vs_base=base+3)+1;  
3116          bds_unwind1;          bds_unwind1;
3117          return;          VMR40(V295)}
3118          goto T1243;          goto T1226;
3119  T1243:;  T1226:;
3120          {object V260;          {object V296;
3121          object V261;          object V297;
3122          V260= (base[0]->c.c_car);          V296= (base[1]->c.c_car);
3123          V261=          V297=
3124          make_cclosure_new(LC46,Cnil,base[1],Cdata);          make_cclosure_new(LC48,Cnil,base[1],Cdata);
3125          base[4]= (V260);          base[4]= (V296);
3126          base[5]= make_cons(VV[136],(V261));          base[5]= make_cons(VV[136],(V297));
3127          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3128          siLfset();          siLfset();
3129          vs_top=sup;          vs_top=sup;
3130          base[4]= (V261);          {object V298 = (V297);
         vs_top=(vs_base=base+4)+1;  
3131          bds_unwind1;          bds_unwind1;
3132          return;}          VMR40(V298)}}
3133            base[0]=base[0];
3134            return Cnil;
3135  }  }
3136  /*      function definition for GET-COMMAND-ARG */  /*      function definition for GET-COMMAND-ARG */
3137    
3138  static void L41()  static void L43()
3139  {register object *base=vs_base;  {register object *base=vs_base;
3140          register object *sup=base+VM41; VC41          register object *sup=base+VM41; VC41
3141          vs_check;          vs_check;
3142          {register object V262;          {register object V299;
3143          register object V263;          register object V300;
3144          V262=(base[0]);          V299=(base[0]);
3145          vs_base=vs_base+1;          vs_base=vs_base+1;
3146          if(vs_base>=vs_top){vs_top=sup;goto T1251;}          if(vs_base>=vs_top){vs_top=sup;goto T1234;}
3147          V263=(base[1]);          V300=(base[1]);
3148          vs_top=sup;          vs_top=sup;
3149          goto T1252;          goto T1235;
3150          goto T1251;          goto T1234;
3151  T1251:;  T1234:;
3152          V263= Cnil;          V300= Cnil;
3153          goto T1252;          goto T1235;
3154  T1252:;  T1235:;
3155          {register object V264;          {register object V301;
3156          V264= (VV[16]->s.s_dbind);          V301= (VV[16]->s.s_dbind);
3157          goto T1256;          goto T1239;
3158  T1256:;  T1239:;
3159          V264= CMPcdr((V264));          V301= CMPcdr((V301));
3160          if((V264)!=Cnil){          if((V301)!=Cnil){
3161          goto T1260;}          goto T1243;}
3162          base[2]= Cnil;          base[2]= Cnil;
3163          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3164          return;          return;
3165          goto T1260;          goto T1243;
3166  T1260:;  T1243:;
3167          {register object V265;          {register object V302;
3168          V265= CMPcar((V264));          V302= CMPcar((V301));
3169          if(!((((V265))->ust.ust_self[0])==(((V262))->ust.ust_self[0]))){          if(!((((V302))->ust.ust_self[0])==(((V299))->ust.ust_self[0]))){
3170          goto T1257;}          goto T1240;}
3171          if(!((((V265))->ust.ust_self[1])==(((V262))->ust.ust_self[1]))){          if(!((((V302))->ust.ust_self[1])==(((V299))->ust.ust_self[1]))){
3172          goto T1257;}          goto T1240;}
3173          if(!(equal((V265),(V262)))){          if(!(equal((V302),(V299)))){
3174          goto T1257;}          goto T1240;}
3175          {register object V266;          {register object V303;
3176          V266= (V263);          V303= (V300);
3177          if(((V266))==Cnil){          if(((V303))==Cnil){
3178          goto T1269;}          goto T1252;}
3179          base[2]= (V266);          base[2]= (V303);
3180          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3181          return;          return;
3182          goto T1269;          goto T1252;
3183  T1269:;  T1252:;
3184          if((CMPcadr((V264)))==Cnil){          if((CMPcadr((V301)))==Cnil){
3185          goto T1272;}          goto T1255;}
3186          base[2]= CMPcadr((V264));          base[2]= CMPcadr((V301));
3187          base[3]= CMPcdr((V264));          base[3]= CMPcdr((V301));
3188          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3189          return;          return;
3190          goto T1272;          goto T1255;
3191  T1272:;  T1255:;
3192          base[2]= Ct;          base[2]= Ct;
3193          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3194          return;}}          return;}}
3195          goto T1257;          goto T1240;
3196  T1257:;  T1240:;
3197          goto T1256;}          goto T1239;}
3198          }          }
3199  }  }
3200  /*      function definition for SET-DIR */  /*      local entry for function SET-DIR        */
3201    
3202  static void L42()  static object LI44(V306,V307)
3203  {register object *base=vs_base;  
3204          register object *sup=base+VM42; VC42  object V306;object V307;
3205          vs_check;  {        VMB42 VMS42 VMV42
         {object V267;  
         object V268;  
         V267=(base[0]);  
         V268=(base[1]);  
         vs_top=sup;  
3206          goto TTL;          goto TTL;
3207  TTL:;  TTL:;
3208          {object V269;{object V270;          {object V308;{object V309;
3209          base[2]= (V268);          base[0]= (V307);
3210          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
3211          (void) (*Lnk210)();          (void) (*Lnk210)();
3212          vs_top=sup;          vs_top=sup;
3213          V270= vs_base[0];          V309= vs_base[0];
3214          if(V270==Cnil)goto T1278;          if(V309==Cnil)goto T1261;
3215          V269= V270;          V308= V309;
3216          goto T1277;          goto T1260;
3217          goto T1278;          goto T1261;
3218  T1278:;}  T1261:;}
3219          if(((V267))->s.s_dbind!=OBJNULL){          if(((V306))->s.s_dbind!=OBJNULL){
3220          goto T1281;}          goto T1264;}
3221          V269= Cnil;          V308= Cnil;
3222          goto T1277;          goto T1260;
3223          goto T1281;          goto T1264;
3224  T1281:;  T1264:;
3225          base[2]= (V267);          base[0]= (V306);
3226          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
3227          Lsymbol_value();          Lsymbol_value();
3228          vs_top=sup;          vs_top=sup;
3229          V269= vs_base[0];          V308= vs_base[0];
3230          goto T1277;          goto T1260;
3231  T1277:;  T1260:;
3232          if(((V269))==Cnil){          if(((V308))==Cnil){
3233          goto T1285;}          goto T1268;}
3234          base[2]= (V267);          base[0]= (V306);
3235          base[4]= (V269);          base[1]= (*(LnkLI207))((V308));
3236          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+0)+2;
         (void) (*Lnk207)();  
         vs_top=sup;  
         base[3]= vs_base[0];  
         vs_top=(vs_base=base+2)+2;  
3237          Lset();          Lset();
3238          return;          vs_top=sup;
3239          goto T1285;          {object V310 = vs_base[0];
3240  T1285:;          VMR42(V310)}
3241          base[2]= Cnil;          goto T1268;
3242          vs_top=(vs_base=base+2)+1;  T1268:;
3243          return;}          {object V311 = Cnil;
3244          }          VMR42(V311)}}
3245            base[0]=base[0];
3246            return Cnil;
3247  }  }
3248  /*      function definition for SET-UP-TOP-LEVEL        */  /*      local entry for function SET-UP-TOP-LEVEL       */
3249    
3250  static void L43()  static object LI45()
3251  {register object *base=vs_base;  
3252          register object *sup=base+VM43; VC43  {        VMB43 VMS43 VMV43
         vs_check;  
3253          bds_check;          bds_check;
         vs_top=sup;  
3254          goto TTL;          goto TTL;
3255  TTL:;  TTL:;
3256          {register long V271;          {register long V312;
3257          register object V272;          register object V313;
3258          vs_base=vs_top;          vs_base=vs_top;
3259          (void) (*Lnk211)();          (void) (*Lnk211)();
3260          vs_top=sup;          vs_top=sup;
3261          V271= fix(vs_base[0]);          V312= fix(vs_base[0]);
3262          V272= Cnil;          V313= Cnil;
3263          goto T1294;          goto T1276;
3264  T1294:;  T1276:;
3265          V271= (long)(V271)-(1);          V312= (long)(V312)-(1);
3266          if(!((V271)<(0))){          if(!((V312)<(0))){
3267          goto T1299;}          goto T1281;}
3268          goto T1292;          goto T1274;
3269          goto T1299;          goto T1281;
3270  T1299:;  T1281:;
3271          base[0]= make_fixnum(V271);          base[0]= make_fixnum(V312);
3272          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3273          (void) (*Lnk212)();          (void) (*Lnk212)();
3274          vs_top=sup;          vs_top=sup;
3275          V273= vs_base[0];          V314= vs_base[0];
3276          V272= make_cons(V273,(V272));          V313= make_cons(V314,(V313));
3277          goto T1294;          goto T1276;
3278          goto T1292;          goto T1274;
3279  T1292:;  T1274:;
3280          (VV[16]->s.s_dbind)= (V272);          (VV[16]->s.s_dbind)= (V313);
3281          V272= (VV[137]->s.s_dbind);          V313= (VV[137]->s.s_dbind);
3282          {object V274;          {object V315;
3283          base[0]= VV[138];          base[0]= VV[138];
3284          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3285          (void) (*Lnk213)();          (void) (*Lnk213)();
3286          vs_top=sup;          vs_top=sup;
3287          V274= vs_base[0];{object V275;          V315= vs_base[0];{object V316;
3288          base[0]= VV[137];          V316= (*(LnkLI214))(VV[137],VV[139]);
3289          base[1]= VV[139];          if(V316==Cnil)goto T1294;
3290          vs_top=(vs_base=base+0)+2;          goto T1293;
3291          (void) (*Lnk214)();          goto T1294;
3292          vs_top=sup;  T1294:;}
3293          V275= vs_base[0];          if(((V315))==Cnil){
3294          if(V275==Cnil)goto T1312;          goto T1293;}
3295          goto T1311;          (VV[137]->s.s_dbind)= (*(LnkLI207))((V315));
3296          goto T1312;          goto T1293;
3297  T1312:;}  T1293:;
         if(((V274))==Cnil){  
         goto T1311;}  
         base[0]= (V274);  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk207)();  
         vs_top=sup;  
         (VV[137]->s.s_dbind)= vs_base[0];  
         goto T1311;  
 T1311:;  
3298          if(((VV[130]->s.s_dbind))==Cnil){          if(((VV[130]->s.s_dbind))==Cnil){
3299          goto T1321;}          goto T1300;}
3300          if(equal((V272),(VV[137]->s.s_dbind))){          if(equal((V313),(VV[137]->s.s_dbind))){
3301          goto T1320;}          goto T1299;}
3302          goto T1321;          goto T1300;
3303  T1321:;  T1300:;
3304          base[0]= (VV[137]->s.s_dbind);          base[0]= (VV[137]->s.s_dbind);
3305          base[1]= VV[140];          base[1]= VV[140];
3306          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3307          (void) (*Lnk156)();          (void) (*Lnk156)();
3308          vs_top=sup;          vs_top=sup;
3309          V276= vs_base[0];          V317= vs_base[0];
3310          (VV[130]->s.s_dbind)= make_cons(V276,(VV[130]->s.s_dbind));          (VV[130]->s.s_dbind)= make_cons(V317,(VV[130]->s.s_dbind));
3311          base[0]= (VV[137]->s.s_dbind);          base[0]= (VV[137]->s.s_dbind);
3312          base[1]= VV[141];          base[1]= VV[141];
3313          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3314          (void) (*Lnk156)();          (void) (*Lnk156)();
3315          vs_top=sup;          vs_top=sup;
3316          V277= vs_base[0];          V318= vs_base[0];
3317          (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));          (VV[130]->s.s_dbind)= make_cons(V318,(VV[130]->s.s_dbind));
3318          goto T1320;          goto T1299;
3319  T1320:;  T1299:;
3320          if((VV[142])->s.s_dbind!=OBJNULL){          if((VV[142])->s.s_dbind!=OBJNULL){
3321          goto T1334;}          goto T1313;}
3322          base[2]= VV[143];          base[2]= VV[143];
3323          base[3]= Cnil;          base[3]= Cnil;
3324          base[4]= VV[144];          base[4]= VV[144];
# Line 3390  T1320:; Line 3341  T1320:;
3341          Lnamestring();          Lnamestring();
3342          vs_top=sup;          vs_top=sup;
3343          (VV[142]->s.s_dbind)= vs_base[0];          (VV[142]->s.s_dbind)= vs_base[0];
3344          goto T1334;          goto T1313;
3345  T1334:;  T1313:;
3346          base[0]= VV[142];          (void)((*(LnkLI214))(VV[142],VV[146]));
         base[1]= VV[146];  
         vs_top=(vs_base=base+0)+2;  
         (void) (*Lnk214)();  
         vs_top=sup;  
3347          base[0]= VV[147];          base[0]= VV[147];
3348          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3349          (void) (*Lnk210)();          (void) (*Lnk210)();
3350          if(vs_base<vs_top){          if(vs_base<vs_top){
3351          V272= vs_base[0];          V313= vs_base[0];
3352          vs_base++;          vs_base++;
3353          }else{          }else{
3354          V272= Cnil;}          V313= Cnil;}
3355          if(vs_base<vs_top){          if(vs_base<vs_top){
3356          V272= vs_base[0];          V313= vs_base[0];
3357          }else{          }else{
3358          V272= Cnil;}          V313= Cnil;}
3359          vs_top=sup;          vs_top=sup;
3360          if(((V272))==Cnil){          if(((V313))==Cnil){
3361          goto T1351;}          goto T1328;}
3362          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
3363          base[1]= (VV[16]->s.s_dbind);          (void)((*(LnkLI150))((VV[16]->s.s_dbind)));
3364          vs_top=(vs_base=base+1)+1;          (VV[16]->s.s_dbind)= (V313);
3365          (void) (*Lnk150)();          {object V319 = (*(LnkLI215))(CMPcar((VV[16]->s.s_dbind)));
3366          vs_top=sup;          bds_unwind1;
3367          (VV[16]->s.s_dbind)= (V272);          VMR43(V319)}
3368          base[1]= CMPcar((VV[16]->s.s_dbind));          goto T1328;
3369          vs_top=(vs_base=base+1)+1;  T1328:;
3370          (void) (*Lnk215)();          {object V320 = Cnil;
3371          bds_unwind1;          VMR43(V320)}}}
3372          return;          base[0]=base[0];
3373          goto T1351;          return Cnil;
 T1351:;  
         base[0]= Cnil;  
         vs_top=(vs_base=base+0)+1;  
         return;}}  
3374  }  }
3375  /*      function definition for DO-F    */  /*      local entry for function DO-F   */
3376    
3377  static void L44()  static object LI46(V322)
3378  {register object *VOL base=vs_base;  
3379          register object *VOL sup=base+VM44; VC44  VOL object V322;
3380          vs_check;  {        VMB44 VMS44 VMV44
3381          bds_check;          bds_check;
         {VOL object V278;  
         V278=(base[0]);  
         vs_top=sup;  
3382          goto TTL;          goto TTL;
3383  TTL:;  TTL:;
3384          base[1]= VV[148];          base[0]= VV[148];
3385          base[2]= Cnil;          base[1]= Cnil;
3386          bds_bind(VV[43],Cnil);          bds_bind(VV[43],Cnil);
3387          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));          frs_push(FRS_CATCH,(VV[11]->s.s_dbind));
3388          if(nlj_active)          if(nlj_active)
3389          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
3390          vs_top=sup;          vs_top=sup;
3391          goto T1360;}          goto T1335;}
3392          else{          else{
3393          base[5]= (V278);          base[4]= (V322);
3394          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+4)+1;
3395          (void) (*Lnk216)();          (void) (*Lnk216)();
3396          vs_top=sup;          vs_top=sup;
3397          base[4]= vs_base[0];          base[3]= vs_base[0];
3398          frs_push(FRS_PROTECT,Cnil);          frs_push(FRS_PROTECT,Cnil);
3399          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;          {object tag=Cnil;frame_ptr fr=NULL;object p;bool active;
3400          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}          if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}
3401          else{          else{
3402          base[6]= base[4];          base[5]= base[3];
3403          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
3404          Lread_line();          Lread_line();
3405          vs_top=sup;          vs_top=sup;
3406          goto T1369;          goto T1344;
3407  T1369:;  T1344:;
3408          base[6]= base[4];          base[5]= base[3];
3409          base[7]= Cnil;          base[6]= Cnil;
3410          base[8]= base[1];          base[7]= base[0];
3411          vs_top=(vs_base=base+6)+3;          vs_top=(vs_base=base+5)+3;
3412          Lread();          Lread();
3413          vs_top=sup;          vs_top=sup;
3414          base[2]= vs_base[0];          base[1]= vs_base[0];
3415          if(!((base[1])==(base[2]))){          if(!((base[0])==(base[1]))){
3416          goto T1376;}          goto T1351;}
3417          base[6]= Cnil;          base[5]= Cnil;
3418          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
3419          goto T1365;          goto T1340;
3420          goto T1376;          goto T1351;
3421  T1376:;  T1351:;
3422          base[6]= base[2];          base[5]= base[1];
3423          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
3424          Leval();          Leval();
3425          vs_top=sup;          vs_top=sup;
3426          goto T1369;          goto T1344;
3427          goto T1365;          goto T1340;
3428  T1365:;  T1340:;
3429          active=FALSE;}          active=FALSE;}
3430          base[5]=Cnil;          base[4]=Cnil;
3431          while(vs_base<vs_top)          while(vs_base<vs_top)
3432          {base[5]=MMcons(vs_top[-1],base[5]);vs_top--;}          {base[4]=MMcons(vs_top[-1],base[4]);vs_top--;}
3433          vs_top=sup;          vs_top=sup;
3434          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
3435          if((base[4])==Cnil){          if((base[3])==Cnil){
3436          goto T1381;}          goto T1356;}
3437          base[6]= base[4];          base[5]= base[3];
3438          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+5)+1;
3439          Lclose();          Lclose();
3440          vs_top=sup;          vs_top=sup;
3441          goto T1381;          goto T1356;
3442  T1381:;  T1356:;
3443          vs_base=vs_top=base+6;          vs_base=vs_top=base+5;
3444          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[4];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
3445          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
3446          vs_top=sup;}}          vs_top=sup;}}
3447          vs_base=vs_top;          vs_base=vs_top;
3448          Lby();          Lby();
3449          vs_top=sup;          vs_top=sup;
3450          frs_pop();}          frs_pop();}
3451          goto T1360;          goto T1335;
3452  T1360:;  T1335:;
3453          base[4]= small_fixnum(1);          base[3]= small_fixnum(1);
3454          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+3)+1;
3455          Lby();          Lby();
3456            vs_top=sup;
3457            {object V323 = vs_base[0];
3458          bds_unwind1;          bds_unwind1;
3459          return;          VMR44(V323)}
3460          }          base[0]=base[0];
3461            return Cnil;
3462  }  }
3463  /*      local function CLOSURE  */  /*      local function CLOSURE  */
3464    
3465  static void LC46(base0)  static void LC48(base0)
3466  register object *base0;  register object *base0;
3467  {       register object *base=vs_base;  {       register object *base=vs_base;
3468          register object *sup=base+VM45; VC45          register object *sup=base+VM45; VC45
3469          vs_check;          vs_check;
3470          {object V279;          {object V324;
3471          object V280;          object V325;
3472          V279=(base[0]);          V324=(base[0]);
3473          V280=(base[1]);          V325=(base[1]);
3474          vs_top=sup;          vs_top=sup;
3475          base[2]= (base0[0]->c.c_car);          base[2]= (base0[1]->c.c_car);
3476          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
3477          (void) (*Lnk217)();          (void) (*Lnk217)();
3478          vs_top=sup;          vs_top=sup;
3479          base[2]= (V279);          base[2]= (V324);
3480          base[3]= (V280);          base[3]= (V325);
3481          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
3482          super_funcall_no_event((base0[1]->c.c_car));          super_funcall_no_event((base0[0]->c.c_car));
3483          return;          return;
3484          }          }
3485  }  }
3486  /*      local function CLOSURE  */  /*      local function CLOSURE  */
3487    
3488  static void LC45(base0)  static void LC47(base0)
3489  register object *base0;  register object *base0;
3490  {       register object *base=vs_base;  {       register object *base=vs_base;
3491          register object *sup=base+VM46; VC46          register object *sup=base+VM46; VC46
3492          vs_check;          vs_check;
3493          {object V281;          {object V326;
3494          vs_top[0]=Cnil;          vs_top[0]=Cnil;
3495          {object *p=vs_top;          {object *p=vs_top;
3496           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
3497          V281=(base[0]);          V326=(base[0]);
3498          vs_top=sup;          vs_top=sup;
3499          base[1]= (base0[0]->c.c_car);          base[1]= (base0[1]->c.c_car);
3500          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
3501          (void) (*Lnk217)();          (void) (*Lnk217)();
3502          vs_top=sup;          vs_top=sup;
3503          base[1]= (base0[1]->c.c_car);          base[1]= (base0[0]->c.c_car);
3504          {object V282;          {object V327;
3505          V282= (V281);          V327= (V326);
3506           vs_top=base+2;           vs_top=base+2;
3507           while(V282!=Cnil)           while(V327!=Cnil)
3508           {vs_push((V282)->c.c_car);V282=(V282)->c.c_cdr;}           {vs_push((V327)->c.c_car);V327=(V327)->c.c_cdr;}
3509          vs_base=base+2;}          vs_base=base+2;}
3510          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
3511          return;          return;
# Line 3570  register object *base0; Line 3513  register object *base0;
3513  }  }
3514  static void LnkT217(){ call_or_link(VV[217],(void **)(void *)&Lnk217);} /* ALOAD */  static void LnkT217(){ call_or_link(VV[217],(void **)(void *)&Lnk217);} /* ALOAD */
3515  static void LnkT216(){ call_or_link(VV[216],(void **)(void *)&Lnk216);} /* OPEN */  static void LnkT216(){ call_or_link(VV[216],(void **)(void *)&Lnk216);} /* OPEN */
3516  static void LnkT215(){ call_or_link(VV[215],(void **)(void *)&Lnk215);} /* DO-F */  static object  LnkTLI215(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[215],(void **)(void *)&LnkLI215,1,first,ap);va_end(ap);return V1;} /* DO-F */
3517  static void LnkT214(){ call_or_link(VV[214],(void **)(void *)&Lnk214);} /* SET-DIR */  static object  LnkTLI214(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[214],(void **)(void *)&LnkLI214,2,first,ap);va_end(ap);return V1;} /* SET-DIR */
3518  static void LnkT213(){ call_or_link(VV[213],(void **)(void *)&Lnk213);} /* GETENV */  static void LnkT213(){ call_or_link(VV[213],(void **)(void *)&Lnk213);} /* GETENV */
3519  static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* ARGV */  static void LnkT212(){ call_or_link(VV[212],(void **)(void *)&Lnk212);} /* ARGV */
3520  static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* ARGC */  static void LnkT211(){ call_or_link(VV[211],(void **)(void *)&Lnk211);} /* ARGC */
3521  static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* GET-COMMAND-ARG */  static void LnkT210(){ call_or_link(VV[210],(void **)(void *)&Lnk210);} /* GET-COMMAND-ARG */
3522  static void LnkT209(){ call_or_link(VV[209],(void **)(void *)&Lnk209);} /* FILE-SEARCH */  static object  LnkTLI209(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[209],(void **)(void *)&LnkLI209,first,ap);va_end(ap);return V1;} /* FILE-SEARCH */
3523  static void LnkT208(){ call_or_link(VV[208],(void **)(void *)&Lnk208);} /* FIX-LOAD-PATH */  static object  LnkTLI208(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[208],(void **)(void *)&LnkLI208,1,first,ap);va_end(ap);return V1;} /* FIX-LOAD-PATH */
3524  static void LnkT207(){ call_or_link(VV[207],(void **)(void *)&Lnk207);} /* COERCE-SLASH-TERMINATED */  static object  LnkTLI207(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[207],(void **)(void *)&LnkLI207,1,first,ap);va_end(ap);return V1;} /* COERCE-SLASH-TERMINATED */
3525  static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* PACKAGE-SIZE */  static void LnkT206(){ call_or_link(VV[206],(void **)(void *)&Lnk206);} /* PACKAGE-SIZE */
3526  static void LnkT205(){ call_or_link(VV[205],(void **)(void *)&Lnk205);} /* BREAK-GO */  static void LnkT205(){ call_or_link(VV[205],(void **)(void *)&Lnk205);} /* BREAK-GO */
3527  static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)(void *)&LnkLI203,first,ap);va_end(ap);return V1;} /* SEARCH */  static object  LnkTLI203(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[203],(void **)(void *)&LnkLI203,first,ap);va_end(ap);return V1;} /* SEARCH */
3528  static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* INTERNAL-SUPER-GO */  static void LnkT202(){ call_or_link(VV[202],(void **)(void *)&Lnk202);} /* INTERNAL-SUPER-GO */
3529  static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[201],(void **)(void *)&LnkLI201,2,first,ap);va_end(ap);return V1;} /* LIST-DELQ */  static object  LnkTLI201(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[201],(void **)(void *)&LnkLI201,2,first,ap);va_end(ap);return V1;} /* LIST-DELQ */
3530  static void LnkT200(){ call_or_link(VV[200],(void **)(void *)&Lnk200);} /* IHS-NOT-INTERPRETED-ENV */  static object  LnkTLI200(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[200],(void **)(void *)&LnkLI200,1,first,ap);va_end(ap);return V1;} /* IHS-NOT-INTERPRETED-ENV */
3531  static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* COMPILED-FUNCTION-NAME */  static void LnkT199(){ call_or_link(VV[199],(void **)(void *)&Lnk199);} /* COMPILED-FUNCTION-NAME */
3532  static object  LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[197],(void **)(void *)&LnkLI197,first,ap);va_end(ap);return V1;} /* REMOVE */  static object  LnkTLI197(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[197],(void **)(void *)&LnkLI197,first,ap);va_end(ap);return V1;} /* REMOVE */
3533  static void LnkT194(){ call_or_link(VV[194],(void **)(void *)&Lnk194);} /* SPICEP */  static void LnkT194(){ call_or_link(VV[194],(void **)(void *)&Lnk194);} /* SPICEP */
# Line 3606  static void LnkT175(){ call_or_link(VV[1 Line 3549  static void LnkT175(){ call_or_link(VV[1
3549  static void LnkT174(){ call_or_link(VV[174],(void **)(void *)&Lnk174);} /* IHS-FNAME */  static void LnkT174(){ call_or_link(VV[174],(void **)(void *)&Lnk174);} /* IHS-FNAME */
3550  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,1,first,ap);va_end(ap);return V1;} /* IHS-VISIBLE */  static object  LnkTLI173(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[173],(void **)(void *)&LnkLI173,1,first,ap);va_end(ap);return V1;} /* IHS-VISIBLE */
3551  static object  LnkTLI172(){return call_proc0(VV[172],(void **)(void *)&LnkLI172);} /* SET-ENV */  static object  LnkTLI172(){return call_proc0(VV[172],(void **)(void *)&LnkLI172);} /* SET-ENV */
3552  static void LnkT171(){ call_or_link(VV[171],(void **)(void *)&Lnk171);} /* COMPLETE-PROP */  static object  LnkTLI171(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[171],(void **)(void *)&LnkLI171,first,ap);va_end(ap);return V1;} /* COMPLETE-PROP */
3553  static void LnkT170(){ call_or_link(VV[170],(void **)(void *)&Lnk170);} /* BREAK-LEVEL */  static object  LnkTLI170(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[170],(void **)(void *)&LnkLI170,first,ap);va_end(ap);return V1;} /* BREAK-LEVEL */
3554  static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* BREAK */  static void LnkT169(){ call_or_link(VV[169],(void **)(void *)&Lnk169);} /* BREAK */
3555  static void LnkT166(){ call_or_link(VV[166],(void **)(void *)&Lnk166);} /* DBL-READ */  static object  LnkTLI166(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[166],(void **)(void *)&LnkLI166,first,ap);va_end(ap);return V1;} /* DBL-READ */
3556  static void LnkT165(){ call_or_link(VV[165],(void **)(void *)&Lnk165);} /* SET-BACK */  static object  LnkTLI165(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[165],(void **)(void *)&LnkLI165,2,first,ap);va_end(ap);return V1;} /* SET-BACK */
3557  static object  LnkTLI164(){return call_proc0(VV[164],(void **)(void *)&LnkLI164);} /* SET-CURRENT */  static object  LnkTLI164(){return call_proc0(VV[164],(void **)(void *)&LnkLI164);} /* SET-CURRENT */
3558  static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* CATCH-FATAL */  static void LnkT163(){ call_or_link(VV[163],(void **)(void *)&Lnk163);} /* CATCH-FATAL */
3559  static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* BREAK-QUIT */  static void LnkT162(){ call_or_link(VV[162],(void **)(void *)&Lnk162);} /* BREAK-QUIT */
# Line 3622  static void LnkT157(){ call_or_link(VV[1 Line 3565  static void LnkT157(){ call_or_link(VV[1
3565  static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* STRING-CONCATENATE */  static void LnkT156(){ call_or_link(VV[156],(void **)(void *)&Lnk156);} /* STRING-CONCATENATE */
3566  static void LnkT155(){ call_or_link(VV[155],(void **)(void *)&Lnk155);} /* READ-FROM-STRING */  static void LnkT155(){ call_or_link(VV[155],(void **)(void *)&Lnk155);} /* READ-FROM-STRING */
3567  static void LnkT154(){ call_or_link(VV[154],(void **)(void *)&Lnk154);} /* BREAK-CURRENT */  static void LnkT154(){ call_or_link(VV[154],(void **)(void *)&Lnk154);} /* BREAK-CURRENT */
3568  static void LnkT150(){ call_or_link(VV[150],(void **)(void *)&Lnk150);} /* PROCESS-SOME-ARGS */  static object  LnkTLI150(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[150],(void **)(void *)&LnkLI150,1,first,ap);va_end(ap);return V1;} /* PROCESS-SOME-ARGS */
3569  static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* LOAD */  static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* LOAD */
3570    
3571  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

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

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