/[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.2 by camm, Thu Feb 27 18:32:10 2003 UTC revision 1.3 by camm, Thu Feb 27 23:54:22 2003 UTC
# Line 309  TTL:; Line 309  TTL:;
309          VMR17(V22)}          VMR17(V22)}
310          return Cnil;          return Cnil;
311  }  }
312  /*      function definition for SIMPLE-CONDITION-PRINTER        */  /*      local entry for function SIMPLE-CONDITION-PRINTER       */
313    
314  static void L18()  static object LI18(V25,V26)
315  {register object *base=vs_base;  
316          register object *sup=base+VM18; VC18  object V25;object V26;
317          vs_reserve(VM18);  {        VMB18 VMS18 VMV18
         {object V23;  
         object V24;  
         check_arg(2);  
         V23=(base[0]);  
         V24=(base[1]);  
         vs_top=sup;  
318          goto TTL;          goto TTL;
319  TTL:;  TTL:;
320          base[2]= (V24);          base[0]= (V26);
321          base[4]= (V23);          base[2]= (V25);
322          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
323          (void) (*Lnk265)(Lclptr265);          (void) (*Lnk265)(Lclptr265);
324          vs_top=sup;          vs_top=sup;
325          base[3]= vs_base[0];          base[1]= vs_base[0];
326          {object V25;          {object V27;
327          base[4]= (V23);          base[2]= (V25);
328          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
329          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk266)(Lclptr266);
330          vs_top=sup;          vs_top=sup;
331          V25= vs_base[0];          V27= vs_base[0];
332           vs_top=base+4;           vs_top=base+2;
333           while(!endp(V25))           while(!endp(V27))
334           {vs_push(car(V25));V25=cdr(V25);}           {vs_push(car(V27));V27=cdr(V27);}
335          vs_base=base+2;}          vs_base=base+0;}
336          Lformat();          Lformat();
337          return;          vs_top=sup;
338          }          {object V28 = vs_base[0];
339            VMR18(V28)}
340            base[0]=base[0];
341            return Cnil;
342  }  }
343  /*      function definition for Defclass SIMPLE-CONDITION2523   */  /*      function definition for Defclass SIMPLE-CONDITION2523   */
344    
# Line 356  TTL:; Line 353  TTL:;
353          base[0]= VV[16];          base[0]= VV[16];
354          base[1]= VV[5];          base[1]= VV[5];
355          base[2]= VV[17];          base[2]= VV[17];
356          V26= 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]);
357          base[4]= VV[26];          base[4]= VV[26];
358          base[5]= symbol_function(VV[267]);          base[5]= symbol_function(VV[267]);
359          base[6]= VV[18];          base[6]= VV[18];
# Line 371  TTL:; Line 368  TTL:;
368          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
369          LlistA();          LlistA();
370          vs_top=sup;          vs_top=sup;
371          V27= vs_base[0];          V30= vs_base[0];
372          base[3]= list(2,/* INLINE-ARGS */V26,V27);          base[3]= list(2,/* INLINE-ARGS */V29,V30);
373          base[4]= Cnil;          base[4]= Cnil;
374          base[5]= Cnil;          base[5]= Cnil;
375          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 388  TTL:; Line 385  TTL:;
385          vs_base=vs_top;          vs_base=vs_top;
386          (void) (*Lnk268)();          (void) (*Lnk268)();
387          vs_top=sup;          vs_top=sup;
388          {object V28 = Cnil;          {object V31 = Cnil;
389          VMR20(V28)}          VMR20(V31)}
390          base[0]=base[0];          base[0]=base[0];
391          return Cnil;          return Cnil;
392  }  }
# Line 406  TTL:; Line 403  TTL:;
403          Ladjoin();          Ladjoin();
404          vs_top=sup;          vs_top=sup;
405          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
406          {object V30 = Cnil;          {object V33 = Cnil;
407          VMR21(V30)}          VMR21(V33)}
408          base[0]=base[0];          base[0]=base[0];
409          return Cnil;          return Cnil;
410  }  }
# Line 419  static object LI22() Line 416  static object LI22()
416          goto TTL;          goto TTL;
417  TTL:;  TTL:;
418          (void)(sputprop(VV[16],VV[9],Cnil));          (void)(sputprop(VV[16],VV[9],Cnil));
419          {object V31 = Cnil;          {object V34 = Cnil;
420          VMR22(V31)}          VMR22(V34)}
421          return Cnil;          return Cnil;
422  }  }
423  /*      local entry for function progn 'compile2598     */  /*      local entry for function progn 'compile2598     */
# Line 435  TTL:; Line 432  TTL:;
432          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
433          (void) (*Lnk269)();          (void) (*Lnk269)();
434          vs_top=sup;          vs_top=sup;
435          {object V32 = Cnil;          {object V35 = Cnil;
436          VMR23(V32)}          VMR23(V35)}
437          base[0]=base[0];          base[0]=base[0];
438          return Cnil;          return Cnil;
439  }  }
# Line 446  static void L24() Line 443  static void L24()
443  {register object *base=vs_base;  {register object *base=vs_base;
444          register object *sup=base+VM24; VC24          register object *sup=base+VM24; VC24
445          vs_reserve(VM24);          vs_reserve(VM24);
446          {object V33;          {object V36;
447          register object V34;          register object V37;
448          register object V35;          register object V38;
449          register object V36;          register object V39;
450          check_arg(4);          check_arg(4);
451          V33=(base[0]);          V36=(base[0]);
452          V34=(base[1]);          V37=(base[1]);
453          V35=(base[2]);          V38=(base[2]);
454          V36=(base[3]);          V39=(base[3]);
455          vs_top=sup;          vs_top=sup;
456          goto TTL;          goto TTL;
457  TTL:;  TTL:;
458          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
459          goto T107;}          goto T107;}
460          if(((V34))==Cnil){          if(((V37))==Cnil){
461          goto T110;}          goto T110;}
462          base[4]= (V34);          base[4]= (V37);
463          base[5]= VV[35];          base[5]= VV[35];
464          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
465          (void) (*Lnk270)();          (void) (*Lnk270)();
466          vs_top=sup;          vs_top=sup;
467          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
468          goto T114;}          goto T114;}
469          base[4]= structure_ref((V34),VV[35],0);          base[4]= structure_ref((V37),VV[35],0);
470          base[5]= structure_ref((V34),VV[35],1);          base[5]= structure_ref((V37),VV[35],1);
471          base[6]= structure_ref((V34),VV[35],2);          base[6]= structure_ref((V37),VV[35],2);
472          base[7]= (V35);          base[7]= (V38);
473          base[8]= (V36);          base[8]= (V39);
474          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
475          {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))
476                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 482  TTL:; Line 479  TTL:;
479          return;          return;
480          goto T114;          goto T114;
481  T114:;  T114:;
482          if(!(type_of((V34))==t_fixnum)){          if(!(type_of((V37))==t_fixnum)){
483          goto T124;}          goto T124;}
484          {object V39;          {object V42;
485          if(type_of(V35)==t_structure){          if(type_of(V38)==t_structure){
486          goto T130;}          goto T130;}
487          goto T128;          goto T128;
488          goto T130;          goto T130;
489  T130:;  T130:;
490          base[4]= V35;          base[4]= V38;
491          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
492          (void) (*Lnk271)();          (void) (*Lnk271)();
493          vs_top=sup;          vs_top=sup;
494          V41= vs_base[0];          V44= vs_base[0];
495          if(!((V41)==(VV[36]))){          if(!((V44)==(VV[36]))){
496          goto T128;}          goto T128;}
497          V39= structure_ref((V35),VV[37],1);          V42= structure_ref((V38),VV[37],1);
498          goto T126;          goto T126;
499          goto T128;          goto T128;
500  T128:;{object V42;  T128:;{object V45;
501          V42= symbol_value(VV[38]);          V45= symbol_value(VV[38]);
502          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
503          base[5]= (V35);          base[5]= (V38);
504          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
505          (void) (*Lnk272)();          (void) (*Lnk272)();
506          vs_top=sup;          vs_top=sup;
507          V43= vs_base[0];          V46= vs_base[0];
508          if(!((V42)==(car(V43)))){          if(!((V45)==(car(V46)))){
509          goto T135;}}          goto T135;}}
510          V39= car(((V35))->cc.cc_turbo[12]);          V42= car(((V38))->cc.cc_turbo[12]);
511          goto T126;          goto T126;
512          goto T135;          goto T135;
513  T135:;  T135:;
514          V39= Cnil;          V42= Cnil;
515          goto T126;          goto T126;
516  T126:;  T126:;
517          if(((V39))==Cnil){          if(((V42))==Cnil){
518          goto T141;}          goto T141;}
519          base[4]= aset1((V39),fix((V34)),V35);          base[4]= aset1((V42),fix((V37)),V38);
520          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
521          return;          return;
522          goto T141;          goto T141;
# Line 529  T141:; Line 526  T141:;
526          return;}          return;}
527          goto T124;          goto T124;
528  T124:;  T124:;
529          {register object V45;          {register object V48;
530          V45= V34;          V48= V37;
531          base[4]= (V45);          base[4]= (V48);
532          base[5]= VV[39];          base[5]= VV[39];
533          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
534          (void) (*Lnk270)();          (void) (*Lnk270)();
535          vs_top=sup;          vs_top=sup;
536          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
537          goto T144;}          goto T144;}
538          {object V46;          {object V49;
539          object V47;          object V50;
540          register object V48;          register object V51;
541          V46= structure_ref((V34),VV[39],0);          V49= structure_ref((V37),VV[39],0);
542          V47= list(2,(V35),(V36));          V50= list(2,(V38),(V39));
543          V48= structure_ref((V34),VV[39],1);          V51= structure_ref((V37),VV[39],1);
544          if(((V48))==Cnil){          if(((V51))==Cnil){
545          goto T152;}          goto T152;}
546          if((cdr((V48)))!=Cnil){          if((cdr((V51)))!=Cnil){
547          goto T152;}          goto T152;}
548          base[4]= (V47);          base[4]= (V50);
549          base[5]= car((V48));          base[5]= car((V51));
550          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
551          {object _funobj = (V46);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V49);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
552                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
553                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
554                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
555          return;          return;
556          goto T152;          goto T152;
557  T152:;  T152:;
558          base[4]= (V46);          base[4]= (V49);
559          base[5]= (V47);          base[5]= (V50);
560          {object V49;          {object V52;
561          V49= (V48);          V52= (V51);
562           vs_top=base+6;           vs_top=base+6;
563           while(!endp(V49))           while(!endp(V52))
564           {vs_push(car(V49));V49=cdr(V49);}           {vs_push(car(V52));V52=cdr(V52);}
565          vs_base=base+5;}          vs_base=base+5;}
566          {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))
567                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
# Line 573  T152:; Line 570  T152:;
570          return;}          return;}
571          goto T144;          goto T144;
572  T144:;  T144:;
573          base[4]= (V45);          base[4]= (V48);
574          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
575          Lfunctionp();          Lfunctionp();
576          vs_top=sup;          vs_top=sup;
577          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
578          goto T162;}          goto T162;}
579          base[4]= (V35);          base[4]= (V38);
580          base[5]= (V36);          base[5]= (V39);
581          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
582          {object _funobj = (V34);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V37);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
583                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
584                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
585                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
# Line 593  T162:; Line 590  T162:;
590          base[5]= VV[18];          base[5]= VV[18];
591          base[6]= VV[41];          base[6]= VV[41];
592          base[7]= VV[42];          base[7]= VV[42];
593          base[8]= V34;          base[8]= V37;
594          base[9]= VV[43];          base[9]= VV[43];
595          base[10]= VV[44];          base[10]= VV[44];
596          base[11]= VV[45];          base[11]= VV[45];
# Line 609  T110:; Line 606  T110:;
606          return;          return;
607          goto T107;          goto T107;
608  T107:;  T107:;
609          base[4]= (V35);          base[4]= (*(LnkLI274))((V38),(V39));
610          base[5]= (V36);          vs_top=(vs_base=base+4)+1;
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk274)();  
611          return;          return;
612          }          }
613  }  }
# Line 628  TTL:; Line 623  TTL:;
623          base[2]= Cnil;          base[2]= Cnil;
624          base[3]= VV[49];          base[3]= VV[49];
625          base[4]= VV[50];          base[4]= VV[50];
626          V50= symbol_function(VV[275]);          V53= symbol_function(VV[275]);
627          base[5]= listA(3,VV[51],V50,VV[52]);          base[5]= listA(3,VV[51],V53,VV[52]);
628          base[6]= Cnil;          base[6]= Cnil;
629          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
630          (void) (*Lnk276)();          (void) (*Lnk276)();
631          vs_top=sup;          vs_top=sup;
632          {object V51 = Cnil;          {object V54 = Cnil;
633          VMR25(V51)}          VMR25(V54)}
634          base[0]=base[0];          base[0]=base[0];
635          return Cnil;          return Cnil;
636  }  }
# Line 646  static object LI26() Line 641  static object LI26()
641  {        VMB26 VMS26 VMV26  {        VMB26 VMS26 VMV26
642          goto TTL;          goto TTL;
643  TTL:;  TTL:;
644          {object V52 = Cnil;          {object V55 = Cnil;
645          VMR26(V52)}          VMR26(V55)}
646          return Cnil;          return Cnil;
647  }  }
648  /*      function definition for Defclass SIMPLE-WARNING2819     */  /*      function definition for Defclass SIMPLE-WARNING2819     */
# Line 679  TTL:; Line 674  TTL:;
674          vs_base=vs_top;          vs_base=vs_top;
675          (void) (*Lnk277)();          (void) (*Lnk277)();
676          vs_top=sup;          vs_top=sup;
677          {object V53 = Cnil;          {object V56 = Cnil;
678          VMR28(V53)}          VMR28(V56)}
679          base[0]=base[0];          base[0]=base[0];
680          return Cnil;          return Cnil;
681  }  }
# Line 697  TTL:; Line 692  TTL:;
692          Ladjoin();          Ladjoin();
693          vs_top=sup;          vs_top=sup;
694          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
695          {object V55 = Cnil;          {object V58 = Cnil;
696          VMR29(V55)}          VMR29(V58)}
697          base[0]=base[0];          base[0]=base[0];
698          return Cnil;          return Cnil;
699  }  }
# Line 710  static object LI30() Line 705  static object LI30()
705          goto TTL;          goto TTL;
706  TTL:;  TTL:;
707          (void)(sputprop(VV[53],VV[9],Cnil));          (void)(sputprop(VV[53],VV[9],Cnil));
708          {object V56 = Cnil;          {object V59 = Cnil;
709          VMR30(V56)}          VMR30(V59)}
710          return Cnil;          return Cnil;
711  }  }
712  /*      local entry for function progn 'compile2888     */  /*      local entry for function progn 'compile2888     */
# Line 721  static object LI31() Line 716  static object LI31()
716  {        VMB31 VMS31 VMV31  {        VMB31 VMS31 VMV31
717          goto TTL;          goto TTL;
718  TTL:;  TTL:;
719          {object V57 = Cnil;          {object V60 = Cnil;
720          VMR31(V57)}          VMR31(V60)}
721          return Cnil;          return Cnil;
722  }  }
723  /*      function definition for Defclass SIMPLE-ERROR2908       */  /*      function definition for Defclass SIMPLE-ERROR2908       */
# Line 754  TTL:; Line 749  TTL:;
749          vs_base=vs_top;          vs_base=vs_top;
750          (void) (*Lnk278)();          (void) (*Lnk278)();
751          vs_top=sup;          vs_top=sup;
752          {object V58 = Cnil;          {object V61 = Cnil;
753          VMR33(V58)}          VMR33(V61)}
754          base[0]=base[0];          base[0]=base[0];
755          return Cnil;          return Cnil;
756  }  }
# Line 772  TTL:; Line 767  TTL:;
767          Ladjoin();          Ladjoin();
768          vs_top=sup;          vs_top=sup;
769          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
770          {object V60 = Cnil;          {object V63 = Cnil;
771          VMR34(V60)}          VMR34(V63)}
772          base[0]=base[0];          base[0]=base[0];
773          return Cnil;          return Cnil;
774  }  }
# Line 785  static object LI35() Line 780  static object LI35()
780          goto TTL;          goto TTL;
781  TTL:;  TTL:;
782          (void)(sputprop(VV[56],VV[9],Cnil));          (void)(sputprop(VV[56],VV[9],Cnil));
783          {object V61 = Cnil;          {object V64 = Cnil;
784          VMR35(V61)}          VMR35(V64)}
785          return Cnil;          return Cnil;
786  }  }
787  /*      local entry for function progn 'compile2977     */  /*      local entry for function progn 'compile2977     */
# Line 796  static object LI36() Line 791  static object LI36()
791  {        VMB36 VMS36 VMV36  {        VMB36 VMS36 VMV36
792          goto TTL;          goto TTL;
793  TTL:;  TTL:;
794          {object V62 = Cnil;          {object V65 = Cnil;
795          VMR36(V62)}          VMR36(V65)}
796          return Cnil;          return Cnil;
797  }  }
798  /*      function definition for Defclass STORAGE-CONDITION2997  */  /*      function definition for Defclass STORAGE-CONDITION2997  */
# Line 829  TTL:; Line 824  TTL:;
824          vs_base=vs_top;          vs_base=vs_top;
825          (void) (*Lnk279)();          (void) (*Lnk279)();
826          vs_top=sup;          vs_top=sup;
827          {object V63 = Cnil;          {object V66 = Cnil;
828          VMR38(V63)}          VMR38(V66)}
829          base[0]=base[0];          base[0]=base[0];
830          return Cnil;          return Cnil;
831  }  }
# Line 847  TTL:; Line 842  TTL:;
842          Ladjoin();          Ladjoin();
843          vs_top=sup;          vs_top=sup;
844          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
845          {object V65 = Cnil;          {object V68 = Cnil;
846          VMR39(V65)}          VMR39(V68)}
847          base[0]=base[0];          base[0]=base[0];
848          return Cnil;          return Cnil;
849  }  }
# Line 860  static object LI40() Line 855  static object LI40()
855          goto TTL;          goto TTL;
856  TTL:;  TTL:;
857          (void)(sputprop(VV[59],VV[9],Cnil));          (void)(sputprop(VV[59],VV[9],Cnil));
858          {object V66 = Cnil;          {object V69 = Cnil;
859          VMR40(V66)}          VMR40(V69)}
860          return Cnil;          return Cnil;
861  }  }
862  /*      local entry for function progn 'compile3066     */  /*      local entry for function progn 'compile3066     */
# Line 871  static object LI41() Line 866  static object LI41()
866  {        VMB41 VMS41 VMV41  {        VMB41 VMS41 VMV41
867          goto TTL;          goto TTL;
868  TTL:;  TTL:;
869          {object V67 = Cnil;          {object V70 = Cnil;
870          VMR41(V67)}          VMR41(V70)}
871          return Cnil;          return Cnil;
872  }  }
873  /*      function definition for Defclass STACK-OVERFLOW3086     */  /*      function definition for Defclass STACK-OVERFLOW3086     */
# Line 904  TTL:; Line 899  TTL:;
899          vs_base=vs_top;          vs_base=vs_top;
900          (void) (*Lnk280)();          (void) (*Lnk280)();
901          vs_top=sup;          vs_top=sup;
902          {object V68 = Cnil;          {object V71 = Cnil;
903          VMR43(V68)}          VMR43(V71)}
904          base[0]=base[0];          base[0]=base[0];
905          return Cnil;          return Cnil;
906  }  }
# Line 922  TTL:; Line 917  TTL:;
917          Ladjoin();          Ladjoin();
918          vs_top=sup;          vs_top=sup;
919          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
920          {object V70 = Cnil;          {object V73 = Cnil;
921          VMR44(V70)}          VMR44(V73)}
922          base[0]=base[0];          base[0]=base[0];
923          return Cnil;          return Cnil;
924  }  }
# Line 935  static object LI45() Line 930  static object LI45()
930          goto TTL;          goto TTL;
931  TTL:;  TTL:;
932          (void)(sputprop(VV[62],VV[9],Cnil));          (void)(sputprop(VV[62],VV[9],Cnil));
933          {object V71 = Cnil;          {object V74 = Cnil;
934          VMR45(V71)}          VMR45(V74)}
935          return Cnil;          return Cnil;
936  }  }
937  /*      local entry for function progn 'compile3155     */  /*      local entry for function progn 'compile3155     */
# Line 946  static object LI46() Line 941  static object LI46()
941  {        VMB46 VMS46 VMV46  {        VMB46 VMS46 VMV46
942          goto TTL;          goto TTL;
943  TTL:;  TTL:;
944          {object V72 = Cnil;          {object V75 = Cnil;
945          VMR46(V72)}          VMR46(V75)}
946          return Cnil;          return Cnil;
947  }  }
948  /*      function definition for Defclass STORAGE-EXHAUSTED3175  */  /*      function definition for Defclass STORAGE-EXHAUSTED3175  */
# Line 979  TTL:; Line 974  TTL:;
974          vs_base=vs_top;          vs_base=vs_top;
975          (void) (*Lnk281)();          (void) (*Lnk281)();
976          vs_top=sup;          vs_top=sup;
977          {object V73 = Cnil;          {object V76 = Cnil;
978          VMR48(V73)}          VMR48(V76)}
979          base[0]=base[0];          base[0]=base[0];
980          return Cnil;          return Cnil;
981  }  }
# Line 997  TTL:; Line 992  TTL:;
992          Ladjoin();          Ladjoin();
993          vs_top=sup;          vs_top=sup;
994          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
995          {object V75 = Cnil;          {object V78 = Cnil;
996          VMR49(V75)}          VMR49(V78)}
997          base[0]=base[0];          base[0]=base[0];
998          return Cnil;          return Cnil;
999  }  }
# Line 1010  static object LI50() Line 1005  static object LI50()
1005          goto TTL;          goto TTL;
1006  TTL:;  TTL:;
1007          (void)(sputprop(VV[65],VV[9],Cnil));          (void)(sputprop(VV[65],VV[9],Cnil));
1008          {object V76 = Cnil;          {object V79 = Cnil;
1009          VMR50(V76)}          VMR50(V79)}
1010          return Cnil;          return Cnil;
1011  }  }
1012  /*      local entry for function progn 'compile3244     */  /*      local entry for function progn 'compile3244     */
# Line 1021  static object LI51() Line 1016  static object LI51()
1016  {        VMB51 VMS51 VMV51  {        VMB51 VMS51 VMV51
1017          goto TTL;          goto TTL;
1018  TTL:;  TTL:;
1019          {object V77 = Cnil;          {object V80 = Cnil;
1020          VMR51(V77)}          VMR51(V80)}
1021          return Cnil;          return Cnil;
1022  }  }
1023  /*      function definition for Defclass TYPE-ERROR3264 */  /*      function definition for Defclass TYPE-ERROR3264 */
# Line 1038  TTL:; Line 1033  TTL:;
1033          base[0]= VV[68];          base[0]= VV[68];
1034          base[1]= VV[5];          base[1]= VV[5];
1035          base[2]= VV[69];          base[2]= VV[69];
1036          V78= listA(9,VV[18],VV[70],VV[20],VV[71],VV[22],Cnil,VV[23],VV[72],Cnil);          V81= listA(9,VV[18],VV[70],VV[20],VV[71],VV[22],Cnil,VV[23],VV[72],Cnil);
1037          base[3]= list(2,/* INLINE-ARGS */V78,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil));          base[3]= list(2,/* INLINE-ARGS */V81,listA(9,VV[18],VV[73],VV[20],VV[74],VV[22],Cnil,VV[23],VV[75],Cnil));
1038          base[4]= Cnil;          base[4]= Cnil;
1039          base[5]= Cnil;          base[5]= Cnil;
1040          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 1055  TTL:; Line 1050  TTL:;
1050          vs_base=vs_top;          vs_base=vs_top;
1051          (void) (*Lnk282)();          (void) (*Lnk282)();
1052          vs_top=sup;          vs_top=sup;
1053          {object V79 = Cnil;          {object V82 = Cnil;
1054          VMR53(V79)}          VMR53(V82)}
1055          base[0]=base[0];          base[0]=base[0];
1056          return Cnil;          return Cnil;
1057  }  }
# Line 1073  TTL:; Line 1068  TTL:;
1068          Ladjoin();          Ladjoin();
1069          vs_top=sup;          vs_top=sup;
1070          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
1071          {object V81 = Cnil;          {object V84 = Cnil;
1072          VMR54(V81)}          VMR54(V84)}
1073          base[0]=base[0];          base[0]=base[0];
1074          return Cnil;          return Cnil;
1075  }  }
# Line 1086  static object LI55() Line 1081  static object LI55()
1081          goto TTL;          goto TTL;
1082  TTL:;  TTL:;
1083          (void)(sputprop(VV[68],VV[9],Cnil));          (void)(sputprop(VV[68],VV[9],Cnil));
1084          {object V82 = Cnil;          {object V85 = Cnil;
1085          VMR55(V82)}          VMR55(V85)}
1086          return Cnil;          return Cnil;
1087  }  }
1088  /*      local entry for function progn 'compile3339     */  /*      local entry for function progn 'compile3339     */
# Line 1102  TTL:; Line 1097  TTL:;
1097          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1098          (void) (*Lnk269)();          (void) (*Lnk269)();
1099          vs_top=sup;          vs_top=sup;
1100          {object V83 = Cnil;          {object V86 = Cnil;
1101          VMR56(V83)}          VMR56(V86)}
1102          base[0]=base[0];          base[0]=base[0];
1103          return Cnil;          return Cnil;
1104  }  }
# Line 1113  static void L57() Line 1108  static void L57()
1108  {register object *base=vs_base;  {register object *base=vs_base;
1109          register object *sup=base+VM57; VC57          register object *sup=base+VM57; VC57
1110          vs_reserve(VM57);          vs_reserve(VM57);
1111          {object V84;          {object V87;
1112          register object V85;          register object V88;
1113          register object V86;          register object V89;
1114          register object V87;          register object V90;
1115          check_arg(4);          check_arg(4);
1116          V84=(base[0]);          V87=(base[0]);
1117          V85=(base[1]);          V88=(base[1]);
1118          V86=(base[2]);          V89=(base[2]);
1119          V87=(base[3]);          V90=(base[3]);
1120          vs_top=sup;          vs_top=sup;
1121          goto TTL;          goto TTL;
1122  TTL:;  TTL:;
1123          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
1124          goto T273;}          goto T271;}
1125          if(((V85))==Cnil){          if(((V88))==Cnil){
1126          goto T276;}          goto T274;}
1127          base[4]= (V85);          base[4]= (V88);
1128          base[5]= VV[35];          base[5]= VV[35];
1129          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1130          (void) (*Lnk270)();          (void) (*Lnk270)();
1131          vs_top=sup;          vs_top=sup;
1132          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1133          goto T280;}          goto T278;}
1134          base[4]= structure_ref((V85),VV[35],0);          base[4]= structure_ref((V88),VV[35],0);
1135          base[5]= structure_ref((V85),VV[35],1);          base[5]= structure_ref((V88),VV[35],1);
1136          base[6]= structure_ref((V85),VV[35],2);          base[6]= structure_ref((V88),VV[35],2);
1137          base[7]= (V86);          base[7]= (V89);
1138          base[8]= (V87);          base[8]= (V90);
1139          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1140          {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))
1141                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1142                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1143                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1144          return;          return;
1145          goto T280;          goto T278;
1146  T280:;  T278:;
1147          if(!(type_of((V85))==t_fixnum)){          if(!(type_of((V88))==t_fixnum)){
1148          goto T290;}          goto T288;}
1149          {object V90;          {object V93;
1150          if(type_of(V86)==t_structure){          if(type_of(V89)==t_structure){
1151          goto T296;}          goto T294;}
1152            goto T292;
1153          goto T294;          goto T294;
1154          goto T296;  T294:;
1155  T296:;          base[4]= V89;
         base[4]= V86;  
1156          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1157          (void) (*Lnk271)();          (void) (*Lnk271)();
1158          vs_top=sup;          vs_top=sup;
1159          V92= vs_base[0];          V95= vs_base[0];
1160          if(!((V92)==(VV[78]))){          if(!((V95)==(VV[78]))){
1161          goto T294;}          goto T292;}
1162          V90= structure_ref((V86),VV[37],1);          V93= structure_ref((V89),VV[37],1);
1163            goto T290;
1164          goto T292;          goto T292;
1165          goto T294;  T292:;{object V96;
1166  T294:;{object V93;          V96= symbol_value(VV[38]);
         V93= symbol_value(VV[38]);  
1167          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
1168          base[5]= (V86);          base[5]= (V89);
1169          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1170          (void) (*Lnk272)();          (void) (*Lnk272)();
1171          vs_top=sup;          vs_top=sup;
1172          V94= vs_base[0];          V97= vs_base[0];
1173          if(!((V93)==(car(V94)))){          if(!((V96)==(car(V97)))){
1174          goto T301;}}          goto T299;}}
1175          V90= car(((V86))->cc.cc_turbo[12]);          V93= car(((V89))->cc.cc_turbo[12]);
1176          goto T292;          goto T290;
1177          goto T301;          goto T299;
1178  T301:;  T299:;
1179          V90= Cnil;          V93= Cnil;
1180          goto T292;          goto T290;
1181  T292:;  T290:;
1182          if(((V90))==Cnil){          if(((V93))==Cnil){
1183          goto T307;}          goto T305;}
1184          base[4]= aset1((V90),fix((V85)),V86);          base[4]= aset1((V93),fix((V88)),V89);
1185          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1186          return;          return;
1187          goto T307;          goto T305;
1188  T307:;  T305:;
1189          base[4]= Cnil;          base[4]= Cnil;
1190          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1191          return;}          return;}
1192          goto T290;          goto T288;
1193  T290:;  T288:;
1194          {register object V96;          {register object V99;
1195          V96= V85;          V99= V88;
1196          base[4]= (V96);          base[4]= (V99);
1197          base[5]= VV[39];          base[5]= VV[39];
1198          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1199          (void) (*Lnk270)();          (void) (*Lnk270)();
1200          vs_top=sup;          vs_top=sup;
1201          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1202          goto T310;}          goto T308;}
1203          {object V97;          {object V100;
1204          object V98;          object V101;
1205          register object V99;          register object V102;
1206          V97= structure_ref((V85),VV[39],0);          V100= structure_ref((V88),VV[39],0);
1207          V98= list(2,(V86),(V87));          V101= list(2,(V89),(V90));
1208          V99= structure_ref((V85),VV[39],1);          V102= structure_ref((V88),VV[39],1);
1209          if(((V99))==Cnil){          if(((V102))==Cnil){
1210          goto T318;}          goto T316;}
1211          if((cdr((V99)))!=Cnil){          if((cdr((V102)))!=Cnil){
1212          goto T318;}          goto T316;}
1213          base[4]= (V98);          base[4]= (V101);
1214          base[5]= car((V99));          base[5]= car((V102));
1215          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1216          {object _funobj = (V97);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V100);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1217                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1218                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1219                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1220          return;          return;
1221          goto T318;          goto T316;
1222  T318:;  T316:;
1223          base[4]= (V97);          base[4]= (V100);
1224          base[5]= (V98);          base[5]= (V101);
1225          {object V100;          {object V103;
1226          V100= (V99);          V103= (V102);
1227           vs_top=base+6;           vs_top=base+6;
1228           while(!endp(V100))           while(!endp(V103))
1229           {vs_push(car(V100));V100=cdr(V100);}           {vs_push(car(V103));V103=cdr(V103);}
1230          vs_base=base+5;}          vs_base=base+5;}
1231          {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))
1232                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1233                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1234                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1235          return;}          return;}
1236          goto T310;          goto T308;
1237  T310:;  T308:;
1238          base[4]= (V96);          base[4]= (V99);
1239          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1240          Lfunctionp();          Lfunctionp();
1241          vs_top=sup;          vs_top=sup;
1242          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1243          goto T328;}          goto T326;}
1244          base[4]= (V86);          base[4]= (V89);
1245          base[5]= (V87);          base[5]= (V90);
1246          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1247          {object _funobj = (V85);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V88);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1248                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1249                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1250                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1251          return;          return;
1252          goto T328;          goto T326;
1253  T328:;  T326:;
1254          base[4]= VV[40];          base[4]= VV[40];
1255          base[5]= VV[18];          base[5]= VV[18];
1256          base[6]= VV[41];          base[6]= VV[41];
1257          base[7]= VV[42];          base[7]= VV[42];
1258          base[8]= V85;          base[8]= V88;
1259          base[9]= VV[43];          base[9]= VV[43];
1260          base[10]= VV[79];          base[10]= VV[79];
1261          base[11]= VV[45];          base[11]= VV[45];
# Line 1268  T328:; Line 1263  T328:;
1263          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
1264          (void) (*Lnk13)();          (void) (*Lnk13)();
1265          return;}          return;}
1266          goto T276;          goto T274;
1267  T276:;  T274:;
1268          base[4]= VV[47];          base[4]= VV[47];
1269          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1270          (void) (*Lnk273)();          (void) (*Lnk273)();
1271          return;          return;
1272          goto T273;          goto T271;
1273  T273:;  T271:;
1274          base[4]= V87;          base[4]= V90;
1275          base[5]= VV[81];          base[5]= VV[81];
1276          base[7]= V86;          base[7]= V89;
1277          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1278          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk283)(Lclptr283);
1279          vs_top=sup;          vs_top=sup;
1280          base[6]= vs_base[0];          base[6]= vs_base[0];
1281          base[8]= V86;          base[8]= V89;
1282          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1283          (void) (*Lnk284)(Lclptr284);          (void) (*Lnk284)(Lclptr284);
1284          vs_top=sup;          vs_top=sup;
# Line 1305  TTL:; Line 1300  TTL:;
1300          base[2]= Cnil;          base[2]= Cnil;
1301          base[3]= VV[82];          base[3]= VV[82];
1302          base[4]= VV[83];          base[4]= VV[83];
1303          V103= symbol_function(VV[285]);          V106= symbol_function(VV[285]);
1304          base[5]= listA(3,VV[51],V103,VV[84]);          base[5]= listA(3,VV[51],V106,VV[84]);
1305          base[6]= Cnil;          base[6]= Cnil;
1306          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1307          (void) (*Lnk276)();          (void) (*Lnk276)();
1308          vs_top=sup;          vs_top=sup;
1309          {object V104 = Cnil;          {object V107 = Cnil;
1310          VMR58(V104)}          VMR58(V107)}
1311          base[0]=base[0];          base[0]=base[0];
1312          return Cnil;          return Cnil;
1313  }  }
# Line 1323  static object LI59() Line 1318  static object LI59()
1318  {        VMB59 VMS59 VMV59  {        VMB59 VMS59 VMV59
1319          goto TTL;          goto TTL;
1320  TTL:;  TTL:;
1321          {object V105 = Cnil;          {object V108 = Cnil;
1322          VMR59(V105)}          VMR59(V108)}
1323          return Cnil;          return Cnil;
1324  }  }
1325  /*      function definition for Defclass SIMPLE-TYPE-ERROR3564  */  /*      function definition for Defclass SIMPLE-TYPE-ERROR3564  */
# Line 1356  TTL:; Line 1351  TTL:;
1351          vs_base=vs_top;          vs_base=vs_top;
1352          (void) (*Lnk286)();          (void) (*Lnk286)();
1353          vs_top=sup;          vs_top=sup;
1354          {object V106 = Cnil;          {object V109 = Cnil;
1355          VMR61(V106)}          VMR61(V109)}
1356          base[0]=base[0];          base[0]=base[0];
1357          return Cnil;          return Cnil;
1358  }  }
# Line 1374  TTL:; Line 1369  TTL:;
1369          Ladjoin();          Ladjoin();
1370          vs_top=sup;          vs_top=sup;
1371          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
1372          {object V108 = Cnil;          {object V111 = Cnil;
1373          VMR62(V108)}          VMR62(V111)}
1374          base[0]=base[0];          base[0]=base[0];
1375          return Cnil;          return Cnil;
1376  }  }
# Line 1387  static object LI63() Line 1382  static object LI63()
1382          goto TTL;          goto TTL;
1383  TTL:;  TTL:;
1384          (void)(sputprop(VV[85],VV[9],Cnil));          (void)(sputprop(VV[85],VV[9],Cnil));
1385          {object V109 = Cnil;          {object V112 = Cnil;
1386          VMR63(V109)}          VMR63(V112)}
1387          return Cnil;          return Cnil;
1388  }  }
1389  /*      local entry for function progn 'compile3633     */  /*      local entry for function progn 'compile3633     */
# Line 1398  static object LI64() Line 1393  static object LI64()
1393  {        VMB64 VMS64 VMV64  {        VMB64 VMS64 VMV64
1394          goto TTL;          goto TTL;
1395  TTL:;  TTL:;
1396          {object V110 = Cnil;          {object V113 = Cnil;
1397          VMR64(V110)}          VMR64(V113)}
1398          return Cnil;          return Cnil;
1399  }  }
1400  /*      function definition for Defclass CASE-FAILURE3653       */  /*      function definition for Defclass CASE-FAILURE3653       */
# Line 1415  TTL:; Line 1410  TTL:;
1410          base[0]= VV[40];          base[0]= VV[40];
1411          base[1]= VV[5];          base[1]= VV[5];
1412          base[2]= VV[88];          base[2]= VV[88];
1413          V111= listA(9,VV[18],VV[89],VV[20],VV[90],VV[22],Cnil,VV[23],VV[91],Cnil);          V114= listA(9,VV[18],VV[89],VV[20],VV[90],VV[22],Cnil,VV[23],VV[91],Cnil);
1414          base[3]= list(2,/* INLINE-ARGS */V111,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil));          base[3]= list(2,/* INLINE-ARGS */V114,listA(9,VV[18],VV[92],VV[20],VV[93],VV[22],Cnil,VV[23],VV[94],Cnil));
1415          base[4]= Cnil;          base[4]= Cnil;
1416          base[5]= Cnil;          base[5]= Cnil;
1417          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 1432  TTL:; Line 1427  TTL:;
1427          vs_base=vs_top;          vs_base=vs_top;
1428          (void) (*Lnk287)();          (void) (*Lnk287)();
1429          vs_top=sup;          vs_top=sup;
1430          {object V112 = Cnil;          {object V115 = Cnil;
1431          VMR66(V112)}          VMR66(V115)}
1432          base[0]=base[0];          base[0]=base[0];
1433          return Cnil;          return Cnil;
1434  }  }
# Line 1450  TTL:; Line 1445  TTL:;
1445          Ladjoin();          Ladjoin();
1446          vs_top=sup;          vs_top=sup;
1447          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
1448          {object V114 = Cnil;          {object V117 = Cnil;
1449          VMR67(V114)}          VMR67(V117)}
1450          base[0]=base[0];          base[0]=base[0];
1451          return Cnil;          return Cnil;
1452  }  }
# Line 1463  static object LI68() Line 1458  static object LI68()
1458          goto TTL;          goto TTL;
1459  TTL:;  TTL:;
1460          (void)(sputprop(VV[40],VV[9],Cnil));          (void)(sputprop(VV[40],VV[9],Cnil));
1461          {object V115 = Cnil;          {object V118 = Cnil;
1462          VMR68(V115)}          VMR68(V118)}
1463          return Cnil;          return Cnil;
1464  }  }
1465  /*      local entry for function progn 'compile3728     */  /*      local entry for function progn 'compile3728     */
# Line 1479  TTL:; Line 1474  TTL:;
1474          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
1475          (void) (*Lnk269)();          (void) (*Lnk269)();
1476          vs_top=sup;          vs_top=sup;
1477          {object V116 = Cnil;          {object V119 = Cnil;
1478          VMR69(V116)}          VMR69(V119)}
1479          base[0]=base[0];          base[0]=base[0];
1480          return Cnil;          return Cnil;
1481  }  }
# Line 1490  static void L70() Line 1485  static void L70()
1485  {register object *base=vs_base;  {register object *base=vs_base;
1486          register object *sup=base+VM70; VC70          register object *sup=base+VM70; VC70
1487          vs_reserve(VM70);          vs_reserve(VM70);
1488          {object V117;          {object V120;
1489          register object V118;          register object V121;
1490          register object V119;          register object V122;
1491          register object V120;          register object V123;
1492          check_arg(4);          check_arg(4);
1493          V117=(base[0]);          V120=(base[0]);
1494          V118=(base[1]);          V121=(base[1]);
1495          V119=(base[2]);          V122=(base[2]);
1496          V120=(base[3]);          V123=(base[3]);
1497          vs_top=sup;          vs_top=sup;
1498          goto TTL;          goto TTL;
1499  TTL:;  TTL:;
1500          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
1501          goto T391;}          goto T389;}
1502          if(((V118))==Cnil){          if(((V121))==Cnil){
1503          goto T394;}          goto T392;}
1504          base[4]= (V118);          base[4]= (V121);
1505          base[5]= VV[35];          base[5]= VV[35];
1506          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1507          (void) (*Lnk270)();          (void) (*Lnk270)();
1508          vs_top=sup;          vs_top=sup;
1509          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1510          goto T398;}          goto T396;}
1511          base[4]= structure_ref((V118),VV[35],0);          base[4]= structure_ref((V121),VV[35],0);
1512          base[5]= structure_ref((V118),VV[35],1);          base[5]= structure_ref((V121),VV[35],1);
1513          base[6]= structure_ref((V118),VV[35],2);          base[6]= structure_ref((V121),VV[35],2);
1514          base[7]= (V119);          base[7]= (V122);
1515          base[8]= (V120);          base[8]= (V123);
1516          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
1517          {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))
1518                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1519                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1520                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1521          return;          return;
1522          goto T398;          goto T396;
1523  T398:;  T396:;
1524          if(!(type_of((V118))==t_fixnum)){          if(!(type_of((V121))==t_fixnum)){
1525          goto T408;}          goto T406;}
1526          {object V123;          {object V126;
1527          if(type_of(V119)==t_structure){          if(type_of(V122)==t_structure){
1528          goto T414;}          goto T412;}
1529            goto T410;
1530          goto T412;          goto T412;
1531          goto T414;  T412:;
1532  T414:;          base[4]= V122;
         base[4]= V119;  
1533          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1534          (void) (*Lnk271)();          (void) (*Lnk271)();
1535          vs_top=sup;          vs_top=sup;
1536          V125= vs_base[0];          V128= vs_base[0];
1537          if(!((V125)==(VV[97]))){          if(!((V128)==(VV[97]))){
1538          goto T412;}          goto T410;}
1539          V123= structure_ref((V119),VV[37],1);          V126= structure_ref((V122),VV[37],1);
1540            goto T408;
1541          goto T410;          goto T410;
1542          goto T412;  T410:;{object V129;
1543  T412:;{object V126;          V129= symbol_value(VV[38]);
         V126= symbol_value(VV[38]);  
1544          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
1545          base[5]= (V119);          base[5]= (V122);
1546          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1547          (void) (*Lnk272)();          (void) (*Lnk272)();
1548          vs_top=sup;          vs_top=sup;
1549          V127= vs_base[0];          V130= vs_base[0];
1550          if(!((V126)==(car(V127)))){          if(!((V129)==(car(V130)))){
1551          goto T419;}}          goto T417;}}
1552          V123= car(((V119))->cc.cc_turbo[12]);          V126= car(((V122))->cc.cc_turbo[12]);
1553          goto T410;          goto T408;
1554          goto T419;          goto T417;
1555  T419:;  T417:;
1556          V123= Cnil;          V126= Cnil;
1557          goto T410;          goto T408;
1558  T410:;  T408:;
1559          if(((V123))==Cnil){          if(((V126))==Cnil){
1560          goto T425;}          goto T423;}
1561          base[4]= aset1((V123),fix((V118)),V119);          base[4]= aset1((V126),fix((V121)),V122);
1562          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1563          return;          return;
1564          goto T425;          goto T423;
1565  T425:;  T423:;
1566          base[4]= Cnil;          base[4]= Cnil;
1567          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1568          return;}          return;}
1569          goto T408;          goto T406;
1570  T408:;  T406:;
1571          {register object V129;          {register object V132;
1572          V129= V118;          V132= V121;
1573          base[4]= (V129);          base[4]= (V132);
1574          base[5]= VV[39];          base[5]= VV[39];
1575          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1576          (void) (*Lnk270)();          (void) (*Lnk270)();
1577          vs_top=sup;          vs_top=sup;
1578          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1579          goto T428;}          goto T426;}
1580          {object V130;          {object V133;
1581          object V131;          object V134;
1582          register object V132;          register object V135;
1583          V130= structure_ref((V118),VV[39],0);          V133= structure_ref((V121),VV[39],0);
1584          V131= list(2,(V119),(V120));          V134= list(2,(V122),(V123));
1585          V132= structure_ref((V118),VV[39],1);          V135= structure_ref((V121),VV[39],1);
1586          if(((V132))==Cnil){          if(((V135))==Cnil){
1587          goto T436;}          goto T434;}
1588          if((cdr((V132)))!=Cnil){          if((cdr((V135)))!=Cnil){
1589          goto T436;}          goto T434;}
1590          base[4]= (V131);          base[4]= (V134);
1591          base[5]= car((V132));          base[5]= car((V135));
1592          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1593          {object _funobj = (V130);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V133);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1594                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1595                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1596                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1597          return;          return;
1598          goto T436;          goto T434;
1599  T436:;  T434:;
1600          base[4]= (V130);          base[4]= (V133);
1601          base[5]= (V131);          base[5]= (V134);
1602          {object V133;          {object V136;
1603          V133= (V132);          V136= (V135);
1604           vs_top=base+6;           vs_top=base+6;
1605           while(!endp(V133))           while(!endp(V136))
1606           {vs_push(car(V133));V133=cdr(V133);}           {vs_push(car(V136));V136=cdr(V136);}
1607          vs_base=base+5;}          vs_base=base+5;}
1608          {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))
1609                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1610                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1611                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1612          return;}          return;}
1613          goto T428;          goto T426;
1614  T428:;  T426:;
1615          base[4]= (V129);          base[4]= (V132);
1616          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1617          Lfunctionp();          Lfunctionp();
1618          vs_top=sup;          vs_top=sup;
1619          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
1620          goto T446;}          goto T444;}
1621          base[4]= (V119);          base[4]= (V122);
1622          base[5]= (V120);          base[5]= (V123);
1623          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
1624          {object _funobj = (V118);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V121);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
1625                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
1626                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
1627                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
1628          return;          return;
1629          goto T446;          goto T444;
1630  T446:;  T444:;
1631          base[4]= VV[40];          base[4]= VV[40];
1632          base[5]= VV[18];          base[5]= VV[18];
1633          base[6]= VV[41];          base[6]= VV[41];
1634          base[7]= VV[42];          base[7]= VV[42];
1635          base[8]= V118;          base[8]= V121;
1636          base[9]= VV[43];          base[9]= VV[43];
1637          base[10]= VV[98];          base[10]= VV[98];
1638          base[11]= VV[45];          base[11]= VV[45];
# Line 1645  T446:; Line 1640  T446:;
1640          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
1641          (void) (*Lnk13)();          (void) (*Lnk13)();
1642          return;}          return;}
1643          goto T394;          goto T392;
1644  T394:;  T392:;
1645          base[4]= VV[47];          base[4]= VV[47];
1646          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
1647          (void) (*Lnk273)();          (void) (*Lnk273)();
1648          return;          return;
1649          goto T391;          goto T389;
1650  T391:;  T389:;
1651          base[4]= V120;          base[4]= V123;
1652          base[5]= VV[100];          base[5]= VV[100];
1653          base[7]= V119;          base[7]= V122;
1654          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
1655          (void) (*Lnk283)(Lclptr283);          (void) (*Lnk283)(Lclptr283);
1656          vs_top=sup;          vs_top=sup;
1657          base[6]= vs_base[0];          base[6]= vs_base[0];
1658          base[8]= V119;          base[8]= V122;
1659          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
1660          (void) (*Lnk288)(Lclptr288);          (void) (*Lnk288)(Lclptr288);
1661          vs_top=sup;          vs_top=sup;
1662          base[7]= vs_base[0];          base[7]= vs_base[0];
1663          base[9]= V119;          base[9]= V122;
1664          vs_top=(vs_base=base+9)+1;          vs_top=(vs_base=base+9)+1;
1665          (void) (*Lnk289)(Lclptr289);          (void) (*Lnk289)(Lclptr289);
1666          vs_top=sup;          vs_top=sup;
# Line 1687  TTL:; Line 1682  TTL:;
1682          base[2]= Cnil;          base[2]= Cnil;
1683          base[3]= VV[101];          base[3]= VV[101];
1684          base[4]= VV[102];          base[4]= VV[102];
1685          V136= symbol_function(VV[290]);          V139= symbol_function(VV[290]);
1686          base[5]= listA(3,VV[51],V136,VV[103]);          base[5]= listA(3,VV[51],V139,VV[103]);
1687          base[6]= Cnil;          base[6]= Cnil;
1688          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
1689          (void) (*Lnk276)();          (void) (*Lnk276)();
1690          vs_top=sup;          vs_top=sup;
1691          {object V137 = Cnil;          {object V140 = Cnil;
1692          VMR71(V137)}          VMR71(V140)}
1693          base[0]=base[0];          base[0]=base[0];
1694          return Cnil;          return Cnil;
1695  }  }
# Line 1705  static object LI72() Line 1700  static object LI72()
1700  {        VMB72 VMS72 VMV72  {        VMB72 VMS72 VMV72
1701          goto TTL;          goto TTL;
1702  TTL:;  TTL:;
1703          {object V138 = Cnil;          {object V141 = Cnil;
1704          VMR72(V138)}          VMR72(V141)}
1705          return Cnil;          return Cnil;
1706  }  }
1707  /*      function definition for Defclass PROGRAM-ERROR3953      */  /*      function definition for Defclass PROGRAM-ERROR3953      */
# Line 1738  TTL:; Line 1733  TTL:;
1733          vs_base=vs_top;          vs_base=vs_top;
1734          (void) (*Lnk291)();          (void) (*Lnk291)();
1735          vs_top=sup;          vs_top=sup;
1736          {object V139 = Cnil;          {object V142 = Cnil;
1737          VMR74(V139)}          VMR74(V142)}
1738          base[0]=base[0];          base[0]=base[0];
1739          return Cnil;          return Cnil;
1740  }  }
# Line 1756  TTL:; Line 1751  TTL:;
1751          Ladjoin();          Ladjoin();
1752          vs_top=sup;          vs_top=sup;
1753          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
1754          {object V141 = Cnil;          {object V144 = Cnil;
1755          VMR75(V141)}          VMR75(V144)}
1756          base[0]=base[0];          base[0]=base[0];
1757          return Cnil;          return Cnil;
1758  }  }
# Line 1769  static object LI76() Line 1764  static object LI76()
1764          goto TTL;          goto TTL;
1765  TTL:;  TTL:;
1766          (void)(sputprop(VV[104],VV[9],Cnil));          (void)(sputprop(VV[104],VV[9],Cnil));
1767          {object V142 = Cnil;          {object V145 = Cnil;
1768          VMR76(V142)}          VMR76(V145)}
1769          return Cnil;          return Cnil;
1770  }  }
1771  /*      local entry for function progn 'compile4022     */  /*      local entry for function progn 'compile4022     */
# Line 1780  static object LI77() Line 1775  static object LI77()
1775  {        VMB77 VMS77 VMV77  {        VMB77 VMS77 VMV77
1776          goto TTL;          goto TTL;
1777  TTL:;  TTL:;
1778          {object V143 = Cnil;          {object V146 = Cnil;
1779          VMR77(V143)}          VMR77(V146)}
1780          return Cnil;          return Cnil;
1781  }  }
1782  /*      function definition for Defclass CONTROL-ERROR4042      */  /*      function definition for Defclass CONTROL-ERROR4042      */
# Line 1813  TTL:; Line 1808  TTL:;
1808          vs_base=vs_top;          vs_base=vs_top;
1809          (void) (*Lnk292)();          (void) (*Lnk292)();
1810          vs_top=sup;          vs_top=sup;
1811          {object V144 = Cnil;          {object V147 = Cnil;
1812          VMR79(V144)}          VMR79(V147)}
1813          base[0]=base[0];          base[0]=base[0];
1814          return Cnil;          return Cnil;
1815  }  }
# Line 1831  TTL:; Line 1826  TTL:;
1826          Ladjoin();          Ladjoin();
1827          vs_top=sup;          vs_top=sup;
1828          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
1829          {object V146 = Cnil;          {object V149 = Cnil;
1830          VMR80(V146)}          VMR80(V149)}
1831          base[0]=base[0];          base[0]=base[0];
1832          return Cnil;          return Cnil;
1833  }  }
# Line 1844  static object LI81() Line 1839  static object LI81()
1839          goto TTL;          goto TTL;
1840  TTL:;  TTL:;
1841          (void)(sputprop(VV[107],VV[9],Cnil));          (void)(sputprop(VV[107],VV[9],Cnil));
1842          {object V147 = Cnil;          {object V150 = Cnil;
1843          VMR81(V147)}          VMR81(V150)}
1844          return Cnil;          return Cnil;
1845  }  }
1846  /*      local entry for function progn 'compile4111     */  /*      local entry for function progn 'compile4111     */
# Line 1855  static object LI82() Line 1850  static object LI82()
1850  {        VMB82 VMS82 VMV82  {        VMB82 VMS82 VMV82
1851          goto TTL;          goto TTL;
1852  TTL:;  TTL:;
1853          {object V148 = Cnil;          {object V151 = Cnil;
1854          VMR82(V148)}          VMR82(V151)}
1855          return Cnil;          return Cnil;
1856  }  }
1857  /*      function definition for Defclass STREAM-ERROR4131       */  /*      function definition for Defclass STREAM-ERROR4131       */
# Line 1872  TTL:; Line 1867  TTL:;
1867          base[0]= VV[110];          base[0]= VV[110];
1868          base[1]= VV[5];          base[1]= VV[5];
1869          base[2]= VV[111];          base[2]= VV[111];
1870          V149= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil);          V152= listA(9,VV[18],VV[112],VV[20],VV[113],VV[22],Cnil,VV[23],VV[114],Cnil);
1871          base[3]= make_cons(/* INLINE-ARGS */V149,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V152,Cnil);
1872          base[4]= Cnil;          base[4]= Cnil;
1873          base[5]= Cnil;          base[5]= Cnil;
1874          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 1889  TTL:; Line 1884  TTL:;
1884          vs_base=vs_top;          vs_base=vs_top;
1885          (void) (*Lnk293)();          (void) (*Lnk293)();
1886          vs_top=sup;          vs_top=sup;
1887          {object V150 = Cnil;          {object V153 = Cnil;
1888          VMR84(V150)}          VMR84(V153)}
1889          base[0]=base[0];          base[0]=base[0];
1890          return Cnil;          return Cnil;
1891  }  }
# Line 1907  TTL:; Line 1902  TTL:;
1902          Ladjoin();          Ladjoin();
1903          vs_top=sup;          vs_top=sup;
1904          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
1905          {object V152 = Cnil;          {object V155 = Cnil;
1906          VMR85(V152)}          VMR85(V155)}
1907          base[0]=base[0];          base[0]=base[0];
1908          return Cnil;          return Cnil;
1909  }  }
# Line 1920  static object LI86() Line 1915  static object LI86()
1915          goto TTL;          goto TTL;
1916  TTL:;  TTL:;
1917          (void)(sputprop(VV[110],VV[9],Cnil));          (void)(sputprop(VV[110],VV[9],Cnil));
1918          {object V153 = Cnil;          {object V156 = Cnil;
1919          VMR86(V153)}          VMR86(V156)}
1920          return Cnil;          return Cnil;
1921  }  }
1922  /*      local entry for function progn 'compile4201     */  /*      local entry for function progn 'compile4201     */
# Line 1931  static object LI87() Line 1926  static object LI87()
1926  {        VMB87 VMS87 VMV87  {        VMB87 VMS87 VMV87
1927          goto TTL;          goto TTL;
1928  TTL:;  TTL:;
1929          {object V154 = Cnil;          {object V157 = Cnil;
1930          VMR87(V154)}          VMR87(V157)}
1931          return Cnil;          return Cnil;
1932  }  }
1933  /*      function definition for Defclass END-OF-FILE4221        */  /*      function definition for Defclass END-OF-FILE4221        */
# Line 1964  TTL:; Line 1959  TTL:;
1959          vs_base=vs_top;          vs_base=vs_top;
1960          (void) (*Lnk294)();          (void) (*Lnk294)();
1961          vs_top=sup;          vs_top=sup;
1962          {object V155 = Cnil;          {object V158 = Cnil;
1963          VMR89(V155)}          VMR89(V158)}
1964          base[0]=base[0];          base[0]=base[0];
1965          return Cnil;          return Cnil;
1966  }  }
# Line 1982  TTL:; Line 1977  TTL:;
1977          Ladjoin();          Ladjoin();
1978          vs_top=sup;          vs_top=sup;
1979          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
1980          {object V157 = Cnil;          {object V160 = Cnil;
1981          VMR90(V157)}          VMR90(V160)}
1982          base[0]=base[0];          base[0]=base[0];
1983          return Cnil;          return Cnil;
1984  }  }
# Line 1995  static object LI91() Line 1990  static object LI91()
1990          goto TTL;          goto TTL;
1991  TTL:;  TTL:;
1992          (void)(sputprop(VV[116],VV[9],Cnil));          (void)(sputprop(VV[116],VV[9],Cnil));
1993          {object V158 = Cnil;          {object V161 = Cnil;
1994          VMR91(V158)}          VMR91(V161)}
1995          return Cnil;          return Cnil;
1996  }  }
1997  /*      local entry for function progn 'compile4294     */  /*      local entry for function progn 'compile4294     */
# Line 2011  TTL:; Line 2006  TTL:;
2006          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2007          (void) (*Lnk269)();          (void) (*Lnk269)();
2008          vs_top=sup;          vs_top=sup;
2009          {object V159 = Cnil;          {object V162 = Cnil;
2010          VMR92(V159)}          VMR92(V162)}
2011          base[0]=base[0];          base[0]=base[0];
2012          return Cnil;          return Cnil;
2013  }  }
# Line 2022  static void L93() Line 2017  static void L93()
2017  {register object *base=vs_base;  {register object *base=vs_base;
2018          register object *sup=base+VM93; VC93          register object *sup=base+VM93; VC93
2019          vs_reserve(VM93);          vs_reserve(VM93);
2020          {object V160;          {object V163;
2021          register object V161;          register object V164;
2022          register object V162;          register object V165;
2023          register object V163;          register object V166;
2024          check_arg(4);          check_arg(4);
2025          V160=(base[0]);          V163=(base[0]);
2026          V161=(base[1]);          V164=(base[1]);
2027          V162=(base[2]);          V165=(base[2]);
2028          V163=(base[3]);          V166=(base[3]);
2029          vs_top=sup;          vs_top=sup;
2030          goto TTL;          goto TTL;
2031  TTL:;  TTL:;
2032          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
2033          goto T537;}          goto T535;}
2034          if(((V161))==Cnil){          if(((V164))==Cnil){
2035          goto T540;}          goto T538;}
2036          base[4]= (V161);          base[4]= (V164);
2037          base[5]= VV[35];          base[5]= VV[35];
2038          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2039          (void) (*Lnk270)();          (void) (*Lnk270)();
2040          vs_top=sup;          vs_top=sup;
2041          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2042          goto T544;}          goto T542;}
2043          base[4]= structure_ref((V161),VV[35],0);          base[4]= structure_ref((V164),VV[35],0);
2044          base[5]= structure_ref((V161),VV[35],1);          base[5]= structure_ref((V164),VV[35],1);
2045          base[6]= structure_ref((V161),VV[35],2);          base[6]= structure_ref((V164),VV[35],2);
2046          base[7]= (V162);          base[7]= (V165);
2047          base[8]= (V163);          base[8]= (V166);
2048          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2049          {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))
2050                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2051                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2052                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2053          return;          return;
2054          goto T544;          goto T542;
2055  T544:;  T542:;
2056          if(!(type_of((V161))==t_fixnum)){          if(!(type_of((V164))==t_fixnum)){
2057          goto T554;}          goto T552;}
2058          {object V166;          {object V169;
2059          if(type_of(V162)==t_structure){          if(type_of(V165)==t_structure){
2060          goto T560;}          goto T558;}
2061            goto T556;
2062          goto T558;          goto T558;
2063          goto T560;  T558:;
2064  T560:;          base[4]= V165;
         base[4]= V162;  
2065          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2066          (void) (*Lnk271)();          (void) (*Lnk271)();
2067          vs_top=sup;          vs_top=sup;
2068          V168= vs_base[0];          V171= vs_base[0];
2069          if(!((V168)==(VV[120]))){          if(!((V171)==(VV[120]))){
2070          goto T558;}          goto T556;}
2071          V166= structure_ref((V162),VV[37],1);          V169= structure_ref((V165),VV[37],1);
2072            goto T554;
2073          goto T556;          goto T556;
2074          goto T558;  T556:;{object V172;
2075  T558:;{object V169;          V172= symbol_value(VV[38]);
         V169= symbol_value(VV[38]);  
2076          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2077          base[5]= (V162);          base[5]= (V165);
2078          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2079          (void) (*Lnk272)();          (void) (*Lnk272)();
2080          vs_top=sup;          vs_top=sup;
2081          V170= vs_base[0];          V173= vs_base[0];
2082          if(!((V169)==(car(V170)))){          if(!((V172)==(car(V173)))){
2083          goto T565;}}          goto T563;}}
2084          V166= car(((V162))->cc.cc_turbo[12]);          V169= car(((V165))->cc.cc_turbo[12]);
2085          goto T556;          goto T554;
2086          goto T565;          goto T563;
2087  T565:;  T563:;
2088          V166= Cnil;          V169= Cnil;
2089          goto T556;          goto T554;
2090  T556:;  T554:;
2091          if(((V166))==Cnil){          if(((V169))==Cnil){
2092          goto T571;}          goto T569;}
2093          base[4]= aset1((V166),fix((V161)),V162);          base[4]= aset1((V169),fix((V164)),V165);
2094          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2095          return;          return;
2096          goto T571;          goto T569;
2097  T571:;  T569:;
2098          base[4]= Cnil;          base[4]= Cnil;
2099          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2100          return;}          return;}
2101          goto T554;          goto T552;
2102  T554:;  T552:;
2103          {register object V172;          {register object V175;
2104          V172= V161;          V175= V164;
2105          base[4]= (V172);          base[4]= (V175);
2106          base[5]= VV[39];          base[5]= VV[39];
2107          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2108          (void) (*Lnk270)();          (void) (*Lnk270)();
2109          vs_top=sup;          vs_top=sup;
2110          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2111          goto T574;}          goto T572;}
2112          {object V173;          {object V176;
2113          object V174;          object V177;
2114          register object V175;          register object V178;
2115          V173= structure_ref((V161),VV[39],0);          V176= structure_ref((V164),VV[39],0);
2116          V174= list(2,(V162),(V163));          V177= list(2,(V165),(V166));
2117          V175= structure_ref((V161),VV[39],1);          V178= structure_ref((V164),VV[39],1);
2118          if(((V175))==Cnil){          if(((V178))==Cnil){
2119          goto T582;}          goto T580;}
2120          if((cdr((V175)))!=Cnil){          if((cdr((V178)))!=Cnil){
2121          goto T582;}          goto T580;}
2122          base[4]= (V174);          base[4]= (V177);
2123          base[5]= car((V175));          base[5]= car((V178));
2124          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2125          {object _funobj = (V173);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V176);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2126                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2127                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2128                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2129          return;          return;
2130          goto T582;          goto T580;
2131  T582:;  T580:;
2132          base[4]= (V173);          base[4]= (V176);
2133          base[5]= (V174);          base[5]= (V177);
2134          {object V176;          {object V179;
2135          V176= (V175);          V179= (V178);
2136           vs_top=base+6;           vs_top=base+6;
2137           while(!endp(V176))           while(!endp(V179))
2138           {vs_push(car(V176));V176=cdr(V176);}           {vs_push(car(V179));V179=cdr(V179);}
2139          vs_base=base+5;}          vs_base=base+5;}
2140          {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))
2141                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2142                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2143                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2144          return;}          return;}
2145          goto T574;          goto T572;
2146  T574:;  T572:;
2147          base[4]= (V172);          base[4]= (V175);
2148          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2149          Lfunctionp();          Lfunctionp();
2150          vs_top=sup;          vs_top=sup;
2151          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2152          goto T592;}          goto T590;}
2153          base[4]= (V162);          base[4]= (V165);
2154          base[5]= (V163);          base[5]= (V166);
2155          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2156          {object _funobj = (V161);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V164);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2157                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2158                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2159                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2160          return;          return;
2161          goto T592;          goto T590;
2162  T592:;  T590:;
2163          base[4]= VV[40];          base[4]= VV[40];
2164          base[5]= VV[18];          base[5]= VV[18];
2165          base[6]= VV[41];          base[6]= VV[41];
2166          base[7]= VV[42];          base[7]= VV[42];
2167          base[8]= V161;          base[8]= V164;
2168          base[9]= VV[43];          base[9]= VV[43];
2169          base[10]= VV[121];          base[10]= VV[121];
2170          base[11]= VV[45];          base[11]= VV[45];
# Line 2177  T592:; Line 2172  T592:;
2172          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2173          (void) (*Lnk13)();          (void) (*Lnk13)();
2174          return;}          return;}
2175          goto T540;          goto T538;
2176  T540:;  T538:;
2177          base[4]= VV[47];          base[4]= VV[47];
2178          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2179          (void) (*Lnk273)();          (void) (*Lnk273)();
2180          return;          return;
2181          goto T537;          goto T535;
2182  T537:;  T535:;
2183          base[4]= V163;          base[4]= V166;
2184          base[5]= VV[123];          base[5]= VV[123];
2185          base[7]= V162;          base[7]= V165;
2186          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2187          (void) (*Lnk295)(Lclptr295);          (void) (*Lnk295)(Lclptr295);
2188          vs_top=sup;          vs_top=sup;
# Line 2209  TTL:; Line 2204  TTL:;
2204          base[2]= Cnil;          base[2]= Cnil;
2205          base[3]= VV[124];          base[3]= VV[124];
2206          base[4]= VV[125];          base[4]= VV[125];
2207          V179= symbol_function(VV[296]);          V182= symbol_function(VV[296]);
2208          base[5]= listA(3,VV[51],V179,VV[126]);          base[5]= listA(3,VV[51],V182,VV[126]);
2209          base[6]= Cnil;          base[6]= Cnil;
2210          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2211          (void) (*Lnk276)();          (void) (*Lnk276)();
2212          vs_top=sup;          vs_top=sup;
2213          {object V180 = Cnil;          {object V183 = Cnil;
2214          VMR94(V180)}          VMR94(V183)}
2215          base[0]=base[0];          base[0]=base[0];
2216          return Cnil;          return Cnil;
2217  }  }
# Line 2227  static object LI95() Line 2222  static object LI95()
2222  {        VMB95 VMS95 VMV95  {        VMB95 VMS95 VMV95
2223          goto TTL;          goto TTL;
2224  TTL:;  TTL:;
2225          {object V181 = Cnil;          {object V184 = Cnil;
2226          VMR95(V181)}          VMR95(V184)}
2227          return Cnil;          return Cnil;
2228  }  }
2229  /*      function definition for Defclass FILE-ERROR4519 */  /*      function definition for Defclass FILE-ERROR4519 */
# Line 2244  TTL:; Line 2239  TTL:;
2239          base[0]= VV[127];          base[0]= VV[127];
2240          base[1]= VV[5];          base[1]= VV[5];
2241          base[2]= VV[128];          base[2]= VV[128];
2242          V182= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil);          V185= listA(9,VV[18],VV[129],VV[20],VV[130],VV[22],Cnil,VV[23],VV[131],Cnil);
2243          base[3]= make_cons(/* INLINE-ARGS */V182,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V185,Cnil);
2244          base[4]= Cnil;          base[4]= Cnil;
2245          base[5]= Cnil;          base[5]= Cnil;
2246          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 2261  TTL:; Line 2256  TTL:;
2256          vs_base=vs_top;          vs_base=vs_top;
2257          (void) (*Lnk297)();          (void) (*Lnk297)();
2258          vs_top=sup;          vs_top=sup;
2259          {object V183 = Cnil;          {object V186 = Cnil;
2260          VMR97(V183)}          VMR97(V186)}
2261          base[0]=base[0];          base[0]=base[0];
2262          return Cnil;          return Cnil;
2263  }  }
# Line 2279  TTL:; Line 2274  TTL:;
2274          Ladjoin();          Ladjoin();
2275          vs_top=sup;          vs_top=sup;
2276          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
2277          {object V185 = Cnil;          {object V188 = Cnil;
2278          VMR98(V185)}          VMR98(V188)}
2279          base[0]=base[0];          base[0]=base[0];
2280          return Cnil;          return Cnil;
2281  }  }
# Line 2292  static object LI99() Line 2287  static object LI99()
2287          goto TTL;          goto TTL;
2288  TTL:;  TTL:;
2289          (void)(sputprop(VV[127],VV[9],Cnil));          (void)(sputprop(VV[127],VV[9],Cnil));
2290          {object V186 = Cnil;          {object V189 = Cnil;
2291          VMR99(V186)}          VMR99(V189)}
2292          return Cnil;          return Cnil;
2293  }  }
2294  /*      local entry for function progn 'compile4589     */  /*      local entry for function progn 'compile4589     */
# Line 2303  static object LI100() Line 2298  static object LI100()
2298  {        VMB100 VMS100 VMV100  {        VMB100 VMS100 VMV100
2299          goto TTL;          goto TTL;
2300  TTL:;  TTL:;
2301          {object V187 = Cnil;          {object V190 = Cnil;
2302          VMR100(V187)}          VMR100(V190)}
2303          return Cnil;          return Cnil;
2304  }  }
2305  /*      function definition for Defclass PACKAGE-ERROR4609      */  /*      function definition for Defclass PACKAGE-ERROR4609      */
# Line 2320  TTL:; Line 2315  TTL:;
2315          base[0]= VV[133];          base[0]= VV[133];
2316          base[1]= VV[5];          base[1]= VV[5];
2317          base[2]= VV[134];          base[2]= VV[134];
2318          V188= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil);          V191= listA(9,VV[18],VV[135],VV[20],VV[136],VV[22],Cnil,VV[23],VV[137],Cnil);
2319          base[3]= list(2,/* INLINE-ARGS */V188,listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil));          base[3]= list(2,/* INLINE-ARGS */V191,listA(9,VV[18],VV[138],VV[20],VV[139],VV[22],Cnil,VV[23],VV[140],Cnil));
2320          base[4]= Cnil;          base[4]= Cnil;
2321          base[5]= Cnil;          base[5]= Cnil;
2322          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 2337  TTL:; Line 2332  TTL:;
2332          vs_base=vs_top;          vs_base=vs_top;
2333          (void) (*Lnk298)();          (void) (*Lnk298)();
2334          vs_top=sup;          vs_top=sup;
2335          {object V189 = Cnil;          {object V192 = Cnil;
2336          VMR102(V189)}          VMR102(V192)}
2337          base[0]=base[0];          base[0]=base[0];
2338          return Cnil;          return Cnil;
2339  }  }
# Line 2355  TTL:; Line 2350  TTL:;
2350          Ladjoin();          Ladjoin();
2351          vs_top=sup;          vs_top=sup;
2352          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
2353          {object V191 = Cnil;          {object V194 = Cnil;
2354          VMR103(V191)}          VMR103(V194)}
2355          base[0]=base[0];          base[0]=base[0];
2356          return Cnil;          return Cnil;
2357  }  }
# Line 2368  static object LI104() Line 2363  static object LI104()
2363          goto TTL;          goto TTL;
2364  TTL:;  TTL:;
2365          (void)(sputprop(VV[133],VV[9],Cnil));          (void)(sputprop(VV[133],VV[9],Cnil));
2366          {object V192 = Cnil;          {object V195 = Cnil;
2367          VMR104(V192)}          VMR104(V195)}
2368          return Cnil;          return Cnil;
2369  }  }
2370  /*      local entry for function progn 'compile4684     */  /*      local entry for function progn 'compile4684     */
# Line 2384  TTL:; Line 2379  TTL:;
2379          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2380          (void) (*Lnk269)();          (void) (*Lnk269)();
2381          vs_top=sup;          vs_top=sup;
2382          {object V193 = Cnil;          {object V196 = Cnil;
2383          VMR105(V193)}          VMR105(V196)}
2384          base[0]=base[0];          base[0]=base[0];
2385          return Cnil;          return Cnil;
2386  }  }
# Line 2395  static void L106() Line 2390  static void L106()
2390  {register object *base=vs_base;  {register object *base=vs_base;
2391          register object *sup=base+VM106; VC106          register object *sup=base+VM106; VC106
2392          vs_reserve(VM106);          vs_reserve(VM106);
2393          {object V194;          {object V197;
2394          register object V195;          register object V198;
2395          register object V196;          register object V199;
2396          register object V197;          register object V200;
2397          check_arg(4);          check_arg(4);
2398          V194=(base[0]);          V197=(base[0]);
2399          V195=(base[1]);          V198=(base[1]);
2400          V196=(base[2]);          V199=(base[2]);
2401          V197=(base[3]);          V200=(base[3]);
2402          vs_top=sup;          vs_top=sup;
2403          goto TTL;          goto TTL;
2404  TTL:;  TTL:;
2405          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
2406          goto T653;}          goto T651;}
2407          if(((V195))==Cnil){          if(((V198))==Cnil){
2408          goto T656;}          goto T654;}
2409          base[4]= (V195);          base[4]= (V198);
2410          base[5]= VV[35];          base[5]= VV[35];
2411          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2412          (void) (*Lnk270)();          (void) (*Lnk270)();
2413          vs_top=sup;          vs_top=sup;
2414          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2415          goto T660;}          goto T658;}
2416          base[4]= structure_ref((V195),VV[35],0);          base[4]= structure_ref((V198),VV[35],0);
2417          base[5]= structure_ref((V195),VV[35],1);          base[5]= structure_ref((V198),VV[35],1);
2418          base[6]= structure_ref((V195),VV[35],2);          base[6]= structure_ref((V198),VV[35],2);
2419          base[7]= (V196);          base[7]= (V199);
2420          base[8]= (V197);          base[8]= (V200);
2421          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2422          {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))
2423                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2424                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2425                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2426          return;          return;
2427          goto T660;          goto T658;
2428  T660:;  T658:;
2429          if(!(type_of((V195))==t_fixnum)){          if(!(type_of((V198))==t_fixnum)){
2430          goto T670;}          goto T668;}
2431          {object V200;          {object V203;
2432          if(type_of(V196)==t_structure){          if(type_of(V199)==t_structure){
2433          goto T676;}          goto T674;}
2434            goto T672;
2435          goto T674;          goto T674;
2436          goto T676;  T674:;
2437  T676:;          base[4]= V199;
         base[4]= V196;  
2438          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2439          (void) (*Lnk271)();          (void) (*Lnk271)();
2440          vs_top=sup;          vs_top=sup;
2441          V202= vs_base[0];          V205= vs_base[0];
2442          if(!((V202)==(VV[143]))){          if(!((V205)==(VV[143]))){
2443          goto T674;}          goto T672;}
2444          V200= structure_ref((V196),VV[37],1);          V203= structure_ref((V199),VV[37],1);
2445            goto T670;
2446          goto T672;          goto T672;
2447          goto T674;  T672:;{object V206;
2448  T674:;{object V203;          V206= symbol_value(VV[38]);
         V203= symbol_value(VV[38]);  
2449          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2450          base[5]= (V196);          base[5]= (V199);
2451          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2452          (void) (*Lnk272)();          (void) (*Lnk272)();
2453          vs_top=sup;          vs_top=sup;
2454          V204= vs_base[0];          V207= vs_base[0];
2455          if(!((V203)==(car(V204)))){          if(!((V206)==(car(V207)))){
2456          goto T681;}}          goto T679;}}
2457          V200= car(((V196))->cc.cc_turbo[12]);          V203= car(((V199))->cc.cc_turbo[12]);
2458          goto T672;          goto T670;
2459          goto T681;          goto T679;
2460  T681:;  T679:;
2461          V200= Cnil;          V203= Cnil;
2462          goto T672;          goto T670;
2463  T672:;  T670:;
2464          if(((V200))==Cnil){          if(((V203))==Cnil){
2465          goto T687;}          goto T685;}
2466          base[4]= aset1((V200),fix((V195)),V196);          base[4]= aset1((V203),fix((V198)),V199);
2467          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2468          return;          return;
2469          goto T687;          goto T685;
2470  T687:;  T685:;
2471          base[4]= Cnil;          base[4]= Cnil;
2472          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2473          return;}          return;}
2474          goto T670;          goto T668;
2475  T670:;  T668:;
2476          {register object V206;          {register object V209;
2477          V206= V195;          V209= V198;
2478          base[4]= (V206);          base[4]= (V209);
2479          base[5]= VV[39];          base[5]= VV[39];
2480          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2481          (void) (*Lnk270)();          (void) (*Lnk270)();
2482          vs_top=sup;          vs_top=sup;
2483          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2484          goto T690;}          goto T688;}
2485          {object V207;          {object V210;
2486          object V208;          object V211;
2487          register object V209;          register object V212;
2488          V207= structure_ref((V195),VV[39],0);          V210= structure_ref((V198),VV[39],0);
2489          V208= list(2,(V196),(V197));          V211= list(2,(V199),(V200));
2490          V209= structure_ref((V195),VV[39],1);          V212= structure_ref((V198),VV[39],1);
2491          if(((V209))==Cnil){          if(((V212))==Cnil){
2492          goto T698;}          goto T696;}
2493          if((cdr((V209)))!=Cnil){          if((cdr((V212)))!=Cnil){
2494          goto T698;}          goto T696;}
2495          base[4]= (V208);          base[4]= (V211);
2496          base[5]= car((V209));          base[5]= car((V212));
2497          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2498          {object _funobj = (V207);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V210);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2499                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2500                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2501                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2502          return;          return;
2503          goto T698;          goto T696;
2504  T698:;  T696:;
2505          base[4]= (V207);          base[4]= (V210);
2506          base[5]= (V208);          base[5]= (V211);
2507          {object V210;          {object V213;
2508          V210= (V209);          V213= (V212);
2509           vs_top=base+6;           vs_top=base+6;
2510           while(!endp(V210))           while(!endp(V213))
2511           {vs_push(car(V210));V210=cdr(V210);}           {vs_push(car(V213));V213=cdr(V213);}
2512          vs_base=base+5;}          vs_base=base+5;}
2513          {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))
2514                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2515                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2516                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2517          return;}          return;}
2518          goto T690;          goto T688;
2519  T690:;  T688:;
2520          base[4]= (V206);          base[4]= (V209);
2521          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2522          Lfunctionp();          Lfunctionp();
2523          vs_top=sup;          vs_top=sup;
2524          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2525          goto T708;}          goto T706;}
2526          base[4]= (V196);          base[4]= (V199);
2527          base[5]= (V197);          base[5]= (V200);
2528          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2529          {object _funobj = (V195);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V198);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2530                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2531                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2532                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2533          return;          return;
2534          goto T708;          goto T706;
2535  T708:;  T706:;
2536          base[4]= VV[40];          base[4]= VV[40];
2537          base[5]= VV[18];          base[5]= VV[18];
2538          base[6]= VV[41];          base[6]= VV[41];
2539          base[7]= VV[42];          base[7]= VV[42];
2540          base[8]= V195;          base[8]= V198;
2541          base[9]= VV[43];          base[9]= VV[43];
2542          base[10]= VV[144];          base[10]= VV[144];
2543          base[11]= VV[45];          base[11]= VV[45];
# Line 2550  T708:; Line 2545  T708:;
2545          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2546          (void) (*Lnk13)();          (void) (*Lnk13)();
2547          return;}          return;}
2548          goto T656;          goto T654;
2549  T656:;  T654:;
2550          base[4]= VV[47];          base[4]= VV[47];
2551          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2552          (void) (*Lnk273)();          (void) (*Lnk273)();
2553          return;          return;
2554          goto T653;          goto T651;
2555  T653:;  T651:;
2556          base[4]= V197;          base[4]= V200;
2557          base[5]= VV[146];          base[5]= VV[146];
2558          base[7]= V196;          base[7]= V199;
2559          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2560          (void) (*Lnk299)(Lclptr299);          (void) (*Lnk299)(Lclptr299);
2561          vs_top=sup;          vs_top=sup;
2562          base[6]= vs_base[0];          base[6]= vs_base[0];
2563          base[8]= V196;          base[8]= V199;
2564          vs_top=(vs_base=base+8)+1;          vs_top=(vs_base=base+8)+1;
2565          (void) (*Lnk300)(Lclptr300);          (void) (*Lnk300)(Lclptr300);
2566          vs_top=sup;          vs_top=sup;
# Line 2587  TTL:; Line 2582  TTL:;
2582          base[2]= Cnil;          base[2]= Cnil;
2583          base[3]= VV[147];          base[3]= VV[147];
2584          base[4]= VV[148];          base[4]= VV[148];
2585          V213= symbol_function(VV[301]);          V216= symbol_function(VV[301]);
2586          base[5]= listA(3,VV[51],V213,VV[149]);          base[5]= listA(3,VV[51],V216,VV[149]);
2587          base[6]= Cnil;          base[6]= Cnil;
2588          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2589          (void) (*Lnk276)();          (void) (*Lnk276)();
2590          vs_top=sup;          vs_top=sup;
2591          {object V214 = Cnil;          {object V217 = Cnil;
2592          VMR107(V214)}          VMR107(V217)}
2593          base[0]=base[0];          base[0]=base[0];
2594          return Cnil;          return Cnil;
2595  }  }
# Line 2605  static object LI108() Line 2600  static object LI108()
2600  {        VMB108 VMS108 VMV108  {        VMB108 VMS108 VMV108
2601          goto TTL;          goto TTL;
2602  TTL:;  TTL:;
2603          {object V215 = Cnil;          {object V218 = Cnil;
2604          VMR108(V215)}          VMR108(V218)}
2605          return Cnil;          return Cnil;
2606  }  }
2607  /*      function definition for Defclass CELL-ERROR4909 */  /*      function definition for Defclass CELL-ERROR4909 */
# Line 2622  TTL:; Line 2617  TTL:;
2617          base[0]= VV[150];          base[0]= VV[150];
2618          base[1]= VV[5];          base[1]= VV[5];
2619          base[2]= VV[151];          base[2]= VV[151];
2620          V216= 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[152],VV[22],Cnil,VV[23],VV[153],Cnil);
2621          base[3]= make_cons(/* INLINE-ARGS */V216,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V219,Cnil);
2622          base[4]= Cnil;          base[4]= Cnil;
2623          base[5]= Cnil;          base[5]= Cnil;
2624          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 2639  TTL:; Line 2634  TTL:;
2634          vs_base=vs_top;          vs_base=vs_top;
2635          (void) (*Lnk302)();          (void) (*Lnk302)();
2636          vs_top=sup;          vs_top=sup;
2637          {object V217 = Cnil;          {object V220 = Cnil;
2638          VMR110(V217)}          VMR110(V220)}
2639          base[0]=base[0];          base[0]=base[0];
2640          return Cnil;          return Cnil;
2641  }  }
# Line 2657  TTL:; Line 2652  TTL:;
2652          Ladjoin();          Ladjoin();
2653          vs_top=sup;          vs_top=sup;
2654          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
2655          {object V219 = Cnil;          {object V222 = Cnil;
2656          VMR111(V219)}          VMR111(V222)}
2657          base[0]=base[0];          base[0]=base[0];
2658          return Cnil;          return Cnil;
2659  }  }
# Line 2670  static object LI112() Line 2665  static object LI112()
2665          goto TTL;          goto TTL;
2666  TTL:;  TTL:;
2667          (void)(sputprop(VV[150],VV[9],Cnil));          (void)(sputprop(VV[150],VV[9],Cnil));
2668          {object V220 = Cnil;          {object V223 = Cnil;
2669          VMR112(V220)}          VMR112(V223)}
2670          return Cnil;          return Cnil;
2671  }  }
2672  /*      local entry for function progn 'compile4979     */  /*      local entry for function progn 'compile4979     */
# Line 2681  static object LI113() Line 2676  static object LI113()
2676  {        VMB113 VMS113 VMV113  {        VMB113 VMS113 VMV113
2677          goto TTL;          goto TTL;
2678  TTL:;  TTL:;
2679          {object V221 = Cnil;          {object V224 = Cnil;
2680          VMR113(V221)}          VMR113(V224)}
2681          return Cnil;          return Cnil;
2682  }  }
2683  /*      function definition for Defclass UNBOUND-VARIABLE4999   */  /*      function definition for Defclass UNBOUND-VARIABLE4999   */
# Line 2714  TTL:; Line 2709  TTL:;
2709          vs_base=vs_top;          vs_base=vs_top;
2710          (void) (*Lnk303)();          (void) (*Lnk303)();
2711          vs_top=sup;          vs_top=sup;
2712          {object V222 = Cnil;          {object V225 = Cnil;
2713          VMR115(V222)}          VMR115(V225)}
2714          base[0]=base[0];          base[0]=base[0];
2715          return Cnil;          return Cnil;
2716  }  }
# Line 2732  TTL:; Line 2727  TTL:;
2727          Ladjoin();          Ladjoin();
2728          vs_top=sup;          vs_top=sup;
2729          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
2730          {object V224 = Cnil;          {object V227 = Cnil;
2731          VMR116(V224)}          VMR116(V227)}
2732          base[0]=base[0];          base[0]=base[0];
2733          return Cnil;          return Cnil;
2734  }  }
# Line 2745  static object LI117() Line 2740  static object LI117()
2740          goto TTL;          goto TTL;
2741  TTL:;  TTL:;
2742          (void)(sputprop(VV[155],VV[9],Cnil));          (void)(sputprop(VV[155],VV[9],Cnil));
2743          {object V225 = Cnil;          {object V228 = Cnil;
2744          VMR117(V225)}          VMR117(V228)}
2745          return Cnil;          return Cnil;
2746  }  }
2747  /*      local entry for function progn 'compile5072     */  /*      local entry for function progn 'compile5072     */
# Line 2761  TTL:; Line 2756  TTL:;
2756          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
2757          (void) (*Lnk269)();          (void) (*Lnk269)();
2758          vs_top=sup;          vs_top=sup;
2759          {object V226 = Cnil;          {object V229 = Cnil;
2760          VMR118(V226)}          VMR118(V229)}
2761          base[0]=base[0];          base[0]=base[0];
2762          return Cnil;          return Cnil;
2763  }  }
# Line 2772  static void L119() Line 2767  static void L119()
2767  {register object *base=vs_base;  {register object *base=vs_base;
2768          register object *sup=base+VM119; VC119          register object *sup=base+VM119; VC119
2769          vs_reserve(VM119);          vs_reserve(VM119);
2770          {object V227;          {object V230;
2771          register object V228;          register object V231;
2772          register object V229;          register object V232;
2773          register object V230;          register object V233;
2774          check_arg(4);          check_arg(4);
2775          V227=(base[0]);          V230=(base[0]);
2776          V228=(base[1]);          V231=(base[1]);
2777          V229=(base[2]);          V232=(base[2]);
2778          V230=(base[3]);          V233=(base[3]);
2779          vs_top=sup;          vs_top=sup;
2780          goto TTL;          goto TTL;
2781  TTL:;  TTL:;
2782          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
2783          goto T771;}          goto T769;}
2784          if(((V228))==Cnil){          if(((V231))==Cnil){
2785          goto T774;}          goto T772;}
2786          base[4]= (V228);          base[4]= (V231);
2787          base[5]= VV[35];          base[5]= VV[35];
2788          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2789          (void) (*Lnk270)();          (void) (*Lnk270)();
2790          vs_top=sup;          vs_top=sup;
2791          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2792          goto T778;}          goto T776;}
2793          base[4]= structure_ref((V228),VV[35],0);          base[4]= structure_ref((V231),VV[35],0);
2794          base[5]= structure_ref((V228),VV[35],1);          base[5]= structure_ref((V231),VV[35],1);
2795          base[6]= structure_ref((V228),VV[35],2);          base[6]= structure_ref((V231),VV[35],2);
2796          base[7]= (V229);          base[7]= (V232);
2797          base[8]= (V230);          base[8]= (V233);
2798          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
2799          {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))
2800                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2801                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2802                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2803          return;          return;
2804          goto T778;          goto T776;
2805  T778:;  T776:;
2806          if(!(type_of((V228))==t_fixnum)){          if(!(type_of((V231))==t_fixnum)){
2807          goto T788;}          goto T786;}
2808          {object V233;          {object V236;
2809          if(type_of(V229)==t_structure){          if(type_of(V232)==t_structure){
2810          goto T794;}          goto T792;}
2811            goto T790;
2812          goto T792;          goto T792;
2813          goto T794;  T792:;
2814  T794:;          base[4]= V232;
         base[4]= V229;  
2815          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2816          (void) (*Lnk271)();          (void) (*Lnk271)();
2817          vs_top=sup;          vs_top=sup;
2818          V235= vs_base[0];          V238= vs_base[0];
2819          if(!((V235)==(VV[159]))){          if(!((V238)==(VV[159]))){
2820          goto T792;}          goto T790;}
2821          V233= structure_ref((V229),VV[37],1);          V236= structure_ref((V232),VV[37],1);
2822            goto T788;
2823          goto T790;          goto T790;
2824          goto T792;  T790:;{object V239;
2825  T792:;{object V236;          V239= symbol_value(VV[38]);
         V236= symbol_value(VV[38]);  
2826          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
2827          base[5]= (V229);          base[5]= (V232);
2828          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2829          (void) (*Lnk272)();          (void) (*Lnk272)();
2830          vs_top=sup;          vs_top=sup;
2831          V237= vs_base[0];          V240= vs_base[0];
2832          if(!((V236)==(car(V237)))){          if(!((V239)==(car(V240)))){
2833          goto T799;}}          goto T797;}}
2834          V233= car(((V229))->cc.cc_turbo[12]);          V236= car(((V232))->cc.cc_turbo[12]);
2835          goto T790;          goto T788;
2836          goto T799;          goto T797;
2837  T799:;  T797:;
2838          V233= Cnil;          V236= Cnil;
2839          goto T790;          goto T788;
2840  T790:;  T788:;
2841          if(((V233))==Cnil){          if(((V236))==Cnil){
2842          goto T805;}          goto T803;}
2843          base[4]= aset1((V233),fix((V228)),V229);          base[4]= aset1((V236),fix((V231)),V232);
2844          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2845          return;          return;
2846          goto T805;          goto T803;
2847  T805:;  T803:;
2848          base[4]= Cnil;          base[4]= Cnil;
2849          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2850          return;}          return;}
2851          goto T788;          goto T786;
2852  T788:;  T786:;
2853          {register object V239;          {register object V242;
2854          V239= V228;          V242= V231;
2855          base[4]= (V239);          base[4]= (V242);
2856          base[5]= VV[39];          base[5]= VV[39];
2857          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2858          (void) (*Lnk270)();          (void) (*Lnk270)();
2859          vs_top=sup;          vs_top=sup;
2860          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2861          goto T808;}          goto T806;}
2862          {object V240;          {object V243;
2863          object V241;          object V244;
2864          register object V242;          register object V245;
2865          V240= structure_ref((V228),VV[39],0);          V243= structure_ref((V231),VV[39],0);
2866          V241= list(2,(V229),(V230));          V244= list(2,(V232),(V233));
2867          V242= structure_ref((V228),VV[39],1);          V245= structure_ref((V231),VV[39],1);
2868          if(((V242))==Cnil){          if(((V245))==Cnil){
2869          goto T816;}          goto T814;}
2870          if((cdr((V242)))!=Cnil){          if((cdr((V245)))!=Cnil){
2871          goto T816;}          goto T814;}
2872          base[4]= (V241);          base[4]= (V244);
2873          base[5]= car((V242));          base[5]= car((V245));
2874          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2875          {object _funobj = (V240);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V243);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2876                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2877                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2878                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2879          return;          return;
2880          goto T816;          goto T814;
2881  T816:;  T814:;
2882          base[4]= (V240);          base[4]= (V243);
2883          base[5]= (V241);          base[5]= (V244);
2884          {object V243;          {object V246;
2885          V243= (V242);          V246= (V245);
2886           vs_top=base+6;           vs_top=base+6;
2887           while(!endp(V243))           while(!endp(V246))
2888           {vs_push(car(V243));V243=cdr(V243);}           {vs_push(car(V246));V246=cdr(V246);}
2889          vs_base=base+5;}          vs_base=base+5;}
2890          {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))
2891                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2892                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2893                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2894          return;}          return;}
2895          goto T808;          goto T806;
2896  T808:;  T806:;
2897          base[4]= (V239);          base[4]= (V242);
2898          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2899          Lfunctionp();          Lfunctionp();
2900          vs_top=sup;          vs_top=sup;
2901          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
2902          goto T826;}          goto T824;}
2903          base[4]= (V229);          base[4]= (V232);
2904          base[5]= (V230);          base[5]= (V233);
2905          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
2906          {object _funobj = (V228);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V231);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
2907                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
2908                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
2909                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
2910          return;          return;
2911          goto T826;          goto T824;
2912  T826:;  T824:;
2913          base[4]= VV[40];          base[4]= VV[40];
2914          base[5]= VV[18];          base[5]= VV[18];
2915          base[6]= VV[41];          base[6]= VV[41];
2916          base[7]= VV[42];          base[7]= VV[42];
2917          base[8]= V228;          base[8]= V231;
2918          base[9]= VV[43];          base[9]= VV[43];
2919          base[10]= VV[160];          base[10]= VV[160];
2920          base[11]= VV[45];          base[11]= VV[45];
# Line 2927  T826:; Line 2922  T826:;
2922          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
2923          (void) (*Lnk13)();          (void) (*Lnk13)();
2924          return;}          return;}
2925          goto T774;          goto T772;
2926  T774:;  T772:;
2927          base[4]= VV[47];          base[4]= VV[47];
2928          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
2929          (void) (*Lnk273)();          (void) (*Lnk273)();
2930          return;          return;
2931          goto T771;          goto T769;
2932  T771:;  T769:;
2933          base[4]= V230;          base[4]= V233;
2934          base[5]= VV[162];          base[5]= VV[162];
2935          base[7]= V229;          base[7]= V232;
2936          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
2937          (void) (*Lnk304)(Lclptr304);          (void) (*Lnk304)(Lclptr304);
2938          vs_top=sup;          vs_top=sup;
# Line 2959  TTL:; Line 2954  TTL:;
2954          base[2]= Cnil;          base[2]= Cnil;
2955          base[3]= VV[163];          base[3]= VV[163];
2956          base[4]= VV[164];          base[4]= VV[164];
2957          V246= symbol_function(VV[305]);          V249= symbol_function(VV[305]);
2958          base[5]= listA(3,VV[51],V246,VV[165]);          base[5]= listA(3,VV[51],V249,VV[165]);
2959          base[6]= Cnil;          base[6]= Cnil;
2960          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
2961          (void) (*Lnk276)();          (void) (*Lnk276)();
2962          vs_top=sup;          vs_top=sup;
2963          {object V247 = Cnil;          {object V250 = Cnil;
2964          VMR120(V247)}          VMR120(V250)}
2965          base[0]=base[0];          base[0]=base[0];
2966          return Cnil;          return Cnil;
2967  }  }
# Line 2977  static object LI121() Line 2972  static object LI121()
2972  {        VMB121 VMS121 VMV121  {        VMB121 VMS121 VMV121
2973          goto TTL;          goto TTL;
2974  TTL:;  TTL:;
2975          {object V248 = Cnil;          {object V251 = Cnil;
2976          VMR121(V248)}          VMR121(V251)}
2977          return Cnil;          return Cnil;
2978  }  }
2979  /*      function definition for Defclass UNDEFINED-FUNCTION5297 */  /*      function definition for Defclass UNDEFINED-FUNCTION5297 */
# Line 3010  TTL:; Line 3005  TTL:;
3005          vs_base=vs_top;          vs_base=vs_top;
3006          (void) (*Lnk306)();          (void) (*Lnk306)();
3007          vs_top=sup;          vs_top=sup;
3008          {object V249 = Cnil;          {object V252 = Cnil;
3009          VMR123(V249)}          VMR123(V252)}
3010          base[0]=base[0];          base[0]=base[0];
3011          return Cnil;          return Cnil;
3012  }  }
# Line 3028  TTL:; Line 3023  TTL:;
3023          Ladjoin();          Ladjoin();
3024          vs_top=sup;          vs_top=sup;
3025          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
3026          {object V251 = Cnil;          {object V254 = Cnil;
3027          VMR124(V251)}          VMR124(V254)}
3028          base[0]=base[0];          base[0]=base[0];
3029          return Cnil;          return Cnil;
3030  }  }
# Line 3041  static object LI125() Line 3036  static object LI125()
3036          goto TTL;          goto TTL;
3037  TTL:;  TTL:;
3038          (void)(sputprop(VV[166],VV[9],Cnil));          (void)(sputprop(VV[166],VV[9],Cnil));
3039          {object V252 = Cnil;          {object V255 = Cnil;
3040          VMR125(V252)}          VMR125(V255)}
3041          return Cnil;          return Cnil;
3042  }  }
3043  /*      local entry for function progn 'compile5370     */  /*      local entry for function progn 'compile5370     */
# Line 3057  TTL:; Line 3052  TTL:;
3052          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3053          (void) (*Lnk269)();          (void) (*Lnk269)();
3054          vs_top=sup;          vs_top=sup;
3055          {object V253 = Cnil;          {object V256 = Cnil;
3056          VMR126(V253)}          VMR126(V256)}
3057          base[0]=base[0];          base[0]=base[0];
3058          return Cnil;          return Cnil;
3059  }  }
# Line 3068  static void L127() Line 3063  static void L127()
3063  {register object *base=vs_base;  {register object *base=vs_base;
3064          register object *sup=base+VM127; VC127          register object *sup=base+VM127; VC127
3065          vs_reserve(VM127);          vs_reserve(VM127);
3066          {object V254;          {object V257;
3067          register object V255;          register object V258;
3068          register object V256;          register object V259;
3069          register object V257;          register object V260;
3070          check_arg(4);          check_arg(4);
3071          V254=(base[0]);          V257=(base[0]);
3072          V255=(base[1]);          V258=(base[1]);
3073          V256=(base[2]);          V259=(base[2]);
3074          V257=(base[3]);          V260=(base[3]);
3075          vs_top=sup;          vs_top=sup;
3076          goto TTL;          goto TTL;
3077  TTL:;  TTL:;
3078          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
3079          goto T874;}          goto T872;}
3080          if(((V255))==Cnil){          if(((V258))==Cnil){
3081          goto T877;}          goto T875;}
3082          base[4]= (V255);          base[4]= (V258);
3083          base[5]= VV[35];          base[5]= VV[35];
3084          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3085          (void) (*Lnk270)();          (void) (*Lnk270)();
3086          vs_top=sup;          vs_top=sup;
3087          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3088          goto T881;}          goto T879;}
3089          base[4]= structure_ref((V255),VV[35],0);          base[4]= structure_ref((V258),VV[35],0);
3090          base[5]= structure_ref((V255),VV[35],1);          base[5]= structure_ref((V258),VV[35],1);
3091          base[6]= structure_ref((V255),VV[35],2);          base[6]= structure_ref((V258),VV[35],2);
3092          base[7]= (V256);          base[7]= (V259);
3093          base[8]= (V257);          base[8]= (V260);
3094          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3095          {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))
3096                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3097                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3098                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3099          return;          return;
3100          goto T881;          goto T879;
3101  T881:;  T879:;
3102          if(!(type_of((V255))==t_fixnum)){          if(!(type_of((V258))==t_fixnum)){
3103          goto T891;}          goto T889;}
3104          {object V260;          {object V263;
3105          if(type_of(V256)==t_structure){          if(type_of(V259)==t_structure){
3106          goto T897;}          goto T895;}
3107            goto T893;
3108          goto T895;          goto T895;
3109          goto T897;  T895:;
3110  T897:;          base[4]= V259;
         base[4]= V256;  
3111          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3112          (void) (*Lnk271)();          (void) (*Lnk271)();
3113          vs_top=sup;          vs_top=sup;
3114          V262= vs_base[0];          V265= vs_base[0];
3115          if(!((V262)==(VV[170]))){          if(!((V265)==(VV[170]))){
3116          goto T895;}          goto T893;}
3117          V260= structure_ref((V256),VV[37],1);          V263= structure_ref((V259),VV[37],1);
3118            goto T891;
3119          goto T893;          goto T893;
3120          goto T895;  T893:;{object V266;
3121  T895:;{object V263;          V266= symbol_value(VV[38]);
         V263= symbol_value(VV[38]);  
3122          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3123          base[5]= (V256);          base[5]= (V259);
3124          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3125          (void) (*Lnk272)();          (void) (*Lnk272)();
3126          vs_top=sup;          vs_top=sup;
3127          V264= vs_base[0];          V267= vs_base[0];
3128          if(!((V263)==(car(V264)))){          if(!((V266)==(car(V267)))){
3129          goto T902;}}          goto T900;}}
3130          V260= car(((V256))->cc.cc_turbo[12]);          V263= car(((V259))->cc.cc_turbo[12]);
3131          goto T893;          goto T891;
3132          goto T902;          goto T900;
3133  T902:;  T900:;
3134          V260= Cnil;          V263= Cnil;
3135          goto T893;          goto T891;
3136  T893:;  T891:;
3137          if(((V260))==Cnil){          if(((V263))==Cnil){
3138          goto T908;}          goto T906;}
3139          base[4]= aset1((V260),fix((V255)),V256);          base[4]= aset1((V263),fix((V258)),V259);
3140          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3141          return;          return;
3142          goto T908;          goto T906;
3143  T908:;  T906:;
3144          base[4]= Cnil;          base[4]= Cnil;
3145          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3146          return;}          return;}
3147          goto T891;          goto T889;
3148  T891:;  T889:;
3149          {register object V266;          {register object V269;
3150          V266= V255;          V269= V258;
3151          base[4]= (V266);          base[4]= (V269);
3152          base[5]= VV[39];          base[5]= VV[39];
3153          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3154          (void) (*Lnk270)();          (void) (*Lnk270)();
3155          vs_top=sup;          vs_top=sup;
3156          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3157          goto T911;}          goto T909;}
3158          {object V267;          {object V270;
3159          object V268;          object V271;
3160          register object V269;          register object V272;
3161          V267= structure_ref((V255),VV[39],0);          V270= structure_ref((V258),VV[39],0);
3162          V268= list(2,(V256),(V257));          V271= list(2,(V259),(V260));
3163          V269= structure_ref((V255),VV[39],1);          V272= structure_ref((V258),VV[39],1);
3164          if(((V269))==Cnil){          if(((V272))==Cnil){
3165          goto T919;}          goto T917;}
3166          if((cdr((V269)))!=Cnil){          if((cdr((V272)))!=Cnil){
3167          goto T919;}          goto T917;}
3168          base[4]= (V268);          base[4]= (V271);
3169          base[5]= car((V269));          base[5]= car((V272));
3170          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3171          {object _funobj = (V267);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V270);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3172                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3173                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3174                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3175          return;          return;
3176          goto T919;          goto T917;
3177  T919:;  T917:;
3178          base[4]= (V267);          base[4]= (V270);
3179          base[5]= (V268);          base[5]= (V271);
3180          {object V270;          {object V273;
3181          V270= (V269);          V273= (V272);
3182           vs_top=base+6;           vs_top=base+6;
3183           while(!endp(V270))           while(!endp(V273))
3184           {vs_push(car(V270));V270=cdr(V270);}           {vs_push(car(V273));V273=cdr(V273);}
3185          vs_base=base+5;}          vs_base=base+5;}
3186          {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))
3187                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3188                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3189                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3190          return;}          return;}
3191          goto T911;          goto T909;
3192  T911:;  T909:;
3193          base[4]= (V266);          base[4]= (V269);
3194          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3195          Lfunctionp();          Lfunctionp();
3196          vs_top=sup;          vs_top=sup;
3197          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3198          goto T929;}          goto T927;}
3199          base[4]= (V256);          base[4]= (V259);
3200          base[5]= (V257);          base[5]= (V260);
3201          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3202          {object _funobj = (V255);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V258);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
3203                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3204                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3205                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3206          return;          return;
3207          goto T929;          goto T927;
3208  T929:;  T927:;
3209          base[4]= VV[40];          base[4]= VV[40];
3210          base[5]= VV[18];          base[5]= VV[18];
3211          base[6]= VV[41];          base[6]= VV[41];
3212          base[7]= VV[42];          base[7]= VV[42];
3213          base[8]= V255;          base[8]= V258;
3214          base[9]= VV[43];          base[9]= VV[43];
3215          base[10]= VV[171];          base[10]= VV[171];
3216          base[11]= VV[45];          base[11]= VV[45];
# Line 3223  T929:; Line 3218  T929:;
3218          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
3219          (void) (*Lnk13)();          (void) (*Lnk13)();
3220          return;}          return;}
3221          goto T877;          goto T875;
3222  T877:;  T875:;
3223          base[4]= VV[47];          base[4]= VV[47];
3224          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3225          (void) (*Lnk273)();          (void) (*Lnk273)();
3226          return;          return;
3227          goto T874;          goto T872;
3228  T874:;  T872:;
3229          base[4]= V257;          base[4]= V260;
3230          base[5]= VV[173];          base[5]= VV[173];
3231          base[7]= V256;          base[7]= V259;
3232          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
3233          (void) (*Lnk304)(Lclptr304);          (void) (*Lnk304)(Lclptr304);
3234          vs_top=sup;          vs_top=sup;
# Line 3255  TTL:; Line 3250  TTL:;
3250          base[2]= Cnil;          base[2]= Cnil;
3251          base[3]= VV[174];          base[3]= VV[174];
3252          base[4]= VV[175];          base[4]= VV[175];
3253          V273= symbol_function(VV[307]);          V276= symbol_function(VV[307]);
3254          base[5]= listA(3,VV[51],V273,VV[176]);          base[5]= listA(3,VV[51],V276,VV[176]);
3255          base[6]= Cnil;          base[6]= Cnil;
3256          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3257          (void) (*Lnk276)();          (void) (*Lnk276)();
3258          vs_top=sup;          vs_top=sup;
3259          {object V274 = Cnil;          {object V277 = Cnil;
3260          VMR128(V274)}          VMR128(V277)}
3261          base[0]=base[0];          base[0]=base[0];
3262          return Cnil;          return Cnil;
3263  }  }
# Line 3273  static object LI129() Line 3268  static object LI129()
3268  {        VMB129 VMS129 VMV129  {        VMB129 VMS129 VMV129
3269          goto TTL;          goto TTL;
3270  TTL:;  TTL:;
3271          {object V275 = Cnil;          {object V278 = Cnil;
3272          VMR129(V275)}          VMR129(V278)}
3273          return Cnil;          return Cnil;
3274  }  }
3275  /*      function definition for Defclass ARITHMETIC-ERROR5595   */  /*      function definition for Defclass ARITHMETIC-ERROR5595   */
# Line 3290  TTL:; Line 3285  TTL:;
3285          base[0]= VV[177];          base[0]= VV[177];
3286          base[1]= VV[5];          base[1]= VV[5];
3287          base[2]= VV[178];          base[2]= VV[178];
3288          V276= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil);          V279= listA(9,VV[18],VV[179],VV[20],VV[180],VV[22],Cnil,VV[23],VV[181],Cnil);
3289          base[3]= make_cons(/* INLINE-ARGS */V276,Cnil);          base[3]= make_cons(/* INLINE-ARGS */V279,Cnil);
3290          base[4]= Cnil;          base[4]= Cnil;
3291          base[5]= Cnil;          base[5]= Cnil;
3292          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 3307  TTL:; Line 3302  TTL:;
3302          vs_base=vs_top;          vs_base=vs_top;
3303          (void) (*Lnk308)();          (void) (*Lnk308)();
3304          vs_top=sup;          vs_top=sup;
3305          {object V277 = Cnil;          {object V280 = Cnil;
3306          VMR131(V277)}          VMR131(V280)}
3307          base[0]=base[0];          base[0]=base[0];
3308          return Cnil;          return Cnil;
3309  }  }
# Line 3325  TTL:; Line 3320  TTL:;
3320          Ladjoin();          Ladjoin();
3321          vs_top=sup;          vs_top=sup;
3322          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
3323          {object V279 = Cnil;          {object V282 = Cnil;
3324          VMR132(V279)}          VMR132(V282)}
3325          base[0]=base[0];          base[0]=base[0];
3326          return Cnil;          return Cnil;
3327  }  }
# Line 3338  static object LI133() Line 3333  static object LI133()
3333          goto TTL;          goto TTL;
3334  TTL:;  TTL:;
3335          (void)(sputprop(VV[177],VV[9],Cnil));          (void)(sputprop(VV[177],VV[9],Cnil));
3336          {object V280 = Cnil;          {object V283 = Cnil;
3337          VMR133(V280)}          VMR133(V283)}
3338          return Cnil;          return Cnil;
3339  }  }
3340  /*      local entry for function progn 'compile5665     */  /*      local entry for function progn 'compile5665     */
# Line 3349  static object LI134() Line 3344  static object LI134()
3344  {        VMB134 VMS134 VMV134  {        VMB134 VMS134 VMV134
3345          goto TTL;          goto TTL;
3346  TTL:;  TTL:;
3347          {object V281 = Cnil;          {object V284 = Cnil;
3348          VMR134(V281)}          VMR134(V284)}
3349          return Cnil;          return Cnil;
3350  }  }
3351  /*      function definition for Defclass DIVISION-BY-ZERO5685   */  /*      function definition for Defclass DIVISION-BY-ZERO5685   */
# Line 3382  TTL:; Line 3377  TTL:;
3377          vs_base=vs_top;          vs_base=vs_top;
3378          (void) (*Lnk309)();          (void) (*Lnk309)();
3379          vs_top=sup;          vs_top=sup;
3380          {object V282 = Cnil;          {object V285 = Cnil;
3381          VMR136(V282)}          VMR136(V285)}
3382          base[0]=base[0];          base[0]=base[0];
3383          return Cnil;          return Cnil;
3384  }  }
# Line 3400  TTL:; Line 3395  TTL:;
3395          Ladjoin();          Ladjoin();
3396          vs_top=sup;          vs_top=sup;
3397          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
3398          {object V284 = Cnil;          {object V287 = Cnil;
3399          VMR137(V284)}          VMR137(V287)}
3400          base[0]=base[0];          base[0]=base[0];
3401          return Cnil;          return Cnil;
3402  }  }
# Line 3413  static object LI138() Line 3408  static object LI138()
3408          goto TTL;          goto TTL;
3409  TTL:;  TTL:;
3410          (void)(sputprop(VV[183],VV[9],Cnil));          (void)(sputprop(VV[183],VV[9],Cnil));
3411          {object V285 = Cnil;          {object V288 = Cnil;
3412          VMR138(V285)}          VMR138(V288)}
3413          return Cnil;          return Cnil;
3414  }  }
3415  /*      local entry for function progn 'compile5754     */  /*      local entry for function progn 'compile5754     */
# Line 3424  static object LI139() Line 3419  static object LI139()
3419  {        VMB139 VMS139 VMV139  {        VMB139 VMS139 VMV139
3420          goto TTL;          goto TTL;
3421  TTL:;  TTL:;
3422          {object V286 = Cnil;          {object V289 = Cnil;
3423          VMR139(V286)}          VMR139(V289)}
3424          return Cnil;          return Cnil;
3425  }  }
3426  /*      function definition for Defclass FLOATING-POINT-OVERFLOW5774    */  /*      function definition for Defclass FLOATING-POINT-OVERFLOW5774    */
# Line 3457  TTL:; Line 3452  TTL:;
3452          vs_base=vs_top;          vs_base=vs_top;
3453          (void) (*Lnk310)();          (void) (*Lnk310)();
3454          vs_top=sup;          vs_top=sup;
3455          {object V287 = Cnil;          {object V290 = Cnil;
3456          VMR141(V287)}          VMR141(V290)}
3457          base[0]=base[0];          base[0]=base[0];
3458          return Cnil;          return Cnil;
3459  }  }
# Line 3475  TTL:; Line 3470  TTL:;
3470          Ladjoin();          Ladjoin();
3471          vs_top=sup;          vs_top=sup;
3472          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
3473          {object V289 = Cnil;          {object V292 = Cnil;
3474          VMR142(V289)}          VMR142(V292)}
3475          base[0]=base[0];          base[0]=base[0];
3476          return Cnil;          return Cnil;
3477  }  }
# Line 3488  static object LI143() Line 3483  static object LI143()
3483          goto TTL;          goto TTL;
3484  TTL:;  TTL:;
3485          (void)(sputprop(VV[186],VV[9],Cnil));          (void)(sputprop(VV[186],VV[9],Cnil));
3486          {object V290 = Cnil;          {object V293 = Cnil;
3487          VMR143(V290)}          VMR143(V293)}
3488          return Cnil;          return Cnil;
3489  }  }
3490  /*      local entry for function progn 'compile5843     */  /*      local entry for function progn 'compile5843     */
# Line 3499  static object LI144() Line 3494  static object LI144()
3494  {        VMB144 VMS144 VMV144  {        VMB144 VMS144 VMV144
3495          goto TTL;          goto TTL;
3496  TTL:;  TTL:;
3497          {object V291 = Cnil;          {object V294 = Cnil;
3498          VMR144(V291)}          VMR144(V294)}
3499          return Cnil;          return Cnil;
3500  }  }
3501  /*      function definition for Defclass FLOATING-POINT-UNDERFLOW5863   */  /*      function definition for Defclass FLOATING-POINT-UNDERFLOW5863   */
# Line 3532  TTL:; Line 3527  TTL:;
3527          vs_base=vs_top;          vs_base=vs_top;
3528          (void) (*Lnk311)();          (void) (*Lnk311)();
3529          vs_top=sup;          vs_top=sup;
3530          {object V292 = Cnil;          {object V295 = Cnil;
3531          VMR146(V292)}          VMR146(V295)}
3532          base[0]=base[0];          base[0]=base[0];
3533          return Cnil;          return Cnil;
3534  }  }
# Line 3550  TTL:; Line 3545  TTL:;
3545          Ladjoin();          Ladjoin();
3546          vs_top=sup;          vs_top=sup;
3547          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
3548          {object V294 = Cnil;          {object V297 = Cnil;
3549          VMR147(V294)}          VMR147(V297)}
3550          base[0]=base[0];          base[0]=base[0];
3551          return Cnil;          return Cnil;
3552  }  }
# Line 3563  static object LI148() Line 3558  static object LI148()
3558          goto TTL;          goto TTL;
3559  TTL:;  TTL:;
3560          (void)(sputprop(VV[189],VV[9],Cnil));          (void)(sputprop(VV[189],VV[9],Cnil));
3561          {object V295 = Cnil;          {object V298 = Cnil;
3562          VMR148(V295)}          VMR148(V298)}
3563          return Cnil;          return Cnil;
3564  }  }
3565  /*      local entry for function progn 'compile5932     */  /*      local entry for function progn 'compile5932     */
# Line 3574  static object LI149() Line 3569  static object LI149()
3569  {        VMB149 VMS149 VMV149  {        VMB149 VMS149 VMV149
3570          goto TTL;          goto TTL;
3571  TTL:;  TTL:;
3572          {object V296 = Cnil;          {object V299 = Cnil;
3573          VMR149(V296)}          VMR149(V299)}
3574          return Cnil;          return Cnil;
3575  }  }
3576  /*      function definition for Defclass ABORT-FAILURE5952      */  /*      function definition for Defclass ABORT-FAILURE5952      */
# Line 3607  TTL:; Line 3602  TTL:;
3602          vs_base=vs_top;          vs_base=vs_top;
3603          (void) (*Lnk312)();          (void) (*Lnk312)();
3604          vs_top=sup;          vs_top=sup;
3605          {object V297 = Cnil;          {object V300 = Cnil;
3606          VMR151(V297)}          VMR151(V300)}
3607          base[0]=base[0];          base[0]=base[0];
3608          return Cnil;          return Cnil;
3609  }  }
# Line 3625  TTL:; Line 3620  TTL:;
3620          Ladjoin();          Ladjoin();
3621          vs_top=sup;          vs_top=sup;
3622          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
3623          {object V299 = Cnil;          {object V302 = Cnil;
3624          VMR152(V299)}          VMR152(V302)}
3625          base[0]=base[0];          base[0]=base[0];
3626          return Cnil;          return Cnil;
3627  }  }
# Line 3638  static object LI153() Line 3633  static object LI153()
3633          goto TTL;          goto TTL;
3634  TTL:;  TTL:;
3635          (void)(sputprop(VV[192],VV[9],Cnil));          (void)(sputprop(VV[192],VV[9],Cnil));
3636          {object V300 = Cnil;          {object V303 = Cnil;
3637          VMR153(V300)}          VMR153(V303)}
3638          return Cnil;          return Cnil;
3639  }  }
3640  /*      local entry for function progn 'compile6025     */  /*      local entry for function progn 'compile6025     */
# Line 3654  TTL:; Line 3649  TTL:;
3649          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3650          (void) (*Lnk269)();          (void) (*Lnk269)();
3651          vs_top=sup;          vs_top=sup;
3652          {object V301 = Cnil;          {object V304 = Cnil;
3653          VMR154(V301)}          VMR154(V304)}
3654          base[0]=base[0];          base[0]=base[0];
3655          return Cnil;          return Cnil;
3656  }  }
# Line 3665  static void L155() Line 3660  static void L155()
3660  {register object *base=vs_base;  {register object *base=vs_base;
3661          register object *sup=base+VM155; VC155          register object *sup=base+VM155; VC155
3662          vs_reserve(VM155);          vs_reserve(VM155);
3663          {object V302;          {object V305;
3664          register object V303;          register object V306;
3665          register object V304;          register object V307;
3666          register object V305;          register object V308;
3667          check_arg(4);          check_arg(4);
3668          V302=(base[0]);          V305=(base[0]);
3669          V303=(base[1]);          V306=(base[1]);
3670          V304=(base[2]);          V307=(base[2]);
3671          V305=(base[3]);          V308=(base[3]);
3672          vs_top=sup;          vs_top=sup;
3673          goto TTL;          goto TTL;
3674  TTL:;  TTL:;
3675          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
3676          goto T1029;}          goto T1027;}
3677          if(((V303))==Cnil){          if(((V306))==Cnil){
3678          goto T1032;}          goto T1030;}
3679          base[4]= (V303);          base[4]= (V306);
3680          base[5]= VV[35];          base[5]= VV[35];
3681          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3682          (void) (*Lnk270)();          (void) (*Lnk270)();
3683          vs_top=sup;          vs_top=sup;
3684          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3685          goto T1036;}          goto T1034;}
3686          base[4]= structure_ref((V303),VV[35],0);          base[4]= structure_ref((V306),VV[35],0);
3687          base[5]= structure_ref((V303),VV[35],1);          base[5]= structure_ref((V306),VV[35],1);
3688          base[6]= structure_ref((V303),VV[35],2);          base[6]= structure_ref((V306),VV[35],2);
3689          base[7]= (V304);          base[7]= (V307);
3690          base[8]= (V305);          base[8]= (V308);
3691          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3692          {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))
3693                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
3694                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
3695                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
3696          return;          return;
3697          goto T1036;          goto T1034;
3698  T1036:;  T1034:;
3699          if(!(type_of((V303))==t_fixnum)){          if(!(type_of((V306))==t_fixnum)){
3700          goto T1046;}          goto T1044;}
3701          {object V308;          {object V311;
3702          if(type_of(V304)==t_structure){          if(type_of(V307)==t_structure){
3703          goto T1052;}          goto T1050;}
3704            goto T1048;
3705          goto T1050;          goto T1050;
3706          goto T1052;  T1050:;
3707  T1052:;          base[4]= V307;
         base[4]= V304;  
3708          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3709          (void) (*Lnk271)();          (void) (*Lnk271)();
3710          vs_top=sup;          vs_top=sup;
3711          V310= vs_base[0];          V313= vs_base[0];
3712          if(!((V310)==(VV[196]))){          if(!((V313)==(VV[196]))){
3713          goto T1050;}          goto T1048;}
3714          V308= structure_ref((V304),VV[37],1);          V311= structure_ref((V307),VV[37],1);
3715            goto T1046;
3716          goto T1048;          goto T1048;
3717          goto T1050;  T1048:;{object V314;
3718  T1050:;{object V311;          V314= symbol_value(VV[38]);
         V311= symbol_value(VV[38]);  
3719          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
3720          base[5]= (V304);          base[5]= (V307);
3721          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3722          (void) (*Lnk272)();          (void) (*Lnk272)();
3723          vs_top=sup;          vs_top=sup;
3724          V312= vs_base[0];          V315= vs_base[0];
3725          if(!((V311)==(car(V312)))){          if(!((V314)==(car(V315)))){
3726          goto T1057;}}          goto T1055;}}
3727          V308= car(((V304))->cc.cc_turbo[12]);          V311= car(((V307))->cc.cc_turbo[12]);
3728          goto T1048;          goto T1046;
3729          goto T1057;          goto T1055;
3730  T1057:;  T1055:;
3731          V308= Cnil;          V311= Cnil;
3732          goto T1048;          goto T1046;
3733  T1048:;  T1046:;
3734          if(((V308))==Cnil){          if(((V311))==Cnil){
3735          goto T1063;}          goto T1061;}
3736          base[4]= aset1((V308),fix((V303)),V304);          base[4]= aset1((V311),fix((V306)),V307);
3737          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3738          return;          return;
3739          goto T1063;          goto T1061;
3740  T1063:;  T1061:;
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 T1046;          goto T1044;
3745  T1046:;  T1044:;
3746          {register object V314;          {register object V317;
3747          V314= V303;          V317= V306;
3748          base[4]= (V314);          base[4]= (V317);
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) (*Lnk270)();
3752          vs_top=sup;          vs_top=sup;
3753          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3754          goto T1066;}          goto T1064;}
3755          {object V315;          {object V318;
3756          object V316;          object V319;
3757          register object V317;          register object V320;
3758          V315= structure_ref((V303),VV[39],0);          V318= structure_ref((V306),VV[39],0);
3759          V316= list(2,(V304),(V305));          V319= list(2,(V307),(V308));
3760          V317= structure_ref((V303),VV[39],1);          V320= structure_ref((V306),VV[39],1);
3761          if(((V317))==Cnil){          if(((V320))==Cnil){
3762          goto T1074;}          goto T1072;}
3763          if((cdr((V317)))!=Cnil){          if((cdr((V320)))!=Cnil){
3764          goto T1074;}          goto T1072;}
3765          base[4]= (V316);          base[4]= (V319);
3766          base[5]= car((V317));          base[5]= car((V320));
3767          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3768          {object _funobj = (V315);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V318);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 T1074;          goto T1072;
3774  T1074:;  T1072:;
3775          base[4]= (V315);          base[4]= (V318);
3776          base[5]= (V316);          base[5]= (V319);
3777          {object V318;          {object V321;
3778          V318= (V317);          V321= (V320);
3779           vs_top=base+6;           vs_top=base+6;
3780           while(!endp(V318))           while(!endp(V321))
3781           {vs_push(car(V318));V318=cdr(V318);}           {vs_push(car(V321));V321=cdr(V321);}
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 T1066;          goto T1064;
3789  T1066:;  T1064:;
3790          base[4]= (V314);          base[4]= (V317);
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 T1084;}          goto T1082;}
3796          base[4]= (V304);          base[4]= (V307);
3797          base[5]= (V305);          base[5]= (V308);
3798          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3799          {object _funobj = (V303);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V306);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 T1084;          goto T1082;
3805  T1084:;  T1082:;
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]= V303;          base[8]= V306;
3811          base[9]= VV[43];          base[9]= VV[43];
3812          base[10]= VV[197];          base[10]= VV[197];
3813          base[11]= VV[45];          base[11]= VV[45];
# Line 3820  T1084:; Line 3815  T1084:;
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 T1032;          goto T1030;
3819  T1032:;  T1030:;
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) (*Lnk273)();          (void) (*Lnk273)();
3823          return;          return;
3824          goto T1029;          goto T1027;
3825  T1029:;  T1027:;
3826          base[4]= VV[199];          base[4]= VV[199];
3827          base[5]= V305;          base[5]= V308;
3828          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3829          Lwrite_string();          Lwrite_string();
3830          return;          return;
# Line 3847  TTL:; Line 3842  TTL:;
3842          base[2]= Cnil;          base[2]= Cnil;
3843          base[3]= VV[200];          base[3]= VV[200];
3844          base[4]= VV[201];          base[4]= VV[201];
3845          V321= symbol_function(VV[313]);          V324= symbol_function(VV[313]);
3846          base[5]= listA(3,VV[51],V321,VV[202]);          base[5]= listA(3,VV[51],V324,VV[202]);
3847          base[6]= Cnil;          base[6]= Cnil;
3848          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
3849          (void) (*Lnk276)();          (void) (*Lnk276)();
3850          vs_top=sup;          vs_top=sup;
3851          {object V322 = Cnil;          {object V325 = Cnil;
3852          VMR156(V322)}          VMR156(V325)}
3853          base[0]=base[0];          base[0]=base[0];
3854          return Cnil;          return Cnil;
3855  }  }
# Line 3865  static object LI157() Line 3860  static object LI157()
3860  {        VMB157 VMS157 VMV157  {        VMB157 VMS157 VMV157
3861          goto TTL;          goto TTL;
3862  TTL:;  TTL:;
3863          {object V323 = Cnil;          {object V326 = Cnil;
3864          VMR157(V323)}          VMR157(V326)}
3865          return Cnil;          return Cnil;
3866  }  }
3867  /*      function definition for Defclass INTERNAL-ERROR6254     */  /*      function definition for Defclass INTERNAL-ERROR6254     */
# Line 3896  TTL:; Line 3891  TTL:;
3891          vs_top=(vs_base=base+4)+11;          vs_top=(vs_base=base+4)+11;
3892          LlistA();          LlistA();
3893          vs_top=sup;          vs_top=sup;
3894          V324= vs_base[0];          V327= vs_base[0];
3895          base[3]= make_cons(V324,Cnil);          base[3]= make_cons(V327,Cnil);
3896          base[4]= Cnil;          base[4]= Cnil;
3897          base[5]= Cnil;          base[5]= Cnil;
3898          symlispcall(VV[261],base+0,6);          symlispcall(VV[261],base+0,6);
# Line 3913  TTL:; Line 3908  TTL:;
3908          vs_base=vs_top;          vs_base=vs_top;
3909          (void) (*Lnk314)();          (void) (*Lnk314)();
3910          vs_top=sup;          vs_top=sup;
3911          {object V325 = Cnil;          {object V328 = Cnil;
3912          VMR159(V325)}          VMR159(V328)}
3913          base[0]=base[0];          base[0]=base[0];
3914          return Cnil;          return Cnil;
3915  }  }
# Line 3931  TTL:; Line 3926  TTL:;
3926          Ladjoin();          Ladjoin();
3927          vs_top=sup;          vs_top=sup;
3928          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
3929          {object V327 = Cnil;          {object V330 = Cnil;
3930          VMR160(V327)}          VMR160(V330)}
3931          base[0]=base[0];          base[0]=base[0];
3932          return Cnil;          return Cnil;
3933  }  }
# Line 3944  static object LI161() Line 3939  static object LI161()
3939          goto TTL;          goto TTL;
3940  TTL:;  TTL:;
3941          (void)(sputprop(VV[203],VV[9],Cnil));          (void)(sputprop(VV[203],VV[9],Cnil));
3942          {object V328 = Cnil;          {object V331 = Cnil;
3943          VMR161(V328)}          VMR161(V331)}
3944          return Cnil;          return Cnil;
3945  }  }
3946  /*      local entry for function progn 'compile6328     */  /*      local entry for function progn 'compile6328     */
# Line 3960  TTL:; Line 3955  TTL:;
3955          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
3956          (void) (*Lnk269)();          (void) (*Lnk269)();
3957          vs_top=sup;          vs_top=sup;
3958          {object V329 = Cnil;          {object V332 = Cnil;
3959          VMR162(V329)}          VMR162(V332)}
3960          base[0]=base[0];          base[0]=base[0];
3961          return Cnil;          return Cnil;
3962  }  }
# Line 3971  static void L163() Line 3966  static void L163()
3966  {register object *base=vs_base;  {register object *base=vs_base;
3967          register object *sup=base+VM163; VC163          register object *sup=base+VM163; VC163
3968          vs_reserve(VM163);          vs_reserve(VM163);
3969          {object V330;          {object V333;
3970          register object V331;          register object V334;
3971          register object V332;          register object V335;
3972          register object V333;          register object V336;
3973          check_arg(4);          check_arg(4);
3974          V330=(base[0]);          V333=(base[0]);
3975          V331=(base[1]);          V334=(base[1]);
3976          V332=(base[2]);          V335=(base[2]);
3977          V333=(base[3]);          V336=(base[3]);
3978          vs_top=sup;          vs_top=sup;
3979          goto TTL;          goto TTL;
3980  TTL:;  TTL:;
3981          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
3982          goto T1142;}          goto T1140;}
3983          if(((V331))==Cnil){          if(((V334))==Cnil){
3984          goto T1145;}          goto T1143;}
3985          base[4]= (V331);          base[4]= (V334);
3986          base[5]= VV[35];          base[5]= VV[35];
3987          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
3988          (void) (*Lnk270)();          (void) (*Lnk270)();
3989          vs_top=sup;          vs_top=sup;
3990          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
3991          goto T1149;}          goto T1147;}
3992          base[4]= structure_ref((V331),VV[35],0);          base[4]= structure_ref((V334),VV[35],0);
3993          base[5]= structure_ref((V331),VV[35],1);          base[5]= structure_ref((V334),VV[35],1);
3994          base[6]= structure_ref((V331),VV[35],2);          base[6]= structure_ref((V334),VV[35],2);
3995          base[7]= (V332);          base[7]= (V335);
3996          base[8]= (V333);          base[8]= (V336);
3997          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
3998          {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))
3999                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4000                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4001                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4002          return;          return;
4003          goto T1149;          goto T1147;
4004  T1149:;  T1147:;
4005          if(!(type_of((V331))==t_fixnum)){          if(!(type_of((V334))==t_fixnum)){
4006          goto T1159;}          goto T1157;}
4007          {object V336;          {object V339;
4008          if(type_of(V332)==t_structure){          if(type_of(V335)==t_structure){
4009          goto T1165;}          goto T1163;}
4010            goto T1161;
4011          goto T1163;          goto T1163;
4012          goto T1165;  T1163:;
4013  T1165:;          base[4]= V335;
         base[4]= V332;  
4014          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4015          (void) (*Lnk271)();          (void) (*Lnk271)();
4016          vs_top=sup;          vs_top=sup;
4017          V338= vs_base[0];          V341= vs_base[0];
4018          if(!((V338)==(VV[211]))){          if(!((V341)==(VV[211]))){
4019          goto T1163;}          goto T1161;}
4020          V336= structure_ref((V332),VV[37],1);          V339= structure_ref((V335),VV[37],1);
4021            goto T1159;
4022          goto T1161;          goto T1161;
4023          goto T1163;  T1161:;{object V342;
4024  T1163:;{object V339;          V342= symbol_value(VV[38]);
         V339= symbol_value(VV[38]);  
4025          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4026          base[5]= (V332);          base[5]= (V335);
4027          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4028          (void) (*Lnk272)();          (void) (*Lnk272)();
4029          vs_top=sup;          vs_top=sup;
4030          V340= vs_base[0];          V343= vs_base[0];
4031          if(!((V339)==(car(V340)))){          if(!((V342)==(car(V343)))){
4032          goto T1170;}}          goto T1168;}}
4033          V336= car(((V332))->cc.cc_turbo[12]);          V339= car(((V335))->cc.cc_turbo[12]);
4034          goto T1161;          goto T1159;
4035          goto T1170;          goto T1168;
4036  T1170:;  T1168:;
4037          V336= Cnil;          V339= Cnil;
4038          goto T1161;          goto T1159;
4039  T1161:;  T1159:;
4040          if(((V336))==Cnil){          if(((V339))==Cnil){
4041          goto T1176;}          goto T1174;}
4042          base[4]= aset1((V336),fix((V331)),V332);          base[4]= aset1((V339),fix((V334)),V335);
4043          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4044          return;          return;
4045          goto T1176;          goto T1174;
4046  T1176:;  T1174:;
4047          base[4]= Cnil;          base[4]= Cnil;
4048          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4049          return;}          return;}
4050          goto T1159;          goto T1157;
4051  T1159:;  T1157:;
4052          {register object V342;          {register object V345;
4053          V342= V331;          V345= V334;
4054          base[4]= (V342);          base[4]= (V345);
4055          base[5]= VV[39];          base[5]= VV[39];
4056          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4057          (void) (*Lnk270)();          (void) (*Lnk270)();
4058          vs_top=sup;          vs_top=sup;
4059          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4060          goto T1179;}          goto T1177;}
4061          {object V343;          {object V346;
4062          object V344;          object V347;
4063          register object V345;          register object V348;
4064          V343= structure_ref((V331),VV[39],0);          V346= structure_ref((V334),VV[39],0);
4065          V344= list(2,(V332),(V333));          V347= list(2,(V335),(V336));
4066          V345= structure_ref((V331),VV[39],1);          V348= structure_ref((V334),VV[39],1);
4067          if(((V345))==Cnil){          if(((V348))==Cnil){
4068          goto T1187;}          goto T1185;}
4069          if((cdr((V345)))!=Cnil){          if((cdr((V348)))!=Cnil){
4070          goto T1187;}          goto T1185;}
4071          base[4]= (V344);          base[4]= (V347);
4072          base[5]= car((V345));          base[5]= car((V348));
4073          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4074          {object _funobj = (V343);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V346);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4075                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4076                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4077                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4078          return;          return;
4079          goto T1187;          goto T1185;
4080  T1187:;  T1185:;
4081          base[4]= (V343);          base[4]= (V346);
4082          base[5]= (V344);          base[5]= (V347);
4083          {object V346;          {object V349;
4084          V346= (V345);          V349= (V348);
4085           vs_top=base+6;           vs_top=base+6;
4086           while(!endp(V346))           while(!endp(V349))
4087           {vs_push(car(V346));V346=cdr(V346);}           {vs_push(car(V349));V349=cdr(V349);}
4088          vs_base=base+5;}          vs_base=base+5;}
4089          {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))
4090                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4091                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4092                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4093          return;}          return;}
4094          goto T1179;          goto T1177;
4095  T1179:;  T1177:;
4096          base[4]= (V342);          base[4]= (V345);
4097          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4098          Lfunctionp();          Lfunctionp();
4099          vs_top=sup;          vs_top=sup;
4100          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4101          goto T1197;}          goto T1195;}
4102          base[4]= (V332);          base[4]= (V335);
4103          base[5]= (V333);          base[5]= (V336);
4104          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4105          {object _funobj = (V331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V334);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4106                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4107                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4108                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4109          return;          return;
4110          goto T1197;          goto T1195;
4111  T1197:;  T1195:;
4112          base[4]= VV[40];          base[4]= VV[40];
4113          base[5]= VV[18];          base[5]= VV[18];
4114          base[6]= VV[41];          base[6]= VV[41];
4115          base[7]= VV[42];          base[7]= VV[42];
4116          base[8]= V331;          base[8]= V334;
4117          base[9]= VV[43];          base[9]= VV[43];
4118          base[10]= VV[212];          base[10]= VV[212];
4119          base[11]= VV[45];          base[11]= VV[45];
# Line 4126  T1197:; Line 4121  T1197:;
4121          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4122          (void) (*Lnk13)();          (void) (*Lnk13)();
4123          return;}          return;}
4124          goto T1145;          goto T1143;
4125  T1145:;  T1143:;
4126          base[4]= VV[47];          base[4]= VV[47];
4127          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4128          (void) (*Lnk273)();          (void) (*Lnk273)();
4129          return;          return;
4130          goto T1142;          goto T1140;
4131  T1142:;  T1140:;
4132          {register object V348;          {register object V351;
4133          V348= (V333);          V351= (V336);
4134          base[4]= V332;          base[4]= V335;
4135          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4136          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
4137          vs_top=sup;          vs_top=sup;
4138          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4139          goto T1212;}          goto T1210;}
4140          base[4]= (V348);          base[4]= (V351);
4141          base[5]= VV[214];          base[5]= VV[214];
4142          base[7]= V332;          base[7]= V335;
4143          vs_top=(vs_base=base+7)+1;          vs_top=(vs_base=base+7)+1;
4144          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
4145          vs_top=sup;          vs_top=sup;
# Line 4152  T1142:; Line 4147  T1142:;
4147          vs_top=(vs_base=base+4)+3;          vs_top=(vs_base=base+4)+3;
4148          Lformat();          Lformat();
4149          vs_top=sup;          vs_top=sup;
4150          goto T1212;          goto T1210;
4151  T1212:;  T1210:;
4152          if(((V331))==Cnil){          if(((V334))==Cnil){
4153          goto T1221;}          goto T1219;}
4154          base[4]= (V331);          base[4]= (V334);
4155          base[5]= VV[35];          base[5]= VV[35];
4156          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4157          (void) (*Lnk270)();          (void) (*Lnk270)();
4158          vs_top=sup;          vs_top=sup;
4159          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4160          goto T1225;}          goto T1223;}
4161          base[4]= structure_ref((V331),VV[35],0);          base[4]= structure_ref((V334),VV[35],0);
4162          base[5]= structure_ref((V331),VV[35],1);          base[5]= structure_ref((V334),VV[35],1);
4163          base[6]= structure_ref((V331),VV[35],2);          base[6]= structure_ref((V334),VV[35],2);
4164          base[7]= (V332);          base[7]= (V335);
4165          base[8]= (V348);          base[8]= (V351);
4166          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
4167          {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))
4168                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4169                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4170                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4171          return;          return;
4172          goto T1225;          goto T1223;
4173  T1225:;  T1223:;
4174          if(!(type_of((V331))==t_fixnum)){          if(!(type_of((V334))==t_fixnum)){
4175          goto T1235;}          goto T1233;}
4176          {object V350;          {object V353;
4177          if(type_of(V332)==t_structure){          if(type_of(V335)==t_structure){
4178          goto T1241;}          goto T1239;}
4179            goto T1237;
4180          goto T1239;          goto T1239;
4181          goto T1241;  T1239:;
4182  T1241:;          base[4]= V335;
         base[4]= V332;  
4183          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4184          (void) (*Lnk271)();          (void) (*Lnk271)();
4185          vs_top=sup;          vs_top=sup;
4186          V352= vs_base[0];          V355= vs_base[0];
4187          if(!((V352)==(VV[215]))){          if(!((V355)==(VV[215]))){
4188          goto T1239;}          goto T1237;}
4189          V350= structure_ref((V332),VV[37],1);          V353= structure_ref((V335),VV[37],1);
4190            goto T1235;
4191          goto T1237;          goto T1237;
4192          goto T1239;  T1237:;{object V356;
4193  T1239:;{object V353;          V356= symbol_value(VV[38]);
         V353= symbol_value(VV[38]);  
4194          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4195          base[5]= (V332);          base[5]= (V335);
4196          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4197          (void) (*Lnk272)();          (void) (*Lnk272)();
4198          vs_top=sup;          vs_top=sup;
4199          V354= vs_base[0];          V357= vs_base[0];
4200          if(!((V353)==(car(V354)))){          if(!((V356)==(car(V357)))){
4201          goto T1246;}}          goto T1244;}}
4202          V350= car(((V332))->cc.cc_turbo[12]);          V353= car(((V335))->cc.cc_turbo[12]);
4203          goto T1237;          goto T1235;
4204          goto T1246;          goto T1244;
4205  T1246:;  T1244:;
4206          V350= Cnil;          V353= Cnil;
4207          goto T1237;          goto T1235;
4208  T1237:;  T1235:;
4209          if(((V350))==Cnil){          if(((V353))==Cnil){
4210          goto T1252;}          goto T1250;}
4211          base[4]= aset1((V350),fix((V331)),V332);          base[4]= aset1((V353),fix((V334)),V335);
4212          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4213          return;          return;
4214          goto T1252;          goto T1250;
4215  T1252:;  T1250:;
4216          base[4]= Cnil;          base[4]= Cnil;
4217          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4218          return;}          return;}
4219          goto T1235;          goto T1233;
4220  T1235:;  T1233:;
4221          {register object V356;          {register object V359;
4222          V356= V331;          V359= V334;
4223          base[4]= (V356);          base[4]= (V359);
4224          base[5]= VV[39];          base[5]= VV[39];
4225          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4226          (void) (*Lnk270)();          (void) (*Lnk270)();
4227          vs_top=sup;          vs_top=sup;
4228          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4229          goto T1255;}          goto T1253;}
4230          {object V357;          {object V360;
4231          object V358;          object V361;
4232          register object V359;          register object V362;
4233          V357= structure_ref((V331),VV[39],0);          V360= structure_ref((V334),VV[39],0);
4234          V358= list(2,(V332),(V348));          V361= list(2,(V335),(V351));
4235          V359= structure_ref((V331),VV[39],1);          V362= structure_ref((V334),VV[39],1);
4236          if(((V359))==Cnil){          if(((V362))==Cnil){
4237          goto T1263;}          goto T1261;}
4238          if((cdr((V359)))!=Cnil){          if((cdr((V362)))!=Cnil){
4239          goto T1263;}          goto T1261;}
4240          base[4]= (V358);          base[4]= (V361);
4241          base[5]= car((V359));          base[5]= car((V362));
4242          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4243          {object _funobj = (V357);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V360);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4244                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4245                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4246                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4247          return;          return;
4248          goto T1263;          goto T1261;
4249  T1263:;  T1261:;
4250          base[4]= (V357);          base[4]= (V360);
4251          base[5]= (V358);          base[5]= (V361);
4252          {object V360;          {object V363;
4253          V360= (V359);          V363= (V362);
4254           vs_top=base+6;           vs_top=base+6;
4255           while(!endp(V360))           while(!endp(V363))
4256           {vs_push(car(V360));V360=cdr(V360);}           {vs_push(car(V363));V363=cdr(V363);}
4257          vs_base=base+5;}          vs_base=base+5;}
4258          {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))
4259                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4260                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4261                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4262          return;}          return;}
4263          goto T1255;          goto T1253;
4264  T1255:;  T1253:;
4265          base[4]= (V356);          base[4]= (V359);
4266          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4267          Lfunctionp();          Lfunctionp();
4268          vs_top=sup;          vs_top=sup;
4269          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4270          goto T1273;}          goto T1271;}
4271          base[4]= (V332);          base[4]= (V335);
4272          base[5]= (V348);          base[5]= (V351);
4273          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4274          {object _funobj = (V331);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V334);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4275                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4276                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4277                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4278          return;          return;
4279          goto T1273;          goto T1271;
4280  T1273:;  T1271:;
4281          base[4]= VV[40];          base[4]= VV[40];
4282          base[5]= VV[18];          base[5]= VV[18];
4283          base[6]= VV[41];          base[6]= VV[41];
4284          base[7]= VV[42];          base[7]= VV[42];
4285          base[8]= V331;          base[8]= V334;
4286          base[9]= VV[43];          base[9]= VV[43];
4287          base[10]= VV[216];          base[10]= VV[216];
4288          base[11]= VV[45];          base[11]= VV[45];
# Line 4295  T1273:; Line 4290  T1273:;
4290          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4291          (void) (*Lnk13)();          (void) (*Lnk13)();
4292          return;}          return;}
4293          goto T1221;          goto T1219;
4294  T1221:;  T1219:;
4295          base[4]= VV[47];          base[4]= VV[47];
4296          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4297          (void) (*Lnk273)();          (void) (*Lnk273)();
# Line 4315  TTL:; Line 4310  TTL:;
4310          base[2]= Cnil;          base[2]= Cnil;
4311          base[3]= VV[218];          base[3]= VV[218];
4312          base[4]= VV[219];          base[4]= VV[219];
4313          V361= symbol_function(VV[316]);          V364= symbol_function(VV[316]);
4314          base[5]= listA(3,VV[51],V361,VV[220]);          base[5]= listA(3,VV[51],V364,VV[220]);
4315          base[6]= Cnil;          base[6]= Cnil;
4316          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
4317          (void) (*Lnk276)();          (void) (*Lnk276)();
4318          vs_top=sup;          vs_top=sup;
4319          {object V362 = Cnil;          {object V365 = Cnil;
4320          VMR164(V362)}          VMR164(V365)}
4321          base[0]=base[0];          base[0]=base[0];
4322          return Cnil;          return Cnil;
4323  }  }
# Line 4333  static object LI165() Line 4328  static object LI165()
4328  {        VMB165 VMS165 VMV165  {        VMB165 VMS165 VMV165
4329          goto TTL;          goto TTL;
4330  TTL:;  TTL:;
4331          {object V363 = Cnil;          {object V366 = Cnil;
4332          VMR165(V363)}          VMR165(V366)}
4333          return Cnil;          return Cnil;
4334  }  }
4335  /*      function definition for INTERNAL-SIMPLE-ERROR-PRINTER   */  /*      local entry for function INTERNAL-SIMPLE-ERROR-PRINTER  */
4336    
4337  static void L166()  static object LI166(V369,V370)
4338  {register object *base=vs_base;  
4339          register object *sup=base+VM166; VC166  register object V369;object V370;
4340          vs_reserve(VM166);  {        VMB166 VMS166 VMV166
         {register object V364;  
         object V365;  
         check_arg(2);  
         V364=(base[0]);  
         V365=(base[1]);  
         vs_top=sup;  
4341          goto TTL;          goto TTL;
4342  TTL:;  TTL:;
4343          base[2]= (V364);          base[0]= (V369);
4344          vs_top=(vs_base=base+2)+1;          vs_top=(vs_base=base+0)+1;
4345          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
4346          vs_top=sup;          vs_top=sup;
4347          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4348          goto T1298;}          goto T1296;}
4349          base[2]= (V365);          base[0]= (V370);
4350          base[3]= VV[221];          base[1]= VV[221];
4351          base[5]= (V364);          base[3]= (V369);
4352          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+3)+1;
4353          (void) (*Lnk315)(Lclptr315);          (void) (*Lnk315)(Lclptr315);
4354          vs_top=sup;          vs_top=sup;
4355          base[4]= vs_base[0];          base[2]= vs_base[0];
4356          vs_top=(vs_base=base+2)+3;          vs_top=(vs_base=base+0)+3;
4357          Lformat();          Lformat();
4358          vs_top=sup;          vs_top=sup;
4359          goto T1298;          goto T1296;
4360  T1298:;  T1296:;
4361          base[2]= (V365);          base[0]= (V370);
4362          base[4]= (V364);          base[2]= (V369);
4363          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
4364          (void) (*Lnk265)(Lclptr265);          (void) (*Lnk265)(Lclptr265);
4365          vs_top=sup;          vs_top=sup;
4366          base[3]= vs_base[0];          base[1]= vs_base[0];
4367          {object V366;          {object V371;
4368          base[4]= (V364);          base[2]= (V369);
4369          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+2)+1;
4370          (void) (*Lnk266)(Lclptr266);          (void) (*Lnk266)(Lclptr266);
4371          vs_top=sup;          vs_top=sup;
4372          V366= vs_base[0];          V371= vs_base[0];
4373           vs_top=base+4;           vs_top=base+2;
4374           while(!endp(V366))           while(!endp(V371))
4375           {vs_push(car(V366));V366=cdr(V366);}           {vs_push(car(V371));V371=cdr(V371);}
4376          vs_base=base+2;}          vs_base=base+0;}
4377          Lformat();          Lformat();
4378          return;          vs_top=sup;
4379          }          {object V372 = vs_base[0];
4380            VMR166(V372)}
4381            base[0]=base[0];
4382            return Cnil;
4383  }  }
4384  /*      function definition for Defclass INTERNAL-SIMPLE-ERROR6681      */  /*      function definition for Defclass INTERNAL-SIMPLE-ERROR6681      */
4385    
# Line 4418  TTL:; Line 4410  TTL:;
4410          vs_base=vs_top;          vs_base=vs_top;
4411          (void) (*Lnk317)();          (void) (*Lnk317)();
4412          vs_top=sup;          vs_top=sup;
4413          {object V367 = Cnil;          {object V373 = Cnil;
4414          VMR168(V367)}          VMR168(V373)}
4415          base[0]=base[0];          base[0]=base[0];
4416          return Cnil;          return Cnil;
4417  }  }
# Line 4436  TTL:; Line 4428  TTL:;
4428          Ladjoin();          Ladjoin();
4429          vs_top=sup;          vs_top=sup;
4430          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
4431          {object V369 = Cnil;          {object V375 = Cnil;
4432          VMR169(V369)}          VMR169(V375)}
4433          base[0]=base[0];          base[0]=base[0];
4434          return Cnil;          return Cnil;
4435  }  }
# Line 4449  static object LI170() Line 4441  static object LI170()
4441          goto TTL;          goto TTL;
4442  TTL:;  TTL:;
4443          (void)(sputprop(VV[222],VV[9],Cnil));          (void)(sputprop(VV[222],VV[9],Cnil));
4444          {object V370 = Cnil;          {object V376 = Cnil;
4445          VMR170(V370)}          VMR170(V376)}
4446          return Cnil;          return Cnil;
4447  }  }
4448  /*      local entry for function progn 'compile6754     */  /*      local entry for function progn 'compile6754     */
# Line 4465  TTL:; Line 4457  TTL:;
4457          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
4458          (void) (*Lnk269)();          (void) (*Lnk269)();
4459          vs_top=sup;          vs_top=sup;
4460          {object V371 = Cnil;          {object V377 = Cnil;
4461          VMR171(V371)}          VMR171(V377)}
4462          base[0]=base[0];          base[0]=base[0];
4463          return Cnil;          return Cnil;
4464  }  }
# Line 4476  static void L172() Line 4468  static void L172()
4468  {register object *base=vs_base;  {register object *base=vs_base;
4469          register object *sup=base+VM172; VC172          register object *sup=base+VM172; VC172
4470          vs_reserve(VM172);          vs_reserve(VM172);
4471          {object V372;          {object V378;
4472          register object V373;          register object V379;
4473          register object V374;          register object V380;
4474          register object V375;          register object V381;
4475          check_arg(4);          check_arg(4);
4476          V372=(base[0]);          V378=(base[0]);
4477          V373=(base[1]);          V379=(base[1]);
4478          V374=(base[2]);          V380=(base[2]);
4479          V375=(base[3]);          V381=(base[3]);
4480          vs_top=sup;          vs_top=sup;
4481          goto TTL;          goto TTL;
4482  TTL:;  TTL:;
4483          if((symbol_value(VV[34]))==Cnil){          if((symbol_value(VV[34]))==Cnil){
4484          goto T1330;}          goto T1328;}
4485          if(((V373))==Cnil){          if(((V379))==Cnil){
4486          goto T1333;}          goto T1331;}
4487          base[4]= (V373);          base[4]= (V379);
4488          base[5]= VV[35];          base[5]= VV[35];
4489          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4490          (void) (*Lnk270)();          (void) (*Lnk270)();
4491          vs_top=sup;          vs_top=sup;
4492          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4493          goto T1337;}          goto T1335;}
4494          base[4]= structure_ref((V373),VV[35],0);          base[4]= structure_ref((V379),VV[35],0);
4495          base[5]= structure_ref((V373),VV[35],1);          base[5]= structure_ref((V379),VV[35],1);
4496          base[6]= structure_ref((V373),VV[35],2);          base[6]= structure_ref((V379),VV[35],2);
4497          base[7]= (V374);          base[7]= (V380);
4498          base[8]= (V375);          base[8]= (V381);
4499          vs_top=(vs_base=base+5)+4;          vs_top=(vs_base=base+5)+4;
4500          {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))
4501                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4502                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4503                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4504          return;          return;
4505          goto T1337;          goto T1335;
4506  T1337:;  T1335:;
4507          if(!(type_of((V373))==t_fixnum)){          if(!(type_of((V379))==t_fixnum)){
4508          goto T1347;}          goto T1345;}
4509          {object V378;          {object V384;
4510          if(type_of(V374)==t_structure){          if(type_of(V380)==t_structure){
4511          goto T1353;}          goto T1351;}
4512            goto T1349;
4513          goto T1351;          goto T1351;
4514          goto T1353;  T1351:;
4515  T1353:;          base[4]= V380;
         base[4]= V374;  
4516          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4517          (void) (*Lnk271)();          (void) (*Lnk271)();
4518          vs_top=sup;          vs_top=sup;
4519          V380= vs_base[0];          V386= vs_base[0];
4520          if(!((V380)==(VV[226]))){          if(!((V386)==(VV[226]))){
4521          goto T1351;}          goto T1349;}
4522          V378= structure_ref((V374),VV[37],1);          V384= structure_ref((V380),VV[37],1);
4523            goto T1347;
4524          goto T1349;          goto T1349;
4525          goto T1351;  T1349:;{object V387;
4526  T1351:;{object V381;          V387= symbol_value(VV[38]);
         V381= symbol_value(VV[38]);  
4527          base[4]= small_fixnum(14);          base[4]= small_fixnum(14);
4528          base[5]= (V374);          base[5]= (V380);
4529          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4530          (void) (*Lnk272)();          (void) (*Lnk272)();
4531          vs_top=sup;          vs_top=sup;
4532          V382= vs_base[0];          V388= vs_base[0];
4533          if(!((V381)==(car(V382)))){          if(!((V387)==(car(V388)))){
4534          goto T1358;}}          goto T1356;}}
4535          V378= car(((V374))->cc.cc_turbo[12]);          V384= car(((V380))->cc.cc_turbo[12]);
4536          goto T1349;          goto T1347;
4537          goto T1358;          goto T1356;
4538  T1358:;  T1356:;
4539          V378= Cnil;          V384= Cnil;
4540          goto T1349;          goto T1347;
4541  T1349:;  T1347:;
4542          if(((V378))==Cnil){          if(((V384))==Cnil){
4543          goto T1364;}          goto T1362;}
4544          base[4]= aset1((V378),fix((V373)),V374);          base[4]= aset1((V384),fix((V379)),V380);
4545          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4546          return;          return;
4547          goto T1364;          goto T1362;
4548  T1364:;  T1362:;
4549          base[4]= Cnil;          base[4]= Cnil;
4550          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4551          return;}          return;}
4552          goto T1347;          goto T1345;
4553  T1347:;  T1345:;
4554          {register object V384;          {register object V390;
4555          V384= V373;          V390= V379;
4556          base[4]= (V384);          base[4]= (V390);
4557          base[5]= VV[39];          base[5]= VV[39];
4558          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4559          (void) (*Lnk270)();          (void) (*Lnk270)();
4560          vs_top=sup;          vs_top=sup;
4561          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4562          goto T1367;}          goto T1365;}
4563          {object V385;          {object V391;
4564          object V386;          object V392;
4565          register object V387;          register object V393;
4566          V385= structure_ref((V373),VV[39],0);          V391= structure_ref((V379),VV[39],0);
4567          V386= list(2,(V374),(V375));          V392= list(2,(V380),(V381));
4568          V387= structure_ref((V373),VV[39],1);          V393= structure_ref((V379),VV[39],1);
4569          if(((V387))==Cnil){          if(((V393))==Cnil){
4570          goto T1375;}          goto T1373;}
4571          if((cdr((V387)))!=Cnil){          if((cdr((V393)))!=Cnil){
4572          goto T1375;}          goto T1373;}
4573          base[4]= (V386);          base[4]= (V392);
4574          base[5]= car((V387));          base[5]= car((V393));
4575          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4576          {object _funobj = (V385);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V391);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4577                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4578                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4579                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4580          return;          return;
4581          goto T1375;          goto T1373;
4582  T1375:;  T1373:;
4583          base[4]= (V385);          base[4]= (V391);
4584          base[5]= (V386);          base[5]= (V392);
4585          {object V388;          {object V394;
4586          V388= (V387);          V394= (V393);
4587           vs_top=base+6;           vs_top=base+6;
4588           while(!endp(V388))           while(!endp(V394))
4589           {vs_push(car(V388));V388=cdr(V388);}           {vs_push(car(V394));V394=cdr(V394);}
4590          vs_base=base+5;}          vs_base=base+5;}
4591          {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))
4592                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4593                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4594                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4595          return;}          return;}
4596          goto T1367;          goto T1365;
4597  T1367:;  T1365:;
4598          base[4]= (V384);          base[4]= (V390);
4599          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4600          Lfunctionp();          Lfunctionp();
4601          vs_top=sup;          vs_top=sup;
4602          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
4603          goto T1385;}          goto T1383;}
4604          base[4]= (V374);          base[4]= (V380);
4605          base[5]= (V375);          base[5]= (V381);
4606          vs_top=(vs_base=base+4)+2;          vs_top=(vs_base=base+4)+2;
4607          {object _funobj = (V373);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))          {object _funobj = (V379);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo))
4608                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);                     (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo);
4609                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();                 else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))();
4610                 else super_funcall_no_event(_funobj);}                 else super_funcall_no_event(_funobj);}
4611          return;          return;
4612          goto T1385;          goto T1383;
4613  T1385:;  T1383:;
4614          base[4]= VV[40];          base[4]= VV[40];
4615          base[5]= VV[18];          base[5]= VV[18];
4616          base[6]= VV[41];          base[6]= VV[41];
4617          base[7]= VV[42];          base[7]= VV[42];
4618          base[8]= V373;          base[8]= V379;
4619          base[9]= VV[43];          base[9]= VV[43];
4620          base[10]= VV[227];          base[10]= VV[227];
4621          base[11]= VV[45];          base[11]= VV[45];
# Line 4631  T1385:; Line 4623  T1385:;
4623          vs_top=(vs_base=base+4)+9;          vs_top=(vs_base=base+4)+9;
4624          (void) (*Lnk13)();          (void) (*Lnk13)();
4625          return;}          return;}
4626          goto T1333;          goto T1331;
4627  T1333:;  T1331:;
4628          base[4]= VV[47];          base[4]= VV[47];
4629          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
4630          (void) (*Lnk273)();          (void) (*Lnk273)();
4631          return;          return;
4632          goto T1330;          goto T1328;
4633  T1330:;  T1328:;
4634          base[4]= (V374);          base[4]= (*(LnkLI318))((V380),(V381));
4635          base[5]= (V375);          vs_top=(vs_base=base+4)+1;
         vs_top=(vs_base=base+4)+2;  
         (void) (*Lnk318)();  
4636          return;          return;
4637          }          }
4638  }  }
# Line 4658  TTL:; Line 4648  TTL:;
4648          base[2]= Cnil;          base[2]= Cnil;
4649          base[3]= VV[229];          base[3]= VV[229];
4650          base[4]= VV[230];          base[4]= VV[230];
4651          V389= symbol_function(VV[319]);          V395= symbol_function(VV[319]);
4652          base[5]= listA(3,VV[51],V389,VV[231]);          base[5]= listA(3,VV[51],V395,VV[231]);
4653          base[6]= Cnil;          base[6]= Cnil;
4654          vs_top=(vs_base=base+0)+7;          vs_top=(vs_base=base+0)+7;
4655          (void) (*Lnk276)();          (void) (*Lnk276)();
4656          vs_top=sup;          vs_top=sup;
4657          {object V390 = Cnil;          {object V396 = Cnil;
4658          VMR173(V390)}          VMR173(V396)}
4659          base[0]=base[0];          base[0]=base[0];
4660          return Cnil;          return Cnil;
4661  }  }
# Line 4676  static object LI174() Line 4666  static object LI174()
4666  {        VMB174 VMS174 VMV174  {        VMB174 VMS174 VMV174
4667          goto TTL;          goto TTL;
4668  TTL:;  TTL:;
4669          {object V391 = Cnil;          {object V397 = Cnil;
4670          VMR174(V391)}          VMR174(V397)}
4671          return Cnil;          return Cnil;
4672  }  }
4673  /*      function definition for Defclass INTERNAL-TYPE-ERROR6975        */  /*      function definition for Defclass INTERNAL-TYPE-ERROR6975        */
# Line 4709  TTL:; Line 4699  TTL:;
4699          vs_base=vs_top;          vs_base=vs_top;
4700          (void) (*Lnk320)();          (void) (*Lnk320)();
4701          vs_top=sup;          vs_top=sup;
4702          {object V392 = Cnil;          {object V398 = Cnil;
4703          VMR176(V392)}          VMR176(V398)}
4704          base[0]=base[0];          base[0]=base[0];
4705          return Cnil;          return Cnil;
4706  }  }
# Line 4727  TTL:; Line 4717  TTL:;
4717          Ladjoin();          Ladjoin();
4718          vs_top=sup;          vs_top=sup;
4719          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
4720          {object V394 = Cnil;          {object V400 = Cnil;
4721          VMR177(V394)}          VMR177(V400)}
4722          base[0]=base[0];          base[0]=base[0];
4723          return Cnil;          return Cnil;
4724  }  }
# Line 4740  static object LI178() Line 4730  static object LI178()
4730          goto TTL;          goto TTL;
4731  TTL:;  TTL:;
4732          (void)(sputprop(VV[232],VV[9],Cnil));          (void)(sputprop(VV[232],VV[9],Cnil));
4733          {object V395 = Cnil;          {object V401 = Cnil;
4734          VMR178(V395)}          VMR178(V401)}
4735          return Cnil;          return Cnil;
4736  }  }
4737  /*      local entry for function progn 'compile7044     */  /*      local entry for function progn 'compile7044     */
# Line 4751  static object LI179() Line 4741  static object LI179()
4741  {        VMB179 VMS179 VMV179  {        VMB179 VMS179 VMV179
4742          goto TTL;          goto TTL;
4743  TTL:;  TTL:;
4744          {object V396 = Cnil;          {object V402 = Cnil;
4745          VMR179(V396)}          VMR179(V402)}
4746          return Cnil;          return Cnil;
4747  }  }
4748  /*      function definition for Defclass INTERNAL-PACKAGE-ERROR7064     */  /*      function definition for Defclass INTERNAL-PACKAGE-ERROR7064     */
# Line 4784  TTL:; Line 4774  TTL:;
4774          vs_base=vs_top;          vs_base=vs_top;
4775          (void) (*Lnk321)();          (void) (*Lnk321)();
4776          vs_top=sup;          vs_top=sup;
4777          {object V397 = Cnil;          {object V403 = Cnil;
4778          VMR181(V397)}          VMR181(V403)}
4779          base[0]=base[0];          base[0]=base[0];
4780          return Cnil;          return Cnil;
4781  }  }
# Line 4802  TTL:; Line 4792  TTL:;
4792          Ladjoin();          Ladjoin();
4793          vs_top=sup;          vs_top=sup;
4794          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
4795          {object V399 = Cnil;          {object V405 = Cnil;
4796          VMR182(V399)}          VMR182(V405)}
4797          base[0]=base[0];          base[0]=base[0];
4798          return Cnil;          return Cnil;
4799  }  }
# Line 4815  static object LI183() Line 4805  static object LI183()
4805          goto TTL;          goto TTL;
4806  TTL:;  TTL:;
4807          (void)(sputprop(VV[235],VV[9],Cnil));          (void)(sputprop(VV[235],VV[9],Cnil));
4808          {object V400 = Cnil;          {object V406 = Cnil;
4809          VMR183(V400)}          VMR183(V406)}
4810          return Cnil;          return Cnil;
4811  }  }
4812  /*      local entry for function progn 'compile7133     */  /*      local entry for function progn 'compile7133     */
# Line 4826  static object LI184() Line 4816  static object LI184()
4816  {        VMB184 VMS184 VMV184  {        VMB184 VMS184 VMV184
4817          goto TTL;          goto TTL;
4818  TTL:;  TTL:;
4819          {object V401 = Cnil;          {object V407 = Cnil;
4820          VMR184(V401)}          VMR184(V407)}
4821          return Cnil;          return Cnil;
4822  }  }
4823  /*      function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7153      */  /*      function definition for Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7153      */
# Line 4859  TTL:; Line 4849  TTL:;
4849          vs_base=vs_top;          vs_base=vs_top;
4850          (void) (*Lnk322)();          (void) (*Lnk322)();
4851          vs_top=sup;          vs_top=sup;
4852          {object V402 = Cnil;          {object V408 = Cnil;
4853          VMR186(V402)}          VMR186(V408)}
4854          base[0]=base[0];          base[0]=base[0];
4855          return Cnil;          return Cnil;
4856  }  }
# Line 4877  TTL:; Line 4867  TTL:;
4867          Ladjoin();          Ladjoin();
4868          vs_top=sup;          vs_top=sup;
4869          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
4870          {object V404 = Cnil;          {object V410 = Cnil;
4871          VMR187(V404)}          VMR187(V410)}
4872          base[0]=base[0];          base[0]=base[0];
4873          return Cnil;          return Cnil;
4874  }  }
# Line 4890  static object LI188() Line 4880  static object LI188()
4880          goto TTL;          goto TTL;
4881  TTL:;  TTL:;
4882          (void)(sputprop(VV[238],VV[9],Cnil));          (void)(sputprop(VV[238],VV[9],Cnil));
4883          {object V405 = Cnil;          {object V411 = Cnil;
4884          VMR188(V405)}          VMR188(V411)}
4885          return Cnil;          return Cnil;
4886  }  }
4887  /*      local entry for function progn 'compile7222     */  /*      local entry for function progn 'compile7222     */
# Line 4901  static object LI189() Line 4891  static object LI189()
4891  {        VMB189 VMS189 VMV189  {        VMB189 VMS189 VMV189
4892          goto TTL;          goto TTL;
4893  TTL:;  TTL:;
4894          {object V406 = Cnil;          {object V412 = Cnil;
4895          VMR189(V406)}          VMR189(V412)}
4896          return Cnil;          return Cnil;
4897  }  }
4898  /*      function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7242      */  /*      function definition for Defclass INTERNAL-SIMPLE-CONTROL-ERROR7242      */
# Line 4934  TTL:; Line 4924  TTL:;
4924          vs_base=vs_top;          vs_base=vs_top;
4925          (void) (*Lnk323)();          (void) (*Lnk323)();
4926          vs_top=sup;          vs_top=sup;
4927          {object V407 = Cnil;          {object V413 = Cnil;
4928          VMR191(V407)}          VMR191(V413)}
4929          base[0]=base[0];          base[0]=base[0];
4930          return Cnil;          return Cnil;
4931  }  }
# Line 4952  TTL:; Line 4942  TTL:;
4942          Ladjoin();          Ladjoin();
4943          vs_top=sup;          vs_top=sup;
4944          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
4945          {object V409 = Cnil;          {object V415 = Cnil;
4946          VMR192(V409)}          VMR192(V415)}
4947          base[0]=base[0];          base[0]=base[0];
4948          return Cnil;          return Cnil;
4949  }  }
# Line 4965  static object LI193() Line 4955  static object LI193()
4955          goto TTL;          goto TTL;
4956  TTL:;  TTL:;
4957          (void)(sputprop(VV[241],VV[9],Cnil));          (void)(sputprop(VV[241],VV[9],Cnil));
4958          {object V410 = Cnil;          {object V416 = Cnil;
4959          VMR193(V410)}          VMR193(V416)}
4960          return Cnil;          return Cnil;
4961  }  }
4962  /*      local entry for function progn 'compile7311     */  /*      local entry for function progn 'compile7311     */
# Line 4976  static object LI194() Line 4966  static object LI194()
4966  {        VMB194 VMS194 VMV194  {        VMB194 VMS194 VMV194
4967          goto TTL;          goto TTL;
4968  TTL:;  TTL:;
4969          {object V411 = Cnil;          {object V417 = Cnil;
4970          VMR194(V411)}          VMR194(V417)}
4971          return Cnil;          return Cnil;
4972  }  }
4973  /*      function definition for Defclass INTERNAL-UNBOUND-VARIABLE7331  */  /*      function definition for Defclass INTERNAL-UNBOUND-VARIABLE7331  */
# Line 5009  TTL:; Line 4999  TTL:;
4999          vs_base=vs_top;          vs_base=vs_top;
5000          (void) (*Lnk324)();          (void) (*Lnk324)();
5001          vs_top=sup;          vs_top=sup;
5002          {object V412 = Cnil;          {object V418 = Cnil;
5003          VMR196(V412)}          VMR196(V418)}
5004          base[0]=base[0];          base[0]=base[0];
5005          return Cnil;          return Cnil;
5006  }  }
# Line 5027  TTL:; Line 5017  TTL:;
5017          Ladjoin();          Ladjoin();
5018          vs_top=sup;          vs_top=sup;
5019          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
5020          {object V414 = Cnil;          {object V420 = Cnil;
5021          VMR197(V414)}          VMR197(V420)}
5022          base[0]=base[0];          base[0]=base[0];
5023          return Cnil;          return Cnil;
5024  }  }
# Line 5040  static object LI198() Line 5030  static object LI198()
5030          goto TTL;          goto TTL;
5031  TTL:;  TTL:;
5032          (void)(sputprop(VV[244],VV[9],Cnil));          (void)(sputprop(VV[244],VV[9],Cnil));
5033          {object V415 = Cnil;          {object V421 = Cnil;
5034          VMR198(V415)}          VMR198(V421)}
5035          return Cnil;          return Cnil;
5036  }  }
5037  /*      local entry for function progn 'compile7400     */  /*      local entry for function progn 'compile7400     */
# Line 5051  static object LI199() Line 5041  static object LI199()
5041  {        VMB199 VMS199 VMV199  {        VMB199 VMS199 VMV199
5042          goto TTL;          goto TTL;
5043  TTL:;  TTL:;
5044          {object V416 = Cnil;          {object V422 = Cnil;
5045          VMR199(V416)}          VMR199(V422)}
5046          return Cnil;          return Cnil;
5047  }  }
5048  /*      function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7420        */  /*      function definition for Defclass INTERNAL-UNDEFINED-FUNCTION7420        */
# Line 5084  TTL:; Line 5074  TTL:;
5074          vs_base=vs_top;          vs_base=vs_top;
5075          (void) (*Lnk325)();          (void) (*Lnk325)();
5076          vs_top=sup;          vs_top=sup;
5077          {object V417 = Cnil;          {object V423 = Cnil;
5078          VMR201(V417)}          VMR201(V423)}
5079          base[0]=base[0];          base[0]=base[0];
5080          return Cnil;          return Cnil;
5081  }  }
# Line 5102  TTL:; Line 5092  TTL:;
5092          Ladjoin();          Ladjoin();
5093          vs_top=sup;          vs_top=sup;
5094          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
5095          {object V419 = Cnil;          {object V425 = Cnil;
5096          VMR202(V419)}          VMR202(V425)}
5097          base[0]=base[0];          base[0]=base[0];
5098          return Cnil;          return Cnil;
5099  }  }
# Line 5115  static object LI203() Line 5105  static object LI203()
5105          goto TTL;          goto TTL;
5106  TTL:;  TTL:;
5107          (void)(sputprop(VV[247],VV[9],Cnil));          (void)(sputprop(VV[247],VV[9],Cnil));
5108          {object V420 = Cnil;          {object V426 = Cnil;
5109          VMR203(V420)}          VMR203(V426)}
5110          return Cnil;          return Cnil;
5111  }  }
5112  /*      local entry for function progn 'compile7489     */  /*      local entry for function progn 'compile7489     */
# Line 5126  static object LI204() Line 5116  static object LI204()
5116  {        VMB204 VMS204 VMV204  {        VMB204 VMS204 VMV204
5117          goto TTL;          goto TTL;
5118  TTL:;  TTL:;
5119          {object V421 = Cnil;          {object V427 = Cnil;
5120          VMR204(V421)}          VMR204(V427)}
5121          return Cnil;          return Cnil;
5122  }  }
5123  /*      function definition for Defclass INTERNAL-END-OF-FILE7509       */  /*      function definition for Defclass INTERNAL-END-OF-FILE7509       */
# Line 5159  TTL:; Line 5149  TTL:;
5149          vs_base=vs_top;          vs_base=vs_top;
5150          (void) (*Lnk326)();          (void) (*Lnk326)();
5151          vs_top=sup;          vs_top=sup;
5152          {object V422 = Cnil;          {object V428 = Cnil;
5153          VMR206(V422)}          VMR206(V428)}
5154          base[0]=base[0];          base[0]=base[0];
5155          return Cnil;          return Cnil;
5156  }  }
# Line 5177  TTL:; Line 5167  TTL:;
5167          Ladjoin();          Ladjoin();
5168          vs_top=sup;          vs_top=sup;
5169          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
5170          {object V424 = Cnil;          {object V430 = Cnil;
5171          VMR207(V424)}          VMR207(V430)}
5172          base[0]=base[0];          base[0]=base[0];
5173          return Cnil;          return Cnil;
5174  }  }
# Line 5190  static object LI208() Line 5180  static object LI208()
5180          goto TTL;          goto TTL;
5181  TTL:;  TTL:;
5182          (void)(sputprop(VV[250],VV[9],Cnil));          (void)(sputprop(VV[250],VV[9],Cnil));
5183          {object V425 = Cnil;          {object V431 = Cnil;
5184          VMR208(V425)}          VMR208(V431)}
5185          return Cnil;          return Cnil;
5186  }  }
5187  /*      local entry for function progn 'compile7578     */  /*      local entry for function progn 'compile7578     */
# Line 5201  static object LI209() Line 5191  static object LI209()
5191  {        VMB209 VMS209 VMV209  {        VMB209 VMS209 VMV209
5192          goto TTL;          goto TTL;
5193  TTL:;  TTL:;
5194          {object V426 = Cnil;          {object V432 = Cnil;
5195          VMR209(V426)}          VMR209(V432)}
5196          return Cnil;          return Cnil;
5197  }  }
5198  /*      function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7598 */  /*      function definition for Defclass INTERNAL-SIMPLE-FILE-ERROR7598 */
# Line 5234  TTL:; Line 5224  TTL:;
5224          vs_base=vs_top;          vs_base=vs_top;
5225          (void) (*Lnk327)();          (void) (*Lnk327)();
5226          vs_top=sup;          vs_top=sup;
5227          {object V427 = Cnil;          {object V433 = Cnil;
5228          VMR211(V427)}          VMR211(V433)}
5229          base[0]=base[0];          base[0]=base[0];
5230          return Cnil;          return Cnil;
5231  }  }
# Line 5252  TTL:; Line 5242  TTL:;
5242          Ladjoin();          Ladjoin();
5243          vs_top=sup;          vs_top=sup;
5244          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
5245          {object V429 = Cnil;          {object V435 = Cnil;
5246          VMR212(V429)}          VMR212(V435)}
5247          base[0]=base[0];          base[0]=base[0];
5248          return Cnil;          return Cnil;
5249  }  }
# Line 5265  static object LI213() Line 5255  static object LI213()
5255          goto TTL;          goto TTL;
5256  TTL:;  TTL:;
5257          (void)(sputprop(VV[253],VV[9],Cnil));          (void)(sputprop(VV[253],VV[9],Cnil));
5258          {object V430 = Cnil;          {object V436 = Cnil;
5259          VMR213(V430)}          VMR213(V436)}
5260          return Cnil;          return Cnil;
5261  }  }
5262  /*      local entry for function progn 'compile7667     */  /*      local entry for function progn 'compile7667     */
# Line 5276  static object LI214() Line 5266  static object LI214()
5266  {        VMB214 VMS214 VMV214  {        VMB214 VMS214 VMV214
5267          goto TTL;          goto TTL;
5268  TTL:;  TTL:;
5269          {object V431 = Cnil;          {object V437 = Cnil;
5270          VMR214(V431)}          VMR214(V437)}
5271          return Cnil;          return Cnil;
5272  }  }
5273  /*      function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7687       */  /*      function definition for Defclass INTERNAL-SIMPLE-STREAM-ERROR7687       */
# Line 5309  TTL:; Line 5299  TTL:;
5299          vs_base=vs_top;          vs_base=vs_top;
5300          (void) (*Lnk328)();          (void) (*Lnk328)();
5301          vs_top=sup;          vs_top=sup;
5302          {object V432 = Cnil;          {object V438 = Cnil;
5303          VMR216(V432)}          VMR216(V438)}
5304          base[0]=base[0];          base[0]=base[0];
5305          return Cnil;          return Cnil;
5306  }  }
# Line 5327  TTL:; Line 5317  TTL:;
5317          Ladjoin();          Ladjoin();
5318          vs_top=sup;          vs_top=sup;
5319          setq(VV[8],vs_base[0]);          setq(VV[8],vs_base[0]);
5320          {object V434 = Cnil;          {object V440 = Cnil;
5321          VMR217(V434)}          VMR217(V440)}
5322          base[0]=base[0];          base[0]=base[0];
5323          return Cnil;          return Cnil;
5324  }  }
# Line 5340  static object LI218() Line 5330  static object LI218()
5330          goto TTL;          goto TTL;
5331  TTL:;  TTL:;
5332          (void)(sputprop(VV[256],VV[9],Cnil));          (void)(sputprop(VV[256],VV[9],Cnil));
5333          {object V435 = Cnil;          {object V441 = Cnil;
5334          VMR218(V435)}          VMR218(V441)}
5335          return Cnil;          return Cnil;
5336  }  }
5337  /*      local entry for function progn 'compile7756     */  /*      local entry for function progn 'compile7756     */
# Line 5351  static object LI219() Line 5341  static object LI219()
5341  {        VMB219 VMS219 VMV219  {        VMB219 VMS219 VMV219
5342          goto TTL;          goto TTL;
5343  TTL:;  TTL:;
5344          {object V436 = Cnil;          {object V442 = Cnil;
5345          VMR219(V436)}          VMR219(V442)}
5346          return Cnil;          return Cnil;
5347  }  }
5348  /*      local entry for function progn 'compile7772     */  /*      local entry for function progn 'compile7772     */
# Line 5366  TTL:; Line 5356  TTL:;
5356          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5357          (void) (*Lnk329)();          (void) (*Lnk329)();
5358          vs_top=sup;          vs_top=sup;
5359          {object V437 = Cnil;          {object V443 = Cnil;
5360          VMR220(V437)}          VMR220(V443)}
5361          base[0]=base[0];          base[0]=base[0];
5362          return Cnil;          return Cnil;
5363  }  }
# Line 5383  TTL:; Line 5373  TTL:;
5373          Lboundp();          Lboundp();
5374          vs_top=sup;          vs_top=sup;
5375          if((vs_base[0])==Cnil){          if((vs_base[0])==Cnil){
5376          goto T1532;}          goto T1528;}
5377          goto T1531;          goto T1527;
5378          goto T1532;          goto T1528;
5379  T1532:;  T1528:;
5380          base[0]= VV[16];          base[0]= VV[16];
5381          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
5382          (void) (*Lnk330)();          (void) (*Lnk330)();
5383          vs_top=sup;          vs_top=sup;
5384          setq(VV[259],vs_base[0]);          setq(VV[259],vs_base[0]);
5385          goto T1531;          goto T1527;
5386  T1531:;  T1527:;
5387          {object V438 = Cnil;          {object V444 = Cnil;
5388          VMR221(V438)}          VMR221(V444)}
5389          base[0]=base[0];          base[0]=base[0];
5390          return Cnil;          return Cnil;
5391  }  }
# Line 5406  static object LI222() Line 5396  static object LI222()
5396  {        VMB222 VMS222 VMV222  {        VMB222 VMS222 VMV222
5397          goto TTL;          goto TTL;
5398  TTL:;  TTL:;
5399          {object V439 = Cnil;          {object V445 = Cnil;
5400          VMR222(V439)}          VMR222(V445)}
5401          return Cnil;          return Cnil;
5402  }  }
5403  /*      function definition for SIMPLE-CONDITION-CLASS-P        */  /*      local entry for function SIMPLE-CONDITION-CLASS-P       */
5404    
5405  static void L223()  static object LI223(V447)
5406  {register object *base=vs_base;  
5407          register object *sup=base+VM223; VC223  register object V447;
5408          vs_reserve(VM223);  {        VMB223 VMS223 VMV223
         {register object V440;  
         check_arg(1);  
         V440=(base[0]);  
         vs_top=sup;  
5409          goto TTL;          goto TTL;
5410  TTL:;  TTL:;
5411          if(!(type_of((V440))==t_symbol)){          if(!(type_of((V447))==t_symbol)){
5412          goto T1538;}          goto T1534;}
5413          base[1]= (V440);          base[0]= (V447);
5414          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+0)+1;
5415          (void) (*Lnk330)();          (void) (*Lnk330)();
5416          vs_top=sup;          vs_top=sup;
5417          V440= vs_base[0];          V447= vs_base[0];
5418          goto T1538;          goto T1534;
5419  T1538:;  T1534:;
5420          base[1]= (V440);          base[0]= (V447);
5421          base[2]= VV[5];          base[1]= VV[5];
5422          vs_top=(vs_base=base+1)+2;          vs_top=(vs_base=base+0)+2;
5423          (void) (*Lnk331)();          (void) (*Lnk331)();
5424          vs_top=sup;          vs_top=sup;
5425          if((vs_base[0])!=Cnil){          if((vs_base[0])!=Cnil){
5426          goto T1543;}          goto T1539;}
5427          base[1]= Cnil;          {object V448 = Cnil;
5428          vs_top=(vs_base=base+1)+1;          VMR223(V448)}
5429          return;          goto T1539;
5430          goto T1543;  T1539:;{object V450;
5431  T1543:;{object V442;          V450= symbol_value(VV[259]);
5432          V442= symbol_value(VV[259]);          base[0]= (V447);
5433          base[1]= (V440);          vs_top=(vs_base=base+0)+1;
         vs_top=(vs_base=base+1)+1;  
5434          (void) (*Lnk332)(Lclptr332);          (void) (*Lnk332)(Lclptr332);
5435          vs_top=sup;          vs_top=sup;
5436          V443= vs_base[0];          V451= vs_base[0];
5437          {register object x= V442,V441= V443;          {register object x= V450,V449= V451;
5438          while(!endp(V441))          while(!endp(V449))
5439          if(eql(x,V441->c.c_car)){          if(eql(x,V449->c.c_car)){
5440          base[1]= V441;          {object V452 = V449;
5441          vs_top=(vs_base=base+1)+1;          VMR223(V452)}
5442          return;          }else V449=V449->c.c_cdr;
5443          }else V441=V441->c.c_cdr;          {object V453 = Cnil;
5444          base[1]= Cnil;          VMR223(V453)}}}
5445          vs_top=(vs_base=base+1)+1;          base[0]=base[0];
5446          return;}}          return Cnil;
         }  
5447  }  }
5448  static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)&Lnk332,(void **)&Lclptr332);} /* CLASS-PRECEDENCE-LIST */  static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)&Lnk332,(void **)&Lclptr332);} /* CLASS-PRECEDENCE-LIST */
5449  static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* TYPEP */  static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* TYPEP */
# Line 5474  static void LnkT323(){ call_or_link(VV[3 Line 5458  static void LnkT323(){ call_or_link(VV[3
5458  static void LnkT322(){ call_or_link(VV[322],(void **)&Lnk322);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7153 */  static void LnkT322(){ call_or_link(VV[322],(void **)&Lnk322);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7153 */
5459  static void LnkT321(){ call_or_link(VV[321],(void **)&Lnk321);} /* Defclass INTERNAL-PACKAGE-ERROR7064 */  static void LnkT321(){ call_or_link(VV[321],(void **)&Lnk321);} /* Defclass INTERNAL-PACKAGE-ERROR7064 */
5460  static void LnkT320(){ call_or_link(VV[320],(void **)&Lnk320);} /* Defclass INTERNAL-TYPE-ERROR6975 */  static void LnkT320(){ call_or_link(VV[320],(void **)&Lnk320);} /* Defclass INTERNAL-TYPE-ERROR6975 */
5461  static void LnkT318(){ call_or_link(VV[318],(void **)&Lnk318);} /* INTERNAL-SIMPLE-ERROR-PRINTER */  static object  LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)&LnkLI318,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */
5462  static void LnkT317(){ call_or_link(VV[317],(void **)&Lnk317);} /* Defclass INTERNAL-SIMPLE-ERROR6681 */  static void LnkT317(){ call_or_link(VV[317],(void **)&Lnk317);} /* Defclass INTERNAL-SIMPLE-ERROR6681 */
5463  static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)&Lnk315,(void **)&Lclptr315);} /* INTERNAL-ERROR-FUNCTION-NAME */  static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)&Lnk315,(void **)&Lclptr315);} /* INTERNAL-ERROR-FUNCTION-NAME */
5464  static void LnkT314(){ call_or_link(VV[314],(void **)&Lnk314);} /* Defclass INTERNAL-ERROR6254 */  static void LnkT314(){ call_or_link(VV[314],(void **)&Lnk314);} /* Defclass INTERNAL-ERROR6254 */
# Line 5509  static void LnkT279(){ call_or_link(VV[2 Line 5493  static void LnkT279(){ call_or_link(VV[2
5493  static void LnkT278(){ call_or_link(VV[278],(void **)&Lnk278);} /* Defclass SIMPLE-ERROR2908 */  static void LnkT278(){ call_or_link(VV[278],(void **)&Lnk278);} /* Defclass SIMPLE-ERROR2908 */
5494  static void LnkT277(){ call_or_link(VV[277],(void **)&Lnk277);} /* Defclass SIMPLE-WARNING2819 */  static void LnkT277(){ call_or_link(VV[277],(void **)&Lnk277);} /* Defclass SIMPLE-WARNING2819 */
5495  static void LnkT276(){ call_or_link(VV[276],(void **)&Lnk276);} /* LOAD-DEFMETHOD */  static void LnkT276(){ call_or_link(VV[276],(void **)&Lnk276);} /* LOAD-DEFMETHOD */
5496  static void LnkT274(){ call_or_link(VV[274],(void **)&Lnk274);} /* SIMPLE-CONDITION-PRINTER */  static object  LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)&LnkLI274,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */
5497  static void LnkT273(){ call_or_link(VV[273],(void **)&Lnk273);} /* ERROR */  static void LnkT273(){ call_or_link(VV[273],(void **)&Lnk273);} /* ERROR */
5498  static void LnkT13(){ call_or_link(VV[13],(void **)&Lnk13);} /* ERROR */  static void LnkT13(){ call_or_link(VV[13],(void **)&Lnk13);} /* ERROR */
5499  static void LnkT272(){ call_or_link(VV[272],(void **)&Lnk272);} /* CCLOSURE-ENV-NTHCDR */  static void LnkT272(){ call_or_link(VV[272],(void **)&Lnk272);} /* CCLOSURE-ENV-NTHCDR */

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

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