#include "cmpinclude.h" #include "pcl_gazonk8.h" void init_pcl_gazonk8(){do_init(VV);} /* function definition for CMP-ANON */ static void L1() {register object *base=vs_base; register object *sup=base+VM1; VC1 vs_check; check_arg(3); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); vs_top=sup; base[3]= make_cclosure_new(LC2,Cnil,base[2],Cdata); vs_top=(vs_base=base+3)+1; return; } /* local function CLOSURE */ static void LC2(base0) register object *base0; { register object *base=vs_base; register object *sup=base+VM2; VC2 vs_check; {register object V1; object V2; check_arg(2); V1=(base[0]); V2=(base[1]); vs_top=sup; {register object V3; V3= (base0[2]->c.c_car); base[2]= (V3); base[3]= VV[0]; vs_top=(vs_base=base+2)+2; (void) (*Lnk11)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3;} base[2]= STREF(object,(V3),0); base[3]= STREF(object,(V3),4); base[4]= STREF(object,(V3),8); base[5]= (V1); base[6]= (V2); vs_top=(vs_base=base+3)+4; {object _funobj = base[2];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; goto T3; T3:; if(!(type_of((V3))==t_fixnum)){ goto T13;} {object V5; if(type_of(V1)==t_structure){ goto T19;} goto T17; goto T19; T19:; if(!(((V1)->str.str_def)==(VV[1]))){ goto T17;} V5= STREF(object,(V1),4); goto T15; goto T17; T17:;{object V7; V7= (VV[3]->s.s_dbind); base[2]= small_fixnum(14); base[3]= (V1); vs_top=(vs_base=base+2)+2; (void) (*Lnk12)(); vs_top=sup; V8= vs_base[0]; if(!((V7)==(CMPcar(V8)))){ goto T22;}} V5= CMPcar(((V1))->cc.cc_turbo[12]); goto T15; goto T22; T22:; V5= Cnil; goto T15; T15:; if(((V5))==Cnil){ goto T28;} base[2]= ((V5))->v.v_self[fix((V3))]= (V1); vs_top=(vs_base=base+2)+1; return; goto T28; T28:; base[2]= Cnil; vs_top=(vs_base=base+2)+1; return;} goto T13; T13:; {register object V10; V10= V3; base[2]= (V10); base[3]= VV[4]; vs_top=(vs_base=base+2)+2; (void) (*Lnk11)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T31;} {object V11; object V12; register object V13; V11= STREF(object,(V3),0); V12= list(2,(V1),(V2)); V13= STREF(object,(V3),4); if(((V13))==Cnil){ goto T42;} if(!((CMPcdr((V13)))==Cnil)){ goto T39;} goto T40; goto T42; T42:; goto T39; goto T40; T40:; base[2]= (V12); base[3]= CMPcar((V13)); vs_top=(vs_base=base+2)+2; {object _funobj = (V11);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; goto T39; T39:; base[2]= (V11); base[3]= (V12); {object V14; V14= (V13); vs_top=base+4; while(V14!=Cnil) {vs_push((V14)->c.c_car);V14=(V14)->c.c_cdr;} vs_base=base+3;} {object _funobj = base[2];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;} goto T31; T31:; base[2]= (V10); vs_top=(vs_base=base+2)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T50;} base[2]= (V1); base[3]= (V2); vs_top=(vs_base=base+2)+2; {object _funobj = (V3);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; goto T50; T50:; base[2]= VV[5]; base[3]= VV[6]; base[4]= VV[7]; base[5]= VV[8]; base[6]= V3; base[7]= VV[9]; base[8]= (base0[1]->c.c_car); base[9]= VV[10]; base[10]= (base0[0]->c.c_car); vs_top=(vs_base=base+2)+9; (void) (*Lnk14)(); return;}} } } static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* ERROR */ static object LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[13],(void **)(void *)&LnkLI13,4098,first,ap);va_end(ap);return V1;} /* %CCLOSURE-ENV-NTHCDR */ static void LnkT12(){ call_or_link(VV[12],(void **)(void *)&Lnk12);} /* CCLOSURE-ENV-NTHCDR */ static void LnkT11(){ call_or_link(VV[11],(void **)(void *)&Lnk11);} /* STRUCTURE-SUBTYPE-P */ #ifdef SYSTEM_SPECIAL_INIT SYSTEM_SPECIAL_INIT #endif