~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

V124= list(4,VV[66],/* INLINE-ARGS */V125,/* INLINE-ARGS */V127,list(3,VV[68],(V122),listA(5,(V66),VV[69],VV[58],/* INLINE-ARGS */V128,append(V129,/* INLINE-ARGS */V130))));

900

(VV[3]->s.s_dbind)= make_cons((V124),(VV[3]->s.s_dbind));}}

901

goto T387;

902

T387:;

903

base[8]= (V78);

904

base[9]= (V73);

905

if(((V76))!=Cnil){

906

goto T404;}

907

base[10]= (V72);

908

goto T402;

909

goto T404;

910

T404:;

911

base[10]= Cnil;

912

goto T402;

913

T402:;

914

vs_top=(vs_base=base+8)+3;

915

return;}

916

}

917

}

918

/* local entry for function PUSH-SUB-LIST-BINDING */

919

920

static object LI9(V137,V138,V139,V140,V141,V142)

921

922

object V137;object V138;object V139;object V140;object V141;object V142;

923

{ VMB9 VMS9 VMV9

924

goto TTL;

925

TTL:;

926

{register object V143;

927

base[0]= VV[72];

928

vs_top=(vs_base=base+0)+1;

929

Lgensym();

930

vs_top=sup;

931

V143= vs_base[0];

932

{object V144;

933

V145= list(2,(V143),(V138));

934

V146= make_cons(/* INLINE-ARGS */V145,Cnil);

935

V147= list(2,VV[75],(V143));

936

V148= list(2,VV[48],(V141));

937

if(((V140))==Cnil){

938

goto T411;}

939

V149= list(2,VV[59],list(2,VV[48],(V140)));

940

goto T409;

941

goto T411;

942

T411:;

943

V149= Cnil;

944

goto T409;

945

T409:;

946

V150= list(4,VV[77],(V143),VV[61],list(2,VV[48],(V139)));

947

V144= list(2,(V137),list(3,VV[73],/* INLINE-ARGS */V146,list(4,VV[74],/* INLINE-ARGS */V147,(V143),listA(5,(V142),VV[76],VV[58],/* INLINE-ARGS */V148,append(V149,/* INLINE-ARGS */V150)))));

948

(VV[5]->s.s_dbind)= make_cons((V144),(VV[5]->s.s_dbind));

949

{object V151 = (VV[5]->s.s_dbind);

950

VMR9(V151)}}}

951

base[0]=base[0];

952

return Cnil;

953

}

954

/* local entry for function PUSH-LET-BINDING */

955

956

static object LI10(object V154,object V153,object V152,object first,...)

957

{

958

va_list ap;

959

int narg = VFUN_NARGS; VMB10 VMS10 VMV10

960

{object V155;

961

object V156;

962

object V157;

963

object V158;

964

object V159;

965

va_start(ap,first);

966

V155= V154;

967

V156= V153;

968

V157= V152;

969

narg = narg - 3;

970

if (narg <= 0) goto T414;

971

else {

972

V158= first;}

973

if (--narg <= 0) goto T415;

974

else {

975

V159= va_arg(ap,object);}

976

--narg; goto T416;

977

goto T414;

978

T414:;

979

V158= Cnil;

980

goto T415;

981

T415:;

982

V159= (VV[1]->s.s_dbind);

983

goto T416;

984

T416:;

985

{object V160;

986

if(((V158))==Cnil){

987

goto T421;}

988

V160= list(2,(V155),list(4,VV[74],(V158),(V156),(V159)));

989

goto T419;

990

goto T421;

991

T421:;

992

V160= list(2,(V155),(V156));

993

goto T419;

994

T419:;

995

if(((V157))==Cnil){

996

goto T424;}

997

(VV[5]->s.s_dbind)= make_cons(V160,(VV[5]->s.s_dbind));

998

{object V162 = (VV[5]->s.s_dbind);

999

VMR10(V162)}

1000

goto T424;

1001

T424:;

1002

(VV[4]->s.s_dbind)= make_cons(V160,(VV[4]->s.s_dbind));

1003

{object V164 = (VV[4]->s.s_dbind);

1004

VMR10(V164)}}

1005

va_end(ap);

1006

return Cnil;}

1007

}

1008

/* function definition for PUSH-OPTIONAL-BINDING */

1009

1010

static void L11()

1011

{register object *base=vs_base;

1012

1013

vs_check;

1014

{register object V165;

1015

object V166;

1016

1017

object V168;

1018

object V169;

1019

object V170;

1020

object V171;

1021

object V172;

1022

V165=(base[0]);

1023

V166=(base[1]);

1024

V167=(base[2]);

1025

V168=(base[3]);

1026

V169=(base[4]);

1027

V170=(base[5]);

1028

V171=(base[6]);

1029

V172=(base[7]);

1030

vs_top=sup;

1031

goto TTL;

1032

TTL:;

1033

if(((V167))!=Cnil){

1034

goto T428;}

1035

base[8]= VV[78];

1036

vs_top=(vs_base=base+8)+1;

1037

Lgensym();

1038

vs_top=sup;

1039

V167= vs_base[0];

1040

goto T428;

1041

T428:;

1042

(void)((VFUN_NARGS=3,(*(LnkLI90))((V167),(V168),Ct)));

1043

if(!(type_of((V165))==t_cons)){

1044

goto T435;}

1045

{object V173;

1046

base[8]= VV[79];

1047

vs_top=(vs_base=base+8)+1;

1048

Lgensym();

1049

vs_top=sup;

1050

V173= vs_base[0];

1051

V174= list(4,VV[74],(V167),(V169),(V166));

1052

(void)((*(LnkLI92))((V173),/* INLINE-ARGS */V174,(V165),(V170),(V171),(V172)));

1053

base[8]= (V165);

1054

base[9]= (V173);

1055

base[10]= (V170);

1056

base[11]= (V171);

1057

base[12]= (V172);

1058

vs_top=(vs_base=base+8)+5;

1059

(void) (*Lnk88)();

1060

return;}

1061

goto T435;

1062

T435:;

1063

if(!(type_of((V165))==t_symbol)){

1064

goto T446;}

1065

base[8]= (VFUN_NARGS=5,(*(LnkLI90))((V165),(V169),Cnil,(V167),(V166)));

1066

vs_top=(vs_base=base+8)+1;

1067

return;

1068

goto T446;

1069

T446:;

1070

base[8]= VV[80];

1071

base[9]= (V165);

1072

vs_top=(vs_base=base+8)+2;

1073

Lerror();

1074

return;

1075

}

1076

}

1077

/* function definition for PARSE-BODY */

1078

1079

static void L12()

1080

{register object *base=vs_base;

1081

1082

vs_check;

1083

{object V175;

1084

object V176;

1085

1086

V175=(base[0]);

1087

V176=(base[1]);

1088

vs_base=vs_base+2;

1089

if(vs_base>=vs_top){vs_top=sup;goto T450;}

1090

V177=(base[2]);

1091

vs_top=sup;

1092

goto T451;

1093

goto T450;

1094

T450:;

1095

V177= Ct;

1096

goto T451;

1097

T451:;

1098

{register object V178;

1099

1100

V178= Cnil;

1101

V179= Cnil;

1102

{register object V180;

1103

V180= (V175);

1104

goto T454;

1105

T454:;

1106

if(!(((V180))==Cnil)){

1107

goto T455;}

1108

base[3]= (V180);

1109

base[4]= nreverse((V178));

1110

base[5]= (V179);

1111

vs_top=(vs_base=base+3)+3;

1112

return;

1113

goto T455;

1114

T455:;

1115

{register object V181;

1116

V181= CMPcar((V180));

1117

if(!(type_of((V181))==t_string)){

1118

goto T465;}

1119

if((CMPcdr((V180)))==Cnil){

1120

goto T465;}

1121

if(((V177))==Cnil){

1122

goto T470;}

1123

V179= (V181);

1124

V177= Cnil;

1125

goto T462;

1126

goto T470;

1127

T470:;

1128

base[3]= (V180);

1129

base[4]= nreverse((V178));

1130

base[5]= (V179);

1131

vs_top=(vs_base=base+3)+3;

1132

return;

1133

goto T465;

1134

T465:;

1135

if(!(type_of((V181))==t_cons)){

1136

goto T478;}

1137

if(type_of(CMPcar((V181)))==t_symbol){

1138

goto T479;}

1139

goto T478;

1140

T478:;

1141

base[3]= (V180);

1142

base[4]= nreverse((V178));

1143

base[5]= (V179);

1144

vs_top=(vs_base=base+3)+3;

1145

return;

1146

goto T479;

1147

T479:;

1148

if(!((CMPcar((V181)))==(VV[8]))){

1149

goto T487;}

1150

{register object V182;

1151

V182= (V181);

1152

V178= make_cons((V182),(V178));

1153

goto T462;}

1154

goto T487;

1155

T487:;

1156

base[3]= (V180);

1157

base[4]= nreverse((V178));

1158

base[5]= (V179);

1159

vs_top=(vs_base=base+3)+3;

1160

return;}

1161

goto T462;

1162

T462:;

1163

V180= CMPcdr((V180));

1164

goto T454;}}

1165

}

1166

}

1167

/* macro definition for DESTRUCTURING-BIND */

1168

1169

static void L13()

1170

{register object *base=vs_base;

1171

1172

vs_check;

1173

vs_top=sup;

1174

{object V183=base[0]->c.c_cdr;

1175

base[2]= (V183->c.c_car);

1176

V183=V183->c.c_cdr;

1177

base[3]= (V183->c.c_car);

1178

V183=V183->c.c_cdr;

1179

base[4]= V183;}

1180

{object V184;

1181

base[6]= VV[81];

1182

vs_top=(vs_base=base+6)+1;

1183

Lgensym();

1184

vs_top=sup;

1185

V184= vs_base[0];

1186

{object V185;

1187

object V186;

1188

base[6]= base[2];

1189

base[7]= (V184);

1190

base[8]= base[4];

1191

base[9]= Cnil;

1192

base[10]= VV[82];

1193

base[11]= VV[83];

1194

base[12]= Ct;

1195

base[13]= VV[84];

1196

base[14]= Cnil;

1197

vs_top=(vs_base=base+6)+9;

1198

(void) (*Lnk95)();

1199

if(vs_base>=vs_top){vs_top=sup;goto T509;}

1200

V185= vs_base[0];

1201

vs_base++;

1202

if(vs_base>=vs_top){vs_top=sup;goto T510;}

1203

V186= vs_base[0];

1204

vs_top=sup;

1205

goto T511;

1206

goto T509;

1207

T509:;

1208

V185= Cnil;

1209

goto T510;

1210

T510:;

1211

V186= Cnil;

1212

goto T511;

1213

T511:;

1214

V187= list(2,(V184),base[3]);

1215

V188= make_cons(/* INLINE-ARGS */V187,Cnil);

1216

V189= make_cons((V185),Cnil);

1217

base[6]= listA(3,VV[73],/* INLINE-ARGS */V188,append((V186),/* INLINE-ARGS */V189));

1218

vs_top=(vs_base=base+6)+1;

1219

return;}}

1220

}

1221

static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* PARSE-DEFMACRO */

1222

static void LnkT94(){ call_or_link(VV[94],(void **)(void *)&Lnk94);} /* MAKE-KEYWORD */

1223

static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* PUSH-OPTIONAL-BINDING */

1224

static object LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[92],(void **)(void *)&LnkLI92,6,first,ap);va_end(ap);return V1;} /* PUSH-SUB-LIST-BINDING */

1225

static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* DEFMACRO-ERROR */

1226

static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[90],(void **)(void *)&LnkLI90,first,ap);va_end(ap);return V1;} /* PUSH-LET-BINDING */

1227

static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* LOOKUP-KEYWORD */

1228

static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* SPECIFIC-ERROR */

1229

static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* PARSE-DEFMACRO-LAMBDA-LIST */

1230

static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* PARSE-BODY */

1231

1232

#ifdef SYSTEM_SPECIAL_INIT

1233

SYSTEM_SPECIAL_INIT

1234

#endif

1235

Older »