#include "cmpinclude.h" #include "clcs_debugger.h" void init_clcs_debugger(){do_init(VV);} /* local entry for function progn 'compile2194 */ static object LI1() { VMB1 VMS1 VMV1 goto TTL; TTL:; base[0]= VV[0]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V1 = Cnil; VMR1(V1)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2206 */ static object LI2() { VMB2 VMS2 VMV2 goto TTL; TTL:; if(!((VV[0])->s.s_dbind!=OBJNULL)){ goto T4;} goto T3; goto T4; T4:; (VV[0]->s.s_dbind)= small_fixnum(0); goto T3; T3:; {object V2 = Cnil; VMR2(V2)} return Cnil; } /* local entry for function progn 'compile2219 */ static object LI3() { VMB3 VMS3 VMV3 goto TTL; TTL:; {object V3 = Cnil; VMR3(V3)} return Cnil; } /* local entry for function progn 'compile2235 */ static object LI4() { VMB4 VMS4 VMV4 goto TTL; TTL:; base[0]= VV[1]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V4 = Cnil; VMR4(V4)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2247 */ static object LI5() { VMB5 VMS5 VMV5 goto TTL; TTL:; if(!((VV[1])->s.s_dbind!=OBJNULL)){ goto T11;} goto T10; goto T11; T11:; (VV[1]->s.s_dbind)= Cnil; goto T10; T10:; {object V5 = Cnil; VMR5(V5)} return Cnil; } /* local entry for function progn 'compile2260 */ static object LI6() { VMB6 VMS6 VMV6 goto TTL; TTL:; {object V6 = Cnil; VMR6(V6)} return Cnil; } /* local entry for function progn 'compile2276 */ static object LI7() { VMB7 VMS7 VMV7 goto TTL; TTL:; base[0]= VV[2]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V7 = Cnil; VMR7(V7)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2288 */ static object LI8() { VMB8 VMS8 VMV8 goto TTL; TTL:; if(!((VV[2])->s.s_dbind!=OBJNULL)){ goto T18;} goto T17; goto T18; T18:; (VV[2]->s.s_dbind)= Cnil; goto T17; T17:; {object V8 = Cnil; VMR8(V8)} return Cnil; } /* local entry for function progn 'compile2301 */ static object LI9() { VMB9 VMS9 VMV9 goto TTL; TTL:; {object V9 = Cnil; VMR9(V9)} return Cnil; } /* local entry for function progn 'compile2317 */ static object LI10() { VMB10 VMS10 VMV10 goto TTL; TTL:; base[0]= VV[3]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V10 = Cnil; VMR10(V10)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2329 */ static object LI11() { VMB11 VMS11 VMV11 goto TTL; TTL:; if(!((VV[3])->s.s_dbind!=OBJNULL)){ goto T25;} goto T24; goto T25; T25:; (VV[3]->s.s_dbind)= Cnil; goto T24; T24:; {object V11 = Cnil; VMR11(V11)} return Cnil; } /* local entry for function progn 'compile2342 */ static object LI12() { VMB12 VMS12 VMV12 goto TTL; TTL:; {object V12 = Cnil; VMR12(V12)} return Cnil; } /* local entry for function progn 'compile2358 */ static object LI13() { VMB13 VMS13 VMV13 goto TTL; TTL:; base[0]= VV[4]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V13 = Cnil; VMR13(V13)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2370 */ static object LI14() { VMB14 VMS14 VMV14 goto TTL; TTL:; if(!((VV[4])->s.s_dbind!=OBJNULL)){ goto T32;} goto T31; goto T32; T32:; (VV[4]->s.s_dbind)= Cnil; goto T31; T31:; {object V14 = Cnil; VMR14(V14)} return Cnil; } /* local entry for function progn 'compile2383 */ static object LI15() { VMB15 VMS15 VMV15 goto TTL; TTL:; {object V15 = Cnil; VMR15(V15)} return Cnil; } /* local entry for function progn 'compile2399 */ static object LI16() { VMB16 VMS16 VMV16 goto TTL; TTL:; base[0]= VV[5]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V16 = Cnil; VMR16(V16)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2411 */ static object LI17() { VMB17 VMS17 VMV17 goto TTL; TTL:; if(!((VV[5])->s.s_dbind!=OBJNULL)){ goto T39;} goto T38; goto T39; T39:; (VV[5]->s.s_dbind)= small_fixnum(0); goto T38; T38:; {object V17 = Cnil; VMR17(V17)} return Cnil; } /* local entry for function progn 'compile2424 */ static object LI18() { VMB18 VMS18 VMV18 goto TTL; TTL:; {object V18 = Cnil; VMR18(V18)} return Cnil; } /* local entry for function progn 'compile2440 */ static object LI19() { VMB19 VMS19 VMV19 goto TTL; TTL:; base[0]= VV[6]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V19 = Cnil; VMR19(V19)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2452 */ static object LI20() { VMB20 VMS20 VMV20 goto TTL; TTL:; if(!((VV[6])->s.s_dbind!=OBJNULL)){ goto T46;} goto T45; goto T46; T46:; (VV[6]->s.s_dbind)= VV[7]; goto T45; T45:; {object V20 = Cnil; VMR20(V20)} return Cnil; } /* local entry for function progn 'compile2465 */ static object LI21() { VMB21 VMS21 VMV21 goto TTL; TTL:; {object V21 = Cnil; VMR21(V21)} return Cnil; } /* local entry for function progn 'compile2481 */ static object LI22() { VMB22 VMS22 VMV22 goto TTL; TTL:; base[0]= VV[8]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V22 = Cnil; VMR22(V22)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2493 */ static object LI23() { VMB23 VMS23 VMV23 goto TTL; TTL:; if(!((VV[8])->s.s_dbind!=OBJNULL)){ goto T53;} goto T52; goto T53; T53:; (VV[8]->s.s_dbind)= VV[67]; goto T52; T52:; {object V23 = Cnil; VMR23(V23)} return Cnil; } /* local entry for function progn 'compile2510 */ static object LI24() { VMB24 VMS24 VMV24 goto TTL; TTL:; {object V24 = Cnil; VMR24(V24)} return Cnil; } /* macro definition for DEBUG-COMMAND */ static void L25() {register object *base=vs_base; register object *sup=base+VM25; VC25 vs_check; vs_top=sup; {object V25=base[0]->c.c_cdr; base[2]= (V25->c.c_car);} base[3]= list(3,VV[10],base[2],VV[11]); vs_top=(vs_base=base+3)+1; return; } /* macro definition for DEBUG-COMMAND-ARGUMENT-COUNT */ static void L26() {register object *base=vs_base; register object *sup=base+VM26; VC26 vs_check; vs_top=sup; {object V26=base[0]->c.c_cdr; base[2]= (V26->c.c_car);} base[3]= list(3,VV[10],base[2],VV[12]); vs_top=(vs_base=base+3)+1; return; } /* macro definition for DEFINE-DEBUG-COMMAND */ static void L27() {register object *base=vs_base; register object *sup=base+VM27; VC27 vs_check; vs_top=sup; {object V27=base[0]->c.c_cdr; base[2]= (V27->c.c_car); V27=V27->c.c_cdr; base[3]= (V27->c.c_car); V27=V27->c.c_cdr; base[4]= V27;} V28= list(2,VV[15],list(2,VV[16],base[2])); V29= list(3,VV[14],/* INLINE-ARGS */V28,list(2,VV[17],listA(3,VV[18],base[3],base[4]))); V30= list(2,VV[19],list(2,VV[16],base[2])); V31 = CMPmake_fixnum((long)length(base[3])); V32= list(3,VV[14],/* INLINE-ARGS */V30,V31); base[5]= list(4,VV[13],/* INLINE-ARGS */V29,/* INLINE-ARGS */V32,list(2,VV[16],base[2])); vs_top=(vs_base=base+5)+1; return; } /* local entry for function READ-DEBUG-COMMAND */ static object LI28() { VMB28 VMS28 VMV28 bds_check; goto TTL; TTL:; base[0]= Ct; base[1]= VV[20]; base[2]= (VV[0]->s.s_dbind); vs_top=(vs_base=base+0)+3; Lformat(); vs_top=sup; base[0]= Ct; vs_top=(vs_base=base+0)+1; Lpeek_char(); vs_top=sup; V33= vs_base[0]; if(!(char_code(V33)==char_code(VV[21]))){ goto T62;} {long V34; V34= 0; if(!((type_of((VV[22]->s.s_dbind))==t_stream? (((VV[22]->s.s_dbind))->sm.sm_fp)!=0: 0 ))){ goto T69;} V34= (long)getc(((VV[22]->s.s_dbind))->sm.sm_fp); if(!((V34)==(-1))){ goto T74;} if(!((feof(((VV[22]->s.s_dbind))->sm.sm_fp)))){ goto T74;} goto T66; goto T74; T74:; (void)((V34)); goto T66; goto T69; T69:; (void)(read_char1((VV[22]->s.s_dbind),Cnil));} goto T66; T66:; {register object V35; vs_base=vs_top; Lread_line(); vs_top=sup; base[0]= vs_base[0]; base[1]= Cnil; base[2]= Cnil; vs_top=(vs_base=base+0)+3; (void) (*Lnk68)(); vs_top=sup; V35= vs_base[0]; {register object V36; V36= make_cons(Cnil,Cnil); {register object V37; register object V38; base[1]= VV[24]; vs_top=(vs_base=base+1)+1; Lfind_package(); vs_top=sup; base[0]= vs_base[0]; bds_bind(VV[23],base[0]); base[1]= (V35); base[2]= Cnil; base[3]= (V36); vs_top=(vs_base=base+1)+3; Lread(); vs_top=sup; bds_unwind1; V37= vs_base[0]; V38= Cnil; goto T90; T90:; if(!(((V37))==((V36)))){ goto T91;} {object V39 = nreverse((V38)); VMR28(V39)} goto T91; T91:; {object V40; base[0]= (V35); base[1]= Cnil; base[2]= (V36); vs_top=(vs_base=base+0)+3; Lread(); vs_top=sup; V40= vs_base[0]; V38= make_cons((V37),(V38)); V37= (V40);} goto T90;}}} goto T62; T62:; vs_base=vs_top; Lread(); vs_top=sup; V41= vs_base[0]; {object V42 = list(2,VV[25],V41); VMR28(V42)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2622 */ static object LI29() { VMB29 VMS29 VMV29 goto TTL; TTL:; V43= VV[69]; (void)(sputprop(VV[25],VV[15],V43)); {object V44 = Cnil; VMR29(V44)} return Cnil; } /* local entry for function progn 'compile2650 */ static object LI30() { VMB30 VMS30 VMV30 goto TTL; TTL:; (void)(sputprop(VV[25],VV[19],small_fixnum(1))); {object V45 = Cnil; VMR30(V45)} return Cnil; } /* local entry for function progn 'compile2662 */ static object LI31() { VMB31 VMS31 VMV31 goto TTL; TTL:; {object V46 = Cnil; VMR31(V46)} return Cnil; } /* local entry for function progn 'compile2686 */ static object LI32() { VMB32 VMS32 VMV32 goto TTL; TTL:; V47= VV[70]; (void)(sputprop(VV[26],VV[15],V47)); {object V48 = Cnil; VMR32(V48)} return Cnil; } /* local entry for function progn 'compile2710 */ static object LI33() { VMB33 VMS33 VMV33 goto TTL; TTL:; (void)(sputprop(VV[26],VV[19],small_fixnum(0))); {object V49 = Cnil; VMR33(V49)} return Cnil; } /* local entry for function progn 'compile2722 */ static object LI34() { VMB34 VMS34 VMV34 goto TTL; TTL:; {object V50 = Cnil; VMR34(V50)} return Cnil; } /* local entry for function progn 'compile2746 */ static object LI35() { VMB35 VMS35 VMV35 goto TTL; TTL:; V51= VV[71]; (void)(sputprop(VV[28],VV[15],V51)); {object V52 = Cnil; VMR35(V52)} return Cnil; } /* local entry for function progn 'compile2770 */ static object LI36() { VMB36 VMS36 VMV36 goto TTL; TTL:; (void)(sputprop(VV[28],VV[19],small_fixnum(0))); {object V53 = Cnil; VMR36(V53)} return Cnil; } /* local entry for function progn 'compile2782 */ static object LI37() { VMB37 VMS37 VMV37 goto TTL; TTL:; {object V54 = Cnil; VMR37(V54)} return Cnil; } /* local entry for function progn 'compile2806 */ static object LI38() { VMB38 VMS38 VMV38 goto TTL; TTL:; V55= VV[72]; (void)(sputprop(VV[30],VV[15],V55)); {object V56 = Cnil; VMR38(V56)} return Cnil; } /* local entry for function progn 'compile2830 */ static object LI39() { VMB39 VMS39 VMV39 goto TTL; TTL:; (void)(sputprop(VV[30],VV[19],small_fixnum(0))); {object V57 = Cnil; VMR39(V57)} return Cnil; } /* local entry for function progn 'compile2842 */ static object LI40() { VMB40 VMS40 VMV40 goto TTL; TTL:; {object V58 = Cnil; VMR40(V58)} return Cnil; } /* local entry for function progn 'compile2866 */ static object LI41() { VMB41 VMS41 VMV41 goto TTL; TTL:; V59= VV[73]; (void)(sputprop(VV[32],VV[15],V59)); {object V60 = Cnil; VMR41(V60)} return Cnil; } /* local entry for function progn 'compile2890 */ static object LI42() { VMB42 VMS42 VMV42 goto TTL; TTL:; (void)(sputprop(VV[32],VV[19],small_fixnum(0))); {object V61 = Cnil; VMR42(V61)} return Cnil; } /* local entry for function progn 'compile2902 */ static object LI43() { VMB43 VMS43 VMV43 goto TTL; TTL:; {object V62 = Cnil; VMR43(V62)} return Cnil; } /* local entry for function progn 'compile2918 */ static object LI44() { VMB44 VMS44 VMV44 goto TTL; TTL:; base[0]= VV[38]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V63 = Cnil; VMR44(V63)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile2930 */ static object LI45() { VMB45 VMS45 VMV45 goto TTL; TTL:; if(!((VV[38])->s.s_dbind!=OBJNULL)){ goto T126;} goto T125; goto T126; T126:; (VV[38]->s.s_dbind)= VV[39]; goto T125; T125:; {object V64 = Cnil; VMR45(V64)} return Cnil; } /* local entry for function progn 'compile2943 */ static object LI46() { VMB46 VMS46 VMV46 goto TTL; TTL:; {object V65 = Cnil; VMR46(V65)} return Cnil; } /* local entry for function SHOW-RESTARTS */ static object LI47(object first,...) { va_list ap; int narg = VFUN_NARGS; VMB47 VMS47 VMV47 {object V66; object V67; object V68; va_start(ap,first); narg = narg - 0; if (narg <= 0) goto T130; else { V66= first;} if (--narg <= 0) goto T131; else { V67= va_arg(ap,object);} if (--narg <= 0) goto T132; else { V68= va_arg(ap,object);} --narg; goto T133; goto T130; T130:; V66= (VV[4]->s.s_dbind); goto T131; T131:; V67= (VV[5]->s.s_dbind); goto T132; T132:; V68= Cnil; goto T133; T133:; if(((V67))!=Cnil){ goto T137;} V67= CMPmake_fixnum((long)length((V66))); goto T137; T137:; if(((V66))==Cnil){ goto T142;} {object V69; register object V70; register object V71; if(((V68))==Cnil){ goto T146;} V69= number_minus((V68),small_fixnum(3)); goto T144; goto T146; T146:; base[1]= (V67); base[2]= small_fixnum(10); vs_top=(vs_base=base+1)+2; Llog(); vs_top=sup; base[0]= vs_base[0]; vs_top=(vs_base=base+0)+1; Lceiling(); vs_top=sup; V69= vs_base[0]; goto T144; T144:; V70= (V66); V71= small_fixnum(0); goto T152; T152:; if(((V70))==Cnil){ goto T154;} if(!(number_compare((V71),(V67))==0)){ goto T153;} goto T154; T154:; {object V72 = Cnil; VMR47(V72)} goto T153; T153:; base[0]= Ct; base[1]= VV[40]; base[2]= (VV[38]->s.s_dbind); {register object V73; base[4]= Cnil; base[5]= VV[41]; base[6]= number_plus((V71),small_fixnum(1)); vs_top=(vs_base=base+4)+3; Lformat(); vs_top=sup; V73= vs_base[0]; {register object V74; vs_base=vs_top; (void) (*Lnk74)(); vs_top=sup; V74= vs_base[0]; base[4]= (V74); base[5]= VV[42]; base[6]= (V73); vs_top=(vs_base=base+4)+3; Lformat(); vs_top=sup; {long V75; register long V76; V77 = CMPmake_fixnum((long)length((V73))); V75= fix(number_minus((V69),V77)); V76= 0; goto T177; T177:; if(!((V76)>=(V75))){ goto T178;} goto T173; goto T178; T178:; {register unsigned char V78; V78= 32; if(!((type_of((V74))==t_stream? (((V74))->sm.sm_fp)!=0: 0 ))){ goto T185;} (void)((putc(V78,((V74))->sm.sm_fp))); goto T183; goto T185; T185:; base[4]= code_char(V78); base[5]= (V74); vs_top=(vs_base=base+4)+2; Lwrite_char(); vs_top=sup; goto T183; T183:;} V76= (long)(V76)+1; goto T177;} goto T173; T173:; base[4]= (V74); vs_top=(vs_base=base+4)+1; (void) (*Lnk75)(); vs_top=sup; base[3]= vs_base[0];}} vs_top=(vs_base=base+0)+4; Lformat(); vs_top=sup; if(!((CMPcar((V70)))==((VV[1]->s.s_dbind)))){ goto T193;} base[0]= Ct; base[1]= VV[44]; vs_top=(vs_base=base+0)+2; Lformat(); vs_top=sup; goto T193; T193:; if(!((CMPcar((V70)))==((VV[2]->s.s_dbind)))){ goto T198;} base[0]= Ct; base[1]= VV[45]; vs_top=(vs_base=base+0)+2; Lformat(); vs_top=sup; goto T198; T198:; base[0]= Ct; base[1]= VV[46]; base[2]= CMPcar((V70)); vs_top=(vs_base=base+0)+3; Lformat(); vs_top=sup; base[0]= Ct; base[1]= VV[47]; vs_top=(vs_base=base+0)+2; Lformat(); vs_top=sup; V70= CMPcdr((V70)); V71= one_plus((V71)); goto T152;} goto T142; T142:; {object V79 = Cnil; VMR47(V79)} va_end(ap); base[0]=base[0]; return Cnil;} } /* local entry for function progn 'compile3034 */ static object LI48() { VMB48 VMS48 VMV48 goto TTL; TTL:; base[0]= VV[48]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V80 = Cnil; VMR48(V80)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile3046 */ static object LI49() { VMB49 VMS49 VMV49 goto TTL; TTL:; if(!((VV[48])->s.s_dbind!=OBJNULL)){ goto T217;} goto T216; goto T217; T217:; (VV[48]->s.s_dbind)= Cnil; goto T216; T216:; {object V81 = Cnil; VMR49(V81)} return Cnil; } /* local entry for function progn 'compile3059 */ static object LI50() { VMB50 VMS50 VMV50 goto TTL; TTL:; {object V82 = Cnil; VMR50(V82)} return Cnil; } /* local entry for function progn 'compile3075 */ static object LI51() { VMB51 VMS51 VMV51 goto TTL; TTL:; base[0]= VV[49]; vs_top=(vs_base=base+0)+1; (void) (*Lnk66)(); vs_top=sup; {object V83 = Cnil; VMR51(V83)} base[0]=base[0]; return Cnil; } /* local entry for function progn 'compile3087 */ static object LI52() { VMB52 VMS52 VMV52 goto TTL; TTL:; if(!((VV[49])->s.s_dbind!=OBJNULL)){ goto T224;} goto T223; goto T224; T224:; (VV[49]->s.s_dbind)= VV[50]; goto T223; T223:; {object V84 = Cnil; VMR52(V84)} return Cnil; } /* local entry for function progn 'compile3100 */ static object LI53() { VMB53 VMS53 VMV53 goto TTL; TTL:; {object V85 = Cnil; VMR53(V85)} return Cnil; } /* function definition for INVOKE-DEBUGGER */ static void L54() {register object *base=vs_base; register object *sup=base+VM54; VC54 vs_check; bds_check; {object V86; object V87; vs_top[0]=Cnil; {object *p=vs_top, *q=vs_base+1; for(;p>q;p--)p[-1]=MMcons(p[-1],p[0]);} if(vs_base>=vs_top){vs_top=sup;goto T228;} V86=(base[0]); V87=(base[1]); vs_top=sup; goto T229; goto T228; T228:; V86= VV[51]; V87= Cnil; goto T229; T229:; {object V88; base[2]= (V86); base[3]= (V87); base[4]= VV[52]; base[5]= VV[53]; vs_top=(vs_base=base+2)+4; (void) (*Lnk76)(); vs_top=sup; V88= vs_base[0]; if(((VV[48]->s.s_dbind))==Cnil){ goto T236;} {object V89; V89= (VV[48]->s.s_dbind); bds_bind(VV[48],Cnil); V90= ( (type_of((V89)) == t_sfun ?(*(((V89))->sfn.sfn_self)): (fcall.argd=2,type_of((V89))==t_vfun) ? (*(((V89))->sfn.sfn_self)): (fcall.fun=((V89)),fcalln))((V88),(V89))); bds_unwind1;} goto T236; T236:; base[2]= (V88); vs_top=(vs_base=base+2)+1; {object _funobj = (VV[49]->s.s_dbind);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return;} } } /* local entry for function STANDARD-DEBUGGER */ static object LI55(V92) object V92; { VMB55 VMS55 VMV55 bds_check; goto TTL; TTL:; bds_bind(VV[0],one_plus((VV[0]->s.s_dbind))); bds_bind(VV[4],(VFUN_NARGS=0,(*(LnkLI77))())); bds_bind(VV[5],CMPmake_fixnum((long)length((VV[4]->s.s_dbind)))); bds_bind(VV[1],(VFUN_NARGS=1,(*(LnkLI78))(VV[54])));{object V93; {object V94; V94= (VFUN_NARGS=1,(*(LnkLI78))(VV[55])); if(((VV[2]->s.s_dbind))==Cnil){ goto T248;} if(((VV[2]->s.s_dbind))==((V94))){ goto T249;} goto T248; T248:; V93= (V94); goto T246; goto T249; T249:; V93= Cnil;} goto T246; T246:; if(V93==Cnil)goto T245; bds_bind(VV[2],V93); goto T244; goto T245; T245:;} {object V95; if(((VV[4]->s.s_dbind))==Cnil){ goto T255;} V95= CMPcar((VV[4]->s.s_dbind)); goto T253; goto T255; T255:; V95= Cnil; goto T253; T253:; if(((V95))==((VV[1]->s.s_dbind))){ goto T258;} bds_bind(VV[2],(V95)); goto T244; goto T258; T258:; bds_bind(VV[2],Cnil);} goto T244; T244:; bds_bind(VV[3],(V92)); base[6]= Ct; base[7]= VV[56]; base[8]= (V92); vs_top=(vs_base=base+6)+3; Lformat(); vs_top=sup; (void)((VFUN_NARGS=0,(*(LnkLI79))())); {register object V96; V96= (*(LnkLI80))(); goto T267; T267:; base[6]= CMPcar((V96)); base[7]= CMPcdr((V96)); base[8]= (VV[0]->s.s_dbind); vs_top=(vs_base=base+6)+3; (void) (*Lnk81)(); vs_top=sup; V96= (*(LnkLI80))(); goto T267;} base[0]=base[0]; return Cnil; } /* function definition for EXECUTE-DEBUGGER-COMMAND */ static void L56() {register object *VOL base=vs_base; register object *VOL sup=base+VM56; VC56 vs_check; bds_check; {VOL object V97; VOL object V98; V97=(base[0]); V98=(base[1]); base[2]=MMcons(base[2],Cnil); vs_top=sup; base[3]=MMcons(Cnil,base[2]); base[4]=alloc_frame_id(); base[4]=MMcons(base[4],base[3]); frs_push(FRS_CATCH,(base[4]->c.c_car)); if(nlj_active){ nlj_active=FALSE; if(eql(nlj_tag,VV[65]))goto T278; FEerror("The GO tag ~s is not established.",1,nlj_tag); } V99= make_cclosure_new(LC63,Cnil,base[4],Cdata); V100= make_cclosure_new(LC64,Cnil,base[4],Cdata); V101= (VFUN_NARGS=6,(*(LnkLI82))(VV[58],VV[54],VV[59],V99,VV[60],V100)); V102= make_cons(/* INLINE-ARGS */V101,Cnil); base[5]= make_cons(/* INLINE-ARGS */V102,(VV[57]->s.s_dbind)); bds_bind(VV[57],base[5]); {object V103; V103= (((V97))==Cnil?Ct:Cnil); if(((V103))==Cnil){ goto T284;} frs_pop(); base[6]= (V103); vs_top=(vs_base=base+6)+1; bds_unwind1; return; goto T284; T284:; if(!(type_of((V97))==t_fixnum||type_of((V97))==t_bignum)){ goto T287;} if(!(number_compare(small_fixnum(0),(V97))<0)){ goto T290;} V104= number_plus((VV[5]->s.s_dbind),small_fixnum(1)); if(!(number_compare((V97),/* INLINE-ARGS */V104)<0)){ goto T290;} {object V105; V106= number_minus((V97),small_fixnum(1)); V105= nth(fix(/* INLINE-ARGS */V106),(VV[4]->s.s_dbind)); if(((V98))==Cnil){ goto T296;} base[6]=VV[83]->s.s_gfdef; base[7]= (V105); {object V107; base[9]= (VV[6]->s.s_dbind); {object V108; object V109= (V98); if(V109==Cnil){ V107= Cnil; goto T299;} base[8]=V108=MMcons(Cnil,Cnil); goto T300; T300:; base[10]= (V109->c.c_car); vs_top=(vs_base=base+10)+1; {object _funobj = base[9];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} vs_top=sup; (V108->c.c_car)= vs_base[0]; if((V109=MMcdr(V109))==Cnil){ V107= base[8]; goto T299;} V108=MMcdr(V108)=MMcons(Cnil,Cnil); goto T300;} goto T299; T299:; vs_top=base+8; while(V107!=Cnil) {vs_push((V107)->c.c_car);V107=(V107)->c.c_cdr;} vs_base=base+7;} (void) (*Lnk83)(); frs_pop(); bds_unwind1; return; goto T296; T296:; base[6]= (V105); vs_top=(vs_base=base+6)+1; (void) (*Lnk84)(); frs_pop(); bds_unwind1; return;} goto T290; T290:; base[6]= Ct; base[7]= VV[62]; vs_top=(vs_base=base+6)+2; Lformat(); frs_pop(); bds_unwind1; return; goto T287; T287:; {object V110; {object V111 =((V97))->s.s_plist; object ind= VV[15]; while(V111!=Cnil){ if(V111->c.c_car==ind){ V110= (V111->c.c_cdr->c.c_car); goto T307; }else V111=V111->c.c_cdr->c.c_cdr;} V110= Cnil;} goto T307; T307:; if(((V110))==Cnil){ goto T309;} V112 = CMPmake_fixnum((long)length((V98))); {object V114 =((V97))->s.s_plist; object ind= VV[19]; while(V114!=Cnil){ if(V114->c.c_car==ind){ V113= (V114->c.c_cdr->c.c_car); goto T314; }else V114=V114->c.c_cdr->c.c_cdr;} V113= Cnil;} goto T314; T314:; if(number_compare(V112,V113)==0){ goto T312;} base[6]= Ct; base[7]= VV[63]; V115 = CMPmake_fixnum((long)length((V98))); {object V117 =((V97))->s.s_plist; object ind= VV[19]; while(V117!=Cnil){ if(V117->c.c_car==ind){ V116= (V117->c.c_cdr->c.c_car); goto T318; }else V117=V117->c.c_cdr->c.c_cdr;} V116= Cnil;} goto T318; T318:; base[8]= (number_compare(V115,V116)>0?Ct:Cnil); base[9]= (V97); vs_top=(vs_base=base+6)+4; Lformat(); frs_pop(); bds_unwind1; return; goto T312; T312:; base[6]= (V110); {object V118; V118= (V98); vs_top=base+7; while(V118!=Cnil) {vs_push((V118)->c.c_car);V118=(V118)->c.c_cdr;} vs_base=base+7;} {object _funobj = base[6];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} frs_pop(); bds_unwind1; return; goto T309; T309:; base[6]= Ct; base[7]= VV[64]; base[8]= (V97); vs_top=(vs_base=base+6)+3; Lformat(); frs_pop(); bds_unwind1; return;}} goto T278; T278:; {object V119; V119= (base[3]->c.c_car); base[5]= Cnil; base[6]= Ct; vs_top=(vs_base=base+5)+2; frs_pop(); return;} frs_pop(); base[5]= Cnil; vs_top=(vs_base=base+5)+1; return; } } /* local function CLOSURE */ static void LC64(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM57; VC57 vs_check; {object V120; V120=(base[0]); vs_top=sup; base[1]= (V120); base[2]= VV[61]; base[3]= (base0[2]->c.c_car); vs_top=(vs_base=base+1)+3; Lformat(); return; } } /* local function CLOSURE */ static void LC63(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM58; VC58 vs_check; {object V121; vs_top[0]=Cnil; {object *p=vs_top; for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);} V121=(base[0]); vs_top=sup; (base0[1]->c.c_car)= (V121); {frame_ptr fr; fr=frs_sch((base0[0]->c.c_car)); if(fr==NULL)FEerror("The GO tag ~s is missing.",1,VV[65]); vs_base=vs_top; unwind(fr,VV[65]);} } } /* local function CLOSURE */ static void LC62(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM59; VC59 vs_check; vs_top=sup; base[0]= Ct; base[1]= VV[33]; vs_top=(vs_base=base+0)+2; Lformat(); vs_top=sup; (void)((VFUN_NARGS=3,(*(LnkLI79))((VV[4]->s.s_dbind),(VV[5]->s.s_dbind),small_fixnum(16)))); base[0]= Ct; base[1]= VV[34]; vs_top=(vs_base=base+0)+2; Lformat(); vs_top=sup; if(((VV[1]->s.s_dbind))==Cnil){ goto T340;} base[0]= Ct; base[1]= VV[35]; vs_top=(vs_base=base+0)+2; Lformat(); vs_top=sup; goto T340; T340:; if(((VV[2]->s.s_dbind))==Cnil){ goto T345;} base[0]= Ct; base[1]= VV[36]; vs_top=(vs_base=base+0)+2; Lformat(); vs_top=sup; goto T345; T345:; base[0]= Ct; base[1]= VV[37]; vs_top=(vs_base=base+0)+2; Lformat(); return; } /* local function CLOSURE */ static void LC61(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM60; VC60 vs_check; vs_top=sup; base[0]= Ct; base[1]= VV[31]; base[2]= (VV[3]->s.s_dbind); vs_top=(vs_base=base+0)+3; Lformat(); return; } /* local function CLOSURE */ static void LC60(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM61; VC61 vs_check; vs_top=sup; if(((VV[2]->s.s_dbind))==Cnil){ goto T356;} base[0]= (VV[2]->s.s_dbind); vs_top=(vs_base=base+0)+1; (void) (*Lnk84)(); return; goto T356; T356:; base[0]= Ct; base[1]= VV[29]; vs_top=(vs_base=base+0)+2; Lformat(); return; } /* local function CLOSURE */ static void LC59(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM62; VC62 vs_check; vs_top=sup; if(((VV[1]->s.s_dbind))==Cnil){ goto T362;} base[0]= (VV[1]->s.s_dbind); vs_top=(vs_base=base+0)+1; (void) (*Lnk84)(); return; goto T362; T362:; base[0]= Ct; base[1]= VV[27]; vs_top=(vs_base=base+0)+2; Lformat(); return; } /* local function CLOSURE */ static void LC58(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM63; VC63 vs_check; {object V122; V122=(base[0]); vs_top=sup; base[1]= (VV[8]->s.s_dbind); base[3]= (V122); vs_top=(vs_base=base+3)+1; {object _funobj = (VV[6]->s.s_dbind);if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} Llist(); vs_top=sup; base[2]= vs_base[0]; vs_top=(vs_base=base+2)+1; {object _funobj = base[1];if(type_of(_funobj)==t_cclosure && (_funobj->cc.cc_turbo)) (*(_funobj->cc.cc_self))(_funobj->cc.cc_turbo); else if (type_of(_funobj)==t_cfun) (*(_funobj->cc.cc_self))(); else super_funcall_no_event(_funobj);} return; } } /* local function CLOSURE */ static void LC57(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM64; VC64 vs_check; {object V123; V123=(base[0]); vs_top=sup; base[1]= Ct; base[2]= VV[9]; base[3]= (V123); vs_top=(vs_base=base+1)+3; Lformat(); return; } } static void LnkT84(){ call_or_link(VV[84],(void **)(void *)&Lnk84);} /* INVOKE-RESTART-INTERACTIVELY */ static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* INVOKE-RESTART */ static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */ static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* EXECUTE-DEBUGGER-COMMAND */ static object LnkTLI80(){return call_proc0(VV[80],(void **)(void *)&LnkLI80);} /* READ-DEBUG-COMMAND */ static object LnkTLI79(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[79],(void **)(void *)&LnkLI79,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */ static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)(void *)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */ static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */ static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* COERCE-TO-CONDITION */ static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* GET-OUTPUT-STREAM-STRING */ static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* MAKE-STRING-OUTPUT-STREAM */ static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* MAKE-STRING-INPUT-STREAM */ static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* *MAKE-SPECIAL */ #ifdef SYSTEM_SPECIAL_INIT SYSTEM_SPECIAL_INIT #endif