#include "cmpinclude.h" #include "pcl_gazonk4.h" void init_pcl_gazonk4(){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(4); base[0]=MMcons(base[0],Cnil); base[1]=MMcons(base[1],base[0]); base[2]=MMcons(base[2],base[1]); base[3]=MMcons(base[3],base[2]); vs_top=sup; base[4]= make_cclosure_new(LC2,Cnil,base[3],Cdata); vs_top=(vs_base=base+4)+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; register object V2; object V3; check_arg(3); V1=(base[0]); V2=(base[1]); V3=(base[2]); vs_top=sup; {register object V4; base[3]= (V1); base[4]= VV[0]; vs_top=(vs_base=base+3)+2; (void) (*Lnk4)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T3;} if(!(((V2))==(CMPcar((base0[3]->c.c_car))))){ goto T8;} V4= CMPcdr((base0[3]->c.c_car)); goto T1; goto T8; T8:; V4= (base0[2]->c.c_car); goto T1; goto T3; T3:; V4= (base0[1]->c.c_car); goto T1; T1:; base[3]= (V4); base[4]= VV[1]; vs_top=(vs_base=base+3)+2; (void) (*Lnk5)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T12;} base[3]= STREF(object,(V4),0); base[4]= STREF(object,(V4),4); base[5]= STREF(object,(V4),8); base[6]= (V1); base[7]= (V2); base[8]= (V3); vs_top=(vs_base=base+4)+5; {object _funobj = base[3];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 T12; T12:; {register object V5; V5= (V4); base[3]= (V5); base[4]= VV[2]; vs_top=(vs_base=base+3)+2; (void) (*Lnk5)(); vs_top=sup; if((vs_base[0])==Cnil){ goto T23;} {object V6; object V7; register object V8; V6= STREF(object,(V4),0); V7= list(3,(V1),(V2),(V3)); V8= STREF(object,(V4),4); if(((V8))==Cnil){ goto T34;} if(!((CMPcdr((V8)))==Cnil)){ goto T31;} goto T32; goto T34; T34:; goto T31; goto T32; T32:; base[3]= (V7); base[4]= CMPcar((V8)); vs_top=(vs_base=base+3)+2; {object _funobj = (V6);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[3]= (V6); base[4]= (V7); {object V9; V9= (V8); vs_top=base+5; while(V9!=Cnil) {vs_push((V9)->c.c_car);V9=(V9)->c.c_cdr;} vs_base=base+4;} {object _funobj = base[3];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 T23; T23:; base[3]= (V5); vs_top=(vs_base=base+3)+1; Lfunctionp(); vs_top=sup; if((vs_base[0])==Cnil){ goto T42;} base[3]= (V1); base[4]= (V2); base[5]= (V3); vs_top=(vs_base=base+3)+3; {object _funobj = (V4);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 T42; T42:; base[4]= VV[3]; base[5]= (V5); base[6]= (base0[0]->c.c_car); vs_top=(vs_base=base+4)+3; (void) (*Lnk6)(); vs_top=sup; base[3]= vs_base[0]; vs_top=(vs_base=base+3)+1; Lerror(); return;}} } } static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* TYPECASE-ERROR-STRING */ static void LnkT5(){ call_or_link(VV[5],(void **)&Lnk5);} /* STRUCTURE-SUBTYPE-P */ static void LnkT4(){ call_or_link(VV[4],(void **)&Lnk4);} /* TYPEP */ #ifdef SYSTEM_SPECIAL_INIT SYSTEM_SPECIAL_INIT #endif