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

Diff of /gcl/lsp/predlib.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "predlib.h"  #include "predlib.h"
4  init_predlib(){do_init(VV);}  void init_predlib(){do_init(VV);}
5  /*      macro definition for DEFTYPE    */  /*      macro definition for DEFTYPE    */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 22  static L1() Line 22  static L1()
22          register object V3;          register object V3;
23          V2= base[3];          V2= base[3];
24          V3= Cnil;          V3= Cnil;
25    goto T3;
26  T3:;  T3:;
27          if(((V2))!=Cnil){          if(((V2))!=Cnil){
28          goto T4;}          goto T4;}
29          goto T1;          goto T1;
30    goto T4;
31  T4:;  T4:;
32          {register object x= car((V2)),V4= VV[0];          {register object x= car((V2)),V4= VV[0];
33          while(!endp(V4))          while(!endp(V4))
# Line 33  T4:; Line 35  T4:;
35          goto T10;          goto T10;
36          }else V4=V4->c.c_cdr;          }else V4=V4->c.c_cdr;
37          goto T8;}          goto T8;}
38    goto T10;
39  T10:;  T10:;
40          if((car((V2)))==(VV[1])){          if((car((V2)))==(VV[1])){
41          goto T11;}          goto T11;}
42          goto T1;          goto T1;
43    goto T11;
44  T11:;  T11:;
45          V3= make_cons(VV[1],(V3));          V3= make_cons(VV[1],(V3));
46          V2= cdr((V2));          V2= cdr((V2));
47    goto T20;
48  T20:;  T20:;
49          if(((V2))==Cnil){          if(((V2))==Cnil){
50          goto T22;}          goto T22;}
# Line 49  T20:; Line 54  T20:;
54          goto T25;          goto T25;
55          }else V5=V5->c.c_cdr;          }else V5=V5->c.c_cdr;
56          goto T21;}          goto T21;}
57    goto T25;
58  T25:;  T25:;
59    goto T22;
60  T22:;  T22:;
61          goto T18;          goto T18;
62    goto T21;
63  T21:;  T21:;
64          if(!(type_of(car((V2)))==t_symbol)){          if(!(type_of(car((V2)))==t_symbol)){
65          goto T29;}          goto T29;}
66          V6= list(2,car((V2)),VV[2]);          V6= list(2,car((V2)),VV[2]);
67          V3= make_cons(/* INLINE-ARGS */V6,(V3));          V3= make_cons(/* INLINE-ARGS */V6,(V3));
68          goto T27;          goto T27;
69    goto T29;
70  T29:;  T29:;
71          V3= make_cons(car((V2)),(V3));          V3= make_cons(car((V2)),(V3));
72    goto T27;
73  T27:;  T27:;
74          V2= cdr((V2));          V2= cdr((V2));
75          goto T20;          goto T20;
76    goto T18;
77  T18:;  T18:;
78          base[5]= (V3);          base[5]= (V3);
79          base[6]= (V2);          base[6]= (V2);
# Line 71  T18:; Line 82  T18:;
82          vs_top=sup;          vs_top=sup;
83          base[3]= vs_base[0];          base[3]= vs_base[0];
84          goto T1;          goto T1;
85    goto T8;
86  T8:;  T8:;
87          {object V7;          {object V7;
88          V7= cdr((V2));          V7= cdr((V2));
89          V3= make_cons(car((V2)),(V3));          V3= make_cons(car((V2)),(V3));
90          V2= (V7);}          V2= (V7);}
91          goto T3;}          goto T3;}
92    goto T1;
93  T1:;  T1:;
94          V8= list(2,VV[6],base[2]);          V8= list(2,VV[6],base[2]);
95          V9= list(4,VV[5],/* INLINE-ARGS */V8,list(2,VV[6],listA(4,VV[7],base[2],base[3],base[4])),VV[8]);          V9= list(4,VV[5],/* INLINE-ARGS */V8,list(2,VV[6],listA(4,VV[7],base[2],base[3],base[4])),VV[8]);
# Line 91  T1:; Line 104  T1:;
104  }  }
105  /*      function definition for G1024   */  /*      function definition for G1024   */
106    
107  static L2()  static void L2()
108  {register object *base=vs_base;  {register object *base=vs_base;
109          register object *sup=base+VM2; VC2          register object *sup=base+VM2; VC2
110          vs_reserve(VM2);          vs_reserve(VM2);
111          check_arg(0);          check_arg(0);
112          vs_top=sup;          vs_top=sup;
113    goto TTL;
114  TTL:;  TTL:;
115          base[0]= list(3,VV[13],VV[14],VV[15]);          base[0]= list(3,VV[13],VV[14],VV[15]);
116          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 104  TTL:; Line 118  TTL:;
118  }  }
119  /*      function definition for G1025   */  /*      function definition for G1025   */
120    
121  static L3()  static void L3()
122  {register object *base=vs_base;  {register object *base=vs_base;
123          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
124          vs_reserve(VM3);          vs_reserve(VM3);
125          check_arg(0);          check_arg(0);
126          vs_top=sup;          vs_top=sup;
127    goto TTL;
128  TTL:;  TTL:;
129          base[0]= VV[16];          base[0]= VV[16];
130          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 117  TTL:; Line 132  TTL:;
132  }  }
133  /*      function definition for G1026   */  /*      function definition for G1026   */
134    
135  static L4()  static void L4()
136  {register object *base=vs_base;  {register object *base=vs_base;
137          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
138          vs_reserve(VM4);          vs_reserve(VM4);
# Line 125  static L4() Line 140  static L4()
140          check_arg(1);          check_arg(1);
141          V15=(base[0]);          V15=(base[0]);
142          vs_top=sup;          vs_top=sup;
143    goto TTL;
144  TTL:;  TTL:;
145          base[1]= list(3,VV[13],small_fixnum(0),one_minus((V15)));          base[1]= list(3,VV[13],small_fixnum(0),one_minus((V15)));
146          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 133  TTL:; Line 149  TTL:;
149  }  }
150  /*      function definition for G1027   */  /*      function definition for G1027   */
151    
152  static L5()  static void L5()
153  {register object *base=vs_base;  {register object *base=vs_base;
154          register object *sup=base+VM5; VC5          register object *sup=base+VM5; VC5
155          vs_reserve(VM5);          vs_reserve(VM5);
# Line 143  static L5() Line 159  static L5()
159          V16=(base[0]);          V16=(base[0]);
160          vs_top=sup;          vs_top=sup;
161          goto T46;          goto T46;
162    goto T45;
163  T45:;  T45:;
164          V16= VV[17];          V16= VV[17];
165    goto T46;
166  T46:;  T46:;
167          if(!(((V16))==(VV[17]))){          if(!(((V16))==(VV[17]))){
168          goto T49;}          goto T49;}
169          base[1]= VV[18];          base[1]= VV[18];
170          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
171          return;          return;
172    goto T49;
173  T49:;  T49:;
174          V17= one_minus((V16));          V17= one_minus((V16));
175          V18= number_expt(small_fixnum(2),/* INLINE-ARGS */V17);          V18= number_expt(small_fixnum(2),/* INLINE-ARGS */V17);
# Line 164  T49:; Line 183  T49:;
183  }  }
184  /*      function definition for G1028   */  /*      function definition for G1028   */
185    
186  static L6()  static void L6()
187  {register object *base=vs_base;  {register object *base=vs_base;
188          register object *sup=base+VM6; VC6          register object *sup=base+VM6; VC6
189          vs_reserve(VM6);          vs_reserve(VM6);
# Line 174  static L6() Line 193  static L6()
193          V22=(base[0]);          V22=(base[0]);
194          vs_top=sup;          vs_top=sup;
195          goto T52;          goto T52;
196    goto T51;
197  T51:;  T51:;
198          V22= VV[17];          V22= VV[17];
199    goto T52;
200  T52:;  T52:;
201          if(!(((V22))==(VV[17]))){          if(!(((V22))==(VV[17]))){
202          goto T55;}          goto T55;}
203          base[1]= VV[19];          base[1]= VV[19];
204          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
205          return;          return;
206    goto T55;
207  T55:;  T55:;
208          V23= number_expt(small_fixnum(2),(V22));          V23= number_expt(small_fixnum(2),(V22));
209          base[1]= list(3,VV[13],small_fixnum(0),one_minus(/* INLINE-ARGS */V23));          base[1]= list(3,VV[13],small_fixnum(0),one_minus(/* INLINE-ARGS */V23));
# Line 191  T55:; Line 213  T55:;
213  }  }
214  /*      function definition for G1029   */  /*      function definition for G1029   */
215    
216  static L7()  static void L7()
217  {register object *base=vs_base;  {register object *base=vs_base;
218          register object *sup=base+VM7; VC7          register object *sup=base+VM7; VC7
219          vs_reserve(VM7);          vs_reserve(VM7);
220          check_arg(0);          check_arg(0);
221          vs_top=sup;          vs_top=sup;
222    goto TTL;
223  TTL:;  TTL:;
224          base[0]= list(2,VV[20],small_fixnum(8));          base[0]= list(2,VV[20],small_fixnum(8));
225          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 204  TTL:; Line 227  TTL:;
227  }  }
228  /*      function definition for G1030   */  /*      function definition for G1030   */
229    
230  static L8()  static void L8()
231  {register object *base=vs_base;  {register object *base=vs_base;
232          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
233          vs_reserve(VM8);          vs_reserve(VM8);
234          check_arg(0);          check_arg(0);
235          vs_top=sup;          vs_top=sup;
236    goto TTL;
237  TTL:;  TTL:;
238          base[0]= list(2,VV[21],small_fixnum(8));          base[0]= list(2,VV[21],small_fixnum(8));
239          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 217  TTL:; Line 241  TTL:;
241  }  }
242  /*      function definition for G1031   */  /*      function definition for G1031   */
243    
244  static L9()  static void L9()
245  {register object *base=vs_base;  {register object *base=vs_base;
246          register object *sup=base+VM9; VC9          register object *sup=base+VM9; VC9
247          vs_reserve(VM9);          vs_reserve(VM9);
248          check_arg(0);          check_arg(0);
249          vs_top=sup;          vs_top=sup;
250    goto TTL;
251  TTL:;  TTL:;
252          base[0]= list(2,VV[20],small_fixnum(16));          base[0]= list(2,VV[20],small_fixnum(16));
253          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 230  TTL:; Line 255  TTL:;
255  }  }
256  /*      function definition for G1032   */  /*      function definition for G1032   */
257    
258  static L10()  static void L10()
259  {register object *base=vs_base;  {register object *base=vs_base;
260          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
261          vs_reserve(VM10);          vs_reserve(VM10);
262          check_arg(0);          check_arg(0);
263          vs_top=sup;          vs_top=sup;
264    goto TTL;
265  TTL:;  TTL:;
266          base[0]= list(2,VV[21],small_fixnum(16));          base[0]= list(2,VV[21],small_fixnum(16));
267          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 243  TTL:; Line 269  TTL:;
269  }  }
270  /*      function definition for G1033   */  /*      function definition for G1033   */
271    
272  static L11()  static void L11()
273  {register object *base=vs_base;  {register object *base=vs_base;
274          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
275          vs_reserve(VM11);          vs_reserve(VM11);
# Line 257  static L11() Line 283  static L11()
283          V25=(base[1]);          V25=(base[1]);
284          vs_top=sup;          vs_top=sup;
285          goto T59;          goto T59;
286    goto T57;
287  T57:;  T57:;
288          V24= VV[17];          V24= VV[17];
289    goto T58;
290  T58:;  T58:;
291          V25= VV[17];          V25= VV[17];
292    goto T59;
293  T59:;  T59:;
294          base[2]= list(3,VV[22],(V24),make_cons((V25),Cnil));          base[2]= list(3,VV[22],(V24),make_cons((V25),Cnil));
295          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 269  T59:; Line 298  T59:;
298  }  }
299  /*      function definition for G1034   */  /*      function definition for G1034   */
300    
301  static L12()  static void L12()
302  {register object *base=vs_base;  {register object *base=vs_base;
303          register object *sup=base+VM12; VC12          register object *sup=base+VM12; VC12
304          vs_reserve(VM12);          vs_reserve(VM12);
# Line 279  static L12() Line 308  static L12()
308          V26=(base[0]);          V26=(base[0]);
309          vs_top=sup;          vs_top=sup;
310          goto T63;          goto T63;
311    goto T62;
312  T62:;  T62:;
313          V26= VV[17];          V26= VV[17];
314    goto T63;
315  T63:;  T63:;
316          base[1]= list(3,VV[23],VV[24],(V26));          base[1]= list(3,VV[23],VV[24],(V26));
317          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 289  T63:; Line 320  T63:;
320  }  }
321  /*      function definition for G1035   */  /*      function definition for G1035   */
322    
323  static L13()  static void L13()
324  {register object *base=vs_base;  {register object *base=vs_base;
325          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
326          vs_reserve(VM13);          vs_reserve(VM13);
# Line 299  static L13() Line 330  static L13()
330          V27=(base[0]);          V27=(base[0]);
331          vs_top=sup;          vs_top=sup;
332          goto T66;          goto T66;
333    goto T65;
334  T65:;  T65:;
335          V27= VV[17];          V27= VV[17];
336    goto T66;
337  T66:;  T66:;
338          base[1]= list(3,VV[23],VV[25],(V27));          base[1]= list(3,VV[23],VV[25],(V27));
339          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 309  T66:; Line 342  T66:;
342  }  }
343  /*      function definition for G1036   */  /*      function definition for G1036   */
344    
345  static L14()  static void L14()
346  {register object *base=vs_base;  {register object *base=vs_base;
347          register object *sup=base+VM14; VC14          register object *sup=base+VM14; VC14
348          vs_reserve(VM14);          vs_reserve(VM14);
# Line 319  static L14() Line 352  static L14()
352          V28=(base[0]);          V28=(base[0]);
353          vs_top=sup;          vs_top=sup;
354          goto T69;          goto T69;
355    goto T68;
356  T68:;  T68:;
357          V28= VV[17];          V28= VV[17];
358    goto T69;
359  T69:;  T69:;
360          base[1]= list(3,VV[26],Ct,make_cons((V28),Cnil));          base[1]= list(3,VV[26],Ct,make_cons((V28),Cnil));
361          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 329  T69:; Line 364  T69:;
364  }  }
365  /*      function definition for G1037   */  /*      function definition for G1037   */
366    
367  static L15()  static void L15()
368  {register object *base=vs_base;  {register object *base=vs_base;
369          register object *sup=base+VM15; VC15          register object *sup=base+VM15; VC15
370          vs_reserve(VM15);          vs_reserve(VM15);
# Line 339  static L15() Line 374  static L15()
374          V29=(base[0]);          V29=(base[0]);
375          vs_top=sup;          vs_top=sup;
376          goto T72;          goto T72;
377    goto T71;
378  T71:;  T71:;
379          V29= VV[17];          V29= VV[17];
380    goto T72;
381  T72:;  T72:;
382          base[1]= list(3,VV[26],VV[24],make_cons((V29),Cnil));          base[1]= list(3,VV[26],VV[24],make_cons((V29),Cnil));
383          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 349  T72:; Line 386  T72:;
386  }  }
387  /*      function definition for G1038   */  /*      function definition for G1038   */
388    
389  static L16()  static void L16()
390  {register object *base=vs_base;  {register object *base=vs_base;
391          register object *sup=base+VM16; VC16          register object *sup=base+VM16; VC16
392          vs_reserve(VM16);          vs_reserve(VM16);
# Line 359  static L16() Line 396  static L16()
396          V30=(base[0]);          V30=(base[0]);
397          vs_top=sup;          vs_top=sup;
398          goto T75;          goto T75;
399    goto T74;
400  T74:;  T74:;
401          V30= VV[17];          V30= VV[17];
402    goto T75;
403  T75:;  T75:;
404          base[1]= list(3,VV[26],VV[25],make_cons((V30),Cnil));          base[1]= list(3,VV[26],VV[25],make_cons((V30),Cnil));
405          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 373  static object LI17(V32) Line 412  static object LI17(V32)
412    
413  object V32;  object V32;
414  {        VMB17 VMS17 VMV17  {        VMB17 VMS17 VMV17
415    goto TTL;
416  TTL:;  TTL:;
417          if(type_of((V32))==t_array||          if(type_of((V32))==t_array||
418  type_of((V32))==t_vector||  type_of((V32))==t_vector||
# Line 381  type_of((V32))==t_bitvector){ Line 421  type_of((V32))==t_bitvector){
421          goto T77;}          goto T77;}
422          {object V33 = Cnil;          {object V33 = Cnil;
423          VMR17(V33)}          VMR17(V33)}
424    goto T77;
425  T77:;  T77:;
426          base[0]= (V32);          base[0]= (V32);
427          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 391  T77:; Line 432  T77:;
432          goto T79;}          goto T79;}
433          {object V35 = Cnil;          {object V35 = Cnil;
434          VMR17(V35)}          VMR17(V35)}
435    goto T79;
436  T79:;  T79:;
437          base[0]= (V32);          base[0]= (V32);
438          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
# Line 399  T79:; Line 441  T79:;
441          V36= vs_base[0];          V36= vs_base[0];
442          {object V37 = ((V36)==Cnil?Ct:Cnil);          {object V37 = ((V36)==Cnil?Ct:Cnil);
443          VMR17(V37)}          VMR17(V37)}
444            base[0]=base[0];
445            return Cnil;
446  }  }
447  /*      function definition for TYPEP   */  /*      function definition for TYPEP   */
448    
449  static L18()  static void L18()
450  {register object *base=vs_base;  {register object *base=vs_base;
451          register object *sup=base+VM18; VC18          register object *sup=base+VM18; VC18
452          vs_reserve(VM18);          vs_reserve(VM18);
# Line 412  static L18() Line 456  static L18()
456          V38=(base[0]);          V38=(base[0]);
457          V39=(base[1]);          V39=(base[1]);
458          vs_top=sup;          vs_top=sup;
459    goto TTL;
460  TTL:;  TTL:;
461          {register object V40;          {register object V40;
462          register object V41;          register object V41;
# Line 424  TTL:; Line 469  TTL:;
469          V40= (V39);          V40= (V39);
470          V41= Cnil;          V41= Cnil;
471          goto T88;          goto T88;
472    goto T90;
473  T90:;  T90:;
474          V40= car((V39));          V40= car((V39));
475          V41= cdr((V39));          V41= cdr((V39));
476    goto T88;
477  T88:;  T88:;
478          {object V43;          {object V43;
479          V43= get((V40),VV[27],Cnil);          V43= get((V40),VV[27],Cnil);
# Line 436  T88:; Line 483  T88:;
483          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
484          super_funcall_no_event((V43));          super_funcall_no_event((V43));
485          return;}          return;}
486    goto T98;
487  T98:;  T98:;
488          {object V44= (V40);          {object V44= (V40);
489          if((V44!= VV[36]))goto T103;          if((V44!= VV[36]))goto T103;
# Line 449  T98:; Line 497  T98:;
497          base[2]= Cnil;          base[2]= Cnil;
498          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
499          return;}          return;}
500    goto T103;
501  T103:;  T103:;
502          if((V44!= VV[39]))goto T104;          if((V44!= VV[39]))goto T104;
503          base[2]= (V38);          base[2]= (V38);
# Line 460  T103:; Line 509  T103:;
509          base[2]= ((V46)==Cnil?Ct:Cnil);          base[2]= ((V46)==Cnil?Ct:Cnil);
510          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
511          return;          return;
512    goto T104;
513  T104:;  T104:;
514          if((V44!= VV[37]))goto T108;          if((V44!= VV[37]))goto T108;
515          {register object V47;          {register object V47;
516          V47= (V41);          V47= (V41);
517    goto T110;
518  T110:;  T110:;
519          if(((V47))!=Cnil){          if(((V47))!=Cnil){
520          goto T111;}          goto T111;}
521          base[2]= Cnil;          base[2]= Cnil;
522          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
523          return;          return;
524    goto T111;
525  T111:;  T111:;
526          base[2]= (V38);          base[2]= (V38);
527          base[3]= car((V47));          base[3]= car((V47));
# Line 481  T111:; Line 533  T111:;
533          base[2]= Ct;          base[2]= Ct;
534          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
535          return;          return;
536    goto T115;
537  T115:;  T115:;
538          V47= cdr((V47));          V47= cdr((V47));
539          goto T110;}          goto T110;}
540    goto T108;
541  T108:;  T108:;
542          if((V44!= VV[38]))goto T123;          if((V44!= VV[38]))goto T123;
543          {register object V48;          {register object V48;
544          V48= (V41);          V48= (V41);
545    goto T125;
546  T125:;  T125:;
547          if(((V48))!=Cnil){          if(((V48))!=Cnil){
548          goto T126;}          goto T126;}
549          base[2]= Ct;          base[2]= Ct;
550          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
551          return;          return;
552    goto T126;
553  T126:;  T126:;
554          base[2]= (V38);          base[2]= (V38);
555          base[3]= car((V48));          base[3]= car((V48));
# Line 505  T126:; Line 561  T126:;
561          base[2]= Cnil;          base[2]= Cnil;
562          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
563          return;          return;
564    goto T130;
565  T130:;  T130:;
566          V48= cdr((V48));          V48= cdr((V48));
567          goto T125;}          goto T125;}
568    goto T123;
569  T123:;  T123:;
570          if((V44!= VV[77]))goto T138;          if((V44!= VV[77]))goto T138;
571          base[2]= car((V41));          base[2]= car((V41));
# Line 515  T123:; Line 573  T123:;
573          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
574          super_funcall_no_event(base[2]);          super_funcall_no_event(base[2]);
575          return;          return;
576    goto T138;
577  T138:;  T138:;
578          if((V44!= Ct))goto T141;          if((V44!= Ct))goto T141;
579          base[2]= Ct;          base[2]= Ct;
580          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
581          return;          return;
582    goto T141;
583  T141:;  T141:;
584          if((V44!= Cnil))goto T142;          if((V44!= Cnil))goto T142;
585          base[2]= Cnil;          base[2]= Cnil;
586          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
587          return;          return;
588    goto T142;
589  T142:;  T142:;
590          if((V44!= VV[28]))goto T143;          if((V44!= VV[28]))goto T143;
591          base[2]= (V38);          base[2]= (V38);
# Line 535  T142:; Line 596  T142:;
596          base[2]= ((V49)==(VV[28])?Ct:Cnil);          base[2]= ((V49)==(VV[28])?Ct:Cnil);
597          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
598          return;          return;
599    goto T143;
600  T143:;  T143:;
601          if((V44!= VV[29]))goto T146;          if((V44!= VV[29]))goto T146;
602          base[2]= (V38);          base[2]= (V38);
# Line 545  T143:; Line 607  T143:;
607          base[2]= ((V50)==(VV[29])?Ct:Cnil);          base[2]= ((V50)==(VV[29])?Ct:Cnil);
608          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
609          return;          return;
610    goto T146;
611  T146:;  T146:;
612          if((V44!= VV[30]))goto T149;          if((V44!= VV[30]))goto T149;
613          base[2]= (V38);          base[2]= (V38);
# Line 555  T146:; Line 618  T146:;
618          base[2]= ((V51)==(VV[30])?Ct:Cnil);          base[2]= ((V51)==(VV[30])?Ct:Cnil);
619          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
620          return;          return;
621    goto T149;
622  T149:;  T149:;
623          if((V44!= VV[78]))goto T152;          if((V44!= VV[78]))goto T152;
624          if(type_of((V38))==t_character){          if(type_of((V38))==t_character){
# Line 562  T149:; Line 626  T149:;
626          base[2]= Cnil;          base[2]= Cnil;
627          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
628          return;          return;
629    goto T153;
630  T153:;  T153:;
631          base[2]= (V38);          base[2]= (V38);
632          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
633          Lstandard_char_p();          Lstandard_char_p();
634          return;          return;
635    goto T152;
636  T152:;  T152:;
637          if((V44!= VV[24]))goto T156;          if((V44!= VV[24]))goto T156;
638          if(type_of((V38))==t_character){          if(type_of((V38))==t_character){
# Line 574  T152:; Line 640  T152:;
640          base[2]= Cnil;          base[2]= Cnil;
641          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
642          return;          return;
643    goto T157;
644  T157:;  T157:;
645          base[2]= (V38);          base[2]= (V38);
646          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
647          Lstring_char_p();          Lstring_char_p();
648          return;          return;
649    goto T156;
650  T156:;  T156:;
651          if((V44!= VV[13]))goto T160;          if((V44!= VV[13]))goto T160;
652          if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){          if(type_of((V38))==t_fixnum||type_of((V38))==t_bignum){
# Line 586  T156:; Line 654  T156:;
654          base[2]= Cnil;          base[2]= Cnil;
655          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
656          return;          return;
657    goto T161;
658  T161:;  T161:;
659          base[2]= (*(LnkLI79))((V38),(V41));          base[2]= (*(LnkLI79))((V38),(V41));
660          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
661          return;          return;
662    goto T160;
663  T160:;  T160:;
664          if((V44!= VV[61]))goto T163;          if((V44!= VV[61]))goto T163;
665          base[2]= (V38);          base[2]= (V38);
# Line 601  T160:; Line 671  T160:;
671          base[2]= Cnil;          base[2]= Cnil;
672          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
673          return;          return;
674    goto T164;
675  T164:;  T164:;
676          base[2]= (*(LnkLI79))((V38),(V41));          base[2]= (*(LnkLI79))((V38),(V41));
677          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
678          return;          return;
679    goto T163;
680  T163:;  T163:;
681          if((V44!= VV[54]))goto T167;          if((V44!= VV[54]))goto T167;
682          base[2]= (V38);          base[2]= (V38);
# Line 616  T163:; Line 688  T163:;
688          base[2]= Cnil;          base[2]= Cnil;
689          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
690          return;          return;
691    goto T168;
692  T168:;  T168:;
693          base[2]= (*(LnkLI79))((V38),(V41));          base[2]= (*(LnkLI79))((V38),(V41));
694          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
695          return;          return;
696    goto T167;
697  T167:;  T167:;
698          if((V44!= VV[62]))goto T171;          if((V44!= VV[62]))goto T171;
699          if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){          if(type_of((V38))==t_shortfloat||type_of((V38))==t_longfloat){
# Line 627  T167:; Line 701  T167:;
701          base[2]= Cnil;          base[2]= Cnil;
702          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
703          return;          return;
704    goto T172;
705  T172:;  T172:;
706          base[2]= (*(LnkLI79))((V38),(V41));          base[2]= (*(LnkLI79))((V38),(V41));
707          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
708          return;          return;
709    goto T171;
710  T171:;  T171:;
711          if((V44!= VV[31]))goto T174;          if((V44!= VV[31]))goto T174;
712          base[2]= (V38);          base[2]= (V38);
# Line 643  T171:; Line 719  T171:;
719          base[2]= Cnil;          base[2]= Cnil;
720          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
721          return;          return;
722    goto T175;
723  T175:;  T175:;
724          base[2]= (*(LnkLI79))((V38),(V41));          base[2]= (*(LnkLI79))((V38),(V41));
725          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
726          return;          return;
727    goto T174;
728  T174:;  T174:;
729          if((V44!= VV[82])          if((V44!= VV[82])
730          && (V44!= VV[83])          && (V44!= VV[83])
# Line 661  T174:; Line 739  T174:;
739          base[2]= Cnil;          base[2]= Cnil;
740          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
741          return;          return;
742    goto T180;
743  T180:;  T180:;
744          base[2]= (*(LnkLI79))((V38),(V41));          base[2]= (*(LnkLI79))((V38),(V41));
745          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
746          return;          return;
747    goto T179;
748  T179:;  T179:;
749          if((V44!= VV[65]))goto T184;          if((V44!= VV[65]))goto T184;
750          base[2]= (V38);          base[2]= (V38);
# Line 676  T179:; Line 756  T179:;
756          base[2]= Cnil;          base[2]= Cnil;
757          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
758          return;          return;
759    goto T185;
760  T185:;  T185:;
761          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
762          goto T188;}          goto T188;}
763          base[2]= Ct;          base[2]= Ct;
764          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
765          return;          return;
766    goto T188;
767  T188:;  T188:;
768          base[3]= (V38);          base[3]= (V38);
769          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
# Line 697  T188:; Line 779  T188:;
779          base[2]= Cnil;          base[2]= Cnil;
780          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
781          return;          return;
782    goto T190;
783  T190:;  T190:;
784          base[2]= (V38);          base[2]= (V38);
785          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 705  T190:; Line 788  T190:;
788          V38= vs_base[0];          V38= vs_base[0];
789          V39= car((V41));          V39= car((V41));
790          goto TTL;          goto TTL;
791    goto T184;
792  T184:;  T184:;
793          if((V44!= VV[43]))goto T199;          if((V44!= VV[43]))goto T199;
794          if(!(type_of((V38))==t_cons||((V38))==Cnil)){          if(!(type_of((V38))==t_cons||((V38))==Cnil)){
# Line 712  T184:; Line 796  T184:;
796          base[2]= Ct;          base[2]= Ct;
797          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
798          return;          return;
799    goto T200;
800  T200:;  T200:;
801          base[2]= (type_of((V38))==t_vector||          base[2]= (type_of((V38))==t_vector||
802  type_of((V38))==t_string||  type_of((V38))==t_string||
803  type_of((V38))==t_bitvector?Ct:Cnil);  type_of((V38))==t_bitvector?Ct:Cnil);
804          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
805          return;          return;
806    goto T199;
807  T199:;  T199:;
808          if((V44!= VV[84]))goto T202;          if((V44!= VV[84]))goto T202;
809          if(type_of((V38))==t_string){          if(type_of((V38))==t_string){
# Line 725  T199:; Line 811  T199:;
811          base[2]= Cnil;          base[2]= Cnil;
812          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
813          return;          return;
814    goto T203;
815  T203:;  T203:;
816          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
817          goto T205;}          goto T205;}
818          base[2]= Ct;          base[2]= Ct;
819          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
820          return;          return;
821    goto T205;
822  T205:;  T205:;
823          V54= (*(LnkLI86))((V38));          V54= (*(LnkLI86))((V38));
824          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V54,(V41));          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V54,(V41));
825          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
826          return;          return;
827    goto T202;
828  T202:;  T202:;
829          if((V44!= VV[87]))goto T207;          if((V44!= VV[87]))goto T207;
830          if((type_of((V38))==t_bitvector)){          if((type_of((V38))==t_bitvector)){
# Line 743  T202:; Line 832  T202:;
832          base[2]= Cnil;          base[2]= Cnil;
833          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
834          return;          return;
835    goto T208;
836  T208:;  T208:;
837          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
838          goto T210;}          goto T210;}
839          base[2]= Ct;          base[2]= Ct;
840          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
841          return;          return;
842    goto T210;
843  T210:;  T210:;
844          V55= (*(LnkLI86))((V38));          V55= (*(LnkLI86))((V38));
845          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V55,(V41));          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V55,(V41));
846          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
847          return;          return;
848    goto T207;
849  T207:;  T207:;
850          if((V44!= VV[88]))goto T212;          if((V44!= VV[88]))goto T212;
851          base[2]= (V38);          base[2]= (V38);
# Line 765  T207:; Line 857  T207:;
857          base[2]= Cnil;          base[2]= Cnil;
858          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
859          return;          return;
860    goto T213;
861  T213:;  T213:;
862          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
863          goto T216;}          goto T216;}
864          base[2]= Ct;          base[2]= Ct;
865          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
866          return;          return;
867    goto T216;
868  T216:;  T216:;
869          V56= (*(LnkLI86))((V38));          V56= (*(LnkLI86))((V38));
870          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V56,(V41));          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V56,(V41));
871          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
872          return;          return;
873    goto T212;
874  T212:;  T212:;
875          if((V44!= VV[89]))goto T218;          if((V44!= VV[89]))goto T218;
876          base[2]= (V38);          base[2]= (V38);
# Line 787  T212:; Line 882  T212:;
882          base[2]= Cnil;          base[2]= Cnil;
883          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
884          return;          return;
885    goto T219;
886  T219:;  T219:;
887          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
888          goto T222;}          goto T222;}
889          base[2]= Ct;          base[2]= Ct;
890          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
891          return;          return;
892    goto T222;
893  T222:;  T222:;
894          V57= (*(LnkLI86))((V38));          V57= (*(LnkLI86))((V38));
895          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V57,(V41));          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V57,(V41));
896          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
897          return;          return;
898    goto T218;
899  T218:;  T218:;
900          if((V44!= VV[90]))goto T224;          if((V44!= VV[90]))goto T224;
901          base[2]= (V38);          base[2]= (V38);
# Line 809  T218:; Line 907  T218:;
907          base[2]= Cnil;          base[2]= Cnil;
908          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
909          return;          return;
910    goto T225;
911  T225:;  T225:;
912          if(!(((V41))==Cnil)){          if(!(((V41))==Cnil)){
913          goto T228;}          goto T228;}
914          base[2]= Ct;          base[2]= Ct;
915          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
916          return;          return;
917    goto T228;
918  T228:;  T228:;
919          V58= (*(LnkLI86))((V38));          V58= (*(LnkLI86))((V38));
920          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V58,(V41));          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V58,(V41));
921          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
922          return;          return;
923    goto T224;
924  T224:;  T224:;
925          if((V44!= VV[26]))goto T230;          if((V44!= VV[26]))goto T230;
926          if(((*(LnkLI91))((V38)))!=Cnil){          if(((*(LnkLI91))((V38)))!=Cnil){
# Line 827  T224:; Line 928  T224:;
928          base[2]= Cnil;          base[2]= Cnil;
929          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
930          return;          return;
931    goto T231;
932  T231:;  T231:;
933          if(!(endp((V41)))){          if(!(endp((V41)))){
934          goto T235;}          goto T235;}
935          goto T233;          goto T233;
936    goto T235;
937  T235:;  T235:;
938          if(!((car((V41)))==(VV[17]))){          if(!((car((V41)))==(VV[17]))){
939          goto T237;}          goto T237;}
940          goto T233;          goto T233;
941    goto T237;
942  T237:;  T237:;
943          base[2]= (V38);          base[2]= (V38);
944          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 847  T237:; Line 951  T237:;
951          base[2]= Cnil;          base[2]= Cnil;
952          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
953          return;          return;
954    goto T233;
955  T233:;  T233:;
956          if(!(endp(cdr((V41))))){          if(!(endp(cdr((V41))))){
957          goto T241;}          goto T241;}
958          base[2]= Ct;          base[2]= Ct;
959          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
960          return;          return;
961    goto T241;
962  T241:;  T241:;
963          if(!((cadr((V41)))==(VV[17]))){          if(!((cadr((V41)))==(VV[17]))){
964          goto T243;}          goto T243;}
965          base[2]= Ct;          base[2]= Ct;
966          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
967          return;          return;
968    goto T243;
969  T243:;  T243:;
970          V61= (*(LnkLI86))((V38));          V61= (*(LnkLI86))((V38));
971          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V61,cadr((V41)));          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V61,cadr((V41)));
972          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
973          return;          return;
974    goto T230;
975  T230:;  T230:;
976          if((V44!= VV[22]))goto T245;          if((V44!= VV[22]))goto T245;
977          if(type_of((V38))==t_array||          if(type_of((V38))==t_array||
# Line 874  type_of((V38))==t_bitvector){ Line 982  type_of((V38))==t_bitvector){
982          base[2]= Cnil;          base[2]= Cnil;
983          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
984          return;          return;
985    goto T246;
986  T246:;  T246:;
987          if(!(endp((V41)))){          if(!(endp((V41)))){
988          goto T250;}          goto T250;}
989          goto T248;          goto T248;
990    goto T250;
991  T250:;  T250:;
992          if(!((car((V41)))==(VV[17]))){          if(!((car((V41)))==(VV[17]))){
993          goto T252;}          goto T252;}
994          goto T248;          goto T248;
995    goto T252;
996  T252:;  T252:;
997          base[2]= (V38);          base[2]= (V38);
998          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 894  T252:; Line 1005  T252:;
1005          base[2]= Cnil;          base[2]= Cnil;
1006          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1007          return;          return;
1008    goto T248;
1009  T248:;  T248:;
1010          if(!(endp(cdr((V41))))){          if(!(endp(cdr((V41))))){
1011          goto T256;}          goto T256;}
1012          base[2]= Ct;          base[2]= Ct;
1013          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1014          return;          return;
1015    goto T256;
1016  T256:;  T256:;
1017          if(!((cadr((V41)))==(VV[17]))){          if(!((cadr((V41)))==(VV[17]))){
1018          goto T258;}          goto T258;}
1019          base[2]= Ct;          base[2]= Ct;
1020          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1021          return;          return;
1022    goto T258;
1023  T258:;  T258:;
1024          V64= (*(LnkLI86))((V38));          V64= (*(LnkLI86))((V38));
1025          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V64,cadr((V41)));          base[2]= (*(LnkLI85))(/* INLINE-ARGS */V64,cadr((V41)));
1026          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
1027          return;          return;
1028    goto T245;
1029  T245:;  T245:;
1030          V42= get((V40),VV[33],Cnil);          V42= get((V40),VV[33],Cnil);
1031          if(((V42))==Cnil){          if(((V42))==Cnil){
# Line 920  T245:; Line 1035  T245:;
1035          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1036          (void) (*Lnk93)();          (void) (*Lnk93)();
1037          return;          return;
1038    goto T261;
1039  T261:;  T261:;
1040          if((get((V40),VV[34],Cnil))==Cnil){          if((get((V40),VV[34],Cnil))==Cnil){
1041          goto T267;}          goto T267;}
# Line 934  T261:; Line 1050  T261:;
1050          vs_top=sup;          vs_top=sup;
1051          V39= vs_base[0];          V39= vs_base[0];
1052          goto TTL;          goto TTL;
1053    goto T267;
1054  T267:;  T267:;
1055          base[2]= Cnil;          base[2]= Cnil;
1056          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
# Line 946  static object LI19(V67) Line 1063  static object LI19(V67)
1063    
1064  register object V67;  register object V67;
1065  {        VMB19 VMS19 VMV19  {        VMB19 VMS19 VMV19
1066    goto TTL;
1067  TTL:;  TTL:;
1068          {register object V68;          {register object V68;
1069          register object V69;          register object V69;
1070          V68= Cnil;          V68= Cnil;
1071          V69= Cnil;          V69= Cnil;
1072    goto T277;
1073  T277:;  T277:;
1074          if(!(type_of((V67))!=t_cons)){          if(!(type_of((V67))!=t_cons)){
1075          goto T281;}          goto T281;}
1076          V68= (V67);          V68= (V67);
1077          V69= Cnil;          V69= Cnil;
1078          goto T279;          goto T279;
1079    goto T281;
1080  T281:;  T281:;
1081          V68= car((V67));          V68= car((V67));
1082          V69= cdr((V67));          V69= cdr((V67));
1083    goto T279;
1084  T279:;  T279:;
1085          if((get((V68),VV[34],Cnil))==Cnil){          if((get((V68),VV[34],Cnil))==Cnil){
1086          goto T290;}          goto T290;}
# Line 974  T279:; Line 1095  T279:;
1095          vs_top=sup;          vs_top=sup;
1096          V67= vs_base[0];          V67= vs_base[0];
1097          goto T278;          goto T278;
1098    goto T290;
1099  T290:;  T290:;
1100          if(!(type_of((V67))!=t_cons)){          if(!(type_of((V67))!=t_cons)){
1101          goto T296;}          goto T296;}
1102          {object V71 = make_cons((V67),Cnil);          {object V71 = make_cons((V67),Cnil);
1103          VMR19(V71)}          VMR19(V71)}
1104    goto T296;
1105  T296:;  T296:;
1106          {object V72 = (V67);          {object V72 = (V67);
1107          VMR19(V72)}          VMR19(V72)}
1108    goto T278;
1109  T278:;  T278:;
1110          goto T277;}          goto T277;}
1111            base[0]=base[0];
1112            return Cnil;
1113  }  }
1114  /*      local entry for function KNOWN-TYPE-P   */  /*      local entry for function KNOWN-TYPE-P   */
1115    
# Line 991  static object LI20(V74) Line 1117  static object LI20(V74)
1117    
1118  register object V74;  register object V74;
1119  {        VMB20 VMS20 VMV20  {        VMB20 VMS20 VMV20
1120    goto TTL;
1121  TTL:;  TTL:;
1122          if(!(type_of((V74))==t_cons)){          if(!(type_of((V74))==t_cons)){
1123          goto T299;}          goto T299;}
1124          V74= car((V74));          V74= car((V74));
1125    goto T299;
1126  T299:;  T299:;
1127          {register object x= (V74),V75= VV[35];          {register object x= (V74),V75= VV[35];
1128          while(!endp(V75))          while(!endp(V75))
# Line 1003  T299:; Line 1131  T299:;
1131          }else V75=V75->c.c_cdr;}          }else V75=V75->c.c_cdr;}
1132          if((get((V74),VV[33],Cnil))==Cnil){          if((get((V74),VV[33],Cnil))==Cnil){
1133          goto T304;}          goto T304;}
1134    goto T303;
1135  T303:;  T303:;
1136          {object V76 = Ct;          {object V76 = Ct;
1137          VMR20(V76)}          VMR20(V76)}
1138    goto T304;
1139  T304:;  T304:;
1140          {object V77 = Cnil;          {object V77 = Cnil;
1141          VMR20(V77)}          VMR20(V77)}
1142            return Cnil;
1143  }  }
1144  /*      function definition for SUBTYPEP        */  /*      function definition for SUBTYPEP        */
1145    
1146  static L21()  static void L21()
1147  {register object *base=vs_base;  {register object *base=vs_base;
1148          register object *sup=base+VM21; VC21          register object *sup=base+VM21; VC21
1149          vs_reserve(VM21);          vs_reserve(VM21);
# Line 1022  static L21() Line 1153  static L21()
1153          V78=(base[0]);          V78=(base[0]);
1154          V79=(base[1]);          V79=(base[1]);
1155          vs_top=sup;          vs_top=sup;
1156    goto TTL;
1157  TTL:;  TTL:;
1158          {object V80;          {object V80;
1159          object V81;          object V81;
# Line 1045  TTL:; Line 1177  TTL:;
1177          base[3]= Ct;          base[3]= Ct;
1178          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1179          return;          return;
1180    goto T319;
1181  T319:;  T319:;
1182          V80= car((V78));          V80= car((V78));
1183          V81= car((V79));          V81= car((V79));
# Line 1056  T319:; Line 1189  T319:;
1189          object V88;          object V88;
1190          V87= (V82);          V87= (V82);
1191          V88= car((V87));          V88= car((V87));
1192    goto T340;
1193  T340:;  T340:;
1194          if(!(endp((V87)))){          if(!(endp((V87)))){
1195          goto T341;}          goto T341;}
1196          goto T336;          goto T336;
1197    goto T341;
1198  T341:;  T341:;
1199          base[3]= (V88);          base[3]= (V88);
1200          base[4]= (V79);          base[4]= (V79);
# Line 1072  T341:; Line 1207  T341:;
1207          base[4]= Ct;          base[4]= Ct;
1208          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1209          return;          return;
1210    goto T345;
1211  T345:;  T345:;
1212          V87= cdr((V87));          V87= cdr((V87));
1213          V88= car((V87));          V88= car((V87));
1214          goto T340;}          goto T340;}
1215    goto T336;
1216  T336:;  T336:;
1217          base[2]= Ct;          base[2]= Ct;
1218          base[3]= Ct;          base[3]= Ct;
1219          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1220          return;          return;
1221    goto T334;
1222  T334:;  T334:;
1223          if(!(((V80))==(VV[37]))){          if(!(((V80))==(VV[37]))){
1224          goto T360;}          goto T360;}
# Line 1088  T334:; Line 1226  T334:;
1226          object V90;          object V90;
1227          V89= (V82);          V89= (V82);
1228          V90= car((V89));          V90= car((V89));
1229    goto T366;
1230  T366:;  T366:;
1231          if(!(endp((V89)))){          if(!(endp((V89)))){
1232          goto T367;}          goto T367;}
1233          goto T362;          goto T362;
1234    goto T367;
1235  T367:;  T367:;
1236          {object V91;          {object V91;
1237          object V92;          object V92;
# Line 1106  T367:; Line 1246  T367:;
1246          V92= vs_base[0];          V92= vs_base[0];
1247          vs_top=sup;          vs_top=sup;
1248          goto T377;          goto T377;
1249    goto T375;
1250  T375:;  T375:;
1251          V91= Cnil;          V91= Cnil;
1252    goto T376;
1253  T376:;  T376:;
1254          V92= Cnil;          V92= Cnil;
1255    goto T377;
1256  T377:;  T377:;
1257          if(((V91))!=Cnil){          if(((V91))!=Cnil){
1258          goto T371;}          goto T371;}
# Line 1117  T377:; Line 1260  T377:;
1260          base[4]= (V92);          base[4]= (V92);
1261          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1262          return;}          return;}
1263    goto T371;
1264  T371:;  T371:;
1265          V89= cdr((V89));          V89= cdr((V89));
1266          V90= car((V89));          V90= car((V89));
1267          goto T366;}          goto T366;}
1268    goto T362;
1269  T362:;  T362:;
1270          base[2]= Ct;          base[2]= Ct;
1271          base[3]= Ct;          base[3]= Ct;
1272          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1273          return;          return;
1274    goto T360;
1275  T360:;  T360:;
1276          if(!(((V80))==(VV[38]))){          if(!(((V80))==(VV[38]))){
1277          goto T390;}          goto T390;}
# Line 1133  T360:; Line 1279  T360:;
1279          object V94;          object V94;
1280          V93= (V82);          V93= (V82);
1281          V94= car((V93));          V94= car((V93));
1282    goto T396;
1283  T396:;  T396:;
1284          if(!(endp((V93)))){          if(!(endp((V93)))){
1285          goto T397;}          goto T397;}
1286          goto T392;          goto T392;
1287    goto T397;
1288  T397:;  T397:;
1289          {object V95;          {object V95;
1290          base[3]= (V94);          base[3]= (V94);
# Line 1151  T397:; Line 1299  T397:;
1299          base[4]= Ct;          base[4]= Ct;
1300          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1301          return;}          return;}
1302    goto T401;
1303  T401:;  T401:;
1304          V93= cdr((V93));          V93= cdr((V93));
1305          V94= car((V93));          V94= car((V93));
1306          goto T396;}          goto T396;}
1307    goto T392;
1308  T392:;  T392:;
1309          base[2]= Cnil;          base[2]= Cnil;
1310          base[3]= Cnil;          base[3]= Cnil;
1311          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1312          return;          return;
1313    goto T390;
1314  T390:;  T390:;
1315          if(!(((V80))==(VV[39]))){          if(!(((V80))==(VV[39]))){
1316          goto T332;}          goto T332;}
# Line 1168  T390:; Line 1319  T390:;
1319          V78= car((V83));          V78= car((V83));
1320          V79= car((V82));          V79= car((V82));
1321          goto TTL;          goto TTL;
1322    goto T419;
1323  T419:;  T419:;
1324          V78= Ct;          V78= Ct;
1325          V79= list(3,VV[37],(V79),car((V82)));          V79= list(3,VV[37],(V79),car((V82)));
1326          goto TTL;          goto TTL;
1327    goto T332;
1328  T332:;  T332:;
1329          if(!(((V81))==(VV[36]))){          if(!(((V81))==(VV[36]))){
1330          goto T429;}          goto T429;}
# Line 1179  T332:; Line 1332  T332:;
1332          base[3]= Cnil;          base[3]= Cnil;
1333          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1334          return;          return;
1335    goto T429;
1336  T429:;  T429:;
1337          if(!(((V81))==(VV[37]))){          if(!(((V81))==(VV[37]))){
1338          goto T434;}          goto T434;}
# Line 1186  T429:; Line 1340  T429:;
1340          object V97;          object V97;
1341          V96= (V83);          V96= (V83);
1342          V97= car((V96));          V97= car((V96));
1343    goto T440;
1344  T440:;  T440:;
1345          if(!(endp((V96)))){          if(!(endp((V96)))){
1346          goto T441;}          goto T441;}
1347          goto T436;          goto T436;
1348    goto T441;
1349  T441:;  T441:;
1350          {object V98;          {object V98;
1351          base[3]= (V78);          base[3]= (V78);
# Line 1204  T441:; Line 1360  T441:;
1360          base[4]= Ct;          base[4]= Ct;
1361          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1362          return;}          return;}
1363    goto T445;
1364  T445:;  T445:;
1365          V96= cdr((V96));          V96= cdr((V96));
1366          V97= car((V96));          V97= car((V96));
1367          goto T440;}          goto T440;}
1368    goto T436;
1369  T436:;  T436:;
1370          base[2]= Cnil;          base[2]= Cnil;
1371          base[3]= Cnil;          base[3]= Cnil;
1372          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1373          return;          return;
1374    goto T434;
1375  T434:;  T434:;
1376          if(!(((V81))==(VV[38]))){          if(!(((V81))==(VV[38]))){
1377          goto T461;}          goto T461;}
# Line 1220  T434:; Line 1379  T434:;
1379          object V100;          object V100;
1380          V99= (V83);          V99= (V83);
1381          V100= car((V99));          V100= car((V99));
1382    goto T467;
1383  T467:;  T467:;
1384          if(!(endp((V99)))){          if(!(endp((V99)))){
1385          goto T468;}          goto T468;}
1386          goto T463;          goto T463;
1387    goto T468;
1388  T468:;  T468:;
1389          {object V101;          {object V101;
1390          object V102;          object V102;
# Line 1238  T468:; Line 1399  T468:;
1399          V102= vs_base[0];          V102= vs_base[0];
1400          vs_top=sup;          vs_top=sup;
1401          goto T478;          goto T478;
1402    goto T476;
1403  T476:;  T476:;
1404          V101= Cnil;          V101= Cnil;
1405    goto T477;
1406  T477:;  T477:;
1407          V102= Cnil;          V102= Cnil;
1408    goto T478;
1409  T478:;  T478:;
1410          if(((V101))!=Cnil){          if(((V101))!=Cnil){
1411          goto T472;}          goto T472;}
# Line 1249  T478:; Line 1413  T478:;
1413          base[4]= (V102);          base[4]= (V102);
1414          vs_top=(vs_base=base+3)+2;          vs_top=(vs_base=base+3)+2;
1415          return;}          return;}
1416    goto T472;
1417  T472:;  T472:;
1418          V99= cdr((V99));          V99= cdr((V99));
1419          V100= car((V99));          V100= car((V99));
1420          goto T467;}          goto T467;}
1421    goto T463;
1422  T463:;  T463:;
1423          base[2]= Ct;          base[2]= Ct;
1424          base[3]= Ct;          base[3]= Ct;
1425          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1426          return;          return;
1427    goto T461;
1428  T461:;  T461:;
1429          if(!(((V81))==(VV[39]))){          if(!(((V81))==(VV[39]))){
1430          goto T427;}          goto T427;}
1431          V78= list(3,VV[38],(V78),car((V83)));          V78= list(3,VV[38],(V78),car((V83)));
1432          V79= Cnil;          V79= Cnil;
1433          goto TTL;          goto TTL;
1434    goto T427;
1435  T427:;  T427:;
1436          V84= (*(LnkLI96))((V78));          V84= (*(LnkLI96))((V78));
1437          V85= (*(LnkLI96))((V79));          V85= (*(LnkLI96))((V79));
# Line 1273  T427:; Line 1441  T427:;
1441          goto T499;}          goto T499;}
1442          if(!(((V81))==(VV[40]))){          if(!(((V81))==(VV[40]))){
1443          goto T500;}          goto T500;}
1444    goto T499;
1445  T499:;  T499:;
1446          base[2]= Ct;          base[2]= Ct;
1447          base[3]= Ct;          base[3]= Ct;
1448          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1449          return;          return;
1450    goto T500;
1451  T500:;  T500:;
1452          if(!(((V81))==(Cnil))){          if(!(((V81))==(Cnil))){
1453          goto T509;}          goto T509;}
# Line 1285  T500:; Line 1455  T500:;
1455          base[3]= (V84);          base[3]= (V84);
1456          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1457          return;          return;
1458    goto T509;
1459  T509:;  T509:;
1460          if(!(((V80))==(Ct))){          if(!(((V80))==(Ct))){
1461          goto T514;}          goto T514;}
# Line 1292  T509:; Line 1463  T509:;
1463          base[3]= (V85);          base[3]= (V85);
1464          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1465          return;          return;
1466    goto T514;
1467  T514:;  T514:;
1468          if(!(((V80))==(VV[40]))){          if(!(((V80))==(VV[40]))){
1469          goto T519;}          goto T519;}
# Line 1299  T514:; Line 1471  T514:;
1471          base[3]= (V85);          base[3]= (V85);
1472          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1473          return;          return;
1474    goto T519;
1475  T519:;  T519:;
1476          if(!(((V81))==(VV[41]))){          if(!(((V81))==(VV[41]))){
1477          goto T524;}          goto T524;}
# Line 1308  T519:; Line 1481  T519:;
1481          goto T528;          goto T528;
1482          }else V103=V103->c.c_cdr;          }else V103=V103->c.c_cdr;
1483          goto T527;}          goto T527;}
1484    goto T528;
1485  T528:;  T528:;
1486          base[2]= Ct;          base[2]= Ct;
1487          base[3]= Ct;          base[3]= Ct;
1488          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1489          return;          return;
1490    goto T527;
1491  T527:;  T527:;
1492          base[2]= Cnil;          base[2]= Cnil;
1493          base[3]= (V84);          base[3]= (V84);
1494          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1495          return;          return;
1496    goto T524;
1497  T524:;  T524:;
1498          if(!(((V81))==(VV[43]))){          if(!(((V81))==(VV[43]))){
1499          goto T534;}          goto T534;}
# Line 1327  T524:; Line 1503  T524:;
1503          goto T538;          goto T538;
1504          }else V104=V104->c.c_cdr;          }else V104=V104->c.c_cdr;
1505          goto T537;}          goto T537;}
1506    goto T538;
1507  T538:;  T538:;
1508          base[2]= Ct;          base[2]= Ct;
1509          base[3]= Ct;          base[3]= Ct;
1510          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1511          return;          return;
1512    goto T537;
1513  T537:;  T537:;
1514          if(!(((V80))==(VV[22]))){          if(!(((V80))==(VV[22]))){
1515          goto T542;}          goto T542;}
# Line 1345  T537:; Line 1523  T537:;
1523          base[3]= Ct;          base[3]= Ct;
1524          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1525          return;          return;
1526    goto T545;
1527  T545:;  T545:;
1528          base[2]= Cnil;          base[2]= Cnil;
1529          base[3]= Ct;          base[3]= Ct;
1530          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1531          return;          return;
1532    goto T542;
1533  T542:;  T542:;
1534          base[2]= Cnil;          base[2]= Cnil;
1535          base[3]= (V84);          base[3]= (V84);
1536          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1537          return;          return;
1538    goto T534;
1539  T534:;  T534:;
1540          if(!(((V80))==(VV[41]))){          if(!(((V80))==(VV[41]))){
1541          goto T558;}          goto T558;}
# Line 1362  T534:; Line 1543  T534:;
1543          base[3]= (V85);          base[3]= (V85);
1544          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1545          return;          return;
1546    goto T558;
1547  T558:;  T558:;
1548          if(!(((V80))==(VV[43]))){          if(!(((V80))==(VV[43]))){
1549          goto T563;}          goto T563;}
# Line 1369  T558:; Line 1551  T558:;
1551          base[3]= (V85);          base[3]= (V85);
1552          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1553          return;          return;
1554    goto T563;
1555  T563:;  T563:;
1556          if(!(((V81))==(VV[45]))){          if(!(((V81))==(VV[45]))){
1557          goto T568;}          goto T568;}
# Line 1378  T563:; Line 1561  T563:;
1561          goto T572;          goto T572;
1562          }else V105=V105->c.c_cdr;          }else V105=V105->c.c_cdr;
1563          goto T571;}          goto T571;}
1564    goto T572;
1565  T572:;  T572:;
1566          base[2]= Cnil;          base[2]= Cnil;
1567          base[3]= Ct;          base[3]= Ct;
1568          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1569          return;          return;
1570    goto T571;
1571  T571:;  T571:;
1572          if(((V84))==Cnil){          if(((V84))==Cnil){
1573          goto T576;}          goto T576;}
# Line 1390  T571:; Line 1575  T571:;
1575          base[3]= Ct;          base[3]= Ct;
1576          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1577          return;          return;
1578    goto T576;
1579  T576:;  T576:;
1580          base[2]= Cnil;          base[2]= Cnil;
1581          base[3]= Cnil;          base[3]= Cnil;
1582          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1583          return;          return;
1584    goto T568;
1585  T568:;  T568:;
1586          if(!(((V80))==(VV[45]))){          if(!(((V80))==(VV[45]))){
1587          goto T583;}          goto T583;}
# Line 1402  T568:; Line 1589  T568:;
1589          base[3]= (V85);          base[3]= (V85);
1590          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1591          return;          return;
1592    goto T583;
1593  T583:;  T583:;
1594          if(!(((V81))==(VV[47]))){          if(!(((V81))==(VV[47]))){
1595          goto T588;}          goto T588;}
# Line 1411  T583:; Line 1599  T583:;
1599          goto T592;          goto T592;
1600          }else V106=V106->c.c_cdr;          }else V106=V106->c.c_cdr;
1601          goto T591;}          goto T591;}
1602    goto T592;
1603  T592:;  T592:;
1604          base[2]= Ct;          base[2]= Ct;
1605          base[3]= Ct;          base[3]= Ct;
1606          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1607          return;          return;
1608    goto T591;
1609  T591:;  T591:;
1610          base[2]= Cnil;          base[2]= Cnil;
1611          base[3]= (V84);          base[3]= (V84);
1612          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1613          return;          return;
1614    goto T588;
1615  T588:;  T588:;
1616          if(!(((V81))==(VV[49]))){          if(!(((V81))==(VV[49]))){
1617          goto T598;}          goto T598;}
# Line 1430  T588:; Line 1621  T588:;
1621          base[3]= Ct;          base[3]= Ct;
1622          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1623          return;          return;
1624    goto T601;
1625  T601:;  T601:;
1626          base[2]= Cnil;          base[2]= Cnil;
1627          base[3]= (V84);          base[3]= (V84);
1628          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1629          return;          return;
1630    goto T598;
1631  T598:;  T598:;
1632          if(!(((V81))==(VV[50]))){          if(!(((V81))==(VV[50]))){
1633          goto T608;}          goto T608;}
# Line 1444  T598:; Line 1637  T598:;
1637          base[3]= Ct;          base[3]= Ct;
1638          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1639          return;          return;
1640    goto T611;
1641  T611:;  T611:;
1642          base[2]= Cnil;          base[2]= Cnil;
1643          base[3]= (V84);          base[3]= (V84);
1644          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1645          return;          return;
1646    goto T608;
1647  T608:;  T608:;
1648          if(!(((V81))==(VV[51]))){          if(!(((V81))==(VV[51]))){
1649          goto T618;}          goto T618;}
# Line 1458  T608:; Line 1653  T608:;
1653          goto T622;          goto T622;
1654          }else V107=V107->c.c_cdr;          }else V107=V107->c.c_cdr;
1655          goto T621;}          goto T621;}
1656    goto T622;
1657  T622:;  T622:;
1658          base[2]= Ct;          base[2]= Ct;
1659          base[3]= Ct;          base[3]= Ct;
1660          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1661          return;          return;
1662    goto T621;
1663  T621:;  T621:;
1664          base[2]= Cnil;          base[2]= Cnil;
1665          base[3]= (V84);          base[3]= (V84);
1666          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1667          return;          return;
1668    goto T618;
1669  T618:;  T618:;
1670          if(!(((V80))==(VV[51]))){          if(!(((V80))==(VV[51]))){
1671          goto T628;}          goto T628;}
# Line 1475  T618:; Line 1673  T618:;
1673          base[3]= (V85);          base[3]= (V85);
1674          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1675          return;          return;
1676    goto T628;
1677  T628:;  T628:;
1678          if(!(((V81))==(VV[53]))){          if(!(((V81))==(VV[53]))){
1679          goto T633;}          goto T633;}
# Line 1482  T628:; Line 1681  T628:;
1681          goto T635;}          goto T635;}
1682          if((get((V80),VV[33],Cnil))==Cnil){          if((get((V80),VV[33],Cnil))==Cnil){
1683          goto T636;}          goto T636;}
1684    goto T635;
1685  T635:;  T635:;
1686          base[2]= Ct;          base[2]= Ct;
1687          base[3]= Ct;          base[3]= Ct;
1688          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1689          return;          return;
1690    goto T636;
1691  T636:;  T636:;
1692          base[2]= Cnil;          base[2]= Cnil;
1693          base[3]= (V84);          base[3]= (V84);
1694          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1695          return;          return;
1696    goto T633;
1697  T633:;  T633:;
1698          if(!(((V80))==(VV[53]))){          if(!(((V80))==(VV[53]))){
1699          goto T645;}          goto T645;}
# Line 1499  T633:; Line 1701  T633:;
1701          base[3]= (V85);          base[3]= (V85);
1702          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1703          return;          return;
1704    goto T645;
1705  T645:;  T645:;
1706          V86= get((V80),VV[33],Cnil);          V86= get((V80),VV[33],Cnil);
1707          if(((V86))==Cnil){          if(((V86))==Cnil){
# Line 1509  T645:; Line 1712  T645:;
1712          goto T655;}          goto T655;}
1713          {register object V109;          {register object V109;
1714          V109= (V86);          V109= (V86);
1715    goto T658;
1716  T658:;  T658:;
1717          if(((V109))!=Cnil){          if(((V109))!=Cnil){
1718          goto T659;}          goto T659;}
# Line 1516  T658:; Line 1720  T658:;
1720          base[3]= Ct;          base[3]= Ct;
1721          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1722          return;          return;
1723    goto T659;
1724  T659:;  T659:;
1725          if(!(((V109))==(V108))){          if(!(((V109))==(V108))){
1726          goto T665;}          goto T665;}
# Line 1523  T659:; Line 1728  T659:;
1728          base[3]= Ct;          base[3]= Ct;
1729          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1730          return;          return;
1731    goto T665;
1732  T665:;  T665:;
1733          V109= structure_ref((V109),VV[33],4);          V109= structure_ref((V109),VV[33],4);
1734          goto T658;}          goto T658;}
1735    goto T655;
1736  T655:;  T655:;
1737          base[2]= Cnil;          base[2]= Cnil;
1738          base[3]= (V85);          base[3]= (V85);
1739          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1740          return;}          return;}
1741    goto T650;
1742  T650:;  T650:;
1743          if(!(((V81))==(VV[54]))){          if(!(((V81))==(VV[54]))){
1744          goto T676;}          goto T676;}
# Line 1540  T650:; Line 1748  T650:;
1748          goto T681;          goto T681;
1749          }else V111=V111->c.c_cdr;          }else V111=V111->c.c_cdr;
1750          goto T679;}          goto T679;}
1751    goto T681;
1752  T681:;  T681:;
1753          if(((*(LnkLI97))((V82),(V83)))==Cnil){          if(((*(LnkLI97))((V82),(V83)))==Cnil){
1754          goto T679;}          goto T679;}
# Line 1547  T681:; Line 1756  T681:;
1756          base[3]= Ct;          base[3]= Ct;
1757          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1758          return;          return;
1759    goto T679;
1760  T679:;  T679:;
1761          base[2]= Cnil;          base[2]= Cnil;
1762          base[3]= (V84);          base[3]= (V84);
1763          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1764          return;          return;
1765    goto T676;
1766  T676:;  T676:;
1767          if((get((V81),VV[33],Cnil))==Cnil){          if((get((V81),VV[33],Cnil))==Cnil){
1768          goto T688;}          goto T688;}
# Line 1559  T676:; Line 1770  T676:;
1770          base[3]= (V84);          base[3]= (V84);
1771          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1772          return;          return;
1773    goto T688;
1774  T688:;  T688:;
1775          {object V112= (V80);          {object V112= (V80);
1776          if((V112!= VV[29]))goto T692;          if((V112!= VV[29]))goto T692;
# Line 1568  T688:; Line 1780  T688:;
1780          base[3]= Ct;          base[3]= Ct;
1781          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1782          return;          return;
1783    goto T693;
1784  T693:;  T693:;
1785          if((V113!= VV[13])          if((V113!= VV[13])
1786          && (V113!= VV[61]))goto T696;          && (V113!= VV[61]))goto T696;
# Line 1577  T693:; Line 1790  T693:;
1790          base[3]= Ct;          base[3]= Ct;
1791          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1792          return;          return;
1793    goto T698;
1794  T698:;  T698:;
1795          base[2]= Cnil;          base[2]= Cnil;
1796          base[3]= Ct;          base[3]= Ct;
1797          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1798          return;          return;
1799    goto T696;
1800  T696:;  T696:;
1801          base[2]= Cnil;          base[2]= Cnil;
1802          base[3]= (V85);          base[3]= (V85);
1803          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1804          return;}          return;}
1805    goto T692;
1806  T692:;  T692:;
1807          if((V112!= VV[30]))goto T706;          if((V112!= VV[30]))goto T706;
1808          {object V114= (V81);          {object V114= (V81);
# Line 1595  T692:; Line 1811  T692:;
1811          base[3]= Ct;          base[3]= Ct;
1812          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1813          return;          return;
1814    goto T707;
1815  T707:;  T707:;
1816          if((V114!= VV[61]))goto T710;          if((V114!= VV[61]))goto T710;
1817          if(((*(LnkLI97))(VV[57],(V83)))==Cnil){          if(((*(LnkLI97))(VV[57],(V83)))==Cnil){
# Line 1603  T707:; Line 1820  T707:;
1820          base[3]= Ct;          base[3]= Ct;
1821          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1822          return;          return;
1823    goto T712;
1824  T712:;  T712:;
1825          base[2]= Cnil;          base[2]= Cnil;
1826          base[3]= Ct;          base[3]= Ct;
1827          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1828          return;          return;
1829    goto T710;
1830  T710:;  T710:;
1831          base[2]= Cnil;          base[2]= Cnil;
1832          base[3]= (V85);          base[3]= (V85);
1833          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1834          return;}          return;}
1835    goto T706;
1836  T706:;  T706:;
1837          if((V112!= VV[78]))goto T720;          if((V112!= VV[78]))goto T720;
1838          {register object x= (V81),V115= VV[58];          {register object x= (V81),V115= VV[58];
# Line 1621  T706:; Line 1841  T706:;
1841          goto T723;          goto T723;
1842          }else V115=V115->c.c_cdr;          }else V115=V115->c.c_cdr;
1843          goto T722;}          goto T722;}
1844    goto T723;
1845  T723:;  T723:;
1846          base[2]= Ct;          base[2]= Ct;
1847          base[3]= Ct;          base[3]= Ct;
1848          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1849          return;          return;
1850    goto T722;
1851  T722:;  T722:;
1852          base[2]= Cnil;          base[2]= Cnil;
1853          base[3]= (V85);          base[3]= (V85);
1854          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1855          return;          return;
1856    goto T720;
1857  T720:;  T720:;
1858          if((V112!= VV[24]))goto T728;          if((V112!= VV[24]))goto T728;
1859          {register object x= (V81),V116= VV[59];          {register object x= (V81),V116= VV[59];
# Line 1639  T720:; Line 1862  T720:;
1862          goto T731;          goto T731;
1863          }else V116=V116->c.c_cdr;          }else V116=V116->c.c_cdr;
1864          goto T730;}          goto T730;}
1865    goto T731;
1866  T731:;  T731:;
1867          base[2]= Ct;          base[2]= Ct;
1868          base[3]= Ct;          base[3]= Ct;
1869          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1870          return;          return;
1871    goto T730;
1872  T730:;  T730:;
1873          base[2]= Cnil;          base[2]= Cnil;
1874          base[3]= (V85);          base[3]= (V85);
1875          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1876          return;          return;
1877    goto T728;
1878  T728:;  T728:;
1879          if((V112!= VV[13]))goto T736;          if((V112!= VV[13]))goto T736;
1880          {register object x= (V81),V117= VV[60];          {register object x= (V81),V117= VV[60];
# Line 1657  T728:; Line 1883  T728:;
1883          goto T739;          goto T739;
1884          }else V117=V117->c.c_cdr;          }else V117=V117->c.c_cdr;
1885          goto T738;}          goto T738;}
1886    goto T739;
1887  T739:;  T739:;
1888          base[2]= (*(LnkLI97))((V82),(V83));          base[2]= (*(LnkLI97))((V82),(V83));
1889          base[3]= Ct;          base[3]= Ct;
1890          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1891          return;          return;
1892    goto T738;
1893  T738:;  T738:;
1894          base[2]= Cnil;          base[2]= Cnil;
1895          base[3]= (V85);          base[3]= (V85);
1896          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1897          return;          return;
1898    goto T736;
1899  T736:;  T736:;
1900          if((V112!= VV[61]))goto T744;          if((V112!= VV[61]))goto T744;
1901          if(!(((V81))==(VV[61]))){          if(!(((V81))==(VV[61]))){
# Line 1675  T736:; Line 1904  T736:;
1904          base[3]= Ct;          base[3]= Ct;
1905          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1906          return;          return;
1907    goto T746;
1908  T746:;  T746:;
1909          base[2]= Cnil;          base[2]= Cnil;
1910          base[3]= (V85);          base[3]= (V85);
1911          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1912          return;          return;
1913    goto T744;
1914  T744:;  T744:;
1915          if((V112!= VV[62]))goto T752;          if((V112!= VV[62]))goto T752;
1916          if(!(((V81))==(VV[62]))){          if(!(((V81))==(VV[62]))){
# Line 1688  T744:; Line 1919  T744:;
1919          base[3]= Ct;          base[3]= Ct;
1920          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1921          return;          return;
1922    goto T754;
1923  T754:;  T754:;
1924          base[2]= Cnil;          base[2]= Cnil;
1925          base[3]= (V85);          base[3]= (V85);
1926          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1927          return;          return;
1928    goto T752;
1929  T752:;  T752:;
1930          if((V112!= VV[31]))goto T760;          if((V112!= VV[31]))goto T760;
1931          {register object x= (V81),V118= VV[63];          {register object x= (V81),V118= VV[63];
# Line 1701  T752:; Line 1934  T752:;
1934          goto T763;          goto T763;
1935          }else V118=V118->c.c_cdr;          }else V118=V118->c.c_cdr;
1936          goto T762;}          goto T762;}
1937    goto T763;
1938  T763:;  T763:;
1939          base[2]= (*(LnkLI97))((V82),(V83));          base[2]= (*(LnkLI97))((V82),(V83));
1940          base[3]= Ct;          base[3]= Ct;
1941          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1942          return;          return;
1943    goto T762;
1944  T762:;  T762:;
1945          base[2]= Cnil;          base[2]= Cnil;
1946          base[3]= (V85);          base[3]= (V85);
1947          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1948          return;          return;
1949    goto T760;
1950  T760:;  T760:;
1951          if((V112!= VV[82])          if((V112!= VV[82])
1952          && (V112!= VV[83])          && (V112!= VV[83])
# Line 1721  T760:; Line 1957  T760:;
1957          goto T771;          goto T771;
1958          }else V119=V119->c.c_cdr;          }else V119=V119->c.c_cdr;
1959          goto T770;}          goto T770;}
1960    goto T771;
1961  T771:;  T771:;
1962          base[2]= (*(LnkLI97))((V82),(V83));          base[2]= (*(LnkLI97))((V82),(V83));
1963          base[3]= Ct;          base[3]= Ct;
1964          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1965          return;          return;
1966    goto T770;
1967  T770:;  T770:;
1968          base[2]= Cnil;          base[2]= Cnil;
1969          base[3]= (V85);          base[3]= (V85);
1970          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
1971          return;          return;
1972    goto T768;
1973  T768:;  T768:;
1974          if((V112!= VV[65]))goto T776;          if((V112!= VV[65]))goto T776;
1975          if(!(((V81))==(VV[65]))){          if(!(((V81))==(VV[65]))){
# Line 1739  T768:; Line 1978  T768:;
1978          if(V120==Cnil)goto T782;          if(V120==Cnil)goto T782;
1979          V78= V120;          V78= V120;
1980          goto T781;          goto T781;
1981    goto T782;
1982  T782:;}  T782:;}
1983          V78= Ct;          V78= Ct;
1984    goto T781;
1985  T781:;{object V121;  T781:;{object V121;
1986          V121= car((V83));          V121= car((V83));
1987          if(V121==Cnil)goto T785;          if(V121==Cnil)goto T785;
1988          V79= V121;          V79= V121;
1989          goto T784;          goto T784;
1990    goto T785;
1991  T785:;}  T785:;}
1992          V79= Ct;          V79= Ct;
1993    goto T784;
1994  T784:;  T784:;
1995          goto TTL;          goto TTL;
1996    goto T778;
1997  T778:;  T778:;
1998          base[2]= Cnil;          base[2]= Cnil;
1999          base[3]= (V85);          base[3]= (V85);
2000          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2001          return;          return;
2002    goto T776;
2003  T776:;  T776:;
2004          if((V112!= VV[26]))goto T789;          if((V112!= VV[26]))goto T789;
2005          if(((V81))==(VV[26])){          if(((V81))==(VV[26])){
2006          goto T790;}          goto T790;}
2007          if(!(((V81))==(VV[22]))){          if(!(((V81))==(VV[22]))){
2008          goto T791;}          goto T791;}
2009    goto T790;
2010  T790:;  T790:;
2011          if(endp((V82))){          if(endp((V82))){
2012          goto T796;}          goto T796;}
2013          if(!((car((V82)))==(VV[17]))){          if(!((car((V82)))==(VV[17]))){
2014          goto T797;}          goto T797;}
2015    goto T796;
2016  T796:;  T796:;
2017          if(endp((V83))){          if(endp((V83))){
2018          goto T795;}          goto T795;}
# Line 1775  T796:; Line 2022  T796:;
2022          base[3]= Ct;          base[3]= Ct;
2023          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2024          return;          return;
2025    goto T797;
2026  T797:;  T797:;
2027          if(endp((V83))){          if(endp((V83))){
2028          goto T795;}          goto T795;}
# Line 1786  T797:; Line 2034  T797:;
2034          base[3]= Ct;          base[3]= Ct;
2035          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2036          return;          return;
2037    goto T795;
2038  T795:;  T795:;
2039          if(endp(cdr((V82)))){          if(endp(cdr((V82)))){
2040          goto T816;}          goto T816;}
2041          if(!((cadr((V82)))==(VV[17]))){          if(!((cadr((V82)))==(VV[17]))){
2042          goto T815;}          goto T815;}
2043    goto T816;
2044  T816:;  T816:;
2045          if(endp(cdr((V83)))){          if(endp(cdr((V83)))){
2046          goto T820;}          goto T820;}
2047          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2048          goto T821;}          goto T821;}
2049    goto T820;
2050  T820:;  T820:;
2051          base[2]= Ct;          base[2]= Ct;
2052          base[3]= Ct;          base[3]= Ct;
2053          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2054          return;          return;
2055    goto T821;
2056  T821:;  T821:;
2057          base[2]= Cnil;          base[2]= Cnil;
2058          base[3]= Ct;          base[3]= Ct;
2059          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2060          return;          return;
2061    goto T815;
2062  T815:;  T815:;
2063          if(endp(cdr((V83)))){          if(endp(cdr((V83)))){
2064          goto T830;}          goto T830;}
2065          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2066          goto T829;}          goto T829;}
2067    goto T830;
2068  T830:;  T830:;
2069          base[2]= Ct;          base[2]= Ct;
2070          base[3]= Ct;          base[3]= Ct;
2071          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2072          return;          return;
2073    goto T829;
2074  T829:;  T829:;
2075          base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83)));          base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83)));
2076          base[3]= Ct;          base[3]= Ct;
2077          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2078          return;          return;
2079    goto T791;
2080  T791:;  T791:;
2081          base[2]= Cnil;          base[2]= Cnil;
2082          base[3]= (V85);          base[3]= (V85);
2083          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2084          return;          return;
2085    goto T789;
2086  T789:;  T789:;
2087          if((V112!= VV[22]))goto T840;          if((V112!= VV[22]))goto T840;
2088          if(!(((V81))==(VV[22]))){          if(!(((V81))==(VV[22]))){
# Line 1834  T789:; Line 2091  T789:;
2091          goto T845;}          goto T845;}
2092          if(!((car((V82)))==(VV[17]))){          if(!((car((V82)))==(VV[17]))){
2093          goto T846;}          goto T846;}
2094    goto T845;
2095  T845:;  T845:;
2096          if(endp((V83))){          if(endp((V83))){
2097          goto T844;}          goto T844;}
# Line 1843  T845:; Line 2101  T845:;
2101          base[3]= Ct;          base[3]= Ct;
2102          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2103          return;          return;
2104    goto T846;
2105  T846:;  T846:;
2106          if(endp((V83))){          if(endp((V83))){
2107          goto T844;}          goto T844;}
# Line 1854  T846:; Line 2113  T846:;
2113          base[3]= Ct;          base[3]= Ct;
2114          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2115          return;          return;
2116    goto T844;
2117  T844:;  T844:;
2118          if(endp(cdr((V82)))){          if(endp(cdr((V82)))){
2119          goto T865;}          goto T865;}
2120          if(!((cadr((V82)))==(VV[17]))){          if(!((cadr((V82)))==(VV[17]))){
2121          goto T864;}          goto T864;}
2122    goto T865;
2123  T865:;  T865:;
2124          if(endp(cdr((V83)))){          if(endp(cdr((V83)))){
2125          goto T869;}          goto T869;}
2126          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2127          goto T870;}          goto T870;}
2128    goto T869;
2129  T869:;  T869:;
2130          base[2]= Ct;          base[2]= Ct;
2131          base[3]= Ct;          base[3]= Ct;
2132          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2133          return;          return;
2134    goto T870;
2135  T870:;  T870:;
2136          base[2]= Cnil;          base[2]= Cnil;
2137          base[3]= Ct;          base[3]= Ct;
2138          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2139          return;          return;
2140    goto T864;
2141  T864:;  T864:;
2142          if(endp(cdr((V83)))){          if(endp(cdr((V83)))){
2143          goto T879;}          goto T879;}
2144          if(!((cadr((V83)))==(VV[17]))){          if(!((cadr((V83)))==(VV[17]))){
2145          goto T878;}          goto T878;}
2146    goto T879;
2147  T879:;  T879:;
2148          base[2]= Ct;          base[2]= Ct;
2149          base[3]= Ct;          base[3]= Ct;
2150          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2151          return;          return;
2152    goto T878;
2153  T878:;  T878:;
2154          base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83)));          base[2]= (*(LnkLI85))(cadr((V82)),cadr((V83)));
2155          base[3]= Ct;          base[3]= Ct;
2156          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2157          return;          return;
2158    goto T842;
2159  T842:;  T842:;
2160          base[2]= Cnil;          base[2]= Cnil;
2161          base[3]= (V85);          base[3]= (V85);
2162          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2163          return;          return;
2164    goto T840;
2165  T840:;  T840:;
2166          if(((V84))==Cnil){          if(((V84))==Cnil){
2167          goto T890;}          goto T890;}
# Line 1901  T840:; Line 2169  T840:;
2169          base[3]= Ct;          base[3]= Ct;
2170          vs_top=(vs_base=base+2)+2;          vs_top=(vs_base=base+2)+2;
2171          return;          return;
2172    goto T890;
2173  T890:;  T890:;
2174          base[2]= Cnil;          base[2]= Cnil;
2175          base[3]= Cnil;          base[3]= Cnil;
# Line 1914  static object LI22(V124,V125) Line 2183  static object LI22(V124,V125)
2183    
2184  register object V124;register object V125;  register object V124;register object V125;
2185  {        VMB22 VMS22 VMV22  {        VMB22 VMS22 VMV22
2186    goto TTL;
2187  TTL:;  TTL:;
2188          {register object V126;          {register object V126;
2189          register object V127;          register object V127;
# Line 1928  TTL:; Line 2198  TTL:;
2198          V126= VV[17];          V126= VV[17];
2199          V127= VV[17];          V127= VV[17];
2200          goto T896;          goto T896;
2201    goto T898;
2202  T898:;  T898:;
2203          if(!(endp(cdr((V124))))){          if(!(endp(cdr((V124))))){
2204          goto T904;}          goto T904;}
2205          V126= car((V124));          V126= car((V124));
2206          V127= VV[17];          V127= VV[17];
2207          goto T896;          goto T896;
2208    goto T904;
2209  T904:;  T904:;
2210          V126= car((V124));          V126= car((V124));
2211          V127= cadr((V124));          V127= cadr((V124));
2212    goto T896;
2213  T896:;  T896:;
2214          if(!(endp((V125)))){          if(!(endp((V125)))){
2215          goto T914;}          goto T914;}
2216          V128= VV[17];          V128= VV[17];
2217          V129= VV[17];          V129= VV[17];
2218          goto T912;          goto T912;
2219    goto T914;
2220  T914:;  T914:;
2221          if(!(endp(cdr((V125))))){          if(!(endp(cdr((V125))))){
2222          goto T920;}          goto T920;}
2223          V128= car((V125));          V128= car((V125));
2224          V129= VV[17];          V129= VV[17];
2225          goto T912;          goto T912;
2226    goto T920;
2227  T920:;  T920:;
2228          V128= car((V125));          V128= car((V125));
2229          V129= cadr((V125));          V129= cadr((V125));
2230    goto T912;
2231  T912:;  T912:;
2232          if(!(((V126))==(VV[17]))){          if(!(((V126))==(VV[17]))){
2233          goto T930;}          goto T930;}
# Line 1959  T912:; Line 2235  T912:;
2235          goto T928;}          goto T928;}
2236          {object V130 = Cnil;          {object V130 = Cnil;
2237          VMR22(V130)}          VMR22(V130)}
2238    goto T930;
2239  T930:;  T930:;
2240          {object V131;          {object V131;
2241          V131= (((V128))==(VV[17])?Ct:Cnil);          V131= (((V128))==(VV[17])?Ct:Cnil);
2242          if(((V131))==Cnil){          if(((V131))==Cnil){
2243          goto T936;}          goto T936;}
2244          goto T928;          goto T928;
2245    goto T936;
2246  T936:;  T936:;
2247          if(!(type_of((V126))==t_cons)){          if(!(type_of((V126))==t_cons)){
2248          goto T939;}          goto T939;}
# Line 1974  T936:; Line 2252  T936:;
2252          goto T928;}          goto T928;}
2253          {object V132 = Cnil;          {object V132 = Cnil;
2254          VMR22(V132)}          VMR22(V132)}
2255    goto T942;
2256  T942:;  T942:;
2257          if(!(number_compare(car((V126)),(V128))<0)){          if(!(number_compare(car((V126)),(V128))<0)){
2258          goto T928;}          goto T928;}
2259          {object V133 = Cnil;          {object V133 = Cnil;
2260          VMR22(V133)}          VMR22(V133)}
2261    goto T939;
2262  T939:;  T939:;
2263          {object V134;          {object V134;
2264          if(!(type_of((V128))==t_cons)){          if(!(type_of((V128))==t_cons)){
# Line 1987  T939:; Line 2267  T939:;
2267          goto T953;}          goto T953;}
2268          {object V135 = Cnil;          {object V135 = Cnil;
2269          VMR22(V135)}          VMR22(V135)}
2270    goto T953;
2271  T953:;  T953:;
2272          V134= Cnil;          V134= Cnil;
2273          goto T948;          goto T948;
2274    goto T950;
2275  T950:;  T950:;
2276          if(!(number_compare((V126),(V128))<0)){          if(!(number_compare((V126),(V128))<0)){
2277          goto T956;}          goto T956;}
2278          {object V136 = Cnil;          {object V136 = Cnil;
2279          VMR22(V136)}          VMR22(V136)}
2280    goto T956;
2281  T956:;  T956:;
2282          V134= Cnil;          V134= Cnil;
2283    goto T948;
2284  T948:;  T948:;
2285          if(((V134))==Cnil){          if(((V134))==Cnil){
2286          goto T928;}}}          goto T928;}}}
2287    goto T928;
2288  T928:;  T928:;
2289          if(!(((V127))==(VV[17]))){          if(!(((V127))==(VV[17]))){
2290          goto T962;}          goto T962;}
# Line 2007  T928:; Line 2292  T928:;
2292          goto T960;}          goto T960;}
2293          {object V137 = Cnil;          {object V137 = Cnil;
2294          VMR22(V137)}          VMR22(V137)}
2295    goto T962;
2296  T962:;  T962:;
2297          {object V138;          {object V138;
2298          V138= (((V129))==(VV[17])?Ct:Cnil);          V138= (((V129))==(VV[17])?Ct:Cnil);
2299          if(((V138))==Cnil){          if(((V138))==Cnil){
2300          goto T968;}          goto T968;}
2301          goto T960;          goto T960;
2302    goto T968;
2303  T968:;  T968:;
2304          if(!(type_of((V127))==t_cons)){          if(!(type_of((V127))==t_cons)){
2305          goto T971;}          goto T971;}
# Line 2022  T968:; Line 2309  T968:;
2309          goto T960;}          goto T960;}
2310          {object V139 = Cnil;          {object V139 = Cnil;
2311          VMR22(V139)}          VMR22(V139)}
2312    goto T974;
2313  T974:;  T974:;
2314          if(!(number_compare(car((V127)),(V129))>0)){          if(!(number_compare(car((V127)),(V129))>0)){
2315          goto T960;}          goto T960;}
2316          {object V140 = Cnil;          {object V140 = Cnil;
2317          VMR22(V140)}          VMR22(V140)}
2318    goto T971;
2319  T971:;  T971:;
2320          {object V141;          {object V141;
2321          if(!(type_of((V129))==t_cons)){          if(!(type_of((V129))==t_cons)){
# Line 2035  T971:; Line 2324  T971:;
2324          goto T985;}          goto T985;}
2325          {object V142 = Cnil;          {object V142 = Cnil;
2326          VMR22(V142)}          VMR22(V142)}
2327    goto T985;
2328  T985:;  T985:;
2329          V141= Cnil;          V141= Cnil;
2330          goto T980;          goto T980;
2331    goto T982;
2332  T982:;  T982:;
2333          if(!(number_compare((V127),(V129))>0)){          if(!(number_compare((V127),(V129))>0)){
2334          goto T988;}          goto T988;}
2335          {object V143 = Cnil;          {object V143 = Cnil;
2336          VMR22(V143)}          VMR22(V143)}
2337    goto T988;
2338  T988:;  T988:;
2339          V141= Cnil;          V141= Cnil;
2340    goto T980;
2341  T980:;  T980:;
2342          if(((V141))==Cnil){          if(((V141))==Cnil){
2343          goto T960;}}}          goto T960;}}}
2344    goto T960;
2345  T960:;  T960:;
2346          {object V144 = Ct;          {object V144 = Ct;
2347          VMR22(V144)}}          VMR22(V144)}}
2348            return Cnil;
2349  }  }
2350  /*      local entry for function IN-INTERVAL-P  */  /*      local entry for function IN-INTERVAL-P  */
2351    
# Line 2058  static object LI23(V147,V148) Line 2353  static object LI23(V147,V148)
2353    
2354  register object V147;register object V148;  register object V147;register object V148;
2355  {        VMB23 VMS23 VMV23  {        VMB23 VMS23 VMV23
2356    goto TTL;
2357  TTL:;  TTL:;
2358          {register object V149;          {register object V149;
2359          register object V150;          register object V150;
# Line 2068  TTL:; Line 2364  TTL:;
2364          V149= VV[17];          V149= VV[17];
2365          V150= VV[17];          V150= VV[17];
2366          goto T992;          goto T992;
2367    goto T994;
2368  T994:;  T994:;
2369          if(!(endp(cdr((V148))))){          if(!(endp(cdr((V148))))){
2370          goto T1000;}          goto T1000;}
2371          V149= car((V148));          V149= car((V148));
2372          V150= VV[17];          V150= VV[17];
2373          goto T992;          goto T992;
2374    goto T1000;
2375  T1000:;  T1000:;
2376          V149= car((V148));          V149= car((V148));
2377          V150= cadr((V148));          V150= cadr((V148));
2378    goto T992;
2379  T992:;  T992:;
2380          {object V151;          {object V151;
2381          V151= (((V149))==(VV[17])?Ct:Cnil);          V151= (((V149))==(VV[17])?Ct:Cnil);
2382          if(((V151))==Cnil){          if(((V151))==Cnil){
2383          goto T1011;}          goto T1011;}
2384          goto T1008;          goto T1008;
2385    goto T1011;
2386  T1011:;  T1011:;
2387          if(!(type_of((V149))==t_cons)){          if(!(type_of((V149))==t_cons)){
2388          goto T1014;}          goto T1014;}
# Line 2090  T1011:; Line 2390  T1011:;
2390          goto T1008;}          goto T1008;}
2391          {object V152 = Cnil;          {object V152 = Cnil;
2392          VMR23(V152)}          VMR23(V152)}
2393    goto T1014;
2394  T1014:;  T1014:;
2395          {object V153;          {object V153;
2396          if(!(number_compare((V147),(V149))<0)){          if(!(number_compare((V147),(V149))<0)){
2397          goto T1020;}          goto T1020;}
2398          {object V154 = Cnil;          {object V154 = Cnil;
2399          VMR23(V154)}          VMR23(V154)}
2400    goto T1020;
2401  T1020:;  T1020:;
2402          V153= Cnil;          V153= Cnil;
2403          if(((V153))==Cnil){          if(((V153))==Cnil){
2404          goto T1008;}}}          goto T1008;}}}
2405    goto T1008;
2406  T1008:;  T1008:;
2407          {object V155;          {object V155;
2408          V155= (((V150))==(VV[17])?Ct:Cnil);          V155= (((V150))==(VV[17])?Ct:Cnil);
2409          if(((V155))==Cnil){          if(((V155))==Cnil){
2410          goto T1027;}          goto T1027;}
2411          goto T1024;          goto T1024;
2412    goto T1027;
2413  T1027:;  T1027:;
2414          if(!(type_of((V150))==t_cons)){          if(!(type_of((V150))==t_cons)){
2415          goto T1030;}          goto T1030;}
# Line 2113  T1027:; Line 2417  T1027:;
2417          goto T1024;}          goto T1024;}
2418          {object V156 = Cnil;          {object V156 = Cnil;
2419          VMR23(V156)}          VMR23(V156)}
2420    goto T1030;
2421  T1030:;  T1030:;
2422          {object V157;          {object V157;
2423          if(!(number_compare((V147),(V150))>0)){          if(!(number_compare((V147),(V150))>0)){
2424          goto T1036;}          goto T1036;}
2425          {object V158 = Cnil;          {object V158 = Cnil;
2426          VMR23(V158)}          VMR23(V158)}
2427    goto T1036;
2428  T1036:;  T1036:;
2429          V157= Cnil;          V157= Cnil;
2430          if(((V157))==Cnil){          if(((V157))==Cnil){
2431          goto T1024;}}}          goto T1024;}}}
2432    goto T1024;
2433  T1024:;  T1024:;
2434          {object V159 = Ct;          {object V159 = Ct;
2435          VMR23(V159)}}          VMR23(V159)}}
2436            return Cnil;
2437  }  }
2438  /*      local entry for function MATCH-DIMENSIONS       */  /*      local entry for function MATCH-DIMENSIONS       */
2439    
# Line 2133  static object LI24(V162,V163) Line 2441  static object LI24(V162,V163)
2441    
2442  object V162;register object V163;  object V162;register object V163;
2443  {        VMB24 VMS24 VMV24  {        VMB24 VMS24 VMV24
2444    goto TTL;
2445  TTL:;  TTL:;
2446          if(((V162))!=Cnil){          if(((V162))!=Cnil){
2447          goto T1041;}          goto T1041;}
2448          {object V164 = (((V163))==Cnil?Ct:Cnil);          {object V164 = (((V163))==Cnil?Ct:Cnil);
2449          VMR24(V164)}          VMR24(V164)}
2450    goto T1041;
2451  T1041:;  T1041:;
2452          if(!((car((V163)))==(VV[17]))){          if(!((car((V163)))==(VV[17]))){
2453          goto T1045;}          goto T1045;}
2454          goto T1043;          goto T1043;
2455    goto T1045;
2456  T1045:;  T1045:;
2457          if(eql(car((V162)),car((V163)))){          if(eql(car((V162)),car((V163)))){
2458          goto T1043;}          goto T1043;}
2459          {object V165 = Cnil;          {object V165 = Cnil;
2460          VMR24(V165)}          VMR24(V165)}
2461    goto T1043;
2462  T1043:;  T1043:;
2463          V162= cdr((V162));          V162= cdr((V162));
2464          V163= cdr((V163));          V163= cdr((V163));
2465          goto TTL;          goto TTL;
2466            return Cnil;
2467  }  }
2468  /*      local entry for function COERCE */  /*      local entry for function COERCE */
2469    
# Line 2158  static object LI25(V168,V169) Line 2471  static object LI25(V168,V169)
2471    
2472  register object V168;object V169;  register object V168;object V169;
2473  {        VMB25 VMS25 VMV25  {        VMB25 VMS25 VMV25
2474    goto TTL;
2475  TTL:;  TTL:;
2476          base[0]= (V168);          base[0]= (V168);
2477          base[1]= (V169);          base[1]= (V169);
# Line 2168  TTL:; Line 2482  TTL:;
2482          goto T1050;}          goto T1050;}
2483          {object V170 = (V168);          {object V170 = (V168);
2484          VMR25(V170)}          VMR25(V170)}
2485    goto T1050;
2486  T1050:;  T1050:;
2487          V169= (*(LnkLI94))((V169));          V169= (*(LnkLI94))((V169));
2488          {object V171= car((V169));          {object V171= car((V169));
# Line 2177  T1050:; Line 2492  T1050:;
2492          V174 = make_fixnum(length((V168)));          V174 = make_fixnum(length((V168)));
2493          V173= one_minus(V174);          V173= one_minus(V174);
2494          V172= Cnil;          V172= Cnil;
2495    goto T1060;
2496  T1060:;  T1060:;
2497          if(!(number_compare((V173),small_fixnum(0))<0)){          if(!(number_compare((V173),small_fixnum(0))<0)){
2498          goto T1061;}          goto T1061;}
2499          {object V175 = (V172);          {object V175 = (V172);
2500          VMR25(V175)}          VMR25(V175)}
2501    goto T1061;
2502  T1061:;  T1061:;
2503          V176= elt((V168),fixint((V173)));          V176= elt((V168),fixint((V173)));
2504          V172= make_cons(/* INLINE-ARGS */V176,(V172));          V172= make_cons(/* INLINE-ARGS */V176,(V172));
2505          V173= one_minus((V173));          V173= one_minus((V173));
2506          goto T1060;}          goto T1060;}
2507    goto T1057;
2508  T1057:;  T1057:;
2509          if((V171!= VV[22])          if((V171!= VV[22])
2510          && (V171!= VV[26]))goto T1069;          && (V171!= VV[26]))goto T1069;
# Line 2202  T1057:; Line 2520  T1057:;
2520          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
2521          Lerror();          Lerror();
2522          vs_top=sup;          vs_top=sup;
2523    goto T1070;
2524  T1070:;  T1070:;
2525          {register object V177;          {register object V177;
2526          register object V178;          register object V178;
# Line 2210  T1070:; Line 2529  T1070:;
2529          V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180));          V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180));
2530          V179= make_fixnum(length((V168)));          V179= make_fixnum(length((V168)));
2531          V178= small_fixnum(0);          V178= small_fixnum(0);
2532    goto T1083;
2533  T1083:;  T1083:;
2534          if(!(number_compare((V178),(V179))>=0)){          if(!(number_compare((V178),(V179))>=0)){
2535          goto T1084;}          goto T1084;}
2536          {object V181 = (V177);          {object V181 = (V177);
2537          VMR25(V181)}          VMR25(V181)}
2538    goto T1084;
2539  T1084:;  T1084:;
2540          V182= elt((V168),fixint((V178)));          V182= elt((V168),fixint((V178)));
2541          (void)(elt_set((V177),fixint((V178)),/* INLINE-ARGS */V182));          (void)(elt_set((V177),fixint((V178)),/* INLINE-ARGS */V182));
2542          V178= one_plus((V178));          V178= one_plus((V178));
2543          goto T1083;}          goto T1083;}
2544    goto T1069;
2545  T1069:;  T1069:;
2546          if((V171!= VV[99]))goto T1092;          if((V171!= VV[99]))goto T1092;
2547          base[0]= (V168);          base[0]= (V168);
# Line 2228  T1069:; Line 2550  T1069:;
2550          vs_top=sup;          vs_top=sup;
2551          {object V183 = vs_base[0];          {object V183 = vs_base[0];
2552          VMR25(V183)}          VMR25(V183)}
2553    goto T1092;
2554  T1092:;  T1092:;
2555          if((V171!= VV[62]))goto T1094;          if((V171!= VV[62]))goto T1094;
2556          base[0]= (V168);          base[0]= (V168);
# Line 2236  T1092:; Line 2559  T1092:;
2559          vs_top=sup;          vs_top=sup;
2560          {object V184 = vs_base[0];          {object V184 = vs_base[0];
2561          VMR25(V184)}          VMR25(V184)}
2562    goto T1094;
2563  T1094:;  T1094:;
2564          if((V171!= VV[31]))goto T1096;          if((V171!= VV[31]))goto T1096;
2565          base[0]= (V168);          base[0]= (V168);
# Line 2245  T1094:; Line 2569  T1094:;
2569          vs_top=sup;          vs_top=sup;
2570          {object V185 = vs_base[0];          {object V185 = vs_base[0];
2571          VMR25(V185)}          VMR25(V185)}
2572    goto T1096;
2573  T1096:;  T1096:;
2574          if((V171!= VV[82])          if((V171!= VV[82])
2575          && (V171!= VV[83])          && (V171!= VV[83])
# Line 2256  T1096:; Line 2581  T1096:;
2581          vs_top=sup;          vs_top=sup;
2582          {object V186 = vs_base[0];          {object V186 = vs_base[0];
2583          VMR25(V186)}          VMR25(V186)}
2584    goto T1099;
2585  T1099:;  T1099:;
2586          if((V171!= VV[65]))goto T1102;          if((V171!= VV[65]))goto T1102;
2587          if((cdr((V169)))==Cnil){          if((cdr((V169)))==Cnil){
# Line 2264  T1099:; Line 2590  T1099:;
2590          goto T1103;}          goto T1103;}
2591          if(!((cadr((V169)))==(VV[17]))){          if(!((cadr((V169)))==(VV[17]))){
2592          goto T1104;}          goto T1104;}
2593    goto T1103;
2594  T1103:;  T1103:;
2595          base[1]= (V168);          base[1]= (V168);
2596          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2280  T1103:; Line 2607  T1103:;
2607          vs_top=sup;          vs_top=sup;
2608          {object V187 = vs_base[0];          {object V187 = vs_base[0];
2609          VMR25(V187)}          VMR25(V187)}
2610    goto T1104;
2611  T1104:;  T1104:;
2612          base[1]= (V168);          base[1]= (V168);
2613          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 2298  T1104:; Line 2626  T1104:;
2626          vs_top=sup;          vs_top=sup;
2627          {object V190 = vs_base[0];          {object V190 = vs_base[0];
2628          VMR25(V190)}          VMR25(V190)}
2629    goto T1102;
2630  T1102:;  T1102:;
2631          base[0]= VV[69];          base[0]= VV[69];
2632          base[1]= (V168);          base[1]= (V168);
# Line 2307  T1102:; Line 2636  T1102:;
2636          vs_top=sup;          vs_top=sup;
2637          {object V191 = vs_base[0];          {object V191 = vs_base[0];
2638          VMR25(V191)}}          VMR25(V191)}}
2639            base[0]=base[0];
2640            return Cnil;
2641  }  }
2642  /*      function definition for WARN-VERSION    */  /*      function definition for WARN-VERSION    */
2643    
2644  static L26()  static void L26()
2645  {register object *base=vs_base;  {register object *base=vs_base;
2646          register object *sup=base+VM26; VC26          register object *sup=base+VM26; VC26
2647          vs_reserve(VM26);          vs_reserve(VM26);
# Line 2324  static L26() Line 2655  static L26()
2655          V193=(base[1]);          V193=(base[1]);
2656          vs_top=sup;          vs_top=sup;
2657          goto T1124;          goto T1124;
2658    goto T1123;
2659  T1123:;  T1123:;
2660          V193= Cnil;          V193= Cnil;
2661    goto T1124;
2662  T1124:;  T1124:;
2663          if(symbol_value(VV[70])==Cnil){          if(symbol_value(VV[70])==Cnil){
2664          base[2]= Cnil;          base[2]= Cnil;
# Line 2334  T1124:; Line 2667  T1124:;
2667          if(!(((eql((V192),symbol_value(VV[70]))?Ct:Cnil))==Cnil)){          if(!(((eql((V192),symbol_value(VV[70]))?Ct:Cnil))==Cnil)){
2668          goto T1128;}          goto T1128;}
2669          goto T1126;          goto T1126;
2670    goto T1128;
2671  T1128:;  T1128:;
2672          if(((eql((V193),symbol_value(VV[71]))?Ct:Cnil))==Cnil){          if(((eql((V193),symbol_value(VV[71]))?Ct:Cnil))==Cnil){
2673          goto T1126;}          goto T1126;}
2674          base[2]= Cnil;          base[2]= Cnil;
2675          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
2676          return;          return;
2677    goto T1126;
2678  T1126:;  T1126:;
2679          if(symbol_value(VV[72])==Cnil){          if(symbol_value(VV[72])==Cnil){
2680          base[2]= Cnil;          base[2]= Cnil;
# Line 2354  T1126:; Line 2689  T1126:;
2689          return;          return;
2690          }          }
2691  }  }
2692  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],&LnkLI100,2,ap);} /* COERCE */  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* COERCE */
2693  static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],&LnkLI98,ap);} /* MAKE-SEQUENCE */  static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],(void **)&LnkLI98,ap);} /* MAKE-SEQUENCE */
2694  static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],&LnkLI97,2,ap);} /* SUB-INTERVAL-P */  static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,2,ap);} /* SUB-INTERVAL-P */
2695  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],&LnkLI96,1,ap);} /* KNOWN-TYPE-P */  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,1,ap);} /* KNOWN-TYPE-P */
2696  static LnkT95(){ call_or_link(VV[95],&Lnk95);} /* SUBTYPEP */  static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* SUBTYPEP */
2697  static object  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],&LnkLI94,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],(void **)&LnkLI94,1,ap);} /* NORMALIZE-TYPE */
2698  static LnkT93(){ call_or_link(VV[93],&Lnk93);} /* STRUCTURE-SUBTYPE-P */  static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* STRUCTURE-SUBTYPE-P */
2699  static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],&LnkLI92,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],(void **)&LnkLI92,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
2700  static object  LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],&LnkLI91,1,ap);} /* SIMPLE-ARRAY-P */  static object  LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],(void **)&LnkLI91,1,ap);} /* SIMPLE-ARRAY-P */
2701  static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],&LnkLI86,1,ap);} /* ARRAY-DIMENSIONS */  static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],(void **)&LnkLI86,1,ap);} /* ARRAY-DIMENSIONS */
2702  static object  LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],&LnkLI85,2,ap);} /* MATCH-DIMENSIONS */  static object  LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],(void **)&LnkLI85,2,ap);} /* MATCH-DIMENSIONS */
2703  static LnkT81(){ call_or_link(VV[81],&Lnk81);} /* REALP */  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* REALP */
2704  static LnkT80(){ call_or_link(VV[80],&Lnk80);} /* RATIONALP */  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* RATIONALP */
2705  static object  LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],&LnkLI79,2,ap);} /* IN-INTERVAL-P */  static object  LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],(void **)&LnkLI79,2,ap);} /* IN-INTERVAL-P */
2706  static LnkT76(){ call_or_link(VV[76],&Lnk76);} /* TYPEP */  static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* TYPEP */
2707  static LnkT75(){ call_or_link(VV[75],&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */
2708  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* FIND-DOCUMENTATION */  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,1,ap);} /* FIND-DOCUMENTATION */
2709    
2710  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2711  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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