/[gcl]/gcl/clcs/clcs_condition_definitions.c
ViewVC logotype

Diff of /gcl/clcs/clcs_condition_definitions.c

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

revision 1.5 by camm, Mon Sep 22 22:03:47 2003 UTC revision 1.6 by camm, Tue Sep 23 21:48:26 2003 UTC
# Line 2  Line 2 
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "clcs_condition_definitions.h"  #include "clcs_condition_definitions.h"
4  void init_clcs_condition_definitions(){do_init(VV);}  void init_clcs_condition_definitions(){do_init(VV);}
5  /*      local entry for function progn 'compile2185     */  /*      local entry for function progn 'compile2187     */
6    
7  static object LI1()  static object LI1()
8    
# Line 10  static object LI1() Line 10  static object LI1()
10          goto TTL;          goto TTL;
11  TTL:;  TTL:;
12          base[0]= VV[0];          base[0]= VV[0];
13          base[1]= symbol_value(VV[1]);          base[1]= (VV[1]->s.s_dbind);
14          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
15          Ladjoin();          Ladjoin();
16          vs_top=sup;          vs_top=sup;
17          setq(VV[1],vs_base[0]);          (VV[1]->s.s_dbind)= vs_base[0];
18          {object V2 = Cnil;          {object V2 = Cnil;
19          VMR1(V2)}          VMR1(V2)}
20          base[0]=base[0];          base[0]=base[0];
21          return Cnil;          return Cnil;
22  }  }
23  /*      local entry for function progn 'compile2205     */  /*      local entry for function progn 'compile2207     */
24    
25  static object LI2()  static object LI2()
26    
27  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
28          goto TTL;          goto TTL;
29  TTL:;  TTL:;
30          {register object x= VV[0],V3= symbol_value(VV[1]);          {register object x= VV[0],V3= (VV[1]->s.s_dbind);
31          while(!endp(V3))          while(V3!=Cnil)
32          if(eql(x,V3->c.c_car)){          if(eql(x,V3->c.c_car)){
33          goto T8;          goto T8;
34          }else V3=V3->c.c_cdr;          }else V3=V3->c.c_cdr;
35          goto T5;}          goto T5;}
36          goto T8;          goto T8;
37  T8:;  T8:;
38          {register object x= VV[2],V4= symbol_value(VV[1]);          {register object x= VV[2],V4= (VV[1]->s.s_dbind);
39          while(!endp(V4))          while(V4!=Cnil)
40          if(eql(x,V4->c.c_car)){          if(eql(x,V4->c.c_car)){
41          goto T9;          goto T9;
42          }else V4=V4->c.c_cdr;          }else V4=V4->c.c_cdr;
# Line 46  T9:; Line 46  T9:;
46          {register object V5;          {register object V5;
47          register object V6;          register object V6;
48          V5= VV[3];          V5= VV[3];
49          V6= car((V5));          V6= CMPcar((V5));
50          goto T14;          goto T14;
51  T14:;  T14:;
52          if(!(endp_prop((V5)))){          if(!(((V5))==Cnil)){
53          goto T15;}          goto T15;}
54          goto T10;          goto T10;
55          goto T15;          goto T15;
# Line 66  T15:; Line 66  T15:;
66          vs_top=sup;          vs_top=sup;
67          goto T19;          goto T19;
68  T19:;  T19:;
69          V5= cdr((V5));          V5= CMPcdr((V5));
70          V6= car((V5));          V6= CMPcar((V5));
71          goto T14;}          goto T14;}
72          goto T10;          goto T10;
73  T10:;  T10:;
74          base[0]= VV[2];          base[0]= VV[2];
75          base[1]= symbol_value(VV[1]);          base[1]= (VV[1]->s.s_dbind);
76          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
77          (void) (*Lnk260)();          (void) (*Lnk260)();
78          vs_top=sup;          vs_top=sup;
79          setq(VV[1],vs_base[0]);          (VV[1]->s.s_dbind)= vs_base[0];
80          goto T5;          goto T5;
81  T5:;  T5:;
82          {object V7 = Cnil;          {object V7 = Cnil;
# Line 84  T5:; Line 84  T5:;
84          base[0]=base[0];          base[0]=base[0];
85          return Cnil;          return Cnil;
86  }  }
87  /*      function definition for Defclass WARNING2251    */  /*      function definition for Defclass WARNING2253    */
88    
89  static void L3()  static void L3()
90  {register object *base=vs_base;  {register object *base=vs_base;
91          register object *sup=base+VM3; VC3          register object *sup=base+VM3; VC3
92          vs_reserve(VM3);          vs_check;
         check_arg(0);  
93          vs_top=sup;          vs_top=sup;
94          goto TTL;          goto TTL;
95  TTL:;  TTL:;
# Line 103  TTL:; Line 102  TTL:;
102          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
103          return;          return;
104  }  }
105  /*      local entry for function progn 'compile2267     */  /*      local entry for function progn 'compile2269     */
106    
107  static object LI4()  static object LI4()
108    
# Line 118  TTL:; Line 117  TTL:;
117          base[0]=base[0];          base[0]=base[0];
118          return Cnil;          return Cnil;
119  }  }
120  /*      local entry for function progn 'compile2284     */  /*      local entry for function progn 'compile2286     */
121    
122  static object LI5()  static object LI5()
123    
# Line 126  static object LI5() Line 125  static object LI5()
125          goto TTL;          goto TTL;
126  TTL:;  TTL:;
127          base[0]= VV[7];          base[0]= VV[7];
128          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
129          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
130          Ladjoin();          Ladjoin();
131          vs_top=sup;          vs_top=sup;
132          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
133          {object V10 = Cnil;          {object V10 = Cnil;
134          VMR5(V10)}          VMR5(V10)}
135          base[0]=base[0];          base[0]=base[0];
136          return Cnil;          return Cnil;
137  }  }
138  /*      local entry for function progn 'compile2308     */  /*      local entry for function progn 'compile2310     */
139    
140  static object LI6()  static object LI6()
141    
# Line 148  TTL:; Line 147  TTL:;
147          VMR6(V11)}          VMR6(V11)}
148          return Cnil;          return Cnil;
149  }  }
150  /*      local entry for function progn 'compile2320     */  /*      local entry for function progn 'compile2322     */
151    
152  static object LI7()  static object LI7()
153    
# Line 159  TTL:; Line 158  TTL:;
158          VMR7(V12)}          VMR7(V12)}
159          return Cnil;          return Cnil;
160  }  }
161  /*      function definition for Defclass SERIOUS-CONDITION2340  */  /*      function definition for Defclass SERIOUS-CONDITION2342  */
162    
163  static void L8()  static void L8()
164  {register object *base=vs_base;  {register object *base=vs_base;
165          register object *sup=base+VM8; VC8          register object *sup=base+VM8; VC8
166          vs_reserve(VM8);          vs_check;
         check_arg(0);  
167          vs_top=sup;          vs_top=sup;
168          goto TTL;          goto TTL;
169  TTL:;  TTL:;
# Line 178  TTL:; Line 176  TTL:;
176          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
177          return;          return;
178  }  }
179  /*      local entry for function progn 'compile2356     */  /*      local entry for function progn 'compile2358     */
180    
181  static object LI9()  static object LI9()
182    
# Line 193  TTL:; Line 191  TTL:;
191          base[0]=base[0];          base[0]=base[0];
192          return Cnil;          return Cnil;
193  }  }
194  /*      local entry for function progn 'compile2373     */  /*      local entry for function progn 'compile2375     */
195    
196  static object LI10()  static object LI10()
197    
# Line 201  static object LI10() Line 199  static object LI10()
199          goto TTL;          goto TTL;
200  TTL:;  TTL:;
201          base[0]= VV[12];          base[0]= VV[12];
202          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
203          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
204          Ladjoin();          Ladjoin();
205          vs_top=sup;          vs_top=sup;
206          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
207          {object V15 = Cnil;          {object V15 = Cnil;
208          VMR10(V15)}          VMR10(V15)}
209          base[0]=base[0];          base[0]=base[0];
210          return Cnil;          return Cnil;
211  }  }
212  /*      local entry for function progn 'compile2397     */  /*      local entry for function progn 'compile2399     */
213    
214  static object LI11()  static object LI11()
215    
# Line 223  TTL:; Line 221  TTL:;
221          VMR11(V16)}          VMR11(V16)}
222          return Cnil;          return Cnil;
223  }  }
224  /*      local entry for function progn 'compile2409     */  /*      local entry for function progn 'compile2411     */
225    
226  static object LI12()  static object LI12()
227    
# Line 234  TTL:; Line 232  TTL:;
232          VMR12(V17)}          VMR12(V17)}
233          return Cnil;          return Cnil;
234  }  }
235  /*      function definition for Defclass ERROR2429      */  /*      function definition for Defclass ERROR2431      */
236    
237  static void L13()  static void L13()
238  {register object *base=vs_base;  {register object *base=vs_base;
239          register object *sup=base+VM13; VC13          register object *sup=base+VM13; VC13
240          vs_reserve(VM13);          vs_check;
         check_arg(0);  
241          vs_top=sup;          vs_top=sup;
242          goto TTL;          goto TTL;
243  TTL:;  TTL:;
# Line 253  TTL:; Line 250  TTL:;
250          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
251          return;          return;
252  }  }
253  /*      local entry for function progn 'compile2445     */  /*      local entry for function progn 'compile2447     */
254    
255  static object LI14()  static object LI14()
256    
# Line 268  TTL:; Line 265  TTL:;
265          base[0]=base[0];          base[0]=base[0];
266          return Cnil;          return Cnil;
267  }  }
268  /*      local entry for function progn 'compile2462     */  /*      local entry for function progn 'compile2464     */
269    
270  static object LI15()  static object LI15()
271    
# Line 276  static object LI15() Line 273  static object LI15()
273          goto TTL;          goto TTL;
274  TTL:;  TTL:;
275          base[0]= VV[15];          base[0]= VV[15];
276          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
277          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
278          Ladjoin();          Ladjoin();
279          vs_top=sup;          vs_top=sup;
280          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
281          {object V20 = Cnil;          {object V20 = Cnil;
282          VMR15(V20)}          VMR15(V20)}
283          base[0]=base[0];          base[0]=base[0];
284          return Cnil;          return Cnil;
285  }  }
286  /*      local entry for function progn 'compile2486     */  /*      local entry for function progn 'compile2488     */
287    
288  static object LI16()  static object LI16()
289    
# Line 298  TTL:; Line 295  TTL:;
295          VMR16(V21)}          VMR16(V21)}
296          return Cnil;          return Cnil;
297  }  }
298  /*      local entry for function progn 'compile2498     */  /*      local entry for function progn 'compile2500     */
299    
300  static object LI17()  static object LI17()
301    
# Line 330  TTL:; Line 327  TTL:;
327          vs_top=sup;          vs_top=sup;
328          V27= vs_base[0];          V27= vs_base[0];
329           vs_top=base+2;           vs_top=base+2;
330           while(!endp(V27))           while(V27!=Cnil)
331           {vs_push(car(V27));V27=cdr(V27);}           {vs_push((V27)->c.c_car);V27=(V27)->c.c_cdr;}
332          vs_base=base+0;}          vs_base=base+0;}
333          Lformat();          Lformat();
334          vs_top=sup;          vs_top=sup;
# Line 340  TTL:; Line 337  TTL:;
337          base[0]=base[0];          base[0]=base[0];
338          return Cnil;          return Cnil;
339  }  }
340  /*      function definition for Defclass SIMPLE-CONDITION2526   */  /*      function definition for Defclass SIMPLE-CONDITION2528   */
341    
342  static void L19()  static void L19()
343  {register object *base=vs_base;  {register object *base=vs_base;
344          register object *sup=base+VM19; VC19          register object *sup=base+VM19; VC19
345          vs_reserve(VM19);          vs_check;
         check_arg(0);  
346          vs_top=sup;          vs_top=sup;
347          goto TTL;          goto TTL;
348  TTL:;  TTL:;
# Line 355  TTL:; Line 351  TTL:;
351          base[2]= VV[17];          base[2]= VV[17];
352          V29= listA(9,VV[18],VV[19],VV[20],VV[21],VV[22],Cnil,VV[23],VV[24],VV[25]);          V29= listA(9,VV[18],VV[19],VV[20],VV[21],VV[22],Cnil,VV[23],VV[24],VV[25]);
353          base[4]= VV[26];          base[4]= VV[26];
354          base[5]= symbol_function(VV[267]);          base[5]= (VV[267]->s.s_gfdef);
355          base[6]= VV[18];          base[6]= VV[18];
356          base[7]= VV[27];          base[7]= VV[27];
357          base[8]= VV[20];          base[8]= VV[20];
# Line 375  TTL:; Line 371  TTL:;
371          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
372          return;          return;
373  }  }
374  /*      local entry for function progn 'compile2544     */  /*      local entry for function progn 'compile2546     */
375    
376  static object LI20()  static object LI20()
377    
# Line 390  TTL:; Line 386  TTL:;
386          base[0]=base[0];          base[0]=base[0];
387          return Cnil;          return Cnil;
388  }  }
389  /*      local entry for function progn 'compile2561     */  /*      local entry for function progn 'compile2563     */
390    
391  static object LI21()  static object LI21()
392    
# Line 398  static object LI21() Line 394  static object LI21()
394          goto TTL;          goto TTL;
395  TTL:;  TTL:;
396          base[0]= VV[31];          base[0]= VV[31];
397          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
398          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
399          Ladjoin();          Ladjoin();
400          vs_top=sup;          vs_top=sup;
401          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
402          {object V33 = Cnil;          {object V33 = Cnil;
403          VMR21(V33)}          VMR21(V33)}
404          base[0]=base[0];          base[0]=base[0];
405          return Cnil;          return Cnil;
406  }  }
407  /*      local entry for function progn 'compile2585     */  /*      local entry for function progn 'compile2587     */
408    
409  static object LI22()  static object LI22()
410    
# Line 420  TTL:; Line 416  TTL:;
416          VMR22(V34)}          VMR22(V34)}
417          return Cnil;          return Cnil;
418  }  }
419  /*      local entry for function progn 'compile2601     */  /*      local entry for function progn 'compile2603     */
420    
421  static object LI23()  static object LI23()
422    
# Line 442  TTL:; Line 438  TTL:;
438  static void L24()  static void L24()
439  {register object *base=vs_base;  {register object *base=vs_base;
440          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
441          vs_reserve(VM24);          vs_check;
442          {object V36;          {object V36;
443          register object V37;          register object V37;
444          register object V38;          register object V38;
445          register object V39;          register object V39;
         check_arg(4);  
446          V36=(base[0]);          V36=(base[0]);
447          V37=(base[1]);          V37=(base[1]);
448          V38=(base[2]);          V38=(base[2]);
# Line 455  static void L24() Line 450  static void L24()
450          vs_top=sup;          vs_top=sup;
451          goto TTL;          goto TTL;
452  TTL:;  TTL:;
453          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
454          goto T107;}          goto T107;}
455          if(((V37))==Cnil){          if(((V37))==Cnil){
456          goto T110;}          goto T110;}
# Line 466  TTL:; Line 461  TTL:;
461          vs_top=sup;          vs_top=sup;
462          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
463          goto T114;}          goto T114;}
464          base[4]= structure_ref((V37),VV[35],0);          base[4]= STREF(object,(V37),0);
465          base[5]= structure_ref((V37),VV[35],1);          base[5]= STREF(object,(V37),4);
466          base[6]= structure_ref((V37),VV[35],2);          base[6]= STREF(object,(V37),8);
467          base[7]= (V38);          base[7]= (V38);
468          base[8]= (V39);          base[8]= (V39);
469          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
# Line 487  T114:; Line 482  T114:;
482          goto T128;          goto T128;
483          goto T130;          goto T130;
484  T130:;  T130:;
485          base[4]= V38;          if(!(((V38)->str.str_def)==(VV[36]))){
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk271)();  
         vs_top=sup;  
         V44= vs_base[0];  
         if(!((V44)==(VV[36]))){  
486          goto T128;}          goto T128;}
487          V42= structure_ref((V38),VV[37],1);          V42= STREF(object,(V38),4);
488          goto T126;          goto T126;
489          goto T128;          goto T128;
490  T128:;{object V45;  T128:;{object V44;
491          V45= symbol_value(VV[38]);          V44= (VV[38]->s.s_dbind);
492          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
493          base[5]= (V38);          base[5]= (V38);
494          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
495          (void) (*Lnk272)();          (void) (*Lnk271)();
496          vs_top=sup;          vs_top=sup;
497          V46= vs_base[0];          V45= vs_base[0];
498          if(!((V45)==(car(V46)))){          if(!((V44)==(CMPcar(V45)))){
499          goto T135;}}          goto T133;}}
500          V42= car(((V38))->cc.cc_turbo[12]);          V42= CMPcar(((V38))->cc.cc_turbo[12]);
501          goto T126;          goto T126;
502          goto T135;          goto T133;
503  T135:;  T133:;
504          V42= Cnil;          V42= Cnil;
505          goto T126;          goto T126;
506  T126:;  T126:;
507          if(((V42))==Cnil){          if(((V42))==Cnil){
508          goto T141;}          goto T139;}
509          base[4]= aset1((V42),fix((V37)),V38);          base[4]= ((V42))->v.v_self[fix((V37))]= (V38);
510          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
511          return;          return;
512          goto T141;          goto T139;
513  T141:;  T139:;
514          base[4]= Cnil;          base[4]= Cnil;
515          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
516          return;}          return;}
517          goto T124;          goto T124;
518  T124:;  T124:;
519          {register object V48;          {register object V47;
520          V48= V37;          V47= V37;
521          base[4]= (V48);          base[4]= (V47);
522          base[5]= VV[39];          base[5]= VV[39];
523          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
524          (void) (*Lnk270)();          (void) (*Lnk270)();
525          vs_top=sup;          vs_top=sup;
526          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
527          goto T144;}          goto T142;}
528          {object V49;          {object V48;
529          object V50;          object V49;
530          register object V51;          register object V50;
531          V49= structure_ref((V37),VV[39],0);          V48= STREF(object,(V37),0);
532          V50= list(2,(V38),(V39));          V49= list(2,(V38),(V39));
533          V51= structure_ref((V37),VV[39],1);          V50= STREF(object,(V37),4);
534          if(((V51))==Cnil){          if(((V50))==Cnil){
535          goto T152;}          goto T150;}
536          if((cdr((V51)))!=Cnil){          if((CMPcdr((V50)))!=Cnil){
537          goto T152;}          goto T150;}
538          base[4]= (V50);          base[4]= (V49);
539          base[5]= car((V51));          base[5]= CMPcar((V50));
540          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
541          {object _funobj = (V49);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V48);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
542                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
543                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
544                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
545          return;          return;
546          goto T152;          goto T150;
547  T152:;  T150:;
548          base[4]= (V49);          base[4]= (V48);
549          base[5]= (V50);          base[5]= (V49);
550          {object V52;          {object V51;
551          V52= (V51);          V51= (V50);
552           vs_top=base+6;           vs_top=base+6;
553           while(!endp(V52))           while(V51!=Cnil)
554           {vs_push(car(V52));V52=cdr(V52);}           {vs_push((V51)->c.c_car);V51=(V51)->c.c_cdr;}
555          vs_base=base+5;}          vs_base=base+5;}
556          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
557                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
558                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
559                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
560          return;}          return;}
561          goto T144;          goto T142;
562  T144:;  T142:;
563          base[4]= (V48);          base[4]= (V47);
564          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
565          Lfunctionp();          Lfunctionp();
566          vs_top=sup;          vs_top=sup;
567          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
568          goto T162;}          goto T160;}
569          base[4]= (V38);          base[4]= (V38);
570          base[5]= (V39);          base[5]= (V39);
571          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
# Line 584  T144:; Line 574  T144:;
574                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
575                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
576          return;          return;
577          goto T162;          goto T160;
578  T162:;  T160:;
579          base[4]= VV[40];          base[4]= VV[40];
580          base[5]= VV[18];          base[5]= VV[18];
581          base[6]= VV[41];          base[6]= VV[41];
# Line 602  T162:; Line 592  T162:;
592  T110:;  T110:;
593          base[4]= VV[47];          base[4]= VV[47];
594          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
595          (void) (*Lnk273)();          (void) (*Lnk272)();
596          return;          return;
597          goto T107;          goto T107;
598  T107:;  T107:;
599          base[4]= (*(LnkLI274))((V38),(V39));          base[4]= (*(LnkLI273))((V38),(V39));
600          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
601          return;          return;
602          }          }
603  }  }
604  /*      local entry for function progn 'compile2794     */  /*      local entry for function progn 'compile2796     */
605    
606  static object LI25()  static object LI25()
607    
# Line 623  TTL:; Line 613  TTL:;
613          base[2]= Cnil;          base[2]= Cnil;
614          base[3]= VV[49];          base[3]= VV[49];
615          base[4]= VV[50];          base[4]= VV[50];
616          V53= symbol_function(VV[275]);          V52= (VV[274]->s.s_gfdef);
617          base[5]= listA(3,VV[51],V53,VV[52]);          base[5]= listA(3,VV[51],V52,VV[52]);
618          base[6]= Cnil;          base[6]= Cnil;
619          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
620          (void) (*Lnk276)();          (void) (*Lnk275)();
621          vs_top=sup;          vs_top=sup;
622          {object V54 = Cnil;          {object V53 = Cnil;
623          VMR25(V54)}          VMR25(V53)}
624          base[0]=base[0];          base[0]=base[0];
625          return Cnil;          return Cnil;
626  }  }
627  /*      local entry for function progn 'compile2802     */  /*      local entry for function progn 'compile2804     */
628    
629  static object LI26()  static object LI26()
630    
631  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
632          goto TTL;          goto TTL;
633  TTL:;  TTL:;
634          {object V55 = Cnil;          {object V54 = Cnil;
635          VMR26(V55)}          VMR26(V54)}
636          return Cnil;          return Cnil;
637  }  }
638  /*      function definition for Defclass SIMPLE-WARNING2822     */  /*      function definition for Defclass SIMPLE-WARNING2824     */
639    
640  static void L27()  static void L27()
641  {register object *base=vs_base;  {register object *base=vs_base;
642          register object *sup=base+VM27; VC27          register object *sup=base+VM27; VC27
643          vs_reserve(VM27);          vs_check;
         check_arg(0);  
644          vs_top=sup;          vs_top=sup;
645          goto TTL;          goto TTL;
646  TTL:;  TTL:;
# Line 664  TTL:; Line 653  TTL:;
653          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
654          return;          return;
655  }  }
656  /*      local entry for function progn 'compile2838     */  /*      local entry for function progn 'compile2840     */
657    
658  static object LI28()  static object LI28()
659    
# Line 672  static object LI28() Line 661  static object LI28()
661          goto TTL;          goto TTL;
662  TTL:;  TTL:;
663          vs_base=vs_top;          vs_base=vs_top;
664          (void) (*Lnk277)();          (void) (*Lnk276)();
665          vs_top=sup;          vs_top=sup;
666          {object V56 = Cnil;          {object V55 = Cnil;
667          VMR28(V56)}          VMR28(V55)}
668          base[0]=base[0];          base[0]=base[0];
669          return Cnil;          return Cnil;
670  }  }
671  /*      local entry for function progn 'compile2855     */  /*      local entry for function progn 'compile2857     */
672    
673  static object LI29()  static object LI29()
674    
# Line 687  static object LI29() Line 676  static object LI29()
676          goto TTL;          goto TTL;
677  TTL:;  TTL:;
678          base[0]= VV[55];          base[0]= VV[55];
679          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
680          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
681          Ladjoin();          Ladjoin();
682          vs_top=sup;          vs_top=sup;
683          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
684          {object V58 = Cnil;          {object V57 = Cnil;
685          VMR29(V58)}          VMR29(V57)}
686          base[0]=base[0];          base[0]=base[0];
687          return Cnil;          return Cnil;
688  }  }
689  /*      local entry for function progn 'compile2879     */  /*      local entry for function progn 'compile2881     */
690    
691  static object LI30()  static object LI30()
692    
# Line 705  static object LI30() Line 694  static object LI30()
694          goto TTL;          goto TTL;
695  TTL:;  TTL:;
696          (void)(sputprop(VV[53],VV[9],Cnil));          (void)(sputprop(VV[53],VV[9],Cnil));
697          {object V59 = Cnil;          {object V58 = Cnil;
698          VMR30(V59)}          VMR30(V58)}
699          return Cnil;          return Cnil;
700  }  }
701  /*      local entry for function progn 'compile2891     */  /*      local entry for function progn 'compile2893     */
702    
703  static object LI31()  static object LI31()
704    
705  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
706          goto TTL;          goto TTL;
707  TTL:;  TTL:;
708          {object V60 = Cnil;          {object V59 = Cnil;
709          VMR31(V60)}          VMR31(V59)}
710          return Cnil;          return Cnil;
711  }  }
712  /*      function definition for Defclass SIMPLE-ERROR2911       */  /*      function definition for Defclass SIMPLE-ERROR2913       */
713    
714  static void L32()  static void L32()
715  {register object *base=vs_base;  {register object *base=vs_base;
716          register object *sup=base+VM32; VC32          register object *sup=base+VM32; VC32
717          vs_reserve(VM32);          vs_check;
         check_arg(0);  
718          vs_top=sup;          vs_top=sup;
719          goto TTL;          goto TTL;
720  TTL:;  TTL:;
# Line 739  TTL:; Line 727  TTL:;
727          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
728          return;          return;
729  }  }
730  /*      local entry for function progn 'compile2927     */  /*      local entry for function progn 'compile2929     */
731    
732  static object LI33()  static object LI33()
733    
# Line 747  static object LI33() Line 735  static object LI33()
735          goto TTL;          goto TTL;
736  TTL:;  TTL:;
737          vs_base=vs_top;          vs_base=vs_top;
738          (void) (*Lnk278)();          (void) (*Lnk277)();
739          vs_top=sup;          vs_top=sup;
740          {object V61 = Cnil;          {object V60 = Cnil;
741          VMR33(V61)}          VMR33(V60)}
742          base[0]=base[0];          base[0]=base[0];
743          return Cnil;          return Cnil;
744  }  }
745  /*      local entry for function progn 'compile2944     */  /*      local entry for function progn 'compile2946     */
746    
747  static object LI34()  static object LI34()
748    
# Line 762  static object LI34() Line 750  static object LI34()
750          goto TTL;          goto TTL;
751  TTL:;  TTL:;
752          base[0]= VV[58];          base[0]= VV[58];
753          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
754          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
755          Ladjoin();          Ladjoin();
756          vs_top=sup;          vs_top=sup;
757          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
758          {object V63 = Cnil;          {object V62 = Cnil;
759          VMR34(V63)}          VMR34(V62)}
760          base[0]=base[0];          base[0]=base[0];
761          return Cnil;          return Cnil;
762  }  }
763  /*      local entry for function progn 'compile2968     */  /*      local entry for function progn 'compile2970     */
764    
765  static object LI35()  static object LI35()
766    
# Line 780  static object LI35() Line 768  static object LI35()
768          goto TTL;          goto TTL;
769  TTL:;  TTL:;
770          (void)(sputprop(VV[56],VV[9],Cnil));          (void)(sputprop(VV[56],VV[9],Cnil));
771          {object V64 = Cnil;          {object V63 = Cnil;
772          VMR35(V64)}          VMR35(V63)}
773          return Cnil;          return Cnil;
774  }  }
775  /*      local entry for function progn 'compile2980     */  /*      local entry for function progn 'compile2982     */
776    
777  static object LI36()  static object LI36()
778    
779  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
780          goto TTL;          goto TTL;
781  TTL:;  TTL:;
782          {object V65 = Cnil;          {object V64 = Cnil;
783          VMR36(V65)}          VMR36(V64)}
784          return Cnil;          return Cnil;
785  }  }
786  /*      function definition for Defclass STORAGE-CONDITION3000  */  /*      function definition for Defclass STORAGE-CONDITION3002  */
787    
788  static void L37()  static void L37()
789  {register object *base=vs_base;  {register object *base=vs_base;
790          register object *sup=base+VM37; VC37          register object *sup=base+VM37; VC37
791          vs_reserve(VM37);          vs_check;
         check_arg(0);  
792          vs_top=sup;          vs_top=sup;
793          goto TTL;          goto TTL;
794  TTL:;  TTL:;
# Line 814  TTL:; Line 801  TTL:;
801          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
802          return;          return;
803  }  }
804  /*      local entry for function progn 'compile3016     */  /*      local entry for function progn 'compile3018     */
805    
806  static object LI38()  static object LI38()
807    
# Line 822  static object LI38() Line 809  static object LI38()
809          goto TTL;          goto TTL;
810  TTL:;  TTL:;
811          vs_base=vs_top;          vs_base=vs_top;
812          (void) (*Lnk279)();          (void) (*Lnk278)();
813          vs_top=sup;          vs_top=sup;
814          {object V66 = Cnil;          {object V65 = Cnil;
815          VMR38(V66)}          VMR38(V65)}
816          base[0]=base[0];          base[0]=base[0];
817          return Cnil;          return Cnil;
818  }  }
819  /*      local entry for function progn 'compile3033     */  /*      local entry for function progn 'compile3035     */
820    
821  static object LI39()  static object LI39()
822    
# Line 837  static object LI39() Line 824  static object LI39()
824          goto TTL;          goto TTL;
825  TTL:;  TTL:;
826          base[0]= VV[61];          base[0]= VV[61];
827          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
828          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
829          Ladjoin();          Ladjoin();
830          vs_top=sup;          vs_top=sup;
831          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
832          {object V68 = Cnil;          {object V67 = Cnil;
833          VMR39(V68)}          VMR39(V67)}
834          base[0]=base[0];          base[0]=base[0];
835          return Cnil;          return Cnil;
836  }  }
837  /*      local entry for function progn 'compile3057     */  /*      local entry for function progn 'compile3059     */
838    
839  static object LI40()  static object LI40()
840    
# Line 855  static object LI40() Line 842  static object LI40()
842          goto TTL;          goto TTL;
843  TTL:;  TTL:;
844          (void)(sputprop(VV[59],VV[9],Cnil));          (void)(sputprop(VV[59],VV[9],Cnil));
845          {object V69 = Cnil;          {object V68 = Cnil;
846          VMR40(V69)}          VMR40(V68)}
847          return Cnil;          return Cnil;
848  }  }
849  /*      local entry for function progn 'compile3069     */  /*      local entry for function progn 'compile3071     */
850    
851  static object LI41()  static object LI41()
852    
853  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
854          goto TTL;          goto TTL;
855  TTL:;  TTL:;
856          {object V70 = Cnil;          {object V69 = Cnil;
857          VMR41(V70)}          VMR41(V69)}
858          return Cnil;          return Cnil;
859  }  }
860  /*      function definition for Defclass STACK-OVERFLOW3089     */  /*      function definition for Defclass STACK-OVERFLOW3091     */
861    
862  static void L42()  static void L42()
863  {register object *base=vs_base;  {register object *base=vs_base;
864          register object *sup=base+VM42; VC42          register object *sup=base+VM42; VC42
865          vs_reserve(VM42);          vs_check;
         check_arg(0);  
866          vs_top=sup;          vs_top=sup;
867          goto TTL;          goto TTL;
868  TTL:;  TTL:;
# Line 889  TTL:; Line 875  TTL:;
875          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
876          return;          return;
877  }  }
878  /*      local entry for function progn 'compile3105     */  /*      local entry for function progn 'compile3107     */
879    
880  static object LI43()  static object LI43()
881    
# Line 897  static object LI43() Line 883  static object LI43()
883          goto TTL;          goto TTL;
884  TTL:;  TTL:;
885          vs_base=vs_top;          vs_base=vs_top;
886          (void) (*Lnk280)();          (void) (*Lnk279)();
887          vs_top=sup;          vs_top=sup;
888          {object V71 = Cnil;          {object V70 = Cnil;
889          VMR43(V71)}          VMR43(V70)}
890          base[0]=base[0];          base[0]=base[0];
891          return Cnil;          return Cnil;
892  }  }
893  /*      local entry for function progn 'compile3122     */  /*      local entry for function progn 'compile3124     */
894    
895  static object LI44()  static object LI44()
896    
# Line 912  static object LI44() Line 898  static object LI44()
898          goto TTL;          goto TTL;
899  TTL:;  TTL:;
900          base[0]= VV[64];          base[0]= VV[64];
901          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
902          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
903          Ladjoin();          Ladjoin();
904          vs_top=sup;          vs_top=sup;
905          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
906          {object V73 = Cnil;          {object V72 = Cnil;
907          VMR44(V73)}          VMR44(V72)}
908          base[0]=base[0];          base[0]=base[0];
909          return Cnil;          return Cnil;
910  }  }
911  /*      local entry for function progn 'compile3146     */  /*      local entry for function progn 'compile3148     */
912    
913  static object LI45()  static object LI45()
914    
# Line 930  static object LI45() Line 916  static object LI45()
916          goto TTL;          goto TTL;
917  TTL:;  TTL:;
918          (void)(sputprop(VV[62],VV[9],Cnil));          (void)(sputprop(VV[62],VV[9],Cnil));
919          {object V74 = Cnil;          {object V73 = Cnil;
920          VMR45(V74)}          VMR45(V73)}
921          return Cnil;          return Cnil;
922  }  }
923  /*      local entry for function progn 'compile3158     */  /*      local entry for function progn 'compile3160     */
924    
925  static object LI46()  static object LI46()
926    
927  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
928          goto TTL;          goto TTL;
929  TTL:;  TTL:;
930          {object V75 = Cnil;          {object V74 = Cnil;
931          VMR46(V75)}          VMR46(V74)}
932          return Cnil;          return Cnil;
933  }  }
934  /*      function definition for Defclass STORAGE-EXHAUSTED3178  */  /*      function definition for Defclass STORAGE-EXHAUSTED3180  */
935    
936  static void L47()  static void L47()
937  {register object *base=vs_base;  {register object *base=vs_base;
938          register object *sup=base+VM47; VC47          register object *sup=base+VM47; VC47
939          vs_reserve(VM47);          vs_check;
         check_arg(0);  
940          vs_top=sup;          vs_top=sup;
941          goto TTL;          goto TTL;
942  TTL:;  TTL:;
# Line 964  TTL:; Line 949  TTL:;
949          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
950          return;          return;
951  }  }
952  /*      local entry for function progn 'compile3194     */  /*      local entry for function progn 'compile3196     */
953    
954  static object LI48()  static object LI48()
955    
# Line 972  static object LI48() Line 957  static object LI48()
957          goto TTL;          goto TTL;
958  TTL:;  TTL:;
959          vs_base=vs_top;          vs_base=vs_top;
960          (void) (*Lnk281)();          (void) (*Lnk280)();
961          vs_top=sup;          vs_top=sup;
962          {object V76 = Cnil;          {object V75 = Cnil;
963          VMR48(V76)}          VMR48(V75)}
964          base[0]=base[0];          base[0]=base[0];
965          return Cnil;          return Cnil;
966  }  }
967  /*      local entry for function progn 'compile3211     */  /*      local entry for function progn 'compile3213     */
968    
969  static object LI49()  static object LI49()
970    
# Line 987  static object LI49() Line 972  static object LI49()
972          goto TTL;          goto TTL;
973  TTL:;  TTL:;
974          base[0]= VV[67];          base[0]= VV[67];
975          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
976          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
977          Ladjoin();          Ladjoin();
978          vs_top=sup;          vs_top=sup;
979          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
980          {object V78 = Cnil;          {object V77 = Cnil;
981          VMR49(V78)}          VMR49(V77)}
982          base[0]=base[0];          base[0]=base[0];
983          return Cnil;          return Cnil;
984  }  }
985  /*      local entry for function progn 'compile3235     */  /*      local entry for function progn 'compile3237     */
986    
987  static object LI50()  static object LI50()
988    
# Line 1005  static object LI50() Line 990  static object LI50()
990          goto TTL;          goto TTL;
991  TTL:;  TTL:;
992          (void)(sputprop(VV[65],VV[9],Cnil));          (void)(sputprop(VV[65],VV[9],Cnil));
993          {object V79 = Cnil;          {object V78 = Cnil;
994          VMR50(V79)}          VMR50(V78)}
995          return Cnil;          return Cnil;
996  }  }
997  /*      local entry for function progn 'compile3247     */  /*      local entry for function progn 'compile3249     */
998    
999  static object LI51()  static object LI51()
1000    
1001  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
1002          goto TTL;          goto TTL;
1003  TTL:;  TTL:;
1004          {object V80 = Cnil;          {object V79 = Cnil;
1005          VMR51(V80)}          VMR51(V79)}
1006          return Cnil;          return Cnil;
1007  }  }
1008  /*      function definition for Defclass TYPE-ERROR3267 */  /*      function definition for Defclass TYPE-ERROR3269 */
1009    
1010  static void L52()  static void L52()
1011  {register object *base=vs_base;  {register object *base=vs_base;
1012          register object *sup=base+VM52; VC52          register object *sup=base+VM52; VC52
1013          vs_reserve(VM52);          vs_check;
         check_arg(0);  
1014          vs_top=sup;          vs_top=sup;
1015          goto TTL;          goto TTL;
1016  TTL:;  TTL:;
1017          base[0]= VV[68];          base[0]= VV[68];
1018          base[1]= VV[5];          base[1]= VV[5];
1019          base[2]= VV[69];          base[2]= VV[69];
1020          V81= listA(9,VV[18],VV[70],VV[20],VV[71],VV[22],Cnil,VV[23],VV[72],Cnil);          V80= listA(9,VV[18],VV[70],VV[20],VV[71],VV[22],Cnil,VV[23],VV[72],Cnil);
1021          base[3]= list(2,/* INLINE-ARGS */V81,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil));          base[3]= list(2,/* INLINE-ARGS */V80,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil));
1022          base[4]= Cnil;          base[4]= Cnil;
1023          base[5]= Cnil;          base[5]= Cnil;
1024          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
1025          return;          return;
1026  }  }
1027  /*      local entry for function progn 'compile3285     */  /*      local entry for function progn 'compile3287     */
1028    
1029  static object LI53()  static object LI53()
1030    
# Line 1048  static object LI53() Line 1032  static object LI53()
1032          goto TTL;          goto TTL;
1033  TTL:;  TTL:;
1034          vs_base=vs_top;          vs_base=vs_top;
1035          (void) (*Lnk282)();          (void) (*Lnk281)();
1036          vs_top=sup;          vs_top=sup;
1037          {object V82 = Cnil;          {object V81 = Cnil;
1038          VMR53(V82)}          VMR53(V81)}
1039          base[0]=base[0];          base[0]=base[0];
1040          return Cnil;          return Cnil;
1041  }  }
1042  /*      local entry for function progn 'compile3302     */  /*      local entry for function progn 'compile3304     */
1043    
1044  static object LI54()  static object LI54()
1045    
# Line 1063  static object LI54() Line 1047  static object LI54()
1047          goto TTL;          goto TTL;
1048  TTL:;  TTL:;
1049          base[0]= VV[76];          base[0]= VV[76];
1050          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
1051          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1052          Ladjoin();          Ladjoin();
1053          vs_top=sup;          vs_top=sup;
1054          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
1055          {object V84 = Cnil;          {object V83 = Cnil;
1056          VMR54(V84)}          VMR54(V83)}
1057          base[0]=base[0];          base[0]=base[0];
1058          return Cnil;          return Cnil;
1059  }  }
1060  /*      local entry for function progn 'compile3326     */  /*      local entry for function progn 'compile3328     */
1061    
1062  static object LI55()  static object LI55()
1063    
# Line 1081  static object LI55() Line 1065  static object LI55()
1065          goto TTL;          goto TTL;
1066  TTL:;  TTL:;
1067          (void)(sputprop(VV[68],VV[9],Cnil));          (void)(sputprop(VV[68],VV[9],Cnil));
1068          {object V85 = Cnil;          {object V84 = Cnil;
1069          VMR55(V85)}          VMR55(V84)}
1070          return Cnil;          return Cnil;
1071  }  }
1072  /*      local entry for function progn 'compile3342     */  /*      local entry for function progn 'compile3344     */
1073    
1074  static object LI56()  static object LI56()
1075    
# Line 1097  TTL:; Line 1081  TTL:;
1081          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1082          (void) (*Lnk269)();          (void) (*Lnk269)();
1083          vs_top=sup;          vs_top=sup;
1084          {object V86 = Cnil;          {object V85 = Cnil;
1085          VMR56(V86)}          VMR56(V85)}
1086          base[0]=base[0];          base[0]=base[0];
1087          return Cnil;          return Cnil;
1088  }  }
# Line 1107  TTL:; Line 1091  TTL:;
1091  static void L57()  static void L57()
1092  {register object *base=vs_base;  {register object *base=vs_base;
1093          register object *sup=base+VM57; VC57          register object *sup=base+VM57; VC57
1094          vs_reserve(VM57);          vs_check;
1095          {object V87;          {object V86;
1096            register object V87;
1097          register object V88;          register object V88;
1098          register object V89;          register object V89;
1099          register object V90;          V86=(base[0]);
1100          check_arg(4);          V87=(base[1]);
1101          V87=(base[0]);          V88=(base[2]);
1102          V88=(base[1]);          V89=(base[3]);
         V89=(base[2]);  
         V90=(base[3]);  
1103          vs_top=sup;          vs_top=sup;
1104          goto TTL;          goto TTL;
1105  TTL:;  TTL:;
1106          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
1107          goto T271;}          goto T269;}
1108          if(((V88))==Cnil){          if(((V87))==Cnil){
1109          goto T274;}          goto T272;}
1110          base[4]= (V88);          base[4]= (V87);
1111          base[5]= VV[35];          base[5]= VV[35];
1112          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1113          (void) (*Lnk270)();          (void) (*Lnk270)();
1114          vs_top=sup;          vs_top=sup;
1115          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1116          goto T278;}          goto T276;}
1117          base[4]= structure_ref((V88),VV[35],0);          base[4]= STREF(object,(V87),0);
1118          base[5]= structure_ref((V88),VV[35],1);          base[5]= STREF(object,(V87),4);
1119          base[6]= structure_ref((V88),VV[35],2);          base[6]= STREF(object,(V87),8);
1120          base[7]= (V89);          base[7]= (V88);
1121          base[8]= (V90);          base[8]= (V89);
1122          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1123          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1124                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1125                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1126                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1127          return;          return;
1128          goto T278;          goto T276;
1129  T278:;  T276:;
1130          if(!(type_of((V88))==t_fixnum)){          if(!(type_of((V87))==t_fixnum)){
1131          goto T288;}          goto T286;}
1132          {object V93;          {object V92;
1133          if(type_of(V89)==t_structure){          if(type_of(V88)==t_structure){
         goto T294;}  
         goto T292;  
         goto T294;  
 T294:;  
         base[4]= V89;  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk271)();  
         vs_top=sup;  
         V95= vs_base[0];  
         if(!((V95)==(VV[78]))){  
1134          goto T292;}          goto T292;}
         V93= structure_ref((V89),VV[37],1);  
1135          goto T290;          goto T290;
1136          goto T292;          goto T292;
1137  T292:;{object V96;  T292:;
1138          V96= symbol_value(VV[38]);          if(!(((V88)->str.str_def)==(VV[78]))){
1139            goto T290;}
1140            V92= STREF(object,(V88),4);
1141            goto T288;
1142            goto T290;
1143    T290:;{object V94;
1144            V94= (VV[38]->s.s_dbind);
1145          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
1146          base[5]= (V89);          base[5]= (V88);
1147          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1148          (void) (*Lnk272)();          (void) (*Lnk271)();
1149          vs_top=sup;          vs_top=sup;
1150          V97= vs_base[0];          V95= vs_base[0];
1151          if(!((V96)==(car(V97)))){          if(!((V94)==(CMPcar(V95)))){
1152          goto T299;}}          goto T295;}}
1153          V93= car(((V89))->cc.cc_turbo[12]);          V92= CMPcar(((V88))->cc.cc_turbo[12]);
1154          goto T290;          goto T288;
1155          goto T299;          goto T295;
1156  T299:;  T295:;
1157          V93= Cnil;          V92= Cnil;
1158          goto T290;          goto T288;
1159  T290:;  T288:;
1160          if(((V93))==Cnil){          if(((V92))==Cnil){
1161          goto T305;}          goto T301;}
1162          base[4]= aset1((V93),fix((V88)),V89);          base[4]= ((V92))->v.v_self[fix((V87))]= (V88);
1163          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1164          return;          return;
1165          goto T305;          goto T301;
1166  T305:;  T301:;
1167          base[4]= Cnil;          base[4]= Cnil;
1168          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1169          return;}          return;}
1170          goto T288;          goto T286;
1171  T288:;  T286:;
1172          {register object V99;          {register object V97;
1173          V99= V88;          V97= V87;
1174          base[4]= (V99);          base[4]= (V97);
1175          base[5]= VV[39];          base[5]= VV[39];
1176          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1177          (void) (*Lnk270)();          (void) (*Lnk270)();
1178          vs_top=sup;          vs_top=sup;
1179          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1180          goto T308;}          goto T304;}
1181          {object V100;          {object V98;
1182          object V101;          object V99;
1183          register object V102;          register object V100;
1184          V100= structure_ref((V88),VV[39],0);          V98= STREF(object,(V87),0);
1185          V101= list(2,(V89),(V90));          V99= list(2,(V88),(V89));
1186          V102= structure_ref((V88),VV[39],1);          V100= STREF(object,(V87),4);
1187          if(((V102))==Cnil){          if(((V100))==Cnil){
1188          goto T316;}          goto T312;}
1189          if((cdr((V102)))!=Cnil){          if((CMPcdr((V100)))!=Cnil){
1190          goto T316;}          goto T312;}
1191          base[4]= (V101);          base[4]= (V99);
1192          base[5]= car((V102));          base[5]= CMPcar((V100));
1193          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1194          {object _funobj = (V100);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V98);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1195                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1196                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1197                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1198          return;          return;
1199          goto T316;          goto T312;
1200  T316:;  T312:;
1201          base[4]= (V100);          base[4]= (V98);
1202          base[5]= (V101);          base[5]= (V99);
1203          {object V103;          {object V101;
1204          V103= (V102);          V101= (V100);
1205           vs_top=base+6;           vs_top=base+6;
1206           while(!endp(V103))           while(V101!=Cnil)
1207           {vs_push(car(V103));V103=cdr(V103);}           {vs_push((V101)->c.c_car);V101=(V101)->c.c_cdr;}
1208          vs_base=base+5;}          vs_base=base+5;}
1209          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1210                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1211                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1212                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1213          return;}          return;}
1214          goto T308;          goto T304;
1215  T308:;  T304:;
1216          base[4]= (V99);          base[4]= (V97);
1217          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1218          Lfunctionp();          Lfunctionp();
1219          vs_top=sup;          vs_top=sup;
1220          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1221          goto T326;}          goto T322;}
1222          base[4]= (V89);          base[4]= (V88);
1223          base[5]= (V90);          base[5]= (V89);
1224          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1225          {object _funobj = (V88);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V87);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1226                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1227                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1228                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1229          return;          return;
1230          goto T326;          goto T322;
1231  T326:;  T322:;
1232          base[4]= VV[40];          base[4]= VV[40];
1233          base[5]= VV[18];          base[5]= VV[18];
1234          base[6]= VV[41];          base[6]= VV[41];
1235          base[7]= VV[42];          base[7]= VV[42];
1236          base[8]= V88;          base[8]= V87;
1237          base[9]= VV[43];          base[9]= VV[43];
1238          base[10]= VV[79];          base[10]= VV[79];
1239          base[11]= VV[45];          base[11]= VV[45];
# Line 1263  T326:; Line 1241  T326:;
1241          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
1242          (void) (*Lnk13)();          (void) (*Lnk13)();
1243          return;}          return;}
1244          goto T274;          goto T272;
1245  T274:;  T272:;
1246          base[4]= VV[47];          base[4]= VV[47];
1247          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1248          (void) (*Lnk273)();          (void) (*Lnk272)();
1249          return;          return;
1250          goto T271;          goto T269;
1251  T271:;  T269:;
1252          base[4]= V90;          base[4]= V89;
1253          base[5]= VV[81];          base[5]= VV[81];
1254          base[7]= V89;          base[7]= V88;
1255          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1256          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk282)(Lclptr282);
1257          vs_top=sup;          vs_top=sup;
1258          base[6]= vs_base[0];          base[6]= vs_base[0];
1259          base[8]= V89;          base[8]= V88;
1260          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1261          (void) (*Lnk284)(Lclptr284);          (void) (*Lnk283)(Lclptr283);
1262          vs_top=sup;          vs_top=sup;
1263          base[7]= vs_base[0];          base[7]= vs_base[0];
1264          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
# Line 1288  T271:; Line 1266  T271:;
1266          return;          return;
1267          }          }
1268  }  }
1269  /*      local entry for function progn 'compile3539     */  /*      local entry for function progn 'compile3541     */
1270    
1271  static object LI58()  static object LI58()
1272    
# Line 1300  TTL:; Line 1278  TTL:;
1278          base[2]= Cnil;          base[2]= Cnil;
1279          base[3]= VV[82];          base[3]= VV[82];
1280          base[4]= VV[83];          base[4]= VV[83];
1281          V106= symbol_function(VV[285]);          V104= (VV[284]->s.s_gfdef);
1282          base[5]= listA(3,VV[51],V106,VV[84]);          base[5]= listA(3,VV[51],V104,VV[84]);
1283          base[6]= Cnil;          base[6]= Cnil;
1284          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1285          (void) (*Lnk276)();          (void) (*Lnk275)();
1286          vs_top=sup;          vs_top=sup;
1287          {object V107 = Cnil;          {object V105 = Cnil;
1288          VMR58(V107)}          VMR58(V105)}
1289          base[0]=base[0];          base[0]=base[0];
1290          return Cnil;          return Cnil;
1291  }  }
1292  /*      local entry for function progn 'compile3547     */  /*      local entry for function progn 'compile3549     */
1293    
1294  static object LI59()  static object LI59()
1295    
1296  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
1297          goto TTL;          goto TTL;
1298  TTL:;  TTL:;
1299          {object V108 = Cnil;          {object V106 = Cnil;
1300          VMR59(V108)}          VMR59(V106)}
1301          return Cnil;          return Cnil;
1302  }  }
1303  /*      function definition for Defclass SIMPLE-TYPE-ERROR3567  */  /*      function definition for Defclass SIMPLE-TYPE-ERROR3569  */
1304    
1305  static void L60()  static void L60()
1306  {register object *base=vs_base;  {register object *base=vs_base;
1307          register object *sup=base+VM60; VC60          register object *sup=base+VM60; VC60
1308          vs_reserve(VM60);          vs_check;
         check_arg(0);  
1309          vs_top=sup;          vs_top=sup;
1310          goto TTL;          goto TTL;
1311  TTL:;  TTL:;
# Line 1341  TTL:; Line 1318  TTL:;
1318          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
1319          return;          return;
1320  }  }
1321  /*      local entry for function progn 'compile3583     */  /*      local entry for function progn 'compile3585     */
1322    
1323  static object LI61()  static object LI61()
1324    
# Line 1349  static object LI61() Line 1326  static object LI61()
1326          goto TTL;          goto TTL;
1327  TTL:;  TTL:;
1328          vs_base=vs_top;          vs_base=vs_top;
1329          (void) (*Lnk286)();          (void) (*Lnk285)();
1330          vs_top=sup;          vs_top=sup;
1331          {object V109 = Cnil;          {object V107 = Cnil;
1332          VMR61(V109)}          VMR61(V107)}
1333          base[0]=base[0];          base[0]=base[0];
1334          return Cnil;          return Cnil;
1335  }  }
1336  /*      local entry for function progn 'compile3600     */  /*      local entry for function progn 'compile3602     */
1337    
1338  static object LI62()  static object LI62()
1339    
# Line 1364  static object LI62() Line 1341  static object LI62()
1341          goto TTL;          goto TTL;
1342  TTL:;  TTL:;
1343          base[0]= VV[87];          base[0]= VV[87];
1344          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
1345          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1346          Ladjoin();          Ladjoin();
1347          vs_top=sup;          vs_top=sup;
1348          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
1349          {object V111 = Cnil;          {object V109 = Cnil;
1350          VMR62(V111)}          VMR62(V109)}
1351          base[0]=base[0];          base[0]=base[0];
1352          return Cnil;          return Cnil;
1353  }  }
1354  /*      local entry for function progn 'compile3624     */  /*      local entry for function progn 'compile3626     */
1355    
1356  static object LI63()  static object LI63()
1357    
# Line 1382  static object LI63() Line 1359  static object LI63()
1359          goto TTL;          goto TTL;
1360  TTL:;  TTL:;
1361          (void)(sputprop(VV[85],VV[9],Cnil));          (void)(sputprop(VV[85],VV[9],Cnil));
1362          {object V112 = Cnil;          {object V110 = Cnil;
1363          VMR63(V112)}          VMR63(V110)}
1364          return Cnil;          return Cnil;
1365  }  }
1366  /*      local entry for function progn 'compile3636     */  /*      local entry for function progn 'compile3638     */
1367    
1368  static object LI64()  static object LI64()
1369    
1370  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
1371          goto TTL;          goto TTL;
1372  TTL:;  TTL:;
1373          {object V113 = Cnil;          {object V111 = Cnil;
1374          VMR64(V113)}          VMR64(V111)}
1375          return Cnil;          return Cnil;
1376  }  }
1377  /*      function definition for Defclass CASE-FAILURE3656       */  /*      function definition for Defclass CASE-FAILURE3658       */
1378    
1379  static void L65()  static void L65()
1380  {register object *base=vs_base;  {register object *base=vs_base;
1381          register object *sup=base+VM65; VC65          register object *sup=base+VM65; VC65
1382          vs_reserve(VM65);          vs_check;
         check_arg(0);  
1383          vs_top=sup;          vs_top=sup;
1384          goto TTL;          goto TTL;
1385  TTL:;  TTL:;
1386          base[0]= VV[40];          base[0]= VV[40];
1387          base[1]= VV[5];          base[1]= VV[5];
1388          base[2]= VV[88];          base[2]= VV[88];
1389          V114= listA(9,VV[18],VV[89],VV[20],VV[90],VV[22],Cnil,VV[23],VV[91],Cnil);          V112= listA(9,VV[18],VV[89],VV[20],VV[90],VV[22],Cnil,VV[23],VV[91],Cnil);
1390          base[3]= list(2,/* INLINE-ARGS */V114,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil));          base[3]= list(2,/* INLINE-ARGS */V112,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil));
1391          base[4]= Cnil;          base[4]= Cnil;
1392          base[5]= Cnil;          base[5]= Cnil;
1393          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
1394          return;          return;
1395  }  }
1396  /*      local entry for function progn 'compile3674     */  /*      local entry for function progn 'compile3676     */
1397    
1398  static object LI66()  static object LI66()
1399    
# Line 1425  static object LI66() Line 1401  static object LI66()
1401          goto TTL;          goto TTL;
1402  TTL:;  TTL:;
1403          vs_base=vs_top;          vs_base=vs_top;
1404          (void) (*Lnk287)();          (void) (*Lnk286)();
1405          vs_top=sup;          vs_top=sup;
1406          {object V115 = Cnil;          {object V113 = Cnil;
1407          VMR66(V115)}          VMR66(V113)}
1408          base[0]=base[0];          base[0]=base[0];
1409          return Cnil;          return Cnil;
1410  }  }
1411  /*      local entry for function progn 'compile3691     */  /*      local entry for function progn 'compile3693     */
1412    
1413  static object LI67()  static object LI67()
1414    
# Line 1440  static object LI67() Line 1416  static object LI67()
1416          goto TTL;          goto TTL;
1417  TTL:;  TTL:;
1418          base[0]= VV[95];          base[0]= VV[95];
1419          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
1420          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1421          Ladjoin();          Ladjoin();
1422          vs_top=sup;          vs_top=sup;
1423          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
1424          {object V117 = Cnil;          {object V115 = Cnil;
1425          VMR67(V117)}          VMR67(V115)}
1426          base[0]=base[0];          base[0]=base[0];
1427          return Cnil;          return Cnil;
1428  }  }
1429  /*      local entry for function progn 'compile3715     */  /*      local entry for function progn 'compile3717     */
1430    
1431  static object LI68()  static object LI68()
1432    
# Line 1458  static object LI68() Line 1434  static object LI68()
1434          goto TTL;          goto TTL;
1435  TTL:;  TTL:;
1436          (void)(sputprop(VV[40],VV[9],Cnil));          (void)(sputprop(VV[40],VV[9],Cnil));
1437          {object V118 = Cnil;          {object V116 = Cnil;
1438          VMR68(V118)}          VMR68(V116)}
1439          return Cnil;          return Cnil;
1440  }  }
1441  /*      local entry for function progn 'compile3731     */  /*      local entry for function progn 'compile3733     */
1442    
1443  static object LI69()  static object LI69()
1444    
# Line 1474  TTL:; Line 1450  TTL:;
1450          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1451          (void) (*Lnk269)();          (void) (*Lnk269)();
1452          vs_top=sup;          vs_top=sup;
1453          {object V119 = Cnil;          {object V117 = Cnil;
1454          VMR69(V119)}          VMR69(V117)}
1455          base[0]=base[0];          base[0]=base[0];
1456          return Cnil;          return Cnil;
1457  }  }
# Line 1484  TTL:; Line 1460  TTL:;
1460  static void L70()  static void L70()
1461  {register object *base=vs_base;  {register object *base=vs_base;
1462          register object *sup=base+VM70; VC70          register object *sup=base+VM70; VC70
1463          vs_reserve(VM70);          vs_check;
1464          {object V120;          {object V118;
1465            register object V119;
1466            register object V120;
1467          register object V121;          register object V121;
1468          register object V122;          V118=(base[0]);
1469          register object V123;          V119=(base[1]);
1470          check_arg(4);          V120=(base[2]);
1471          V120=(base[0]);          V121=(base[3]);
         V121=(base[1]);  
         V122=(base[2]);  
         V123=(base[3]);  
1472          vs_top=sup;          vs_top=sup;
1473          goto TTL;          goto TTL;
1474  TTL:;  TTL:;
1475          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
1476          goto T389;}          goto T385;}
1477          if(((V121))==Cnil){          if(((V119))==Cnil){
1478          goto T392;}          goto T388;}
1479          base[4]= (V121);          base[4]= (V119);
1480          base[5]= VV[35];          base[5]= VV[35];
1481          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1482          (void) (*Lnk270)();          (void) (*Lnk270)();
1483          vs_top=sup;          vs_top=sup;
1484          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1485          goto T396;}          goto T392;}
1486          base[4]= structure_ref((V121),VV[35],0);          base[4]= STREF(object,(V119),0);
1487          base[5]= structure_ref((V121),VV[35],1);          base[5]= STREF(object,(V119),4);
1488          base[6]= structure_ref((V121),VV[35],2);          base[6]= STREF(object,(V119),8);
1489          base[7]= (V122);          base[7]= (V120);
1490          base[8]= (V123);          base[8]= (V121);
1491          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1492          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1493                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1494                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1495                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1496          return;          return;
1497          goto T396;          goto T392;
1498  T396:;  T392:;
1499          if(!(type_of((V121))==t_fixnum)){          if(!(type_of((V119))==t_fixnum)){
1500          goto T406;}          goto T402;}
1501          {object V126;          {object V124;
1502          if(type_of(V122)==t_structure){          if(type_of(V120)==t_structure){
1503          goto T412;}          goto T408;}
1504          goto T410;          goto T406;
         goto T412;  
 T412:;  
         base[4]= V122;  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk271)();  
         vs_top=sup;  
         V128= vs_base[0];  
         if(!((V128)==(VV[97]))){  
         goto T410;}  
         V126= structure_ref((V122),VV[37],1);  
1505          goto T408;          goto T408;
1506          goto T410;  T408:;
1507  T410:;{object V129;          if(!(((V120)->str.str_def)==(VV[97]))){
1508          V129= symbol_value(VV[38]);          goto T406;}
1509            V124= STREF(object,(V120),4);
1510            goto T404;
1511            goto T406;
1512    T406:;{object V126;
1513            V126= (VV[38]->s.s_dbind);
1514          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
1515          base[5]= (V122);          base[5]= (V120);
1516          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1517          (void) (*Lnk272)();          (void) (*Lnk271)();
1518          vs_top=sup;          vs_top=sup;
1519          V130= vs_base[0];          V127= vs_base[0];
1520          if(!((V129)==(car(V130)))){          if(!((V126)==(CMPcar(V127)))){
1521          goto T417;}}          goto T411;}}
1522          V126= car(((V122))->cc.cc_turbo[12]);          V124= CMPcar(((V120))->cc.cc_turbo[12]);
1523          goto T408;          goto T404;
1524          goto T417;          goto T411;
1525  T417:;  T411:;
1526          V126= Cnil;          V124= Cnil;
1527          goto T408;          goto T404;
1528  T408:;  T404:;
1529          if(((V126))==Cnil){          if(((V124))==Cnil){
1530          goto T423;}          goto T417;}
1531          base[4]= aset1((V126),fix((V121)),V122);          base[4]= ((V124))->v.v_self[fix((V119))]= (V120);
1532          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1533          return;          return;
1534          goto T423;          goto T417;
1535  T423:;  T417:;
1536          base[4]= Cnil;          base[4]= Cnil;
1537          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1538          return;}          return;}
1539          goto T406;          goto T402;
1540  T406:;  T402:;
1541          {register object V132;          {register object V129;
1542          V132= V121;          V129= V119;
1543          base[4]= (V132);          base[4]= (V129);
1544          base[5]= VV[39];          base[5]= VV[39];
1545          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1546          (void) (*Lnk270)();          (void) (*Lnk270)();
1547          vs_top=sup;          vs_top=sup;
1548          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1549          goto T426;}          goto T420;}
1550          {object V133;          {object V130;
1551          object V134;          object V131;
1552          register object V135;          register object V132;
1553          V133= structure_ref((V121),VV[39],0);          V130= STREF(object,(V119),0);
1554          V134= list(2,(V122),(V123));          V131= list(2,(V120),(V121));
1555          V135= structure_ref((V121),VV[39],1);          V132= STREF(object,(V119),4);
1556          if(((V135))==Cnil){          if(((V132))==Cnil){
1557          goto T434;}          goto T428;}
1558          if((cdr((V135)))!=Cnil){          if((CMPcdr((V132)))!=Cnil){
1559          goto T434;}          goto T428;}
1560          base[4]= (V134);          base[4]= (V131);
1561          base[5]= car((V135));          base[5]= CMPcar((V132));
1562          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1563          {object _funobj = (V133);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V130);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1564                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1565                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1566                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1567          return;          return;
1568          goto T434;          goto T428;
1569  T434:;  T428:;
1570          base[4]= (V133);          base[4]= (V130);
1571          base[5]= (V134);          base[5]= (V131);
1572          {object V136;          {object V133;
1573          V136= (V135);          V133= (V132);
1574           vs_top=base+6;           vs_top=base+6;
1575           while(!endp(V136))           while(V133!=Cnil)
1576           {vs_push(car(V136));V136=cdr(V136);}           {vs_push((V133)->c.c_car);V133=(V133)->c.c_cdr;}
1577          vs_base=base+5;}          vs_base=base+5;}
1578          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1579                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1580                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1581                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1582          return;}          return;}
1583          goto T426;          goto T420;
1584  T426:;  T420:;
1585          base[4]= (V132);          base[4]= (V129);
1586          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1587          Lfunctionp();          Lfunctionp();
1588          vs_top=sup;          vs_top=sup;
1589          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1590          goto T444;}          goto T438;}
1591          base[4]= (V122);          base[4]= (V120);
1592          base[5]= (V123);          base[5]= (V121);
1593          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1594          {object _funobj = (V121);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V119);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1595                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1596                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1597                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1598          return;          return;
1599          goto T444;          goto T438;
1600  T444:;  T438:;
1601          base[4]= VV[40];          base[4]= VV[40];
1602          base[5]= VV[18];          base[5]= VV[18];
1603          base[6]= VV[41];          base[6]= VV[41];
1604          base[7]= VV[42];          base[7]= VV[42];
1605          base[8]= V121;          base[8]= V119;
1606          base[9]= VV[43];          base[9]= VV[43];
1607          base[10]= VV[98];          base[10]= VV[98];
1608          base[11]= VV[45];          base[11]= VV[45];
# Line 1640  T444:; Line 1610  T444:;
1610          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
1611          (void) (*Lnk13)();          (void) (*Lnk13)();
1612          return;}          return;}
1613          goto T392;          goto T388;
1614  T392:;  T388:;
1615          base[4]= VV[47];          base[4]= VV[47];
1616          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1617          (void) (*Lnk273)();          (void) (*Lnk272)();
1618          return;          return;
1619          goto T389;          goto T385;
1620  T389:;  T385:;
1621          base[4]= V123;          base[4]= V121;
1622          base[5]= VV[100];          base[5]= VV[100];
1623          base[7]= V122;          base[7]= V120;
1624          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1625          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk282)(Lclptr282);
1626          vs_top=sup;          vs_top=sup;
1627          base[6]= vs_base[0];          base[6]= vs_base[0];
1628          base[8]= V122;          base[8]= V120;
1629          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1630          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk287)(Lclptr287);
1631          vs_top=sup;          vs_top=sup;
1632          base[7]= vs_base[0];          base[7]= vs_base[0];
1633          base[9]= V122;          base[9]= V120;
1634          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1635          (void) (*Lnk289)(Lclptr289);          (void) (*Lnk288)(Lclptr288);
1636          vs_top=sup;          vs_top=sup;
1637          base[8]= vs_base[0];          base[8]= vs_base[0];
1638          vs_top=(vs_base=base+4)+5;          vs_top=(vs_base=base+4)+5;
# Line 1670  T389:; Line 1640  T389:;
1640          return;          return;
1641          }          }
1642  }  }
1643  /*      local entry for function progn 'compile3928     */  /*      local entry for function progn 'compile3930     */
1644    
1645  static object LI71()  static object LI71()
1646    
# Line 1682  TTL:; Line 1652  TTL:;
1652          base[2]= Cnil;          base[2]= Cnil;
1653          base[3]= VV[101];          base[3]= VV[101];
1654          base[4]= VV[102];          base[4]= VV[102];
1655          V139= symbol_function(VV[290]);          V136= (VV[289]->s.s_gfdef);
1656          base[5]= listA(3,VV[51],V139,VV[103]);          base[5]= listA(3,VV[51],V136,VV[103]);
1657          base[6]= Cnil;          base[6]= Cnil;
1658          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1659          (void) (*Lnk276)();          (void) (*Lnk275)();
1660          vs_top=sup;          vs_top=sup;
1661          {object V140 = Cnil;          {object V137 = Cnil;
1662          VMR71(V140)}          VMR71(V137)}
1663          base[0]=base[0];          base[0]=base[0];
1664          return Cnil;          return Cnil;
1665  }  }
1666  /*      local entry for function progn 'compile3936     */  /*      local entry for function progn 'compile3938     */
1667    
1668  static object LI72()  static object LI72()
1669    
1670  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
1671          goto TTL;          goto TTL;
1672  TTL:;  TTL:;
1673          {object V141 = Cnil;          {object V138 = Cnil;
1674          VMR72(V141)}          VMR72(V138)}
1675          return Cnil;          return Cnil;
1676  }  }
1677  /*      function definition for Defclass PROGRAM-ERROR3956      */  /*      function definition for Defclass PROGRAM-ERROR3958      */
1678    
1679  static void L73()  static void L73()
1680  {register object *base=vs_base;  {register object *base=vs_base;
1681          register object *sup=base+VM73; VC73          register object *sup=base+VM73; VC73
1682          vs_reserve(VM73);          vs_check;
         check_arg(0);  
1683          vs_top=sup;          vs_top=sup;
1684          goto TTL;          goto TTL;
1685  TTL:;  TTL:;
# Line 1723  TTL:; Line 1692  TTL:;
1692          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
1693          return;          return;
1694  }  }
1695  /*      local entry for function progn 'compile3972     */  /*      local entry for function progn 'compile3974     */
1696    
1697  static object LI74()  static object LI74()
1698    
# Line 1731  static object LI74() Line 1700  static object LI74()
1700          goto TTL;          goto TTL;
1701  TTL:;  TTL:;
1702          vs_base=vs_top;          vs_base=vs_top;
1703          (void) (*Lnk291)();          (void) (*Lnk290)();
1704          vs_top=sup;          vs_top=sup;
1705          {object V142 = Cnil;          {object V139 = Cnil;
1706          VMR74(V142)}          VMR74(V139)}
1707          base[0]=base[0];          base[0]=base[0];
1708          return Cnil;          return Cnil;
1709  }  }
1710  /*      local entry for function progn 'compile3989     */  /*      local entry for function progn 'compile3991     */
1711    
1712  static object LI75()  static object LI75()
1713    
# Line 1746  static object LI75() Line 1715  static object LI75()
1715          goto TTL;          goto TTL;
1716  TTL:;  TTL:;
1717          base[0]= VV[106];          base[0]= VV[106];
1718          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
1719          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1720          Ladjoin();          Ladjoin();
1721          vs_top=sup;          vs_top=sup;
1722          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
1723          {object V144 = Cnil;          {object V141 = Cnil;
1724          VMR75(V144)}          VMR75(V141)}
1725          base[0]=base[0];          base[0]=base[0];
1726          return Cnil;          return Cnil;
1727  }  }
1728  /*      local entry for function progn 'compile4013     */  /*      local entry for function progn 'compile4015     */
1729    
1730  static object LI76()  static object LI76()
1731    
# Line 1764  static object LI76() Line 1733  static object LI76()
1733          goto TTL;          goto TTL;
1734  TTL:;  TTL:;
1735          (void)(sputprop(VV[104],VV[9],Cnil));          (void)(sputprop(VV[104],VV[9],Cnil));
1736          {object V145 = Cnil;          {object V142 = Cnil;
1737          VMR76(V145)}          VMR76(V142)}
1738          return Cnil;          return Cnil;
1739  }  }
1740  /*      local entry for function progn 'compile4025     */  /*      local entry for function progn 'compile4027     */
1741    
1742  static object LI77()  static object LI77()
1743    
1744  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
1745          goto TTL;          goto TTL;
1746  TTL:;  TTL:;
1747          {object V146 = Cnil;          {object V143 = Cnil;
1748          VMR77(V146)}          VMR77(V143)}
1749          return Cnil;          return Cnil;
1750  }  }
1751  /*      function definition for Defclass CONTROL-ERROR4045      */  /*      function definition for Defclass CONTROL-ERROR4047      */
1752    
1753  static void L78()  static void L78()
1754  {register object *base=vs_base;  {register object *base=vs_base;
1755          register object *sup=base+VM78; VC78          register object *sup=base+VM78; VC78
1756          vs_reserve(VM78);          vs_check;
         check_arg(0);  
1757          vs_top=sup;          vs_top=sup;
1758          goto TTL;          goto TTL;
1759  TTL:;  TTL:;
# Line 1798  TTL:; Line 1766  TTL:;
1766          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
1767          return;          return;
1768  }  }
1769  /*      local entry for function progn 'compile4061     */  /*      local entry for function progn 'compile4063     */
1770    
1771  static object LI79()  static object LI79()
1772    
# Line 1806  static object LI79() Line 1774  static object LI79()
1774          goto TTL;          goto TTL;
1775  TTL:;  TTL:;
1776          vs_base=vs_top;          vs_base=vs_top;
1777          (void) (*Lnk292)();          (void) (*Lnk291)();
1778          vs_top=sup;          vs_top=sup;
1779          {object V147 = Cnil;          {object V144 = Cnil;
1780          VMR79(V147)}          VMR79(V144)}
1781          base[0]=base[0];          base[0]=base[0];
1782          return Cnil;          return Cnil;
1783  }  }
1784  /*      local entry for function progn 'compile4078     */  /*      local entry for function progn 'compile4080     */
1785    
1786  static object LI80()  static object LI80()
1787    
# Line 1821  static object LI80() Line 1789  static object LI80()
1789          goto TTL;          goto TTL;
1790  TTL:;  TTL:;
1791          base[0]= VV[109];          base[0]= VV[109];
1792          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
1793          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1794          Ladjoin();          Ladjoin();
1795          vs_top=sup;          vs_top=sup;
1796          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
1797          {object V149 = Cnil;          {object V146 = Cnil;
1798          VMR80(V149)}          VMR80(V146)}
1799          base[0]=base[0];          base[0]=base[0];
1800          return Cnil;          return Cnil;
1801  }  }
1802  /*      local entry for function progn 'compile4102     */  /*      local entry for function progn 'compile4104     */
1803    
1804  static object LI81()  static object LI81()
1805    
# Line 1839  static object LI81() Line 1807  static object LI81()
1807          goto TTL;          goto TTL;
1808  TTL:;  TTL:;
1809          (void)(sputprop(VV[107],VV[9],Cnil));          (void)(sputprop(VV[107],VV[9],Cnil));
1810          {object V150 = Cnil;          {object V147 = Cnil;
1811          VMR81(V150)}          VMR81(V147)}
1812          return Cnil;          return Cnil;
1813  }  }
1814  /*      local entry for function progn 'compile4114     */  /*      local entry for function progn 'compile4116     */
1815    
1816  static object LI82()  static object LI82()
1817    
1818  {        VMB82 VMS82 VMV82  {        VMB82 VMS82 VMV82
1819          goto TTL;          goto TTL;
1820  TTL:;  TTL:;
1821          {object V151 = Cnil;          {object V148 = Cnil;
1822          VMR82(V151)}          VMR82(V148)}
1823          return Cnil;          return Cnil;
1824  }  }
1825  /*      function definition for Defclass STREAM-ERROR4134       */  /*      function definition for Defclass STREAM-ERROR4136       */
1826    
1827  static void L83()  static void L83()
1828  {register object *base=vs_base;  {register object *base=vs_base;
1829          register object *sup=base+VM83; VC83          register object *sup=base+VM83; VC83
1830          vs_reserve(VM83);          vs_check;
         check_arg(0);  
1831          vs_top=sup;          vs_top=sup;
1832          goto TTL;          goto TTL;
1833  TTL:;  TTL:;
1834          base[0]= VV[110];          base[0]= VV[110];
1835          base[1]= VV[5];          base[1]= VV[5];
1836          base[2]= VV[111];          base[2]= VV[111];
1837          V152= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil);          V149= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil);
1838          base[3]= make_cons(/* INLINE-ARGS */V152,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V149,Cnil);
1839          base[4]= Cnil;          base[4]= Cnil;
1840          base[5]= Cnil;          base[5]= Cnil;
1841          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
1842          return;          return;
1843  }  }
1844  /*      local entry for function progn 'compile4151     */  /*      local entry for function progn 'compile4153     */
1845    
1846  static object LI84()  static object LI84()
1847    
# Line 1882  static object LI84() Line 1849  static object LI84()
1849          goto TTL;          goto TTL;
1850  TTL:;  TTL:;
1851          vs_base=vs_top;          vs_base=vs_top;
1852          (void) (*Lnk293)();          (void) (*Lnk292)();
1853          vs_top=sup;          vs_top=sup;
1854          {object V153 = Cnil;          {object V150 = Cnil;
1855          VMR84(V153)}          VMR84(V150)}
1856          base[0]=base[0];          base[0]=base[0];
1857          return Cnil;          return Cnil;
1858  }  }
1859  /*      local entry for function progn 'compile4168     */  /*      local entry for function progn 'compile4170     */
1860    
1861  static object LI85()  static object LI85()
1862    
# Line 1897  static object LI85() Line 1864  static object LI85()
1864          goto TTL;          goto TTL;
1865  TTL:;  TTL:;
1866          base[0]= VV[115];          base[0]= VV[115];
1867          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
1868          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1869          Ladjoin();          Ladjoin();
1870          vs_top=sup;          vs_top=sup;
1871          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
1872          {object V155 = Cnil;          {object V152 = Cnil;
1873          VMR85(V155)}          VMR85(V152)}
1874          base[0]=base[0];          base[0]=base[0];
1875          return Cnil;          return Cnil;
1876  }  }
1877  /*      local entry for function progn 'compile4192     */  /*      local entry for function progn 'compile4194     */
1878    
1879  static object LI86()  static object LI86()
1880    
# Line 1915  static object LI86() Line 1882  static object LI86()
1882          goto TTL;          goto TTL;
1883  TTL:;  TTL:;
1884          (void)(sputprop(VV[110],VV[9],Cnil));          (void)(sputprop(VV[110],VV[9],Cnil));
1885          {object V156 = Cnil;          {object V153 = Cnil;
1886          VMR86(V156)}          VMR86(V153)}
1887          return Cnil;          return Cnil;
1888  }  }
1889  /*      local entry for function progn 'compile4204     */  /*      local entry for function progn 'compile4206     */
1890    
1891  static object LI87()  static object LI87()
1892    
1893  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
1894          goto TTL;          goto TTL;
1895  TTL:;  TTL:;
1896          {object V157 = Cnil;          {object V154 = Cnil;
1897          VMR87(V157)}          VMR87(V154)}
1898          return Cnil;          return Cnil;
1899  }  }
1900  /*      function definition for Defclass END-OF-FILE4224        */  /*      function definition for Defclass END-OF-FILE4226        */
1901    
1902  static void L88()  static void L88()
1903  {register object *base=vs_base;  {register object *base=vs_base;
1904          register object *sup=base+VM88; VC88          register object *sup=base+VM88; VC88
1905          vs_reserve(VM88);          vs_check;
         check_arg(0);  
1906          vs_top=sup;          vs_top=sup;
1907          goto TTL;          goto TTL;
1908  TTL:;  TTL:;
# Line 1949  TTL:; Line 1915  TTL:;
1915          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
1916          return;          return;
1917  }  }
1918  /*      local entry for function progn 'compile4240     */  /*      local entry for function progn 'compile4242     */
1919    
1920  static object LI89()  static object LI89()
1921    
# Line 1957  static object LI89() Line 1923  static object LI89()
1923          goto TTL;          goto TTL;
1924  TTL:;  TTL:;
1925          vs_base=vs_top;          vs_base=vs_top;
1926          (void) (*Lnk294)();          (void) (*Lnk293)();
1927          vs_top=sup;          vs_top=sup;
1928          {object V158 = Cnil;          {object V155 = Cnil;
1929          VMR89(V158)}          VMR89(V155)}
1930          base[0]=base[0];          base[0]=base[0];
1931          return Cnil;          return Cnil;
1932  }  }
1933  /*      local entry for function progn 'compile4257     */  /*      local entry for function progn 'compile4259     */
1934    
1935  static object LI90()  static object LI90()
1936    
# Line 1972  static object LI90() Line 1938  static object LI90()
1938          goto TTL;          goto TTL;
1939  TTL:;  TTL:;
1940          base[0]= VV[118];          base[0]= VV[118];
1941          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
1942          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1943          Ladjoin();          Ladjoin();
1944          vs_top=sup;          vs_top=sup;
1945          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
1946          {object V160 = Cnil;          {object V157 = Cnil;
1947          VMR90(V160)}          VMR90(V157)}
1948          base[0]=base[0];          base[0]=base[0];
1949          return Cnil;          return Cnil;
1950  }  }
1951  /*      local entry for function progn 'compile4281     */  /*      local entry for function progn 'compile4283     */
1952    
1953  static object LI91()  static object LI91()
1954    
# Line 1990  static object LI91() Line 1956  static object LI91()
1956          goto TTL;          goto TTL;
1957  TTL:;  TTL:;
1958          (void)(sputprop(VV[116],VV[9],Cnil));          (void)(sputprop(VV[116],VV[9],Cnil));
1959          {object V161 = Cnil;          {object V158 = Cnil;
1960          VMR91(V161)}          VMR91(V158)}
1961          return Cnil;          return Cnil;
1962  }  }
1963  /*      local entry for function progn 'compile4297     */  /*      local entry for function progn 'compile4299     */
1964    
1965  static object LI92()  static object LI92()
1966    
# Line 2006  TTL:; Line 1972  TTL:;
1972          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1973          (void) (*Lnk269)();          (void) (*Lnk269)();
1974          vs_top=sup;          vs_top=sup;
1975          {object V162 = Cnil;          {object V159 = Cnil;
1976          VMR92(V162)}          VMR92(V159)}
1977          base[0]=base[0];          base[0]=base[0];
1978          return Cnil;          return Cnil;
1979  }  }
# Line 2016  TTL:; Line 1982  TTL:;
1982  static void L93()  static void L93()
1983  {register object *base=vs_base;  {register object *base=vs_base;
1984          register object *sup=base+VM93; VC93          register object *sup=base+VM93; VC93
1985          vs_reserve(VM93);          vs_check;
1986          {object V163;          {object V160;
1987          register object V164;          register object V161;
1988          register object V165;          register object V162;
1989          register object V166;          register object V163;
1990          check_arg(4);          V160=(base[0]);
1991          V163=(base[0]);          V161=(base[1]);
1992          V164=(base[1]);          V162=(base[2]);
1993          V165=(base[2]);          V163=(base[3]);
         V166=(base[3]);  
1994          vs_top=sup;          vs_top=sup;
1995          goto TTL;          goto TTL;
1996  TTL:;  TTL:;
1997          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
1998          goto T535;}          goto T529;}
1999          if(((V164))==Cnil){          if(((V161))==Cnil){
2000          goto T538;}          goto T532;}
2001          base[4]= (V164);          base[4]= (V161);
2002          base[5]= VV[35];          base[5]= VV[35];
2003          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2004          (void) (*Lnk270)();          (void) (*Lnk270)();
2005          vs_top=sup;          vs_top=sup;
2006          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2007          goto T542;}          goto T536;}
2008          base[4]= structure_ref((V164),VV[35],0);          base[4]= STREF(object,(V161),0);
2009          base[5]= structure_ref((V164),VV[35],1);          base[5]= STREF(object,(V161),4);
2010          base[6]= structure_ref((V164),VV[35],2);          base[6]= STREF(object,(V161),8);
2011          base[7]= (V165);          base[7]= (V162);
2012          base[8]= (V166);          base[8]= (V163);
2013          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2014          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2015                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2016                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2017                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2018          return;          return;
2019          goto T542;          goto T536;
2020  T542:;  T536:;
2021          if(!(type_of((V164))==t_fixnum)){          if(!(type_of((V161))==t_fixnum)){
2022            goto T546;}
2023            {object V166;
2024            if(type_of(V162)==t_structure){
2025          goto T552;}          goto T552;}
2026          {object V169;          goto T550;
2027          if(type_of(V165)==t_structure){          goto T552;
2028          goto T558;}  T552:;
2029          goto T556;          if(!(((V162)->str.str_def)==(VV[120]))){
2030          goto T558;          goto T550;}
2031  T558:;          V166= STREF(object,(V162),4);
2032          base[4]= V165;          goto T548;
2033          vs_top=(vs_base=base+4)+1;          goto T550;
2034          (void) (*Lnk271)();  T550:;{object V168;
2035          vs_top=sup;          V168= (VV[38]->s.s_dbind);
         V171= vs_base[0];  
         if(!((V171)==(VV[120]))){  
         goto T556;}  
         V169= structure_ref((V165),VV[37],1);  
         goto T554;  
         goto T556;  
 T556:;{object V172;  
         V172= symbol_value(VV[38]);  
2036          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2037          base[5]= (V165);          base[5]= (V162);
2038          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2039          (void) (*Lnk272)();          (void) (*Lnk271)();
2040          vs_top=sup;          vs_top=sup;
2041          V173= vs_base[0];          V169= vs_base[0];
2042          if(!((V172)==(car(V173)))){          if(!((V168)==(CMPcar(V169)))){
2043          goto T563;}}          goto T555;}}
2044          V169= car(((V165))->cc.cc_turbo[12]);          V166= CMPcar(((V162))->cc.cc_turbo[12]);
2045          goto T554;          goto T548;
2046          goto T563;          goto T555;
2047  T563:;  T555:;
2048          V169= Cnil;          V166= Cnil;
2049          goto T554;          goto T548;
2050  T554:;  T548:;
2051          if(((V169))==Cnil){          if(((V166))==Cnil){
2052          goto T569;}          goto T561;}
2053          base[4]= aset1((V169),fix((V164)),V165);          base[4]= ((V166))->v.v_self[fix((V161))]= (V162);
2054          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2055          return;          return;
2056          goto T569;          goto T561;
2057  T569:;  T561:;
2058          base[4]= Cnil;          base[4]= Cnil;
2059          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2060          return;}          return;}
2061          goto T552;          goto T546;
2062  T552:;  T546:;
2063          {register object V175;          {register object V171;
2064          V175= V164;          V171= V161;
2065          base[4]= (V175);          base[4]= (V171);
2066          base[5]= VV[39];          base[5]= VV[39];
2067          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2068          (void) (*Lnk270)();          (void) (*Lnk270)();
2069          vs_top=sup;          vs_top=sup;
2070          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2071            goto T564;}
2072            {object V172;
2073            object V173;
2074            register object V174;
2075            V172= STREF(object,(V161),0);
2076            V173= list(2,(V162),(V163));
2077            V174= STREF(object,(V161),4);
2078            if(((V174))==Cnil){
2079          goto T572;}          goto T572;}
2080          {object V176;          if((CMPcdr((V174)))!=Cnil){
2081          object V177;          goto T572;}
2082          register object V178;          base[4]= (V173);
2083          V176= structure_ref((V164),VV[39],0);          base[5]= CMPcar((V174));
2084          V177= list(2,(V165),(V166));          vs_top=(vs_base=base+4)+2;
2085          V178= structure_ref((V164),VV[39],1);          {object _funobj = (V172);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
         if(((V178))==Cnil){  
         goto T580;}  
         if((cdr((V178)))!=Cnil){  
         goto T580;}  
         base[4]= (V177);  
         base[5]= car((V178));  
         vs_top=(vs_base=base+4)+2;  
         {object _funobj = (V176);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))  
2086                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2087                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2088                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2089          return;          return;
2090          goto T580;          goto T572;
2091  T580:;  T572:;
2092          base[4]= (V176);          base[4]= (V172);
2093          base[5]= (V177);          base[5]= (V173);
2094          {object V179;          {object V175;
2095          V179= (V178);          V175= (V174);
2096           vs_top=base+6;           vs_top=base+6;
2097           while(!endp(V179))           while(V175!=Cnil)
2098           {vs_push(car(V179));V179=cdr(V179);}           {vs_push((V175)->c.c_car);V175=(V175)->c.c_cdr;}
2099          vs_base=base+5;}          vs_base=base+5;}
2100          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2101                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2102                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2103                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2104          return;}          return;}
2105          goto T572;          goto T564;
2106  T572:;  T564:;
2107          base[4]= (V175);          base[4]= (V171);
2108          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2109          Lfunctionp();          Lfunctionp();
2110          vs_top=sup;          vs_top=sup;
2111          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2112          goto T590;}          goto T582;}
2113          base[4]= (V165);          base[4]= (V162);
2114          base[5]= (V166);          base[5]= (V163);
2115          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2116          {object _funobj = (V164);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V161);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2117                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2118                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2119                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2120          return;          return;
2121          goto T590;          goto T582;
2122  T590:;  T582:;
2123          base[4]= VV[40];          base[4]= VV[40];
2124          base[5]= VV[18];          base[5]= VV[18];
2125          base[6]= VV[41];          base[6]= VV[41];
2126          base[7]= VV[42];          base[7]= VV[42];
2127          base[8]= V164;          base[8]= V161;
2128          base[9]= VV[43];          base[9]= VV[43];
2129          base[10]= VV[121];          base[10]= VV[121];
2130          base[11]= VV[45];          base[11]= VV[45];
# Line 2172  T590:; Line 2132  T590:;
2132          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2133          (void) (*Lnk13)();          (void) (*Lnk13)();
2134          return;}          return;}
2135          goto T538;          goto T532;
2136  T538:;  T532:;
2137          base[4]= VV[47];          base[4]= VV[47];
2138          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2139          (void) (*Lnk273)();          (void) (*Lnk272)();
2140          return;          return;
2141          goto T535;          goto T529;
2142  T535:;  T529:;
2143          base[4]= V166;          base[4]= V163;
2144          base[5]= VV[123];          base[5]= VV[123];
2145          base[7]= V165;          base[7]= V162;
2146          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2147          (void) (*Lnk295)(Lclptr295);          (void) (*Lnk294)(Lclptr294);
2148          vs_top=sup;          vs_top=sup;
2149          base[6]= vs_base[0];          base[6]= vs_base[0];
2150          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 2192  T535:; Line 2152  T535:;
2152          return;          return;
2153          }          }
2154  }  }
2155  /*      local entry for function progn 'compile4494     */  /*      local entry for function progn 'compile4496     */
2156    
2157  static object LI94()  static object LI94()
2158    
# Line 2204  TTL:; Line 2164  TTL:;
2164          base[2]= Cnil;          base[2]= Cnil;
2165          base[3]= VV[124];          base[3]= VV[124];
2166          base[4]= VV[125];          base[4]= VV[125];
2167          V182= symbol_function(VV[296]);          V178= (VV[295]->s.s_gfdef);
2168          base[5]= listA(3,VV[51],V182,VV[126]);          base[5]= listA(3,VV[51],V178,VV[126]);
2169          base[6]= Cnil;          base[6]= Cnil;
2170          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2171          (void) (*Lnk276)();          (void) (*Lnk275)();
2172          vs_top=sup;          vs_top=sup;
2173          {object V183 = Cnil;          {object V179 = Cnil;
2174          VMR94(V183)}          VMR94(V179)}
2175          base[0]=base[0];          base[0]=base[0];
2176          return Cnil;          return Cnil;
2177  }  }
2178  /*      local entry for function progn 'compile4502     */  /*      local entry for function progn 'compile4504     */
2179    
2180  static object LI95()  static object LI95()
2181    
2182  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
2183          goto TTL;          goto TTL;
2184  TTL:;  TTL:;
2185          {object V184 = Cnil;          {object V180 = Cnil;
2186          VMR95(V184)}          VMR95(V180)}
2187          return Cnil;          return Cnil;
2188  }  }
2189  /*      function definition for Defclass FILE-ERROR4522 */  /*      function definition for Defclass FILE-ERROR4524 */
2190    
2191  static void L96()  static void L96()
2192  {register object *base=vs_base;  {register object *base=vs_base;
2193          register object *sup=base+VM96; VC96          register object *sup=base+VM96; VC96
2194          vs_reserve(VM96);          vs_check;
         check_arg(0);  
2195          vs_top=sup;          vs_top=sup;
2196          goto TTL;          goto TTL;
2197  TTL:;  TTL:;
2198          base[0]= VV[127];          base[0]= VV[127];
2199          base[1]= VV[5];          base[1]= VV[5];
2200          base[2]= VV[128];          base[2]= VV[128];
2201          V185= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil);          V181= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil);
2202          base[3]= make_cons(/* INLINE-ARGS */V185,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V181,Cnil);
2203          base[4]= Cnil;          base[4]= Cnil;
2204          base[5]= Cnil;          base[5]= Cnil;
2205          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
2206          return;          return;
2207  }  }
2208  /*      local entry for function progn 'compile4539     */  /*      local entry for function progn 'compile4541     */
2209    
2210  static object LI97()  static object LI97()
2211    
# Line 2254  static object LI97() Line 2213  static object LI97()
2213          goto TTL;          goto TTL;
2214  TTL:;  TTL:;
2215          vs_base=vs_top;          vs_base=vs_top;
2216          (void) (*Lnk297)();          (void) (*Lnk296)();
2217          vs_top=sup;          vs_top=sup;
2218          {object V186 = Cnil;          {object V182 = Cnil;
2219          VMR97(V186)}          VMR97(V182)}
2220          base[0]=base[0];          base[0]=base[0];
2221          return Cnil;          return Cnil;
2222  }  }
2223  /*      local entry for function progn 'compile4556     */  /*      local entry for function progn 'compile4558     */
2224    
2225  static object LI98()  static object LI98()
2226    
# Line 2269  static object LI98() Line 2228  static object LI98()
2228          goto TTL;          goto TTL;
2229  TTL:;  TTL:;
2230          base[0]= VV[132];          base[0]= VV[132];
2231          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
2232          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2233          Ladjoin();          Ladjoin();
2234          vs_top=sup;          vs_top=sup;
2235          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
2236          {object V188 = Cnil;          {object V184 = Cnil;
2237          VMR98(V188)}          VMR98(V184)}
2238          base[0]=base[0];          base[0]=base[0];
2239          return Cnil;          return Cnil;
2240  }  }
2241  /*      local entry for function progn 'compile4580     */  /*      local entry for function progn 'compile4582     */
2242    
2243  static object LI99()  static object LI99()
2244    
# Line 2287  static object LI99() Line 2246  static object LI99()
2246          goto TTL;          goto TTL;
2247  TTL:;  TTL:;
2248          (void)(sputprop(VV[127],VV[9],Cnil));          (void)(sputprop(VV[127],VV[9],Cnil));
2249          {object V189 = Cnil;          {object V185 = Cnil;
2250          VMR99(V189)}          VMR99(V185)}
2251          return Cnil;          return Cnil;
2252  }  }
2253  /*      local entry for function progn 'compile4592     */  /*      local entry for function progn 'compile4594     */
2254    
2255  static object LI100()  static object LI100()
2256    
2257  {        VMB100 VMS100 VMV100  {        VMB100 VMS100 VMV100
2258          goto TTL;          goto TTL;
2259  TTL:;  TTL:;
2260          {object V190 = Cnil;          {object V186 = Cnil;
2261          VMR100(V190)}          VMR100(V186)}
2262          return Cnil;          return Cnil;
2263  }  }
2264  /*      function definition for Defclass PACKAGE-ERROR4612      */  /*      function definition for Defclass PACKAGE-ERROR4614      */
2265    
2266  static void L101()  static void L101()
2267  {register object *base=vs_base;  {register object *base=vs_base;
2268          register object *sup=base+VM101; VC101          register object *sup=base+VM101; VC101
2269          vs_reserve(VM101);          vs_check;
         check_arg(0);  
2270          vs_top=sup;          vs_top=sup;
2271          goto TTL;          goto TTL;
2272  TTL:;  TTL:;
2273          base[0]= VV[133];          base[0]= VV[133];
2274          base[1]= VV[5];          base[1]= VV[5];
2275          base[2]= VV[134];          base[2]= VV[134];
2276          V191= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil);          V187= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil);
2277          base[3]= list(2,/* INLINE-ARGS */V191,listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil));          base[3]= list(2,/* INLINE-ARGS */V187,listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil));
2278          base[4]= Cnil;          base[4]= Cnil;
2279          base[5]= Cnil;          base[5]= Cnil;
2280          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
2281          return;          return;
2282  }  }
2283  /*      local entry for function progn 'compile4630     */  /*      local entry for function progn 'compile4632     */
2284    
2285  static object LI102()  static object LI102()
2286    
# Line 2330  static object LI102() Line 2288  static object LI102()
2288          goto TTL;          goto TTL;
2289  TTL:;  TTL:;
2290          vs_base=vs_top;          vs_base=vs_top;
2291          (void) (*Lnk298)();          (void) (*Lnk297)();
2292          vs_top=sup;          vs_top=sup;
2293          {object V192 = Cnil;          {object V188 = Cnil;
2294          VMR102(V192)}          VMR102(V188)}
2295          base[0]=base[0];          base[0]=base[0];
2296          return Cnil;          return Cnil;
2297  }  }
2298  /*      local entry for function progn 'compile4647     */  /*      local entry for function progn 'compile4649     */
2299    
2300  static object LI103()  static object LI103()
2301    
# Line 2345  static object LI103() Line 2303  static object LI103()
2303          goto TTL;          goto TTL;
2304  TTL:;  TTL:;
2305          base[0]= VV[141];          base[0]= VV[141];
2306          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
2307          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2308          Ladjoin();          Ladjoin();
2309          vs_top=sup;          vs_top=sup;
2310          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
2311          {object V194 = Cnil;          {object V190 = Cnil;
2312          VMR103(V194)}          VMR103(V190)}
2313          base[0]=base[0];          base[0]=base[0];
2314          return Cnil;          return Cnil;
2315  }  }
2316  /*      local entry for function progn 'compile4671     */  /*      local entry for function progn 'compile4673     */
2317    
2318  static object LI104()  static object LI104()
2319    
# Line 2363  static object LI104() Line 2321  static object LI104()
2321          goto TTL;          goto TTL;
2322  TTL:;  TTL:;
2323          (void)(sputprop(VV[133],VV[9],Cnil));          (void)(sputprop(VV[133],VV[9],Cnil));
2324          {object V195 = Cnil;          {object V191 = Cnil;
2325          VMR104(V195)}          VMR104(V191)}
2326          return Cnil;          return Cnil;
2327  }  }
2328  /*      local entry for function progn 'compile4687     */  /*      local entry for function progn 'compile4689     */
2329    
2330  static object LI105()  static object LI105()
2331    
# Line 2379  TTL:; Line 2337  TTL:;
2337          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2338          (void) (*Lnk269)();          (void) (*Lnk269)();
2339          vs_top=sup;          vs_top=sup;
2340          {object V196 = Cnil;          {object V192 = Cnil;
2341          VMR105(V196)}          VMR105(V192)}
2342          base[0]=base[0];          base[0]=base[0];
2343          return Cnil;          return Cnil;
2344  }  }
# Line 2389  TTL:; Line 2347  TTL:;
2347  static void L106()  static void L106()
2348  {register object *base=vs_base;  {register object *base=vs_base;
2349          register object *sup=base+VM106; VC106          register object *sup=base+VM106; VC106
2350          vs_reserve(VM106);          vs_check;
2351          {object V197;          {object V193;
2352          register object V198;          register object V194;
2353          register object V199;          register object V195;
2354          register object V200;          register object V196;
2355          check_arg(4);          V193=(base[0]);
2356          V197=(base[0]);          V194=(base[1]);
2357          V198=(base[1]);          V195=(base[2]);
2358          V199=(base[2]);          V196=(base[3]);
         V200=(base[3]);  
2359          vs_top=sup;          vs_top=sup;
2360          goto TTL;          goto TTL;
2361  TTL:;  TTL:;
2362          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
2363          goto T651;}          goto T643;}
2364          if(((V198))==Cnil){          if(((V194))==Cnil){
2365          goto T654;}          goto T646;}
2366          base[4]= (V198);          base[4]= (V194);
2367          base[5]= VV[35];          base[5]= VV[35];
2368          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2369          (void) (*Lnk270)();          (void) (*Lnk270)();
2370          vs_top=sup;          vs_top=sup;
2371          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2372          goto T658;}          goto T650;}
2373          base[4]= structure_ref((V198),VV[35],0);          base[4]= STREF(object,(V194),0);
2374          base[5]= structure_ref((V198),VV[35],1);          base[5]= STREF(object,(V194),4);
2375          base[6]= structure_ref((V198),VV[35],2);          base[6]= STREF(object,(V194),8);
2376          base[7]= (V199);          base[7]= (V195);
2377          base[8]= (V200);          base[8]= (V196);
2378          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2379          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2380                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2381                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2382                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2383          return;          return;
2384          goto T658;          goto T650;
2385  T658:;  T650:;
2386          if(!(type_of((V198))==t_fixnum)){          if(!(type_of((V194))==t_fixnum)){
2387          goto T668;}          goto T660;}
2388          {object V203;          {object V199;
2389          if(type_of(V199)==t_structure){          if(type_of(V195)==t_structure){
2390          goto T674;}          goto T666;}
2391          goto T672;          goto T664;
2392          goto T674;          goto T666;
2393  T674:;  T666:;
2394          base[4]= V199;          if(!(((V195)->str.str_def)==(VV[143]))){
2395          vs_top=(vs_base=base+4)+1;          goto T664;}
2396          (void) (*Lnk271)();          V199= STREF(object,(V195),4);
2397          vs_top=sup;          goto T662;
2398          V205= vs_base[0];          goto T664;
2399          if(!((V205)==(VV[143]))){  T664:;{object V201;
2400          goto T672;}          V201= (VV[38]->s.s_dbind);
         V203= structure_ref((V199),VV[37],1);  
         goto T670;  
         goto T672;  
 T672:;{object V206;  
         V206= symbol_value(VV[38]);  
2401          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2402          base[5]= (V199);          base[5]= (V195);
2403          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2404          (void) (*Lnk272)();          (void) (*Lnk271)();
2405          vs_top=sup;          vs_top=sup;
2406          V207= vs_base[0];          V202= vs_base[0];
2407          if(!((V206)==(car(V207)))){          if(!((V201)==(CMPcar(V202)))){
2408          goto T679;}}          goto T669;}}
2409          V203= car(((V199))->cc.cc_turbo[12]);          V199= CMPcar(((V195))->cc.cc_turbo[12]);
2410          goto T670;          goto T662;
2411          goto T679;          goto T669;
2412  T679:;  T669:;
2413          V203= Cnil;          V199= Cnil;
2414          goto T670;          goto T662;
2415  T670:;  T662:;
2416          if(((V203))==Cnil){          if(((V199))==Cnil){
2417          goto T685;}          goto T675;}
2418          base[4]= aset1((V203),fix((V198)),V199);          base[4]= ((V199))->v.v_self[fix((V194))]= (V195);
2419          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2420          return;          return;
2421          goto T685;          goto T675;
2422  T685:;  T675:;
2423          base[4]= Cnil;          base[4]= Cnil;
2424          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2425          return;}          return;}
2426          goto T668;          goto T660;
2427  T668:;  T660:;
2428          {register object V209;          {register object V204;
2429          V209= V198;          V204= V194;
2430          base[4]= (V209);          base[4]= (V204);
2431          base[5]= VV[39];          base[5]= VV[39];
2432          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2433          (void) (*Lnk270)();          (void) (*Lnk270)();
2434          vs_top=sup;          vs_top=sup;
2435          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2436          goto T688;}          goto T678;}
2437          {object V210;          {object V205;
2438          object V211;          object V206;
2439          register object V212;          register object V207;
2440          V210= structure_ref((V198),VV[39],0);          V205= STREF(object,(V194),0);
2441          V211= list(2,(V199),(V200));          V206= list(2,(V195),(V196));
2442          V212= structure_ref((V198),VV[39],1);          V207= STREF(object,(V194),4);
2443          if(((V212))==Cnil){          if(((V207))==Cnil){
2444          goto T696;}          goto T686;}
2445          if((cdr((V212)))!=Cnil){          if((CMPcdr((V207)))!=Cnil){
2446          goto T696;}          goto T686;}
2447          base[4]= (V211);          base[4]= (V206);
2448          base[5]= car((V212));          base[5]= CMPcar((V207));
2449          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2450          {object _funobj = (V210);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V205);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2451                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2452                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2453                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2454          return;          return;
2455          goto T696;          goto T686;
2456  T696:;  T686:;
2457          base[4]= (V210);          base[4]= (V205);
2458          base[5]= (V211);          base[5]= (V206);
2459          {object V213;          {object V208;
2460          V213= (V212);          V208= (V207);
2461           vs_top=base+6;           vs_top=base+6;
2462           while(!endp(V213))           while(V208!=Cnil)
2463           {vs_push(car(V213));V213=cdr(V213);}           {vs_push((V208)->c.c_car);V208=(V208)->c.c_cdr;}
2464          vs_base=base+5;}          vs_base=base+5;}
2465          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2466                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2467                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2468                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2469          return;}          return;}
2470          goto T688;          goto T678;
2471  T688:;  T678:;
2472          base[4]= (V209);          base[4]= (V204);
2473          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2474          Lfunctionp();          Lfunctionp();
2475          vs_top=sup;          vs_top=sup;
2476          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2477          goto T706;}          goto T696;}
2478          base[4]= (V199);          base[4]= (V195);
2479          base[5]= (V200);          base[5]= (V196);
2480          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2481          {object _funobj = (V198);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V194);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2482                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2483                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2484                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2485          return;          return;
2486          goto T706;          goto T696;
2487  T706:;  T696:;
2488          base[4]= VV[40];          base[4]= VV[40];
2489          base[5]= VV[18];          base[5]= VV[18];
2490          base[6]= VV[41];          base[6]= VV[41];
2491          base[7]= VV[42];          base[7]= VV[42];
2492          base[8]= V198;          base[8]= V194;
2493          base[9]= VV[43];          base[9]= VV[43];
2494          base[10]= VV[144];          base[10]= VV[144];
2495          base[11]= VV[45];          base[11]= VV[45];
# Line 2545  T706:; Line 2497  T706:;
2497          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2498          (void) (*Lnk13)();          (void) (*Lnk13)();
2499          return;}          return;}
2500          goto T654;          goto T646;
2501  T654:;  T646:;
2502          base[4]= VV[47];          base[4]= VV[47];
2503          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2504          (void) (*Lnk273)();          (void) (*Lnk272)();
2505          return;          return;
2506          goto T651;          goto T643;
2507  T651:;  T643:;
2508          base[4]= V200;          base[4]= V196;
2509          base[5]= VV[146];          base[5]= VV[146];
2510          base[7]= V199;          base[7]= V195;
2511          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2512          (void) (*Lnk299)(Lclptr299);          (void) (*Lnk298)(Lclptr298);
2513          vs_top=sup;          vs_top=sup;
2514          base[6]= vs_base[0];          base[6]= vs_base[0];
2515          base[8]= V199;          base[8]= V195;
2516          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2517          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk299)(Lclptr299);
2518          vs_top=sup;          vs_top=sup;
2519          base[7]= vs_base[0];          base[7]= vs_base[0];
2520          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
# Line 2570  T651:; Line 2522  T651:;
2522          return;          return;
2523          }          }
2524  }  }
2525  /*      local entry for function progn 'compile4884     */  /*      local entry for function progn 'compile4886     */
2526    
2527  static object LI107()  static object LI107()
2528    
# Line 2582  TTL:; Line 2534  TTL:;
2534          base[2]= Cnil;          base[2]= Cnil;
2535          base[3]= VV[147];          base[3]= VV[147];
2536          base[4]= VV[148];          base[4]= VV[148];
2537          V216= symbol_function(VV[301]);          V211= (VV[300]->s.s_gfdef);
2538          base[5]= listA(3,VV[51],V216,VV[149]);          base[5]= listA(3,VV[51],V211,VV[149]);
2539          base[6]= Cnil;          base[6]= Cnil;
2540          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2541          (void) (*Lnk276)();          (void) (*Lnk275)();
2542          vs_top=sup;          vs_top=sup;
2543          {object V217 = Cnil;          {object V212 = Cnil;
2544          VMR107(V217)}          VMR107(V212)}
2545          base[0]=base[0];          base[0]=base[0];
2546          return Cnil;          return Cnil;
2547  }  }
2548  /*      local entry for function progn 'compile4892     */  /*      local entry for function progn 'compile4894     */
2549    
2550  static object LI108()  static object LI108()
2551    
2552  {        VMB108 VMS108 VMV108  {        VMB108 VMS108 VMV108
2553          goto TTL;          goto TTL;
2554  TTL:;  TTL:;
2555          {object V218 = Cnil;          {object V213 = Cnil;
2556          VMR108(V218)}          VMR108(V213)}
2557          return Cnil;          return Cnil;
2558  }  }
2559  /*      function definition for Defclass CELL-ERROR4912 */  /*      function definition for Defclass CELL-ERROR4914 */
2560    
2561  static void L109()  static void L109()
2562  {register object *base=vs_base;  {register object *base=vs_base;
2563          register object *sup=base+VM109; VC109          register object *sup=base+VM109; VC109
2564          vs_reserve(VM109);          vs_check;
         check_arg(0);  
2565          vs_top=sup;          vs_top=sup;
2566          goto TTL;          goto TTL;
2567  TTL:;  TTL:;
2568          base[0]= VV[150];          base[0]= VV[150];
2569          base[1]= VV[5];          base[1]= VV[5];
2570          base[2]= VV[151];          base[2]= VV[151];
2571          V219= listA(9,VV[18],VV[89],VV[20],VV[152],VV[22],Cnil,VV[23],VV[153],Cnil);          V214= listA(9,VV[18],VV[89],VV[20],VV[152],VV[22],Cnil,VV[23],VV[153],Cnil);
2572          base[3]= make_cons(/* INLINE-ARGS */V219,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V214,Cnil);
2573          base[4]= Cnil;          base[4]= Cnil;
2574          base[5]= Cnil;          base[5]= Cnil;
2575          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
2576          return;          return;
2577  }  }
2578  /*      local entry for function progn 'compile4929     */  /*      local entry for function progn 'compile4931     */
2579    
2580  static object LI110()  static object LI110()
2581    
# Line 2632  static object LI110() Line 2583  static object LI110()
2583          goto TTL;          goto TTL;
2584  TTL:;  TTL:;
2585          vs_base=vs_top;          vs_base=vs_top;
2586          (void) (*Lnk302)();          (void) (*Lnk301)();
2587          vs_top=sup;          vs_top=sup;
2588          {object V220 = Cnil;          {object V215 = Cnil;
2589          VMR110(V220)}          VMR110(V215)}
2590          base[0]=base[0];          base[0]=base[0];
2591          return Cnil;          return Cnil;
2592  }  }
2593  /*      local entry for function progn 'compile4946     */  /*      local entry for function progn 'compile4948     */
2594    
2595  static object LI111()  static object LI111()
2596    
# Line 2647  static object LI111() Line 2598  static object LI111()
2598          goto TTL;          goto TTL;
2599  TTL:;  TTL:;
2600          base[0]= VV[154];          base[0]= VV[154];
2601          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
2602          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2603          Ladjoin();          Ladjoin();
2604          vs_top=sup;          vs_top=sup;
2605          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
2606          {object V222 = Cnil;          {object V217 = Cnil;
2607          VMR111(V222)}          VMR111(V217)}
2608          base[0]=base[0];          base[0]=base[0];
2609          return Cnil;          return Cnil;
2610  }  }
2611  /*      local entry for function progn 'compile4970     */  /*      local entry for function progn 'compile4972     */
2612    
2613  static object LI112()  static object LI112()
2614    
# Line 2665  static object LI112() Line 2616  static object LI112()
2616          goto TTL;          goto TTL;
2617  TTL:;  TTL:;
2618          (void)(sputprop(VV[150],VV[9],Cnil));          (void)(sputprop(VV[150],VV[9],Cnil));
2619          {object V223 = Cnil;          {object V218 = Cnil;
2620          VMR112(V223)}          VMR112(V218)}
2621          return Cnil;          return Cnil;
2622  }  }
2623  /*      local entry for function progn 'compile4982     */  /*      local entry for function progn 'compile4984     */
2624    
2625  static object LI113()  static object LI113()
2626    
2627  {        VMB113 VMS113 VMV113  {        VMB113 VMS113 VMV113
2628          goto TTL;          goto TTL;
2629  TTL:;  TTL:;
2630          {object V224 = Cnil;          {object V219 = Cnil;
2631          VMR113(V224)}          VMR113(V219)}
2632          return Cnil;          return Cnil;
2633  }  }
2634  /*      function definition for Defclass UNBOUND-VARIABLE5002   */  /*      function definition for Defclass UNBOUND-VARIABLE5004   */
2635    
2636  static void L114()  static void L114()
2637  {register object *base=vs_base;  {register object *base=vs_base;
2638          register object *sup=base+VM114; VC114          register object *sup=base+VM114; VC114
2639          vs_reserve(VM114);          vs_check;
         check_arg(0);  
2640          vs_top=sup;          vs_top=sup;
2641          goto TTL;          goto TTL;
2642  TTL:;  TTL:;
# Line 2699  TTL:; Line 2649  TTL:;
2649          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
2650          return;          return;
2651  }  }
2652  /*      local entry for function progn 'compile5018     */  /*      local entry for function progn 'compile5020     */
2653    
2654  static object LI115()  static object LI115()
2655    
# Line 2707  static object LI115() Line 2657  static object LI115()
2657          goto TTL;          goto TTL;
2658  TTL:;  TTL:;
2659          vs_base=vs_top;          vs_base=vs_top;
2660          (void) (*Lnk303)();          (void) (*Lnk302)();
2661          vs_top=sup;          vs_top=sup;
2662          {object V225 = Cnil;          {object V220 = Cnil;
2663          VMR115(V225)}          VMR115(V220)}
2664          base[0]=base[0];          base[0]=base[0];
2665          return Cnil;          return Cnil;
2666  }  }
2667  /*      local entry for function progn 'compile5035     */  /*      local entry for function progn 'compile5037     */
2668    
2669  static object LI116()  static object LI116()
2670    
# Line 2722  static object LI116() Line 2672  static object LI116()
2672          goto TTL;          goto TTL;
2673  TTL:;  TTL:;
2674          base[0]= VV[157];          base[0]= VV[157];
2675          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
2676          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2677          Ladjoin();          Ladjoin();
2678          vs_top=sup;          vs_top=sup;
2679          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
2680          {object V227 = Cnil;          {object V222 = Cnil;
2681          VMR116(V227)}          VMR116(V222)}
2682          base[0]=base[0];          base[0]=base[0];
2683          return Cnil;          return Cnil;
2684  }  }
2685  /*      local entry for function progn 'compile5059     */  /*      local entry for function progn 'compile5061     */
2686    
2687  static object LI117()  static object LI117()
2688    
# Line 2740  static object LI117() Line 2690  static object LI117()
2690          goto TTL;          goto TTL;
2691  TTL:;  TTL:;
2692          (void)(sputprop(VV[155],VV[9],Cnil));          (void)(sputprop(VV[155],VV[9],Cnil));
2693          {object V228 = Cnil;          {object V223 = Cnil;
2694          VMR117(V228)}          VMR117(V223)}
2695          return Cnil;          return Cnil;
2696  }  }
2697  /*      local entry for function progn 'compile5075     */  /*      local entry for function progn 'compile5077     */
2698    
2699  static object LI118()  static object LI118()
2700    
# Line 2756  TTL:; Line 2706  TTL:;
2706          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2707          (void) (*Lnk269)();          (void) (*Lnk269)();
2708          vs_top=sup;          vs_top=sup;
2709          {object V229 = Cnil;          {object V224 = Cnil;
2710          VMR118(V229)}          VMR118(V224)}
2711          base[0]=base[0];          base[0]=base[0];
2712          return Cnil;          return Cnil;
2713  }  }
# Line 2766  TTL:; Line 2716  TTL:;
2716  static void L119()  static void L119()
2717  {register object *base=vs_base;  {register object *base=vs_base;
2718          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
2719          vs_reserve(VM119);          vs_check;
2720          {object V230;          {object V225;
2721          register object V231;          register object V226;
2722          register object V232;          register object V227;
2723          register object V233;          register object V228;
2724          check_arg(4);          V225=(base[0]);
2725          V230=(base[0]);          V226=(base[1]);
2726          V231=(base[1]);          V227=(base[2]);
2727          V232=(base[2]);          V228=(base[3]);
         V233=(base[3]);  
2728          vs_top=sup;          vs_top=sup;
2729          goto TTL;          goto TTL;
2730  TTL:;  TTL:;
2731          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
2732          goto T769;}          goto T759;}
2733          if(((V231))==Cnil){          if(((V226))==Cnil){
2734          goto T772;}          goto T762;}
2735          base[4]= (V231);          base[4]= (V226);
2736          base[5]= VV[35];          base[5]= VV[35];
2737          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2738          (void) (*Lnk270)();          (void) (*Lnk270)();
2739          vs_top=sup;          vs_top=sup;
2740          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2741          goto T776;}          goto T766;}
2742          base[4]= structure_ref((V231),VV[35],0);          base[4]= STREF(object,(V226),0);
2743          base[5]= structure_ref((V231),VV[35],1);          base[5]= STREF(object,(V226),4);
2744          base[6]= structure_ref((V231),VV[35],2);          base[6]= STREF(object,(V226),8);
2745          base[7]= (V232);          base[7]= (V227);
2746          base[8]= (V233);          base[8]= (V228);
2747          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2748          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2749                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2750                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2751                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2752          return;          return;
2753          goto T776;          goto T766;
2754  T776:;  T766:;
2755          if(!(type_of((V231))==t_fixnum)){          if(!(type_of((V226))==t_fixnum)){
2756          goto T786;}          goto T776;}
2757          {object V236;          {object V231;
2758          if(type_of(V232)==t_structure){          if(type_of(V227)==t_structure){
2759          goto T792;}          goto T782;}
2760          goto T790;          goto T780;
2761          goto T792;          goto T782;
2762  T792:;  T782:;
2763          base[4]= V232;          if(!(((V227)->str.str_def)==(VV[159]))){
2764          vs_top=(vs_base=base+4)+1;          goto T780;}
2765          (void) (*Lnk271)();          V231= STREF(object,(V227),4);
2766          vs_top=sup;          goto T778;
2767          V238= vs_base[0];          goto T780;
2768          if(!((V238)==(VV[159]))){  T780:;{object V233;
2769          goto T790;}          V233= (VV[38]->s.s_dbind);
         V236= structure_ref((V232),VV[37],1);  
         goto T788;  
         goto T790;  
 T790:;{object V239;  
         V239= symbol_value(VV[38]);  
2770          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2771          base[5]= (V232);          base[5]= (V227);
2772          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2773          (void) (*Lnk272)();          (void) (*Lnk271)();
2774          vs_top=sup;          vs_top=sup;
2775          V240= vs_base[0];          V234= vs_base[0];
2776          if(!((V239)==(car(V240)))){          if(!((V233)==(CMPcar(V234)))){
2777          goto T797;}}          goto T785;}}
2778          V236= car(((V232))->cc.cc_turbo[12]);          V231= CMPcar(((V227))->cc.cc_turbo[12]);
2779          goto T788;          goto T778;
2780          goto T797;          goto T785;
2781  T797:;  T785:;
2782          V236= Cnil;          V231= Cnil;
2783          goto T788;          goto T778;
2784  T788:;  T778:;
2785          if(((V236))==Cnil){          if(((V231))==Cnil){
2786          goto T803;}          goto T791;}
2787          base[4]= aset1((V236),fix((V231)),V232);          base[4]= ((V231))->v.v_self[fix((V226))]= (V227);
2788          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2789          return;          return;
2790          goto T803;          goto T791;
2791  T803:;  T791:;
2792          base[4]= Cnil;          base[4]= Cnil;
2793          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2794          return;}          return;}
2795          goto T786;          goto T776;
2796  T786:;  T776:;
2797          {register object V242;          {register object V236;
2798          V242= V231;          V236= V226;
2799          base[4]= (V242);          base[4]= (V236);
2800          base[5]= VV[39];          base[5]= VV[39];
2801          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2802          (void) (*Lnk270)();          (void) (*Lnk270)();
2803          vs_top=sup;          vs_top=sup;
2804          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2805          goto T806;}          goto T794;}
2806          {object V243;          {object V237;
2807          object V244;          object V238;
2808          register object V245;          register object V239;
2809          V243= structure_ref((V231),VV[39],0);          V237= STREF(object,(V226),0);
2810          V244= list(2,(V232),(V233));          V238= list(2,(V227),(V228));
2811          V245= structure_ref((V231),VV[39],1);          V239= STREF(object,(V226),4);
2812          if(((V245))==Cnil){          if(((V239))==Cnil){
2813          goto T814;}          goto T802;}
2814          if((cdr((V245)))!=Cnil){          if((CMPcdr((V239)))!=Cnil){
2815          goto T814;}          goto T802;}
2816          base[4]= (V244);          base[4]= (V238);
2817          base[5]= car((V245));          base[5]= CMPcar((V239));
2818          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2819          {object _funobj = (V243);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V237);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2820                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2821                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2822                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2823          return;          return;
2824          goto T814;          goto T802;
2825  T814:;  T802:;
2826          base[4]= (V243);          base[4]= (V237);
2827          base[5]= (V244);          base[5]= (V238);
2828          {object V246;          {object V240;
2829          V246= (V245);          V240= (V239);
2830           vs_top=base+6;           vs_top=base+6;
2831           while(!endp(V246))           while(V240!=Cnil)
2832           {vs_push(car(V246));V246=cdr(V246);}           {vs_push((V240)->c.c_car);V240=(V240)->c.c_cdr;}
2833          vs_base=base+5;}          vs_base=base+5;}
2834          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2835                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2836                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2837                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2838          return;}          return;}
2839          goto T806;          goto T794;
2840  T806:;  T794:;
2841          base[4]= (V242);          base[4]= (V236);
2842          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2843          Lfunctionp();          Lfunctionp();
2844          vs_top=sup;          vs_top=sup;
2845          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2846          goto T824;}          goto T812;}
2847          base[4]= (V232);          base[4]= (V227);
2848          base[5]= (V233);          base[5]= (V228);
2849          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2850          {object _funobj = (V231);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V226);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2851                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2852                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2853                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2854          return;          return;
2855          goto T824;          goto T812;
2856  T824:;  T812:;
2857          base[4]= VV[40];          base[4]= VV[40];
2858          base[5]= VV[18];          base[5]= VV[18];
2859          base[6]= VV[41];          base[6]= VV[41];
2860          base[7]= VV[42];          base[7]= VV[42];
2861          base[8]= V231;          base[8]= V226;
2862          base[9]= VV[43];          base[9]= VV[43];
2863          base[10]= VV[160];          base[10]= VV[160];
2864          base[11]= VV[45];          base[11]= VV[45];
# Line 2922  T824:; Line 2866  T824:;
2866          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2867          (void) (*Lnk13)();          (void) (*Lnk13)();
2868          return;}          return;}
2869          goto T772;          goto T762;
2870  T772:;  T762:;
2871          base[4]= VV[47];          base[4]= VV[47];
2872          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2873          (void) (*Lnk273)();          (void) (*Lnk272)();
2874          return;          return;
2875          goto T769;          goto T759;
2876  T769:;  T759:;
2877          base[4]= V233;          base[4]= V228;
2878          base[5]= VV[162];          base[5]= VV[162];
2879          base[7]= V232;          base[7]= V227;
2880          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2881          (void) (*Lnk304)(Lclptr304);          (void) (*Lnk303)(Lclptr303);
2882          vs_top=sup;          vs_top=sup;
2883          base[6]= vs_base[0];          base[6]= vs_base[0];
2884          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 2942  T769:; Line 2886  T769:;
2886          return;          return;
2887          }          }
2888  }  }
2889  /*      local entry for function progn 'compile5272     */  /*      local entry for function progn 'compile5274     */
2890    
2891  static object LI120()  static object LI120()
2892    
# Line 2954  TTL:; Line 2898  TTL:;
2898          base[2]= Cnil;          base[2]= Cnil;
2899          base[3]= VV[163];          base[3]= VV[163];
2900          base[4]= VV[164];          base[4]= VV[164];
2901          V249= symbol_function(VV[305]);          V243= (VV[304]->s.s_gfdef);
2902          base[5]= listA(3,VV[51],V249,VV[165]);          base[5]= listA(3,VV[51],V243,VV[165]);
2903          base[6]= Cnil;          base[6]= Cnil;
2904          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2905          (void) (*Lnk276)();          (void) (*Lnk275)();
2906          vs_top=sup;          vs_top=sup;
2907          {object V250 = Cnil;          {object V244 = Cnil;
2908          VMR120(V250)}          VMR120(V244)}
2909          base[0]=base[0];          base[0]=base[0];
2910          return Cnil;          return Cnil;
2911  }  }
2912  /*      local entry for function progn 'compile5280     */  /*      local entry for function progn 'compile5282     */
2913    
2914  static object LI121()  static object LI121()
2915    
2916  {        VMB121 VMS121 VMV121  {        VMB121 VMS121 VMV121
2917          goto TTL;          goto TTL;
2918  TTL:;  TTL:;
2919          {object V251 = Cnil;          {object V245 = Cnil;
2920          VMR121(V251)}          VMR121(V245)}
2921          return Cnil;          return Cnil;
2922  }  }
2923  /*      function definition for Defclass UNDEFINED-FUNCTION5300 */  /*      function definition for Defclass UNDEFINED-FUNCTION5302 */
2924    
2925  static void L122()  static void L122()
2926  {register object *base=vs_base;  {register object *base=vs_base;
2927          register object *sup=base+VM122; VC122          register object *sup=base+VM122; VC122
2928          vs_reserve(VM122);          vs_check;
         check_arg(0);  
2929          vs_top=sup;          vs_top=sup;
2930          goto TTL;          goto TTL;
2931  TTL:;  TTL:;
# Line 2995  TTL:; Line 2938  TTL:;
2938          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
2939          return;          return;
2940  }  }
2941  /*      local entry for function progn 'compile5316     */  /*      local entry for function progn 'compile5318     */
2942    
2943  static object LI123()  static object LI123()
2944    
# Line 3003  static object LI123() Line 2946  static object LI123()
2946          goto TTL;          goto TTL;
2947  TTL:;  TTL:;
2948          vs_base=vs_top;          vs_base=vs_top;
2949          (void) (*Lnk306)();          (void) (*Lnk305)();
2950          vs_top=sup;          vs_top=sup;
2951          {object V252 = Cnil;          {object V246 = Cnil;
2952          VMR123(V252)}          VMR123(V246)}
2953          base[0]=base[0];          base[0]=base[0];
2954          return Cnil;          return Cnil;
2955  }  }
2956  /*      local entry for function progn 'compile5333     */  /*      local entry for function progn 'compile5335     */
2957    
2958  static object LI124()  static object LI124()
2959    
# Line 3018  static object LI124() Line 2961  static object LI124()
2961          goto TTL;          goto TTL;
2962  TTL:;  TTL:;
2963          base[0]= VV[168];          base[0]= VV[168];
2964          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
2965          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2966          Ladjoin();          Ladjoin();
2967          vs_top=sup;          vs_top=sup;
2968          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
2969          {object V254 = Cnil;          {object V248 = Cnil;
2970          VMR124(V254)}          VMR124(V248)}
2971          base[0]=base[0];          base[0]=base[0];
2972          return Cnil;          return Cnil;
2973  }  }
2974  /*      local entry for function progn 'compile5357     */  /*      local entry for function progn 'compile5359     */
2975    
2976  static object LI125()  static object LI125()
2977    
# Line 3036  static object LI125() Line 2979  static object LI125()
2979          goto TTL;          goto TTL;
2980  TTL:;  TTL:;
2981          (void)(sputprop(VV[166],VV[9],Cnil));          (void)(sputprop(VV[166],VV[9],Cnil));
2982          {object V255 = Cnil;          {object V249 = Cnil;
2983          VMR125(V255)}          VMR125(V249)}
2984          return Cnil;          return Cnil;
2985  }  }
2986  /*      local entry for function progn 'compile5373     */  /*      local entry for function progn 'compile5375     */
2987    
2988  static object LI126()  static object LI126()
2989    
# Line 3052  TTL:; Line 2995  TTL:;
2995          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2996          (void) (*Lnk269)();          (void) (*Lnk269)();
2997          vs_top=sup;          vs_top=sup;
2998          {object V256 = Cnil;          {object V250 = Cnil;
2999          VMR126(V256)}          VMR126(V250)}
3000          base[0]=base[0];          base[0]=base[0];
3001          return Cnil;          return Cnil;
3002  }  }
# Line 3062  TTL:; Line 3005  TTL:;
3005  static void L127()  static void L127()
3006  {register object *base=vs_base;  {register object *base=vs_base;
3007          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
3008          vs_reserve(VM127);          vs_check;
3009          {object V257;          {object V251;
3010          register object V258;          register object V252;
3011          register object V259;          register object V253;
3012          register object V260;          register object V254;
3013          check_arg(4);          V251=(base[0]);
3014          V257=(base[0]);          V252=(base[1]);
3015          V258=(base[1]);          V253=(base[2]);
3016          V259=(base[2]);          V254=(base[3]);
         V260=(base[3]);  
3017          vs_top=sup;          vs_top=sup;
3018          goto TTL;          goto TTL;
3019  TTL:;  TTL:;
3020          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
3021          goto T872;}          goto T860;}
3022          if(((V258))==Cnil){          if(((V252))==Cnil){
3023          goto T875;}          goto T863;}
3024          base[4]= (V258);          base[4]= (V252);
3025          base[5]= VV[35];          base[5]= VV[35];
3026          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3027          (void) (*Lnk270)();          (void) (*Lnk270)();
3028          vs_top=sup;          vs_top=sup;
3029          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3030          goto T879;}          goto T867;}
3031          base[4]= structure_ref((V258),VV[35],0);          base[4]= STREF(object,(V252),0);
3032          base[5]= structure_ref((V258),VV[35],1);          base[5]= STREF(object,(V252),4);
3033          base[6]= structure_ref((V258),VV[35],2);          base[6]= STREF(object,(V252),8);
3034          base[7]= (V259);          base[7]= (V253);
3035          base[8]= (V260);          base[8]= (V254);
3036          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3037          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3038                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3039                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3040                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3041          return;          return;
3042            goto T867;
3043    T867:;
3044            if(!(type_of((V252))==t_fixnum)){
3045            goto T877;}
3046            {object V257;
3047            if(type_of(V253)==t_structure){
3048            goto T883;}
3049            goto T881;
3050            goto T883;
3051    T883:;
3052            if(!(((V253)->str.str_def)==(VV[170]))){
3053            goto T881;}
3054            V257= STREF(object,(V253),4);
3055          goto T879;          goto T879;
3056  T879:;          goto T881;
3057          if(!(type_of((V258))==t_fixnum)){  T881:;{object V259;
3058          goto T889;}          V259= (VV[38]->s.s_dbind);
         {object V263;  
         if(type_of(V259)==t_structure){  
         goto T895;}  
         goto T893;  
         goto T895;  
 T895:;  
         base[4]= V259;  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk271)();  
         vs_top=sup;  
         V265= vs_base[0];  
         if(!((V265)==(VV[170]))){  
         goto T893;}  
         V263= structure_ref((V259),VV[37],1);  
         goto T891;  
         goto T893;  
 T893:;{object V266;  
         V266= symbol_value(VV[38]);  
3059          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3060          base[5]= (V259);          base[5]= (V253);
3061          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3062          (void) (*Lnk272)();          (void) (*Lnk271)();
3063          vs_top=sup;          vs_top=sup;
3064          V267= vs_base[0];          V260= vs_base[0];
3065          if(!((V266)==(car(V267)))){          if(!((V259)==(CMPcar(V260)))){
3066          goto T900;}}          goto T886;}}
3067          V263= car(((V259))->cc.cc_turbo[12]);          V257= CMPcar(((V253))->cc.cc_turbo[12]);
3068          goto T891;          goto T879;
3069          goto T900;          goto T886;
3070  T900:;  T886:;
3071          V263= Cnil;          V257= Cnil;
3072          goto T891;          goto T879;
3073  T891:;  T879:;
3074          if(((V263))==Cnil){          if(((V257))==Cnil){
3075          goto T906;}          goto T892;}
3076          base[4]= aset1((V263),fix((V258)),V259);          base[4]= ((V257))->v.v_self[fix((V252))]= (V253);
3077          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3078          return;          return;
3079          goto T906;          goto T892;
3080  T906:;  T892:;
3081          base[4]= Cnil;          base[4]= Cnil;
3082          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3083          return;}          return;}
3084          goto T889;          goto T877;
3085  T889:;  T877:;
3086          {register object V269;          {register object V262;
3087          V269= V258;          V262= V252;
3088          base[4]= (V269);          base[4]= (V262);
3089          base[5]= VV[39];          base[5]= VV[39];
3090          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3091          (void) (*Lnk270)();          (void) (*Lnk270)();
3092          vs_top=sup;          vs_top=sup;
3093          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3094          goto T909;}          goto T895;}
3095          {object V270;          {object V263;
3096          object V271;          object V264;
3097          register object V272;          register object V265;
3098          V270= structure_ref((V258),VV[39],0);          V263= STREF(object,(V252),0);
3099          V271= list(2,(V259),(V260));          V264= list(2,(V253),(V254));
3100          V272= structure_ref((V258),VV[39],1);          V265= STREF(object,(V252),4);
3101          if(((V272))==Cnil){          if(((V265))==Cnil){
3102          goto T917;}          goto T903;}
3103          if((cdr((V272)))!=Cnil){          if((CMPcdr((V265)))!=Cnil){
3104          goto T917;}          goto T903;}
3105          base[4]= (V271);          base[4]= (V264);
3106          base[5]= car((V272));          base[5]= CMPcar((V265));
3107          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3108          {object _funobj = (V270);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V263);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3109                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3110                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3111                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3112          return;          return;
3113          goto T917;          goto T903;
3114  T917:;  T903:;
3115          base[4]= (V270);          base[4]= (V263);
3116          base[5]= (V271);          base[5]= (V264);
3117          {object V273;          {object V266;
3118          V273= (V272);          V266= (V265);
3119           vs_top=base+6;           vs_top=base+6;
3120           while(!endp(V273))           while(V266!=Cnil)
3121           {vs_push(car(V273));V273=cdr(V273);}           {vs_push((V266)->c.c_car);V266=(V266)->c.c_cdr;}
3122          vs_base=base+5;}          vs_base=base+5;}
3123          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3124                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3125                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3126                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3127          return;}          return;}
3128          goto T909;          goto T895;
3129  T909:;  T895:;
3130          base[4]= (V269);          base[4]= (V262);
3131          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3132          Lfunctionp();          Lfunctionp();
3133          vs_top=sup;          vs_top=sup;
3134          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3135          goto T927;}          goto T913;}
3136          base[4]= (V259);          base[4]= (V253);
3137          base[5]= (V260);          base[5]= (V254);
3138          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3139          {object _funobj = (V258);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V252);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3140                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3141                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3142                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3143          return;          return;
3144          goto T927;          goto T913;
3145  T927:;  T913:;
3146          base[4]= VV[40];          base[4]= VV[40];
3147          base[5]= VV[18];          base[5]= VV[18];
3148          base[6]= VV[41];          base[6]= VV[41];
3149          base[7]= VV[42];          base[7]= VV[42];
3150          base[8]= V258;          base[8]= V252;
3151          base[9]= VV[43];          base[9]= VV[43];
3152          base[10]= VV[171];          base[10]= VV[171];
3153          base[11]= VV[45];          base[11]= VV[45];
# Line 3218  T927:; Line 3155  T927:;
3155          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
3156          (void) (*Lnk13)();          (void) (*Lnk13)();
3157          return;}          return;}
3158          goto T875;          goto T863;
3159  T875:;  T863:;
3160          base[4]= VV[47];          base[4]= VV[47];
3161          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3162          (void) (*Lnk273)();          (void) (*Lnk272)();
3163          return;          return;
3164          goto T872;          goto T860;
3165  T872:;  T860:;
3166          base[4]= V260;          base[4]= V254;
3167          base[5]= VV[173];          base[5]= VV[173];
3168          base[7]= V259;          base[7]= V253;
3169          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3170          (void) (*Lnk304)(Lclptr304);          (void) (*Lnk303)(Lclptr303);
3171          vs_top=sup;          vs_top=sup;
3172          base[6]= vs_base[0];          base[6]= vs_base[0];
3173          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 3238  T872:; Line 3175  T872:;
3175          return;          return;
3176          }          }
3177  }  }
3178  /*      local entry for function progn 'compile5570     */  /*      local entry for function progn 'compile5572     */
3179    
3180  static object LI128()  static object LI128()
3181    
# Line 3250  TTL:; Line 3187  TTL:;
3187          base[2]= Cnil;          base[2]= Cnil;
3188          base[3]= VV[174];          base[3]= VV[174];
3189          base[4]= VV[175];          base[4]= VV[175];
3190          V276= symbol_function(VV[307]);          V269= (VV[306]->s.s_gfdef);
3191          base[5]= listA(3,VV[51],V276,VV[176]);          base[5]= listA(3,VV[51],V269,VV[176]);
3192          base[6]= Cnil;          base[6]= Cnil;
3193          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3194          (void) (*Lnk276)();          (void) (*Lnk275)();
3195          vs_top=sup;          vs_top=sup;
3196          {object V277 = Cnil;          {object V270 = Cnil;
3197          VMR128(V277)}          VMR128(V270)}
3198          base[0]=base[0];          base[0]=base[0];
3199          return Cnil;          return Cnil;
3200  }  }
3201  /*      local entry for function progn 'compile5578     */  /*      local entry for function progn 'compile5580     */
3202    
3203  static object LI129()  static object LI129()
3204    
3205  {        VMB129 VMS129 VMV129  {        VMB129 VMS129 VMV129
3206          goto TTL;          goto TTL;
3207  TTL:;  TTL:;
3208          {object V278 = Cnil;          {object V271 = Cnil;
3209          VMR129(V278)}          VMR129(V271)}
3210          return Cnil;          return Cnil;
3211  }  }
3212  /*      function definition for Defclass ARITHMETIC-ERROR5598   */  /*      function definition for Defclass ARITHMETIC-ERROR5600   */
3213    
3214  static void L130()  static void L130()
3215  {register object *base=vs_base;  {register object *base=vs_base;
3216          register object *sup=base+VM130; VC130          register object *sup=base+VM130; VC130
3217          vs_reserve(VM130);          vs_check;
         check_arg(0);  
3218          vs_top=sup;          vs_top=sup;
3219          goto TTL;          goto TTL;
3220  TTL:;  TTL:;
3221          base[0]= VV[177];          base[0]= VV[177];
3222          base[1]= VV[5];          base[1]= VV[5];
3223          base[2]= VV[178];          base[2]= VV[178];
3224          V279= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil);          V272= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil);
3225          base[3]= make_cons(/* INLINE-ARGS */V279,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V272,Cnil);
3226          base[4]= Cnil;          base[4]= Cnil;
3227          base[5]= Cnil;          base[5]= Cnil;
3228          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
3229          return;          return;
3230  }  }
3231  /*      local entry for function progn 'compile5615     */  /*      local entry for function progn 'compile5617     */
3232    
3233  static object LI131()  static object LI131()
3234    
# Line 3300  static object LI131() Line 3236  static object LI131()
3236          goto TTL;          goto TTL;
3237  TTL:;  TTL:;
3238          vs_base=vs_top;          vs_base=vs_top;
3239          (void) (*Lnk308)();          (void) (*Lnk307)();
3240          vs_top=sup;          vs_top=sup;
3241          {object V280 = Cnil;          {object V273 = Cnil;
3242          VMR131(V280)}          VMR131(V273)}
3243          base[0]=base[0];          base[0]=base[0];
3244          return Cnil;          return Cnil;
3245  }  }
3246  /*      local entry for function progn 'compile5632     */  /*      local entry for function progn 'compile5634     */
3247    
3248  static object LI132()  static object LI132()
3249    
# Line 3315  static object LI132() Line 3251  static object LI132()
3251          goto TTL;          goto TTL;
3252  TTL:;  TTL:;
3253          base[0]= VV[182];          base[0]= VV[182];
3254          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
3255          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3256          Ladjoin();          Ladjoin();
3257          vs_top=sup;          vs_top=sup;
3258          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
3259          {object V282 = Cnil;          {object V275 = Cnil;
3260          VMR132(V282)}          VMR132(V275)}
3261          base[0]=base[0];          base[0]=base[0];
3262          return Cnil;          return Cnil;
3263  }  }
3264  /*      local entry for function progn 'compile5656     */  /*      local entry for function progn 'compile5658     */
3265    
3266  static object LI133()  static object LI133()
3267    
# Line 3333  static object LI133() Line 3269  static object LI133()
3269          goto TTL;          goto TTL;
3270  TTL:;  TTL:;
3271          (void)(sputprop(VV[177],VV[9],Cnil));          (void)(sputprop(VV[177],VV[9],Cnil));
3272          {object V283 = Cnil;          {object V276 = Cnil;
3273          VMR133(V283)}          VMR133(V276)}
3274          return Cnil;          return Cnil;
3275  }  }
3276  /*      local entry for function progn 'compile5668     */  /*      local entry for function progn 'compile5670     */
3277    
3278  static object LI134()  static object LI134()
3279    
3280  {        VMB134 VMS134 VMV134  {        VMB134 VMS134 VMV134
3281          goto TTL;          goto TTL;
3282  TTL:;  TTL:;
3283          {object V284 = Cnil;          {object V277 = Cnil;
3284          VMR134(V284)}          VMR134(V277)}
3285          return Cnil;          return Cnil;
3286  }  }
3287  /*      function definition for Defclass DIVISION-BY-ZERO5688   */  /*      function definition for Defclass DIVISION-BY-ZERO5690   */
3288    
3289  static void L135()  static void L135()
3290  {register object *base=vs_base;  {register object *base=vs_base;
3291          register object *sup=base+VM135; VC135          register object *sup=base+VM135; VC135
3292          vs_reserve(VM135);          vs_check;
         check_arg(0);  
3293          vs_top=sup;          vs_top=sup;
3294          goto TTL;          goto TTL;
3295  TTL:;  TTL:;
# Line 3367  TTL:; Line 3302  TTL:;
3302          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
3303          return;          return;
3304  }  }
3305  /*      local entry for function progn 'compile5704     */  /*      local entry for function progn 'compile5706     */
3306    
3307  static object LI136()  static object LI136()
3308    
# Line 3375  static object LI136() Line 3310  static object LI136()
3310          goto TTL;          goto TTL;
3311  TTL:;  TTL:;
3312          vs_base=vs_top;          vs_base=vs_top;
3313          (void) (*Lnk309)();          (void) (*Lnk308)();
3314          vs_top=sup;          vs_top=sup;
3315          {object V285 = Cnil;          {object V278 = Cnil;
3316          VMR136(V285)}          VMR136(V278)}
3317          base[0]=base[0];          base[0]=base[0];
3318          return Cnil;          return Cnil;
3319  }  }
3320  /*      local entry for function progn 'compile5721     */  /*      local entry for function progn 'compile5723     */
3321    
3322  static object LI137()  static object LI137()
3323    
# Line 3390  static object LI137() Line 3325  static object LI137()
3325          goto TTL;          goto TTL;
3326  TTL:;  TTL:;
3327          base[0]= VV[185];          base[0]= VV[185];
3328          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
3329          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3330          Ladjoin();          Ladjoin();
3331          vs_top=sup;          vs_top=sup;
3332          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
3333          {object V287 = Cnil;          {object V280 = Cnil;
3334          VMR137(V287)}          VMR137(V280)}
3335          base[0]=base[0];          base[0]=base[0];
3336          return Cnil;          return Cnil;
3337  }  }
3338  /*      local entry for function progn 'compile5745     */  /*      local entry for function progn 'compile5747     */
3339    
3340  static object LI138()  static object LI138()
3341    
# Line 3408  static object LI138() Line 3343  static object LI138()
3343          goto TTL;          goto TTL;
3344  TTL:;  TTL:;
3345          (void)(sputprop(VV[183],VV[9],Cnil));          (void)(sputprop(VV[183],VV[9],Cnil));
3346          {object V288 = Cnil;          {object V281 = Cnil;
3347          VMR138(V288)}          VMR138(V281)}
3348          return Cnil;          return Cnil;
3349  }  }
3350  /*      local entry for function progn 'compile5757     */  /*      local entry for function progn 'compile5759     */
3351    
3352  static object LI139()  static object LI139()
3353    
3354  {        VMB139 VMS139 VMV139  {        VMB139 VMS139 VMV139
3355          goto TTL;          goto TTL;
3356  TTL:;  TTL:;
3357          {object V289 = Cnil;          {object V282 = Cnil;
3358          VMR139(V289)}          VMR139(V282)}
3359          return Cnil;          return Cnil;
3360  }  }
3361  /*      function definition for Defclass FLOATING-POINT-OVERFLOW5777    */  /*      function definition for Defclass FLOATING-POINT-OVERFLOW5779    */
3362    
3363  static void L140()  static void L140()
3364  {register object *base=vs_base;  {register object *base=vs_base;
3365          register object *sup=base+VM140; VC140          register object *sup=base+VM140; VC140
3366          vs_reserve(VM140);          vs_check;
         check_arg(0);  
3367          vs_top=sup;          vs_top=sup;
3368          goto TTL;          goto TTL;
3369  TTL:;  TTL:;
# Line 3442  TTL:; Line 3376  TTL:;
3376          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
3377          return;          return;
3378  }  }
3379  /*      local entry for function progn 'compile5793     */  /*      local entry for function progn 'compile5795     */
3380    
3381  static object LI141()  static object LI141()
3382    
# Line 3450  static object LI141() Line 3384  static object LI141()
3384          goto TTL;          goto TTL;
3385  TTL:;  TTL:;
3386          vs_base=vs_top;          vs_base=vs_top;
3387          (void) (*Lnk310)();          (void) (*Lnk309)();
3388          vs_top=sup;          vs_top=sup;
3389          {object V290 = Cnil;          {object V283 = Cnil;
3390          VMR141(V290)}          VMR141(V283)}
3391          base[0]=base[0];          base[0]=base[0];
3392          return Cnil;          return Cnil;
3393  }  }
3394  /*      local entry for function progn 'compile5810     */  /*      local entry for function progn 'compile5812     */
3395    
3396  static object LI142()  static object LI142()
3397    
# Line 3465  static object LI142() Line 3399  static object LI142()
3399          goto TTL;          goto TTL;
3400  TTL:;  TTL:;
3401          base[0]= VV[188];          base[0]= VV[188];
3402          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
3403          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3404          Ladjoin();          Ladjoin();
3405          vs_top=sup;          vs_top=sup;
3406          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
3407          {object V292 = Cnil;          {object V285 = Cnil;
3408          VMR142(V292)}          VMR142(V285)}
3409          base[0]=base[0];          base[0]=base[0];
3410          return Cnil;          return Cnil;
3411  }  }
3412  /*      local entry for function progn 'compile5834     */  /*      local entry for function progn 'compile5836     */
3413    
3414  static object LI143()  static object LI143()
3415    
# Line 3483  static object LI143() Line 3417  static object LI143()
3417          goto TTL;          goto TTL;
3418  TTL:;  TTL:;
3419          (void)(sputprop(VV[186],VV[9],Cnil));          (void)(sputprop(VV[186],VV[9],Cnil));
3420          {object V293 = Cnil;          {object V286 = Cnil;
3421          VMR143(V293)}          VMR143(V286)}
3422          return Cnil;          return Cnil;
3423  }  }
3424  /*      local entry for function progn 'compile5846     */  /*      local entry for function progn 'compile5848     */
3425    
3426  static object LI144()  static object LI144()
3427    
3428  {        VMB144 VMS144 VMV144  {        VMB144 VMS144 VMV144
3429          goto TTL;          goto TTL;
3430  TTL:;  TTL:;
3431          {object V294 = Cnil;          {object V287 = Cnil;
3432          VMR144(V294)}          VMR144(V287)}
3433          return Cnil;          return Cnil;
3434  }  }
3435  /*      function definition for Defclass FLOATING-POINT-UNDERFLOW5866   */  /*      function definition for Defclass FLOATING-POINT-UNDERFLOW5868   */
3436    
3437  static void L145()  static void L145()
3438  {register object *base=vs_base;  {register object *base=vs_base;
3439          register object *sup=base+VM145; VC145          register object *sup=base+VM145; VC145
3440          vs_reserve(VM145);          vs_check;
         check_arg(0);  
3441          vs_top=sup;          vs_top=sup;
3442          goto TTL;          goto TTL;
3443  TTL:;  TTL:;
# Line 3517  TTL:; Line 3450  TTL:;
3450          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
3451          return;          return;
3452  }  }
3453  /*      local entry for function progn 'compile5882     */  /*      local entry for function progn 'compile5884     */
3454    
3455  static object LI146()  static object LI146()
3456    
# Line 3525  static object LI146() Line 3458  static object LI146()
3458          goto TTL;          goto TTL;
3459  TTL:;  TTL:;
3460          vs_base=vs_top;          vs_base=vs_top;
3461          (void) (*Lnk311)();          (void) (*Lnk310)();
3462          vs_top=sup;          vs_top=sup;
3463          {object V295 = Cnil;          {object V288 = Cnil;
3464          VMR146(V295)}          VMR146(V288)}
3465          base[0]=base[0];          base[0]=base[0];
3466          return Cnil;          return Cnil;
3467  }  }
3468  /*      local entry for function progn 'compile5899     */  /*      local entry for function progn 'compile5901     */
3469    
3470  static object LI147()  static object LI147()
3471    
# Line 3540  static object LI147() Line 3473  static object LI147()
3473          goto TTL;          goto TTL;
3474  TTL:;  TTL:;
3475          base[0]= VV[191];          base[0]= VV[191];
3476          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
3477          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3478          Ladjoin();          Ladjoin();
3479          vs_top=sup;          vs_top=sup;
3480          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
3481          {object V297 = Cnil;          {object V290 = Cnil;
3482          VMR147(V297)}          VMR147(V290)}
3483          base[0]=base[0];          base[0]=base[0];
3484          return Cnil;          return Cnil;
3485  }  }
3486  /*      local entry for function progn 'compile5923     */  /*      local entry for function progn 'compile5925     */
3487    
3488  static object LI148()  static object LI148()
3489    
# Line 3558  static object LI148() Line 3491  static object LI148()
3491          goto TTL;          goto TTL;
3492  TTL:;  TTL:;
3493          (void)(sputprop(VV[189],VV[9],Cnil));          (void)(sputprop(VV[189],VV[9],Cnil));
3494          {object V298 = Cnil;          {object V291 = Cnil;
3495          VMR148(V298)}          VMR148(V291)}
3496          return Cnil;          return Cnil;
3497  }  }
3498  /*      local entry for function progn 'compile5935     */  /*      local entry for function progn 'compile5937     */
3499    
3500  static object LI149()  static object LI149()
3501    
3502  {        VMB149 VMS149 VMV149  {        VMB149 VMS149 VMV149
3503          goto TTL;          goto TTL;
3504  TTL:;  TTL:;
3505          {object V299 = Cnil;          {object V292 = Cnil;
3506          VMR149(V299)}          VMR149(V292)}
3507          return Cnil;          return Cnil;
3508  }  }
3509  /*      function definition for Defclass ABORT-FAILURE5955      */  /*      function definition for Defclass ABORT-FAILURE5957      */
3510    
3511  static void L150()  static void L150()
3512  {register object *base=vs_base;  {register object *base=vs_base;
3513          register object *sup=base+VM150; VC150          register object *sup=base+VM150; VC150
3514          vs_reserve(VM150);          vs_check;
         check_arg(0);  
3515          vs_top=sup;          vs_top=sup;
3516          goto TTL;          goto TTL;
3517  TTL:;  TTL:;
# Line 3592  TTL:; Line 3524  TTL:;
3524          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
3525          return;          return;
3526  }  }
3527  /*      local entry for function progn 'compile5971     */  /*      local entry for function progn 'compile5973     */
3528    
3529  static object LI151()  static object LI151()
3530    
# Line 3600  static object LI151() Line 3532  static object LI151()
3532          goto TTL;          goto TTL;
3533  TTL:;  TTL:;
3534          vs_base=vs_top;          vs_base=vs_top;
3535          (void) (*Lnk312)();          (void) (*Lnk311)();
3536          vs_top=sup;          vs_top=sup;
3537          {object V300 = Cnil;          {object V293 = Cnil;
3538          VMR151(V300)}          VMR151(V293)}
3539          base[0]=base[0];          base[0]=base[0];
3540          return Cnil;          return Cnil;
3541  }  }
3542  /*      local entry for function progn 'compile5988     */  /*      local entry for function progn 'compile5990     */
3543    
3544  static object LI152()  static object LI152()
3545    
# Line 3615  static object LI152() Line 3547  static object LI152()
3547          goto TTL;          goto TTL;
3548  TTL:;  TTL:;
3549          base[0]= VV[194];          base[0]= VV[194];
3550          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
3551          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3552          Ladjoin();          Ladjoin();
3553          vs_top=sup;          vs_top=sup;
3554          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
3555          {object V302 = Cnil;          {object V295 = Cnil;
3556          VMR152(V302)}          VMR152(V295)}
3557          base[0]=base[0];          base[0]=base[0];
3558          return Cnil;          return Cnil;
3559  }  }
3560  /*      local entry for function progn 'compile6012     */  /*      local entry for function progn 'compile6014     */
3561    
3562  static object LI153()  static object LI153()
3563    
# Line 3633  static object LI153() Line 3565  static object LI153()
3565          goto TTL;          goto TTL;
3566  TTL:;  TTL:;
3567          (void)(sputprop(VV[192],VV[9],Cnil));          (void)(sputprop(VV[192],VV[9],Cnil));
3568          {object V303 = Cnil;          {object V296 = Cnil;
3569          VMR153(V303)}          VMR153(V296)}
3570          return Cnil;          return Cnil;
3571  }  }
3572  /*      local entry for function progn 'compile6028     */  /*      local entry for function progn 'compile6030     */
3573    
3574  static object LI154()  static object LI154()
3575    
# Line 3649  TTL:; Line 3581  TTL:;
3581          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3582          (void) (*Lnk269)();          (void) (*Lnk269)();
3583          vs_top=sup;          vs_top=sup;
3584          {object V304 = Cnil;          {object V297 = Cnil;
3585          VMR154(V304)}          VMR154(V297)}
3586          base[0]=base[0];          base[0]=base[0];
3587          return Cnil;          return Cnil;
3588  }  }
# Line 3659  TTL:; Line 3591  TTL:;
3591  static void L155()  static void L155()
3592  {register object *base=vs_base;  {register object *base=vs_base;
3593          register object *sup=base+VM155; VC155          register object *sup=base+VM155; VC155
3594          vs_reserve(VM155);          vs_check;
3595          {object V305;          {object V298;
3596          register object V306;          register object V299;
3597          register object V307;          register object V300;
3598          register object V308;          register object V301;
3599          check_arg(4);          V298=(base[0]);
3600          V305=(base[0]);          V299=(base[1]);
3601          V306=(base[1]);          V300=(base[2]);
3602          V307=(base[2]);          V301=(base[3]);
         V308=(base[3]);  
3603          vs_top=sup;          vs_top=sup;
3604          goto TTL;          goto TTL;
3605  TTL:;  TTL:;
3606          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
3607          goto T1027;}          goto T1013;}
3608          if(((V306))==Cnil){          if(((V299))==Cnil){
3609          goto T1030;}          goto T1016;}
3610          base[4]= (V306);          base[4]= (V299);
3611          base[5]= VV[35];          base[5]= VV[35];
3612          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3613          (void) (*Lnk270)();          (void) (*Lnk270)();
3614          vs_top=sup;          vs_top=sup;
3615          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3616          goto T1034;}          goto T1020;}
3617          base[4]= structure_ref((V306),VV[35],0);          base[4]= STREF(object,(V299),0);
3618          base[5]= structure_ref((V306),VV[35],1);          base[5]= STREF(object,(V299),4);
3619          base[6]= structure_ref((V306),VV[35],2);          base[6]= STREF(object,(V299),8);
3620          base[7]= (V307);          base[7]= (V300);
3621          base[8]= (V308);          base[8]= (V301);
3622          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3623          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3624                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3625                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3626                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3627          return;          return;
3628            goto T1020;
3629    T1020:;
3630            if(!(type_of((V299))==t_fixnum)){
3631            goto T1030;}
3632            {object V304;
3633            if(type_of(V300)==t_structure){
3634            goto T1036;}
3635          goto T1034;          goto T1034;
3636  T1034:;          goto T1036;
3637          if(!(type_of((V306))==t_fixnum)){  T1036:;
3638          goto T1044;}          if(!(((V300)->str.str_def)==(VV[196]))){
3639          {object V311;          goto T1034;}
3640          if(type_of(V307)==t_structure){          V304= STREF(object,(V300),4);
3641          goto T1050;}          goto T1032;
3642          goto T1048;          goto T1034;
3643          goto T1050;  T1034:;{object V306;
3644  T1050:;          V306= (VV[38]->s.s_dbind);
         base[4]= V307;  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk271)();  
         vs_top=sup;  
         V313= vs_base[0];  
         if(!((V313)==(VV[196]))){  
         goto T1048;}  
         V311= structure_ref((V307),VV[37],1);  
         goto T1046;  
         goto T1048;  
 T1048:;{object V314;  
         V314= symbol_value(VV[38]);  
3645          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3646          base[5]= (V307);          base[5]= (V300);
3647          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3648          (void) (*Lnk272)();          (void) (*Lnk271)();
3649          vs_top=sup;          vs_top=sup;
3650          V315= vs_base[0];          V307= vs_base[0];
3651          if(!((V314)==(car(V315)))){          if(!((V306)==(CMPcar(V307)))){
3652          goto T1055;}}          goto T1039;}}
3653          V311= car(((V307))->cc.cc_turbo[12]);          V304= CMPcar(((V300))->cc.cc_turbo[12]);
3654          goto T1046;          goto T1032;
3655          goto T1055;          goto T1039;
3656  T1055:;  T1039:;
3657          V311= Cnil;          V304= Cnil;
3658          goto T1046;          goto T1032;
3659  T1046:;  T1032:;
3660          if(((V311))==Cnil){          if(((V304))==Cnil){
3661          goto T1061;}          goto T1045;}
3662          base[4]= aset1((V311),fix((V306)),V307);          base[4]= ((V304))->v.v_self[fix((V299))]= (V300);
3663          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3664          return;          return;
3665          goto T1061;          goto T1045;
3666  T1061:;  T1045:;
3667          base[4]= Cnil;          base[4]= Cnil;
3668          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3669          return;}          return;}
3670          goto T1044;          goto T1030;
3671  T1044:;  T1030:;
3672          {register object V317;          {register object V309;
3673          V317= V306;          V309= V299;
3674          base[4]= (V317);          base[4]= (V309);
3675          base[5]= VV[39];          base[5]= VV[39];
3676          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3677          (void) (*Lnk270)();          (void) (*Lnk270)();
3678          vs_top=sup;          vs_top=sup;
3679          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3680          goto T1064;}          goto T1048;}
3681          {object V318;          {object V310;
3682          object V319;          object V311;
3683          register object V320;          register object V312;
3684          V318= structure_ref((V306),VV[39],0);          V310= STREF(object,(V299),0);
3685          V319= list(2,(V307),(V308));          V311= list(2,(V300),(V301));
3686          V320= structure_ref((V306),VV[39],1);          V312= STREF(object,(V299),4);
3687          if(((V320))==Cnil){          if(((V312))==Cnil){
3688          goto T1072;}          goto T1056;}
3689          if((cdr((V320)))!=Cnil){          if((CMPcdr((V312)))!=Cnil){
3690          goto T1072;}          goto T1056;}
3691          base[4]= (V319);          base[4]= (V311);
3692          base[5]= car((V320));          base[5]= CMPcar((V312));
3693          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3694          {object _funobj = (V318);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V310);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3695                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3696                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3697                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3698          return;          return;
3699          goto T1072;          goto T1056;
3700  T1072:;  T1056:;
3701          base[4]= (V318);          base[4]= (V310);
3702          base[5]= (V319);          base[5]= (V311);
3703          {object V321;          {object V313;
3704          V321= (V320);          V313= (V312);
3705           vs_top=base+6;           vs_top=base+6;
3706           while(!endp(V321))           while(V313!=Cnil)
3707           {vs_push(car(V321));V321=cdr(V321);}           {vs_push((V313)->c.c_car);V313=(V313)->c.c_cdr;}
3708          vs_base=base+5;}          vs_base=base+5;}
3709          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3710                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3711                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3712                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3713          return;}          return;}
3714          goto T1064;          goto T1048;
3715  T1064:;  T1048:;
3716          base[4]= (V317);          base[4]= (V309);
3717          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3718          Lfunctionp();          Lfunctionp();
3719          vs_top=sup;          vs_top=sup;
3720          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3721          goto T1082;}          goto T1066;}
3722          base[4]= (V307);          base[4]= (V300);
3723          base[5]= (V308);          base[5]= (V301);
3724          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3725          {object _funobj = (V306);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V299);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3726                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3727                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3728                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3729          return;          return;
3730          goto T1082;          goto T1066;
3731  T1082:;  T1066:;
3732          base[4]= VV[40];          base[4]= VV[40];
3733          base[5]= VV[18];          base[5]= VV[18];
3734          base[6]= VV[41];          base[6]= VV[41];
3735          base[7]= VV[42];          base[7]= VV[42];
3736          base[8]= V306;          base[8]= V299;
3737          base[9]= VV[43];          base[9]= VV[43];
3738          base[10]= VV[197];          base[10]= VV[197];
3739          base[11]= VV[45];          base[11]= VV[45];
# Line 3815  T1082:; Line 3741  T1082:;
3741          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
3742          (void) (*Lnk13)();          (void) (*Lnk13)();
3743          return;}          return;}
3744          goto T1030;          goto T1016;
3745  T1030:;  T1016:;
3746          base[4]= VV[47];          base[4]= VV[47];
3747          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3748          (void) (*Lnk273)();          (void) (*Lnk272)();
3749          return;          return;
3750          goto T1027;          goto T1013;
3751  T1027:;  T1013:;
3752          base[4]= VV[199];          base[4]= VV[199];
3753          base[5]= V308;          base[5]= V301;
3754          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3755          Lwrite_string();          Lwrite_string();
3756          return;          return;
3757          }          }
3758  }  }
3759  /*      local entry for function progn 'compile6229     */  /*      local entry for function progn 'compile6231     */
3760    
3761  static object LI156()  static object LI156()
3762    
# Line 3842  TTL:; Line 3768  TTL:;
3768          base[2]= Cnil;          base[2]= Cnil;
3769          base[3]= VV[200];          base[3]= VV[200];
3770          base[4]= VV[201];          base[4]= VV[201];
3771          V324= symbol_function(VV[313]);          V316= (VV[312]->s.s_gfdef);
3772          base[5]= listA(3,VV[51],V324,VV[202]);          base[5]= listA(3,VV[51],V316,VV[202]);
3773          base[6]= Cnil;          base[6]= Cnil;
3774          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3775          (void) (*Lnk276)();          (void) (*Lnk275)();
3776          vs_top=sup;          vs_top=sup;
3777          {object V325 = Cnil;          {object V317 = Cnil;
3778          VMR156(V325)}          VMR156(V317)}
3779          base[0]=base[0];          base[0]=base[0];
3780          return Cnil;          return Cnil;
3781  }  }
3782  /*      local entry for function progn 'compile6237     */  /*      local entry for function progn 'compile6239     */
3783    
3784  static object LI157()  static object LI157()
3785    
3786  {        VMB157 VMS157 VMV157  {        VMB157 VMS157 VMV157
3787          goto TTL;          goto TTL;
3788  TTL:;  TTL:;
3789          {object V326 = Cnil;          {object V318 = Cnil;
3790          VMR157(V326)}          VMR157(V318)}
3791          return Cnil;          return Cnil;
3792  }  }
3793  /*      function definition for Defclass INTERNAL-ERROR6257     */  /*      function definition for Defclass INTERNAL-ERROR6259     */
3794    
3795  static void L158()  static void L158()
3796  {register object *base=vs_base;  {register object *base=vs_base;
3797          register object *sup=base+VM158; VC158          register object *sup=base+VM158; VC158
3798          vs_reserve(VM158);          vs_check;
         check_arg(0);  
3799          vs_top=sup;          vs_top=sup;
3800          goto TTL;          goto TTL;
3801  TTL:;  TTL:;
# Line 3878  TTL:; Line 3803  TTL:;
3803          base[1]= VV[5];          base[1]= VV[5];
3804          base[2]= VV[204];          base[2]= VV[204];
3805          base[4]= VV[26];          base[4]= VV[26];
3806          base[5]= symbol_function(VV[267]);          base[5]= (VV[267]->s.s_gfdef);
3807          base[6]= VV[18];          base[6]= VV[18];
3808          base[7]= VV[205];          base[7]= VV[205];
3809          base[8]= VV[20];          base[8]= VV[20];
# Line 3891  TTL:; Line 3816  TTL:;
3816          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
3817          LlistA();          LlistA();
3818          vs_top=sup;          vs_top=sup;
3819          V327= vs_base[0];          V319= vs_base[0];
3820          base[3]= make_cons(V327,Cnil);          base[3]= make_cons(V319,Cnil);
3821          base[4]= Cnil;          base[4]= Cnil;
3822          base[5]= Cnil;          base[5]= Cnil;
3823          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
3824          return;          return;
3825  }  }
3826  /*      local entry for function progn 'compile6274     */  /*      local entry for function progn 'compile6276     */
3827    
3828  static object LI159()  static object LI159()
3829    
# Line 3906  static object LI159() Line 3831  static object LI159()
3831          goto TTL;          goto TTL;
3832  TTL:;  TTL:;
3833          vs_base=vs_top;          vs_base=vs_top;
3834          (void) (*Lnk314)();          (void) (*Lnk313)();
3835          vs_top=sup;          vs_top=sup;
3836          {object V328 = Cnil;          {object V320 = Cnil;
3837          VMR159(V328)}          VMR159(V320)}
3838          base[0]=base[0];          base[0]=base[0];
3839          return Cnil;          return Cnil;
3840  }  }
3841  /*      local entry for function progn 'compile6291     */  /*      local entry for function progn 'compile6293     */
3842    
3843  static object LI160()  static object LI160()
3844    
# Line 3921  static object LI160() Line 3846  static object LI160()
3846          goto TTL;          goto TTL;
3847  TTL:;  TTL:;
3848          base[0]= VV[209];          base[0]= VV[209];
3849          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
3850          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3851          Ladjoin();          Ladjoin();
3852          vs_top=sup;          vs_top=sup;
3853          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
3854          {object V330 = Cnil;          {object V322 = Cnil;
3855          VMR160(V330)}          VMR160(V322)}
3856          base[0]=base[0];          base[0]=base[0];
3857          return Cnil;          return Cnil;
3858  }  }
3859  /*      local entry for function progn 'compile6315     */  /*      local entry for function progn 'compile6317     */
3860    
3861  static object LI161()  static object LI161()
3862    
# Line 3939  static object LI161() Line 3864  static object LI161()
3864          goto TTL;          goto TTL;
3865  TTL:;  TTL:;
3866          (void)(sputprop(VV[203],VV[9],Cnil));          (void)(sputprop(VV[203],VV[9],Cnil));
3867          {object V331 = Cnil;          {object V323 = Cnil;
3868          VMR161(V331)}          VMR161(V323)}
3869          return Cnil;          return Cnil;
3870  }  }
3871  /*      local entry for function progn 'compile6331     */  /*      local entry for function progn 'compile6333     */
3872    
3873  static object LI162()  static object LI162()
3874    
# Line 3955  TTL:; Line 3880  TTL:;
3880          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3881          (void) (*Lnk269)();          (void) (*Lnk269)();
3882          vs_top=sup;          vs_top=sup;
3883          {object V332 = Cnil;          {object V324 = Cnil;
3884          VMR162(V332)}          VMR162(V324)}
3885          base[0]=base[0];          base[0]=base[0];
3886          return Cnil;          return Cnil;
3887  }  }
# Line 3965  TTL:; Line 3890  TTL:;
3890  static void L163()  static void L163()
3891  {register object *base=vs_base;  {register object *base=vs_base;
3892          register object *sup=base+VM163; VC163          register object *sup=base+VM163; VC163
3893          vs_reserve(VM163);          vs_check;
3894          {object V333;          {object V325;
3895          register object V334;          register object V326;
3896          register object V335;          register object V327;
3897          register object V336;          register object V328;
3898          check_arg(4);          V325=(base[0]);
3899          V333=(base[0]);          V326=(base[1]);
3900          V334=(base[1]);          V327=(base[2]);
3901          V335=(base[2]);          V328=(base[3]);
         V336=(base[3]);  
3902          vs_top=sup;          vs_top=sup;
3903          goto TTL;          goto TTL;
3904  TTL:;  TTL:;
3905          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
3906          goto T1140;}          goto T1124;}
3907          if(((V334))==Cnil){          if(((V326))==Cnil){
3908          goto T1143;}          goto T1127;}
3909          base[4]= (V334);          base[4]= (V326);
3910          base[5]= VV[35];          base[5]= VV[35];
3911          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3912          (void) (*Lnk270)();          (void) (*Lnk270)();
3913          vs_top=sup;          vs_top=sup;
3914          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3915          goto T1147;}          goto T1131;}
3916          base[4]= structure_ref((V334),VV[35],0);          base[4]= STREF(object,(V326),0);
3917          base[5]= structure_ref((V334),VV[35],1);          base[5]= STREF(object,(V326),4);
3918          base[6]= structure_ref((V334),VV[35],2);          base[6]= STREF(object,(V326),8);
3919          base[7]= (V335);          base[7]= (V327);
3920          base[8]= (V336);          base[8]= (V328);
3921          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3922          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3923                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3924                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3925                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3926          return;          return;
3927            goto T1131;
3928    T1131:;
3929            if(!(type_of((V326))==t_fixnum)){
3930            goto T1141;}
3931            {object V331;
3932            if(type_of(V327)==t_structure){
3933            goto T1147;}
3934            goto T1145;
3935          goto T1147;          goto T1147;
3936  T1147:;  T1147:;
3937          if(!(type_of((V334))==t_fixnum)){          if(!(((V327)->str.str_def)==(VV[211]))){
3938          goto T1157;}          goto T1145;}
3939          {object V339;          V331= STREF(object,(V327),4);
3940          if(type_of(V335)==t_structure){          goto T1143;
3941          goto T1163;}          goto T1145;
3942          goto T1161;  T1145:;{object V333;
3943          goto T1163;          V333= (VV[38]->s.s_dbind);
 T1163:;  
         base[4]= V335;  
         vs_top=(vs_base=base+4)+1;  
         (void) (*Lnk271)();  
         vs_top=sup;  
         V341= vs_base[0];  
         if(!((V341)==(VV[211]))){  
         goto T1161;}  
         V339= structure_ref((V335),VV[37],1);  
         goto T1159;  
         goto T1161;  
 T1161:;{object V342;  
         V342= symbol_value(VV[38]);  
3944          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3945          base[5]= (V335);          base[5]= (V327);
3946          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3947          (void) (*Lnk272)();          (void) (*Lnk271)();
3948          vs_top=sup;          vs_top=sup;
3949          V343= vs_base[0];          V334= vs_base[0];
3950          if(!((V342)==(car(V343)))){          if(!((V333)==(CMPcar(V334)))){
3951          goto T1168;}}          goto T1150;}}
3952          V339= car(((V335))->cc.cc_turbo[12]);          V331= CMPcar(((V327))->cc.cc_turbo[12]);
3953          goto T1159;          goto T1143;
3954          goto T1168;          goto T1150;
3955  T1168:;  T1150:;
3956          V339= Cnil;          V331= Cnil;
3957          goto T1159;          goto T1143;
3958  T1159:;  T1143:;
3959          if(((V339))==Cnil){          if(((V331))==Cnil){
3960          goto T1174;}          goto T1156;}
3961          base[4]= aset1((V339),fix((V334)),V335);          base[4]= ((V331))->v.v_self[fix((V326))]= (V327);
3962          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3963          return;          return;
3964          goto T1174;          goto T1156;
3965  T1174:;  T1156:;
3966          base[4]= Cnil;          base[4]= Cnil;
3967          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3968          return;}          return;}
3969          goto T1157;          goto T1141;
3970  T1157:;  T1141:;
3971          {register object V345;          {register object V336;
3972          V345= V334;          V336= V326;
3973          base[4]= (V345);          base[4]= (V336);
3974          base[5]= VV[39];          base[5]= VV[39];
3975          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3976          (void) (*Lnk270)();          (void) (*Lnk270)();
3977          vs_top=sup;          vs_top=sup;
3978          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3979          goto T1177;}          goto T1159;}
3980          {object V346;          {object V337;
3981          object V347;          object V338;
3982          register object V348;          register object V339;
3983          V346= structure_ref((V334),VV[39],0);          V337= STREF(object,(V326),0);
3984          V347= list(2,(V335),(V336));          V338= list(2,(V327),(V328));
3985          V348= structure_ref((V334),VV[39],1);          V339= STREF(object,(V326),4);
3986          if(((V348))==Cnil){          if(((V339))==Cnil){
3987          goto T1185;}          goto T1167;}
3988          if((cdr((V348)))!=Cnil){          if((CMPcdr((V339)))!=Cnil){
3989          goto T1185;}          goto T1167;}
3990          base[4]= (V347);          base[4]= (V338);
3991          base[5]= car((V348));          base[5]= CMPcar((V339));
3992          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3993          {object _funobj = (V346);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V337);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3994                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3995                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3996                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3997          return;          return;
3998          goto T1185;          goto T1167;
3999  T1185:;  T1167:;
4000          base[4]= (V346);          base[4]= (V337);
4001          base[5]= (V347);          base[5]= (V338);
4002          {object V349;          {object V340;
4003          V349= (V348);          V340= (V339);
4004           vs_top=base+6;           vs_top=base+6;
4005           while(!endp(V349))           while(V340!=Cnil)
4006           {vs_push(car(V349));V349=cdr(V349);}           {vs_push((V340)->c.c_car);V340=(V340)->c.c_cdr;}
4007          vs_base=base+5;}          vs_base=base+5;}
4008          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4009                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4010                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4011                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4012          return;}          return;}
4013          goto T1177;          goto T1159;
4014  T1177:;  T1159:;
4015          base[4]= (V345);          base[4]= (V336);
4016          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4017          Lfunctionp();          Lfunctionp();
4018          vs_top=sup;          vs_top=sup;
4019          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4020          goto T1195;}          goto T1177;}
4021          base[4]= (V335);          base[4]= (V327);
4022          base[5]= (V336);          base[5]= (V328);
4023          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4024          {object _funobj = (V334);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4025                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4026                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4027                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4028          return;          return;
4029          goto T1195;          goto T1177;
4030  T1195:;  T1177:;
4031          base[4]= VV[40];          base[4]= VV[40];
4032          base[5]= VV[18];          base[5]= VV[18];
4033          base[6]= VV[41];          base[6]= VV[41];
4034          base[7]= VV[42];          base[7]= VV[42];
4035          base[8]= V334;          base[8]= V326;
4036          base[9]= VV[43];          base[9]= VV[43];
4037          base[10]= VV[212];          base[10]= VV[212];
4038          base[11]= VV[45];          base[11]= VV[45];
# Line 4121  T1195:; Line 4040  T1195:;
4040          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4041          (void) (*Lnk13)();          (void) (*Lnk13)();
4042          return;}          return;}
4043          goto T1143;          goto T1127;
4044  T1143:;  T1127:;
4045          base[4]= VV[47];          base[4]= VV[47];
4046          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4047          (void) (*Lnk273)();          (void) (*Lnk272)();
4048          return;          return;
4049          goto T1140;          goto T1124;
4050  T1140:;  T1124:;
4051          {register object V351;          {register object V342;
4052          V351= (V336);          V342= (V328);
4053          base[4]= V335;          base[4]= V327;
4054          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4055          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk314)(Lclptr314);
4056          vs_top=sup;          vs_top=sup;
4057          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4058          goto T1210;}          goto T1192;}
4059          base[4]= (V351);          base[4]= (V342);
4060          base[5]= VV[214];          base[5]= VV[214];
4061          base[7]= V335;          base[7]= V327;
4062          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4063          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk314)(Lclptr314);
4064          vs_top=sup;          vs_top=sup;
4065          base[6]= vs_base[0];          base[6]= vs_base[0];
4066          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4067          Lformat();          Lformat();
4068          vs_top=sup;          vs_top=sup;
4069          goto T1210;          goto T1192;
4070  T1210:;  T1192:;
4071          if(((V334))==Cnil){          if(((V326))==Cnil){
4072          goto T1219;}          goto T1201;}
4073          base[4]= (V334);          base[4]= (V326);
4074          base[5]= VV[35];          base[5]= VV[35];
4075          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4076          (void) (*Lnk270)();          (void) (*Lnk270)();
4077          vs_top=sup;          vs_top=sup;
4078          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4079          goto T1223;}          goto T1205;}
4080          base[4]= structure_ref((V334),VV[35],0);          base[4]= STREF(object,(V326),0);
4081          base[5]= structure_ref((V334),VV[35],1);          base[5]= STREF(object,(V326),4);
4082          base[6]= structure_ref((V334),VV[35],2);          base[6]= STREF(object,(V326),8);
4083          base[7]= (V335);          base[7]= (V327);
4084          base[8]= (V351);          base[8]= (V342);
4085          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
4086          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4087                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4088                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4089                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4090          return;          return;
4091          goto T1223;          goto T1205;
4092  T1223:;  T1205:;
4093          if(!(type_of((V334))==t_fixnum)){          if(!(type_of((V326))==t_fixnum)){
4094          goto T1233;}          goto T1215;}
4095          {object V353;          {object V344;
4096          if(type_of(V335)==t_structure){          if(type_of(V327)==t_structure){
4097          goto T1239;}          goto T1221;}
4098          goto T1237;          goto T1219;
4099          goto T1239;          goto T1221;
4100  T1239:;  T1221:;
4101          base[4]= V335;          if(!(((V327)->str.str_def)==(VV[215]))){
4102          vs_top=(vs_base=base+4)+1;          goto T1219;}
4103          (void) (*Lnk271)();          V344= STREF(object,(V327),4);
4104          vs_top=sup;          goto T1217;
4105          V355= vs_base[0];          goto T1219;
4106          if(!((V355)==(VV[215]))){  T1219:;{object V346;
4107          goto T1237;}          V346= (VV[38]->s.s_dbind);
         V353= structure_ref((V335),VV[37],1);  
         goto T1235;  
         goto T1237;  
 T1237:;{object V356;  
         V356= symbol_value(VV[38]);  
4108          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4109          base[5]= (V335);          base[5]= (V327);
4110          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4111          (void) (*Lnk272)();          (void) (*Lnk271)();
4112          vs_top=sup;          vs_top=sup;
4113          V357= vs_base[0];          V347= vs_base[0];
4114          if(!((V356)==(car(V357)))){          if(!((V346)==(CMPcar(V347)))){
4115          goto T1244;}}          goto T1224;}}
4116          V353= car(((V335))->cc.cc_turbo[12]);          V344= CMPcar(((V327))->cc.cc_turbo[12]);
4117          goto T1235;          goto T1217;
4118          goto T1244;          goto T1224;
4119  T1244:;  T1224:;
4120          V353= Cnil;          V344= Cnil;
4121          goto T1235;          goto T1217;
4122  T1235:;  T1217:;
4123          if(((V353))==Cnil){          if(((V344))==Cnil){
4124          goto T1250;}          goto T1230;}
4125          base[4]= aset1((V353),fix((V334)),V335);          base[4]= ((V344))->v.v_self[fix((V326))]= (V327);
4126          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4127          return;          return;
4128          goto T1250;          goto T1230;
4129  T1250:;  T1230:;
4130          base[4]= Cnil;          base[4]= Cnil;
4131          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4132          return;}          return;}
4133          goto T1233;          goto T1215;
4134  T1233:;  T1215:;
4135          {register object V359;          {register object V349;
4136          V359= V334;          V349= V326;
4137          base[4]= (V359);          base[4]= (V349);
4138          base[5]= VV[39];          base[5]= VV[39];
4139          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4140          (void) (*Lnk270)();          (void) (*Lnk270)();
4141          vs_top=sup;          vs_top=sup;
4142          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4143          goto T1253;}          goto T1233;}
4144          {object V360;          {object V350;
4145          object V361;          object V351;
4146          register object V362;          register object V352;
4147          V360= structure_ref((V334),VV[39],0);          V350= STREF(object,(V326),0);
4148          V361= list(2,(V335),(V351));          V351= list(2,(V327),(V342));
4149          V362= structure_ref((V334),VV[39],1);          V352= STREF(object,(V326),4);
4150          if(((V362))==Cnil){          if(((V352))==Cnil){
4151          goto T1261;}          goto T1241;}
4152          if((cdr((V362)))!=Cnil){          if((CMPcdr((V352)))!=Cnil){
4153          goto T1261;}          goto T1241;}
4154          base[4]= (V361);          base[4]= (V351);
4155          base[5]= car((V362));          base[5]= CMPcar((V352));
4156          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4157          {object _funobj = (V360);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V350);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4158                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4159                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4160                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4161          return;          return;
4162          goto T1261;          goto T1241;
4163  T1261:;  T1241:;
4164          base[4]= (V360);          base[4]= (V350);
4165          base[5]= (V361);          base[5]= (V351);
4166          {object V363;          {object V353;
4167          V363= (V362);          V353= (V352);
4168           vs_top=base+6;           vs_top=base+6;
4169           while(!endp(V363))           while(V353!=Cnil)
4170           {vs_push(car(V363));V363=cdr(V363);}           {vs_push((V353)->c.c_car);V353=(V353)->c.c_cdr;}
4171          vs_base=base+5;}          vs_base=base+5;}
4172          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4173                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4174                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4175                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4176          return;}          return;}
4177          goto T1253;          goto T1233;
4178  T1253:;  T1233:;
4179          base[4]= (V359);          base[4]= (V349);
4180          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4181          Lfunctionp();          Lfunctionp();
4182          vs_top=sup;          vs_top=sup;
4183          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4184          goto T1271;}          goto T1251;}
4185          base[4]= (V335);          base[4]= (V327);
4186          base[5]= (V351);          base[5]= (V342);
4187          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4188          {object _funobj = (V334);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4189                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4190                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4191                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4192          return;          return;
4193          goto T1271;          goto T1251;
4194  T1271:;  T1251:;
4195          base[4]= VV[40];          base[4]= VV[40];
4196          base[5]= VV[18];          base[5]= VV[18];
4197          base[6]= VV[41];          base[6]= VV[41];
4198          base[7]= VV[42];          base[7]= VV[42];
4199          base[8]= V334;          base[8]= V326;
4200          base[9]= VV[43];          base[9]= VV[43];
4201          base[10]= VV[216];          base[10]= VV[216];
4202          base[11]= VV[45];          base[11]= VV[45];
# Line 4290  T1271:; Line 4204  T1271:;
4204          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4205          (void) (*Lnk13)();          (void) (*Lnk13)();
4206          return;}          return;}
4207          goto T1219;          goto T1201;
4208  T1219:;  T1201:;
4209          base[4]= VV[47];          base[4]= VV[47];
4210          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4211          (void) (*Lnk273)();          (void) (*Lnk272)();
4212          return;}          return;}
4213          }          }
4214  }  }
4215  /*      local entry for function progn 'compile6644     */  /*      local entry for function progn 'compile6646     */
4216    
4217  static object LI164()  static object LI164()
4218    
# Line 4310  TTL:; Line 4224  TTL:;
4224          base[2]= Cnil;          base[2]= Cnil;
4225          base[3]= VV[218];          base[3]= VV[218];
4226          base[4]= VV[219];          base[4]= VV[219];
4227          V364= symbol_function(VV[316]);          V354= (VV[315]->s.s_gfdef);
4228          base[5]= listA(3,VV[51],V364,VV[220]);          base[5]= listA(3,VV[51],V354,VV[220]);
4229          base[6]= Cnil;          base[6]= Cnil;
4230          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
4231          (void) (*Lnk276)();          (void) (*Lnk275)();
4232          vs_top=sup;          vs_top=sup;
4233          {object V365 = Cnil;          {object V355 = Cnil;
4234          VMR164(V365)}          VMR164(V355)}
4235          base[0]=base[0];          base[0]=base[0];
4236          return Cnil;          return Cnil;
4237  }  }
4238  /*      local entry for function progn 'compile6652     */  /*      local entry for function progn 'compile6654     */
4239    
4240  static object LI165()  static object LI165()
4241    
4242  {        VMB165 VMS165 VMV165  {        VMB165 VMS165 VMV165
4243          goto TTL;          goto TTL;
4244  TTL:;  TTL:;
4245          {object V366 = Cnil;          {object V356 = Cnil;
4246          VMR165(V366)}          VMR165(V356)}
4247          return Cnil;          return Cnil;
4248  }  }
4249  /*      local entry for function INTERNAL-SIMPLE-ERROR-PRINTER  */  /*      local entry for function INTERNAL-SIMPLE-ERROR-PRINTER  */
4250    
4251  static object LI166(V369,V370)  static object LI166(V359,V360)
4252    
4253  register object V369;object V370;  register object V359;object V360;
4254  {        VMB166 VMS166 VMV166  {        VMB166 VMS166 VMV166
4255          goto TTL;          goto TTL;
4256  TTL:;  TTL:;
4257          base[0]= (V369);          base[0]= (V359);
4258          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4259          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk314)(Lclptr314);
4260          vs_top=sup;          vs_top=sup;
4261          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4262          goto T1296;}          goto T1276;}
4263          base[0]= (V370);          base[0]= (V360);
4264          base[1]= VV[221];          base[1]= VV[221];
4265          base[3]= (V369);          base[3]= (V359);
4266          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4267          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk314)(Lclptr314);
4268          vs_top=sup;          vs_top=sup;
4269          base[2]= vs_base[0];          base[2]= vs_base[0];
4270          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4271          Lformat();          Lformat();
4272          vs_top=sup;          vs_top=sup;
4273          goto T1296;          goto T1276;
4274  T1296:;  T1276:;
4275          base[0]= (V370);          base[0]= (V360);
4276          base[2]= (V369);          base[2]= (V359);
4277          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4278          (void) (*Lnk265)(Lclptr265);          (void) (*Lnk265)(Lclptr265);
4279          vs_top=sup;          vs_top=sup;
4280          base[1]= vs_base[0];          base[1]= vs_base[0];
4281          {object V371;          {object V361;
4282          base[2]= (V369);          base[2]= (V359);
4283          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4284          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk266)(Lclptr266);
4285          vs_top=sup;          vs_top=sup;
4286          V371= vs_base[0];          V361= vs_base[0];
4287           vs_top=base+2;           vs_top=base+2;
4288           while(!endp(V371))           while(V361!=Cnil)
4289           {vs_push(car(V371));V371=cdr(V371);}           {vs_push((V361)->c.c_car);V361=(V361)->c.c_cdr;}
4290          vs_base=base+0;}          vs_base=base+0;}
4291          Lformat();          Lformat();
4292          vs_top=sup;          vs_top=sup;
4293          {object V372 = vs_base[0];          {object V362 = vs_base[0];
4294          VMR166(V372)}          VMR166(V362)}
4295          base[0]=base[0];          base[0]=base[0];
4296          return Cnil;          return Cnil;
4297  }  }
4298  /*      function definition for Defclass INTERNAL-SIMPLE-ERROR6684      */  /*      function definition for Defclass INTERNAL-SIMPLE-ERROR6686      */
4299    
4300  static void L167()  static void L167()
4301  {register object *base=vs_base;  {register object *base=vs_base;
4302          register object *sup=base+VM167; VC167          register object *sup=base+VM167; VC167
4303          vs_reserve(VM167);          vs_check;
         check_arg(0);  
4304          vs_top=sup;          vs_top=sup;
4305          goto TTL;          goto TTL;
4306  TTL:;  TTL:;
# Line 4400  TTL:; Line 4313  TTL:;
4313          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
4314          return;          return;
4315  }  }
4316  /*      local entry for function progn 'compile6700     */  /*      local entry for function progn 'compile6702     */
4317    
4318  static object LI168()  static object LI168()
4319    
# Line 4408  static object LI168() Line 4321  static object LI168()
4321          goto TTL;          goto TTL;
4322  TTL:;  TTL:;
4323          vs_base=vs_top;          vs_base=vs_top;
4324          (void) (*Lnk317)();          (void) (*Lnk316)();
4325          vs_top=sup;          vs_top=sup;
4326          {object V373 = Cnil;          {object V363 = Cnil;
4327          VMR168(V373)}          VMR168(V363)}
4328          base[0]=base[0];          base[0]=base[0];
4329          return Cnil;          return Cnil;
4330  }  }
4331  /*      local entry for function progn 'compile6717     */  /*      local entry for function progn 'compile6719     */
4332    
4333  static object LI169()  static object LI169()
4334    
# Line 4423  static object LI169() Line 4336  static object LI169()
4336          goto TTL;          goto TTL;
4337  TTL:;  TTL:;
4338          base[0]= VV[224];          base[0]= VV[224];
4339          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
4340          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4341          Ladjoin();          Ladjoin();
4342          vs_top=sup;          vs_top=sup;
4343          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
4344          {object V375 = Cnil;          {object V365 = Cnil;
4345          VMR169(V375)}          VMR169(V365)}
4346          base[0]=base[0];          base[0]=base[0];
4347          return Cnil;          return Cnil;
4348  }  }
4349  /*      local entry for function progn 'compile6741     */  /*      local entry for function progn 'compile6743     */
4350    
4351  static object LI170()  static object LI170()
4352    
# Line 4441  static object LI170() Line 4354  static object LI170()
4354          goto TTL;          goto TTL;
4355  TTL:;  TTL:;
4356          (void)(sputprop(VV[222],VV[9],Cnil));          (void)(sputprop(VV[222],VV[9],Cnil));
4357          {object V376 = Cnil;          {object V366 = Cnil;
4358          VMR170(V376)}          VMR170(V366)}
4359          return Cnil;          return Cnil;
4360  }  }
4361  /*      local entry for function progn 'compile6757     */  /*      local entry for function progn 'compile6759     */
4362    
4363  static object LI171()  static object LI171()
4364    
# Line 4457  TTL:; Line 4370  TTL:;
4370          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4371          (void) (*Lnk269)();          (void) (*Lnk269)();
4372          vs_top=sup;          vs_top=sup;
4373          {object V377 = Cnil;          {object V367 = Cnil;
4374          VMR171(V377)}          VMR171(V367)}
4375          base[0]=base[0];          base[0]=base[0];
4376          return Cnil;          return Cnil;
4377  }  }
# Line 4467  TTL:; Line 4380  TTL:;
4380  static void L172()  static void L172()
4381  {register object *base=vs_base;  {register object *base=vs_base;
4382          register object *sup=base+VM172; VC172          register object *sup=base+VM172; VC172
4383          vs_reserve(VM172);          vs_check;
4384          {object V378;          {object V368;
4385          register object V379;          register object V369;
4386          register object V380;          register object V370;
4387          register object V381;          register object V371;
4388          check_arg(4);          V368=(base[0]);
4389          V378=(base[0]);          V369=(base[1]);
4390          V379=(base[1]);          V370=(base[2]);
4391          V380=(base[2]);          V371=(base[3]);
         V381=(base[3]);  
4392          vs_top=sup;          vs_top=sup;
4393          goto TTL;          goto TTL;
4394  TTL:;  TTL:;
4395          if((symbol_value(VV[34]))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
4396          goto T1328;}          goto T1308;}
4397          if(((V379))==Cnil){          if(((V369))==Cnil){
4398          goto T1331;}          goto T1311;}
4399          base[4]= (V379);          base[4]= (V369);
4400          base[5]= VV[35];          base[5]= VV[35];
4401          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4402          (void) (*Lnk270)();          (void) (*Lnk270)();
4403          vs_top=sup;          vs_top=sup;
4404          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4405          goto T1335;}          goto T1315;}
4406          base[4]= structure_ref((V379),VV[35],0);          base[4]= STREF(object,(V369),0);
4407          base[5]= structure_ref((V379),VV[35],1);          base[5]= STREF(object,(V369),4);
4408          base[6]= structure_ref((V379),VV[35],2);          base[6]= STREF(object,(V369),8);
4409          base[7]= (V380);          base[7]= (V370);
4410          base[8]= (V381);          base[8]= (V371);
4411          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
4412          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4413                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4414                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4415                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4416          return;          return;
4417          goto T1335;          goto T1315;
4418  T1335:;  T1315:;
4419          if(!(type_of((V379))==t_fixnum)){          if(!(type_of((V369))==t_fixnum)){
4420          goto T1345;}          goto T1325;}
4421          {object V384;          {object V374;
4422          if(type_of(V380)==t_structure){          if(type_of(V370)==t_structure){
4423          goto T1351;}          goto T1331;}
4424          goto T1349;          goto T1329;
4425          goto T1351;          goto T1331;
4426  T1351:;  T1331:;
4427          base[4]= V380;          if(!(((V370)->str.str_def)==(VV[226]))){
4428          vs_top=(vs_base=base+4)+1;          goto T1329;}
4429          (void) (*Lnk271)();          V374= STREF(object,(V370),4);
4430          vs_top=sup;          goto T1327;
4431          V386= vs_base[0];          goto T1329;
4432          if(!((V386)==(VV[226]))){  T1329:;{object V376;
4433          goto T1349;}          V376= (VV[38]->s.s_dbind);
         V384= structure_ref((V380),VV[37],1);  
         goto T1347;  
         goto T1349;  
 T1349:;{object V387;  
         V387= symbol_value(VV[38]);  
4434          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4435          base[5]= (V380);          base[5]= (V370);
4436          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4437          (void) (*Lnk272)();          (void) (*Lnk271)();
4438          vs_top=sup;          vs_top=sup;
4439          V388= vs_base[0];          V377= vs_base[0];
4440          if(!((V387)==(car(V388)))){          if(!((V376)==(CMPcar(V377)))){
4441          goto T1356;}}          goto T1334;}}
4442          V384= car(((V380))->cc.cc_turbo[12]);          V374= CMPcar(((V370))->cc.cc_turbo[12]);
4443          goto T1347;          goto T1327;
4444          goto T1356;          goto T1334;
4445  T1356:;  T1334:;
4446          V384= Cnil;          V374= Cnil;
4447          goto T1347;          goto T1327;
4448  T1347:;  T1327:;
4449          if(((V384))==Cnil){          if(((V374))==Cnil){
4450          goto T1362;}          goto T1340;}
4451          base[4]= aset1((V384),fix((V379)),V380);          base[4]= ((V374))->v.v_self[fix((V369))]= (V370);
4452          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4453          return;          return;
4454          goto T1362;          goto T1340;
4455  T1362:;  T1340:;
4456          base[4]= Cnil;          base[4]= Cnil;
4457          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4458          return;}          return;}
4459          goto T1345;          goto T1325;
4460  T1345:;  T1325:;
4461          {register object V390;          {register object V379;
4462          V390= V379;          V379= V369;
4463          base[4]= (V390);          base[4]= (V379);
4464          base[5]= VV[39];          base[5]= VV[39];
4465          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4466          (void) (*Lnk270)();          (void) (*Lnk270)();
4467          vs_top=sup;          vs_top=sup;
4468          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4469          goto T1365;}          goto T1343;}
4470          {object V391;          {object V380;
4471          object V392;          object V381;
4472          register object V393;          register object V382;
4473          V391= structure_ref((V379),VV[39],0);          V380= STREF(object,(V369),0);
4474          V392= list(2,(V380),(V381));          V381= list(2,(V370),(V371));
4475          V393= structure_ref((V379),VV[39],1);          V382= STREF(object,(V369),4);
4476          if(((V393))==Cnil){          if(((V382))==Cnil){
4477          goto T1373;}          goto T1351;}
4478          if((cdr((V393)))!=Cnil){          if((CMPcdr((V382)))!=Cnil){
4479          goto T1373;}          goto T1351;}
4480          base[4]= (V392);          base[4]= (V381);
4481          base[5]= car((V393));          base[5]= CMPcar((V382));
4482          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4483          {object _funobj = (V391);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V380);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4484                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4485                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4486                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4487          return;          return;
4488          goto T1373;          goto T1351;
4489  T1373:;  T1351:;
4490          base[4]= (V391);          base[4]= (V380);
4491          base[5]= (V392);          base[5]= (V381);
4492          {object V394;          {object V383;
4493          V394= (V393);          V383= (V382);
4494           vs_top=base+6;           vs_top=base+6;
4495           while(!endp(V394))           while(V383!=Cnil)
4496           {vs_push(car(V394));V394=cdr(V394);}           {vs_push((V383)->c.c_car);V383=(V383)->c.c_cdr;}
4497          vs_base=base+5;}          vs_base=base+5;}
4498          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = base[4];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4499                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4500                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4501                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4502          return;}          return;}
4503          goto T1365;          goto T1343;
4504  T1365:;  T1343:;
4505          base[4]= (V390);          base[4]= (V379);
4506          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4507          Lfunctionp();          Lfunctionp();
4508          vs_top=sup;          vs_top=sup;
4509          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4510          goto T1383;}          goto T1361;}
4511          base[4]= (V380);          base[4]= (V370);
4512          base[5]= (V381);          base[5]= (V371);
4513          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4514          {object _funobj = (V379);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V369);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4515                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4516                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4517                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4518          return;          return;
4519          goto T1383;          goto T1361;
4520  T1383:;  T1361:;
4521          base[4]= VV[40];          base[4]= VV[40];
4522          base[5]= VV[18];          base[5]= VV[18];
4523          base[6]= VV[41];          base[6]= VV[41];
4524          base[7]= VV[42];          base[7]= VV[42];
4525          base[8]= V379;          base[8]= V369;
4526          base[9]= VV[43];          base[9]= VV[43];
4527          base[10]= VV[227];          base[10]= VV[227];
4528          base[11]= VV[45];          base[11]= VV[45];
# Line 4623  T1383:; Line 4530  T1383:;
4530          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4531          (void) (*Lnk13)();          (void) (*Lnk13)();
4532          return;}          return;}
4533          goto T1331;          goto T1311;
4534  T1331:;  T1311:;
4535          base[4]= VV[47];          base[4]= VV[47];
4536          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4537          (void) (*Lnk273)();          (void) (*Lnk272)();
4538          return;          return;
4539          goto T1328;          goto T1308;
4540  T1328:;  T1308:;
4541          base[4]= (*(LnkLI318))((V380),(V381));          base[4]= (*(LnkLI317))((V370),(V371));
4542          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4543          return;          return;
4544          }          }
4545  }  }
4546  /*      local entry for function progn 'compile6950     */  /*      local entry for function progn 'compile6952     */
4547    
4548  static object LI173()  static object LI173()
4549    
# Line 4648  TTL:; Line 4555  TTL:;
4555          base[2]= Cnil;          base[2]= Cnil;
4556          base[3]= VV[229];          base[3]= VV[229];
4557          base[4]= VV[230];          base[4]= VV[230];
4558          V395= symbol_function(VV[319]);          V384= (VV[318]->s.s_gfdef);
4559          base[5]= listA(3,VV[51],V395,VV[231]);          base[5]= listA(3,VV[51],V384,VV[231]);
4560          base[6]= Cnil;          base[6]= Cnil;
4561          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
4562          (void) (*Lnk276)();          (void) (*Lnk275)();
4563          vs_top=sup;          vs_top=sup;
4564          {object V396 = Cnil;          {object V385 = Cnil;
4565          VMR173(V396)}          VMR173(V385)}
4566          base[0]=base[0];          base[0]=base[0];
4567          return Cnil;          return Cnil;
4568  }  }
4569  /*      local entry for function progn 'compile6958     */  /*      local entry for function progn 'compile6960     */
4570    
4571  static object LI174()  static object LI174()
4572    
4573  {        VMB174 VMS174 VMV174  {        VMB174 VMS174 VMV174
4574          goto TTL;          goto TTL;
4575  TTL:;  TTL:;
4576          {object V397 = Cnil;          {object V386 = Cnil;
4577          VMR174(V397)}          VMR174(V386)}
4578          return Cnil;          return Cnil;
4579  }  }
4580  /*      function definition for Defclass INTERNAL-TYPE-ERROR6978        */  /*      function definition for Defclass INTERNAL-TYPE-ERROR6980        */
4581    
4582  static void L175()  static void L175()
4583  {register object *base=vs_base;  {register object *base=vs_base;
4584          register object *sup=base+VM175; VC175          register object *sup=base+VM175; VC175
4585          vs_reserve(VM175);          vs_check;
         check_arg(0);  
4586          vs_top=sup;          vs_top=sup;
4587          goto TTL;          goto TTL;
4588  TTL:;  TTL:;
# Line 4689  TTL:; Line 4595  TTL:;
4595          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
4596          return;          return;
4597  }  }
4598  /*      local entry for function progn 'compile6994     */  /*      local entry for function progn 'compile6996     */
4599    
4600  static object LI176()  static object LI176()
4601    
# Line 4697  static object LI176() Line 4603  static object LI176()
4603          goto TTL;          goto TTL;
4604  TTL:;  TTL:;
4605          vs_base=vs_top;          vs_base=vs_top;
4606          (void) (*Lnk320)();          (void) (*Lnk319)();
4607          vs_top=sup;          vs_top=sup;
4608          {object V398 = Cnil;          {object V387 = Cnil;
4609          VMR176(V398)}          VMR176(V387)}
4610          base[0]=base[0];          base[0]=base[0];
4611          return Cnil;          return Cnil;
4612  }  }
4613  /*      local entry for function progn 'compile7011     */  /*      local entry for function progn 'compile7013     */
4614    
4615  static object LI177()  static object LI177()
4616    
# Line 4712  static object LI177() Line 4618  static object LI177()
4618          goto TTL;          goto TTL;
4619  TTL:;  TTL:;
4620          base[0]= VV[234];          base[0]= VV[234];
4621          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
4622          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4623          Ladjoin();          Ladjoin();
4624          vs_top=sup;          vs_top=sup;
4625          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
4626          {object V400 = Cnil;          {object V389 = Cnil;
4627          VMR177(V400)}          VMR177(V389)}
4628          base[0]=base[0];          base[0]=base[0];
4629          return Cnil;          return Cnil;
4630  }  }
4631  /*      local entry for function progn 'compile7035     */  /*      local entry for function progn 'compile7037     */
4632    
4633  static object LI178()  static object LI178()
4634    
# Line 4730  static object LI178() Line 4636  static object LI178()
4636          goto TTL;          goto TTL;
4637  TTL:;  TTL:;
4638          (void)(sputprop(VV[232],VV[9],Cnil));          (void)(sputprop(VV[232],VV[9],Cnil));
4639          {object V401 = Cnil;          {object V390 = Cnil;
4640          VMR178(V401)}          VMR178(V390)}
4641          return Cnil;          return Cnil;
4642  }  }
4643  /*      local entry for function progn 'compile7047     */  /*      local entry for function progn 'compile7049     */
4644    
4645  static object LI179()  static object LI179()
4646    
4647  {        VMB179 VMS179 VMV179  {        VMB179 VMS179 VMV179
4648          goto TTL;          goto TTL;
4649  TTL:;  TTL:;
4650          {object V402 = Cnil;          {object V391 = Cnil;
4651          VMR179(V402)}          VMR179(V391)}
4652          return Cnil;          return Cnil;
4653  }  }
4654  /*      function definition for Defclass INTERNAL-PACKAGE-ERROR7067     */  /*      function definition for Defclass INTERNAL-PACKAGE-ERROR7069     */
4655    
4656  static void L180()  static void L180()
4657  {register object *base=vs_base;  {register object *base=vs_base;
4658          register object *sup=base+VM180; VC180          register object *sup=base+VM180; VC180
4659          vs_reserve(VM180);          vs_check;
         check_arg(0);  
4660          vs_top=sup;          vs_top=sup;
4661          goto TTL;          goto TTL;
4662  TTL:;  TTL:;
# Line 4764  TTL:; Line 4669  TTL:;
4669          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
4670          return;          return;
4671  }  }
4672  /*      local entry for function progn 'compile7083     */  /*      local entry for function progn 'compile7085     */
4673    
4674  static object LI181()  static object LI181()
4675    
# Line 4772  static object LI181() Line 4677  static object LI181()
4677          goto TTL;          goto TTL;
4678  TTL:;  TTL:;
4679          vs_base=vs_top;          vs_base=vs_top;
4680          (void) (*Lnk321)();          (void) (*Lnk320)();
4681          vs_top=sup;          vs_top=sup;
4682          {object V403 = Cnil;          {object V392 = Cnil;
4683          VMR181(V403)}          VMR181(V392)}
4684          base[0]=base[0];          base[0]=base[0];
4685          return Cnil;          return Cnil;
4686  }  }
4687  /*      local entry for function progn 'compile7100     */  /*      local entry for function progn 'compile7102     */
4688    
4689  static object LI182()  static object LI182()
4690    
# Line 4787  static object LI182() Line 4692  static object LI182()
4692          goto TTL;          goto TTL;
4693  TTL:;  TTL:;
4694          base[0]= VV[237];          base[0]= VV[237];
4695          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
4696          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4697          Ladjoin();          Ladjoin();
4698          vs_top=sup;          vs_top=sup;
4699          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
4700          {object V405 = Cnil;          {object V394 = Cnil;
4701          VMR182(V405)}          VMR182(V394)}
4702          base[0]=base[0];          base[0]=base[0];
4703          return Cnil;          return Cnil;
4704  }  }
4705  /*      local entry for function progn 'compile7124     */  /*      local entry for function progn 'compile7126     */
4706    
4707  static object LI183()  static object LI183()
4708    
# Line 4805  static object LI183() Line 4710  static object LI183()
4710          goto TTL;          goto TTL;
4711  TTL:;  TTL:;
4712          (void)(sputprop(VV[235],VV[9],Cnil));          (void)(sputprop(VV[235],VV[9],Cnil));
4713          {object V406 = Cnil;          {object V395 = Cnil;
4714          VMR183(V406)}          VMR183(V395)}
4715          return Cnil;          return Cnil;
4716  }  }
4717  /*      local entry for function progn 'compile7136     */  /*      local entry for function progn 'compile7138     */
4718    
4719  static object LI184()  static object LI184()
4720    
4721  {        VMB184 VMS184 VMV184  {        VMB184 VMS184 VMV184
4722          goto TTL;          goto TTL;
4723  TTL:;  TTL:;
4724          {object V407 = Cnil;          {object V396 = Cnil;
4725          VMR184(V407)}          VMR184(V396)}
4726          return Cnil;          return Cnil;
4727  }  }
4728  /*      function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7156      */  /*      function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158      */
4729    
4730  static void L185()  static void L185()
4731  {register object *base=vs_base;  {register object *base=vs_base;
4732          register object *sup=base+VM185; VC185          register object *sup=base+VM185; VC185
4733          vs_reserve(VM185);          vs_check;
         check_arg(0);  
4734          vs_top=sup;          vs_top=sup;
4735          goto TTL;          goto TTL;
4736  TTL:;  TTL:;
# Line 4839  TTL:; Line 4743  TTL:;
4743          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
4744          return;          return;
4745  }  }
4746  /*      local entry for function progn 'compile7172     */  /*      local entry for function progn 'compile7174     */
4747    
4748  static object LI186()  static object LI186()
4749    
# Line 4847  static object LI186() Line 4751  static object LI186()
4751          goto TTL;          goto TTL;
4752  TTL:;  TTL:;
4753          vs_base=vs_top;          vs_base=vs_top;
4754          (void) (*Lnk322)();          (void) (*Lnk321)();
4755          vs_top=sup;          vs_top=sup;
4756          {object V408 = Cnil;          {object V397 = Cnil;
4757          VMR186(V408)}          VMR186(V397)}
4758          base[0]=base[0];          base[0]=base[0];
4759          return Cnil;          return Cnil;
4760  }  }
4761  /*      local entry for function progn 'compile7189     */  /*      local entry for function progn 'compile7191     */
4762    
4763  static object LI187()  static object LI187()
4764    
# Line 4862  static object LI187() Line 4766  static object LI187()
4766          goto TTL;          goto TTL;
4767  TTL:;  TTL:;
4768          base[0]= VV[240];          base[0]= VV[240];
4769          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
4770          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4771          Ladjoin();          Ladjoin();
4772          vs_top=sup;          vs_top=sup;
4773          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
4774          {object V410 = Cnil;          {object V399 = Cnil;
4775          VMR187(V410)}          VMR187(V399)}
4776          base[0]=base[0];          base[0]=base[0];
4777          return Cnil;          return Cnil;
4778  }  }
4779  /*      local entry for function progn 'compile7213     */  /*      local entry for function progn 'compile7215     */
4780    
4781  static object LI188()  static object LI188()
4782    
# Line 4880  static object LI188() Line 4784  static object LI188()
4784          goto TTL;          goto TTL;
4785  TTL:;  TTL:;
4786          (void)(sputprop(VV[238],VV[9],Cnil));          (void)(sputprop(VV[238],VV[9],Cnil));
4787          {object V411 = Cnil;          {object V400 = Cnil;
4788          VMR188(V411)}          VMR188(V400)}
4789          return Cnil;          return Cnil;
4790  }  }
4791  /*      local entry for function progn 'compile7225     */  /*      local entry for function progn 'compile7227     */
4792    
4793  static object LI189()  static object LI189()
4794    
4795  {        VMB189 VMS189 VMV189  {        VMB189 VMS189 VMV189
4796          goto TTL;          goto TTL;
4797  TTL:;  TTL:;
4798          {object V412 = Cnil;          {object V401 = Cnil;
4799          VMR189(V412)}          VMR189(V401)}
4800          return Cnil;          return Cnil;
4801  }  }
4802  /*      function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7245      */  /*      function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247      */
4803    
4804  static void L190()  static void L190()
4805  {register object *base=vs_base;  {register object *base=vs_base;
4806          register object *sup=base+VM190; VC190          register object *sup=base+VM190; VC190
4807          vs_reserve(VM190);          vs_check;
         check_arg(0);  
4808          vs_top=sup;          vs_top=sup;
4809          goto TTL;          goto TTL;
4810  TTL:;  TTL:;
# Line 4914  TTL:; Line 4817  TTL:;
4817          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
4818          return;          return;
4819  }  }
4820  /*      local entry for function progn 'compile7261     */  /*      local entry for function progn 'compile7263     */
4821    
4822  static object LI191()  static object LI191()
4823    
# Line 4922  static object LI191() Line 4825  static object LI191()
4825          goto TTL;          goto TTL;
4826  TTL:;  TTL:;
4827          vs_base=vs_top;          vs_base=vs_top;
4828          (void) (*Lnk323)();          (void) (*Lnk322)();
4829          vs_top=sup;          vs_top=sup;
4830          {object V413 = Cnil;          {object V402 = Cnil;
4831          VMR191(V413)}          VMR191(V402)}
4832          base[0]=base[0];          base[0]=base[0];
4833          return Cnil;          return Cnil;
4834  }  }
4835  /*      local entry for function progn 'compile7278     */  /*      local entry for function progn 'compile7280     */
4836    
4837  static object LI192()  static object LI192()
4838    
# Line 4937  static object LI192() Line 4840  static object LI192()
4840          goto TTL;          goto TTL;
4841  TTL:;  TTL:;
4842          base[0]= VV[243];          base[0]= VV[243];
4843          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
4844          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4845          Ladjoin();          Ladjoin();
4846          vs_top=sup;          vs_top=sup;
4847          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
4848          {object V415 = Cnil;          {object V404 = Cnil;
4849          VMR192(V415)}          VMR192(V404)}
4850          base[0]=base[0];          base[0]=base[0];
4851          return Cnil;          return Cnil;
4852  }  }
4853  /*      local entry for function progn 'compile7302     */  /*      local entry for function progn 'compile7304     */
4854    
4855  static object LI193()  static object LI193()
4856    
# Line 4955  static object LI193() Line 4858  static object LI193()
4858          goto TTL;          goto TTL;
4859  TTL:;  TTL:;
4860          (void)(sputprop(VV[241],VV[9],Cnil));          (void)(sputprop(VV[241],VV[9],Cnil));
4861          {object V416 = Cnil;          {object V405 = Cnil;
4862          VMR193(V416)}          VMR193(V405)}
4863          return Cnil;          return Cnil;
4864  }  }
4865  /*      local entry for function progn 'compile7314     */  /*      local entry for function progn 'compile7316     */
4866    
4867  static object LI194()  static object LI194()
4868    
4869  {        VMB194 VMS194 VMV194  {        VMB194 VMS194 VMV194
4870          goto TTL;          goto TTL;
4871  TTL:;  TTL:;
4872          {object V417 = Cnil;          {object V406 = Cnil;
4873          VMR194(V417)}          VMR194(V406)}
4874          return Cnil;          return Cnil;
4875  }  }
4876  /*      function definition for Defclass INTERNAL-UNBOUND-VARIABLE7334  */  /*      function definition for Defclass INTERNAL-UNBOUND-VARIABLE7336  */
4877    
4878  static void L195()  static void L195()
4879  {register object *base=vs_base;  {register object *base=vs_base;
4880          register object *sup=base+VM195; VC195          register object *sup=base+VM195; VC195
4881          vs_reserve(VM195);          vs_check;
         check_arg(0);  
4882          vs_top=sup;          vs_top=sup;
4883          goto TTL;          goto TTL;
4884  TTL:;  TTL:;
# Line 4989  TTL:; Line 4891  TTL:;
4891          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
4892          return;          return;
4893  }  }
4894  /*      local entry for function progn 'compile7350     */  /*      local entry for function progn 'compile7352     */
4895    
4896  static object LI196()  static object LI196()
4897    
# Line 4997  static object LI196() Line 4899  static object LI196()
4899          goto TTL;          goto TTL;
4900  TTL:;  TTL:;
4901          vs_base=vs_top;          vs_base=vs_top;
4902          (void) (*Lnk324)();          (void) (*Lnk323)();
4903          vs_top=sup;          vs_top=sup;
4904          {object V418 = Cnil;          {object V407 = Cnil;
4905          VMR196(V418)}          VMR196(V407)}
4906          base[0]=base[0];          base[0]=base[0];
4907          return Cnil;          return Cnil;
4908  }  }
4909  /*      local entry for function progn 'compile7367     */  /*      local entry for function progn 'compile7369     */
4910    
4911  static object LI197()  static object LI197()
4912    
# Line 5012  static object LI197() Line 4914  static object LI197()
4914          goto TTL;          goto TTL;
4915  TTL:;  TTL:;
4916          base[0]= VV[246];          base[0]= VV[246];
4917          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
4918          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4919          Ladjoin();          Ladjoin();
4920          vs_top=sup;          vs_top=sup;
4921          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
4922          {object V420 = Cnil;          {object V409 = Cnil;
4923          VMR197(V420)}          VMR197(V409)}
4924          base[0]=base[0];          base[0]=base[0];
4925          return Cnil;          return Cnil;
4926  }  }
4927  /*      local entry for function progn 'compile7391     */  /*      local entry for function progn 'compile7393     */
4928    
4929  static object LI198()  static object LI198()
4930    
# Line 5030  static object LI198() Line 4932  static object LI198()
4932          goto TTL;          goto TTL;
4933  TTL:;  TTL:;
4934          (void)(sputprop(VV[244],VV[9],Cnil));          (void)(sputprop(VV[244],VV[9],Cnil));
4935          {object V421 = Cnil;          {object V410 = Cnil;
4936          VMR198(V421)}          VMR198(V410)}
4937          return Cnil;          return Cnil;
4938  }  }
4939  /*      local entry for function progn 'compile7403     */  /*      local entry for function progn 'compile7405     */
4940    
4941  static object LI199()  static object LI199()
4942    
4943  {        VMB199 VMS199 VMV199  {        VMB199 VMS199 VMV199
4944          goto TTL;          goto TTL;
4945  TTL:;  TTL:;
4946          {object V422 = Cnil;          {object V411 = Cnil;
4947          VMR199(V422)}          VMR199(V411)}
4948          return Cnil;          return Cnil;
4949  }  }
4950  /*      function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7423        */  /*      function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7425        */
4951    
4952  static void L200()  static void L200()
4953  {register object *base=vs_base;  {register object *base=vs_base;
4954          register object *sup=base+VM200; VC200          register object *sup=base+VM200; VC200
4955          vs_reserve(VM200);          vs_check;
         check_arg(0);  
4956          vs_top=sup;          vs_top=sup;
4957          goto TTL;          goto TTL;
4958  TTL:;  TTL:;
# Line 5064  TTL:; Line 4965  TTL:;
4965          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
4966          return;          return;
4967  }  }
4968  /*      local entry for function progn 'compile7439     */  /*      local entry for function progn 'compile7441     */
4969    
4970  static object LI201()  static object LI201()
4971    
# Line 5072  static object LI201() Line 4973  static object LI201()
4973          goto TTL;          goto TTL;
4974  TTL:;  TTL:;
4975          vs_base=vs_top;          vs_base=vs_top;
4976          (void) (*Lnk325)();          (void) (*Lnk324)();
4977          vs_top=sup;          vs_top=sup;
4978          {object V423 = Cnil;          {object V412 = Cnil;
4979          VMR201(V423)}          VMR201(V412)}
4980          base[0]=base[0];          base[0]=base[0];
4981          return Cnil;          return Cnil;
4982  }  }
4983  /*      local entry for function progn 'compile7456     */  /*      local entry for function progn 'compile7458     */
4984    
4985  static object LI202()  static object LI202()
4986    
# Line 5087  static object LI202() Line 4988  static object LI202()
4988          goto TTL;          goto TTL;
4989  TTL:;  TTL:;
4990          base[0]= VV[249];          base[0]= VV[249];
4991          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
4992          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4993          Ladjoin();          Ladjoin();
4994          vs_top=sup;          vs_top=sup;
4995          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
4996          {object V425 = Cnil;          {object V414 = Cnil;
4997          VMR202(V425)}          VMR202(V414)}
4998          base[0]=base[0];          base[0]=base[0];
4999          return Cnil;          return Cnil;
5000  }  }
5001  /*      local entry for function progn 'compile7480     */  /*      local entry for function progn 'compile7482     */
5002    
5003  static object LI203()  static object LI203()
5004    
# Line 5105  static object LI203() Line 5006  static object LI203()
5006          goto TTL;          goto TTL;
5007  TTL:;  TTL:;
5008          (void)(sputprop(VV[247],VV[9],Cnil));          (void)(sputprop(VV[247],VV[9],Cnil));
5009          {object V426 = Cnil;          {object V415 = Cnil;
5010          VMR203(V426)}          VMR203(V415)}
5011          return Cnil;          return Cnil;
5012  }  }
5013  /*      local entry for function progn 'compile7492     */  /*      local entry for function progn 'compile7494     */
5014    
5015  static object LI204()  static object LI204()
5016    
5017  {        VMB204 VMS204 VMV204  {        VMB204 VMS204 VMV204
5018          goto TTL;          goto TTL;
5019  TTL:;  TTL:;
5020          {object V427 = Cnil;          {object V416 = Cnil;
5021          VMR204(V427)}          VMR204(V416)}
5022          return Cnil;          return Cnil;
5023  }  }
5024  /*      function definition for Defclass INTERNAL-END-OF-FILE7512       */  /*      function definition for Defclass INTERNAL-END-OF-FILE7514       */
5025    
5026  static void L205()  static void L205()
5027  {register object *base=vs_base;  {register object *base=vs_base;
5028          register object *sup=base+VM205; VC205          register object *sup=base+VM205; VC205
5029          vs_reserve(VM205);          vs_check;
         check_arg(0);  
5030          vs_top=sup;          vs_top=sup;
5031          goto TTL;          goto TTL;
5032  TTL:;  TTL:;
# Line 5139  TTL:; Line 5039  TTL:;
5039          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
5040          return;          return;
5041  }  }
5042  /*      local entry for function progn 'compile7528     */  /*      local entry for function progn 'compile7530     */
5043    
5044  static object LI206()  static object LI206()
5045    
# Line 5147  static object LI206() Line 5047  static object LI206()
5047          goto TTL;          goto TTL;
5048  TTL:;  TTL:;
5049          vs_base=vs_top;          vs_base=vs_top;
5050          (void) (*Lnk326)();          (void) (*Lnk325)();
5051          vs_top=sup;          vs_top=sup;
5052          {object V428 = Cnil;          {object V417 = Cnil;
5053          VMR206(V428)}          VMR206(V417)}
5054          base[0]=base[0];          base[0]=base[0];
5055          return Cnil;          return Cnil;
5056  }  }
5057  /*      local entry for function progn 'compile7545     */  /*      local entry for function progn 'compile7547     */
5058    
5059  static object LI207()  static object LI207()
5060    
# Line 5162  static object LI207() Line 5062  static object LI207()
5062          goto TTL;          goto TTL;
5063  TTL:;  TTL:;
5064          base[0]= VV[252];          base[0]= VV[252];
5065          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
5066          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5067          Ladjoin();          Ladjoin();
5068          vs_top=sup;          vs_top=sup;
5069          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
5070          {object V430 = Cnil;          {object V419 = Cnil;
5071          VMR207(V430)}          VMR207(V419)}
5072          base[0]=base[0];          base[0]=base[0];
5073          return Cnil;          return Cnil;
5074  }  }
5075  /*      local entry for function progn 'compile7569     */  /*      local entry for function progn 'compile7571     */
5076    
5077  static object LI208()  static object LI208()
5078    
# Line 5180  static object LI208() Line 5080  static object LI208()
5080          goto TTL;          goto TTL;
5081  TTL:;  TTL:;
5082          (void)(sputprop(VV[250],VV[9],Cnil));          (void)(sputprop(VV[250],VV[9],Cnil));
5083          {object V431 = Cnil;          {object V420 = Cnil;
5084          VMR208(V431)}          VMR208(V420)}
5085          return Cnil;          return Cnil;
5086  }  }
5087  /*      local entry for function progn 'compile7581     */  /*      local entry for function progn 'compile7583     */
5088    
5089  static object LI209()  static object LI209()
5090    
5091  {        VMB209 VMS209 VMV209  {        VMB209 VMS209 VMV209
5092          goto TTL;          goto TTL;
5093  TTL:;  TTL:;
5094          {object V432 = Cnil;          {object V421 = Cnil;
5095          VMR209(V432)}          VMR209(V421)}
5096          return Cnil;          return Cnil;
5097  }  }
5098  /*      function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7601 */  /*      function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */
5099    
5100  static void L210()  static void L210()
5101  {register object *base=vs_base;  {register object *base=vs_base;
5102          register object *sup=base+VM210; VC210          register object *sup=base+VM210; VC210
5103          vs_reserve(VM210);          vs_check;
         check_arg(0);  
5104          vs_top=sup;          vs_top=sup;
5105          goto TTL;          goto TTL;
5106  TTL:;  TTL:;
# Line 5214  TTL:; Line 5113  TTL:;
5113          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
5114          return;          return;
5115  }  }
5116  /*      local entry for function progn 'compile7617     */  /*      local entry for function progn 'compile7619     */
5117    
5118  static object LI211()  static object LI211()
5119    
# Line 5222  static object LI211() Line 5121  static object LI211()
5121          goto TTL;          goto TTL;
5122  TTL:;  TTL:;
5123          vs_base=vs_top;          vs_base=vs_top;
5124          (void) (*Lnk327)();          (void) (*Lnk326)();
5125          vs_top=sup;          vs_top=sup;
5126          {object V433 = Cnil;          {object V422 = Cnil;
5127          VMR211(V433)}          VMR211(V422)}
5128          base[0]=base[0];          base[0]=base[0];
5129          return Cnil;          return Cnil;
5130  }  }
5131  /*      local entry for function progn 'compile7634     */  /*      local entry for function progn 'compile7636     */
5132    
5133  static object LI212()  static object LI212()
5134    
# Line 5237  static object LI212() Line 5136  static object LI212()
5136          goto TTL;          goto TTL;
5137  TTL:;  TTL:;
5138          base[0]= VV[255];          base[0]= VV[255];
5139          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
5140          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5141          Ladjoin();          Ladjoin();
5142          vs_top=sup;          vs_top=sup;
5143          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
5144          {object V435 = Cnil;          {object V424 = Cnil;
5145          VMR212(V435)}          VMR212(V424)}
5146          base[0]=base[0];          base[0]=base[0];
5147          return Cnil;          return Cnil;
5148  }  }
5149  /*      local entry for function progn 'compile7658     */  /*      local entry for function progn 'compile7660     */
5150    
5151  static object LI213()  static object LI213()
5152    
# Line 5255  static object LI213() Line 5154  static object LI213()
5154          goto TTL;          goto TTL;
5155  TTL:;  TTL:;
5156          (void)(sputprop(VV[253],VV[9],Cnil));          (void)(sputprop(VV[253],VV[9],Cnil));
5157          {object V436 = Cnil;          {object V425 = Cnil;
5158          VMR213(V436)}          VMR213(V425)}
5159          return Cnil;          return Cnil;
5160  }  }
5161  /*      local entry for function progn 'compile7670     */  /*      local entry for function progn 'compile7672     */
5162    
5163  static object LI214()  static object LI214()
5164    
5165  {        VMB214 VMS214 VMV214  {        VMB214 VMS214 VMV214
5166          goto TTL;          goto TTL;
5167  TTL:;  TTL:;
5168          {object V437 = Cnil;          {object V426 = Cnil;
5169          VMR214(V437)}          VMR214(V426)}
5170          return Cnil;          return Cnil;
5171  }  }
5172  /*      function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7690       */  /*      function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7692       */
5173    
5174  static void L215()  static void L215()
5175  {register object *base=vs_base;  {register object *base=vs_base;
5176          register object *sup=base+VM215; VC215          register object *sup=base+VM215; VC215
5177          vs_reserve(VM215);          vs_check;
         check_arg(0);  
5178          vs_top=sup;          vs_top=sup;
5179          goto TTL;          goto TTL;
5180  TTL:;  TTL:;
# Line 5289  TTL:; Line 5187  TTL:;
5187          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
5188          return;          return;
5189  }  }
5190  /*      local entry for function progn 'compile7706     */  /*      local entry for function progn 'compile7708     */
5191    
5192  static object LI216()  static object LI216()
5193    
# Line 5297  static object LI216() Line 5195  static object LI216()
5195          goto TTL;          goto TTL;
5196  TTL:;  TTL:;
5197          vs_base=vs_top;          vs_base=vs_top;
5198          (void) (*Lnk328)();          (void) (*Lnk327)();
5199          vs_top=sup;          vs_top=sup;
5200          {object V438 = Cnil;          {object V427 = Cnil;
5201          VMR216(V438)}          VMR216(V427)}
5202          base[0]=base[0];          base[0]=base[0];
5203          return Cnil;          return Cnil;
5204  }  }
5205  /*      local entry for function progn 'compile7723     */  /*      local entry for function progn 'compile7725     */
5206    
5207  static object LI217()  static object LI217()
5208    
# Line 5312  static object LI217() Line 5210  static object LI217()
5210          goto TTL;          goto TTL;
5211  TTL:;  TTL:;
5212          base[0]= VV[258];          base[0]= VV[258];
5213          base[1]= symbol_value(VV[8]);          base[1]= (VV[8]->s.s_dbind);
5214          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5215          Ladjoin();          Ladjoin();
5216          vs_top=sup;          vs_top=sup;
5217          setq(VV[8],vs_base[0]);          (VV[8]->s.s_dbind)= vs_base[0];
5218          {object V440 = Cnil;          {object V429 = Cnil;
5219          VMR217(V440)}          VMR217(V429)}
5220          base[0]=base[0];          base[0]=base[0];
5221          return Cnil;          return Cnil;
5222  }  }
5223  /*      local entry for function progn 'compile7747     */  /*      local entry for function progn 'compile7749     */
5224    
5225  static object LI218()  static object LI218()
5226    
# Line 5330  static object LI218() Line 5228  static object LI218()
5228          goto TTL;          goto TTL;
5229  TTL:;  TTL:;
5230          (void)(sputprop(VV[256],VV[9],Cnil));          (void)(sputprop(VV[256],VV[9],Cnil));
5231          {object V441 = Cnil;          {object V430 = Cnil;
5232          VMR218(V441)}          VMR218(V430)}
5233          return Cnil;          return Cnil;
5234  }  }
5235  /*      local entry for function progn 'compile7759     */  /*      local entry for function progn 'compile7761     */
5236    
5237  static object LI219()  static object LI219()
5238    
5239  {        VMB219 VMS219 VMV219  {        VMB219 VMS219 VMV219
5240          goto TTL;          goto TTL;
5241  TTL:;  TTL:;
5242          {object V442 = Cnil;          {object V431 = Cnil;
5243          VMR219(V442)}          VMR219(V431)}
5244          return Cnil;          return Cnil;
5245  }  }
5246  /*      local entry for function progn 'compile7775     */  /*      local entry for function progn 'compile7777     */
5247    
5248  static object LI220()  static object LI220()
5249    
# Line 5354  static object LI220() Line 5252  static object LI220()
5252  TTL:;  TTL:;
5253          base[0]= VV[259];          base[0]= VV[259];
5254          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5255          (void) (*Lnk329)();          (void) (*Lnk328)();
5256          vs_top=sup;          vs_top=sup;
5257          {object V443 = Cnil;          {object V432 = Cnil;
5258          VMR220(V443)}          VMR220(V432)}
5259          base[0]=base[0];          base[0]=base[0];
5260          return Cnil;          return Cnil;
5261  }  }
5262  /*      local entry for function progn 'compile7787     */  /*      local entry for function progn 'compile7789     */
5263    
5264  static object LI221()  static object LI221()
5265    
5266  {        VMB221 VMS221 VMV221  {        VMB221 VMS221 VMV221
5267          goto TTL;          goto TTL;
5268  TTL:;  TTL:;
5269          base[0]= VV[259];          if(!((VV[259])->s.s_dbind!=OBJNULL)){
5270          vs_top=(vs_base=base+0)+1;          goto T1506;}
5271          Lboundp();          goto T1505;
5272          vs_top=sup;          goto T1506;
5273          if((vs_base[0])==Cnil){  T1506:;
         goto T1528;}  
         goto T1527;  
         goto T1528;  
 T1528:;  
5274          base[0]= VV[16];          base[0]= VV[16];
5275          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5276          (void) (*Lnk330)();          (void) (*Lnk329)();
5277          vs_top=sup;          vs_top=sup;
5278          setq(VV[259],vs_base[0]);          (VV[259]->s.s_dbind)= vs_base[0];
5279          goto T1527;          goto T1505;
5280  T1527:;  T1505:;
5281          {object V444 = Cnil;          {object V433 = Cnil;
5282          VMR221(V444)}          VMR221(V433)}
5283          base[0]=base[0];          base[0]=base[0];
5284          return Cnil;          return Cnil;
5285  }  }
5286  /*      local entry for function progn 'compile7800     */  /*      local entry for function progn 'compile7802     */
5287    
5288  static object LI222()  static object LI222()
5289    
5290  {        VMB222 VMS222 VMV222  {        VMB222 VMS222 VMV222
5291          goto TTL;          goto TTL;
5292  TTL:;  TTL:;
5293          {object V445 = Cnil;          {object V434 = Cnil;
5294          VMR222(V445)}          VMR222(V434)}
5295          return Cnil;          return Cnil;
5296  }  }
5297  /*      local entry for function SIMPLE-CONDITION-CLASS-P       */  /*      local entry for function SIMPLE-CONDITION-CLASS-P       */
5298    
5299  static object LI223(V447)  static object LI223(V436)
5300    
5301  register object V447;  register object V436;
5302  {        VMB223 VMS223 VMV223  {        VMB223 VMS223 VMV223
5303          goto TTL;          goto TTL;
5304  TTL:;  TTL:;
5305          if(!(type_of((V447))==t_symbol)){          if(!(type_of((V436))==t_symbol)){
5306          goto T1534;}          goto T1511;}
5307          base[0]= (V447);          base[0]= (V436);
5308          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5309          (void) (*Lnk330)();          (void) (*Lnk329)();
5310          vs_top=sup;          vs_top=sup;
5311          V447= vs_base[0];          V436= vs_base[0];
5312          goto T1534;          goto T1511;
5313  T1534:;  T1511:;
5314          base[0]= (V447);          base[0]= (V436);
5315          base[1]= VV[5];          base[1]= VV[5];
5316          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
5317          (void) (*Lnk331)();          (void) (*Lnk330)();
5318          vs_top=sup;          vs_top=sup;
5319          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5320          goto T1539;}          goto T1516;}
5321          {object V448 = Cnil;          {object V437 = Cnil;
5322          VMR223(V448)}          VMR223(V437)}
5323          goto T1539;          goto T1516;
5324  T1539:;{object V450;  T1516:;{object V439;
5325          V450= symbol_value(VV[259]);          V439= (VV[259]->s.s_dbind);
5326          base[0]= (V447);          base[0]= (V436);
5327          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5328          (void) (*Lnk332)(Lclptr332);          (void) (*Lnk331)(Lclptr331);
5329          vs_top=sup;          vs_top=sup;
5330          V451= vs_base[0];          V440= vs_base[0];
5331          {register object x= V450,V449= V451;          {register object x= V439,V438= V440;
5332          while(!endp(V449))          while(V438!=Cnil)
5333          if(eql(x,V449->c.c_car)){          if(eql(x,V438->c.c_car)){
5334          {object V452 = V449;          {object V441 = V438;
5335          VMR223(V452)}          VMR223(V441)}
5336          }else V449=V449->c.c_cdr;          }else V438=V438->c.c_cdr;
5337          {object V453 = Cnil;          {object V442 = Cnil;
5338          VMR223(V453)}}}          VMR223(V442)}}}
5339          base[0]=base[0];          base[0]=base[0];
5340          return Cnil;          return Cnil;
5341  }  }
5342  static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)(void *)&Lnk332,(void **)(void *)&Lclptr332);} /* CLASS-PRECEDENCE-LIST */  static void LnkT331(ptr) object *ptr;{ call_or_link_closure(VV[331],(void **)(void *)&Lnk331,(void **)(void *)&Lclptr331);} /* CLASS-PRECEDENCE-LIST */
5343  static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* TYPEP */  static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* TYPEP */
5344  static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* FIND-CLASS */  static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* FIND-CLASS */
5345  static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* *MAKE-SPECIAL */  static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* *MAKE-SPECIAL */
5346  static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7690 */  static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7692 */
5347  static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7601 */  static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */
5348  static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-END-OF-FILE7512 */  static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* Defclass INTERNAL-END-OF-FILE7514 */
5349  static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7423 */  static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7425 */
5350  static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* Defclass INTERNAL-UNBOUND-VARIABLE7334 */  static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-UNBOUND-VARIABLE7336 */
5351  static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7245 */  static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247 */
5352  static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7156 */  static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158 */
5353  static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* Defclass INTERNAL-PACKAGE-ERROR7067 */  static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-PACKAGE-ERROR7069 */
5354  static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-TYPE-ERROR6978 */  static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* Defclass INTERNAL-TYPE-ERROR6980 */
5355  static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */  static object  LnkTLI317(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[317],(void **)(void *)&LnkLI317,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */
5356  static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* Defclass INTERNAL-SIMPLE-ERROR6684 */  static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* Defclass INTERNAL-SIMPLE-ERROR6686 */
5357  static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* INTERNAL-ERROR-FUNCTION-NAME */  static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* INTERNAL-ERROR-FUNCTION-NAME */
5358  static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* Defclass INTERNAL-ERROR6257 */  static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* Defclass INTERNAL-ERROR6259 */
5359  static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* Defclass ABORT-FAILURE5955 */  static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* Defclass ABORT-FAILURE5957 */
5360  static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* Defclass FLOATING-POINT-UNDERFLOW5866 */  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* Defclass FLOATING-POINT-UNDERFLOW5868 */
5361  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* Defclass FLOATING-POINT-OVERFLOW5777 */  static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass FLOATING-POINT-OVERFLOW5779 */
5362  static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass DIVISION-BY-ZERO5688 */  static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass DIVISION-BY-ZERO5690 */
5363  static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass ARITHMETIC-ERROR5598 */  static void LnkT307(){ call_or_link(VV[307],(void **)(void *)&Lnk307);} /* Defclass ARITHMETIC-ERROR5600 */
5364  static void LnkT306(){ call_or_link(VV[306],(void **)(void *)&Lnk306);} /* Defclass UNDEFINED-FUNCTION5300 */  static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* Defclass UNDEFINED-FUNCTION5302 */
5365  static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* CELL-ERROR-NAME */  static void LnkT303(ptr) object *ptr;{ call_or_link_closure(VV[303],(void **)(void *)&Lnk303,(void **)(void *)&Lclptr303);} /* CELL-ERROR-NAME */
5366  static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* Defclass UNBOUND-VARIABLE5002 */  static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* Defclass UNBOUND-VARIABLE5004 */
5367  static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* Defclass CELL-ERROR4912 */  static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* Defclass CELL-ERROR4914 */
5368  static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* PACKAGE-ERROR-MESSAGE */  static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* PACKAGE-ERROR-MESSAGE */
5369  static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* PACKAGE-ERROR-PACKAGE */  static void LnkT298(ptr) object *ptr;{ call_or_link_closure(VV[298],(void **)(void *)&Lnk298,(void **)(void *)&Lclptr298);} /* PACKAGE-ERROR-PACKAGE */
5370  static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* Defclass PACKAGE-ERROR4612 */  static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass PACKAGE-ERROR4614 */
5371  static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass FILE-ERROR4522 */  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* Defclass FILE-ERROR4524 */
5372  static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)(void *)&Lnk295,(void **)(void *)&Lclptr295);} /* STREAM-ERROR-STREAM */  static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* STREAM-ERROR-STREAM */
5373  static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* Defclass END-OF-FILE4224 */  static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* Defclass END-OF-FILE4226 */
5374  static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* Defclass STREAM-ERROR4134 */  static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass STREAM-ERROR4136 */
5375  static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass CONTROL-ERROR4045 */  static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass CONTROL-ERROR4047 */
5376  static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass PROGRAM-ERROR3956 */  static void LnkT290(){ call_or_link(VV[290],(void **)(void *)&Lnk290);} /* Defclass PROGRAM-ERROR3958 */
5377  static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* CASE-FAILURE-POSSIBILITIES */  static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CASE-FAILURE-POSSIBILITIES */
5378  static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CASE-FAILURE-NAME */  static void LnkT287(ptr) object *ptr;{ call_or_link_closure(VV[287],(void **)(void *)&Lnk287,(void **)(void *)&Lclptr287);} /* CASE-FAILURE-NAME */
5379  static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* Defclass CASE-FAILURE3656 */  static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass CASE-FAILURE3658 */
5380  static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass SIMPLE-TYPE-ERROR3567 */  static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* Defclass SIMPLE-TYPE-ERROR3569 */
5381  static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* TYPE-ERROR-EXPECTED-TYPE */  static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* TYPE-ERROR-EXPECTED-TYPE */
5382  static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* TYPE-ERROR-DATUM */  static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* TYPE-ERROR-DATUM */
5383  static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* Defclass TYPE-ERROR3267 */  static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* Defclass TYPE-ERROR3269 */
5384  static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* Defclass STORAGE-EXHAUSTED3178 */  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* Defclass STORAGE-EXHAUSTED3180 */
5385  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* Defclass STACK-OVERFLOW3089 */  static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* Defclass STACK-OVERFLOW3091 */
5386  static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* Defclass STORAGE-CONDITION3000 */  static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* Defclass STORAGE-CONDITION3002 */
5387  static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* Defclass SIMPLE-ERROR2911 */  static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* Defclass SIMPLE-ERROR2913 */
5388  static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* Defclass SIMPLE-WARNING2822 */  static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* Defclass SIMPLE-WARNING2824 */
5389  static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* LOAD-DEFMETHOD */  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* LOAD-DEFMETHOD */
5390  static object  LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */  static object  LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[273],(void **)(void *)&LnkLI273,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */
5391  static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* ERROR */  static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* ERROR */
5392  static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */  static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */
5393  static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* CCLOSURE-ENV-NTHCDR */
 static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* STRUCTURE-DEF */  
5394  static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* STRUCTURE-SUBTYPE-P */  static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* STRUCTURE-SUBTYPE-P */
5395  static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* PROCLAIM-DEFGENERIC */  static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* PROCLAIM-DEFGENERIC */
5396  static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass SIMPLE-CONDITION2526 */  static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass SIMPLE-CONDITION2528 */
5397  static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */  static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */
5398  static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */  static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */
5399  static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* Defclass ERROR2429 */  static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* Defclass ERROR2431 */
5400  static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* Defclass SERIOUS-CONDITION2340 */  static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* Defclass SERIOUS-CONDITION2342 */
5401  static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* Defclass WARNING2251 */  static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* Defclass WARNING2253 */
5402  static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* REMOVE */  static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* REMOVE */
5403    
5404  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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