/[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.6 by camm, Tue Sep 23 21:48:26 2003 UTC revision 1.7 by camm, Fri Oct 3 16:03:14 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 'compile2187     */  /*      local entry for function progn 'compile2192     */
6    
7  static object LI1()  static object LI1()
8    
# Line 20  TTL:; Line 20  TTL:;
20          base[0]=base[0];          base[0]=base[0];
21          return Cnil;          return Cnil;
22  }  }
23  /*      local entry for function progn 'compile2207     */  /*      local entry for function progn 'compile2212     */
24    
25  static object LI2()  static object LI2()
26    
# Line 74  T10:; Line 74  T10:;
74          base[0]= VV[2];          base[0]= VV[2];
75          base[1]= (VV[1]->s.s_dbind);          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) (*Lnk266)();
78          vs_top=sup;          vs_top=sup;
79          (VV[1]->s.s_dbind)= vs_base[0];          (VV[1]->s.s_dbind)= vs_base[0];
80          goto T5;          goto T5;
# 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 WARNING2253    */  /*      function definition for Defclass WARNING2258    */
88    
89  static void L3()  static void L3()
90  {register object *base=vs_base;  {register object *base=vs_base;
# Line 99  TTL:; Line 99  TTL:;
99          base[3]= Cnil;          base[3]= Cnil;
100          base[4]= Cnil;          base[4]= Cnil;
101          base[5]= Cnil;          base[5]= Cnil;
102          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
103          return;          return;
104  }  }
105  /*      local entry for function progn 'compile2269     */  /*      local entry for function progn 'compile2274     */
106    
107  static object LI4()  static object LI4()
108    
# Line 110  static object LI4() Line 110  static object LI4()
110          goto TTL;          goto TTL;
111  TTL:;  TTL:;
112          vs_base=vs_top;          vs_base=vs_top;
113          (void) (*Lnk262)();          (void) (*Lnk268)();
114          vs_top=sup;          vs_top=sup;
115          {object V8 = Cnil;          {object V8 = Cnil;
116          VMR4(V8)}          VMR4(V8)}
117          base[0]=base[0];          base[0]=base[0];
118          return Cnil;          return Cnil;
119  }  }
120  /*      local entry for function progn 'compile2286     */  /*      local entry for function progn 'compile2291     */
121    
122  static object LI5()  static object LI5()
123    
# Line 135  TTL:; Line 135  TTL:;
135          base[0]=base[0];          base[0]=base[0];
136          return Cnil;          return Cnil;
137  }  }
138  /*      local entry for function progn 'compile2310     */  /*      local entry for function progn 'compile2315     */
139    
140  static object LI6()  static object LI6()
141    
# Line 147  TTL:; Line 147  TTL:;
147          VMR6(V11)}          VMR6(V11)}
148          return Cnil;          return Cnil;
149  }  }
150  /*      local entry for function progn 'compile2322     */  /*      local entry for function progn 'compile2327     */
151    
152  static object LI7()  static object LI7()
153    
# Line 158  TTL:; Line 158  TTL:;
158          VMR7(V12)}          VMR7(V12)}
159          return Cnil;          return Cnil;
160  }  }
161  /*      function definition for Defclass SERIOUS-CONDITION2342  */  /*      function definition for Defclass SERIOUS-CONDITION2347  */
162    
163  static void L8()  static void L8()
164  {register object *base=vs_base;  {register object *base=vs_base;
# Line 173  TTL:; Line 173  TTL:;
173          base[3]= Cnil;          base[3]= Cnil;
174          base[4]= Cnil;          base[4]= Cnil;
175          base[5]= Cnil;          base[5]= Cnil;
176          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
177          return;          return;
178  }  }
179  /*      local entry for function progn 'compile2358     */  /*      local entry for function progn 'compile2363     */
180    
181  static object LI9()  static object LI9()
182    
# Line 184  static object LI9() Line 184  static object LI9()
184          goto TTL;          goto TTL;
185  TTL:;  TTL:;
186          vs_base=vs_top;          vs_base=vs_top;
187          (void) (*Lnk263)();          (void) (*Lnk269)();
188          vs_top=sup;          vs_top=sup;
189          {object V13 = Cnil;          {object V13 = Cnil;
190          VMR9(V13)}          VMR9(V13)}
191          base[0]=base[0];          base[0]=base[0];
192          return Cnil;          return Cnil;
193  }  }
194  /*      local entry for function progn 'compile2375     */  /*      local entry for function progn 'compile2380     */
195    
196  static object LI10()  static object LI10()
197    
# Line 209  TTL:; Line 209  TTL:;
209          base[0]=base[0];          base[0]=base[0];
210          return Cnil;          return Cnil;
211  }  }
212  /*      local entry for function progn 'compile2399     */  /*      local entry for function progn 'compile2404     */
213    
214  static object LI11()  static object LI11()
215    
# Line 221  TTL:; Line 221  TTL:;
221          VMR11(V16)}          VMR11(V16)}
222          return Cnil;          return Cnil;
223  }  }
224  /*      local entry for function progn 'compile2411     */  /*      local entry for function progn 'compile2416     */
225    
226  static object LI12()  static object LI12()
227    
# Line 232  TTL:; Line 232  TTL:;
232          VMR12(V17)}          VMR12(V17)}
233          return Cnil;          return Cnil;
234  }  }
235  /*      function definition for Defclass ERROR2431      */  /*      function definition for Defclass ERROR2436      */
236    
237  static void L13()  static void L13()
238  {register object *base=vs_base;  {register object *base=vs_base;
# Line 247  TTL:; Line 247  TTL:;
247          base[3]= Cnil;          base[3]= Cnil;
248          base[4]= Cnil;          base[4]= Cnil;
249          base[5]= Cnil;          base[5]= Cnil;
250          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
251          return;          return;
252  }  }
253  /*      local entry for function progn 'compile2447     */  /*      local entry for function progn 'compile2452     */
254    
255  static object LI14()  static object LI14()
256    
# Line 258  static object LI14() Line 258  static object LI14()
258          goto TTL;          goto TTL;
259  TTL:;  TTL:;
260          vs_base=vs_top;          vs_base=vs_top;
261          (void) (*Lnk264)();          (void) (*Lnk270)();
262          vs_top=sup;          vs_top=sup;
263          {object V18 = Cnil;          {object V18 = Cnil;
264          VMR14(V18)}          VMR14(V18)}
265          base[0]=base[0];          base[0]=base[0];
266          return Cnil;          return Cnil;
267  }  }
268  /*      local entry for function progn 'compile2464     */  /*      local entry for function progn 'compile2469     */
269    
270  static object LI15()  static object LI15()
271    
# Line 283  TTL:; Line 283  TTL:;
283          base[0]=base[0];          base[0]=base[0];
284          return Cnil;          return Cnil;
285  }  }
286  /*      local entry for function progn 'compile2488     */  /*      local entry for function progn 'compile2493     */
287    
288  static object LI16()  static object LI16()
289    
# Line 295  TTL:; Line 295  TTL:;
295          VMR16(V21)}          VMR16(V21)}
296          return Cnil;          return Cnil;
297  }  }
298  /*      local entry for function progn 'compile2500     */  /*      local entry for function progn 'compile2505     */
299    
300  static object LI17()  static object LI17()
301    
# Line 317  TTL:; Line 317  TTL:;
317          base[0]= (V26);          base[0]= (V26);
318          base[2]= (V25);          base[2]= (V25);
319          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
320          (void) (*Lnk265)(Lclptr265);          (void) (*Lnk271)(Lclptr271);
321          vs_top=sup;          vs_top=sup;
322          base[1]= vs_base[0];          base[1]= vs_base[0];
323          {object V27;          {object V27;
324          base[2]= (V25);          base[2]= (V25);
325          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
326          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk272)(Lclptr272);
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;
# Line 337  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-CONDITION2528   */  /*      function definition for Defclass SIMPLE-CONDITION2533   */
341    
342  static void L19()  static void L19()
343  {register object *base=vs_base;  {register object *base=vs_base;
# Line 351  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]= (VV[267]->s.s_gfdef);          base[5]= (VV[273]->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 368  TTL:; Line 368  TTL:;
368          base[3]= list(2,/* INLINE-ARGS */V29,V30);          base[3]= list(2,/* INLINE-ARGS */V29,V30);
369          base[4]= Cnil;          base[4]= Cnil;
370          base[5]= Cnil;          base[5]= Cnil;
371          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
372          return;          return;
373  }  }
374  /*      local entry for function progn 'compile2546     */  /*      local entry for function progn 'compile2551     */
375    
376  static object LI20()  static object LI20()
377    
# Line 379  static object LI20() Line 379  static object LI20()
379          goto TTL;          goto TTL;
380  TTL:;  TTL:;
381          vs_base=vs_top;          vs_base=vs_top;
382          (void) (*Lnk268)();          (void) (*Lnk274)();
383          vs_top=sup;          vs_top=sup;
384          {object V31 = Cnil;          {object V31 = Cnil;
385          VMR20(V31)}          VMR20(V31)}
386          base[0]=base[0];          base[0]=base[0];
387          return Cnil;          return Cnil;
388  }  }
389  /*      local entry for function progn 'compile2563     */  /*      local entry for function progn 'compile2568     */
390    
391  static object LI21()  static object LI21()
392    
# Line 404  TTL:; Line 404  TTL:;
404          base[0]=base[0];          base[0]=base[0];
405          return Cnil;          return Cnil;
406  }  }
407  /*      local entry for function progn 'compile2587     */  /*      local entry for function progn 'compile2592     */
408    
409  static object LI22()  static object LI22()
410    
# Line 416  TTL:; Line 416  TTL:;
416          VMR22(V34)}          VMR22(V34)}
417          return Cnil;          return Cnil;
418  }  }
419  /*      local entry for function progn 'compile2603     */  /*      local entry for function progn 'compile2608     */
420    
421  static object LI23()  static object LI23()
422    
# Line 426  TTL:; Line 426  TTL:;
426          base[0]= VV[32];          base[0]= VV[32];
427          base[1]= VV[33];          base[1]= VV[33];
428          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
429          (void) (*Lnk269)();          (void) (*Lnk275)();
430          vs_top=sup;          vs_top=sup;
431          {object V35 = Cnil;          {object V35 = Cnil;
432          VMR23(V35)}          VMR23(V35)}
# Line 457  TTL:; Line 457  TTL:;
457          base[4]= (V37);          base[4]= (V37);
458          base[5]= VV[35];          base[5]= VV[35];
459          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
460          (void) (*Lnk270)();          (void) (*Lnk276)();
461          vs_top=sup;          vs_top=sup;
462          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
463          goto T114;}          goto T114;}
# Line 492  T128:;{object V44; Line 492  T128:;{object V44;
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) (*Lnk271)();          (void) (*Lnk277)();
496          vs_top=sup;          vs_top=sup;
497          V45= vs_base[0];          V45= vs_base[0];
498          if(!((V44)==(CMPcar(V45)))){          if(!((V44)==(CMPcar(V45)))){
# Line 521  T124:; Line 521  T124:;
521          base[4]= (V47);          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) (*Lnk276)();
525          vs_top=sup;          vs_top=sup;
526          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
527          goto T142;}          goto T142;}
# Line 592  T160:; Line 592  T160:;
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) (*Lnk272)();          (void) (*Lnk278)();
596          return;          return;
597          goto T107;          goto T107;
598  T107:;  T107:;
599          base[4]= (*(LnkLI273))((V38),(V39));          base[4]= (*(LnkLI279))((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 'compile2796     */  /*      local entry for function progn 'compile2801     */
605    
606  static object LI25()  static object LI25()
607    
# Line 613  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          V52= (VV[274]->s.s_gfdef);          V52= (VV[280]->s.s_gfdef);
617          base[5]= listA(3,VV[51],V52,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) (*Lnk275)();          (void) (*Lnk281)();
621          vs_top=sup;          vs_top=sup;
622          {object V53 = Cnil;          {object V53 = Cnil;
623          VMR25(V53)}          VMR25(V53)}
624          base[0]=base[0];          base[0]=base[0];
625          return Cnil;          return Cnil;
626  }  }
627  /*      local entry for function progn 'compile2804     */  /*      local entry for function progn 'compile2809     */
628    
629  static object LI26()  static object LI26()
630    
# Line 635  TTL:; Line 635  TTL:;
635          VMR26(V54)}          VMR26(V54)}
636          return Cnil;          return Cnil;
637  }  }
638  /*      function definition for Defclass SIMPLE-WARNING2824     */  /*      function definition for Defclass SIMPLE-WARNING2829     */
639    
640  static void L27()  static void L27()
641  {register object *base=vs_base;  {register object *base=vs_base;
# Line 650  TTL:; Line 650  TTL:;
650          base[3]= Cnil;          base[3]= Cnil;
651          base[4]= Cnil;          base[4]= Cnil;
652          base[5]= Cnil;          base[5]= Cnil;
653          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
654          return;          return;
655  }  }
656  /*      local entry for function progn 'compile2840     */  /*      local entry for function progn 'compile2845     */
657    
658  static object LI28()  static object LI28()
659    
# Line 661  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) (*Lnk276)();          (void) (*Lnk282)();
665          vs_top=sup;          vs_top=sup;
666          {object V55 = Cnil;          {object V55 = Cnil;
667          VMR28(V55)}          VMR28(V55)}
668          base[0]=base[0];          base[0]=base[0];
669          return Cnil;          return Cnil;
670  }  }
671  /*      local entry for function progn 'compile2857     */  /*      local entry for function progn 'compile2862     */
672    
673  static object LI29()  static object LI29()
674    
# Line 686  TTL:; Line 686  TTL:;
686          base[0]=base[0];          base[0]=base[0];
687          return Cnil;          return Cnil;
688  }  }
689  /*      local entry for function progn 'compile2881     */  /*      local entry for function progn 'compile2886     */
690    
691  static object LI30()  static object LI30()
692    
# Line 698  TTL:; Line 698  TTL:;
698          VMR30(V58)}          VMR30(V58)}
699          return Cnil;          return Cnil;
700  }  }
701  /*      local entry for function progn 'compile2893     */  /*      local entry for function progn 'compile2898     */
702    
703  static object LI31()  static object LI31()
704    
# Line 709  TTL:; Line 709  TTL:;
709          VMR31(V59)}          VMR31(V59)}
710          return Cnil;          return Cnil;
711  }  }
712  /*      function definition for Defclass SIMPLE-ERROR2913       */  /*      function definition for Defclass SIMPLE-ERROR2918       */
713    
714  static void L32()  static void L32()
715  {register object *base=vs_base;  {register object *base=vs_base;
# Line 724  TTL:; Line 724  TTL:;
724          base[3]= Cnil;          base[3]= Cnil;
725          base[4]= Cnil;          base[4]= Cnil;
726          base[5]= Cnil;          base[5]= Cnil;
727          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
728          return;          return;
729  }  }
730  /*      local entry for function progn 'compile2929     */  /*      local entry for function progn 'compile2934     */
731    
732  static object LI33()  static object LI33()
733    
# Line 735  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) (*Lnk277)();          (void) (*Lnk283)();
739          vs_top=sup;          vs_top=sup;
740          {object V60 = Cnil;          {object V60 = Cnil;
741          VMR33(V60)}          VMR33(V60)}
742          base[0]=base[0];          base[0]=base[0];
743          return Cnil;          return Cnil;
744  }  }
745  /*      local entry for function progn 'compile2946     */  /*      local entry for function progn 'compile2951     */
746    
747  static object LI34()  static object LI34()
748    
# Line 760  TTL:; Line 760  TTL:;
760          base[0]=base[0];          base[0]=base[0];
761          return Cnil;          return Cnil;
762  }  }
763  /*      local entry for function progn 'compile2970     */  /*      local entry for function progn 'compile2975     */
764    
765  static object LI35()  static object LI35()
766    
# Line 772  TTL:; Line 772  TTL:;
772          VMR35(V63)}          VMR35(V63)}
773          return Cnil;          return Cnil;
774  }  }
775  /*      local entry for function progn 'compile2982     */  /*      local entry for function progn 'compile2987     */
776    
777  static object LI36()  static object LI36()
778    
# Line 783  TTL:; Line 783  TTL:;
783          VMR36(V64)}          VMR36(V64)}
784          return Cnil;          return Cnil;
785  }  }
786  /*      function definition for Defclass STORAGE-CONDITION3002  */  /*      function definition for Defclass STORAGE-CONDITION3007  */
787    
788  static void L37()  static void L37()
789  {register object *base=vs_base;  {register object *base=vs_base;
# Line 798  TTL:; Line 798  TTL:;
798          base[3]= Cnil;          base[3]= Cnil;
799          base[4]= Cnil;          base[4]= Cnil;
800          base[5]= Cnil;          base[5]= Cnil;
801          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
802          return;          return;
803  }  }
804  /*      local entry for function progn 'compile3018     */  /*      local entry for function progn 'compile3023     */
805    
806  static object LI38()  static object LI38()
807    
# Line 809  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) (*Lnk278)();          (void) (*Lnk284)();
813          vs_top=sup;          vs_top=sup;
814          {object V65 = Cnil;          {object V65 = Cnil;
815          VMR38(V65)}          VMR38(V65)}
816          base[0]=base[0];          base[0]=base[0];
817          return Cnil;          return Cnil;
818  }  }
819  /*      local entry for function progn 'compile3035     */  /*      local entry for function progn 'compile3040     */
820    
821  static object LI39()  static object LI39()
822    
# Line 834  TTL:; Line 834  TTL:;
834          base[0]=base[0];          base[0]=base[0];
835          return Cnil;          return Cnil;
836  }  }
837  /*      local entry for function progn 'compile3059     */  /*      local entry for function progn 'compile3064     */
838    
839  static object LI40()  static object LI40()
840    
# Line 846  TTL:; Line 846  TTL:;
846          VMR40(V68)}          VMR40(V68)}
847          return Cnil;          return Cnil;
848  }  }
849  /*      local entry for function progn 'compile3071     */  /*      local entry for function progn 'compile3076     */
850    
851  static object LI41()  static object LI41()
852    
# Line 857  TTL:; Line 857  TTL:;
857          VMR41(V69)}          VMR41(V69)}
858          return Cnil;          return Cnil;
859  }  }
860  /*      function definition for Defclass STACK-OVERFLOW3091     */  /*      function definition for Defclass STACK-OVERFLOW3096     */
861    
862  static void L42()  static void L42()
863  {register object *base=vs_base;  {register object *base=vs_base;
# Line 872  TTL:; Line 872  TTL:;
872          base[3]= Cnil;          base[3]= Cnil;
873          base[4]= Cnil;          base[4]= Cnil;
874          base[5]= Cnil;          base[5]= Cnil;
875          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
876          return;          return;
877  }  }
878  /*      local entry for function progn 'compile3107     */  /*      local entry for function progn 'compile3112     */
879    
880  static object LI43()  static object LI43()
881    
# Line 883  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) (*Lnk279)();          (void) (*Lnk285)();
887          vs_top=sup;          vs_top=sup;
888          {object V70 = Cnil;          {object V70 = Cnil;
889          VMR43(V70)}          VMR43(V70)}
890          base[0]=base[0];          base[0]=base[0];
891          return Cnil;          return Cnil;
892  }  }
893  /*      local entry for function progn 'compile3124     */  /*      local entry for function progn 'compile3129     */
894    
895  static object LI44()  static object LI44()
896    
# Line 908  TTL:; Line 908  TTL:;
908          base[0]=base[0];          base[0]=base[0];
909          return Cnil;          return Cnil;
910  }  }
911  /*      local entry for function progn 'compile3148     */  /*      local entry for function progn 'compile3153     */
912    
913  static object LI45()  static object LI45()
914    
# Line 920  TTL:; Line 920  TTL:;
920          VMR45(V73)}          VMR45(V73)}
921          return Cnil;          return Cnil;
922  }  }
923  /*      local entry for function progn 'compile3160     */  /*      local entry for function progn 'compile3165     */
924    
925  static object LI46()  static object LI46()
926    
# Line 931  TTL:; Line 931  TTL:;
931          VMR46(V74)}          VMR46(V74)}
932          return Cnil;          return Cnil;
933  }  }
934  /*      function definition for Defclass STORAGE-EXHAUSTED3180  */  /*      function definition for Defclass STORAGE-EXHAUSTED3185  */
935    
936  static void L47()  static void L47()
937  {register object *base=vs_base;  {register object *base=vs_base;
# Line 946  TTL:; Line 946  TTL:;
946          base[3]= Cnil;          base[3]= Cnil;
947          base[4]= Cnil;          base[4]= Cnil;
948          base[5]= Cnil;          base[5]= Cnil;
949          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
950          return;          return;
951  }  }
952  /*      local entry for function progn 'compile3196     */  /*      local entry for function progn 'compile3201     */
953    
954  static object LI48()  static object LI48()
955    
# Line 957  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) (*Lnk280)();          (void) (*Lnk286)();
961          vs_top=sup;          vs_top=sup;
962          {object V75 = Cnil;          {object V75 = Cnil;
963          VMR48(V75)}          VMR48(V75)}
964          base[0]=base[0];          base[0]=base[0];
965          return Cnil;          return Cnil;
966  }  }
967  /*      local entry for function progn 'compile3213     */  /*      local entry for function progn 'compile3218     */
968    
969  static object LI49()  static object LI49()
970    
# Line 982  TTL:; Line 982  TTL:;
982          base[0]=base[0];          base[0]=base[0];
983          return Cnil;          return Cnil;
984  }  }
985  /*      local entry for function progn 'compile3237     */  /*      local entry for function progn 'compile3242     */
986    
987  static object LI50()  static object LI50()
988    
# Line 994  TTL:; Line 994  TTL:;
994          VMR50(V78)}          VMR50(V78)}
995          return Cnil;          return Cnil;
996  }  }
997  /*      local entry for function progn 'compile3249     */  /*      local entry for function progn 'compile3254     */
998    
999  static object LI51()  static object LI51()
1000    
# Line 1005  TTL:; Line 1005  TTL:;
1005          VMR51(V79)}          VMR51(V79)}
1006          return Cnil;          return Cnil;
1007  }  }
1008  /*      function definition for Defclass TYPE-ERROR3269 */  /*      function definition for Defclass TYPE-ERROR3274 */
1009    
1010  static void L52()  static void L52()
1011  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1021  TTL:; Line 1021  TTL:;
1021          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));          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[267],base+0,6);
1025          return;          return;
1026  }  }
1027  /*      local entry for function progn 'compile3287     */  /*      local entry for function progn 'compile3292     */
1028    
1029  static object LI53()  static object LI53()
1030    
# Line 1032  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) (*Lnk281)();          (void) (*Lnk287)();
1036          vs_top=sup;          vs_top=sup;
1037          {object V81 = Cnil;          {object V81 = Cnil;
1038          VMR53(V81)}          VMR53(V81)}
1039          base[0]=base[0];          base[0]=base[0];
1040          return Cnil;          return Cnil;
1041  }  }
1042  /*      local entry for function progn 'compile3304     */  /*      local entry for function progn 'compile3309     */
1043    
1044  static object LI54()  static object LI54()
1045    
# Line 1057  TTL:; Line 1057  TTL:;
1057          base[0]=base[0];          base[0]=base[0];
1058          return Cnil;          return Cnil;
1059  }  }
1060  /*      local entry for function progn 'compile3328     */  /*      local entry for function progn 'compile3333     */
1061    
1062  static object LI55()  static object LI55()
1063    
# Line 1069  TTL:; Line 1069  TTL:;
1069          VMR55(V84)}          VMR55(V84)}
1070          return Cnil;          return Cnil;
1071  }  }
1072  /*      local entry for function progn 'compile3344     */  /*      local entry for function progn 'compile3349     */
1073    
1074  static object LI56()  static object LI56()
1075    
# Line 1079  TTL:; Line 1079  TTL:;
1079          base[0]= VV[32];          base[0]= VV[32];
1080          base[1]= VV[77];          base[1]= VV[77];
1081          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1082          (void) (*Lnk269)();          (void) (*Lnk275)();
1083          vs_top=sup;          vs_top=sup;
1084          {object V85 = Cnil;          {object V85 = Cnil;
1085          VMR56(V85)}          VMR56(V85)}
# Line 1110  TTL:; Line 1110  TTL:;
1110          base[4]= (V87);          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) (*Lnk276)();
1114          vs_top=sup;          vs_top=sup;
1115          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1116          goto T276;}          goto T276;}
# Line 1145  T290:;{object V94; Line 1145  T290:;{object V94;
1145          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
1146          base[5]= (V88);          base[5]= (V88);
1147          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1148          (void) (*Lnk271)();          (void) (*Lnk277)();
1149          vs_top=sup;          vs_top=sup;
1150          V95= vs_base[0];          V95= vs_base[0];
1151          if(!((V94)==(CMPcar(V95)))){          if(!((V94)==(CMPcar(V95)))){
# Line 1174  T286:; Line 1174  T286:;
1174          base[4]= (V97);          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) (*Lnk276)();
1178          vs_top=sup;          vs_top=sup;
1179          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1180          goto T304;}          goto T304;}
# Line 1245  T322:; Line 1245  T322:;
1245  T272:;  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) (*Lnk272)();          (void) (*Lnk278)();
1249          return;          return;
1250          goto T269;          goto T269;
1251  T269:;  T269:;
# Line 1253  T269:; Line 1253  T269:;
1253          base[5]= VV[81];          base[5]= VV[81];
1254          base[7]= V88;          base[7]= V88;
1255          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1256          (void) (*Lnk282)(Lclptr282);          (void) (*Lnk288)(Lclptr288);
1257          vs_top=sup;          vs_top=sup;
1258          base[6]= vs_base[0];          base[6]= vs_base[0];
1259          base[8]= V88;          base[8]= V88;
1260          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1261          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk289)(Lclptr289);
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 1266  T269:; Line 1266  T269:;
1266          return;          return;
1267          }          }
1268  }  }
1269  /*      local entry for function progn 'compile3541     */  /*      local entry for function progn 'compile3546     */
1270    
1271  static object LI58()  static object LI58()
1272    
# Line 1278  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          V104= (VV[284]->s.s_gfdef);          V104= (VV[290]->s.s_gfdef);
1282          base[5]= listA(3,VV[51],V104,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) (*Lnk275)();          (void) (*Lnk281)();
1286          vs_top=sup;          vs_top=sup;
1287          {object V105 = Cnil;          {object V105 = Cnil;
1288          VMR58(V105)}          VMR58(V105)}
1289          base[0]=base[0];          base[0]=base[0];
1290          return Cnil;          return Cnil;
1291  }  }
1292  /*      local entry for function progn 'compile3549     */  /*      local entry for function progn 'compile3554     */
1293    
1294  static object LI59()  static object LI59()
1295    
# Line 1300  TTL:; Line 1300  TTL:;
1300          VMR59(V106)}          VMR59(V106)}
1301          return Cnil;          return Cnil;
1302  }  }
1303  /*      function definition for Defclass SIMPLE-TYPE-ERROR3569  */  /*      function definition for Defclass SIMPLE-TYPE-ERROR3574  */
1304    
1305  static void L60()  static void L60()
1306  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1315  TTL:; Line 1315  TTL:;
1315          base[3]= Cnil;          base[3]= Cnil;
1316          base[4]= Cnil;          base[4]= Cnil;
1317          base[5]= Cnil;          base[5]= Cnil;
1318          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
1319          return;          return;
1320  }  }
1321  /*      local entry for function progn 'compile3585     */  /*      local entry for function progn 'compile3590     */
1322    
1323  static object LI61()  static object LI61()
1324    
# Line 1326  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) (*Lnk285)();          (void) (*Lnk291)();
1330          vs_top=sup;          vs_top=sup;
1331          {object V107 = Cnil;          {object V107 = Cnil;
1332          VMR61(V107)}          VMR61(V107)}
1333          base[0]=base[0];          base[0]=base[0];
1334          return Cnil;          return Cnil;
1335  }  }
1336  /*      local entry for function progn 'compile3602     */  /*      local entry for function progn 'compile3607     */
1337    
1338  static object LI62()  static object LI62()
1339    
# Line 1351  TTL:; Line 1351  TTL:;
1351          base[0]=base[0];          base[0]=base[0];
1352          return Cnil;          return Cnil;
1353  }  }
1354  /*      local entry for function progn 'compile3626     */  /*      local entry for function progn 'compile3631     */
1355    
1356  static object LI63()  static object LI63()
1357    
# Line 1363  TTL:; Line 1363  TTL:;
1363          VMR63(V110)}          VMR63(V110)}
1364          return Cnil;          return Cnil;
1365  }  }
1366  /*      local entry for function progn 'compile3638     */  /*      local entry for function progn 'compile3643     */
1367    
1368  static object LI64()  static object LI64()
1369    
# Line 1374  TTL:; Line 1374  TTL:;
1374          VMR64(V111)}          VMR64(V111)}
1375          return Cnil;          return Cnil;
1376  }  }
1377  /*      function definition for Defclass CASE-FAILURE3658       */  /*      function definition for Defclass CASE-FAILURE3663       */
1378    
1379  static void L65()  static void L65()
1380  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1390  TTL:; Line 1390  TTL:;
1390          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));          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[267],base+0,6);
1394          return;          return;
1395  }  }
1396  /*      local entry for function progn 'compile3676     */  /*      local entry for function progn 'compile3681     */
1397    
1398  static object LI66()  static object LI66()
1399    
# Line 1401  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) (*Lnk286)();          (void) (*Lnk292)();
1405          vs_top=sup;          vs_top=sup;
1406          {object V113 = Cnil;          {object V113 = Cnil;
1407          VMR66(V113)}          VMR66(V113)}
1408          base[0]=base[0];          base[0]=base[0];
1409          return Cnil;          return Cnil;
1410  }  }
1411  /*      local entry for function progn 'compile3693     */  /*      local entry for function progn 'compile3698     */
1412    
1413  static object LI67()  static object LI67()
1414    
# Line 1426  TTL:; Line 1426  TTL:;
1426          base[0]=base[0];          base[0]=base[0];
1427          return Cnil;          return Cnil;
1428  }  }
1429  /*      local entry for function progn 'compile3717     */  /*      local entry for function progn 'compile3722     */
1430    
1431  static object LI68()  static object LI68()
1432    
# Line 1438  TTL:; Line 1438  TTL:;
1438          VMR68(V116)}          VMR68(V116)}
1439          return Cnil;          return Cnil;
1440  }  }
1441  /*      local entry for function progn 'compile3733     */  /*      local entry for function progn 'compile3738     */
1442    
1443  static object LI69()  static object LI69()
1444    
# Line 1448  TTL:; Line 1448  TTL:;
1448          base[0]= VV[32];          base[0]= VV[32];
1449          base[1]= VV[96];          base[1]= VV[96];
1450          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1451          (void) (*Lnk269)();          (void) (*Lnk275)();
1452          vs_top=sup;          vs_top=sup;
1453          {object V117 = Cnil;          {object V117 = Cnil;
1454          VMR69(V117)}          VMR69(V117)}
# Line 1479  TTL:; Line 1479  TTL:;
1479          base[4]= (V119);          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) (*Lnk276)();
1483          vs_top=sup;          vs_top=sup;
1484          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1485          goto T392;}          goto T392;}
# Line 1514  T406:;{object V126; Line 1514  T406:;{object V126;
1514          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
1515          base[5]= (V120);          base[5]= (V120);
1516          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1517          (void) (*Lnk271)();          (void) (*Lnk277)();
1518          vs_top=sup;          vs_top=sup;
1519          V127= vs_base[0];          V127= vs_base[0];
1520          if(!((V126)==(CMPcar(V127)))){          if(!((V126)==(CMPcar(V127)))){
# Line 1543  T402:; Line 1543  T402:;
1543          base[4]= (V129);          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) (*Lnk276)();
1547          vs_top=sup;          vs_top=sup;
1548          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1549          goto T420;}          goto T420;}
# Line 1614  T438:; Line 1614  T438:;
1614  T388:;  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) (*Lnk272)();          (void) (*Lnk278)();
1618          return;          return;
1619          goto T385;          goto T385;
1620  T385:;  T385:;
# Line 1622  T385:; Line 1622  T385:;
1622          base[5]= VV[100];          base[5]= VV[100];
1623          base[7]= V120;          base[7]= V120;
1624          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1625          (void) (*Lnk282)(Lclptr282);          (void) (*Lnk288)(Lclptr288);
1626          vs_top=sup;          vs_top=sup;
1627          base[6]= vs_base[0];          base[6]= vs_base[0];
1628          base[8]= V120;          base[8]= V120;
1629          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1630          (void) (*Lnk287)(Lclptr287);          (void) (*Lnk293)(Lclptr293);
1631          vs_top=sup;          vs_top=sup;
1632          base[7]= vs_base[0];          base[7]= vs_base[0];
1633          base[9]= V120;          base[9]= V120;
1634          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1635          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk294)(Lclptr294);
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 1640  T385:; Line 1640  T385:;
1640          return;          return;
1641          }          }
1642  }  }
1643  /*      local entry for function progn 'compile3930     */  /*      local entry for function progn 'compile3935     */
1644    
1645  static object LI71()  static object LI71()
1646    
# Line 1652  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          V136= (VV[289]->s.s_gfdef);          V136= (VV[295]->s.s_gfdef);
1656          base[5]= listA(3,VV[51],V136,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) (*Lnk275)();          (void) (*Lnk281)();
1660          vs_top=sup;          vs_top=sup;
1661          {object V137 = Cnil;          {object V137 = Cnil;
1662          VMR71(V137)}          VMR71(V137)}
1663          base[0]=base[0];          base[0]=base[0];
1664          return Cnil;          return Cnil;
1665  }  }
1666  /*      local entry for function progn 'compile3938     */  /*      local entry for function progn 'compile3943     */
1667    
1668  static object LI72()  static object LI72()
1669    
# Line 1674  TTL:; Line 1674  TTL:;
1674          VMR72(V138)}          VMR72(V138)}
1675          return Cnil;          return Cnil;
1676  }  }
1677  /*      function definition for Defclass PROGRAM-ERROR3958      */  /*      function definition for Defclass PROGRAM-ERROR3963      */
1678    
1679  static void L73()  static void L73()
1680  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1689  TTL:; Line 1689  TTL:;
1689          base[3]= Cnil;          base[3]= Cnil;
1690          base[4]= Cnil;          base[4]= Cnil;
1691          base[5]= Cnil;          base[5]= Cnil;
1692          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
1693          return;          return;
1694  }  }
1695  /*      local entry for function progn 'compile3974     */  /*      local entry for function progn 'compile3979     */
1696    
1697  static object LI74()  static object LI74()
1698    
# Line 1700  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) (*Lnk290)();          (void) (*Lnk296)();
1704          vs_top=sup;          vs_top=sup;
1705          {object V139 = Cnil;          {object V139 = Cnil;
1706          VMR74(V139)}          VMR74(V139)}
1707          base[0]=base[0];          base[0]=base[0];
1708          return Cnil;          return Cnil;
1709  }  }
1710  /*      local entry for function progn 'compile3991     */  /*      local entry for function progn 'compile3996     */
1711    
1712  static object LI75()  static object LI75()
1713    
# Line 1725  TTL:; Line 1725  TTL:;
1725          base[0]=base[0];          base[0]=base[0];
1726          return Cnil;          return Cnil;
1727  }  }
1728  /*      local entry for function progn 'compile4015     */  /*      local entry for function progn 'compile4020     */
1729    
1730  static object LI76()  static object LI76()
1731    
# Line 1737  TTL:; Line 1737  TTL:;
1737          VMR76(V142)}          VMR76(V142)}
1738          return Cnil;          return Cnil;
1739  }  }
1740  /*      local entry for function progn 'compile4027     */  /*      local entry for function progn 'compile4032     */
1741    
1742  static object LI77()  static object LI77()
1743    
# Line 1748  TTL:; Line 1748  TTL:;
1748          VMR77(V143)}          VMR77(V143)}
1749          return Cnil;          return Cnil;
1750  }  }
1751  /*      function definition for Defclass CONTROL-ERROR4047      */  /*      function definition for Defclass CONTROL-ERROR4052      */
1752    
1753  static void L78()  static void L78()
1754  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1763  TTL:; Line 1763  TTL:;
1763          base[3]= Cnil;          base[3]= Cnil;
1764          base[4]= Cnil;          base[4]= Cnil;
1765          base[5]= Cnil;          base[5]= Cnil;
1766          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
1767          return;          return;
1768  }  }
1769  /*      local entry for function progn 'compile4063     */  /*      local entry for function progn 'compile4068     */
1770    
1771  static object LI79()  static object LI79()
1772    
# Line 1774  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) (*Lnk291)();          (void) (*Lnk297)();
1778          vs_top=sup;          vs_top=sup;
1779          {object V144 = Cnil;          {object V144 = Cnil;
1780          VMR79(V144)}          VMR79(V144)}
1781          base[0]=base[0];          base[0]=base[0];
1782          return Cnil;          return Cnil;
1783  }  }
1784  /*      local entry for function progn 'compile4080     */  /*      local entry for function progn 'compile4085     */
1785    
1786  static object LI80()  static object LI80()
1787    
# Line 1799  TTL:; Line 1799  TTL:;
1799          base[0]=base[0];          base[0]=base[0];
1800          return Cnil;          return Cnil;
1801  }  }
1802  /*      local entry for function progn 'compile4104     */  /*      local entry for function progn 'compile4109     */
1803    
1804  static object LI81()  static object LI81()
1805    
# Line 1811  TTL:; Line 1811  TTL:;
1811          VMR81(V147)}          VMR81(V147)}
1812          return Cnil;          return Cnil;
1813  }  }
1814  /*      local entry for function progn 'compile4116     */  /*      local entry for function progn 'compile4121     */
1815    
1816  static object LI82()  static object LI82()
1817    
# Line 1822  TTL:; Line 1822  TTL:;
1822          VMR82(V148)}          VMR82(V148)}
1823          return Cnil;          return Cnil;
1824  }  }
1825  /*      function definition for Defclass STREAM-ERROR4136       */  /*      function definition for Defclass PARSE-ERROR4141        */
1826    
1827  static void L83()  static void L83()
1828  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1834  TTL:; Line 1834  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          V149= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil);          base[3]= Cnil;
         base[3]= make_cons(/* INLINE-ARGS */V149,Cnil);  
1838          base[4]= Cnil;          base[4]= Cnil;
1839          base[5]= Cnil;          base[5]= Cnil;
1840          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
1841          return;          return;
1842  }  }
1843  /*      local entry for function progn 'compile4153     */  /*      local entry for function progn 'compile4157     */
1844    
1845  static object LI84()  static object LI84()
1846    
# Line 1849  static object LI84() Line 1848  static object LI84()
1848          goto TTL;          goto TTL;
1849  TTL:;  TTL:;
1850          vs_base=vs_top;          vs_base=vs_top;
1851          (void) (*Lnk292)();          (void) (*Lnk298)();
1852          vs_top=sup;          vs_top=sup;
1853          {object V150 = Cnil;          {object V149 = Cnil;
1854          VMR84(V150)}          VMR84(V149)}
1855          base[0]=base[0];          base[0]=base[0];
1856          return Cnil;          return Cnil;
1857  }  }
1858  /*      local entry for function progn 'compile4170     */  /*      local entry for function progn 'compile4174     */
1859    
1860  static object LI85()  static object LI85()
1861    
1862  {        VMB85 VMS85 VMV85  {        VMB85 VMS85 VMV85
1863          goto TTL;          goto TTL;
1864  TTL:;  TTL:;
1865          base[0]= VV[115];          base[0]= VV[112];
1866          base[1]= (VV[8]->s.s_dbind);          base[1]= (VV[8]->s.s_dbind);
1867          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1868          Ladjoin();          Ladjoin();
1869          vs_top=sup;          vs_top=sup;
1870          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
1871          {object V152 = Cnil;          {object V151 = Cnil;
1872          VMR85(V152)}          VMR85(V151)}
1873          base[0]=base[0];          base[0]=base[0];
1874          return Cnil;          return Cnil;
1875  }  }
1876  /*      local entry for function progn 'compile4194     */  /*      local entry for function progn 'compile4198     */
1877    
1878  static object LI86()  static object LI86()
1879    
# Line 1882  static object LI86() Line 1881  static object LI86()
1881          goto TTL;          goto TTL;
1882  TTL:;  TTL:;
1883          (void)(sputprop(VV[110],VV[9],Cnil));          (void)(sputprop(VV[110],VV[9],Cnil));
1884          {object V153 = Cnil;          {object V152 = Cnil;
1885          VMR86(V153)}          VMR86(V152)}
1886          return Cnil;          return Cnil;
1887  }  }
1888  /*      local entry for function progn 'compile4206     */  /*      local entry for function progn 'compile4210     */
1889    
1890  static object LI87()  static object LI87()
1891    
1892  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
1893          goto TTL;          goto TTL;
1894  TTL:;  TTL:;
1895          {object V154 = Cnil;          {object V153 = Cnil;
1896          VMR87(V154)}          VMR87(V153)}
1897          return Cnil;          return Cnil;
1898  }  }
1899  /*      function definition for Defclass END-OF-FILE4226        */  /*      function definition for Defclass STREAM-ERROR4230       */
1900    
1901  static void L88()  static void L88()
1902  {register object *base=vs_base;  {register object *base=vs_base;
# Line 1906  static void L88() Line 1905  static void L88()
1905          vs_top=sup;          vs_top=sup;
1906          goto TTL;          goto TTL;
1907  TTL:;  TTL:;
1908          base[0]= VV[116];          base[0]= VV[113];
1909          base[1]= VV[5];          base[1]= VV[5];
1910          base[2]= VV[117];          base[2]= VV[114];
1911          base[3]= Cnil;          V154= listA(9,VV[18],VV[115],VV[20],VV[116],VV[22],Cnil,VV[23],VV[117],Cnil);
1912            base[3]= make_cons(/* INLINE-ARGS */V154,Cnil);
1913          base[4]= Cnil;          base[4]= Cnil;
1914          base[5]= Cnil;          base[5]= Cnil;
1915          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
1916          return;          return;
1917  }  }
1918  /*      local entry for function progn 'compile4242     */  /*      local entry for function progn 'compile4247     */
1919    
1920  static object LI89()  static object LI89()
1921    
# Line 1923  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) (*Lnk293)();          (void) (*Lnk299)();
1927          vs_top=sup;          vs_top=sup;
1928          {object V155 = Cnil;          {object V155 = Cnil;
1929          VMR89(V155)}          VMR89(V155)}
1930          base[0]=base[0];          base[0]=base[0];
1931          return Cnil;          return Cnil;
1932  }  }
1933  /*      local entry for function progn 'compile4259     */  /*      local entry for function progn 'compile4264     */
1934    
1935  static object LI90()  static object LI90()
1936    
# Line 1948  TTL:; Line 1948  TTL:;
1948          base[0]=base[0];          base[0]=base[0];
1949          return Cnil;          return Cnil;
1950  }  }
1951  /*      local entry for function progn 'compile4283     */  /*      local entry for function progn 'compile4288     */
1952    
1953  static object LI91()  static object LI91()
1954    
1955  {        VMB91 VMS91 VMV91  {        VMB91 VMS91 VMV91
1956          goto TTL;          goto TTL;
1957  TTL:;  TTL:;
1958          (void)(sputprop(VV[116],VV[9],Cnil));          (void)(sputprop(VV[113],VV[9],Cnil));
1959          {object V158 = Cnil;          {object V158 = Cnil;
1960          VMR91(V158)}          VMR91(V158)}
1961          return Cnil;          return Cnil;
1962  }  }
1963  /*      local entry for function progn 'compile4299     */  /*      local entry for function progn 'compile4300     */
1964    
1965  static object LI92()  static object LI92()
1966    
1967  {        VMB92 VMS92 VMV92  {        VMB92 VMS92 VMV92
1968          goto TTL;          goto TTL;
1969  TTL:;  TTL:;
1970            {object V159 = Cnil;
1971            VMR92(V159)}
1972            return Cnil;
1973    }
1974    /*      function definition for Defclass END-OF-FILE4320        */
1975    
1976    static void L93()
1977    {register object *base=vs_base;
1978            register object *sup=base+VM93; VC93
1979            vs_check;
1980            vs_top=sup;
1981            goto TTL;
1982    TTL:;
1983            base[0]= VV[119];
1984            base[1]= VV[5];
1985            base[2]= VV[120];
1986            base[3]= Cnil;
1987            base[4]= Cnil;
1988            base[5]= Cnil;
1989            symlispcall(VV[267],base+0,6);
1990            return;
1991    }
1992    /*      local entry for function progn 'compile4336     */
1993    
1994    static object LI94()
1995    
1996    {        VMB94 VMS94 VMV94
1997            goto TTL;
1998    TTL:;
1999            vs_base=vs_top;
2000            (void) (*Lnk300)();
2001            vs_top=sup;
2002            {object V160 = Cnil;
2003            VMR94(V160)}
2004            base[0]=base[0];
2005            return Cnil;
2006    }
2007    /*      local entry for function progn 'compile4353     */
2008    
2009    static object LI95()
2010    
2011    {        VMB95 VMS95 VMV95
2012            goto TTL;
2013    TTL:;
2014            base[0]= VV[121];
2015            base[1]= (VV[8]->s.s_dbind);
2016            vs_top=(vs_base=base+0)+2;
2017            Ladjoin();
2018            vs_top=sup;
2019            (VV[8]->s.s_dbind)= vs_base[0];
2020            {object V162 = Cnil;
2021            VMR95(V162)}
2022            base[0]=base[0];
2023            return Cnil;
2024    }
2025    /*      local entry for function progn 'compile4377     */
2026    
2027    static object LI96()
2028    
2029    {        VMB96 VMS96 VMV96
2030            goto TTL;
2031    TTL:;
2032            (void)(sputprop(VV[119],VV[9],Cnil));
2033            {object V163 = Cnil;
2034            VMR96(V163)}
2035            return Cnil;
2036    }
2037    /*      local entry for function progn 'compile4393     */
2038    
2039    static object LI97()
2040    
2041    {        VMB97 VMS97 VMV97
2042            goto TTL;
2043    TTL:;
2044          base[0]= VV[32];          base[0]= VV[32];
2045          base[1]= VV[119];          base[1]= VV[122];
2046          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2047          (void) (*Lnk269)();          (void) (*Lnk275)();
2048          vs_top=sup;          vs_top=sup;
2049          {object V159 = Cnil;          {object V164 = Cnil;
2050          VMR92(V159)}          VMR97(V164)}
2051          base[0]=base[0];          base[0]=base[0];
2052          return Cnil;          return Cnil;
2053  }  }
2054  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) */  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (END-OF-FILE T)) */
2055    
2056  static void L93()  static void L98()
2057  {register object *base=vs_base;  {register object *base=vs_base;
2058          register object *sup=base+VM93; VC93          register object *sup=base+VM98; VC98
2059          vs_check;          vs_check;
2060          {object V160;          {object V165;
2061          register object V161;          register object V166;
2062          register object V162;          register object V167;
2063          register object V163;          register object V168;
2064          V160=(base[0]);          V165=(base[0]);
2065          V161=(base[1]);          V166=(base[1]);
2066          V162=(base[2]);          V167=(base[2]);
2067          V163=(base[3]);          V168=(base[3]);
2068          vs_top=sup;          vs_top=sup;
2069          goto TTL;          goto TTL;
2070  TTL:;  TTL:;
2071          if(((VV[34]->s.s_dbind))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
2072          goto T529;}          goto T542;}
2073          if(((V161))==Cnil){          if(((V166))==Cnil){
2074          goto T532;}          goto T545;}
2075          base[4]= (V161);          base[4]= (V166);
2076          base[5]= VV[35];          base[5]= VV[35];
2077          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2078          (void) (*Lnk270)();          (void) (*Lnk276)();
2079          vs_top=sup;          vs_top=sup;
2080          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2081          goto T536;}          goto T549;}
2082          base[4]= STREF(object,(V161),0);          base[4]= STREF(object,(V166),0);
2083          base[5]= STREF(object,(V161),4);          base[5]= STREF(object,(V166),4);
2084          base[6]= STREF(object,(V161),8);          base[6]= STREF(object,(V166),8);
2085          base[7]= (V162);          base[7]= (V167);
2086          base[8]= (V163);          base[8]= (V168);
2087          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2088          {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))
2089                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2090                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2091                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2092          return;          return;
2093          goto T536;          goto T549;
2094  T536:;  T549:;
2095          if(!(type_of((V161))==t_fixnum)){          if(!(type_of((V166))==t_fixnum)){
2096          goto T546;}          goto T559;}
2097          {object V166;          {object V171;
2098          if(type_of(V162)==t_structure){          if(type_of(V167)==t_structure){
2099          goto T552;}          goto T565;}
2100          goto T550;          goto T563;
2101          goto T552;          goto T565;
2102  T552:;  T565:;
2103          if(!(((V162)->str.str_def)==(VV[120]))){          if(!(((V167)->str.str_def)==(VV[123]))){
2104          goto T550;}          goto T563;}
2105          V166= STREF(object,(V162),4);          V171= STREF(object,(V167),4);
2106          goto T548;          goto T561;
2107          goto T550;          goto T563;
2108  T550:;{object V168;  T563:;{object V173;
2109          V168= (VV[38]->s.s_dbind);          V173= (VV[38]->s.s_dbind);
2110          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2111          base[5]= (V162);          base[5]= (V167);
2112          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2113          (void) (*Lnk271)();          (void) (*Lnk277)();
2114          vs_top=sup;          vs_top=sup;
2115          V169= vs_base[0];          V174= vs_base[0];
2116          if(!((V168)==(CMPcar(V169)))){          if(!((V173)==(CMPcar(V174)))){
2117          goto T555;}}          goto T568;}}
2118          V166= CMPcar(((V162))->cc.cc_turbo[12]);          V171= CMPcar(((V167))->cc.cc_turbo[12]);
2119          goto T548;          goto T561;
2120          goto T555;          goto T568;
2121  T555:;  T568:;
2122          V166= Cnil;          V171= Cnil;
         goto T548;  
 T548:;  
         if(((V166))==Cnil){  
         goto T561;}  
         base[4]= ((V166))->v.v_self[fix((V161))]= (V162);  
         vs_top=(vs_base=base+4)+1;  
         return;  
2123          goto T561;          goto T561;
2124  T561:;  T561:;
2125            if(((V171))==Cnil){
2126            goto T574;}
2127            base[4]= ((V171))->v.v_self[fix((V166))]= (V167);
2128            vs_top=(vs_base=base+4)+1;
2129            return;
2130            goto T574;
2131    T574:;
2132          base[4]= Cnil;          base[4]= Cnil;
2133          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2134          return;}          return;}
2135          goto T546;          goto T559;
2136  T546:;  T559:;
2137          {register object V171;          {register object V176;
2138          V171= V161;          V176= V166;
2139          base[4]= (V171);          base[4]= (V176);
2140          base[5]= VV[39];          base[5]= VV[39];
2141          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2142          (void) (*Lnk270)();          (void) (*Lnk276)();
2143          vs_top=sup;          vs_top=sup;
2144          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2145          goto T564;}          goto T577;}
2146          {object V172;          {object V177;
2147          object V173;          object V178;
2148          register object V174;          register object V179;
2149          V172= STREF(object,(V161),0);          V177= STREF(object,(V166),0);
2150          V173= list(2,(V162),(V163));          V178= list(2,(V167),(V168));
2151          V174= STREF(object,(V161),4);          V179= STREF(object,(V166),4);
2152          if(((V174))==Cnil){          if(((V179))==Cnil){
2153          goto T572;}          goto T585;}
2154          if((CMPcdr((V174)))!=Cnil){          if((CMPcdr((V179)))!=Cnil){
2155          goto T572;}          goto T585;}
2156          base[4]= (V173);          base[4]= (V178);
2157          base[5]= CMPcar((V174));          base[5]= CMPcar((V179));
2158          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2159          {object _funobj = (V172);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V177);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2160                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2161                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2162                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2163          return;          return;
2164          goto T572;          goto T585;
2165  T572:;  T585:;
2166          base[4]= (V172);          base[4]= (V177);
2167          base[5]= (V173);          base[5]= (V178);
2168          {object V175;          {object V180;
2169          V175= (V174);          V180= (V179);
2170           vs_top=base+6;           vs_top=base+6;
2171           while(V175!=Cnil)           while(V180!=Cnil)
2172           {vs_push((V175)->c.c_car);V175=(V175)->c.c_cdr;}           {vs_push((V180)->c.c_car);V180=(V180)->c.c_cdr;}
2173          vs_base=base+5;}          vs_base=base+5;}
2174          {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))
2175                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2176                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2177                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2178          return;}          return;}
2179          goto T564;          goto T577;
2180  T564:;  T577:;
2181          base[4]= (V171);          base[4]= (V176);
2182          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2183          Lfunctionp();          Lfunctionp();
2184          vs_top=sup;          vs_top=sup;
2185          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2186          goto T582;}          goto T595;}
2187          base[4]= (V162);          base[4]= (V167);
2188          base[5]= (V163);          base[5]= (V168);
2189          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2190          {object _funobj = (V161);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V166);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2191                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2192                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2193                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2194          return;          return;
2195          goto T582;          goto T595;
2196  T582:;  T595:;
2197          base[4]= VV[40];          base[4]= VV[40];
2198          base[5]= VV[18];          base[5]= VV[18];
2199          base[6]= VV[41];          base[6]= VV[41];
2200          base[7]= VV[42];          base[7]= VV[42];
2201          base[8]= V161;          base[8]= V166;
2202          base[9]= VV[43];          base[9]= VV[43];
2203          base[10]= VV[121];          base[10]= VV[124];
2204          base[11]= VV[45];          base[11]= VV[45];
2205          base[12]= VV[122];          base[12]= VV[125];
2206          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2207          (void) (*Lnk13)();          (void) (*Lnk13)();
2208          return;}          return;}
2209          goto T532;          goto T545;
2210  T532:;  T545:;
2211          base[4]= VV[47];          base[4]= VV[47];
2212          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2213          (void) (*Lnk272)();          (void) (*Lnk278)();
2214          return;          return;
2215          goto T529;          goto T542;
2216  T529:;  T542:;
2217          base[4]= V163;          base[4]= V168;
2218          base[5]= VV[123];          base[5]= VV[126];
2219          base[7]= V162;          base[7]= V167;
2220          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2221          (void) (*Lnk294)(Lclptr294);          (void) (*Lnk301)(Lclptr301);
2222          vs_top=sup;          vs_top=sup;
2223          base[6]= vs_base[0];          base[6]= vs_base[0];
2224          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 2152  T529:; Line 2226  T529:;
2226          return;          return;
2227          }          }
2228  }  }
2229  /*      local entry for function progn 'compile4496     */  /*      local entry for function progn 'compile4590     */
2230    
2231  static object LI94()  static object LI99()
2232    
2233  {        VMB94 VMS94 VMV94  {        VMB99 VMS99 VMV99
2234          goto TTL;          goto TTL;
2235  TTL:;  TTL:;
2236          base[0]= VV[48];          base[0]= VV[48];
2237          base[1]= VV[32];          base[1]= VV[32];
2238          base[2]= Cnil;          base[2]= Cnil;
2239          base[3]= VV[124];          base[3]= VV[127];
2240          base[4]= VV[125];          base[4]= VV[128];
2241          V178= (VV[295]->s.s_gfdef);          V183= (VV[302]->s.s_gfdef);
2242          base[5]= listA(3,VV[51],V178,VV[126]);          base[5]= listA(3,VV[51],V183,VV[129]);
2243          base[6]= Cnil;          base[6]= Cnil;
2244          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2245          (void) (*Lnk275)();          (void) (*Lnk281)();
2246          vs_top=sup;          vs_top=sup;
2247          {object V179 = Cnil;          {object V184 = Cnil;
2248          VMR94(V179)}          VMR99(V184)}
2249          base[0]=base[0];          base[0]=base[0];
2250          return Cnil;          return Cnil;
2251  }  }
2252  /*      local entry for function progn 'compile4504     */  /*      local entry for function progn 'compile4598     */
2253    
2254  static object LI95()  static object LI100()
2255    
2256  {        VMB95 VMS95 VMV95  {        VMB100 VMS100 VMV100
2257          goto TTL;          goto TTL;
2258  TTL:;  TTL:;
2259          {object V180 = Cnil;          {object V185 = Cnil;
2260          VMR95(V180)}          VMR100(V185)}
2261          return Cnil;          return Cnil;
2262  }  }
2263  /*      function definition for Defclass FILE-ERROR4524 */  /*      function definition for Defclass FILE-ERROR4618 */
2264    
2265  static void L96()  static void L101()
2266  {register object *base=vs_base;  {register object *base=vs_base;
2267          register object *sup=base+VM96; VC96          register object *sup=base+VM101; VC101
2268          vs_check;          vs_check;
2269          vs_top=sup;          vs_top=sup;
2270          goto TTL;          goto TTL;
2271  TTL:;  TTL:;
2272          base[0]= VV[127];          base[0]= VV[130];
2273          base[1]= VV[5];          base[1]= VV[5];
2274          base[2]= VV[128];          base[2]= VV[131];
2275          V181= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil);          V186= listA(9,VV[18],VV[132],VV[20],VV[133],VV[22],Cnil,VV[23],VV[134],Cnil);
2276          base[3]= make_cons(/* INLINE-ARGS */V181,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V186,Cnil);
2277          base[4]= Cnil;          base[4]= Cnil;
2278          base[5]= Cnil;          base[5]= Cnil;
2279          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
2280          return;          return;
2281  }  }
2282  /*      local entry for function progn 'compile4541     */  /*      local entry for function progn 'compile4635     */
2283    
2284  static object LI97()  static object LI102()
2285    
2286  {        VMB97 VMS97 VMV97  {        VMB102 VMS102 VMV102
2287          goto TTL;          goto TTL;
2288  TTL:;  TTL:;
2289          vs_base=vs_top;          vs_base=vs_top;
2290          (void) (*Lnk296)();          (void) (*Lnk303)();
2291          vs_top=sup;          vs_top=sup;
2292          {object V182 = Cnil;          {object V187 = Cnil;
2293          VMR97(V182)}          VMR102(V187)}
2294          base[0]=base[0];          base[0]=base[0];
2295          return Cnil;          return Cnil;
2296  }  }
2297  /*      local entry for function progn 'compile4558     */  /*      local entry for function progn 'compile4652     */
2298    
2299  static object LI98()  static object LI103()
2300    
2301  {        VMB98 VMS98 VMV98  {        VMB103 VMS103 VMV103
2302          goto TTL;          goto TTL;
2303  TTL:;  TTL:;
2304          base[0]= VV[132];          base[0]= VV[135];
2305          base[1]= (VV[8]->s.s_dbind);          base[1]= (VV[8]->s.s_dbind);
2306          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2307          Ladjoin();          Ladjoin();
2308          vs_top=sup;          vs_top=sup;
2309          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
2310          {object V184 = Cnil;          {object V189 = Cnil;
2311          VMR98(V184)}          VMR103(V189)}
2312          base[0]=base[0];          base[0]=base[0];
2313          return Cnil;          return Cnil;
2314  }  }
2315  /*      local entry for function progn 'compile4582     */  /*      local entry for function progn 'compile4676     */
2316    
2317  static object LI99()  static object LI104()
2318    
2319  {        VMB99 VMS99 VMV99  {        VMB104 VMS104 VMV104
2320          goto TTL;          goto TTL;
2321  TTL:;  TTL:;
2322          (void)(sputprop(VV[127],VV[9],Cnil));          (void)(sputprop(VV[130],VV[9],Cnil));
2323          {object V185 = Cnil;          {object V190 = Cnil;
2324          VMR99(V185)}          VMR104(V190)}
2325          return Cnil;          return Cnil;
2326  }  }
2327  /*      local entry for function progn 'compile4594     */  /*      local entry for function progn 'compile4688     */
2328    
2329  static object LI100()  static object LI105()
2330    
2331  {        VMB100 VMS100 VMV100  {        VMB105 VMS105 VMV105
2332          goto TTL;          goto TTL;
2333  TTL:;  TTL:;
2334          {object V186 = Cnil;          {object V191 = Cnil;
2335          VMR100(V186)}          VMR105(V191)}
2336          return Cnil;          return Cnil;
2337  }  }
2338  /*      function definition for Defclass PACKAGE-ERROR4614      */  /*      function definition for Defclass PACKAGE-ERROR4708      */
2339    
2340  static void L101()  static void L106()
2341  {register object *base=vs_base;  {register object *base=vs_base;
2342          register object *sup=base+VM101; VC101          register object *sup=base+VM106; VC106
2343          vs_check;          vs_check;
2344          vs_top=sup;          vs_top=sup;
2345          goto TTL;          goto TTL;
2346  TTL:;  TTL:;
2347          base[0]= VV[133];          base[0]= VV[136];
2348          base[1]= VV[5];          base[1]= VV[5];
2349          base[2]= VV[134];          base[2]= VV[137];
2350          V187= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil);          V192= listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil);
2351          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));          base[3]= list(2,/* INLINE-ARGS */V192,listA(9,VV[18],VV[141],VV[20],VV[142],VV[22],Cnil,VV[23],VV[143],Cnil));
2352          base[4]= Cnil;          base[4]= Cnil;
2353          base[5]= Cnil;          base[5]= Cnil;
2354          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
2355          return;          return;
2356  }  }
2357  /*      local entry for function progn 'compile4632     */  /*      local entry for function progn 'compile4726     */
2358    
2359  static object LI102()  static object LI107()
2360    
2361  {        VMB102 VMS102 VMV102  {        VMB107 VMS107 VMV107
2362          goto TTL;          goto TTL;
2363  TTL:;  TTL:;
2364          vs_base=vs_top;          vs_base=vs_top;
2365          (void) (*Lnk297)();          (void) (*Lnk304)();
2366          vs_top=sup;          vs_top=sup;
2367          {object V188 = Cnil;          {object V193 = Cnil;
2368          VMR102(V188)}          VMR107(V193)}
2369          base[0]=base[0];          base[0]=base[0];
2370          return Cnil;          return Cnil;
2371  }  }
2372  /*      local entry for function progn 'compile4649     */  /*      local entry for function progn 'compile4743     */
2373    
2374  static object LI103()  static object LI108()
2375    
2376  {        VMB103 VMS103 VMV103  {        VMB108 VMS108 VMV108
2377          goto TTL;          goto TTL;
2378  TTL:;  TTL:;
2379          base[0]= VV[141];          base[0]= VV[144];
2380          base[1]= (VV[8]->s.s_dbind);          base[1]= (VV[8]->s.s_dbind);
2381          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2382          Ladjoin();          Ladjoin();
2383          vs_top=sup;          vs_top=sup;
2384          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
2385          {object V190 = Cnil;          {object V195 = Cnil;
2386          VMR103(V190)}          VMR108(V195)}
2387          base[0]=base[0];          base[0]=base[0];
2388          return Cnil;          return Cnil;
2389  }  }
2390  /*      local entry for function progn 'compile4673     */  /*      local entry for function progn 'compile4767     */
2391    
2392  static object LI104()  static object LI109()
2393    
2394  {        VMB104 VMS104 VMV104  {        VMB109 VMS109 VMV109
2395          goto TTL;          goto TTL;
2396  TTL:;  TTL:;
2397          (void)(sputprop(VV[133],VV[9],Cnil));          (void)(sputprop(VV[136],VV[9],Cnil));
2398          {object V191 = Cnil;          {object V196 = Cnil;
2399          VMR104(V191)}          VMR109(V196)}
2400          return Cnil;          return Cnil;
2401  }  }
2402  /*      local entry for function progn 'compile4689     */  /*      local entry for function progn 'compile4783     */
2403    
2404  static object LI105()  static object LI110()
2405    
2406  {        VMB105 VMS105 VMV105  {        VMB110 VMS110 VMV110
2407          goto TTL;          goto TTL;
2408  TTL:;  TTL:;
2409          base[0]= VV[32];          base[0]= VV[32];
2410          base[1]= VV[142];          base[1]= VV[145];
2411          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2412          (void) (*Lnk269)();          (void) (*Lnk275)();
2413          vs_top=sup;          vs_top=sup;
2414          {object V192 = Cnil;          {object V197 = Cnil;
2415          VMR105(V192)}          VMR110(V197)}
2416          base[0]=base[0];          base[0]=base[0];
2417          return Cnil;          return Cnil;
2418  }  }
2419  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))       */  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (PACKAGE-ERROR T))       */
2420    
2421  static void L106()  static void L111()
2422  {register object *base=vs_base;  {register object *base=vs_base;
2423          register object *sup=base+VM106; VC106          register object *sup=base+VM111; VC111
2424          vs_check;          vs_check;
2425          {object V193;          {object V198;
2426          register object V194;          register object V199;
2427          register object V195;          register object V200;
2428          register object V196;          register object V201;
2429          V193=(base[0]);          V198=(base[0]);
2430          V194=(base[1]);          V199=(base[1]);
2431          V195=(base[2]);          V200=(base[2]);
2432          V196=(base[3]);          V201=(base[3]);
2433          vs_top=sup;          vs_top=sup;
2434          goto TTL;          goto TTL;
2435  TTL:;  TTL:;
2436          if(((VV[34]->s.s_dbind))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
2437          goto T643;}          goto T656;}
2438          if(((V194))==Cnil){          if(((V199))==Cnil){
2439          goto T646;}          goto T659;}
2440          base[4]= (V194);          base[4]= (V199);
2441          base[5]= VV[35];          base[5]= VV[35];
2442          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2443          (void) (*Lnk270)();          (void) (*Lnk276)();
2444          vs_top=sup;          vs_top=sup;
2445          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2446          goto T650;}          goto T663;}
2447          base[4]= STREF(object,(V194),0);          base[4]= STREF(object,(V199),0);
2448          base[5]= STREF(object,(V194),4);          base[5]= STREF(object,(V199),4);
2449          base[6]= STREF(object,(V194),8);          base[6]= STREF(object,(V199),8);
2450          base[7]= (V195);          base[7]= (V200);
2451          base[8]= (V196);          base[8]= (V201);
2452          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2453          {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))
2454                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2455                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2456                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2457          return;          return;
2458          goto T650;          goto T663;
2459  T650:;  T663:;
2460          if(!(type_of((V194))==t_fixnum)){          if(!(type_of((V199))==t_fixnum)){
2461          goto T660;}          goto T673;}
2462          {object V199;          {object V204;
2463          if(type_of(V195)==t_structure){          if(type_of(V200)==t_structure){
2464          goto T666;}          goto T679;}
2465          goto T664;          goto T677;
2466          goto T666;          goto T679;
2467  T666:;  T679:;
2468          if(!(((V195)->str.str_def)==(VV[143]))){          if(!(((V200)->str.str_def)==(VV[146]))){
2469          goto T664;}          goto T677;}
2470          V199= STREF(object,(V195),4);          V204= STREF(object,(V200),4);
2471          goto T662;          goto T675;
2472          goto T664;          goto T677;
2473  T664:;{object V201;  T677:;{object V206;
2474          V201= (VV[38]->s.s_dbind);          V206= (VV[38]->s.s_dbind);
2475          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2476          base[5]= (V195);          base[5]= (V200);
2477          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2478          (void) (*Lnk271)();          (void) (*Lnk277)();
2479          vs_top=sup;          vs_top=sup;
2480          V202= vs_base[0];          V207= vs_base[0];
2481          if(!((V201)==(CMPcar(V202)))){          if(!((V206)==(CMPcar(V207)))){
2482          goto T669;}}          goto T682;}}
2483          V199= CMPcar(((V195))->cc.cc_turbo[12]);          V204= CMPcar(((V200))->cc.cc_turbo[12]);
2484          goto T662;          goto T675;
2485          goto T669;          goto T682;
2486  T669:;  T682:;
2487          V199= Cnil;          V204= Cnil;
         goto T662;  
 T662:;  
         if(((V199))==Cnil){  
         goto T675;}  
         base[4]= ((V199))->v.v_self[fix((V194))]= (V195);  
         vs_top=(vs_base=base+4)+1;  
         return;  
2488          goto T675;          goto T675;
2489  T675:;  T675:;
2490            if(((V204))==Cnil){
2491            goto T688;}
2492            base[4]= ((V204))->v.v_self[fix((V199))]= (V200);
2493            vs_top=(vs_base=base+4)+1;
2494            return;
2495            goto T688;
2496    T688:;
2497          base[4]= Cnil;          base[4]= Cnil;
2498          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2499          return;}          return;}
2500          goto T660;          goto T673;
2501  T660:;  T673:;
2502          {register object V204;          {register object V209;
2503          V204= V194;          V209= V199;
2504          base[4]= (V204);          base[4]= (V209);
2505          base[5]= VV[39];          base[5]= VV[39];
2506          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2507          (void) (*Lnk270)();          (void) (*Lnk276)();
2508          vs_top=sup;          vs_top=sup;
2509          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2510          goto T678;}          goto T691;}
2511          {object V205;          {object V210;
2512          object V206;          object V211;
2513          register object V207;          register object V212;
2514          V205= STREF(object,(V194),0);          V210= STREF(object,(V199),0);
2515          V206= list(2,(V195),(V196));          V211= list(2,(V200),(V201));
2516          V207= STREF(object,(V194),4);          V212= STREF(object,(V199),4);
2517          if(((V207))==Cnil){          if(((V212))==Cnil){
2518          goto T686;}          goto T699;}
2519          if((CMPcdr((V207)))!=Cnil){          if((CMPcdr((V212)))!=Cnil){
2520          goto T686;}          goto T699;}
2521          base[4]= (V206);          base[4]= (V211);
2522          base[5]= CMPcar((V207));          base[5]= CMPcar((V212));
2523          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2524          {object _funobj = (V205);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V210);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2525                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2526                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2527                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2528          return;          return;
2529          goto T686;          goto T699;
2530  T686:;  T699:;
2531          base[4]= (V205);          base[4]= (V210);
2532          base[5]= (V206);          base[5]= (V211);
2533          {object V208;          {object V213;
2534          V208= (V207);          V213= (V212);
2535           vs_top=base+6;           vs_top=base+6;
2536           while(V208!=Cnil)           while(V213!=Cnil)
2537           {vs_push((V208)->c.c_car);V208=(V208)->c.c_cdr;}           {vs_push((V213)->c.c_car);V213=(V213)->c.c_cdr;}
2538          vs_base=base+5;}          vs_base=base+5;}
2539          {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))
2540                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2541                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2542                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2543          return;}          return;}
2544          goto T678;          goto T691;
2545  T678:;  T691:;
2546          base[4]= (V204);          base[4]= (V209);
2547          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2548          Lfunctionp();          Lfunctionp();
2549          vs_top=sup;          vs_top=sup;
2550          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2551          goto T696;}          goto T709;}
2552          base[4]= (V195);          base[4]= (V200);
2553          base[5]= (V196);          base[5]= (V201);
2554          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2555          {object _funobj = (V194);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V199);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2556                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2557                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2558                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2559          return;          return;
2560          goto T696;          goto T709;
2561  T696:;  T709:;
2562          base[4]= VV[40];          base[4]= VV[40];
2563          base[5]= VV[18];          base[5]= VV[18];
2564          base[6]= VV[41];          base[6]= VV[41];
2565          base[7]= VV[42];          base[7]= VV[42];
2566          base[8]= V194;          base[8]= V199;
2567          base[9]= VV[43];          base[9]= VV[43];
2568          base[10]= VV[144];          base[10]= VV[147];
2569          base[11]= VV[45];          base[11]= VV[45];
2570          base[12]= VV[145];          base[12]= VV[148];
2571          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2572          (void) (*Lnk13)();          (void) (*Lnk13)();
2573          return;}          return;}
2574          goto T646;          goto T659;
2575  T646:;  T659:;
2576          base[4]= VV[47];          base[4]= VV[47];
2577          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2578          (void) (*Lnk272)();          (void) (*Lnk278)();
2579          return;          return;
2580          goto T643;          goto T656;
2581  T643:;  T656:;
2582          base[4]= V196;          base[4]= V201;
2583          base[5]= VV[146];          base[5]= VV[149];
2584          base[7]= V195;          base[7]= V200;
2585          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2586          (void) (*Lnk298)(Lclptr298);          (void) (*Lnk305)(Lclptr305);
2587          vs_top=sup;          vs_top=sup;
2588          base[6]= vs_base[0];          base[6]= vs_base[0];
2589          base[8]= V195;          base[8]= V200;
2590          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2591          (void) (*Lnk299)(Lclptr299);          (void) (*Lnk306)(Lclptr306);
2592          vs_top=sup;          vs_top=sup;
2593          base[7]= vs_base[0];          base[7]= vs_base[0];
2594          vs_top=(vs_base=base+4)+4;          vs_top=(vs_base=base+4)+4;
# Line 2522  T643:; Line 2596  T643:;
2596          return;          return;
2597          }          }
2598  }  }
2599  /*      local entry for function progn 'compile4886     */  /*      local entry for function progn 'compile4980     */
2600    
2601  static object LI107()  static object LI112()
2602    
2603  {        VMB107 VMS107 VMV107  {        VMB112 VMS112 VMV112
2604          goto TTL;          goto TTL;
2605  TTL:;  TTL:;
2606          base[0]= VV[48];          base[0]= VV[48];
2607          base[1]= VV[32];          base[1]= VV[32];
2608          base[2]= Cnil;          base[2]= Cnil;
2609          base[3]= VV[147];          base[3]= VV[150];
2610          base[4]= VV[148];          base[4]= VV[151];
2611          V211= (VV[300]->s.s_gfdef);          V216= (VV[307]->s.s_gfdef);
2612          base[5]= listA(3,VV[51],V211,VV[149]);          base[5]= listA(3,VV[51],V216,VV[152]);
2613          base[6]= Cnil;          base[6]= Cnil;
2614          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2615          (void) (*Lnk275)();          (void) (*Lnk281)();
2616          vs_top=sup;          vs_top=sup;
2617          {object V212 = Cnil;          {object V217 = Cnil;
2618          VMR107(V212)}          VMR112(V217)}
2619          base[0]=base[0];          base[0]=base[0];
2620          return Cnil;          return Cnil;
2621  }  }
2622  /*      local entry for function progn 'compile4894     */  /*      local entry for function progn 'compile4988     */
2623    
2624  static object LI108()  static object LI113()
2625    
2626  {        VMB108 VMS108 VMV108  {        VMB113 VMS113 VMV113
2627          goto TTL;          goto TTL;
2628  TTL:;  TTL:;
2629          {object V213 = Cnil;          {object V218 = Cnil;
2630          VMR108(V213)}          VMR113(V218)}
2631          return Cnil;          return Cnil;
2632  }  }
2633  /*      function definition for Defclass CELL-ERROR4914 */  /*      function definition for Defclass CELL-ERROR5008 */
2634    
2635  static void L109()  static void L114()
2636  {register object *base=vs_base;  {register object *base=vs_base;
2637          register object *sup=base+VM109; VC109          register object *sup=base+VM114; VC114
2638          vs_check;          vs_check;
2639          vs_top=sup;          vs_top=sup;
2640          goto TTL;          goto TTL;
2641  TTL:;  TTL:;
2642          base[0]= VV[150];          base[0]= VV[153];
2643          base[1]= VV[5];          base[1]= VV[5];
2644          base[2]= VV[151];          base[2]= VV[154];
2645          V214= listA(9,VV[18],VV[89],VV[20],VV[152],VV[22],Cnil,VV[23],VV[153],Cnil);          V219= listA(9,VV[18],VV[89],VV[20],VV[155],VV[22],Cnil,VV[23],VV[156],Cnil);
2646          base[3]= make_cons(/* INLINE-ARGS */V214,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V219,Cnil);
2647          base[4]= Cnil;          base[4]= Cnil;
2648          base[5]= Cnil;          base[5]= Cnil;
2649          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
2650          return;          return;
2651  }  }
2652  /*      local entry for function progn 'compile4931     */  /*      local entry for function progn 'compile5025     */
2653    
2654  static object LI110()  static object LI115()
2655    
2656  {        VMB110 VMS110 VMV110  {        VMB115 VMS115 VMV115
2657          goto TTL;          goto TTL;
2658  TTL:;  TTL:;
2659          vs_base=vs_top;          vs_base=vs_top;
2660          (void) (*Lnk301)();          (void) (*Lnk308)();
2661          vs_top=sup;          vs_top=sup;
2662          {object V215 = Cnil;          {object V220 = Cnil;
2663          VMR110(V215)}          VMR115(V220)}
2664          base[0]=base[0];          base[0]=base[0];
2665          return Cnil;          return Cnil;
2666  }  }
2667  /*      local entry for function progn 'compile4948     */  /*      local entry for function progn 'compile5042     */
2668    
2669  static object LI111()  static object LI116()
2670    
2671  {        VMB111 VMS111 VMV111  {        VMB116 VMS116 VMV116
2672          goto TTL;          goto TTL;
2673  TTL:;  TTL:;
2674          base[0]= VV[154];          base[0]= VV[157];
2675          base[1]= (VV[8]->s.s_dbind);          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          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
2680          {object V217 = Cnil;          {object V222 = Cnil;
2681          VMR111(V217)}          VMR116(V222)}
2682          base[0]=base[0];          base[0]=base[0];
2683          return Cnil;          return Cnil;
2684  }  }
2685  /*      local entry for function progn 'compile4972     */  /*      local entry for function progn 'compile5066     */
2686    
2687  static object LI112()  static object LI117()
2688    
2689  {        VMB112 VMS112 VMV112  {        VMB117 VMS117 VMV117
2690          goto TTL;          goto TTL;
2691  TTL:;  TTL:;
2692          (void)(sputprop(VV[150],VV[9],Cnil));          (void)(sputprop(VV[153],VV[9],Cnil));
2693          {object V218 = Cnil;          {object V223 = Cnil;
2694          VMR112(V218)}          VMR117(V223)}
2695          return Cnil;          return Cnil;
2696  }  }
2697  /*      local entry for function progn 'compile4984     */  /*      local entry for function progn 'compile5078     */
2698    
2699  static object LI113()  static object LI118()
2700    
2701  {        VMB113 VMS113 VMV113  {        VMB118 VMS118 VMV118
2702          goto TTL;          goto TTL;
2703  TTL:;  TTL:;
2704          {object V219 = Cnil;          {object V224 = Cnil;
2705          VMR113(V219)}          VMR118(V224)}
2706          return Cnil;          return Cnil;
2707  }  }
2708  /*      function definition for Defclass UNBOUND-VARIABLE5004   */  /*      function definition for Defclass UNBOUND-VARIABLE5098   */
2709    
2710  static void L114()  static void L119()
2711  {register object *base=vs_base;  {register object *base=vs_base;
2712          register object *sup=base+VM114; VC114          register object *sup=base+VM119; VC119
2713          vs_check;          vs_check;
2714          vs_top=sup;          vs_top=sup;
2715          goto TTL;          goto TTL;
2716  TTL:;  TTL:;
2717          base[0]= VV[155];          base[0]= VV[158];
2718          base[1]= VV[5];          base[1]= VV[5];
2719          base[2]= VV[156];          base[2]= VV[159];
2720          base[3]= Cnil;          base[3]= Cnil;
2721          base[4]= Cnil;          base[4]= Cnil;
2722          base[5]= Cnil;          base[5]= Cnil;
2723          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
2724          return;          return;
2725  }  }
2726  /*      local entry for function progn 'compile5020     */  /*      local entry for function progn 'compile5114     */
2727    
2728  static object LI115()  static object LI120()
2729    
2730  {        VMB115 VMS115 VMV115  {        VMB120 VMS120 VMV120
2731          goto TTL;          goto TTL;
2732  TTL:;  TTL:;
2733          vs_base=vs_top;          vs_base=vs_top;
2734          (void) (*Lnk302)();          (void) (*Lnk309)();
2735          vs_top=sup;          vs_top=sup;
2736          {object V220 = Cnil;          {object V225 = Cnil;
2737          VMR115(V220)}          VMR120(V225)}
2738          base[0]=base[0];          base[0]=base[0];
2739          return Cnil;          return Cnil;
2740  }  }
2741  /*      local entry for function progn 'compile5037     */  /*      local entry for function progn 'compile5131     */
2742    
2743  static object LI116()  static object LI121()
2744    
2745  {        VMB116 VMS116 VMV116  {        VMB121 VMS121 VMV121
2746          goto TTL;          goto TTL;
2747  TTL:;  TTL:;
2748          base[0]= VV[157];          base[0]= VV[160];
2749          base[1]= (VV[8]->s.s_dbind);          base[1]= (VV[8]->s.s_dbind);
2750          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2751          Ladjoin();          Ladjoin();
2752          vs_top=sup;          vs_top=sup;
2753          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
2754          {object V222 = Cnil;          {object V227 = Cnil;
2755          VMR116(V222)}          VMR121(V227)}
2756          base[0]=base[0];          base[0]=base[0];
2757          return Cnil;          return Cnil;
2758  }  }
2759  /*      local entry for function progn 'compile5061     */  /*      local entry for function progn 'compile5155     */
2760    
2761  static object LI117()  static object LI122()
2762    
2763  {        VMB117 VMS117 VMV117  {        VMB122 VMS122 VMV122
2764          goto TTL;          goto TTL;
2765  TTL:;  TTL:;
2766          (void)(sputprop(VV[155],VV[9],Cnil));          (void)(sputprop(VV[158],VV[9],Cnil));
2767          {object V223 = Cnil;          {object V228 = Cnil;
2768          VMR117(V223)}          VMR122(V228)}
2769          return Cnil;          return Cnil;
2770  }  }
2771  /*      local entry for function progn 'compile5077     */  /*      local entry for function progn 'compile5171     */
2772    
2773  static object LI118()  static object LI123()
2774    
2775  {        VMB118 VMS118 VMV118  {        VMB123 VMS123 VMV123
2776          goto TTL;          goto TTL;
2777  TTL:;  TTL:;
2778          base[0]= VV[32];          base[0]= VV[32];
2779          base[1]= VV[158];          base[1]= VV[161];
2780          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2781          (void) (*Lnk269)();          (void) (*Lnk275)();
2782          vs_top=sup;          vs_top=sup;
2783          {object V224 = Cnil;          {object V229 = Cnil;
2784          VMR118(V224)}          VMR123(V229)}
2785          base[0]=base[0];          base[0]=base[0];
2786          return Cnil;          return Cnil;
2787  }  }
2788  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))    */  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNBOUND-VARIABLE T))    */
2789    
2790  static void L119()  static void L124()
2791  {register object *base=vs_base;  {register object *base=vs_base;
2792          register object *sup=base+VM119; VC119          register object *sup=base+VM124; VC124
2793          vs_check;          vs_check;
2794          {object V225;          {object V230;
2795          register object V226;          register object V231;
2796          register object V227;          register object V232;
2797          register object V228;          register object V233;
2798          V225=(base[0]);          V230=(base[0]);
2799          V226=(base[1]);          V231=(base[1]);
2800          V227=(base[2]);          V232=(base[2]);
2801          V228=(base[3]);          V233=(base[3]);
2802          vs_top=sup;          vs_top=sup;
2803          goto TTL;          goto TTL;
2804  TTL:;  TTL:;
2805          if(((VV[34]->s.s_dbind))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
2806          goto T759;}          goto T772;}
2807          if(((V226))==Cnil){          if(((V231))==Cnil){
2808          goto T762;}          goto T775;}
2809          base[4]= (V226);          base[4]= (V231);
2810          base[5]= VV[35];          base[5]= VV[35];
2811          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2812          (void) (*Lnk270)();          (void) (*Lnk276)();
2813          vs_top=sup;          vs_top=sup;
2814          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2815          goto T766;}          goto T779;}
2816          base[4]= STREF(object,(V226),0);          base[4]= STREF(object,(V231),0);
2817          base[5]= STREF(object,(V226),4);          base[5]= STREF(object,(V231),4);
2818          base[6]= STREF(object,(V226),8);          base[6]= STREF(object,(V231),8);
2819          base[7]= (V227);          base[7]= (V232);
2820          base[8]= (V228);          base[8]= (V233);
2821          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2822          {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))
2823                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2824                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2825                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2826          return;          return;
2827          goto T766;          goto T779;
2828  T766:;  T779:;
2829          if(!(type_of((V226))==t_fixnum)){          if(!(type_of((V231))==t_fixnum)){
2830          goto T776;}          goto T789;}
2831          {object V231;          {object V236;
2832          if(type_of(V227)==t_structure){          if(type_of(V232)==t_structure){
2833          goto T782;}          goto T795;}
2834          goto T780;          goto T793;
2835          goto T782;          goto T795;
2836  T782:;  T795:;
2837          if(!(((V227)->str.str_def)==(VV[159]))){          if(!(((V232)->str.str_def)==(VV[162]))){
2838          goto T780;}          goto T793;}
2839          V231= STREF(object,(V227),4);          V236= STREF(object,(V232),4);
2840          goto T778;          goto T791;
2841          goto T780;          goto T793;
2842  T780:;{object V233;  T793:;{object V238;
2843          V233= (VV[38]->s.s_dbind);          V238= (VV[38]->s.s_dbind);
2844          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2845          base[5]= (V227);          base[5]= (V232);
2846          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2847          (void) (*Lnk271)();          (void) (*Lnk277)();
2848          vs_top=sup;          vs_top=sup;
2849          V234= vs_base[0];          V239= vs_base[0];
2850          if(!((V233)==(CMPcar(V234)))){          if(!((V238)==(CMPcar(V239)))){
2851          goto T785;}}          goto T798;}}
2852          V231= CMPcar(((V227))->cc.cc_turbo[12]);          V236= CMPcar(((V232))->cc.cc_turbo[12]);
2853          goto T778;          goto T791;
2854          goto T785;          goto T798;
2855  T785:;  T798:;
2856          V231= Cnil;          V236= Cnil;
         goto T778;  
 T778:;  
         if(((V231))==Cnil){  
         goto T791;}  
         base[4]= ((V231))->v.v_self[fix((V226))]= (V227);  
         vs_top=(vs_base=base+4)+1;  
         return;  
2857          goto T791;          goto T791;
2858  T791:;  T791:;
2859            if(((V236))==Cnil){
2860            goto T804;}
2861            base[4]= ((V236))->v.v_self[fix((V231))]= (V232);
2862            vs_top=(vs_base=base+4)+1;
2863            return;
2864            goto T804;
2865    T804:;
2866          base[4]= Cnil;          base[4]= Cnil;
2867          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2868          return;}          return;}
2869          goto T776;          goto T789;
2870  T776:;  T789:;
2871          {register object V236;          {register object V241;
2872          V236= V226;          V241= V231;
2873          base[4]= (V236);          base[4]= (V241);
2874          base[5]= VV[39];          base[5]= VV[39];
2875          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2876          (void) (*Lnk270)();          (void) (*Lnk276)();
2877          vs_top=sup;          vs_top=sup;
2878          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2879          goto T794;}          goto T807;}
2880          {object V237;          {object V242;
2881          object V238;          object V243;
2882          register object V239;          register object V244;
2883          V237= STREF(object,(V226),0);          V242= STREF(object,(V231),0);
2884          V238= list(2,(V227),(V228));          V243= list(2,(V232),(V233));
2885          V239= STREF(object,(V226),4);          V244= STREF(object,(V231),4);
2886          if(((V239))==Cnil){          if(((V244))==Cnil){
2887          goto T802;}          goto T815;}
2888          if((CMPcdr((V239)))!=Cnil){          if((CMPcdr((V244)))!=Cnil){
2889          goto T802;}          goto T815;}
2890          base[4]= (V238);          base[4]= (V243);
2891          base[5]= CMPcar((V239));          base[5]= CMPcar((V244));
2892          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2893          {object _funobj = (V237);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V242);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2894                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2895                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2896                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2897          return;          return;
2898          goto T802;          goto T815;
2899  T802:;  T815:;
2900          base[4]= (V237);          base[4]= (V242);
2901          base[5]= (V238);          base[5]= (V243);
2902          {object V240;          {object V245;
2903          V240= (V239);          V245= (V244);
2904           vs_top=base+6;           vs_top=base+6;
2905           while(V240!=Cnil)           while(V245!=Cnil)
2906           {vs_push((V240)->c.c_car);V240=(V240)->c.c_cdr;}           {vs_push((V245)->c.c_car);V245=(V245)->c.c_cdr;}
2907          vs_base=base+5;}          vs_base=base+5;}
2908          {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))
2909                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2910                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2911                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2912          return;}          return;}
2913          goto T794;          goto T807;
2914  T794:;  T807:;
2915          base[4]= (V236);          base[4]= (V241);
2916          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2917          Lfunctionp();          Lfunctionp();
2918          vs_top=sup;          vs_top=sup;
2919          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2920          goto T812;}          goto T825;}
2921          base[4]= (V227);          base[4]= (V232);
2922          base[5]= (V228);          base[5]= (V233);
2923          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2924          {object _funobj = (V226);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V231);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2925                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2926                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2927                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2928          return;          return;
2929          goto T812;          goto T825;
2930  T812:;  T825:;
2931          base[4]= VV[40];          base[4]= VV[40];
2932          base[5]= VV[18];          base[5]= VV[18];
2933          base[6]= VV[41];          base[6]= VV[41];
2934          base[7]= VV[42];          base[7]= VV[42];
2935          base[8]= V226;          base[8]= V231;
2936          base[9]= VV[43];          base[9]= VV[43];
2937          base[10]= VV[160];          base[10]= VV[163];
2938          base[11]= VV[45];          base[11]= VV[45];
2939          base[12]= VV[161];          base[12]= VV[164];
2940          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2941          (void) (*Lnk13)();          (void) (*Lnk13)();
2942          return;}          return;}
2943          goto T762;          goto T775;
2944  T762:;  T775:;
2945          base[4]= VV[47];          base[4]= VV[47];
2946          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2947          (void) (*Lnk272)();          (void) (*Lnk278)();
2948          return;          return;
2949          goto T759;          goto T772;
2950  T759:;  T772:;
2951          base[4]= V228;          base[4]= V233;
2952          base[5]= VV[162];          base[5]= VV[165];
2953          base[7]= V227;          base[7]= V232;
2954          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2955          (void) (*Lnk303)(Lclptr303);          (void) (*Lnk310)(Lclptr310);
2956          vs_top=sup;          vs_top=sup;
2957          base[6]= vs_base[0];          base[6]= vs_base[0];
2958          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 2886  T759:; Line 2960  T759:;
2960          return;          return;
2961          }          }
2962  }  }
2963  /*      local entry for function progn 'compile5274     */  /*      local entry for function progn 'compile5368     */
2964    
2965  static object LI120()  static object LI125()
2966    
2967  {        VMB120 VMS120 VMV120  {        VMB125 VMS125 VMV125
2968          goto TTL;          goto TTL;
2969  TTL:;  TTL:;
2970          base[0]= VV[48];          base[0]= VV[48];
2971          base[1]= VV[32];          base[1]= VV[32];
2972          base[2]= Cnil;          base[2]= Cnil;
2973          base[3]= VV[163];          base[3]= VV[166];
2974          base[4]= VV[164];          base[4]= VV[167];
2975          V243= (VV[304]->s.s_gfdef);          V248= (VV[311]->s.s_gfdef);
2976          base[5]= listA(3,VV[51],V243,VV[165]);          base[5]= listA(3,VV[51],V248,VV[168]);
2977          base[6]= Cnil;          base[6]= Cnil;
2978          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2979          (void) (*Lnk275)();          (void) (*Lnk281)();
2980          vs_top=sup;          vs_top=sup;
2981          {object V244 = Cnil;          {object V249 = Cnil;
2982          VMR120(V244)}          VMR125(V249)}
2983          base[0]=base[0];          base[0]=base[0];
2984          return Cnil;          return Cnil;
2985  }  }
2986  /*      local entry for function progn 'compile5282     */  /*      local entry for function progn 'compile5376     */
2987    
2988  static object LI121()  static object LI126()
2989    
2990  {        VMB121 VMS121 VMV121  {        VMB126 VMS126 VMV126
2991          goto TTL;          goto TTL;
2992  TTL:;  TTL:;
2993          {object V245 = Cnil;          {object V250 = Cnil;
2994          VMR121(V245)}          VMR126(V250)}
2995          return Cnil;          return Cnil;
2996  }  }
2997  /*      function definition for Defclass UNDEFINED-FUNCTION5302 */  /*      function definition for Defclass UNDEFINED-FUNCTION5396 */
2998    
2999  static void L122()  static void L127()
3000  {register object *base=vs_base;  {register object *base=vs_base;
3001          register object *sup=base+VM122; VC122          register object *sup=base+VM127; VC127
3002          vs_check;          vs_check;
3003          vs_top=sup;          vs_top=sup;
3004          goto TTL;          goto TTL;
3005  TTL:;  TTL:;
3006          base[0]= VV[166];          base[0]= VV[169];
3007          base[1]= VV[5];          base[1]= VV[5];
3008          base[2]= VV[167];          base[2]= VV[170];
3009          base[3]= Cnil;          base[3]= Cnil;
3010          base[4]= Cnil;          base[4]= Cnil;
3011          base[5]= Cnil;          base[5]= Cnil;
3012          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
3013          return;          return;
3014  }  }
3015  /*      local entry for function progn 'compile5318     */  /*      local entry for function progn 'compile5412     */
3016    
3017  static object LI123()  static object LI128()
3018    
3019  {        VMB123 VMS123 VMV123  {        VMB128 VMS128 VMV128
3020          goto TTL;          goto TTL;
3021  TTL:;  TTL:;
3022          vs_base=vs_top;          vs_base=vs_top;
3023          (void) (*Lnk305)();          (void) (*Lnk312)();
3024          vs_top=sup;          vs_top=sup;
3025          {object V246 = Cnil;          {object V251 = Cnil;
3026          VMR123(V246)}          VMR128(V251)}
3027          base[0]=base[0];          base[0]=base[0];
3028          return Cnil;          return Cnil;
3029  }  }
3030  /*      local entry for function progn 'compile5335     */  /*      local entry for function progn 'compile5429     */
3031    
3032  static object LI124()  static object LI129()
3033    
3034  {        VMB124 VMS124 VMV124  {        VMB129 VMS129 VMV129
3035          goto TTL;          goto TTL;
3036  TTL:;  TTL:;
3037          base[0]= VV[168];          base[0]= VV[171];
3038          base[1]= (VV[8]->s.s_dbind);          base[1]= (VV[8]->s.s_dbind);
3039          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3040          Ladjoin();          Ladjoin();
3041          vs_top=sup;          vs_top=sup;
3042          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
3043          {object V248 = Cnil;          {object V253 = Cnil;
3044          VMR124(V248)}          VMR129(V253)}
3045          base[0]=base[0];          base[0]=base[0];
3046          return Cnil;          return Cnil;
3047  }  }
3048  /*      local entry for function progn 'compile5359     */  /*      local entry for function progn 'compile5453     */
3049    
3050  static object LI125()  static object LI130()
3051    
3052  {        VMB125 VMS125 VMV125  {        VMB130 VMS130 VMV130
3053          goto TTL;          goto TTL;
3054  TTL:;  TTL:;
3055          (void)(sputprop(VV[166],VV[9],Cnil));          (void)(sputprop(VV[169],VV[9],Cnil));
3056          {object V249 = Cnil;          {object V254 = Cnil;
3057          VMR125(V249)}          VMR130(V254)}
3058          return Cnil;          return Cnil;
3059  }  }
3060  /*      local entry for function progn 'compile5375     */  /*      local entry for function progn 'compile5469     */
3061    
3062  static object LI126()  static object LI131()
3063    
3064  {        VMB126 VMS126 VMV126  {        VMB131 VMS131 VMV131
3065          goto TTL;          goto TTL;
3066  TTL:;  TTL:;
3067          base[0]= VV[32];          base[0]= VV[32];
3068          base[1]= VV[169];          base[1]= VV[172];
3069          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3070          (void) (*Lnk269)();          (void) (*Lnk275)();
3071          vs_top=sup;          vs_top=sup;
3072          {object V250 = Cnil;          {object V255 = Cnil;
3073          VMR126(V250)}          VMR131(V255)}
3074          base[0]=base[0];          base[0]=base[0];
3075          return Cnil;          return Cnil;
3076  }  }
3077  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))  */  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (UNDEFINED-FUNCTION T))  */
3078    
3079  static void L127()  static void L132()
3080  {register object *base=vs_base;  {register object *base=vs_base;
3081          register object *sup=base+VM127; VC127          register object *sup=base+VM132; VC132
3082          vs_check;          vs_check;
3083          {object V251;          {object V256;
3084          register object V252;          register object V257;
3085          register object V253;          register object V258;
3086          register object V254;          register object V259;
3087          V251=(base[0]);          V256=(base[0]);
3088          V252=(base[1]);          V257=(base[1]);
3089          V253=(base[2]);          V258=(base[2]);
3090          V254=(base[3]);          V259=(base[3]);
3091          vs_top=sup;          vs_top=sup;
3092          goto TTL;          goto TTL;
3093  TTL:;  TTL:;
3094          if(((VV[34]->s.s_dbind))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
3095          goto T860;}          goto T873;}
3096          if(((V252))==Cnil){          if(((V257))==Cnil){
3097          goto T863;}          goto T876;}
3098          base[4]= (V252);          base[4]= (V257);
3099          base[5]= VV[35];          base[5]= VV[35];
3100          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3101          (void) (*Lnk270)();          (void) (*Lnk276)();
3102          vs_top=sup;          vs_top=sup;
3103          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3104          goto T867;}          goto T880;}
3105          base[4]= STREF(object,(V252),0);          base[4]= STREF(object,(V257),0);
3106          base[5]= STREF(object,(V252),4);          base[5]= STREF(object,(V257),4);
3107          base[6]= STREF(object,(V252),8);          base[6]= STREF(object,(V257),8);
3108          base[7]= (V253);          base[7]= (V258);
3109          base[8]= (V254);          base[8]= (V259);
3110          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3111          {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))
3112                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3113                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3114                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3115          return;          return;
3116          goto T867;          goto T880;
3117  T867:;  T880:;
3118          if(!(type_of((V252))==t_fixnum)){          if(!(type_of((V257))==t_fixnum)){
3119          goto T877;}          goto T890;}
3120          {object V257;          {object V262;
3121          if(type_of(V253)==t_structure){          if(type_of(V258)==t_structure){
3122          goto T883;}          goto T896;}
3123          goto T881;          goto T894;
3124          goto T883;          goto T896;
3125  T883:;  T896:;
3126          if(!(((V253)->str.str_def)==(VV[170]))){          if(!(((V258)->str.str_def)==(VV[173]))){
3127          goto T881;}          goto T894;}
3128          V257= STREF(object,(V253),4);          V262= STREF(object,(V258),4);
3129          goto T879;          goto T892;
3130          goto T881;          goto T894;
3131  T881:;{object V259;  T894:;{object V264;
3132          V259= (VV[38]->s.s_dbind);          V264= (VV[38]->s.s_dbind);
3133          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3134          base[5]= (V253);          base[5]= (V258);
3135          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3136          (void) (*Lnk271)();          (void) (*Lnk277)();
3137          vs_top=sup;          vs_top=sup;
3138          V260= vs_base[0];          V265= vs_base[0];
3139          if(!((V259)==(CMPcar(V260)))){          if(!((V264)==(CMPcar(V265)))){
3140          goto T886;}}          goto T899;}}
3141          V257= CMPcar(((V253))->cc.cc_turbo[12]);          V262= CMPcar(((V258))->cc.cc_turbo[12]);
3142          goto T879;          goto T892;
3143          goto T886;          goto T899;
3144  T886:;  T899:;
3145          V257= Cnil;          V262= Cnil;
         goto T879;  
 T879:;  
         if(((V257))==Cnil){  
         goto T892;}  
         base[4]= ((V257))->v.v_self[fix((V252))]= (V253);  
         vs_top=(vs_base=base+4)+1;  
         return;  
3146          goto T892;          goto T892;
3147  T892:;  T892:;
3148            if(((V262))==Cnil){
3149            goto T905;}
3150            base[4]= ((V262))->v.v_self[fix((V257))]= (V258);
3151            vs_top=(vs_base=base+4)+1;
3152            return;
3153            goto T905;
3154    T905:;
3155          base[4]= Cnil;          base[4]= Cnil;
3156          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3157          return;}          return;}
3158          goto T877;          goto T890;
3159  T877:;  T890:;
3160          {register object V262;          {register object V267;
3161          V262= V252;          V267= V257;
3162          base[4]= (V262);          base[4]= (V267);
3163          base[5]= VV[39];          base[5]= VV[39];
3164          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3165          (void) (*Lnk270)();          (void) (*Lnk276)();
3166          vs_top=sup;          vs_top=sup;
3167          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3168          goto T895;}          goto T908;}
3169          {object V263;          {object V268;
3170          object V264;          object V269;
3171          register object V265;          register object V270;
3172          V263= STREF(object,(V252),0);          V268= STREF(object,(V257),0);
3173          V264= list(2,(V253),(V254));          V269= list(2,(V258),(V259));
3174          V265= STREF(object,(V252),4);          V270= STREF(object,(V257),4);
3175          if(((V265))==Cnil){          if(((V270))==Cnil){
3176          goto T903;}          goto T916;}
3177          if((CMPcdr((V265)))!=Cnil){          if((CMPcdr((V270)))!=Cnil){
3178          goto T903;}          goto T916;}
3179          base[4]= (V264);          base[4]= (V269);
3180          base[5]= CMPcar((V265));          base[5]= CMPcar((V270));
3181          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3182          {object _funobj = (V263);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V268);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3183                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3184                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3185                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3186          return;          return;
3187          goto T903;          goto T916;
3188  T903:;  T916:;
3189          base[4]= (V263);          base[4]= (V268);
3190          base[5]= (V264);          base[5]= (V269);
3191          {object V266;          {object V271;
3192          V266= (V265);          V271= (V270);
3193           vs_top=base+6;           vs_top=base+6;
3194           while(V266!=Cnil)           while(V271!=Cnil)
3195           {vs_push((V266)->c.c_car);V266=(V266)->c.c_cdr;}           {vs_push((V271)->c.c_car);V271=(V271)->c.c_cdr;}
3196          vs_base=base+5;}          vs_base=base+5;}
3197          {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))
3198                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3199                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3200                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3201          return;}          return;}
3202          goto T895;          goto T908;
3203  T895:;  T908:;
3204          base[4]= (V262);          base[4]= (V267);
3205          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3206          Lfunctionp();          Lfunctionp();
3207          vs_top=sup;          vs_top=sup;
3208          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3209          goto T913;}          goto T926;}
3210          base[4]= (V253);          base[4]= (V258);
3211          base[5]= (V254);          base[5]= (V259);
3212          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3213          {object _funobj = (V252);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V257);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3214                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3215                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3216                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3217          return;          return;
3218          goto T913;          goto T926;
3219  T913:;  T926:;
3220          base[4]= VV[40];          base[4]= VV[40];
3221          base[5]= VV[18];          base[5]= VV[18];
3222          base[6]= VV[41];          base[6]= VV[41];
3223          base[7]= VV[42];          base[7]= VV[42];
3224          base[8]= V252;          base[8]= V257;
3225          base[9]= VV[43];          base[9]= VV[43];
3226          base[10]= VV[171];          base[10]= VV[174];
3227          base[11]= VV[45];          base[11]= VV[45];
3228          base[12]= VV[172];          base[12]= VV[175];
3229          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
3230          (void) (*Lnk13)();          (void) (*Lnk13)();
3231          return;}          return;}
3232          goto T863;          goto T876;
3233  T863:;  T876:;
3234          base[4]= VV[47];          base[4]= VV[47];
3235          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3236          (void) (*Lnk272)();          (void) (*Lnk278)();
3237          return;          return;
3238          goto T860;          goto T873;
3239  T860:;  T873:;
3240          base[4]= V254;          base[4]= V259;
3241          base[5]= VV[173];          base[5]= VV[176];
3242          base[7]= V253;          base[7]= V258;
3243          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3244          (void) (*Lnk303)(Lclptr303);          (void) (*Lnk310)(Lclptr310);
3245          vs_top=sup;          vs_top=sup;
3246          base[6]= vs_base[0];          base[6]= vs_base[0];
3247          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
# Line 3175  T860:; Line 3249  T860:;
3249          return;          return;
3250          }          }
3251  }  }
3252  /*      local entry for function progn 'compile5572     */  /*      local entry for function progn 'compile5666     */
3253    
3254  static object LI128()  static object LI133()
3255    
3256  {        VMB128 VMS128 VMV128  {        VMB133 VMS133 VMV133
3257          goto TTL;          goto TTL;
3258  TTL:;  TTL:;
3259          base[0]= VV[48];          base[0]= VV[48];
3260          base[1]= VV[32];          base[1]= VV[32];
3261          base[2]= Cnil;          base[2]= Cnil;
3262          base[3]= VV[174];          base[3]= VV[177];
3263          base[4]= VV[175];          base[4]= VV[178];
3264          V269= (VV[306]->s.s_gfdef);          V274= (VV[313]->s.s_gfdef);
3265          base[5]= listA(3,VV[51],V269,VV[176]);          base[5]= listA(3,VV[51],V274,VV[179]);
3266          base[6]= Cnil;          base[6]= Cnil;
3267          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3268          (void) (*Lnk275)();          (void) (*Lnk281)();
         vs_top=sup;  
         {object V270 = Cnil;  
         VMR128(V270)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile5580     */  
   
 static object LI129()  
   
 {        VMB129 VMS129 VMV129  
         goto TTL;  
 TTL:;  
         {object V271 = Cnil;  
         VMR129(V271)}  
         return Cnil;  
 }  
 /*      function definition for Defclass ARITHMETIC-ERROR5600   */  
   
 static void L130()  
 {register object *base=vs_base;  
         register object *sup=base+VM130; VC130  
         vs_check;  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         base[0]= VV[177];  
         base[1]= VV[5];  
         base[2]= VV[178];  
         V272= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil);  
         base[3]= make_cons(/* INLINE-ARGS */V272,Cnil);  
         base[4]= Cnil;  
         base[5]= Cnil;  
         symlispcall(VV[261],base+0,6);  
         return;  
 }  
 /*      local entry for function progn 'compile5617     */  
   
 static object LI131()  
   
 {        VMB131 VMS131 VMV131  
         goto TTL;  
 TTL:;  
         vs_base=vs_top;  
         (void) (*Lnk307)();  
         vs_top=sup;  
         {object V273 = Cnil;  
         VMR131(V273)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile5634     */  
   
 static object LI132()  
   
 {        VMB132 VMS132 VMV132  
         goto TTL;  
 TTL:;  
         base[0]= VV[182];  
         base[1]= (VV[8]->s.s_dbind);  
         vs_top=(vs_base=base+0)+2;  
         Ladjoin();  
3269          vs_top=sup;          vs_top=sup;
         (VV[8]->s.s_dbind)= vs_base[0];  
3270          {object V275 = Cnil;          {object V275 = Cnil;
3271          VMR132(V275)}          VMR133(V275)}
3272          base[0]=base[0];          base[0]=base[0];
3273          return Cnil;          return Cnil;
3274  }  }
3275  /*      local entry for function progn 'compile5658     */  /*      local entry for function progn 'compile5674     */
   
 static object LI133()  
   
 {        VMB133 VMS133 VMV133  
         goto TTL;  
 TTL:;  
         (void)(sputprop(VV[177],VV[9],Cnil));  
         {object V276 = Cnil;  
         VMR133(V276)}  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile5670     */  
3276    
3277  static object LI134()  static object LI134()
3278    
3279  {        VMB134 VMS134 VMV134  {        VMB134 VMS134 VMV134
3280          goto TTL;          goto TTL;
3281  TTL:;  TTL:;
3282          {object V277 = Cnil;          {object V276 = Cnil;
3283          VMR134(V277)}          VMR134(V276)}
3284          return Cnil;          return Cnil;
3285  }  }
3286  /*      function definition for Defclass DIVISION-BY-ZERO5690   */  /*      function definition for Defclass ARITHMETIC-ERROR5694   */
3287    
3288  static void L135()  static void L135()
3289  {register object *base=vs_base;  {register object *base=vs_base;
# Line 3293  static void L135() Line 3292  static void L135()
3292          vs_top=sup;          vs_top=sup;
3293          goto TTL;          goto TTL;
3294  TTL:;  TTL:;
3295          base[0]= VV[183];          base[0]= VV[180];
3296          base[1]= VV[5];          base[1]= VV[5];
3297          base[2]= VV[184];          base[2]= VV[181];
3298          base[3]= Cnil;          V277= listA(9,VV[18],VV[182],VV[20],VV[183],VV[22],Cnil,VV[23],VV[184],Cnil);
3299            base[3]= make_cons(/* INLINE-ARGS */V277,Cnil);
3300          base[4]= Cnil;          base[4]= Cnil;
3301          base[5]= Cnil;          base[5]= Cnil;
3302          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
3303          return;          return;
3304  }  }
3305  /*      local entry for function progn 'compile5706     */  /*      local entry for function progn 'compile5711     */
3306    
3307  static object LI136()  static object LI136()
3308    
# Line 3310  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) (*Lnk308)();          (void) (*Lnk314)();
3314          vs_top=sup;          vs_top=sup;
3315          {object V278 = Cnil;          {object V278 = Cnil;
3316          VMR136(V278)}          VMR136(V278)}
3317          base[0]=base[0];          base[0]=base[0];
3318          return Cnil;          return Cnil;
3319  }  }
3320  /*      local entry for function progn 'compile5723     */  /*      local entry for function progn 'compile5728     */
3321    
3322  static object LI137()  static object LI137()
3323    
# Line 3335  TTL:; Line 3335  TTL:;
3335          base[0]=base[0];          base[0]=base[0];
3336          return Cnil;          return Cnil;
3337  }  }
3338  /*      local entry for function progn 'compile5747     */  /*      local entry for function progn 'compile5752     */
3339    
3340  static object LI138()  static object LI138()
3341    
3342  {        VMB138 VMS138 VMV138  {        VMB138 VMS138 VMV138
3343          goto TTL;          goto TTL;
3344  TTL:;  TTL:;
3345          (void)(sputprop(VV[183],VV[9],Cnil));          (void)(sputprop(VV[180],VV[9],Cnil));
3346          {object V281 = Cnil;          {object V281 = Cnil;
3347          VMR138(V281)}          VMR138(V281)}
3348          return Cnil;          return Cnil;
3349  }  }
3350  /*      local entry for function progn 'compile5759     */  /*      local entry for function progn 'compile5764     */
3351    
3352  static object LI139()  static object LI139()
3353    
# Line 3358  TTL:; Line 3358  TTL:;
3358          VMR139(V282)}          VMR139(V282)}
3359          return Cnil;          return Cnil;
3360  }  }
3361  /*      function definition for Defclass FLOATING-POINT-OVERFLOW5779    */  /*      function definition for Defclass DIVISION-BY-ZERO5784   */
3362    
3363  static void L140()  static void L140()
3364  {register object *base=vs_base;  {register object *base=vs_base;
# Line 3373  TTL:; Line 3373  TTL:;
3373          base[3]= Cnil;          base[3]= Cnil;
3374          base[4]= Cnil;          base[4]= Cnil;
3375          base[5]= Cnil;          base[5]= Cnil;
3376          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
3377          return;          return;
3378  }  }
3379  /*      local entry for function progn 'compile5795     */  /*      local entry for function progn 'compile5800     */
3380    
3381  static object LI141()  static object LI141()
3382    
# Line 3384  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) (*Lnk309)();          (void) (*Lnk315)();
3388          vs_top=sup;          vs_top=sup;
3389          {object V283 = Cnil;          {object V283 = Cnil;
3390          VMR141(V283)}          VMR141(V283)}
3391          base[0]=base[0];          base[0]=base[0];
3392          return Cnil;          return Cnil;
3393  }  }
3394  /*      local entry for function progn 'compile5812     */  /*      local entry for function progn 'compile5817     */
3395    
3396  static object LI142()  static object LI142()
3397    
# Line 3409  TTL:; Line 3409  TTL:;
3409          base[0]=base[0];          base[0]=base[0];
3410          return Cnil;          return Cnil;
3411  }  }
3412  /*      local entry for function progn 'compile5836     */  /*      local entry for function progn 'compile5841     */
3413    
3414  static object LI143()  static object LI143()
3415    
# Line 3421  TTL:; Line 3421  TTL:;
3421          VMR143(V286)}          VMR143(V286)}
3422          return Cnil;          return Cnil;
3423  }  }
3424  /*      local entry for function progn 'compile5848     */  /*      local entry for function progn 'compile5853     */
3425    
3426  static object LI144()  static object LI144()
3427    
# Line 3432  TTL:; Line 3432  TTL:;
3432          VMR144(V287)}          VMR144(V287)}
3433          return Cnil;          return Cnil;
3434  }  }
3435  /*      function definition for Defclass FLOATING-POINT-UNDERFLOW5868   */  /*      function definition for Defclass FLOATING-POINT-OVERFLOW5873    */
3436    
3437  static void L145()  static void L145()
3438  {register object *base=vs_base;  {register object *base=vs_base;
# Line 3447  TTL:; Line 3447  TTL:;
3447          base[3]= Cnil;          base[3]= Cnil;
3448          base[4]= Cnil;          base[4]= Cnil;
3449          base[5]= Cnil;          base[5]= Cnil;
3450          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
3451          return;          return;
3452  }  }
3453  /*      local entry for function progn 'compile5884     */  /*      local entry for function progn 'compile5889     */
3454    
3455  static object LI146()  static object LI146()
3456    
# Line 3458  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) (*Lnk310)();          (void) (*Lnk316)();
3462          vs_top=sup;          vs_top=sup;
3463          {object V288 = Cnil;          {object V288 = Cnil;
3464          VMR146(V288)}          VMR146(V288)}
3465          base[0]=base[0];          base[0]=base[0];
3466          return Cnil;          return Cnil;
3467  }  }
3468  /*      local entry for function progn 'compile5901     */  /*      local entry for function progn 'compile5906     */
3469    
3470  static object LI147()  static object LI147()
3471    
# Line 3483  TTL:; Line 3483  TTL:;
3483          base[0]=base[0];          base[0]=base[0];
3484          return Cnil;          return Cnil;
3485  }  }
3486  /*      local entry for function progn 'compile5925     */  /*      local entry for function progn 'compile5930     */
3487    
3488  static object LI148()  static object LI148()
3489    
# Line 3495  TTL:; Line 3495  TTL:;
3495          VMR148(V291)}          VMR148(V291)}
3496          return Cnil;          return Cnil;
3497  }  }
3498  /*      local entry for function progn 'compile5937     */  /*      local entry for function progn 'compile5942     */
3499    
3500  static object LI149()  static object LI149()
3501    
# Line 3506  TTL:; Line 3506  TTL:;
3506          VMR149(V292)}          VMR149(V292)}
3507          return Cnil;          return Cnil;
3508  }  }
3509  /*      function definition for Defclass ABORT-FAILURE5957      */  /*      function definition for Defclass FLOATING-POINT-UNDERFLOW5962   */
3510    
3511  static void L150()  static void L150()
3512  {register object *base=vs_base;  {register object *base=vs_base;
# Line 3521  TTL:; Line 3521  TTL:;
3521          base[3]= Cnil;          base[3]= Cnil;
3522          base[4]= Cnil;          base[4]= Cnil;
3523          base[5]= Cnil;          base[5]= Cnil;
3524          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
3525          return;          return;
3526  }  }
3527  /*      local entry for function progn 'compile5973     */  /*      local entry for function progn 'compile5978     */
3528    
3529  static object LI151()  static object LI151()
3530    
# Line 3532  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) (*Lnk311)();          (void) (*Lnk317)();
3536          vs_top=sup;          vs_top=sup;
3537          {object V293 = Cnil;          {object V293 = Cnil;
3538          VMR151(V293)}          VMR151(V293)}
3539          base[0]=base[0];          base[0]=base[0];
3540          return Cnil;          return Cnil;
3541  }  }
3542  /*      local entry for function progn 'compile5990     */  /*      local entry for function progn 'compile5995     */
3543    
3544  static object LI152()  static object LI152()
3545    
# Line 3557  TTL:; Line 3557  TTL:;
3557          base[0]=base[0];          base[0]=base[0];
3558          return Cnil;          return Cnil;
3559  }  }
3560  /*      local entry for function progn 'compile6014     */  /*      local entry for function progn 'compile6019     */
3561    
3562  static object LI153()  static object LI153()
3563    
# Line 3569  TTL:; Line 3569  TTL:;
3569          VMR153(V296)}          VMR153(V296)}
3570          return Cnil;          return Cnil;
3571  }  }
3572  /*      local entry for function progn 'compile6030     */  /*      local entry for function progn 'compile6031     */
3573    
3574  static object LI154()  static object LI154()
3575    
3576  {        VMB154 VMS154 VMV154  {        VMB154 VMS154 VMV154
3577          goto TTL;          goto TTL;
3578  TTL:;  TTL:;
3579            {object V297 = Cnil;
3580            VMR154(V297)}
3581            return Cnil;
3582    }
3583    /*      function definition for Defclass ABORT-FAILURE6051      */
3584    
3585    static void L155()
3586    {register object *base=vs_base;
3587            register object *sup=base+VM155; VC155
3588            vs_check;
3589            vs_top=sup;
3590            goto TTL;
3591    TTL:;
3592            base[0]= VV[195];
3593            base[1]= VV[5];
3594            base[2]= VV[196];
3595            base[3]= Cnil;
3596            base[4]= Cnil;
3597            base[5]= Cnil;
3598            symlispcall(VV[267],base+0,6);
3599            return;
3600    }
3601    /*      local entry for function progn 'compile6067     */
3602    
3603    static object LI156()
3604    
3605    {        VMB156 VMS156 VMV156
3606            goto TTL;
3607    TTL:;
3608            vs_base=vs_top;
3609            (void) (*Lnk318)();
3610            vs_top=sup;
3611            {object V298 = Cnil;
3612            VMR156(V298)}
3613            base[0]=base[0];
3614            return Cnil;
3615    }
3616    /*      local entry for function progn 'compile6084     */
3617    
3618    static object LI157()
3619    
3620    {        VMB157 VMS157 VMV157
3621            goto TTL;
3622    TTL:;
3623            base[0]= VV[197];
3624            base[1]= (VV[8]->s.s_dbind);
3625            vs_top=(vs_base=base+0)+2;
3626            Ladjoin();
3627            vs_top=sup;
3628            (VV[8]->s.s_dbind)= vs_base[0];
3629            {object V300 = Cnil;
3630            VMR157(V300)}
3631            base[0]=base[0];
3632            return Cnil;
3633    }
3634    /*      local entry for function progn 'compile6108     */
3635    
3636    static object LI158()
3637    
3638    {        VMB158 VMS158 VMV158
3639            goto TTL;
3640    TTL:;
3641            (void)(sputprop(VV[195],VV[9],Cnil));
3642            {object V301 = Cnil;
3643            VMR158(V301)}
3644            return Cnil;
3645    }
3646    /*      local entry for function progn 'compile6124     */
3647    
3648    static object LI159()
3649    
3650    {        VMB159 VMS159 VMV159
3651            goto TTL;
3652    TTL:;
3653          base[0]= VV[32];          base[0]= VV[32];
3654          base[1]= VV[195];          base[1]= VV[198];
3655          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3656          (void) (*Lnk269)();          (void) (*Lnk275)();
3657          vs_top=sup;          vs_top=sup;
3658          {object V297 = Cnil;          {object V302 = Cnil;
3659          VMR154(V297)}          VMR159(V302)}
3660          base[0]=base[0];          base[0]=base[0];
3661          return Cnil;          return Cnil;
3662  }  }
3663  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))       */  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (ABORT-FAILURE T))       */
3664    
3665  static void L155()  static void L160()
3666  {register object *base=vs_base;  {register object *base=vs_base;
3667          register object *sup=base+VM155; VC155          register object *sup=base+VM160; VC160
3668          vs_check;          vs_check;
3669          {object V298;          {object V303;
3670          register object V299;          register object V304;
3671          register object V300;          register object V305;
3672          register object V301;          register object V306;
3673          V298=(base[0]);          V303=(base[0]);
3674          V299=(base[1]);          V304=(base[1]);
3675          V300=(base[2]);          V305=(base[2]);
3676          V301=(base[3]);          V306=(base[3]);
3677          vs_top=sup;          vs_top=sup;
3678          goto TTL;          goto TTL;
3679  TTL:;  TTL:;
3680          if(((VV[34]->s.s_dbind))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
3681          goto T1013;}          goto T1026;}
3682          if(((V299))==Cnil){          if(((V304))==Cnil){
3683          goto T1016;}          goto T1029;}
3684          base[4]= (V299);          base[4]= (V304);
3685          base[5]= VV[35];          base[5]= VV[35];
3686          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3687          (void) (*Lnk270)();          (void) (*Lnk276)();
3688          vs_top=sup;          vs_top=sup;
3689          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3690          goto T1020;}          goto T1033;}
3691          base[4]= STREF(object,(V299),0);          base[4]= STREF(object,(V304),0);
3692          base[5]= STREF(object,(V299),4);          base[5]= STREF(object,(V304),4);
3693          base[6]= STREF(object,(V299),8);          base[6]= STREF(object,(V304),8);
3694          base[7]= (V300);          base[7]= (V305);
3695          base[8]= (V301);          base[8]= (V306);
3696          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3697          {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))
3698                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3699                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3700                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3701          return;          return;
3702          goto T1020;          goto T1033;
3703  T1020:;  T1033:;
3704          if(!(type_of((V299))==t_fixnum)){          if(!(type_of((V304))==t_fixnum)){
3705          goto T1030;}          goto T1043;}
3706          {object V304;          {object V309;
3707          if(type_of(V300)==t_structure){          if(type_of(V305)==t_structure){
3708          goto T1036;}          goto T1049;}
3709          goto T1034;          goto T1047;
3710          goto T1036;          goto T1049;
3711  T1036:;  T1049:;
3712          if(!(((V300)->str.str_def)==(VV[196]))){          if(!(((V305)->str.str_def)==(VV[199]))){
3713          goto T1034;}          goto T1047;}
3714          V304= STREF(object,(V300),4);          V309= STREF(object,(V305),4);
3715          goto T1032;          goto T1045;
3716          goto T1034;          goto T1047;
3717  T1034:;{object V306;  T1047:;{object V311;
3718          V306= (VV[38]->s.s_dbind);          V311= (VV[38]->s.s_dbind);
3719          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3720          base[5]= (V300);          base[5]= (V305);
3721          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3722          (void) (*Lnk271)();          (void) (*Lnk277)();
3723          vs_top=sup;          vs_top=sup;
3724          V307= vs_base[0];          V312= vs_base[0];
3725          if(!((V306)==(CMPcar(V307)))){          if(!((V311)==(CMPcar(V312)))){
3726          goto T1039;}}          goto T1052;}}
3727          V304= CMPcar(((V300))->cc.cc_turbo[12]);          V309= CMPcar(((V305))->cc.cc_turbo[12]);
3728          goto T1032;          goto T1045;
3729          goto T1039;          goto T1052;
3730  T1039:;  T1052:;
3731          V304= Cnil;          V309= Cnil;
         goto T1032;  
 T1032:;  
         if(((V304))==Cnil){  
         goto T1045;}  
         base[4]= ((V304))->v.v_self[fix((V299))]= (V300);  
         vs_top=(vs_base=base+4)+1;  
         return;  
3732          goto T1045;          goto T1045;
3733  T1045:;  T1045:;
3734            if(((V309))==Cnil){
3735            goto T1058;}
3736            base[4]= ((V309))->v.v_self[fix((V304))]= (V305);
3737            vs_top=(vs_base=base+4)+1;
3738            return;
3739            goto T1058;
3740    T1058:;
3741          base[4]= Cnil;          base[4]= Cnil;
3742          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3743          return;}          return;}
3744          goto T1030;          goto T1043;
3745  T1030:;  T1043:;
3746          {register object V309;          {register object V314;
3747          V309= V299;          V314= V304;
3748          base[4]= (V309);          base[4]= (V314);
3749          base[5]= VV[39];          base[5]= VV[39];
3750          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3751          (void) (*Lnk270)();          (void) (*Lnk276)();
3752          vs_top=sup;          vs_top=sup;
3753          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3754          goto T1048;}          goto T1061;}
3755          {object V310;          {object V315;
3756          object V311;          object V316;
3757          register object V312;          register object V317;
3758          V310= STREF(object,(V299),0);          V315= STREF(object,(V304),0);
3759          V311= list(2,(V300),(V301));          V316= list(2,(V305),(V306));
3760          V312= STREF(object,(V299),4);          V317= STREF(object,(V304),4);
3761          if(((V312))==Cnil){          if(((V317))==Cnil){
3762          goto T1056;}          goto T1069;}
3763          if((CMPcdr((V312)))!=Cnil){          if((CMPcdr((V317)))!=Cnil){
3764          goto T1056;}          goto T1069;}
3765          base[4]= (V311);          base[4]= (V316);
3766          base[5]= CMPcar((V312));          base[5]= CMPcar((V317));
3767          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3768          {object _funobj = (V310);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V315);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3769                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3770                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3771                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3772          return;          return;
3773          goto T1056;          goto T1069;
3774  T1056:;  T1069:;
3775          base[4]= (V310);          base[4]= (V315);
3776          base[5]= (V311);          base[5]= (V316);
3777          {object V313;          {object V318;
3778          V313= (V312);          V318= (V317);
3779           vs_top=base+6;           vs_top=base+6;
3780           while(V313!=Cnil)           while(V318!=Cnil)
3781           {vs_push((V313)->c.c_car);V313=(V313)->c.c_cdr;}           {vs_push((V318)->c.c_car);V318=(V318)->c.c_cdr;}
3782          vs_base=base+5;}          vs_base=base+5;}
3783          {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))
3784                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3785                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3786                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3787          return;}          return;}
3788          goto T1048;          goto T1061;
3789  T1048:;  T1061:;
3790          base[4]= (V309);          base[4]= (V314);
3791          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3792          Lfunctionp();          Lfunctionp();
3793          vs_top=sup;          vs_top=sup;
3794          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3795          goto T1066;}          goto T1079;}
3796          base[4]= (V300);          base[4]= (V305);
3797          base[5]= (V301);          base[5]= (V306);
3798          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3799          {object _funobj = (V299);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V304);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3800                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3801                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3802                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3803          return;          return;
3804          goto T1066;          goto T1079;
3805  T1066:;  T1079:;
3806          base[4]= VV[40];          base[4]= VV[40];
3807          base[5]= VV[18];          base[5]= VV[18];
3808          base[6]= VV[41];          base[6]= VV[41];
3809          base[7]= VV[42];          base[7]= VV[42];
3810          base[8]= V299;          base[8]= V304;
3811          base[9]= VV[43];          base[9]= VV[43];
3812          base[10]= VV[197];          base[10]= VV[200];
3813          base[11]= VV[45];          base[11]= VV[45];
3814          base[12]= VV[198];          base[12]= VV[201];
3815          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
3816          (void) (*Lnk13)();          (void) (*Lnk13)();
3817          return;}          return;}
3818          goto T1016;          goto T1029;
3819  T1016:;  T1029:;
3820          base[4]= VV[47];          base[4]= VV[47];
3821          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3822          (void) (*Lnk272)();          (void) (*Lnk278)();
3823          return;          return;
3824          goto T1013;          goto T1026;
3825  T1013:;  T1026:;
3826          base[4]= VV[199];          base[4]= VV[202];
3827          base[5]= V301;          base[5]= V306;
3828          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3829          Lwrite_string();          Lwrite_string();
3830          return;          return;
3831          }          }
3832  }  }
3833  /*      local entry for function progn 'compile6231     */  /*      local entry for function progn 'compile6325     */
3834    
3835  static object LI156()  static object LI161()
3836    
3837  {        VMB156 VMS156 VMV156  {        VMB161 VMS161 VMV161
3838          goto TTL;          goto TTL;
3839  TTL:;  TTL:;
3840          base[0]= VV[48];          base[0]= VV[48];
3841          base[1]= VV[32];          base[1]= VV[32];
3842          base[2]= Cnil;          base[2]= Cnil;
3843          base[3]= VV[200];          base[3]= VV[203];
3844          base[4]= VV[201];          base[4]= VV[204];
3845          V316= (VV[312]->s.s_gfdef);          V321= (VV[319]->s.s_gfdef);
3846          base[5]= listA(3,VV[51],V316,VV[202]);          base[5]= listA(3,VV[51],V321,VV[205]);
3847          base[6]= Cnil;          base[6]= Cnil;
3848          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3849          (void) (*Lnk275)();          (void) (*Lnk281)();
3850          vs_top=sup;          vs_top=sup;
3851          {object V317 = Cnil;          {object V322 = Cnil;
3852          VMR156(V317)}          VMR161(V322)}
3853          base[0]=base[0];          base[0]=base[0];
3854          return Cnil;          return Cnil;
3855  }  }
3856  /*      local entry for function progn 'compile6239     */  /*      local entry for function progn 'compile6333     */
3857    
3858  static object LI157()  static object LI162()
3859    
3860  {        VMB157 VMS157 VMV157  {        VMB162 VMS162 VMV162
3861          goto TTL;          goto TTL;
3862  TTL:;  TTL:;
3863          {object V318 = Cnil;          {object V323 = Cnil;
3864          VMR157(V318)}          VMR162(V323)}
3865          return Cnil;          return Cnil;
3866  }  }
3867  /*      function definition for Defclass INTERNAL-ERROR6259     */  /*      function definition for Defclass INTERNAL-ERROR6353     */
3868    
3869  static void L158()  static void L163()
3870  {register object *base=vs_base;  {register object *base=vs_base;
3871          register object *sup=base+VM158; VC158          register object *sup=base+VM163; VC163
3872          vs_check;          vs_check;
3873          vs_top=sup;          vs_top=sup;
3874          goto TTL;          goto TTL;
3875  TTL:;  TTL:;
3876          base[0]= VV[203];          base[0]= VV[206];
3877          base[1]= VV[5];          base[1]= VV[5];
3878          base[2]= VV[204];          base[2]= VV[207];
3879          base[4]= VV[26];          base[4]= VV[26];
3880          base[5]= (VV[267]->s.s_gfdef);          base[5]= (VV[273]->s.s_gfdef);
3881          base[6]= VV[18];          base[6]= VV[18];
3882          base[7]= VV[205];          base[7]= VV[208];
3883          base[8]= VV[20];          base[8]= VV[20];
3884          base[9]= VV[206];          base[9]= VV[209];
3885          base[10]= VV[22];          base[10]= VV[22];
3886          base[11]= Cnil;          base[11]= Cnil;
3887          base[12]= VV[23];          base[12]= VV[23];
3888          base[13]= VV[207];          base[13]= VV[210];
3889          base[14]= VV[208];          base[14]= VV[211];
3890          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
3891          LlistA();          LlistA();
3892          vs_top=sup;          vs_top=sup;
3893          V319= vs_base[0];          V324= vs_base[0];
3894          base[3]= make_cons(V319,Cnil);          base[3]= make_cons(V324,Cnil);
3895          base[4]= Cnil;          base[4]= Cnil;
3896          base[5]= Cnil;          base[5]= Cnil;
3897          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
3898          return;          return;
3899  }  }
3900  /*      local entry for function progn 'compile6276     */  /*      local entry for function progn 'compile6370     */
3901    
3902  static object LI159()  static object LI164()
3903    
3904  {        VMB159 VMS159 VMV159  {        VMB164 VMS164 VMV164
3905          goto TTL;          goto TTL;
3906  TTL:;  TTL:;
3907          vs_base=vs_top;          vs_base=vs_top;
3908          (void) (*Lnk313)();          (void) (*Lnk320)();
3909          vs_top=sup;          vs_top=sup;
3910          {object V320 = Cnil;          {object V325 = Cnil;
3911          VMR159(V320)}          VMR164(V325)}
3912          base[0]=base[0];          base[0]=base[0];
3913          return Cnil;          return Cnil;
3914  }  }
3915  /*      local entry for function progn 'compile6293     */  /*      local entry for function progn 'compile6387     */
3916    
3917  static object LI160()  static object LI165()
3918    
3919  {        VMB160 VMS160 VMV160  {        VMB165 VMS165 VMV165
3920          goto TTL;          goto TTL;
3921  TTL:;  TTL:;
3922          base[0]= VV[209];          base[0]= VV[212];
3923          base[1]= (VV[8]->s.s_dbind);          base[1]= (VV[8]->s.s_dbind);
3924          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3925          Ladjoin();          Ladjoin();
3926          vs_top=sup;          vs_top=sup;
3927          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
3928          {object V322 = Cnil;          {object V327 = Cnil;
3929          VMR160(V322)}          VMR165(V327)}
3930          base[0]=base[0];          base[0]=base[0];
3931          return Cnil;          return Cnil;
3932  }  }
3933  /*      local entry for function progn 'compile6317     */  /*      local entry for function progn 'compile6411     */
3934    
3935  static object LI161()  static object LI166()
3936    
3937  {        VMB161 VMS161 VMV161  {        VMB166 VMS166 VMV166
3938          goto TTL;          goto TTL;
3939  TTL:;  TTL:;
3940          (void)(sputprop(VV[203],VV[9],Cnil));          (void)(sputprop(VV[206],VV[9],Cnil));
3941          {object V323 = Cnil;          {object V328 = Cnil;
3942          VMR161(V323)}          VMR166(V328)}
3943          return Cnil;          return Cnil;
3944  }  }
3945  /*      local entry for function progn 'compile6333     */  /*      local entry for function progn 'compile6427     */
3946    
3947  static object LI162()  static object LI167()
3948    
3949  {        VMB162 VMS162 VMV162  {        VMB167 VMS167 VMV167
3950          goto TTL;          goto TTL;
3951  TTL:;  TTL:;
3952          base[0]= VV[32];          base[0]= VV[32];
3953          base[1]= VV[210];          base[1]= VV[213];
3954          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3955          (void) (*Lnk269)();          (void) (*Lnk275)();
3956          vs_top=sup;          vs_top=sup;
3957          {object V324 = Cnil;          {object V329 = Cnil;
3958          VMR162(V324)}          VMR167(V329)}
3959          base[0]=base[0];          base[0]=base[0];
3960          return Cnil;          return Cnil;
3961  }  }
3962  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))      */  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-ERROR T))      */
3963    
3964  static void L163()  static void L168()
3965  {register object *base=vs_base;  {register object *base=vs_base;
3966          register object *sup=base+VM163; VC163          register object *sup=base+VM168; VC168
3967          vs_check;          vs_check;
3968          {object V325;          {object V330;
3969          register object V326;          register object V331;
3970          register object V327;          register object V332;
3971          register object V328;          register object V333;
3972          V325=(base[0]);          V330=(base[0]);
3973          V326=(base[1]);          V331=(base[1]);
3974          V327=(base[2]);          V332=(base[2]);
3975          V328=(base[3]);          V333=(base[3]);
3976          vs_top=sup;          vs_top=sup;
3977          goto TTL;          goto TTL;
3978  TTL:;  TTL:;
3979          if(((VV[34]->s.s_dbind))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
3980          goto T1124;}          goto T1137;}
3981          if(((V326))==Cnil){          if(((V331))==Cnil){
3982          goto T1127;}          goto T1140;}
3983          base[4]= (V326);          base[4]= (V331);
3984          base[5]= VV[35];          base[5]= VV[35];
3985          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3986          (void) (*Lnk270)();          (void) (*Lnk276)();
3987          vs_top=sup;          vs_top=sup;
3988          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3989          goto T1131;}          goto T1144;}
3990          base[4]= STREF(object,(V326),0);          base[4]= STREF(object,(V331),0);
3991          base[5]= STREF(object,(V326),4);          base[5]= STREF(object,(V331),4);
3992          base[6]= STREF(object,(V326),8);          base[6]= STREF(object,(V331),8);
3993          base[7]= (V327);          base[7]= (V332);
3994          base[8]= (V328);          base[8]= (V333);
3995          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3996          {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))
3997                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3998                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3999                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4000          return;          return;
4001          goto T1131;          goto T1144;
4002  T1131:;  T1144:;
4003          if(!(type_of((V326))==t_fixnum)){          if(!(type_of((V331))==t_fixnum)){
4004          goto T1141;}          goto T1154;}
4005          {object V331;          {object V336;
4006          if(type_of(V327)==t_structure){          if(type_of(V332)==t_structure){
4007          goto T1147;}          goto T1160;}
4008          goto T1145;          goto T1158;
4009          goto T1147;          goto T1160;
4010  T1147:;  T1160:;
4011          if(!(((V327)->str.str_def)==(VV[211]))){          if(!(((V332)->str.str_def)==(VV[214]))){
4012          goto T1145;}          goto T1158;}
4013          V331= STREF(object,(V327),4);          V336= STREF(object,(V332),4);
4014          goto T1143;          goto T1156;
4015          goto T1145;          goto T1158;
4016  T1145:;{object V333;  T1158:;{object V338;
4017          V333= (VV[38]->s.s_dbind);          V338= (VV[38]->s.s_dbind);
4018          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4019          base[5]= (V327);          base[5]= (V332);
4020          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4021          (void) (*Lnk271)();          (void) (*Lnk277)();
4022          vs_top=sup;          vs_top=sup;
4023          V334= vs_base[0];          V339= vs_base[0];
4024          if(!((V333)==(CMPcar(V334)))){          if(!((V338)==(CMPcar(V339)))){
4025          goto T1150;}}          goto T1163;}}
4026          V331= CMPcar(((V327))->cc.cc_turbo[12]);          V336= CMPcar(((V332))->cc.cc_turbo[12]);
4027          goto T1143;          goto T1156;
4028          goto T1150;          goto T1163;
4029  T1150:;  T1163:;
4030          V331= Cnil;          V336= Cnil;
         goto T1143;  
 T1143:;  
         if(((V331))==Cnil){  
         goto T1156;}  
         base[4]= ((V331))->v.v_self[fix((V326))]= (V327);  
         vs_top=(vs_base=base+4)+1;  
         return;  
4031          goto T1156;          goto T1156;
4032  T1156:;  T1156:;
4033            if(((V336))==Cnil){
4034            goto T1169;}
4035            base[4]= ((V336))->v.v_self[fix((V331))]= (V332);
4036            vs_top=(vs_base=base+4)+1;
4037            return;
4038            goto T1169;
4039    T1169:;
4040          base[4]= Cnil;          base[4]= Cnil;
4041          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4042          return;}          return;}
4043          goto T1141;          goto T1154;
4044  T1141:;  T1154:;
4045          {register object V336;          {register object V341;
4046          V336= V326;          V341= V331;
4047          base[4]= (V336);          base[4]= (V341);
4048          base[5]= VV[39];          base[5]= VV[39];
4049          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4050          (void) (*Lnk270)();          (void) (*Lnk276)();
4051          vs_top=sup;          vs_top=sup;
4052          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4053          goto T1159;}          goto T1172;}
4054          {object V337;          {object V342;
4055          object V338;          object V343;
4056          register object V339;          register object V344;
4057          V337= STREF(object,(V326),0);          V342= STREF(object,(V331),0);
4058          V338= list(2,(V327),(V328));          V343= list(2,(V332),(V333));
4059          V339= STREF(object,(V326),4);          V344= STREF(object,(V331),4);
4060          if(((V339))==Cnil){          if(((V344))==Cnil){
4061          goto T1167;}          goto T1180;}
4062          if((CMPcdr((V339)))!=Cnil){          if((CMPcdr((V344)))!=Cnil){
4063          goto T1167;}          goto T1180;}
4064          base[4]= (V338);          base[4]= (V343);
4065          base[5]= CMPcar((V339));          base[5]= CMPcar((V344));
4066          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4067          {object _funobj = (V337);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V342);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4068                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4069                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4070                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4071          return;          return;
4072          goto T1167;          goto T1180;
4073  T1167:;  T1180:;
4074          base[4]= (V337);          base[4]= (V342);
4075          base[5]= (V338);          base[5]= (V343);
4076          {object V340;          {object V345;
4077          V340= (V339);          V345= (V344);
4078           vs_top=base+6;           vs_top=base+6;
4079           while(V340!=Cnil)           while(V345!=Cnil)
4080           {vs_push((V340)->c.c_car);V340=(V340)->c.c_cdr;}           {vs_push((V345)->c.c_car);V345=(V345)->c.c_cdr;}
4081          vs_base=base+5;}          vs_base=base+5;}
4082          {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))
4083                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4084                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4085                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4086          return;}          return;}
4087          goto T1159;          goto T1172;
4088  T1159:;  T1172:;
4089          base[4]= (V336);          base[4]= (V341);
4090          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4091          Lfunctionp();          Lfunctionp();
4092          vs_top=sup;          vs_top=sup;
4093          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4094          goto T1177;}          goto T1190;}
4095          base[4]= (V327);          base[4]= (V332);
4096          base[5]= (V328);          base[5]= (V333);
4097          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4098          {object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4099                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4100                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4101                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4102          return;          return;
4103          goto T1177;          goto T1190;
4104  T1177:;  T1190:;
4105          base[4]= VV[40];          base[4]= VV[40];
4106          base[5]= VV[18];          base[5]= VV[18];
4107          base[6]= VV[41];          base[6]= VV[41];
4108          base[7]= VV[42];          base[7]= VV[42];
4109          base[8]= V326;          base[8]= V331;
4110          base[9]= VV[43];          base[9]= VV[43];
4111          base[10]= VV[212];          base[10]= VV[215];
4112          base[11]= VV[45];          base[11]= VV[45];
4113          base[12]= VV[213];          base[12]= VV[216];
4114          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4115          (void) (*Lnk13)();          (void) (*Lnk13)();
4116          return;}          return;}
4117          goto T1127;          goto T1140;
4118  T1127:;  T1140:;
4119          base[4]= VV[47];          base[4]= VV[47];
4120          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4121          (void) (*Lnk272)();          (void) (*Lnk278)();
4122          return;          return;
4123          goto T1124;          goto T1137;
4124  T1124:;  T1137:;
4125          {register object V342;          {register object V347;
4126          V342= (V328);          V347= (V333);
4127          base[4]= V327;          base[4]= V332;
4128          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4129          (void) (*Lnk314)(Lclptr314);          (void) (*Lnk321)(Lclptr321);
4130          vs_top=sup;          vs_top=sup;
4131          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4132          goto T1192;}          goto T1205;}
4133          base[4]= (V342);          base[4]= (V347);
4134          base[5]= VV[214];          base[5]= VV[217];
4135          base[7]= V327;          base[7]= V332;
4136          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4137          (void) (*Lnk314)(Lclptr314);          (void) (*Lnk321)(Lclptr321);
4138          vs_top=sup;          vs_top=sup;
4139          base[6]= vs_base[0];          base[6]= vs_base[0];
4140          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4141          Lformat();          Lformat();
4142          vs_top=sup;          vs_top=sup;
4143          goto T1192;          goto T1205;
4144  T1192:;  T1205:;
4145          if(((V326))==Cnil){          if(((V331))==Cnil){
4146          goto T1201;}          goto T1214;}
4147          base[4]= (V326);          base[4]= (V331);
4148          base[5]= VV[35];          base[5]= VV[35];
4149          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4150          (void) (*Lnk270)();          (void) (*Lnk276)();
4151          vs_top=sup;          vs_top=sup;
4152          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4153          goto T1205;}          goto T1218;}
4154          base[4]= STREF(object,(V326),0);          base[4]= STREF(object,(V331),0);
4155          base[5]= STREF(object,(V326),4);          base[5]= STREF(object,(V331),4);
4156          base[6]= STREF(object,(V326),8);          base[6]= STREF(object,(V331),8);
4157          base[7]= (V327);          base[7]= (V332);
4158          base[8]= (V342);          base[8]= (V347);
4159          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
4160          {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))
4161                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4162                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4163                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4164          return;          return;
4165          goto T1205;          goto T1218;
4166  T1205:;  T1218:;
4167          if(!(type_of((V326))==t_fixnum)){          if(!(type_of((V331))==t_fixnum)){
4168          goto T1215;}          goto T1228;}
4169          {object V344;          {object V349;
4170          if(type_of(V327)==t_structure){          if(type_of(V332)==t_structure){
4171          goto T1221;}          goto T1234;}
4172          goto T1219;          goto T1232;
4173          goto T1221;          goto T1234;
4174  T1221:;  T1234:;
4175          if(!(((V327)->str.str_def)==(VV[215]))){          if(!(((V332)->str.str_def)==(VV[218]))){
4176          goto T1219;}          goto T1232;}
4177          V344= STREF(object,(V327),4);          V349= STREF(object,(V332),4);
4178          goto T1217;          goto T1230;
4179          goto T1219;          goto T1232;
4180  T1219:;{object V346;  T1232:;{object V351;
4181          V346= (VV[38]->s.s_dbind);          V351= (VV[38]->s.s_dbind);
4182          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4183          base[5]= (V327);          base[5]= (V332);
4184          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4185          (void) (*Lnk271)();          (void) (*Lnk277)();
4186          vs_top=sup;          vs_top=sup;
4187          V347= vs_base[0];          V352= vs_base[0];
4188          if(!((V346)==(CMPcar(V347)))){          if(!((V351)==(CMPcar(V352)))){
4189          goto T1224;}}          goto T1237;}}
4190          V344= CMPcar(((V327))->cc.cc_turbo[12]);          V349= CMPcar(((V332))->cc.cc_turbo[12]);
4191          goto T1217;          goto T1230;
4192          goto T1224;          goto T1237;
4193  T1224:;  T1237:;
4194          V344= Cnil;          V349= Cnil;
         goto T1217;  
 T1217:;  
         if(((V344))==Cnil){  
         goto T1230;}  
         base[4]= ((V344))->v.v_self[fix((V326))]= (V327);  
         vs_top=(vs_base=base+4)+1;  
         return;  
4195          goto T1230;          goto T1230;
4196  T1230:;  T1230:;
4197            if(((V349))==Cnil){
4198            goto T1243;}
4199            base[4]= ((V349))->v.v_self[fix((V331))]= (V332);
4200            vs_top=(vs_base=base+4)+1;
4201            return;
4202            goto T1243;
4203    T1243:;
4204          base[4]= Cnil;          base[4]= Cnil;
4205          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4206          return;}          return;}
4207          goto T1215;          goto T1228;
4208  T1215:;  T1228:;
4209          {register object V349;          {register object V354;
4210          V349= V326;          V354= V331;
4211          base[4]= (V349);          base[4]= (V354);
4212          base[5]= VV[39];          base[5]= VV[39];
4213          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4214          (void) (*Lnk270)();          (void) (*Lnk276)();
4215          vs_top=sup;          vs_top=sup;
4216          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4217          goto T1233;}          goto T1246;}
4218          {object V350;          {object V355;
4219          object V351;          object V356;
4220          register object V352;          register object V357;
4221          V350= STREF(object,(V326),0);          V355= STREF(object,(V331),0);
4222          V351= list(2,(V327),(V342));          V356= list(2,(V332),(V347));
4223          V352= STREF(object,(V326),4);          V357= STREF(object,(V331),4);
4224          if(((V352))==Cnil){          if(((V357))==Cnil){
4225          goto T1241;}          goto T1254;}
4226          if((CMPcdr((V352)))!=Cnil){          if((CMPcdr((V357)))!=Cnil){
4227          goto T1241;}          goto T1254;}
4228          base[4]= (V351);          base[4]= (V356);
4229          base[5]= CMPcar((V352));          base[5]= CMPcar((V357));
4230          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4231          {object _funobj = (V350);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V355);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4232                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4233                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4234                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4235          return;          return;
4236          goto T1241;          goto T1254;
4237  T1241:;  T1254:;
4238          base[4]= (V350);          base[4]= (V355);
4239          base[5]= (V351);          base[5]= (V356);
4240          {object V353;          {object V358;
4241          V353= (V352);          V358= (V357);
4242           vs_top=base+6;           vs_top=base+6;
4243           while(V353!=Cnil)           while(V358!=Cnil)
4244           {vs_push((V353)->c.c_car);V353=(V353)->c.c_cdr;}           {vs_push((V358)->c.c_car);V358=(V358)->c.c_cdr;}
4245          vs_base=base+5;}          vs_base=base+5;}
4246          {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))
4247                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4248                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4249                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4250          return;}          return;}
4251          goto T1233;          goto T1246;
4252  T1233:;  T1246:;
4253          base[4]= (V349);          base[4]= (V354);
4254          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4255          Lfunctionp();          Lfunctionp();
4256          vs_top=sup;          vs_top=sup;
4257          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4258          goto T1251;}          goto T1264;}
4259          base[4]= (V327);          base[4]= (V332);
4260          base[5]= (V342);          base[5]= (V347);
4261          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4262          {object _funobj = (V326);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4263                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4264                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4265                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4266          return;          return;
4267          goto T1251;          goto T1264;
4268  T1251:;  T1264:;
4269          base[4]= VV[40];          base[4]= VV[40];
4270          base[5]= VV[18];          base[5]= VV[18];
4271          base[6]= VV[41];          base[6]= VV[41];
4272          base[7]= VV[42];          base[7]= VV[42];
4273          base[8]= V326;          base[8]= V331;
4274          base[9]= VV[43];          base[9]= VV[43];
4275          base[10]= VV[216];          base[10]= VV[219];
4276          base[11]= VV[45];          base[11]= VV[45];
4277          base[12]= VV[217];          base[12]= VV[220];
4278          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4279          (void) (*Lnk13)();          (void) (*Lnk13)();
4280          return;}          return;}
4281          goto T1201;          goto T1214;
4282  T1201:;  T1214:;
4283          base[4]= VV[47];          base[4]= VV[47];
4284          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4285          (void) (*Lnk272)();          (void) (*Lnk278)();
4286          return;}          return;}
4287          }          }
4288  }  }
4289  /*      local entry for function progn 'compile6646     */  /*      local entry for function progn 'compile6740     */
4290    
4291  static object LI164()  static object LI169()
4292    
4293  {        VMB164 VMS164 VMV164  {        VMB169 VMS169 VMV169
4294          goto TTL;          goto TTL;
4295  TTL:;  TTL:;
4296          base[0]= VV[48];          base[0]= VV[48];
4297          base[1]= VV[32];          base[1]= VV[32];
4298          base[2]= Cnil;          base[2]= Cnil;
4299          base[3]= VV[218];          base[3]= VV[221];
4300          base[4]= VV[219];          base[4]= VV[222];
4301          V354= (VV[315]->s.s_gfdef);          V359= (VV[322]->s.s_gfdef);
4302          base[5]= listA(3,VV[51],V354,VV[220]);          base[5]= listA(3,VV[51],V359,VV[223]);
4303          base[6]= Cnil;          base[6]= Cnil;
4304          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
4305          (void) (*Lnk275)();          (void) (*Lnk281)();
4306          vs_top=sup;          vs_top=sup;
4307          {object V355 = Cnil;          {object V360 = Cnil;
4308          VMR164(V355)}          VMR169(V360)}
4309          base[0]=base[0];          base[0]=base[0];
4310          return Cnil;          return Cnil;
4311  }  }
4312  /*      local entry for function progn 'compile6654     */  /*      local entry for function progn 'compile6748     */
4313    
4314  static object LI165()  static object LI170()
4315    
4316  {        VMB165 VMS165 VMV165  {        VMB170 VMS170 VMV170
4317          goto TTL;          goto TTL;
4318  TTL:;  TTL:;
4319          {object V356 = Cnil;          {object V361 = Cnil;
4320          VMR165(V356)}          VMR170(V361)}
4321          return Cnil;          return Cnil;
4322  }  }
4323  /*      local entry for function INTERNAL-SIMPLE-ERROR-PRINTER  */  /*      local entry for function INTERNAL-SIMPLE-ERROR-PRINTER  */
4324    
4325  static object LI166(V359,V360)  static object LI171(V364,V365)
4326    
4327  register object V359;object V360;  register object V364;object V365;
4328  {        VMB166 VMS166 VMV166  {        VMB171 VMS171 VMV171
4329          goto TTL;          goto TTL;
4330  TTL:;  TTL:;
4331          base[0]= (V359);          base[0]= (V364);
4332          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
4333          (void) (*Lnk314)(Lclptr314);          (void) (*Lnk321)(Lclptr321);
4334          vs_top=sup;          vs_top=sup;
4335          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4336          goto T1276;}          goto T1289;}
4337          base[0]= (V360);          base[0]= (V365);
4338          base[1]= VV[221];          base[1]= VV[224];
4339          base[3]= (V359);          base[3]= (V364);
4340          vs_top=(vs_base=base+3)+1;          vs_top=(vs_base=base+3)+1;
4341          (void) (*Lnk314)(Lclptr314);          (void) (*Lnk321)(Lclptr321);
4342          vs_top=sup;          vs_top=sup;
4343          base[2]= vs_base[0];          base[2]= vs_base[0];
4344          vs_top=(vs_base=base+0)+3;          vs_top=(vs_base=base+0)+3;
4345          Lformat();          Lformat();
4346          vs_top=sup;          vs_top=sup;
4347          goto T1276;          goto T1289;
4348  T1276:;  T1289:;
4349          base[0]= (V360);          base[0]= (V365);
4350          base[2]= (V359);          base[2]= (V364);
4351          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4352          (void) (*Lnk265)(Lclptr265);          (void) (*Lnk271)(Lclptr271);
4353          vs_top=sup;          vs_top=sup;
4354          base[1]= vs_base[0];          base[1]= vs_base[0];
4355          {object V361;          {object V366;
4356          base[2]= (V359);          base[2]= (V364);
4357          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+2)+1;
4358          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk272)(Lclptr272);
4359          vs_top=sup;          vs_top=sup;
4360          V361= vs_base[0];          V366= vs_base[0];
4361           vs_top=base+2;           vs_top=base+2;
4362           while(V361!=Cnil)           while(V366!=Cnil)
4363           {vs_push((V361)->c.c_car);V361=(V361)->c.c_cdr;}           {vs_push((V366)->c.c_car);V366=(V366)->c.c_cdr;}
4364          vs_base=base+0;}          vs_base=base+0;}
4365          Lformat();          Lformat();
4366          vs_top=sup;          vs_top=sup;
4367          {object V362 = vs_base[0];          {object V367 = vs_base[0];
4368          VMR166(V362)}          VMR171(V367)}
4369          base[0]=base[0];          base[0]=base[0];
4370          return Cnil;          return Cnil;
4371  }  }
4372  /*      function definition for Defclass INTERNAL-SIMPLE-ERROR6686      */  /*      function definition for Defclass INTERNAL-SIMPLE-ERROR6780      */
4373    
4374  static void L167()  static void L172()
4375  {register object *base=vs_base;  {register object *base=vs_base;
4376          register object *sup=base+VM167; VC167          register object *sup=base+VM172; VC172
4377          vs_check;          vs_check;
4378          vs_top=sup;          vs_top=sup;
4379          goto TTL;          goto TTL;
4380  TTL:;  TTL:;
4381          base[0]= VV[222];          base[0]= VV[225];
4382          base[1]= VV[5];          base[1]= VV[5];
4383          base[2]= VV[223];          base[2]= VV[226];
4384          base[3]= Cnil;          base[3]= Cnil;
4385          base[4]= Cnil;          base[4]= Cnil;
4386          base[5]= Cnil;          base[5]= Cnil;
4387          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
4388          return;          return;
4389  }  }
4390  /*      local entry for function progn 'compile6702     */  /*      local entry for function progn 'compile6796     */
4391    
4392  static object LI168()  static object LI173()
4393    
4394  {        VMB168 VMS168 VMV168  {        VMB173 VMS173 VMV173
4395          goto TTL;          goto TTL;
4396  TTL:;  TTL:;
4397          vs_base=vs_top;          vs_base=vs_top;
4398          (void) (*Lnk316)();          (void) (*Lnk323)();
4399          vs_top=sup;          vs_top=sup;
4400          {object V363 = Cnil;          {object V368 = Cnil;
4401          VMR168(V363)}          VMR173(V368)}
4402          base[0]=base[0];          base[0]=base[0];
4403          return Cnil;          return Cnil;
4404  }  }
4405  /*      local entry for function progn 'compile6719     */  /*      local entry for function progn 'compile6813     */
4406    
4407  static object LI169()  static object LI174()
4408    
4409  {        VMB169 VMS169 VMV169  {        VMB174 VMS174 VMV174
4410          goto TTL;          goto TTL;
4411  TTL:;  TTL:;
4412          base[0]= VV[224];          base[0]= VV[227];
4413          base[1]= (VV[8]->s.s_dbind);          base[1]= (VV[8]->s.s_dbind);
4414          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4415          Ladjoin();          Ladjoin();
4416          vs_top=sup;          vs_top=sup;
4417          (VV[8]->s.s_dbind)= vs_base[0];          (VV[8]->s.s_dbind)= vs_base[0];
4418          {object V365 = Cnil;          {object V370 = Cnil;
4419          VMR169(V365)}          VMR174(V370)}
4420          base[0]=base[0];          base[0]=base[0];
4421          return Cnil;          return Cnil;
4422  }  }
4423  /*      local entry for function progn 'compile6743     */  /*      local entry for function progn 'compile6837     */
4424    
4425  static object LI170()  static object LI175()
4426    
4427  {        VMB170 VMS170 VMV170  {        VMB175 VMS175 VMV175
4428          goto TTL;          goto TTL;
4429  TTL:;  TTL:;
4430          (void)(sputprop(VV[222],VV[9],Cnil));          (void)(sputprop(VV[225],VV[9],Cnil));
4431          {object V366 = Cnil;          {object V371 = Cnil;
4432          VMR170(V366)}          VMR175(V371)}
4433          return Cnil;          return Cnil;
4434  }  }
4435  /*      local entry for function progn 'compile6759     */  /*      local entry for function progn 'compile6853     */
4436    
4437  static object LI171()  static object LI176()
4438    
4439  {        VMB171 VMS171 VMV171  {        VMB176 VMS176 VMV176
4440          goto TTL;          goto TTL;
4441  TTL:;  TTL:;
4442          base[0]= VV[32];          base[0]= VV[32];
4443          base[1]= VV[225];          base[1]= VV[228];
4444          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4445          (void) (*Lnk269)();          (void) (*Lnk275)();
4446          vs_top=sup;          vs_top=sup;
4447          {object V367 = Cnil;          {object V372 = Cnil;
4448          VMR171(V367)}          VMR176(V372)}
4449          base[0]=base[0];          base[0]=base[0];
4450          return Cnil;          return Cnil;
4451  }  }
4452  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))       */  /*      function definition for (PCL::FAST-METHOD PRINT-OBJECT (INTERNAL-SIMPLE-ERROR T))       */
4453    
4454  static void L172()  static void L177()
4455  {register object *base=vs_base;  {register object *base=vs_base;
4456          register object *sup=base+VM172; VC172          register object *sup=base+VM177; VC177
4457          vs_check;          vs_check;
4458          {object V368;          {object V373;
4459          register object V369;          register object V374;
4460          register object V370;          register object V375;
4461          register object V371;          register object V376;
4462          V368=(base[0]);          V373=(base[0]);
4463          V369=(base[1]);          V374=(base[1]);
4464          V370=(base[2]);          V375=(base[2]);
4465          V371=(base[3]);          V376=(base[3]);
4466          vs_top=sup;          vs_top=sup;
4467          goto TTL;          goto TTL;
4468  TTL:;  TTL:;
4469          if(((VV[34]->s.s_dbind))==Cnil){          if(((VV[34]->s.s_dbind))==Cnil){
4470          goto T1308;}          goto T1321;}
4471          if(((V369))==Cnil){          if(((V374))==Cnil){
4472          goto T1311;}          goto T1324;}
4473          base[4]= (V369);          base[4]= (V374);
4474          base[5]= VV[35];          base[5]= VV[35];
4475          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4476          (void) (*Lnk270)();          (void) (*Lnk276)();
4477          vs_top=sup;          vs_top=sup;
4478          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4479          goto T1315;}          goto T1328;}
4480          base[4]= STREF(object,(V369),0);          base[4]= STREF(object,(V374),0);
4481          base[5]= STREF(object,(V369),4);          base[5]= STREF(object,(V374),4);
4482          base[6]= STREF(object,(V369),8);          base[6]= STREF(object,(V374),8);
4483          base[7]= (V370);          base[7]= (V375);
4484          base[8]= (V371);          base[8]= (V376);
4485          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
4486          {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))
4487                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4488                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4489                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4490          return;          return;
4491          goto T1315;          goto T1328;
4492  T1315:;  T1328:;
4493          if(!(type_of((V369))==t_fixnum)){          if(!(type_of((V374))==t_fixnum)){
4494          goto T1325;}          goto T1338;}
4495          {object V374;          {object V379;
4496          if(type_of(V370)==t_structure){          if(type_of(V375)==t_structure){
4497          goto T1331;}          goto T1344;}
4498          goto T1329;          goto T1342;
4499          goto T1331;          goto T1344;
4500  T1331:;  T1344:;
4501          if(!(((V370)->str.str_def)==(VV[226]))){          if(!(((V375)->str.str_def)==(VV[229]))){
4502          goto T1329;}          goto T1342;}
4503          V374= STREF(object,(V370),4);          V379= STREF(object,(V375),4);
4504          goto T1327;          goto T1340;
4505          goto T1329;          goto T1342;
4506  T1329:;{object V376;  T1342:;{object V381;
4507          V376= (VV[38]->s.s_dbind);          V381= (VV[38]->s.s_dbind);
4508          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4509          base[5]= (V370);          base[5]= (V375);
4510          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4511          (void) (*Lnk271)();          (void) (*Lnk277)();
4512          vs_top=sup;          vs_top=sup;
4513          V377= vs_base[0];          V382= vs_base[0];
4514          if(!((V376)==(CMPcar(V377)))){          if(!((V381)==(CMPcar(V382)))){
4515          goto T1334;}}          goto T1347;}}
4516          V374= CMPcar(((V370))->cc.cc_turbo[12]);          V379= CMPcar(((V375))->cc.cc_turbo[12]);
4517          goto T1327;          goto T1340;
4518          goto T1334;          goto T1347;
4519  T1334:;  T1347:;
4520          V374= Cnil;          V379= Cnil;
         goto T1327;  
 T1327:;  
         if(((V374))==Cnil){  
         goto T1340;}  
         base[4]= ((V374))->v.v_self[fix((V369))]= (V370);  
         vs_top=(vs_base=base+4)+1;  
         return;  
4521          goto T1340;          goto T1340;
4522  T1340:;  T1340:;
4523            if(((V379))==Cnil){
4524            goto T1353;}
4525            base[4]= ((V379))->v.v_self[fix((V374))]= (V375);
4526            vs_top=(vs_base=base+4)+1;
4527            return;
4528            goto T1353;
4529    T1353:;
4530          base[4]= Cnil;          base[4]= Cnil;
4531          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4532          return;}          return;}
4533          goto T1325;          goto T1338;
4534  T1325:;  T1338:;
4535          {register object V379;          {register object V384;
4536          V379= V369;          V384= V374;
4537          base[4]= (V379);          base[4]= (V384);
4538          base[5]= VV[39];          base[5]= VV[39];
4539          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4540          (void) (*Lnk270)();          (void) (*Lnk276)();
4541          vs_top=sup;          vs_top=sup;
4542          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4543          goto T1343;}          goto T1356;}
4544          {object V380;          {object V385;
4545          object V381;          object V386;
4546          register object V382;          register object V387;
4547          V380= STREF(object,(V369),0);          V385= STREF(object,(V374),0);
4548          V381= list(2,(V370),(V371));          V386= list(2,(V375),(V376));
4549          V382= STREF(object,(V369),4);          V387= STREF(object,(V374),4);
4550          if(((V382))==Cnil){          if(((V387))==Cnil){
4551          goto T1351;}          goto T1364;}
4552          if((CMPcdr((V382)))!=Cnil){          if((CMPcdr((V387)))!=Cnil){
4553          goto T1351;}          goto T1364;}
4554          base[4]= (V381);          base[4]= (V386);
4555          base[5]= CMPcar((V382));          base[5]= CMPcar((V387));
4556          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4557          {object _funobj = (V380);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V385);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4558                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4559                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4560                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4561          return;          return;
4562          goto T1351;          goto T1364;
4563  T1351:;  T1364:;
4564          base[4]= (V380);          base[4]= (V385);
4565          base[5]= (V381);          base[5]= (V386);
4566          {object V383;          {object V388;
4567          V383= (V382);          V388= (V387);
4568           vs_top=base+6;           vs_top=base+6;
4569           while(V383!=Cnil)           while(V388!=Cnil)
4570           {vs_push((V383)->c.c_car);V383=(V383)->c.c_cdr;}           {vs_push((V388)->c.c_car);V388=(V388)->c.c_cdr;}
4571          vs_base=base+5;}          vs_base=base+5;}
4572          {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))
4573                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4574                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4575                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4576          return;}          return;}
4577          goto T1343;          goto T1356;
4578  T1343:;  T1356:;
4579          base[4]= (V379);          base[4]= (V384);
4580          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4581          Lfunctionp();          Lfunctionp();
4582          vs_top=sup;          vs_top=sup;
4583          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4584          goto T1361;}          goto T1374;}
4585          base[4]= (V370);          base[4]= (V375);
4586          base[5]= (V371);          base[5]= (V376);
4587          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4588          {object _funobj = (V369);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V374);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4589                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4590                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4591                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4592          return;          return;
4593          goto T1361;          goto T1374;
4594  T1361:;  T1374:;
4595          base[4]= VV[40];          base[4]= VV[40];
4596          base[5]= VV[18];          base[5]= VV[18];
4597          base[6]= VV[41];          base[6]= VV[41];
4598          base[7]= VV[42];          base[7]= VV[42];
4599          base[8]= V369;          base[8]= V374;
4600          base[9]= VV[43];          base[9]= VV[43];
4601          base[10]= VV[227];          base[10]= VV[230];
4602          base[11]= VV[45];          base[11]= VV[45];
4603          base[12]= VV[228];          base[12]= VV[231];
4604          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4605          (void) (*Lnk13)();          (void) (*Lnk13)();
4606          return;}          return;}
4607          goto T1311;          goto T1324;
4608  T1311:;  T1324:;
4609          base[4]= VV[47];          base[4]= VV[47];
4610          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4611          (void) (*Lnk272)();          (void) (*Lnk278)();
4612          return;          return;
4613          goto T1308;          goto T1321;
4614  T1308:;  T1321:;
4615          base[4]= (*(LnkLI317))((V370),(V371));          base[4]= (*(LnkLI324))((V375),(V376));
4616          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4617          return;          return;
4618          }          }
4619  }  }
4620  /*      local entry for function progn 'compile6952     */  /*      local entry for function progn 'compile7046     */
4621    
4622  static object LI173()  static object LI178()
4623    
4624  {        VMB173 VMS173 VMV173  {        VMB178 VMS178 VMV178
4625          goto TTL;          goto TTL;
4626  TTL:;  TTL:;
4627          base[0]= VV[48];          base[0]= VV[48];
4628          base[1]= VV[32];          base[1]= VV[32];
4629          base[2]= Cnil;          base[2]= Cnil;
4630          base[3]= VV[229];          base[3]= VV[232];
4631          base[4]= VV[230];          base[4]= VV[233];
4632          V384= (VV[318]->s.s_gfdef);          V389= (VV[325]->s.s_gfdef);
4633          base[5]= listA(3,VV[51],V384,VV[231]);          base[5]= listA(3,VV[51],V389,VV[234]);
4634          base[6]= Cnil;          base[6]= Cnil;
4635          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
4636          (void) (*Lnk275)();          (void) (*Lnk281)();
         vs_top=sup;  
         {object V385 = Cnil;  
         VMR173(V385)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile6960     */  
   
 static object LI174()  
   
 {        VMB174 VMS174 VMV174  
         goto TTL;  
 TTL:;  
         {object V386 = Cnil;  
         VMR174(V386)}  
         return Cnil;  
 }  
 /*      function definition for Defclass INTERNAL-TYPE-ERROR6980        */  
   
 static void L175()  
 {register object *base=vs_base;  
         register object *sup=base+VM175; VC175  
         vs_check;  
         vs_top=sup;  
         goto TTL;  
 TTL:;  
         base[0]= VV[232];  
         base[1]= VV[5];  
         base[2]= VV[233];  
         base[3]= Cnil;  
         base[4]= Cnil;  
         base[5]= Cnil;  
         symlispcall(VV[261],base+0,6);  
         return;  
 }  
 /*      local entry for function progn 'compile6996     */  
   
 static object LI176()  
   
 {        VMB176 VMS176 VMV176  
         goto TTL;  
 TTL:;  
         vs_base=vs_top;  
         (void) (*Lnk319)();  
         vs_top=sup;  
         {object V387 = Cnil;  
         VMR176(V387)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile7013     */  
   
 static object LI177()  
   
 {        VMB177 VMS177 VMV177  
         goto TTL;  
 TTL:;  
         base[0]= VV[234];  
         base[1]= (VV[8]->s.s_dbind);  
         vs_top=(vs_base=base+0)+2;  
         Ladjoin();  
4637          vs_top=sup;          vs_top=sup;
         (VV[8]->s.s_dbind)= vs_base[0];  
         {object V389 = Cnil;  
         VMR177(V389)}  
         base[0]=base[0];  
         return Cnil;  
 }  
 /*      local entry for function progn 'compile7037     */  
   
 static object LI178()  
   
 {        VMB178 VMS178 VMV178  
         goto TTL;  
 TTL:;  
         (void)(sputprop(VV[232],VV[9],Cnil));  
4638          {object V390 = Cnil;          {object V390 = Cnil;
4639          VMR178(V390)}          VMR178(V390)}
4640            base[0]=base[0];
4641          return Cnil;          return Cnil;
4642  }  }
4643  /*      local entry for function progn 'compile7049     */  /*      local entry for function progn 'compile7054     */
4644    
4645  static object LI179()  static object LI179()
4646    
# Line 4651  TTL:; Line 4651  TTL:;
4651          VMR179(V391)}          VMR179(V391)}
4652          return Cnil;          return Cnil;
4653  }  }
4654  /*      function definition for Defclass INTERNAL-PACKAGE-ERROR7069     */  /*      function definition for Defclass INTERNAL-TYPE-ERROR7074        */
4655    
4656  static void L180()  static void L180()
4657  {register object *base=vs_base;  {register object *base=vs_base;
# Line 4666  TTL:; Line 4666  TTL:;
4666          base[3]= Cnil;          base[3]= Cnil;
4667          base[4]= Cnil;          base[4]= Cnil;
4668          base[5]= Cnil;          base[5]= Cnil;
4669          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
4670          return;          return;
4671  }  }
4672  /*      local entry for function progn 'compile7085     */  /*      local entry for function progn 'compile7090     */
4673    
4674  static object LI181()  static object LI181()
4675    
# Line 4677  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) (*Lnk320)();          (void) (*Lnk326)();
4681          vs_top=sup;          vs_top=sup;
4682          {object V392 = Cnil;          {object V392 = Cnil;
4683          VMR181(V392)}          VMR181(V392)}
4684          base[0]=base[0];          base[0]=base[0];
4685          return Cnil;          return Cnil;
4686  }  }
4687  /*      local entry for function progn 'compile7102     */  /*      local entry for function progn 'compile7107     */
4688    
4689  static object LI182()  static object LI182()
4690    
# Line 4702  TTL:; Line 4702  TTL:;
4702          base[0]=base[0];          base[0]=base[0];
4703          return Cnil;          return Cnil;
4704  }  }
4705  /*      local entry for function progn 'compile7126     */  /*      local entry for function progn 'compile7131     */
4706    
4707  static object LI183()  static object LI183()
4708    
# Line 4714  TTL:; Line 4714  TTL:;
4714          VMR183(V395)}          VMR183(V395)}
4715          return Cnil;          return Cnil;
4716  }  }
4717  /*      local entry for function progn 'compile7138     */  /*      local entry for function progn 'compile7143     */
4718    
4719  static object LI184()  static object LI184()
4720    
# Line 4725  TTL:; Line 4725  TTL:;
4725          VMR184(V396)}          VMR184(V396)}
4726          return Cnil;          return Cnil;
4727  }  }
4728  /*      function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158      */  /*      function definition for Defclass INTERNAL-PACKAGE-ERROR7163     */
4729    
4730  static void L185()  static void L185()
4731  {register object *base=vs_base;  {register object *base=vs_base;
# Line 4740  TTL:; Line 4740  TTL:;
4740          base[3]= Cnil;          base[3]= Cnil;
4741          base[4]= Cnil;          base[4]= Cnil;
4742          base[5]= Cnil;          base[5]= Cnil;
4743          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
4744          return;          return;
4745  }  }
4746  /*      local entry for function progn 'compile7174     */  /*      local entry for function progn 'compile7179     */
4747    
4748  static object LI186()  static object LI186()
4749    
# Line 4751  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) (*Lnk321)();          (void) (*Lnk327)();
4755          vs_top=sup;          vs_top=sup;
4756          {object V397 = Cnil;          {object V397 = Cnil;
4757          VMR186(V397)}          VMR186(V397)}
4758          base[0]=base[0];          base[0]=base[0];
4759          return Cnil;          return Cnil;
4760  }  }
4761  /*      local entry for function progn 'compile7191     */  /*      local entry for function progn 'compile7196     */
4762    
4763  static object LI187()  static object LI187()
4764    
# Line 4776  TTL:; Line 4776  TTL:;
4776          base[0]=base[0];          base[0]=base[0];
4777          return Cnil;          return Cnil;
4778  }  }
4779  /*      local entry for function progn 'compile7215     */  /*      local entry for function progn 'compile7220     */
4780    
4781  static object LI188()  static object LI188()
4782    
# Line 4788  TTL:; Line 4788  TTL:;
4788          VMR188(V400)}          VMR188(V400)}
4789          return Cnil;          return Cnil;
4790  }  }
4791  /*      local entry for function progn 'compile7227     */  /*      local entry for function progn 'compile7232     */
4792    
4793  static object LI189()  static object LI189()
4794    
# Line 4799  TTL:; Line 4799  TTL:;
4799          VMR189(V401)}          VMR189(V401)}
4800          return Cnil;          return Cnil;
4801  }  }
4802  /*      function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247      */  /*      function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7252      */
4803    
4804  static void L190()  static void L190()
4805  {register object *base=vs_base;  {register object *base=vs_base;
# Line 4814  TTL:; Line 4814  TTL:;
4814          base[3]= Cnil;          base[3]= Cnil;
4815          base[4]= Cnil;          base[4]= Cnil;
4816          base[5]= Cnil;          base[5]= Cnil;
4817          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
4818          return;          return;
4819  }  }
4820  /*      local entry for function progn 'compile7263     */  /*      local entry for function progn 'compile7268     */
4821    
4822  static object LI191()  static object LI191()
4823    
# Line 4825  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) (*Lnk322)();          (void) (*Lnk328)();
4829          vs_top=sup;          vs_top=sup;
4830          {object V402 = Cnil;          {object V402 = Cnil;
4831          VMR191(V402)}          VMR191(V402)}
4832          base[0]=base[0];          base[0]=base[0];
4833          return Cnil;          return Cnil;
4834  }  }
4835  /*      local entry for function progn 'compile7280     */  /*      local entry for function progn 'compile7285     */
4836    
4837  static object LI192()  static object LI192()
4838    
# Line 4850  TTL:; Line 4850  TTL:;
4850          base[0]=base[0];          base[0]=base[0];
4851          return Cnil;          return Cnil;
4852  }  }
4853  /*      local entry for function progn 'compile7304     */  /*      local entry for function progn 'compile7309     */
4854    
4855  static object LI193()  static object LI193()
4856    
# Line 4862  TTL:; Line 4862  TTL:;
4862          VMR193(V405)}          VMR193(V405)}
4863          return Cnil;          return Cnil;
4864  }  }
4865  /*      local entry for function progn 'compile7316     */  /*      local entry for function progn 'compile7321     */
4866    
4867  static object LI194()  static object LI194()
4868    
# Line 4873  TTL:; Line 4873  TTL:;
4873          VMR194(V406)}          VMR194(V406)}
4874          return Cnil;          return Cnil;
4875  }  }
4876  /*      function definition for Defclass INTERNAL-UNBOUND-VARIABLE7336  */  /*      function definition for Defclass INTERNAL-SIMPLE-PARSE-ERROR7341        */
4877    
4878  static void L195()  static void L195()
4879  {register object *base=vs_base;  {register object *base=vs_base;
# Line 4888  TTL:; Line 4888  TTL:;
4888          base[3]= Cnil;          base[3]= Cnil;
4889          base[4]= Cnil;          base[4]= Cnil;
4890          base[5]= Cnil;          base[5]= Cnil;
4891          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
4892          return;          return;
4893  }  }
4894  /*      local entry for function progn 'compile7352     */  /*      local entry for function progn 'compile7357     */
4895    
4896  static object LI196()  static object LI196()
4897    
# Line 4899  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) (*Lnk323)();          (void) (*Lnk329)();
4903          vs_top=sup;          vs_top=sup;
4904          {object V407 = Cnil;          {object V407 = Cnil;
4905          VMR196(V407)}          VMR196(V407)}
4906          base[0]=base[0];          base[0]=base[0];
4907          return Cnil;          return Cnil;
4908  }  }
4909  /*      local entry for function progn 'compile7369     */  /*      local entry for function progn 'compile7374     */
4910    
4911  static object LI197()  static object LI197()
4912    
# Line 4924  TTL:; Line 4924  TTL:;
4924          base[0]=base[0];          base[0]=base[0];
4925          return Cnil;          return Cnil;
4926  }  }
4927  /*      local entry for function progn 'compile7393     */  /*      local entry for function progn 'compile7398     */
4928    
4929  static object LI198()  static object LI198()
4930    
# Line 4936  TTL:; Line 4936  TTL:;
4936          VMR198(V410)}          VMR198(V410)}
4937          return Cnil;          return Cnil;
4938  }  }
4939  /*      local entry for function progn 'compile7405     */  /*      local entry for function progn 'compile7410     */
4940    
4941  static object LI199()  static object LI199()
4942    
# Line 4947  TTL:; Line 4947  TTL:;
4947          VMR199(V411)}          VMR199(V411)}
4948          return Cnil;          return Cnil;
4949  }  }
4950  /*      function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7425        */  /*      function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7430      */
4951    
4952  static void L200()  static void L200()
4953  {register object *base=vs_base;  {register object *base=vs_base;
# Line 4962  TTL:; Line 4962  TTL:;
4962          base[3]= Cnil;          base[3]= Cnil;
4963          base[4]= Cnil;          base[4]= Cnil;
4964          base[5]= Cnil;          base[5]= Cnil;
4965          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
4966          return;          return;
4967  }  }
4968  /*      local entry for function progn 'compile7441     */  /*      local entry for function progn 'compile7446     */
4969    
4970  static object LI201()  static object LI201()
4971    
# Line 4973  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) (*Lnk324)();          (void) (*Lnk330)();
4977          vs_top=sup;          vs_top=sup;
4978          {object V412 = Cnil;          {object V412 = Cnil;
4979          VMR201(V412)}          VMR201(V412)}
4980          base[0]=base[0];          base[0]=base[0];
4981          return Cnil;          return Cnil;
4982  }  }
4983  /*      local entry for function progn 'compile7458     */  /*      local entry for function progn 'compile7463     */
4984    
4985  static object LI202()  static object LI202()
4986    
# Line 4998  TTL:; Line 4998  TTL:;
4998          base[0]=base[0];          base[0]=base[0];
4999          return Cnil;          return Cnil;
5000  }  }
5001  /*      local entry for function progn 'compile7482     */  /*      local entry for function progn 'compile7487     */
5002    
5003  static object LI203()  static object LI203()
5004    
# Line 5010  TTL:; Line 5010  TTL:;
5010          VMR203(V415)}          VMR203(V415)}
5011          return Cnil;          return Cnil;
5012  }  }
5013  /*      local entry for function progn 'compile7494     */  /*      local entry for function progn 'compile7499     */
5014    
5015  static object LI204()  static object LI204()
5016    
# Line 5021  TTL:; Line 5021  TTL:;
5021          VMR204(V416)}          VMR204(V416)}
5022          return Cnil;          return Cnil;
5023  }  }
5024  /*      function definition for Defclass INTERNAL-END-OF-FILE7514       */  /*      function definition for Defclass INTERNAL-UNBOUND-VARIABLE7519  */
5025    
5026  static void L205()  static void L205()
5027  {register object *base=vs_base;  {register object *base=vs_base;
# Line 5036  TTL:; Line 5036  TTL:;
5036          base[3]= Cnil;          base[3]= Cnil;
5037          base[4]= Cnil;          base[4]= Cnil;
5038          base[5]= Cnil;          base[5]= Cnil;
5039          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
5040          return;          return;
5041  }  }
5042  /*      local entry for function progn 'compile7530     */  /*      local entry for function progn 'compile7535     */
5043    
5044  static object LI206()  static object LI206()
5045    
# Line 5047  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) (*Lnk325)();          (void) (*Lnk331)();
5051          vs_top=sup;          vs_top=sup;
5052          {object V417 = Cnil;          {object V417 = Cnil;
5053          VMR206(V417)}          VMR206(V417)}
5054          base[0]=base[0];          base[0]=base[0];
5055          return Cnil;          return Cnil;
5056  }  }
5057  /*      local entry for function progn 'compile7547     */  /*      local entry for function progn 'compile7552     */
5058    
5059  static object LI207()  static object LI207()
5060    
# Line 5072  TTL:; Line 5072  TTL:;
5072          base[0]=base[0];          base[0]=base[0];
5073          return Cnil;          return Cnil;
5074  }  }
5075  /*      local entry for function progn 'compile7571     */  /*      local entry for function progn 'compile7576     */
5076    
5077  static object LI208()  static object LI208()
5078    
# Line 5084  TTL:; Line 5084  TTL:;
5084          VMR208(V420)}          VMR208(V420)}
5085          return Cnil;          return Cnil;
5086  }  }
5087  /*      local entry for function progn 'compile7583     */  /*      local entry for function progn 'compile7588     */
5088    
5089  static object LI209()  static object LI209()
5090    
# Line 5095  TTL:; Line 5095  TTL:;
5095          VMR209(V421)}          VMR209(V421)}
5096          return Cnil;          return Cnil;
5097  }  }
5098  /*      function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */  /*      function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7608        */
5099    
5100  static void L210()  static void L210()
5101  {register object *base=vs_base;  {register object *base=vs_base;
# Line 5110  TTL:; Line 5110  TTL:;
5110          base[3]= Cnil;          base[3]= Cnil;
5111          base[4]= Cnil;          base[4]= Cnil;
5112          base[5]= Cnil;          base[5]= Cnil;
5113          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
5114          return;          return;
5115  }  }
5116  /*      local entry for function progn 'compile7619     */  /*      local entry for function progn 'compile7624     */
5117    
5118  static object LI211()  static object LI211()
5119    
# Line 5121  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) (*Lnk326)();          (void) (*Lnk332)();
5125          vs_top=sup;          vs_top=sup;
5126          {object V422 = Cnil;          {object V422 = Cnil;
5127          VMR211(V422)}          VMR211(V422)}
5128          base[0]=base[0];          base[0]=base[0];
5129          return Cnil;          return Cnil;
5130  }  }
5131  /*      local entry for function progn 'compile7636     */  /*      local entry for function progn 'compile7641     */
5132    
5133  static object LI212()  static object LI212()
5134    
# Line 5146  TTL:; Line 5146  TTL:;
5146          base[0]=base[0];          base[0]=base[0];
5147          return Cnil;          return Cnil;
5148  }  }
5149  /*      local entry for function progn 'compile7660     */  /*      local entry for function progn 'compile7665     */
5150    
5151  static object LI213()  static object LI213()
5152    
# Line 5158  TTL:; Line 5158  TTL:;
5158          VMR213(V425)}          VMR213(V425)}
5159          return Cnil;          return Cnil;
5160  }  }
5161  /*      local entry for function progn 'compile7672     */  /*      local entry for function progn 'compile7677     */
5162    
5163  static object LI214()  static object LI214()
5164    
# Line 5169  TTL:; Line 5169  TTL:;
5169          VMR214(V426)}          VMR214(V426)}
5170          return Cnil;          return Cnil;
5171  }  }
5172  /*      function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7692       */  /*      function definition for Defclass INTERNAL-END-OF-FILE7697       */
5173    
5174  static void L215()  static void L215()
5175  {register object *base=vs_base;  {register object *base=vs_base;
# Line 5184  TTL:; Line 5184  TTL:;
5184          base[3]= Cnil;          base[3]= Cnil;
5185          base[4]= Cnil;          base[4]= Cnil;
5186          base[5]= Cnil;          base[5]= Cnil;
5187          symlispcall(VV[261],base+0,6);          symlispcall(VV[267],base+0,6);
5188          return;          return;
5189  }  }
5190  /*      local entry for function progn 'compile7708     */  /*      local entry for function progn 'compile7713     */
5191    
5192  static object LI216()  static object LI216()
5193    
# Line 5195  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) (*Lnk327)();          (void) (*Lnk333)();
5199          vs_top=sup;          vs_top=sup;
5200          {object V427 = Cnil;          {object V427 = Cnil;
5201          VMR216(V427)}          VMR216(V427)}
5202          base[0]=base[0];          base[0]=base[0];
5203          return Cnil;          return Cnil;
5204  }  }
5205  /*      local entry for function progn 'compile7725     */  /*      local entry for function progn 'compile7730     */
5206    
5207  static object LI217()  static object LI217()
5208    
# Line 5220  TTL:; Line 5220  TTL:;
5220          base[0]=base[0];          base[0]=base[0];
5221          return Cnil;          return Cnil;
5222  }  }
5223  /*      local entry for function progn 'compile7749     */  /*      local entry for function progn 'compile7754     */
5224    
5225  static object LI218()  static object LI218()
5226    
# Line 5232  TTL:; Line 5232  TTL:;
5232          VMR218(V430)}          VMR218(V430)}
5233          return Cnil;          return Cnil;
5234  }  }
5235  /*      local entry for function progn 'compile7761     */  /*      local entry for function progn 'compile7766     */
5236    
5237  static object LI219()  static object LI219()
5238    
# Line 5243  TTL:; Line 5243  TTL:;
5243          VMR219(V431)}          VMR219(V431)}
5244          return Cnil;          return Cnil;
5245  }  }
5246  /*      local entry for function progn 'compile7777     */  /*      function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7786 */
   
 static object LI220()  
5247    
5248  {        VMB220 VMS220 VMV220  static void L220()
5249    {register object *base=vs_base;
5250            register object *sup=base+VM220; VC220
5251            vs_check;
5252            vs_top=sup;
5253          goto TTL;          goto TTL;
5254  TTL:;  TTL:;
5255          base[0]= VV[259];          base[0]= VV[259];
5256          vs_top=(vs_base=base+0)+1;          base[1]= VV[5];
5257          (void) (*Lnk328)();          base[2]= VV[260];
5258          vs_top=sup;          base[3]= Cnil;
5259          {object V432 = Cnil;          base[4]= Cnil;
5260          VMR220(V432)}          base[5]= Cnil;
5261          base[0]=base[0];          symlispcall(VV[267],base+0,6);
5262          return Cnil;          return;
5263  }  }
5264  /*      local entry for function progn 'compile7789     */  /*      local entry for function progn 'compile7802     */
5265    
5266  static object LI221()  static object LI221()
5267    
5268  {        VMB221 VMS221 VMV221  {        VMB221 VMS221 VMV221
5269          goto TTL;          goto TTL;
5270  TTL:;  TTL:;
5271          if(!((VV[259])->s.s_dbind!=OBJNULL)){          vs_base=vs_top;
5272          goto T1506;}          (void) (*Lnk334)();
         goto T1505;  
         goto T1506;  
 T1506:;  
         base[0]= VV[16];  
         vs_top=(vs_base=base+0)+1;  
         (void) (*Lnk329)();  
5273          vs_top=sup;          vs_top=sup;
5274          (VV[259]->s.s_dbind)= vs_base[0];          {object V432 = Cnil;
5275          goto T1505;          VMR221(V432)}
 T1505:;  
         {object V433 = Cnil;  
         VMR221(V433)}  
5276          base[0]=base[0];          base[0]=base[0];
5277          return Cnil;          return Cnil;
5278  }  }
5279  /*      local entry for function progn 'compile7802     */  /*      local entry for function progn 'compile7819     */
5280    
5281  static object LI222()  static object LI222()
5282    
5283  {        VMB222 VMS222 VMV222  {        VMB222 VMS222 VMV222
5284          goto TTL;          goto TTL;
5285  TTL:;  TTL:;
5286            base[0]= VV[261];
5287            base[1]= (VV[8]->s.s_dbind);
5288            vs_top=(vs_base=base+0)+2;
5289            Ladjoin();
5290            vs_top=sup;
5291            (VV[8]->s.s_dbind)= vs_base[0];
5292          {object V434 = Cnil;          {object V434 = Cnil;
5293          VMR222(V434)}          VMR222(V434)}
5294            base[0]=base[0];
5295          return Cnil;          return Cnil;
5296  }  }
5297  /*      local entry for function SIMPLE-CONDITION-CLASS-P       */  /*      local entry for function progn 'compile7843     */
5298    
5299  static object LI223(V436)  static object LI223()
5300    
 register object V436;  
5301  {        VMB223 VMS223 VMV223  {        VMB223 VMS223 VMV223
5302          goto TTL;          goto TTL;
5303  TTL:;  TTL:;
5304          if(!(type_of((V436))==t_symbol)){          (void)(sputprop(VV[259],VV[9],Cnil));
5305          goto T1511;}          {object V435 = Cnil;
5306          base[0]= (V436);          VMR223(V435)}
5307          vs_top=(vs_base=base+0)+1;          return Cnil;
5308          (void) (*Lnk329)();  }
5309    /*      local entry for function progn 'compile7855     */
5310    
5311    static object LI224()
5312    
5313    {        VMB224 VMS224 VMV224
5314            goto TTL;
5315    TTL:;
5316            {object V436 = Cnil;
5317            VMR224(V436)}
5318            return Cnil;
5319    }
5320    /*      function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7875       */
5321    
5322    static void L225()
5323    {register object *base=vs_base;
5324            register object *sup=base+VM225; VC225
5325            vs_check;
5326          vs_top=sup;          vs_top=sup;
5327          V436= vs_base[0];          goto TTL;
5328          goto T1511;  TTL:;
5329  T1511:;          base[0]= VV[262];
         base[0]= (V436);  
5330          base[1]= VV[5];          base[1]= VV[5];
5331          vs_top=(vs_base=base+0)+2;          base[2]= VV[263];
5332          (void) (*Lnk330)();          base[3]= Cnil;
5333            base[4]= Cnil;
5334            base[5]= Cnil;
5335            symlispcall(VV[267],base+0,6);
5336            return;
5337    }
5338    /*      local entry for function progn 'compile7891     */
5339    
5340    static object LI226()
5341    
5342    {        VMB226 VMS226 VMV226
5343            goto TTL;
5344    TTL:;
5345            vs_base=vs_top;
5346            (void) (*Lnk335)();
5347          vs_top=sup;          vs_top=sup;
         if((vs_base[0])!=Cnil){  
         goto T1516;}  
5348          {object V437 = Cnil;          {object V437 = Cnil;
5349          VMR223(V437)}          VMR226(V437)}
5350          goto T1516;          base[0]=base[0];
5351  T1516:;{object V439;          return Cnil;
5352          V439= (VV[259]->s.s_dbind);  }
5353          base[0]= (V436);  /*      local entry for function progn 'compile7908     */
5354    
5355    static object LI227()
5356    
5357    {        VMB227 VMS227 VMV227
5358            goto TTL;
5359    TTL:;
5360            base[0]= VV[264];
5361            base[1]= (VV[8]->s.s_dbind);
5362            vs_top=(vs_base=base+0)+2;
5363            Ladjoin();
5364            vs_top=sup;
5365            (VV[8]->s.s_dbind)= vs_base[0];
5366            {object V439 = Cnil;
5367            VMR227(V439)}
5368            base[0]=base[0];
5369            return Cnil;
5370    }
5371    /*      local entry for function progn 'compile7932     */
5372    
5373    static object LI228()
5374    
5375    {        VMB228 VMS228 VMV228
5376            goto TTL;
5377    TTL:;
5378            (void)(sputprop(VV[262],VV[9],Cnil));
5379            {object V440 = Cnil;
5380            VMR228(V440)}
5381            return Cnil;
5382    }
5383    /*      local entry for function progn 'compile7944     */
5384    
5385    static object LI229()
5386    
5387    {        VMB229 VMS229 VMV229
5388            goto TTL;
5389    TTL:;
5390            {object V441 = Cnil;
5391            VMR229(V441)}
5392            return Cnil;
5393    }
5394    /*      local entry for function progn 'compile7960     */
5395    
5396    static object LI230()
5397    
5398    {        VMB230 VMS230 VMV230
5399            goto TTL;
5400    TTL:;
5401            base[0]= VV[265];
5402          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5403          (void) (*Lnk331)(Lclptr331);          (void) (*Lnk336)();
5404          vs_top=sup;          vs_top=sup;
         V440= vs_base[0];  
         {register object x= V439,V438= V440;  
         while(V438!=Cnil)  
         if(eql(x,V438->c.c_car)){  
         {object V441 = V438;  
         VMR223(V441)}  
         }else V438=V438->c.c_cdr;  
5405          {object V442 = Cnil;          {object V442 = Cnil;
5406          VMR223(V442)}}}          VMR230(V442)}
5407            base[0]=base[0];
5408            return Cnil;
5409    }
5410    /*      local entry for function progn 'compile7972     */
5411    
5412    static object LI231()
5413    
5414    {        VMB231 VMS231 VMV231
5415            goto TTL;
5416    TTL:;
5417            if(!((VV[265])->s.s_dbind!=OBJNULL)){
5418            goto T1532;}
5419            goto T1531;
5420            goto T1532;
5421    T1532:;
5422            base[0]= VV[16];
5423            vs_top=(vs_base=base+0)+1;
5424            (void) (*Lnk337)();
5425            vs_top=sup;
5426            (VV[265]->s.s_dbind)= vs_base[0];
5427            goto T1531;
5428    T1531:;
5429            {object V443 = Cnil;
5430            VMR231(V443)}
5431          base[0]=base[0];          base[0]=base[0];
5432          return Cnil;          return Cnil;
5433  }  }
5434  static void LnkT331(ptr) object *ptr;{ call_or_link_closure(VV[331],(void **)(void *)&Lnk331,(void **)(void *)&Lclptr331);} /* CLASS-PRECEDENCE-LIST */  /*      local entry for function progn 'compile7985     */
5435  static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* TYPEP */  
5436  static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* FIND-CLASS */  static object LI232()
5437  static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* *MAKE-SPECIAL */  
5438  static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7692 */  {        VMB232 VMS232 VMV232
5439  static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7603 */          goto TTL;
5440  static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* Defclass INTERNAL-END-OF-FILE7514 */  TTL:;
5441  static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7425 */          {object V444 = Cnil;
5442  static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-UNBOUND-VARIABLE7336 */          VMR232(V444)}
5443  static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7247 */          return Cnil;
5444  static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7158 */  }
5445  static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-PACKAGE-ERROR7069 */  /*      local entry for function SIMPLE-CONDITION-CLASS-P       */
5446  static void LnkT319(){ call_or_link(VV[319],(void **)(void *)&Lnk319);} /* Defclass INTERNAL-TYPE-ERROR6980 */  
5447  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 */  static object LI233(V446)
5448  static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* Defclass INTERNAL-SIMPLE-ERROR6686 */  
5449  static void LnkT314(ptr) object *ptr;{ call_or_link_closure(VV[314],(void **)(void *)&Lnk314,(void **)(void *)&Lclptr314);} /* INTERNAL-ERROR-FUNCTION-NAME */  register object V446;
5450  static void LnkT313(){ call_or_link(VV[313],(void **)(void *)&Lnk313);} /* Defclass INTERNAL-ERROR6259 */  {        VMB233 VMS233 VMV233
5451  static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* Defclass ABORT-FAILURE5957 */          goto TTL;
5452  static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* Defclass FLOATING-POINT-UNDERFLOW5868 */  TTL:;
5453  static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass FLOATING-POINT-OVERFLOW5779 */          if(!(type_of((V446))==t_symbol)){
5454  static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass DIVISION-BY-ZERO5690 */          goto T1537;}
5455  static void LnkT307(){ call_or_link(VV[307],(void **)(void *)&Lnk307);} /* Defclass ARITHMETIC-ERROR5600 */          base[0]= (V446);
5456  static void LnkT305(){ call_or_link(VV[305],(void **)(void *)&Lnk305);} /* Defclass UNDEFINED-FUNCTION5302 */          vs_top=(vs_base=base+0)+1;
5457  static void LnkT303(ptr) object *ptr;{ call_or_link_closure(VV[303],(void **)(void *)&Lnk303,(void **)(void *)&Lclptr303);} /* CELL-ERROR-NAME */          (void) (*Lnk337)();
5458  static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* Defclass UNBOUND-VARIABLE5004 */          vs_top=sup;
5459  static void LnkT301(){ call_or_link(VV[301],(void **)(void *)&Lnk301);} /* Defclass CELL-ERROR4914 */          V446= vs_base[0];
5460  static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* PACKAGE-ERROR-MESSAGE */          goto T1537;
5461  static void LnkT298(ptr) object *ptr;{ call_or_link_closure(VV[298],(void **)(void *)&Lnk298,(void **)(void *)&Lclptr298);} /* PACKAGE-ERROR-PACKAGE */  T1537:;
5462  static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass PACKAGE-ERROR4614 */          base[0]= (V446);
5463  static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* Defclass FILE-ERROR4524 */          base[1]= VV[5];
5464  static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* STREAM-ERROR-STREAM */          vs_top=(vs_base=base+0)+2;
5465  static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* Defclass END-OF-FILE4226 */          (void) (*Lnk338)();
5466  static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass STREAM-ERROR4136 */          vs_top=sup;
5467  static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass CONTROL-ERROR4047 */          if((vs_base[0])!=Cnil){
5468  static void LnkT290(){ call_or_link(VV[290],(void **)(void *)&Lnk290);} /* Defclass PROGRAM-ERROR3958 */          goto T1542;}
5469  static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CASE-FAILURE-POSSIBILITIES */          {object V447 = Cnil;
5470  static void LnkT287(ptr) object *ptr;{ call_or_link_closure(VV[287],(void **)(void *)&Lnk287,(void **)(void *)&Lclptr287);} /* CASE-FAILURE-NAME */          VMR233(V447)}
5471  static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass CASE-FAILURE3658 */          goto T1542;
5472  static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* Defclass SIMPLE-TYPE-ERROR3569 */  T1542:;{object V449;
5473  static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* TYPE-ERROR-EXPECTED-TYPE */          V449= (VV[265]->s.s_dbind);
5474  static void LnkT282(ptr) object *ptr;{ call_or_link_closure(VV[282],(void **)(void *)&Lnk282,(void **)(void *)&Lclptr282);} /* TYPE-ERROR-DATUM */          base[0]= (V446);
5475  static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* Defclass TYPE-ERROR3269 */          vs_top=(vs_base=base+0)+1;
5476  static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* Defclass STORAGE-EXHAUSTED3180 */          (void) (*Lnk339)(Lclptr339);
5477  static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* Defclass STACK-OVERFLOW3091 */          vs_top=sup;
5478  static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* Defclass STORAGE-CONDITION3002 */          V450= vs_base[0];
5479  static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* Defclass SIMPLE-ERROR2913 */          {register object x= V449,V448= V450;
5480  static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* Defclass SIMPLE-WARNING2824 */          while(V448!=Cnil)
5481  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* LOAD-DEFMETHOD */          if(eql(x,V448->c.c_car)){
5482  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 */          {object V451 = V448;
5483  static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* ERROR */          VMR233(V451)}
5484            }else V448=V448->c.c_cdr;
5485            {object V452 = Cnil;
5486            VMR233(V452)}}}
5487            base[0]=base[0];
5488            return Cnil;
5489    }
5490    static void LnkT339(ptr) object *ptr;{ call_or_link_closure(VV[339],(void **)(void *)&Lnk339,(void **)(void *)&Lclptr339);} /* CLASS-PRECEDENCE-LIST */
5491    static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* TYPEP */
5492    static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* FIND-CLASS */
5493    static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* *MAKE-SPECIAL */
5494    static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7875 */
5495    static void LnkT334(){ call_or_link(VV[334],(void **)(void *)&Lnk334);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7786 */
5496    static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* Defclass INTERNAL-END-OF-FILE7697 */
5497    static void LnkT332(){ call_or_link(VV[332],(void **)(void *)&Lnk332);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7608 */
5498    static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* Defclass INTERNAL-UNBOUND-VARIABLE7519 */
5499    static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7430 */
5500    static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* Defclass INTERNAL-SIMPLE-PARSE-ERROR7341 */
5501    static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7252 */
5502    static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-PACKAGE-ERROR7163 */
5503    static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-TYPE-ERROR7074 */
5504    static object  LnkTLI324(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[324],(void **)(void *)&LnkLI324,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */
5505    static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-SIMPLE-ERROR6780 */
5506    static void LnkT321(ptr) object *ptr;{ call_or_link_closure(VV[321],(void **)(void *)&Lnk321,(void **)(void *)&Lclptr321);} /* INTERNAL-ERROR-FUNCTION-NAME */
5507    static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-ERROR6353 */
5508    static void LnkT318(){ call_or_link(VV[318],(void **)(void *)&Lnk318);} /* Defclass ABORT-FAILURE6051 */
5509    static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* Defclass FLOATING-POINT-UNDERFLOW5962 */
5510    static void LnkT316(){ call_or_link(VV[316],(void **)(void *)&Lnk316);} /* Defclass FLOATING-POINT-OVERFLOW5873 */
5511    static void LnkT315(){ call_or_link(VV[315],(void **)(void *)&Lnk315);} /* Defclass DIVISION-BY-ZERO5784 */
5512    static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* Defclass ARITHMETIC-ERROR5694 */
5513    static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* Defclass UNDEFINED-FUNCTION5396 */
5514    static void LnkT310(ptr) object *ptr;{ call_or_link_closure(VV[310],(void **)(void *)&Lnk310,(void **)(void *)&Lclptr310);} /* CELL-ERROR-NAME */
5515    static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass UNBOUND-VARIABLE5098 */
5516    static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass CELL-ERROR5008 */
5517    static void LnkT306(ptr) object *ptr;{ call_or_link_closure(VV[306],(void **)(void *)&Lnk306,(void **)(void *)&Lclptr306);} /* PACKAGE-ERROR-MESSAGE */
5518    static void LnkT305(ptr) object *ptr;{ call_or_link_closure(VV[305],(void **)(void *)&Lnk305,(void **)(void *)&Lclptr305);} /* PACKAGE-ERROR-PACKAGE */
5519    static void LnkT304(){ call_or_link(VV[304],(void **)(void *)&Lnk304);} /* Defclass PACKAGE-ERROR4708 */
5520    static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* Defclass FILE-ERROR4618 */
5521    static void LnkT301(ptr) object *ptr;{ call_or_link_closure(VV[301],(void **)(void *)&Lnk301,(void **)(void *)&Lclptr301);} /* STREAM-ERROR-STREAM */
5522    static void LnkT300(){ call_or_link(VV[300],(void **)(void *)&Lnk300);} /* Defclass END-OF-FILE4320 */
5523    static void LnkT299(){ call_or_link(VV[299],(void **)(void *)&Lnk299);} /* Defclass STREAM-ERROR4230 */
5524    static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* Defclass PARSE-ERROR4141 */
5525    static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass CONTROL-ERROR4052 */
5526    static void LnkT296(){ call_or_link(VV[296],(void **)(void *)&Lnk296);} /* Defclass PROGRAM-ERROR3963 */
5527    static void LnkT294(ptr) object *ptr;{ call_or_link_closure(VV[294],(void **)(void *)&Lnk294,(void **)(void *)&Lclptr294);} /* CASE-FAILURE-POSSIBILITIES */
5528    static void LnkT293(ptr) object *ptr;{ call_or_link_closure(VV[293],(void **)(void *)&Lnk293,(void **)(void *)&Lclptr293);} /* CASE-FAILURE-NAME */
5529    static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass CASE-FAILURE3663 */
5530    static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass SIMPLE-TYPE-ERROR3574 */
5531    static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* TYPE-ERROR-EXPECTED-TYPE */
5532    static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* TYPE-ERROR-DATUM */
5533    static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* Defclass TYPE-ERROR3274 */
5534    static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass STORAGE-EXHAUSTED3185 */
5535    static void LnkT285(){ call_or_link(VV[285],(void **)(void *)&Lnk285);} /* Defclass STACK-OVERFLOW3096 */
5536    static void LnkT284(){ call_or_link(VV[284],(void **)(void *)&Lnk284);} /* Defclass STORAGE-CONDITION3007 */
5537    static void LnkT283(){ call_or_link(VV[283],(void **)(void *)&Lnk283);} /* Defclass SIMPLE-ERROR2918 */
5538    static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* Defclass SIMPLE-WARNING2829 */
5539    static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* LOAD-DEFMETHOD */
5540    static object  LnkTLI279(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[279],(void **)(void *)&LnkLI279,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */
5541    static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* ERROR */
5542  static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */  static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */
5543  static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* CCLOSURE-ENV-NTHCDR */
5544  static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* STRUCTURE-SUBTYPE-P */  static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* STRUCTURE-SUBTYPE-P */
5545  static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* PROCLAIM-DEFGENERIC */  static void LnkT275(){ call_or_link(VV[275],(void **)(void *)&Lnk275);} /* PROCLAIM-DEFGENERIC */
5546  static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass SIMPLE-CONDITION2528 */  static void LnkT274(){ call_or_link(VV[274],(void **)(void *)&Lnk274);} /* Defclass SIMPLE-CONDITION2533 */
5547  static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */  static void LnkT272(ptr) object *ptr;{ call_or_link_closure(VV[272],(void **)(void *)&Lnk272,(void **)(void *)&Lclptr272);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */
5548  static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */  static void LnkT271(ptr) object *ptr;{ call_or_link_closure(VV[271],(void **)(void *)&Lnk271,(void **)(void *)&Lclptr271);} /* SIMPLE-CONDITION-FORMAT-STRING */
5549  static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* Defclass ERROR2431 */  static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* Defclass ERROR2436 */
5550  static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* Defclass SERIOUS-CONDITION2342 */  static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* Defclass SERIOUS-CONDITION2347 */
5551  static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* Defclass WARNING2253 */  static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass WARNING2258 */
5552  static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* REMOVE */  static void LnkT266(){ call_or_link(VV[266],(void **)(void *)&Lnk266);} /* REMOVE */
5553    
5554  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
5555  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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